home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / TIMESRC.ZIP / L1P0.M < prev    next >
Text File  |  1994-02-17  |  2KB  |  57 lines
  1.  
  2. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  3. ; DATA
  4. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  5. align 4
  6. d0csprtbl       dd      cspr02,cspr01,cspr00
  7.  
  8. d0csprloctbl    dd      400*168+320,400*200,-32,400*-32+288
  9. d0csprdtbl      dw      -4,-1600,4,1600
  10. d0csprcntrtbl   db      88,58,88,58
  11.  
  12. d0csprloc       dd      400*168+320
  13. d0csprd         dw      -4
  14.  
  15. d0csprindex     db      0
  16. d0csprcntr      db      88
  17. d0csprnexti     db      0
  18.  
  19. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  20. ; CODE
  21. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  22.  
  23. ;═════════════════════════════════════════════════════════════════════════════
  24. p00:                                    ; rolling daisy
  25.         mov edi,d0csprloc
  26.         movsx eax,d0csprd
  27.         add edi,eax
  28.         mov d0csprloc,edi
  29.         mov ebx,edi
  30.         sar edi,2
  31.         add edi,_vidptr
  32.         and ebx,3
  33.         mov al,vidbittbl2[ebx]
  34.         movzx ebx,d0csprindex
  35.         sub bl,1
  36.         jnc short p00f0
  37.         mov bl,2
  38. p00f0:
  39.         mov d0csprindex,bl
  40.         mov dx,3c5h
  41.         call d0csprtbl[ebx*4]
  42.         dec d0csprcntr
  43.         jnz _ret
  44.  
  45.         movzx ebx,d0csprnexti
  46.         inc ebx
  47.         and bl,3
  48.         mov d0csprnexti,bl
  49.         mov eax,d0csprloctbl[ebx*4]
  50.         mov d0csprloc,eax
  51.         mov ax,d0csprdtbl[ebx*2]
  52.         mov d0csprd,ax
  53.         mov al,d0csprcntrtbl[ebx]
  54.         mov d0csprcntr,al
  55.         jmp setnext
  56.  
  57.