home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 254a.lha / PCQ / Runtime / execio.asm < prev    next >
Encoding:
Assembly Source File  |  1989-05-10  |  817 b   |  61 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
  6.  
  7.     SECTION    ExecIO
  8.  
  9.     XDEF    _AbortIO
  10. _AbortIO
  11.     move.l    4(sp),a1
  12.     move.l    _AbsExecBase,a6
  13.     jsr    _LVOAbortIO(a6)
  14.     rts
  15.  
  16.     XDEF    _BeginIO
  17. _BeginIO
  18.     move.l    4(sp),a1
  19.     move.l    _AbsExecBase,a6
  20.     jsr    _LVOBeginIO(a6)
  21.     rts
  22.  
  23.     XDEF    _CheckIO
  24. _CheckIO
  25.     move.l    4(sp),a1
  26.     move.l    _AbsExecBase,a6
  27.     jsr    _LVOCheckIO(a6)
  28.     rts
  29.  
  30.     XDEF    _DoIO
  31. _DoIO
  32.     move.l    4(sp),a1
  33.     move.l    _AbsExecBase,a6
  34.     jsr    _LVODoIO(a6)
  35.     rts
  36.  
  37.     XDEF    _SendIO
  38. _SendIO
  39.     move.l    4(sp),a1
  40.     move.l    _AbsExecBase,a6
  41.     jsr    _LVOSendIO(a6)
  42.     rts
  43.  
  44.     XDEF    _WaitIO
  45. _WaitIO
  46.     move.l    4(sp),a1
  47.     move.l    _AbsExecBase,a6
  48.     jsr    _LVOWaitIO(a6)
  49.     rts
  50.  
  51.     XREF    _LVOAbortIO
  52.     XREF    _LVOBeginIO
  53.     XREF    _LVOCheckIO
  54.     XREF    _LVODoIO
  55.     XREF    _LVOSendIO
  56.     XREF    _LVOWaitIO
  57.     XREF    _AbsExecBase
  58.  
  59.     END
  60.  
  61.