[_CD4_]<dragon7.0>SSCache>PBusCacheProg5.mesa!4

PBusCacheProg5.mesa

Created by Jean Gastinel, June 2, 1988 3:38:08 pm PDT

Jean Gastinel June 13, 1988 12:05:53 pm PDT

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],

Testing for OwnerShip

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]],

Testing that the internal mapping works reading a block in the same page

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.