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

PBusCacheProg3.mesa

Created by Jean Gastinel, May 21, 1988 6:20:57 pm PDT

Jean Gastinel May 25, 1988 12:08:25 pm PDT

DIRECTORY

Atom;

PBusCacheProg3: 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

Testing for OwnerShip

LIST[$SetMode,C[0]], -- test in Kernel mode

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[$SetByteSelect,C[0FH]], -- Word selection

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

LIST[$Write,C[00112288H],C[89ABCDEFH]], -- Now I'm owner

LIST[$SetMode,C[0]], -- test in Kernel mode

LIST[$IOReadAndCheck,C[9H],C[01234567H]], -- for waiting some cycle

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

LIST[$SetMode,C[1]], -- test in User mode

LIST[$Write,C[0011228AH],C[0AABBCCDDH]], -- WriteSingle gen

Terminate Simul

LIST[$SetMode,C[0]], -- test in Kernel mode

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

$StopSimul,

$Nop,

LIST[$Jump, $Nop]

]];

END.