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. ΐ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 Κp˜codešœ™KšœB™BKšœ5™5K™*K™—K™K™KšΟk ˜ Kšœ˜KšΠbl œœ˜Kšœ˜ Kšœ˜šœ˜K˜—˜KšΟnœœœœœœ œœ˜?K˜K˜šœ!œ˜&KšœœΟc?˜VKšœœ2˜8Kšœœ5˜;Kšœœ(˜.Kšœœ+˜1Kšœœ@˜FKšœœ+˜1Kšœ˜KšœœE˜KKšœœ:˜@Kšœœ<˜BKšœœ2˜8Kšœ ˜ Kšœ ˜ K˜Kšœœ ˜Kšœ˜K˜——K˜Kšœ˜—…—Ίκ