Dyn.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Jean Gastinel October 25, 1987 11:01:35 am PST
This interface emulates a register for sending data across the DynaBus
DIRECTORY
Core,
Ports,
Rosemary;
Dyn: CEDAR DEFINITIONS
~ BEGIN
Data: TYPE ~ ARRAY [0..3) OF LONG CARDINAL; -- type for parametrisation on icon
Parameter : TYPE ~ RECORD [ins: NAT, rqlar: CARD, alpha,beta,gama,delta,epsilon: Data];
CellType : TYPE = Core.CellType;
Wire: TYPE = Core.Wire;
DynaPortState: TYPE = REF DynaPortRec;
DynaPortRec: TYPE = RECORD[
rqlar: Ports.LevelSequence,
send: Ports.Level,
sendpar : Ports.LevelSequence,
alpha: Ports.LevelSequence,
beta: Ports.LevelSequence,
gama: Ports.LevelSequence,
delta: Ports.LevelSequence,
epsilon: Ports.LevelSequence,
load: Ports.Level,
ckin: Ports.Level,
status: Ports.LevelSequence,
ialpha: Ports.LevelSequence,
ibeta: Ports.LevelSequence,
igama: Ports.LevelSequence,
idelta: Ports.LevelSequence,
iepsilon: Ports.LevelSequence,
RQLAR: NAT,
SEND: NAT,
SENDPAR: NAT,
ALPHA: NAT,
BETA: NAT,
GAMA: NAT,
DELTA: NAT,
EPSILON: NAT,
LOAD: NAT,
CKIN: NAT,
STATUS: NAT,
IALPHA: NAT,
IBETA: NAT,
IGAMA: NAT,
IDELTA: NAT,
IEPSILON: NAT,
param: Parameter,
countcycle: NAT,
labelcycle: NAT,
testProcList: LIST OF REF ANY ← NIL
];
DynaPortDef: PROC [param: Parameter] RETURNS [ct: CellType];
DynaPortInit: Rosemary.InitProc;
DynaPortEval: Rosemary.EvalProc;
END.