home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / TIMESRC.ZIP / L0P7.M < prev    next >
Text File  |  1994-02-21  |  2KB  |  61 lines
  1.  
  2. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  3. ; DATA
  4. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  5. align 4
  6. d7loc           db      0,0
  7. d7sinloc        db      0
  8.  
  9. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  10. ; CODE
  11. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  12.  
  13. ;═════════════════════════════════════════════════════════════════════════════
  14. p70:
  15.         mov ebx,offset sincos0
  16.         mov eax,4040404h
  17.         mov bl,d7sinloc
  18.         mov dh,d7loc[0]
  19.         xor dl,dl
  20.         mov ch,1
  21.         call p70r0
  22.         mov d7loc[0],dh
  23.         sub bl,16
  24.         mov dh,d7loc[1]
  25.         mov dl,80h
  26.         mov ch,-1
  27.         call p70r0
  28.         mov d7loc[1],dh
  29.         mov d7sinloc,bl
  30.         or dh,dh
  31.         jz setnext
  32.         ret
  33.  
  34. ;-----------------------------------------------------------------------------
  35. p70r0:
  36.         mov esi,4
  37. p70r0l0:
  38.         mov cl,[ebx]
  39.         add bl,4
  40.         shr cl,3
  41.         mov edi,edx
  42.         add di,cx
  43.  
  44. rept 14
  45.         add dword ptr fs:[di],eax
  46.         add dword ptr fs:[di+4],eax
  47.         add dword ptr fs:[di+8],eax
  48.         add dword ptr fs:[di+12],eax
  49.         add di,100h
  50. endm
  51.         add dword ptr fs:[di],eax
  52.         add dword ptr fs:[di+4],eax
  53.         add dword ptr fs:[di+8],eax
  54.         add dword ptr fs:[di+12],eax
  55.  
  56.         add dh,ch
  57.         dec esi
  58.         jnz p70r0l0
  59.         ret
  60.  
  61.