<> <> <> <<>> <> <<>> DIRECTORY Atom; Send: CEDAR PROGRAM IMPORTS Atom EXPORTS ~ BEGIN C: PROC [c: CARD] RETURNS [rc: REF ANY] = {rc _ NEW[CARD _ c]}; Bo: PROC [c: BOOL] RETURNS [rc: REF ANY] = {rc _ NEW[BOOL _ c]}; Atom.PutProp[$Simul2Sender, $PKList, LIST[ LIST[$ClearFlag, $DynReady], $StartStop, $Init, $StartStop, LIST[$WaitSync, $DBusReady], LIST[$Wait, C[10]], LIST[$SetFlag, $DynReady], $Nop, LIST[$Jump, $Nop] << LIST[$ReadMemory, C[01234567H]],>> << LIST[$Wait, C[2]],>> << LIST[$Jump, $Restart]>> ]]; END.