<> <> <> <<>> <> <<>> DIRECTORY Atom; PBusProg: CEDAR PROGRAM IMPORTS Atom EXPORTS ~ BEGIN <> <<>> <> <<>> B: PROC [b: BOOL] RETURNS [rb: REF ANY] = {rb _ NEW[BOOL _ b]}; C: PROC [c: CARD] RETURNS [rc: REF ANY] = {rc _ NEW[CARD _ LOOPHOLE[c]]}; Bo: PROC [c: BOOL] RETURNS [rc: REF ANY] = {rc _ NEW[BOOL _ c]}; <> <<>> Atom.PutProp[$PBusEmul, $PKList, LIST[ LIST[$WaitSync, $DBusReady], LIST[$Write,C[12345678H],C[09ABCDEFH]], LIST[$WaitSync, $DynReady], 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.