[_CD4_]<dragon7.0>SSCache>PBusCacheProg7.mesa!3

PBusCacheProg7.mesa

Created by Jean Gastinel, June 13, 1988 12:09:26 pm PDT

Jean Gastinel June 13, 1988 12:19:40 pm PDT

DIRECTORY

Atom;

PBusCacheProg7: 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[0]], -- test in Kernel mode

LIST[$ReadAndCheck,C[00112289H],C[01234567H]],

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

LIST[$Write,C[00112308H],C[11111111H]], --internal Mapping Test

LIST[$Write,C[00112310H],C[22222222H]], --WS inbetween

LIST[$Write,C[00112310H],C[33333333H]],

LIST[$Write,C[00112318H],C[44444444H]], --WBlock inbetween

LIST[$Write,C[00112318H],C[55555555H]],

LIST[$Write,C[00112320H],C[66666666H]], --FBlock inbetween

LIST[$Write,C[00112320H],C[77777777H]],

LIST[$Write,C[00112328H],C[88888888H]], --CWS inbetween

LIST[$Write,C[00112328H],C[99999999H]],

LIST[$Write,C[00112330H],C[0AAAAAAAAH]], --DeMap inbetween

LIST[$Write,C[00112330H],C[0BBBBBBBBH]],

LIST[$Write,C[00112338H],C[0CCCCCCCCH]], --DeMap reply inbetween

LIST[$Write,C[00112338H],C[0DDDDDDDDH]],

LIST[$Write,C[00112338H],C[0EEEEEEEEH]], --ten more

LIST[$Write,C[00112338H],C[0EEEEEEEEH]], -- more

$StopSimul,

$Nop,

LIST[$Jump, $Nop]

]];

END.