home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / TIMESRC.ZIP / L1P1.M < prev    next >
Text File  |  1994-02-20  |  2KB  |  91 lines
  1.  
  2. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  3. ; DATA
  4. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  5. align 4
  6. d1fishframetbl  dd      cspr03,cspr04
  7. d1fishseed      dd      10010111010010101101111011000010b
  8.  
  9. d1fishx         dw      10 dup(0)
  10. d1fishy         dw      10 dup(?)
  11. d1fishframe     db      10 dup(0)
  12.  
  13. d1fishyaddtbl   db      -100,0,0,100
  14.  
  15. d1fishendcntr   db      10
  16. d1fishinitcntr  db      10
  17. d1fishinitcntr2 db      1
  18.  
  19. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  20. ; CODE
  21. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  22.  
  23. ;═════════════════════════════════════════════════════════════════════════════
  24. p10:                                    ; fishies
  25.         mov ebp,_vidptr
  26.         sub ebp,5
  27.         mov esi,9
  28.         mov ecx,d1fishseed
  29. p10l0:
  30.         movzx edi,d1fishx[esi*2]
  31.         sub edi,3
  32.         jc p10l0c
  33.         mov d1fishx[esi*2],di
  34.         jnz short p10l0f0
  35.         dec d1fishendcntr
  36.         jnz short p10l0c
  37.         mov d1fishendcntr,10
  38.         mov d1fishinitcntr,10
  39.         jmp setnext
  40. p10l0f0:
  41.         mov eax,edi
  42.         and eax,3
  43.         mov al,vidbittbl2[eax]
  44.         shr edi,2
  45.         add edi,ebp
  46.         movzx ebx,cl
  47.         and bl,3
  48.         movsx ebx,d1fishyaddtbl[ebx]
  49.         movzx edx,d1fishy[esi*2]
  50.         add ebx,edx
  51.         cmp ebx,100*183
  52.         ja short p10l0f1
  53.         mov edx,ebx
  54. p10l0f1:
  55.         mov d1fishy[esi*2],dx
  56.         add edi,edx
  57.         ror ecx,11
  58.         adc ecx,12345671h
  59.         mov dx,3c5h
  60.         movzx ebx,d1fishframe[esi]
  61.         xor bl,1
  62.         mov d1fishframe[esi],bl
  63.         call d1fishframetbl[ebx*4]
  64. p10l0c:
  65.         add ecx,esi
  66.         sub esi,1
  67.         jnc p10l0
  68.  
  69.         movzx edx,d1fishinitcntr
  70.         sub dl,1
  71.         jc short p1f0
  72.         dec d1fishinitcntr2
  73.         jnz short p1f0
  74.         mov d1fishinitcntr,dl
  75.         mov al,cl
  76.         and al,15
  77.         add al,4
  78.         mov d1fishinitcntr2,al
  79.         mov d1fishx[edx*2],342
  80.         movzx eax,ch
  81.         and al,7fh
  82.         add al,27
  83.         imul eax,100
  84.         mov d1fishy[edx*2],ax
  85.         ror ecx,5
  86.         adc ecx,59f4132fh
  87. p1f0:
  88.         mov d1fishseed,ecx
  89.         ret
  90.  
  91.