DMCtlBusModel.mesa
Written By: Pradeep Sindhu, September 3, 1985 10:39:43 pm PDT
Last Edited By: Pradeep Sindhu September 3, 1985 10:59:09 pm PDT
DIRECTORY
DM;
DMCtlBusModel: CEDAR DEFINITIONS = BEGIN
CtlBus Related Types
CtlBusSpecific: TYPE = REF CtlBusSpecificRec;
CtlBusSpecificRec: TYPE = RECORD [
busType: BusType,
signals: ARRAY SignalIndex OF BOOL
];
SignalIndex: TYPE = [0..64);
BusType: TYPE = {AB, BA};
The CtlBus procedures
Create: PUBLIC PROC [type: BusType] RETURNS [ctlBus: DM.Component];
Rd: PUBLIC PROC [sidx: SignalIndex, ctlBus: DM.Component] RETURNS [BOOL];
Dr: PUBLIC PROC [sidx: SignalIndex, ctlBus: DM.Component, value: BOOL];
END.