home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / flicker.arc / STRETCH.ASM < prev    next >
Assembly Source File  |  1985-11-20  |  515b  |  34 lines
  1. ;    :ts=10
  2.  
  3.     ; stretch(s, d, scount, dcount)
  4. firstp    equ    2+4
  5. s    equ    firstp
  6. d    equ    firstp+4
  7. scount    equ    firstp+8
  8. dcount    equ    firstp+10
  9.     public _stretch
  10. _stretch
  11.     move.w    d3,-(sp)
  12.     move.l    s(sp),a0
  13.     move.l    d(sp),a1
  14.     move.w    scount(sp),d0
  15.     move.w    dcount(sp),d1
  16.     move.w    d1,d2    ; "dot count"
  17.     move.w    d1,d3
  18.     neg.w    d3
  19. incdest    
  20.     subq.w    #1,d2
  21.     bmi    endstretch
  22.     move.b    (a0),(a1)+
  23.     add.w    d0,d3
  24.     bmi    incdest
  25. incsource    
  26.     addq    #1,a0
  27.     sub.w    d1,d3
  28.     bpl    incsource
  29.     bra    incdest
  30. endstretch
  31.     move.w    (sp)+,d3
  32.     rts
  33.  
  34.