home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / TIMESRC.ZIP / L0P1.M < prev    next >
Text File  |  1994-02-17  |  2KB  |  64 lines
  1.  
  2. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  3. ; DATA
  4. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  5. d1counter       db      0
  6.  
  7. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  8. ; CODE
  9. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  10.  
  11. ;═════════════════════════════════════════════════════════════════════════════
  12. p10:                                    ; random perpendicular lines
  13.         mov edi,_bufptr
  14.         movzx edx,d1counter
  15.         mov ebx,edx
  16.         mov cl,16
  17.         mov ax,4040h
  18. p10l0:
  19.         mov [edi+ebx],ax
  20.         mov [edi+ebx+256],ax
  21.         add ax,404h
  22.         add bx,97*256+97
  23.         dec cl
  24.         jnz p10l0
  25.         mov ebx,edx
  26.         mov bh,33h
  27.         neg bl
  28.         mov cl,16
  29.         mov ax,4242h
  30. p10l1:
  31.         mov [edi+ebx],ax
  32.         mov [edi+ebx+256],ax
  33.         add ax,404h
  34.         add bx,17*256+223
  35.         dec cl
  36.         jnz p10l1
  37.         mov bh,dl
  38.         mov bl,57h
  39.         mov cl,16
  40.         mov ax,4141h
  41. p10l2:
  42.         mov [edi+ebx],ax
  43.         mov [edi+ebx+256],ax
  44.         add ax,404h
  45.         add bx,111*256+17
  46.         dec cl
  47.         jnz p10l2
  48.         mov bh,dl
  49.         neg bh
  50.         mov bl,0a9h
  51.         mov cl,16
  52.         mov ax,4343h
  53. p10l3:
  54.         mov [edi+ebx],ax
  55.         mov [edi+ebx+256],ax
  56.         add ax,404h
  57.         add bx,203*256+117
  58.         dec cl
  59.         jnz p10l3
  60.         dec d1counter
  61.         jz setnext
  62.         ret
  63.  
  64.