home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
W95SPCOD.ZIP
/
WINNERS
/
WALKEN
/
SURP0.ASM
< prev
next >
Wrap
Assembly Source File
|
1995-11-04
|
510b
|
39 lines
.model tiny
.code
.486
org 100h
debut:
;on start ax=bx=0 ch=0
int 16h
sub al,'0'-1
cbw
xchg ax,cx ;cx=num+1
mov ax,0a013h
mov es,ax
cbw
int 10h
l:
mov bl,3
lea ax,ds:[bx+61h] ;mov ax,64h
l0:
lea di,[di-323] ;sub di,323
xor ah,al
stosw
stosb
dec bx
jnz l0
xor di,ax
loop l
xchg ax,cx
int 16h
mov al,3 ;change...
cbw ;mov ax,3
int 10h
mov ax,1112h
int 10h
ret ;quit
end debut