home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 254a.lha / PCQ / Runtime / exec.asm < prev    next >
Encoding:
Assembly Source File  |  1989-05-10  |  3.9 KB  |  234 lines
  1.  
  2. *    Exec.asm (of PCQ Pascal runtime library)
  3. *    Copyright (c) 1989 Patrick Quaid
  4.  
  5. *    This is the implementation for the routines defined in
  6. *    Exec.i.  Not all the exec library is handled here, so
  7. *    feel free to add the routines you need.  The routines
  8. *    defined in Ports.i are also here.
  9.  
  10.     section    one
  11.  
  12.     XDEF    _OpenLibrary
  13. _OpenLibrary
  14.     move.l    8(sp),a1
  15.     move.l    4(sp),d0
  16.     move.l    _AbsExecBase,a6
  17.     jsr    _LVOOpenLibrary(a6)
  18.     rts
  19.  
  20.     XDEF    _CloseLibrary
  21. _CloseLibrary
  22.     move.l    4(sp),a1
  23.     move.l    _AbsExecBase,a6
  24.     jsr    _LVOCloseLibrary(a6)
  25.     rts
  26.  
  27.     XDEF    _AvailMem
  28. _AvailMem
  29.     move.l    4(sp),d1
  30.     move.l    _AbsExecBase,a6
  31.     jsr    _LVOAvailMem(a6)
  32.     rts
  33.  
  34.     XDEF    _AllocMem
  35. _AllocMem
  36.     move.l    8(sp),d0
  37.     move.l    4(sp),d1
  38.     move.l    _AbsExecBase,a6
  39.     jsr    _LVOAllocMem(a6)
  40.     rts
  41.  
  42.     XDEF    _FreeMem
  43. _FreeMem
  44.     move.l    8(sp),a1
  45.     move.l    4(sp),d0
  46.     move.l    _AbsExecBase,a6
  47.     jsr    _LVOFreeMem(a6)
  48.     rts
  49.  
  50.     XDEF    _AddPort
  51. _AddPort
  52.     move.l    4(sp),a1
  53.     move.l    _AbsExecBase,a6
  54.     jsr    _LVOAddPort(a6)
  55.     rts
  56.  
  57.     XDEF    _FindPort
  58. _FindPort
  59.     move.l    4(sp),a1
  60.     move.l    _AbsExecBase,a6
  61.     jsr    _LVOFindPort(a6)
  62.     rts
  63.  
  64.     XDEF    _FindTask
  65. _FindTask
  66.     move.l    4(sp),a1
  67.     move.l    _AbsExecBase,a6
  68.     jsr    _LVOFindTask(a6)
  69.     rts
  70.  
  71.     XDEF    _GetMsg
  72. _GetMsg
  73.     move.l    4(sp),a0
  74.     move.l    _AbsExecBase,a6
  75.     jsr    _LVOGetMsg(a6)
  76.     rts
  77.  
  78.     XDEF    _PutMsg
  79. _PutMsg
  80.     move.l    8(sp),a0
  81.     move.l    4(sp),a1
  82.     move.l    _AbsExecBase,a6
  83.     jsr    _LVOPutMsg(a6)
  84.     rts
  85.  
  86.     XDEF    _RemPort
  87. _RemPort
  88.     move.l    4(sp),a1
  89.     move.l    _AbsExecBase,a6
  90.     jsr    _LVORemPort(a6)
  91.     rts
  92.  
  93.     XDEF    _ReplyMsg
  94. _ReplyMsg
  95.     move.l    4(sp),a1
  96.     move.l    _AbsExecBase,a6
  97.     jsr    _LVOReplyMsg(a6)
  98.     rts
  99.  
  100.     XDEF    _SetTaskPri
  101. _SetTaskPri
  102.     move.l    8(sp),a1
  103.     move.l    4(sp),d0
  104.     move.l    _AbsExecBase,a6
  105.     jsr    _LVOSetTaskPri(a6)
  106.     rts
  107.  
  108.     XDEF    _WaitPort
  109. _WaitPort
  110.     move.l    4(sp),a0
  111.     move.l    _AbsExecBase,a6
  112.     jsr    _LVOWaitPort(a6)
  113.     rts
  114.  
  115.     XDEF    _Forbid
  116. _Forbid
  117.     move.l    _AbsExecBase,a6
  118.     jsr    _LVOForbid(a6)
  119.     rts
  120.  
  121.     XDEF    _Permit
  122. _Permit
  123.     move.l    _AbsExecBase,a6
  124.     jsr    _LVOPermit(a6)
  125.     rts
  126.  
  127.  
  128. *    XREF    _LVOCopyMemQuick
  129. *    XREF    _LVOCopyMem
  130. *    XREF    _LVOAddMemList
  131. *    XREF    _LVOSumKickData
  132. *    XREF    _LVORemSemaphore
  133. *    XREF    _LVOAddSemaphore
  134. *    XREF    _LVOFindSemaphore
  135. *    XREF    _LVOReleaseSemaphoreList
  136. *    XREF    _LVOObtainSemaphoreList
  137. *    XREF    _LVOAttemptSemaphore
  138. *    XREF    _LVOReleaseSemaphore
  139. *    XREF    _LVOObtainSemaphore
  140. *    XREF    _LVOInitSemaphore
  141.     XREF    _LVOOpenLibrary
  142. *    XREF    _LVOVacate
  143. *    XREF    _LVOProcure
  144. *    XREF    _LVOTypeOfMem
  145. *    XREF    _LVOGetCC
  146. *    XREF    _LVORawDoFmt
  147. *    XREF    _LVORawPutChar
  148. *    XREF    _LVORawMayGetChar
  149. *    XREF    _LVORawIOInit
  150. *    XREF    _LVOOpenResource
  151. *    XREF    _LVORemResource
  152. *    XREF    _LVOAddResource
  153. *    XREF    _LVOAbortIO
  154. *    XREF    _LVOWaitIO
  155. *    XREF    _LVOCheckIO
  156. *    XREF    _LVOSendIO
  157. *    XREF    _LVODoIO
  158. *    XREF    _LVOCloseDevice
  159. *    XREF    _LVOOpenDevice
  160. *    XREF    _LVORemDevice
  161. *    XREF    _LVOAddDevice
  162. *    XREF    _LVOSumLibrary
  163. *    XREF    _LVOSetFunction
  164.     XREF    _LVOCloseLibrary
  165. *    XREF    _LVOOldOpenLibrary
  166. *    XREF    _LVORemLibrary
  167. *    XREF    _LVOAddLibrary
  168.     XREF    _LVOFindPort
  169.     XREF    _LVOWaitPort
  170.     XREF    _LVOReplyMsg
  171.     XREF    _LVOGetMsg
  172.     XREF    _LVOPutMsg
  173.     XREF    _LVORemPort
  174.     XREF    _LVOAddPort
  175. *    XREF    _LVOFreeTrap
  176. *    XREF    _LVOAllocTrap
  177. *    XREF    _LVOFreeSignal
  178. *    XREF    _LVOAllocSignal
  179. *    XREF    _LVOSignal
  180. *    XREF    _LVOWait
  181. *    XREF    _LVOSetExcept
  182. *    XREF    _LVOSetSignal
  183.     XREF    _LVOSetTaskPri
  184.     XREF    _LVOFindTask
  185. *    XREF    _LVORemTask
  186. *    XREF    _LVOAddTask
  187. *    XREF    _LVOFindName
  188. *    XREF    _LVOEnqueue
  189. *    XREF    _LVORemTail
  190. *    XREF    _LVORemHead
  191. *    XREF    _LVORemove
  192. *    XREF    _LVOAddTail
  193. *    XREF    _LVOAddHead
  194. *    XREF    _LVOInsert
  195. *    XREF    _LVOFreeEntry
  196. *    XREF    _LVOAllocEntry
  197.     XREF    _LVOAvailMem
  198.     XREF    _LVOFreeMem
  199. *    XREF    _LVOAllocAbs
  200.     XREF    _LVOAllocMem
  201. *    XREF    _LVODeallocate
  202. *    XREF    _LVOAllocate
  203. *    XREF    _LVOCause
  204. *    XREF    _LVORemIntServer
  205. *    XREF    _LVOAddIntServer
  206. *    XREF    _LVOSetIntVector
  207. *    XREF    _LVOUserState
  208. *    XREF    _LVOSuperState
  209. *    XREF    _LVOSetSR
  210.     XREF    _LVOPermit
  211.     XREF    _LVOForbid
  212. *    XREF    _LVOEnable
  213. *    XREF    _LVODisable
  214. *    XREF    _LVODebug
  215. *    XREF    _LVOAlert
  216. *    XREF    _LVOInitResident
  217. *    XREF    _LVOFindResident
  218. *    XREF    _LVOMakeFunctions
  219. *    XREF    _LVOMakeLibrary
  220. *    XREF    _LVOInitStruct
  221. *    XREF    _LVOInitCode
  222. *    XREF    _LVOException
  223. *    XREF    _LVODispatch
  224. *    XREF    _LVOSwitch
  225. *    XREF    _LVOReschedule
  226. *    XREF    _LVOSchedule
  227. *    XREF    _LVOExitIntr
  228. *    XREF    _LVOSupervisor
  229.     XREF    _AbsExecBase
  230.  
  231.  
  232.     END
  233.  
  234.