home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / W95SPCOD.ZIP / WINNERS / WALKEN / SURP0.ASM < prev    next >
Assembly Source File  |  1995-11-04  |  510b  |  39 lines
  1.     .model tiny
  2.     .code
  3.     .486
  4. org 100h
  5. debut:
  6.     ;on start ax=bx=0 ch=0
  7.     int 16h        
  8.     sub al,'0'-1
  9.     cbw
  10.     xchg ax,cx      ;cx=num+1
  11.     mov ax,0a013h
  12.     mov es,ax
  13.     cbw
  14.     int 10h
  15.  
  16. l:
  17.     mov bl,3
  18.     lea ax,ds:[bx+61h]      ;mov ax,64h
  19. l0:        
  20.     lea di,[di-323]         ;sub di,323
  21.     xor ah,al
  22.     stosw
  23.     stosb
  24.     dec bx
  25.     jnz l0
  26.     xor di,ax
  27.     loop l
  28.  
  29.     xchg ax,cx
  30.     int 16h
  31.     mov al,3        ;change...
  32.     cbw             ;mov ax,3
  33.     int 10h
  34.     mov ax,1112h
  35.     int 10h
  36.     ret             ;quit
  37.  
  38. end debut
  39.