home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / TIMESRC.ZIP / L0P3.M < prev    next >
Text File  |  1994-02-19  |  2KB  |  66 lines
  1.  
  2. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  3. ; DATA
  4. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  5. align 4
  6. d3tile          dd      ?,?,?,?
  7. d3sizeseed      dd      10010111010010101101111011000010b
  8.  
  9. d3loc           dw      53c7h
  10. d3locd          dw      137eh
  11.  
  12. d3size          db      0
  13. d3counter       dw      ?
  14. d3counter2      db      4
  15.  
  16. d3sizetbl       db      4,4,4,4, 5,5,6,7
  17.  
  18. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  19. ; CODE
  20. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  21.  
  22. ;═════════════════════════════════════════════════════════════════════════════
  23. p30:                                    ; growing 4 bitmaps at rnd locs
  24.         movzx edi,d3loc
  25.         mov cl,d3size
  26.         mov bl,1
  27.         shl bl,cl
  28.         movzx eax,bl
  29.         dec bl
  30.         inc cl
  31.         mov d3size,cl
  32.         mov bh,bl
  33.         mov ecx,eax
  34.         xchg cl,ch
  35.  
  36.         mov edx,d3tile[12]
  37.         call _sc_tobuf
  38.         sub di,ax
  39.         mov edx,d3tile[8]
  40.         call _sc_tobuf
  41.         sub di,cx
  42.         mov edx,d3tile[0]
  43.         call _sc_tobuf
  44.         add di,ax
  45.         mov edx,d3tile[4]
  46.         call _sc_tobuf
  47.  
  48.         dec d3counter2
  49.         jnz _ret
  50.         movzx eax,d3locd
  51.         add ax,4377h
  52.         rol ax,5
  53.         adc d3loc,ax
  54.         mov d3locd,ax
  55.         adc eax,d3sizeseed
  56.         rol eax,9
  57.         mov d3sizeseed,eax
  58.         and eax,7
  59.         mov al,d3sizetbl[eax]
  60.         mov d3counter2,al
  61.         mov d3size,0
  62.         dec d3counter
  63.         jz setnext
  64.         ret
  65.  
  66.