DIRECTORY CacheOps, Core, Dragon, Ports, Random; Cache2: CEDAR DEFINITIONS = BEGIN PI: TYPE = {PhA, PhB, PData, PCmdA, PRejectB, PFaultB, ResetAB}; Cache: PUBLIC PROC [ vm: CacheOps.VirtualMemory, nLines: NAT _ CacheOps.StdLinesPerCache, skipRejects: BOOL _ FALSE ] RETURNS [ ct: Core.CellType ]; CacheState: TYPE = RECORD [ phALast: BOOL _ FALSE, -- hack to improve simulation performance cache: CacheOps.Cache, randomStream: Random.RandomStream, cycleNo: INT _ 0, skipRejects: BOOL _ FALSE, rejectCycles: NAT _ 0, cmdAB: Dragon.PBusCommands _ NoOp, address, fetchData, storeDataBA: Dragon.HexWord _ 0, cmdType: {noOp, reset, fetch, store} _ noOp, pageFault, writeFault, firstBOfCmdBA: BOOL _ FALSE ]; END. zCache2.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. McCreight, April 10, 1986 12:01:44 pm PST Ê˜šœ™Icodešœ Ïmœ1™