DIRECTORYDragon USING [Word],IO USING [STREAM],Rope USING [ROPE];CacheOps: CEDAR DEFINITIONS = BEGINPageSize: NAT = 256;StdLinesPerCache: NAT = 64;WordsPerLine: NAT = 4;PreFetchAdrCmd: TYPE = MACHINE DEPENDENT {VictimReal(0), RefRealMap(1), RefRealAssemble(2), RefVirtual(3)};VirtualMemory: TYPE = REF;defaultVM, lastVM: VirtualMemory;NewVirtualMemory: PROC RETURNS [ m: VirtualMemory ];VMFileFormat: ERROR;VirtualMemoryFromFile: PROC [ m: VirtualMemory, fileName: Rope.ROPE ];NewVirtualMemoryFromFile: PROC [ fileName: Rope.ROPE ] RETURNS [ m: VirtualMemory ];VirtualMemoryToStream: PROC  [ m: VirtualMemory, s: IO.STREAM ];EnumerateVirtualMemory: PROC [ m: VirtualMemory, wdProc: PROC [ addr, data: Dragon.Word, readOnly, dirty: BOOL _ FALSE, privateData: REF _ NIL ], privateData: REF _ NIL ];Cache: TYPE = REF;lastCache: Cache;NewCache: PROC [ mem: REF ANY _ NIL, nLines: NAT _ StdLinesPerCache ] RETURNS [ c: Cache ];AccessPurpose: TYPE = {read, write};Access: PROC [ c: Cache, address: Dragon.Word, purpose: AccessPurpose _ read, cycleNow: INT _ 0 ] RETURNS [ data: Dragon.Word, rejectCycles: NAT, mapFault, memAccessProtect: BOOL ];Write: PROC [ c: Cache, address, data: Dragon.Word ];IORead: PROC [ c: Cache, address: Dragon.Word, cycleNow: INT _ 0  ] RETURNS [ data: Dragon.Word, rejectCycles: NAT ];IOWrite: PROC [ c: Cache, address, data: Dragon.Word, cycleNow: INT _ 0 ] RETURNS [ rejectCycles: NAT ];SetFlags: PROC [ c: Cache, address: Dragon.Word, memAccessProtect, dirty, mapped: BOOL ];SetIntervalFlags: PROC [ c: Cache, startAddress, endAddress -- [startAddress..endAddress] -- : Dragon.Word, memAccessProtect, dirty, mapped: BOOL ];GetFlags: PROC [ c: Cache, address: Dragon.Word ] RETURNS [ memAccessProtect, dirty, mapped: BOOL ];Parity32: PROC [ w: Dragon.Word ] RETURNS [ odd: BOOL ];Parity16: PROC [ n: CARDINAL ] RETURNS [ odd: BOOL ];END.   
  CacheOps.mesa.. functions for Dragon Cache Rosemary simulations.  For now it assumes that there is only virtual memory.  Mapping and map operations are not yet implemented.Modified for Rosemary5.McCreight, March 5, 1986 9:40:14 am PSTLast Edited by: Barth, July 3, 1984 4:04:51 pm PDTLast Edited by: Louis Monier April 2, 1987 5:11:11 pm PSTDon Curry May 1, 1987 2:41:08 pm PDTVirtualMemoryFromStream: PROC [ m: VirtualMemory, s: IO.STREAM ]; = {m _ NewVirtualMemory[]; VirtualMemoryFromFile[m, fileName]};ÊÎ  ˜ ™J™ŸJ™Icode™'J™2K™9K™$—J˜ šÏk	˜	Jšœœ˜Jšœœœ˜Jšœœœ˜J˜ —šœ
œœ˜Jš˜J˜ Jšœ
œ˜Jšœœ˜Jšœœ˜J˜ Jšœœœ	œC˜kJ˜ Jšœœœ˜Jšœ!˜!J˜ JšÏnœœœ˜4J˜ Jšœ˜šžœœ$œ˜FJ˜ —Jšžœœœœ™AJ˜ šžœœœœ˜TJšœ@™@J™ —Jšžœœœœ˜@J˜ Jšžœœœ-œœœœœœ˜«J˜ J˜ Jšœœœ˜J˜J˜ Jšžœœœœœ
œœ˜[J˜ J˜ Jšœœ˜$J˜ JšžœœLœœ$œœ˜µJ˜ šžœœ*˜5J˜ —Jš	žœ-œœ$œ˜uJ˜ š
žœœ3œœœ˜hJ˜ —šžœœDœ˜YJ˜ —šžœœ&Ïc œ1œ˜”J˜ —šžœœ$œ$œ˜dJ˜ —Jšžœœœœ˜8J˜ Jš
žœœœœœ˜5J˜ Jšœ˜J˜ —J˜ — …—    „  \  