home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / BOUNCHSRCS.LZH / cyclop.S < prev    next >
Encoding:
Text File  |  1987-05-18  |  383 b   |  12 lines
  1. * Scroll data upwards! (for example a cycle in the copper!)
  2.  
  3. move.w #59,d0    ;How many steps to scroll! (minus one)
  4. lea $40000,a0    ;Where to scroll
  5. move.w (a0),d1    ;save higest number
  6. Sc_Scroll:
  7. move.w 8(a0),(a0)    ;move up one step! (the 8 can be different!)
  8. addi.l #8,a0        ;numbers of bytes to the next step!
  9. dbf d0,sc_scroll
  10. move.w d1,(a0)        ;put the saved data to the lowest number
  11. rts
  12.