<> <> <> <> <<>> <<>> <<>> DIRECTORY Atom; PBusCacheProg5: CEDAR PROGRAM IMPORTS Atom EXPORTS ~ BEGIN C: PROC [c: CARD] RETURNS [rc: REF ANY] = {rc _ NEW[CARD _ c]}; Atom.PutProp[$PBusEmul, $PKList, LIST[ LIST[$Wait, C[2]], LIST[$WaitSync, $MemReady], <> LIST[$SetByteSelect,C[0FH]], -- Word selection LIST[$IOWrite,C[9H],C[01234567H]], -- AID register LIST[$IOReadAndCheck,C[9H],C[01234567H]], <<>> LIST[$SetMode,C[1]], -- test in User mode LIST[$ReadAndCheck,C[00112289H],C[01234567H]], <> LIST[$ReadAndCheck,C[00112308H],C[0]], --internal Mapping Test LIST[$ReadAndCheck,C[00112310H],C[0]], --WS inbetween LIST[$ReadAndCheck,C[00112310H],C[0]], LIST[$ReadAndCheck,C[00112318H],C[0]], --WBlock inbetween LIST[$ReadAndCheck,C[00112318H],C[0]], LIST[$ReadAndCheck,C[00112320H],C[0]], --FBlock inbetween LIST[$ReadAndCheck,C[00112320H],C[0]], LIST[$ReadAndCheck,C[00112328H],C[0]], --CWS inbetween LIST[$ReadAndCheck,C[00112328H],C[0]], LIST[$ReadAndCheck,C[00112330H],C[0]], --DeMap inbetween LIST[$ReadAndCheck,C[00112330H],C[0]], LIST[$ReadAndCheck,C[00112338H],C[0]], --DeMap reply inbetween LIST[$ReadAndCheck,C[00112338H],C[0]], LIST[$ReadAndCheck,C[00112338H],C[0]], --one more $StopSimul, $Nop, LIST[$Jump, $Nop] ]]; END.