home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / TIMESRC.ZIP / L1P3.M < prev    next >
Text File  |  1994-02-18  |  2KB  |  72 lines
  1.  
  2. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  3. ; DATA
  4. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  5. align 4
  6. d3happyseed     dd      10010110100100111001011100101110b
  7.  
  8. d3happyloc      dw      16 dup(0);-5)
  9. d3happybit      db      16 dup(11h)
  10.  
  11. d3happyindex    db      0
  12. d3happymloc     dw      -80
  13.  
  14. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  15. ; CODE
  16. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  17.  
  18. ;═════════════════════════════════════════════════════════════════════════════
  19. p30:
  20.         mov ebp,_vidptr
  21.         mov esi,15
  22.         mov dx,3c5h
  23. p30l0:
  24.         movzx edi,d3happyloc[esi*2]
  25.         add edi,ebp
  26.         mov al,d3happybit[esi]
  27.         call cspr09
  28.         sub esi,1
  29.         jnc p30l0
  30.  
  31.         mov ebp,d3happyseed
  32.         movzx edx,d3happyindex
  33.         inc edx
  34.         and dl,0fh
  35.         mov d3happyindex,dl
  36.         movsx ebx,d3happymloc
  37. p30l1:
  38.         mov eax,ebp
  39.         and eax,3fh
  40.         add eax,ebx
  41.         cmp eax,320
  42.         jl short p30l1f1
  43.         mov eax,320
  44. p30l1f1:
  45.         shld ecx,ebp,26
  46.         movzx ecx,cl
  47.         cmp cl,200-12
  48.         jb short p30l1f0
  49.         sub cl,156
  50. p30l1f0:
  51.         imul ecx,400
  52.         lea ecx,[ecx+eax+400]
  53.         mov eax,ecx
  54.         shr ecx,2
  55.         mov d3happyloc[edx*2],cx
  56.         and eax,3
  57.         mov al,vidbittbl2[eax]
  58.         mov d3happybit[edx],al
  59.         ror ebp,9
  60.         lea ebp,[ebp+edx+123457h]
  61.  
  62.         add ebx,7
  63.         cmp ebx,320+7*16
  64.         jl short p30d
  65.         push offset setnext
  66.         mov ebx,-80
  67. p30d:
  68.         mov d3happyseed,ebp
  69.         mov d3happymloc,bx
  70.         ret
  71.  
  72.