PBusCacheProg.mesa
Copyright Ó 1987, 1988 by Xerox Corporation. All rights reserved.
Created by Jean Gastinel, May 20, 1988 7:07:46 pm PDT
Pradeep Sindhu May 10, 1988 9:06:08 pm PDT
DIRECTORY
Atom; 
PBusCacheProg: 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[$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[$IOWrite,C[0ABCDEFH],C[01357H]],    --IO external to the cache
LIST[$IOReadAndCheck,C[0ABCDEFH],C[01357H]],  
LIST[$ReadAndCheck,C[00112233H],C[09ABCDEFH]],   -- read user disabled  
LIST[$Write,C[00045123H],C[000FH]],   -- write user disabled 
LIST[$Write,C[00067124H],C[09AFH]],  -- write kernel disabled  
LIST[$Write,C[00089125H],C[0ABCEFH]],              
       
$StopSimul,
$Nop,
LIST[$Jump, $Nop]
]];
END.