home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / TIMESRC.ZIP / L1P7.M < prev    next >
Text File  |  1994-02-24  |  2KB  |  108 lines
  1.  
  2. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  3. ; DATA
  4. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  5. align 4
  6. d7cspr          dd      cspr16
  7.  
  8. d7csprtbl       dd      cspr16,cspr0a,cspr17
  9.  
  10. d7x             dd      0
  11.  
  12. d7ecc           dw      4040h
  13. d7eccd          dw      0ffffh
  14.  
  15. d7cspri         db      0
  16. d7ecccntr       db      3
  17. d7xd            db      2
  18. d7phase         db      0
  19.  
  20. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  21. ; CODE
  22. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  23.  
  24. ;═════════════════════════════════════════════════════════════════════════════
  25. p70:
  26.         mov eax,d7x
  27.         movsx ebx,d7xd
  28.         add eax,ebx
  29.         mov d7x,eax
  30.         jz short p7f0
  31.         cmp eax,470
  32.         jb short p7f1
  33. p7f0:
  34.         neg bl
  35.         mov d7xd,bl
  36.         movzx eax,d7cspri
  37.         inc al
  38.         cmp al,3
  39.         jb short p7f6
  40.         xor al,al
  41. p7f6:
  42.         mov d7cspri,al
  43.         mov eax,d7csprtbl[eax*4]
  44.         mov d7cspr,eax
  45.         jmp setnext
  46. p7f1:
  47.  
  48.         mov cx,d7ecc
  49.         mov bx,d7eccd
  50.         add cl,bl
  51.         cmp cl,10h
  52.         je short p7f2
  53.         cmp cl,40h
  54.         jne short p7f3
  55. p7f2:
  56.         neg bl
  57. p7f3:
  58.         dec d7ecccntr
  59.         jnz short p7f5
  60.         mov d7ecccntr,3
  61.         add ch,bh
  62.         cmp ch,10h
  63.         je short p7f4
  64.         cmp ch,40h
  65.         jne short p7f5
  66. p7f4:
  67.         neg bh
  68. p7f5:
  69.         mov d7ecc,cx
  70.         mov d7eccd,bx
  71.  
  72.         mov eax,40h
  73.         sub al,cl
  74.         imul ebp,eax,100
  75.         add ebp,_vidptr
  76.  
  77.         mov edx,703c5h
  78.         mov ebx,offset sincos0
  79.         mov bl,d7phase
  80.         add bl,5
  81.         mov d7phase,bl
  82. p7l0:
  83.         movzx eax,byte ptr [ebx]
  84.         mul cl
  85.         shr eax,7
  86.         imul edi,eax,100
  87.         add bl,40h
  88.         movzx eax,byte ptr [ebx]
  89.         mul ch
  90.         shr eax,7
  91.         add eax,d7x
  92.         sub eax,128
  93.         cmp eax,340
  94.         jae short p7l0c
  95.         mov esi,eax
  96.         sar eax,2
  97.         add edi,eax
  98.         lea edi,[edi+ebp+100*26-5]
  99.         and esi,3
  100.         mov al,vidbittbl2[esi]
  101.         call d7cspr
  102. p7l0c:
  103.         add bl,32-40h
  104.         sub edx,10000h
  105.         jnc p7l0
  106.         ret
  107.  
  108.