home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / TIMESRC.ZIP / L0P8.M < prev    next >
Text File  |  1994-02-23  |  2KB  |  68 lines
  1.  
  2. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  3. ; DATA
  4. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  5. align 4
  6. d8tile          dd      ?
  7.  
  8. d8loc           dw      0e000h
  9. d8locd          dw      02000h
  10.  
  11. d8locdtbl       dw      02000h,00020h,0e000h,0ffe0h,02000h,00020h,0e000h
  12.                 dw      0ffe0h,02000h,00020h,0e000h,0ffe0h,02000h,00020h
  13.                 dw      0e000h, 0
  14.  
  15. d8cntr          db      8
  16. d8index         db      0
  17.  
  18. d8cntrtbl       db      8,7,7,6,6,5,5, 4,4,3,3,2,2,1, 1, 1
  19.  
  20. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  21. ; CODE
  22. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  23.  
  24. ;═════════════════════════════════════════════════════════════════════════════
  25. p80:
  26.         movzx edi,d8loc
  27.         add di,d8locd
  28.         mov d8loc,di
  29.         dec d8cntr
  30.         jnz short p80f0
  31.         movzx edx,d8index
  32.         inc edx
  33.         and dl,15
  34.         mov d8index,dl
  35.         mov al,d8cntrtbl[edx]
  36.         mov d8cntr,al
  37.         mov ax,d8locdtbl[edx*2]
  38.         mov d8locd,ax
  39.         jnz short p80f0
  40.         mov d8loc,0
  41.         push offset setnext
  42. p80f0:
  43.         mov esi,d8tile
  44.         and esi,0ffffff00h
  45.         mov eax,256-32
  46.         add edi,_bufptr
  47. rept 31
  48.         movsd
  49.         movsd
  50.         movsd
  51.         movsd
  52.         movsd
  53.         movsd
  54.         movsd
  55.         movsd
  56.         add edi,eax
  57. endm
  58.         movsd
  59.         movsd
  60.         movsd
  61.         movsd
  62.         movsd
  63.         movsd
  64.         movsd
  65.         movsd
  66.         ret
  67.  
  68.