Copyright Ó 1987 by Xerox Corporation. All rights reserved.

Written by Christian Le Cocq, August 4

Christian Le Cocq November 7, 1988 4:09:46 pm PST

Christophe Cuenod September 12, 1988 5:57:43 pm PDT

Basics USING [UnsafeBlock];

QUIT: CARD32 = 0; -- the type which stops WatchPacketsIn in the Sparc side

out:

PutProc: TYPE ~ PROC[ub: Basics.UnsafeBlock] RETURNS [nBytes: INT];

PutPacket: PROC [type, data1, data2, len: CARD32 ← 0, pProc: PutProc ← NIL];

in:

ActionProc: TYPE ~ PROC[ub: Basics.UnsafeBlock, type, data1, data2: CARD32];

Register: PROC [type: CARD32, proc: ActionProc];

WatchPacketsIn: PROC;

for each new module loaded:

Restart: PROC;