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