home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / ExecSupport.def < prev    next >
Text File  |  1996-11-30  |  1KB  |  39 lines
  1. DEFINITION MODULE ExecSupport;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4. IMPORT ExecD,Reg;
  5.  
  6. TYPE VecPool = RECORD
  7.                  pool : ADDRESS;
  8.                  fullSize : LONGCARD;
  9.                  (** mem follows **)
  10.                END;
  11.      VecPoolPtr = POINTER TO VecPool;
  12.  
  13.  
  14. PROCEDURE NewList(list{Reg.A0}:ExecD.ListPtr);
  15.  
  16. PROCEDURE BeginIO(ioRequest{9}:ADDRESS);
  17. PROCEDURE AbortIO(ioRequest{9}:ADDRESS);
  18. PROCEDURE CreatePort(portName:ADDRESS;priority:SHORTINT):ExecD.MsgPortPtr;
  19. PROCEDURE DeletePort(port:ExecD.MsgPortPtr);
  20.  
  21. PROCEDURE CreateTask(taskName: ADDRESS; priority: SHORTINT;
  22.                      initPC: ADDRESS; stackSize: LONGINT): ExecD.TaskPtr;
  23. PROCEDURE DeleteTask(t: ExecD.TaskPtr);
  24.  
  25. PROCEDURE CreateExtIO(ioReplyPort: ExecD.MsgPortPtr; size: INTEGER): ADDRESS;
  26. PROCEDURE DeleteExtIO(extIOReq: ADDRESS);
  27.  
  28. PROCEDURE CreateStdIO(ioReplyPort: ExecD.MsgPortPtr): ExecD.IOStdReqPtr;
  29. PROCEDURE DeleteStdIO(ioStdReq: ExecD.IOStdReqPtr);
  30.  
  31. PROCEDURE AllocVecPooled(memPool : ADDRESS;
  32.                          size : LONGCARD):ADDRESS;
  33.  
  34. PROCEDURE FreeVecPooled(mem : ADDRESS);
  35.  
  36.  
  37.  
  38. END ExecSupport.
  39.