DIRECTORY Atom; PBusCacheProg5: 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[2]], LIST[$WaitSync, $MemReady], 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[$ReadAndCheck,C[00112289H],C[01234567H]], LIST[$ReadAndCheck,C[00112308H],C[0]], --internal Mapping Test LIST[$ReadAndCheck,C[00112310H],C[0]], --WS inbetween LIST[$ReadAndCheck,C[00112310H],C[0]], LIST[$ReadAndCheck,C[00112318H],C[0]], --WBlock inbetween LIST[$ReadAndCheck,C[00112318H],C[0]], LIST[$ReadAndCheck,C[00112320H],C[0]], --FBlock inbetween LIST[$ReadAndCheck,C[00112320H],C[0]], LIST[$ReadAndCheck,C[00112328H],C[0]], --CWS inbetween LIST[$ReadAndCheck,C[00112328H],C[0]], LIST[$ReadAndCheck,C[00112330H],C[0]], --DeMap inbetween LIST[$ReadAndCheck,C[00112330H],C[0]], LIST[$ReadAndCheck,C[00112338H],C[0]], --DeMap reply inbetween LIST[$ReadAndCheck,C[00112338H],C[0]], LIST[$ReadAndCheck,C[00112338H],C[0]], --one more $StopSimul, $Nop, LIST[$Jump, $Nop] ]]; END. $PBusCacheProg5.mesa Copyright Σ 1987, 1988 by Xerox Corporation. All rights reserved. Created by Jean Gastinel, June 2, 1988 3:38:08 pm PDT Jean Gastinel June 13, 1988 12:05:53 pm PDT Testing for OwnerShip Testing that the internal mapping works reading a block in the same page Κ ˜codešœ™KšœB™BKšœ5™5Kšœ,™,K™—K™K™KšΟk ˜ Kšœ˜KšΡbln Οnœœ˜Kšœ˜ Kšœ˜šœ˜K˜—˜KšŸœœœœœœ œœ˜?K˜K˜šœ!œ˜&Kšœœ˜Kšœ˜K˜Kšœ™KšœœΟcœ˜3Kšœœ" ˜8Kšœœ(˜.K™Kšœœ ˜-Kšœœ*˜0Kšœ˜K™HKšœœ# ˜@Kšœœ# œ˜9Kšœœ%˜+Kšœœ# ˜;Kšœœ#˜)Kšœœ# ˜;Kšœœ#˜)Kšœœ# ˜8Kšœœ#˜)Kšœœ# ˜:Kšœœ#˜)Kšœœ# ˜AKšœœ#˜)Kšœœ#  ˜3Kšœ˜Kšœ ˜ K˜Kšœœ ˜Kšœ˜K˜——K˜Kšœ˜—…—=