RoseIOHacks.Mesa

Last Edited by: Spreitzer, March 11, 1984 4:23:04 pm PST

DIRECTORY RoseTypes;

RoseIOHacks: CEDAR DEFINITIONS =

BEGIN OPEN RoseTypes;

Drive: TYPE = LONG POINTER TO DriveRep;

DriveRep: TYPE = ARRAY NAT OF BoolWord;

BoolWord: TYPE = RECORD [fill: [0 .. 32768), bool: BOOLEAN];

DirectionInstructions: TYPE = RECORD [inputs, outputs, bidirs: DirectionInstruction];

DirectionInstruction: TYPE = {none, forward, backward, check, moveByDrive, checkByDrive};

CopyIO: PROC [from, to: WordPtr, by: Ports, what: DirectionInstructions, specials, generals, simples: BOOLEAN, drive: Drive];

END.