home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PROG_GEN
/
FORTH_86.ZIP
/
SECDELAY.4TH
< prev
next >
Wrap
Text File
|
1993-12-08
|
428b
|
25 lines
code secdelay
pop ax ( count )
mov bx,0
mov bl,al ( count )
| tloop
mov ah,2ch ( get system time )
int 21h
mov bh,dh ( seconds )
| dloop
int 21h
cmp bh,dh ( has it changed )
jz dloop ( loop if not )
dec bl ( dec count )
mov bh,0
push bx
push bx
:enter dup 9 > if 8 .c then 8 8 .c .c . :exit
pop bx
cmp bl,0
jnz tloop
labels
;