home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / W95SPCOD.ZIP / OK / IRON-DIV / SURPRISE.ASM next >
Assembly Source File  |  1995-11-04  |  1KB  |  58 lines
  1. ;  Surprise - 59 bytes !
  2. ;  by Irons and Divvy, 11/4/95
  3.  
  4.  
  5. .model tiny
  6. .code
  7.  
  8. Surprise:
  9.  
  10.         int     16h             ; read number
  11.         mov     cl,al
  12.         sub     cl,48
  13.  
  14.         mov     ax,0013h        ; switch to videomode
  15.         int     10h
  16.  
  17.         push    0A000h        ; ES = videosegment
  18.         pop     es
  19.  
  20.         jcxz    ExitLoop
  21.  
  22. OurLoop:
  23.  
  24.         mov     di,cx           ; DI = offset
  25.         shl     di,2
  26.  
  27.         mov    dx,316
  28.         mov    ax,6464h
  29.         stosw                  ; put first to pixels
  30.         cbw                    ; set ah=0
  31.         stosw                  ; put next pixel + blank
  32.         add    di,dx
  33.         stosw                  ; put pixel + blank
  34.         stosw                  ; put next pixel + blank
  35.         add    di,dx
  36.         mov    ah,al
  37.         stosw                  ; put second pair of pixels
  38.         cbw
  39.         stosw                  ; put next pixel + blank
  40.  
  41.         loop    OurLoop
  42.  
  43. ExitLoop:
  44.  
  45.         cbw                     ; mov     ah,0
  46.         int     16h             ; wait for key
  47.  
  48.         mov     ax,3            ; set 80x50 textmode
  49.         int     10h
  50.         mov     ax,1112h
  51.         int     10h
  52.  
  53.         ret
  54.  
  55. end Surprise
  56.  
  57.  
  58.