(* $N- *)
DEFINITION MODULE Coroutines;
(* 2.0 / 9.6.87 / ms / Coroutines as supported by SYSTEM (PIM Ed. 3) *)

FROM SYSTEM IMPORT
 ADDRESS;

TYPE
 PROCESS=ADDRESS;

PROCEDURE TRANSFER(VAR source, destination: PROCESS);
PROCEDURE NEWPROCESS(p: PROC; wsp: ADDRESS; size: LONGINT; VAR new: PROCESS);

END Coroutines.
