<> <> <> <<>> <> <<>> DIRECTORY Atom; PBusProg: CEDAR PROGRAM IMPORTS Atom EXPORTS ~ BEGIN <> <<>> <> <<>> C: PROC [c: CARD] RETURNS [rc: REF ANY] = {rc _ NEW[CARD _ LOOPHOLE[c]]}; <> <<>> Atom.PutProp[$PBusEmul, $PKList, LIST[ LIST[$Wait, C[2]], -- for init LIST[$Write,C[11223344H],C[09ABCDEFH]], LIST[$Write,C[55667788H],C[0FEDCBAH]], LIST[$ReadAndCheck,C[01234567H],C[55667788H]], LIST[$Write,C[12345678H],C[09ABCDEFH]], LIST[$IOReadAndCheck,C[0123H],C[55667788H]], LIST[$IOWrite,C[3456789AH],C[09ABCDEFH]], LIST[$PBusCmd,C[511],C[456789ABH],C[56789ABCH]], $Nop, LIST[$Jump, $Nop] ]]; END.