home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / Coroutines.def < prev    next >
Encoding:
Modula Definition  |  1988-09-14  |  316 b   |  15 lines
  1. (* $N- *)
  2. DEFINITION MODULE Coroutines;
  3. (* 2.0 / 9.6.87 / ms / Coroutines as supported by SYSTEM (PIM Ed. 3) *)
  4.  
  5. FROM SYSTEM IMPORT
  6.  ADDRESS;
  7.  
  8. TYPE
  9.  PROCESS=ADDRESS;
  10.  
  11. PROCEDURE TRANSFER(VAR source, destination: PROCESS);
  12. PROCEDURE NEWPROCESS(p: PROC; wsp: ADDRESS; size: LONGINT; VAR new: PROCESS);
  13.  
  14. END Coroutines.
  15.