<> <> <> <> <<>> <> <<>> DIRECTORY Core, AMatrix, Ports, Rope; <<>> MonitorSmallCachePmCode: CEDAR DEFINITIONS ~ BEGIN <> CellType : TYPE = Core.CellType; Level: TYPE = Ports.Level; LevelSequence: TYPE = Ports.LevelSequence; LevelSequenceRec: TYPE = Ports.LevelSequenceRec; ROPE: TYPE = Core.ROPE; Wire: TYPE = Core.Wire; <> Handle: TYPE = REF HandleRec; HandleRec: TYPE = RECORD [ am: AMatrix.AM _ NIL, amSeq: AMatrix.AMSeq _ NIL, labelTable: SEQUENCE size: NAT OF ROPE ]; <> LabelToPC: PROC [h: Handle, label: ROPE] RETURNS [INT]; PCToLabel: PROC [h: Handle, pc: NAT] RETURNS [ROPE]; ParseMCode: PROC [fileName: ROPE, wDir: ROPE] RETURNS [h: Handle]; RecordPC: PROC [h: Handle, pc: NAT]; PrintUnVisitedPaths: PROC [h: Handle, maxLength: NAT]; PCMonitor: PROC [] RETURNS [CellType]; END.