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. ΒPBusCacheProg0.mesa Copyright Σ 1987, 1988 by Xerox Corporation. All rights reserved. Created by Jean Gastinel, June 29, 1988 3:37:53 pm PDT Pradeep Sindhu May 10, 1988 9:06:08 pm PDT Κn˜codešœ™KšœB™BKšœ6™6K™*K™—K™K™KšΟk ˜ Kšœ˜KšΠblœœ˜Kšœ˜ Kšœ˜šœ˜K˜—˜KšΟnœœœœœœ œœ˜?K˜K˜šœ!œ˜&KšœœΟc?˜VKšœœ œ˜3Kšœœ2˜8Kšœœ5˜;Kšœœ(˜.Kšœœ(˜.Kšœœ&˜,Kšœœ0˜6Kšœœ"˜(Kšœœ"˜(Kšœœ&˜,Kšœœ,˜2Kšœœ,˜2Kšœœ3˜9Kšœœ4˜:Kšœœ"˜(Kšœœ"˜(Kšœœ"˜(Kšœœ"˜(Kšœœ"˜(Kšœœ"˜(Kšœœ"˜(Kšœœ"˜(Kšœœ"˜(Kšœœ#˜)Kšœœ1˜7Kšœœ1˜7Kšœœ1˜7Kšœœ1˜7Kšœœ1˜7Kšœœ1˜7Kšœœ1˜7Kšœœ1˜7Kšœœ1˜7Kšœœ2˜8Kšœ ˜ K˜Kšœœ ˜Kšœ˜K˜——K˜Kšœ˜—…—β