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 >
Wrap
Assembly Source File
|
1977-12-31
|
758b
|
48 lines
*
* PWait - wait for a time
*
* PWait(seconds, micros)
*
INCLUDE "exec/types.i"
INCLUDE "exec/ports.i"
INCLUDE "exec/devices.i"
INCLUDE "exec/io.i"
INCLUDE "devices/timer.i"
INCLUDE "macros.i"
INCLUDE "devices/prtbase.i"
XREF_EXE Forbid
XREF_EXE Permit
XREF_EXE WaitIO
XREF _SysBase
XREF _PD
XDEF _PWait
_PWait:
movem.l a4/a6, -(a7)
move.l _PD,a4
move.l pd_PBothReady(a4),a0
jsr (a0)
tst.l d0
bne.s error
lea pd_TIOR(a4),a1
move.w #TR_ADDREQUEST,IO_COMMAND(a1)
move.l 12(a7),IOTV_TIME+TV_SECS(a1)
move.l 16(a7),IOTV_TIME+TV_MICRO(a1)
clr.b IO_FLAGS(a1)
move.l IO_DEVICE(a1),a6
LINKEXE Forbid
lea pd_TIOR(a4),a1
LINKEXE WaitIO
LINKEXE Permit
moveq #0,d0
tst.l d0
error:
movem.l (a7)+,a4/a6
rts