[_CD4_]<dragon7.0>SSCache>PBusCacheProg0.mesa!2

PBusCacheProg0.mesa

Created by Jean Gastinel, June 29, 1988 3:37:53 pm PDT

Pradeep Sindhu May 10, 1988 9:06:08 pm PDT

DIRECTORY

Atom;

PBusCacheProg0: 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[100]], -- wait for the DBus and the memory controller to be intialized

LIST[$SetByteSelect,C[0FH]], -- Word selection

LIST[$IOWrite,C[9H],C[01234567H]], --AID register

LIST[$IOWrite,C[3H],C[98765432H]], --CWSnew register

LIST[$IOReadAndCheck,C[9H],C[01234567H]],

LIST[$IOReadAndCheck,C[3H],C[98765432H]],

LIST[$Write,C[00112233H],C[09ABCDEFH]],

LIST[$ReadAndCheck,C[00112233H],C[09ABCDEFH]],

LIST[$Write,C[00045123H],C[000FH]],

LIST[$Write,C[00045124H],C[09AFH]],

LIST[$Write,C[00045125H],C[0ABCEFH]],

LIST[$ReadAndCheck,C[00045123H],C[000FH]],

LIST[$ReadAndCheck,C[00045124H],C[09AFH]],

LIST[$ReadAndCheck,C[00045125H],C[0ABCEFH]],

LIST[$ReadAndCheck,C[000A1B2DH],C[0543210H]],

LIST[$Write,C[00045128H],C[1111H]],

LIST[$Write,C[00045130H],C[2222H]],

LIST[$Write,C[00045138H],C[3333H]],

LIST[$Write,C[00045140H],C[4444H]],

LIST[$Write,C[00045148H],C[5555H]],

LIST[$Write,C[00045150H],C[6666H]],

LIST[$Write,C[00045158H],C[7777H]],

LIST[$Write,C[00045160H],C[8888H]],

LIST[$Write,C[00045168H],C[9999H]],

LIST[$Write,C[00045170H],C[0AAAAH]],

LIST[$ReadAndCheck,C[00045128H],C[1111H]],

LIST[$ReadAndCheck,C[00045130H],C[2222H]],

LIST[$ReadAndCheck,C[00045138H],C[3333H]],

LIST[$ReadAndCheck,C[00045140H],C[4444H]],

LIST[$ReadAndCheck,C[00045148H],C[5555H]],

LIST[$ReadAndCheck,C[00045150H],C[6666H]],

LIST[$ReadAndCheck,C[00045158H],C[7777H]],

LIST[$ReadAndCheck,C[00045160H],C[8888H]],

LIST[$ReadAndCheck,C[00045168H],C[9999H]],

LIST[$ReadAndCheck,C[00045170H],C[0AAAAH]],

$StopSimul,

$Nop,

LIST[$Jump, $Nop]

]];

END.