home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 2: PC
/
frozenfish_august_1995.bin
/
bbs
/
d07xx
/
d0764.lha
/
CLI-Tools
/
Delay.S
< prev
next >
Wrap
Text File
|
1992-11-21
|
1KB
|
59 lines
incdir "ram:include/"
include exec_lib.i
include dos_lib.i
START
movea.l a0,a2 Parameter retten
move.l d0,d2
lea DOSName(pc),a1 DOS-Lib ÷ffnen
moveq #33,d0
CALLEXEC OpenLibrary
tst.l d0
beq.s ende9
movea.l d0,a6 a6: DOSBase
cmpi.b #'?',(a2) '?' oder
beq.s print_usage
cmp.b #1,d2 kein Argument?
beq.s print_usage => Usage
atod:
moveq #0,d1 Dez-String in 32-Bit-Zahl umwandeln
.loop move.b (a2)+,d0
subi.b #'0',d0
cmpi.b #10,d0
bhs.s .finish
mulu #10,d1
add.b d0,d1
bra.s .loop
.finish
CALLLIB Delay
ende:
movea.l a6,a1 DOS-Lib schlie▀en
CALLEXEC CloseLibrary
ende9: moveq #0,d0 Ende des Progs
rts
print_usage: ;Usage ausgeben
CALLLIB Output
move.l d0,d1
lea text(pc),a0
move.l a0,d2
moveq #textlen,d3
CALLLIB Write
bra.s ende
;*** Daten ***
DOSName: dc.b "dos.library",0
;fⁿr DOS-Befehl Version
dc.b "$VER: Delay 1.1 (27.5.92 ⌐ Thies Wellpott)",0
text: dc.b "Usage: Delay t t in 1/50 seconds (max. 655350)", $a
textlen = *-text
even