DIRECTORY DM, DMMBusModel, DMPBusModel; DMSmallCacheModel: CEDAR DEFINITIONS = BEGIN CacheSpecific: TYPE = REF CacheSpecificRec; CacheSpecificRec: TYPE = RECORD [ pbus: DM.Component _ NIL, pbusOp: DMPBusModel.PCmdType _ NoOp, mbus: DM.Component _ NIL, mbusHasSC: BOOL _ TRUE, nLines: LineName _ maxLines, cam: CamType, ram: RamType ]; maxLines: INT = 64; CamType: TYPE = ARRAY LineName OF Line; RamType: TYPE = ARRAY LineName OF DM.Word _ ALL [DM.ZerosWord]; LineName: TYPE = [1..maxLines]; Line: TYPE = RECORD [ va: DM.Word, shared: BOOL, master: BOOL, valid: BOOL _ FALSE ]; Create: PUBLIC PROC [pbus, mbus: DM.Component] RETURNS [cache: DM.Component]; END. ΞDMSmallCacheModel.mesa Written By: Pradeep Sindhu, August 19, 1985 4:57:12 pm PDT Last Edited By: Pradeep Sindhu August 29, 1985 1:36:15 pm PDT Small Cache Related Types The Small Cache Procedures Κu˜šœ™J™:Icode™=—K™šΟk ˜ Kšœ˜Kšœ ˜ Kšœ ˜ K˜—šΟbœœ œ˜,K˜K˜šœ™K˜Kšž œœœ˜+–36 sp tabStopsšžœœœ˜!K–36 sp tabStopsšœœ œ˜Kšœ$˜$K–36 sp tabStopsšœœ œ˜Kšœ œœ˜K˜Kšœ ˜ Kšœ ˜ K–36 sp tabStops˜K–36 sp tabStops˜—K˜Kšœ œ˜K˜Kšžœœœ œ˜'Kšžœœœ œœœœ ˜?Kšžœœ˜šžœœœ˜Kšœœ˜ Kšœœ˜ Kšœœ˜ Kšœœ˜K˜—K˜K˜—™K˜K•StartOfExpansionS -- [cache: CacheModels.Cache, addr: DragOpsCross.Word, fromJump: BOOL _ FALSE] -- š Οnœœœœ œ œ ˜MK˜—Kšœ˜K˜K˜——…—’ε