home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 364b.lha / PCQ_v1.1 / Runtime / System / execio.asm < prev    next >
Encoding:
Assembly Source File  |  1990-04-08  |  1.8 KB  |  123 lines
  1.  
  2. *    ExecIO.asm (of PCQ Pascal runtime library)
  3. *    Copyright (c) 1989 Patrick Quaid
  4.  
  5. *    This implements the routines defined in ExecIO.i and
  6. *    Ports.i
  7.  
  8.     SECTION    ExecIO
  9.  
  10.     XDEF    _AbortIO
  11. _AbortIO
  12.     move.l    4(sp),a1
  13.     move.l    _AbsExecBase,a6
  14.     jsr    _LVOAbortIO(a6)
  15.     rts
  16.  
  17.     XDEF    _AddDevice
  18. _AddDevice
  19.     move.l    4(sp),a1
  20.     move.l    _AbsExecBase,a6
  21.     jmp    _LVOAddDevice(a6)
  22.  
  23.     XDEF    _AddPort
  24. _AddPort
  25.     move.l    4(sp),a1
  26.     move.l    _AbsExecBase,a6
  27.     jmp    _LVOAddPort(a6)
  28.  
  29.     XDEF    _CheckIO
  30. _CheckIO
  31.     move.l    4(sp),a1
  32.     move.l    _AbsExecBase,a6
  33.     jmp    _LVOCheckIO(a6)
  34.  
  35.     XDEF    _CloseDevice
  36. _CloseDevice
  37.     move.l    4(sp),a1
  38.     move.l    _AbsExecBase,a6
  39.     jmp    _LVOCloseDevice(a6)
  40.  
  41.     XDEF    _DoIO
  42. _DoIO
  43.     move.l    4(sp),a1
  44.     move.l    _AbsExecBase,a6
  45.     jmp    _LVODoIO(a6)
  46.  
  47.     XDEF    _FindPort
  48. _FindPort
  49.     move.l    4(sp),a1
  50.     move.l    _AbsExecBase,a6
  51.     jmp    _LVOFindPort(a6)
  52.  
  53.     XDEF    _GetMsg
  54. _GetMsg
  55.     move.l    4(sp),a0
  56.     move.l    _AbsExecBase,a6
  57.     jmp    _LVOGetMsg(a6)
  58.  
  59.     XDEF    _OpenDevice
  60. _OpenDevice
  61.     move.l    16(sp),a0
  62.     move.l    12(sp),d0
  63.     move.l    8(sp),a1
  64.     move.l    4(sp),d1
  65.     move.l    _AbsExecBase,a6
  66.     jmp    _LVOOpenDevice(a6)
  67.  
  68.     XDEF    _PutMsg
  69. _PutMsg
  70.     move.l    8(sp),a0
  71.     move.l    4(sp),a1
  72.     move.l    _AbsExecBase,a6
  73.     jmp    _LVOPutMsg(a6)
  74.  
  75.     XDEF    _RemPort
  76. _RemPort
  77.     move.l    4(sp),a1
  78.     move.l    _AbsExecBase,a6
  79.     jmp    _LVORemPort(a6)
  80.  
  81.     XDEF    _ReplyMsg
  82. _ReplyMsg
  83.     move.l    4(sp),a1
  84.     move.l    _AbsExecBase,a6
  85.     jmp    _LVOReplyMsg(a6)
  86.  
  87.     XDEF    _SendIO
  88. _SendIO
  89.     move.l    4(sp),a1
  90.     move.l    _AbsExecBase,a6
  91.     jmp    _LVOSendIO(a6)
  92.  
  93.     XDEF    _WaitIO
  94. _WaitIO
  95.     move.l    4(sp),a1
  96.     move.l    _AbsExecBase,a6
  97.     jmp    _LVOWaitIO(a6)
  98.  
  99.     XDEF    _WaitPort
  100. _WaitPort
  101.     move.l    4(sp),a0
  102.     move.l    _AbsExecBase,a6
  103.     jmp    _LVOWaitPort(a6)
  104.  
  105.     XREF    _LVOAbortIO
  106.     XREF    _LVOAddPort
  107.     XREF    _LVOAddDevice
  108.     XREF    _LVOCheckIO
  109.     XREF    _LVOCloseDevice
  110.     XREF    _LVODoIO
  111.     XREF    _LVOFindPort
  112.     XREF    _LVOGetMsg
  113.     XREF    _LVOOpenDevice
  114.     XREF    _LVOPutMsg
  115.     XREF    _LVORemPort
  116.     XREF    _LVOReplyMsg
  117.     XREF    _LVOSendIO
  118.     XREF    _LVOWaitIO
  119.     XREF    _LVOWaitPort
  120.     XREF    _AbsExecBase
  121.  
  122.     END
  123.