DIRECTORY      Atom;	      PBusCacheProg7: 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[0]],			-- test in Kernel mode  LIST[$ReadAndCheck,C[00112289H],C[01234567H]],   LIST[$Write,C[00112308H],C[11111111H]],	--internal Mapping Test  LIST[$Write,C[00112310H],C[22222222H]],	--WS inbetween    LIST[$Write,C[00112310H],C[33333333H]],	    LIST[$Write,C[00112318H],C[44444444H]],	--WBlock inbetween  LIST[$Write,C[00112318H],C[55555555H]],	  LIST[$Write,C[00112320H],C[66666666H]],	--FBlock inbetween  LIST[$Write,C[00112320H],C[77777777H]],	  LIST[$Write,C[00112328H],C[88888888H]],	--CWS inbetween  LIST[$Write,C[00112328H],C[99999999H]],	  LIST[$Write,C[00112330H],C[0AAAAAAAAH]],	--DeMap inbetween  LIST[$Write,C[00112330H],C[0BBBBBBBBH]],	  LIST[$Write,C[00112338H],C[0CCCCCCCCH]],	--DeMap reply inbetween	  LIST[$Write,C[00112338H],C[0DDDDDDDDH]],	  LIST[$Write,C[00112338H],C[0EEEEEEEEH]],	--ten more  LIST[$Write,C[00112338H],C[0EEEEEEEEH]],	-- more  LIST[$Write,C[00112338H],C[0EEEEEEEEH]],	-- more  LIST[$Write,C[00112338H],C[0EEEEEEEEH]],	-- more  LIST[$Write,C[00112338H],C[0EEEEEEEEH]],	-- more  LIST[$Write,C[00112338H],C[0EEEEEEEEH]],	-- more  LIST[$Write,C[00112338H],C[0EEEEEEEEH]],	-- more  LIST[$Write,C[00112338H],C[0EEEEEEEEH]],	-- more  LIST[$Write,C[00112338H],C[0EEEEEEEEH]],	-- more  LIST[$Write,C[00112338H],C[0EEEEEEEEH]],	-- more  LIST[$Write,C[00112338H],C[0EEEEEEEEH]],	-- more			   $StopSimul,$Nop,  LIST[$Jump, $Nop]]];END.  &  PBusCacheProg7.mesaCopyright Ó 1987, 1988 by Xerox Corporation.  All rights reserved.Created by Jean Gastinel, June 13, 1988 12:09:26 pm PDTJean Gastinel  June 13, 1988 12:19:40 pm PDTTesting for OwnerShipTesting that the internal mapping works reading a block in the same page Ê  ˜ codešœ™KšœB™BKšœ7™7Kšœ,™,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šœœ$ ˜AKšœœ$ œ˜:Kšœœ&˜,Kšœœ$ ˜<Kšœœ$˜*Kšœœ$ ˜<Kšœœ$˜*Kšœœ$ ˜9Kšœœ$˜*Kšœœ% ˜<Kšœœ%˜+Kšœœ% ˜CKšœœ%˜+Kšœœ% 
˜5Kšœœ% ˜2Kšœœ% ˜2Kšœœ% ˜2Kšœœ% ˜2Kšœœ% ˜2Kšœœ% ˜2Kšœœ% ˜2Kšœœ% ˜2Kšœœ% ˜2Kšœœ% ˜2Kšœ˜Kšœ˜K˜Kšœœ˜Kšœ˜K˜ ——K˜ Kšœ˜— …—       
Ó  