DIRECTORY      Atom;	      PBusCacheProg6: CEDAR PROGRAMIMPORTS  AtomEXPORTS ~ BEGINC: PROC [c: CARD] RETURNS [rc: REF ANY] = {rc _ NEW[CARD _ c]};Atom.PutProp[$PBusEmul, $PKList, LIST[     LIST[$ClearFlag, $CacheFull],  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[$Write,C[00045128H],C[1111H]], 	-- Fill completly the cache   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[$SetFlag, $CacheFull],	    LIST[$ReadAndCheck,C[00045128H],C[1111H]],	--DeMap reply inbetween	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	--20 more  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$ReadAndCheck,C[00045128H],C[1111H]],	  LIST[$Write,C[00045128H],C[22223333H]],	  LIST[$Write,C[00045128H],C[44445555H]],	  LIST[$DeMap,C[00045128H]],		--deMap  LIST[$ReadAndCheck,C[00045128H],C[44445555H]],	  LIST[$ClearVP,C[00045128H]],		--ClearVP  LIST[$ReadAndCheck,C[00045128H],C[44445555H]],	  LIST[$ReadAndCheck,C[00045128H],C[44445555H]],	--one more  LIST[$BIOWrite,C[0ABCDEF9H],C[11122233H]],	--Broadcast IO			   $StopSimul,$Nop,  LIST[$Jump, $Nop]]];END.   Ü  PBusCacheProg6.mesaCopyright Ó 1987, 1988 by Xerox Corporation.  All rights reserved.Created by Jean Gastinel, June 10, 1988 12:22:49 pm PDTJean Gastinel  June 28, 1988 5:35:12 pm PDTTesting for OwnerShip Ê2  ˜ 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šœ™KšœœÏcœ˜3Kšœœ" ˜8Kšœœ(˜.K™ Kšœœ ˜/Kšœœ! ˜CKšœœ"˜(Kšœœ"˜(Kšœœ"˜(Kšœœ"˜(Kšœœ"˜(Kšœœ"˜(Kšœœ"˜(Kšœœ˜%K˜ Kšœœ˜Kšœ˜Kšœœ' ˜EKšœœ' 	˜6Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ'˜-Kšœœ$˜*Kšœœ$˜*Kšœœ ˜%Kšœœ+˜1Kšœœ 
˜)Kšœœ+˜1Kšœœ+ 
˜;Kšœœ' ˜;Kšœ˜Kšœ˜K˜Kšœœ˜Kšœ˜K˜ ——K˜ Kšœ˜— …—    	”  ¢  