home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 1036.dms / 1036.adf / PrtDriver / pwait.asm < prev    next >
Assembly Source File  |  1977-12-31  |  758b  |  48 lines
  1. *
  2. * PWait - wait for a time
  3. * 
  4. * PWait(seconds, micros)
  5. *
  6.  
  7.     INCLUDE "exec/types.i"
  8.     INCLUDE "exec/ports.i"
  9.     INCLUDE "exec/devices.i"
  10.     INCLUDE "exec/io.i"
  11.  
  12.     INCLUDE    "devices/timer.i"
  13.     INCLUDE    "macros.i"
  14.     INCLUDE    "devices/prtbase.i"
  15.  
  16.     XREF_EXE    Forbid
  17.     XREF_EXE    Permit
  18.     XREF_EXE    WaitIO
  19.  
  20.     XREF        _SysBase
  21.     XREF        _PD
  22.  
  23.     XDEF        _PWait
  24.  
  25. _PWait:
  26.         movem.l a4/a6, -(a7)
  27.         move.l    _PD,a4
  28.         move.l    pd_PBothReady(a4),a0
  29.         jsr     (a0)
  30.         tst.l    d0
  31.         bne.s    error
  32.  
  33.         lea    pd_TIOR(a4),a1
  34.         move.w    #TR_ADDREQUEST,IO_COMMAND(a1)
  35.         move.l    12(a7),IOTV_TIME+TV_SECS(a1)
  36.         move.l    16(a7),IOTV_TIME+TV_MICRO(a1)
  37.         clr.b    IO_FLAGS(a1)
  38.         move.l    IO_DEVICE(a1),a6
  39.         LINKEXE    Forbid
  40.         lea    pd_TIOR(a4),a1
  41.         LINKEXE    WaitIO
  42.         LINKEXE    Permit
  43.         moveq    #0,d0
  44.         tst.l    d0
  45. error:
  46.         movem.l    (a7)+,a4/a6
  47.         rts
  48.