<> <> <> <<>> DIRECTORY DM, DragOpsCross USING [Word], PBusModel; ProcessorModel: CEDAR DEFINITIONS = BEGIN <> Word: TYPE = DragOpsCross.Word; <> ProcessorCommand: TYPE = REF ProcessorCommandRec; ProcessorCommandRec: TYPE = RECORD [ cmd: PBusModel.PCmdType, adrs: Word, data: Word ]; ProcessorSpecific: TYPE = REF ProcessorSpecificRec; ProcessorSpecificRec: TYPE = RECORD [ commandList: LIST OF ProcessorCommand _ NIL, pbus: DM.Component _ NIL ]; <> Create: PUBLIC PROC [commandList: LIST OF ProcessorCommand _ NIL, pbus: DM.Component] RETURNS [processor: DM.Component]; END. <<>>