PBusModel.mesa
Written By: Jean Vuillemin and Pradeep Sindhu
Last Edited By: Pradeep Sindhu August 21, 1985 6:56:20 pm PDT
DIRECTORY
DM,
DragOpsCross USING [Word, ZerosWord];
PBusModel: CEDAR DEFINITIONS = BEGIN
Basic Types
Word: TYPE = DragOpsCross.Word;
PBus Related Types
PCmdType: TYPE = {NoOp, Fetch, Store};
FaultType: TYPE = {None, PageFault, WriteProtectFault, FPFault};
PBusWires: TYPE = REF PBusWiresRec;
PBusWiresRec: TYPE = RECORD [
pCmdA: PCmdType ← NoOp,
pData: Word ← DragOpsCross.ZerosWord,
pRejectB: BOOLFALSE,
pFaultB: FaultType
];
The PBus procedures
Create: PUBLIC PROC [] RETURNS [pbus: DM.Component];
END.