Copyright Ó 1987 by Xerox Corporation. All rights reserved.

Written by Christian Le Cocq, August 4

Christian Le Cocq October 10, 1988 10:14:08 am PDT

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

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

out:

PutPacket: PROC [type, data1, data2: CARD32 ← 0, r: REF TEXT ← NIL];

in:

ActionProc: TYPE ~ PROC[r: REF TEXT, type, data1, data2: CARD32];

Register: PROC [type: CARD32, proc: ActionProc, buff: REF TEXT ← NIL];

WatchPacketsIn: PROC;

for each new module loaded:

Restart: PROC;