home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / TIMESRC.ZIP / L0P4.M < prev    next >
Text File  |  1994-02-18  |  2KB  |  75 lines
  1.  
  2. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  3. ; DATA
  4. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  5. align 2
  6. d4loc           dw      7e7eh
  7. d4locd          dw      -2
  8.  
  9. d4len           db      1
  10. d4lend          db      1
  11. d4color         db      7fh
  12.  
  13. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  14. ; CODE
  15. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  16.  
  17. ;═════════════════════════════════════════════════════════════════════════════
  18. p40:
  19.         mov bp,d4loc
  20.         mov edi,ebp
  21.         mov esi,ebp
  22.         movzx edx,d4len
  23.         mov ecx,edx
  24.         mov al,41h
  25.         sub al,dl
  26.         cmp al,40h
  27.         adc al,3fh
  28.         mov ah,al
  29. p40l0:
  30.         mov fs:[di],ax
  31.         mov fs:[si],ax
  32.         mov fs:[di+256],ax
  33.         mov fs:[si+256],ax
  34.         add di,202h
  35.         sub si,1feh
  36.         dec ecx
  37.         jnz p40l0
  38.         mov ecx,edx
  39.         dec ecx
  40.         jz short p40f0
  41.         sub di,400h
  42.         add si,400h
  43. p40l1:
  44.         mov fs:[di],ax
  45.         mov fs:[si],ax
  46.         mov fs:[di+256],ax
  47.         mov fs:[si+256],ax
  48.         sub di,1feh
  49.         add si,202h
  50.         dec ecx
  51.         jnz p40l1
  52.  
  53. p40f0:
  54.         add bp,d4locd
  55.         add dl,d4lend
  56.         jnz short p40f1
  57.         mov bp,7e7eh
  58.         mov dl,1
  59.         mov d4locd,-2
  60.         mov d4lend,1
  61.         push offset setnext
  62.         jmp short p40d
  63. p40f1:
  64.         cmp dl,42h
  65.         jb short p40d
  66.         mov bp,0fe7eh
  67.         mov dl,41h
  68.         mov d4locd,2
  69.         mov d4lend,-1
  70. p40d:
  71.         mov d4loc,bp
  72.         mov d4len,dl
  73.         ret
  74.  
  75.