<> <> <> <> <> <<>> <> DIRECTORY Basics USING [UnsafeBlock]; SoftcardDataExch: CEDAR DEFINITIONS ~ BEGIN QUIT: CARD32 = 0; -- the type which stops WatchPacketsIn in the Sparc side <<>> <<>> <> PutProc: TYPE ~ PROC[ub: Basics.UnsafeBlock] RETURNS [nBytes: INT]; PutPacket: PROC [type, data1, data2, len: CARD32 _ 0, pProc: PutProc _ NIL]; <> ActionProc: TYPE ~ PROC[ub: Basics.UnsafeBlock, type, data1, data2: CARD32]; Register: PROC [type: CARD32, proc: ActionProc]; WatchPacketsIn: PROC; <> Restart: PROC; END.