home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / exec.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  5.9 KB  |  144 lines
  1. {$if not def EXEC_LIB_H} CONST EXEC_LIB_H=0;
  2.  
  3. { **********************************************************
  4.   ** KickPascal-Include-Datei "exec.lib" zu Kickstart 3.0 **
  5.   ********************************************************** }
  6.  
  7. {$if not def EXEC_EXEC_H;incl "exec/exec.h";endif}
  8.  
  9. LIBRARY SysBase :
  10.  
  11.  -30 : FUNCTION  Supervisor(A5:Ptr): Long;
  12. { ** private Routinen ** }
  13.  -72 : PROCEDURE InitCode(D0,D1: Long);
  14.  -78 : PROCEDURE InitStruct(A1,A2:Ptr; D0:Long);
  15.  -84 : FUNCTION  MakeLibrary(A0,A1,A2:Ptr; D0,D1:Long): p_Library;
  16.  -90 : PROCEDURE MakeFunctions(A0,A1:Ptr; A2:Long);
  17.  -96 : FUNCTION  FindResident(A1:Str): p_Resident;
  18. -102 : PROCEDURE InitResident(A1:p_Resident; D1:Long);
  19. -108 : PROCEDURE Alert(D7:Long);
  20. -114 : PROCEDURE Debug(D0:Long);
  21. -120 : PROCEDURE Disable;
  22. -126 : PROCEDURE Enable;
  23. -132 : PROCEDURE Forbid;
  24. -138 : PROCEDURE Permit;
  25. -144 : FUNCTION  SetSR(D0,D1:Long): Long;
  26. -150 : FUNCTION  SuperState: Ptr;
  27. -156 : PROCEDURE UserState(D0:Ptr);
  28. -162 : FUNCTION  SetIntVector(D0:LongInt; A1:p_Interrupt): p_Interrupt;
  29. -168 : PROCEDURE AddIntServer(D0:LongInt; A1:p_Interrupt);
  30. -174 : PROCEDURE RemIntServer(D0:LongInt; A1:p_Interrupt);
  31. -180 : PROCEDURE Cause(A1:p_Interrupt);
  32. -186 : FUNCTION  Allocate(A0:p_MemHeader; D0:Long): Ptr;
  33. -192 : PROCEDURE Deallocate(A0:p_MemHeader; A1:Ptr; D0:Long);
  34. -198 : FUNCTION  AllocMem(D0,D1:Long): Ptr;
  35. -204 : FUNCTION  AllocAbs(D0:Long; A1:Ptr): Ptr;
  36. -210 : PROCEDURE FreeMem(A1:Ptr; D0:Long);
  37. -216 : FUNCTION  AvailMem(D1:Long): Long;
  38. -222 : FUNCTION  AllocEntry(A0:p_MemList): p_MemList;
  39. -228 : PROCEDURE FreeEntry(A0:p_MemList);
  40. -234 : PROCEDURE _Insert(A0:p_List; A1,A2:p_Node); {"_" ergänzt - JS}
  41. -240 : PROCEDURE AddHead(A0:p_List; A1:p_Node);
  42. -246 : PROCEDURE AddTail(A0:p_List; A1:p_Node);
  43. -252 : PROCEDURE Remove(A1:p_Node);
  44. -258 : FUNCTION  RemHead(A0:p_List): p_Node;
  45. -264 : FUNCTION  RemTail(A0:p_List): p_Node;
  46. -270 : PROCEDURE Enqueue(A0:p_List; A1:p_Node);
  47. -276 : FUNCTION  FindName(A0:p_List; A1:Str): p_Node;
  48. -282 : FUNCTION  AddTask(A1:p_Task; A2,A3:Ptr): Ptr;
  49. -288 : PROCEDURE RemTask(A1:p_Task);
  50. -294 : FUNCTION  FindTask(A1:Str): p_Task;
  51. -300 : FUNCTION  SetTaskPri(A1:p_Task; D0:LongInt): Byte;
  52. -306 : FUNCTION  SetSignal(D0,D1: Long): Long;
  53. -312 : FUNCTION  SetExcept(D0,D1: Long): Long;
  54. -318 : FUNCTION  _Wait(D0:Long): Long;  {"_" ergänzt }
  55. -324 : PROCEDURE Signal(A1:p_Task; D0:Long);
  56. -330 : FUNCTION  AllocSignal(D0:LongInt): Byte;
  57. -336 : PROCEDURE FreeSignal(D0:LongInt);
  58. -342 : FUNCTION  AllocTrap(D0:LongInt): LongInt;
  59. -348 : PROCEDURE FreeTrap(D0:LongInt);
  60. -354 : PROCEDURE AddPort(A1:p_MsgPort);
  61. -360 : PROCEDURE RemPort(A1:p_MsgPort);
  62. -366 : PROCEDURE PutMsg(A0:p_MsgPort; A1:p_Message);
  63. -372 : FUNCTION  GetMsg(A0:p_MsgPort): p_Message;
  64. -378 : PROCEDURE ReplyMsg(A1:p_Message);
  65. -384 : FUNCTION  WaitPort(A0:p_MsgPort): p_Message;
  66. -390 : FUNCTION  FindPort(A1:Str): p_MsgPort;
  67. -396 : PROCEDURE AddLibrary(A1:p_Library);
  68. -402 : PROCEDURE RemLibrary(A1:p_Library);
  69. -408 : FUNCTION  OldOpenLibrary(A1:Str): p_Library;
  70. -414 : PROCEDURE CloseLibrary(A1:p_Library);
  71. -420 : FUNCTION  SetFunction(A1:p_Library; A0:LongInt; D0:Long): Ptr;
  72. -426 : PROCEDURE SumLibrary(A1:p_Library);
  73. -432 : PROCEDURE AddDevice(A1:p_Device);
  74. -438 : PROCEDURE RemDevice(A1:p_Device);
  75. -444 : FUNCTION  OpenDevice(A0:Str; D0:Long; A1:p_IORequest; D1:Long): Byte;
  76. -450 : PROCEDURE CloseDevice(A1:p_IORequest);
  77. -456 : FUNCTION  DoIO(A1:p_IORequest): Byte;
  78. -462 : PROCEDURE SendIO(A1:p_IORequest);
  79. -468 : FUNCTION  CheckIO(A1:p_IORequest): p_IORequest;
  80. -474 : FUNCTION  WaitIO(A1:p_IORequest): Byte;
  81. -480 : PROCEDURE AbortIO(A1:p_IORequest);
  82. -486 : PROCEDURE AddResource(A1:Ptr);
  83. -492 : PROCEDURE RemResource(A1:Ptr);
  84. -498 : FUNCTION  OpenResource(A1:Str): Ptr;
  85. { ** private Routinen ** }
  86. -522 : PROCEDURE RawDoFmt(A0:Str; A1,A2,A3:Ptr);
  87. -528 : FUNCTION  GetCC: Long;
  88. -534 : FUNCTION  TypeOfMem(A1:Ptr): Long;
  89. -540 : FUNCTION  Procure(A0:p_Semaphore; A1:p_Message): Long;
  90. -546 : PROCEDURE Vacate(A0:p_Semaphore);
  91. -552 : FUNCTION  OpenLibrary(A1:Str; D0:Long): p_Library;
  92.  
  93. { **** Routinen ab V33 / Kickstart Release 1.2  **** }
  94.  
  95. -558 : PROCEDURE InitSemaphore(A0:p_SignalSemaphore);
  96. -564 : PROCEDURE ObtainSemaphore(A0:p_SignalSemaphore);
  97. -570 : PROCEDURE ReleaseSemaphore(A0:p_SignalSemaphore);
  98. -576 : FUNCTION  AttemptSemaphore(A0:p_SignalSemaphore): Long;
  99. -582 : PROCEDURE ObtainSemaphoreList(A0:p_List);
  100. -588 : PROCEDURE ReleaseSemaphoreList(A0:p_List);
  101. -594 : FUNCTION  FindSemaphore(A1:Str): p_SignalSemaphore;
  102. -600 : PROCEDURE AddSemaphore(A1:p_SignalSemaphore);
  103. -606 : PROCEDURE RemSemaphore(A1:p_SignalSemaphore);
  104. -612 : FUNCTION  SumKickData: Long;
  105. -618 : FUNCTION  AddMemList(D0,D1,D2:Long; A0:Ptr; A1:Str): Long;
  106. -624 : PROCEDURE CopyMem(A0,A1:Ptr; D0:Long);
  107. -630 : PROCEDURE CopyMemQuick(A0,A1:Ptr; D0:Long);
  108.  
  109. { **** Routinen ab V36 / Kickstart 2.0  **** }
  110.  
  111. -636 : PROCEDURE CacheClearU;
  112. -642 : PROCEDURE CacheClearE(A0:Ptr; D0,D1:Long);
  113. -648 : FUNCTION  CacheControl(D0,D1:Long): Long;
  114. -654 : FUNCTION  CreateIORequest(A0:p_MsgPort; D0:Long): Ptr;
  115. -660 : PROCEDURE DeleteIORequest(A0:Ptr);
  116. -666 : FUNCTION  CreateMsgPort: p_MsgPort;
  117. -672 : PROCEDURE DeleteMsgPort(A0:p_MsgPort);
  118. -678 : PROCEDURE ObtainSemaphoreShared(A0:p_SignalSemaphore);
  119. -684 : FUNCTION  AllocVec(D0,D1:Long): Ptr;
  120. -690 : PROCEDURE FreeVec(A1:Ptr);
  121.  
  122. { **** Routinen ab V39 / Kickstart 3.0 **** }
  123.  
  124. -696 : FUNCTION  CreatePool(D0,D1,D2:Long): Ptr;
  125. -702 : PROCEDURE DeletePool(A0:Ptr);
  126. -708 : FUNCTION  AllocPooled(A0:Ptr; D0:Long): Ptr;
  127. -714 : PROCEDURE FreePooled(A0:Ptr; A1:Ptr; D0:Long);
  128. -720 : FUNCTION  AttemptSemaphoreShared(A0:p_SignalSemaphore): Long;
  129. -726 : PROCEDURE ColdReboot;
  130. -732 : PROCEDURE StackSwap(A0:p_StackSwapStruct);
  131.  
  132. -738 : PROCEDURE ChildFree(D0:Ptr);
  133. -744 : PROCEDURE ChildOrphan(D0:Ptr);
  134. -750 : PROCEDURE ChildStatus(D0:Ptr);
  135. -756 : PROCEDURE ChildWait(D0:Ptr);
  136.  
  137. -762 : FUNCTION  CachePreDMA(A0:Ptr; A1:LongInt; D1: Long): Ptr;
  138. -768 : PROCEDURE CachePostDMA(A0:Ptr; A1:LongInt; D1: Long);
  139.  
  140. -774 : PROCEDURE AddMemHandler(A1:p_Interrupt);
  141. -780 : PROCEDURE RemMemHandler(A1:p_Interrupt);
  142. END;
  143. {$endif}
  144.