home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / utility / zoom / qblit.s < prev    next >
Encoding:
Text File  |  1993-10-22  |  562 b   |  32 lines
  1.         csect    program
  2.  
  3.         xdef    @qblit
  4.  
  5. *
  6. * Copy the zoomed array onto the screen
  7. *
  8. * void
  9. * qblit(short *screen, void *zoomed, short width)
  10. *
  11. * Lattice requires that functions preserve d2-d7/a2-6
  12. *
  13. @qblit
  14.         swap.w    d0
  15.         clr.w    d0
  16.         swap.w    d0
  17.         sub.l    #12,d0        After each line, we need to add width - 12
  18.         move.w    #127,d1        128 lines to copy
  19. doline
  20.         move.l    (a1)+,(a0)+
  21.         move.l    (a1)+,(a0)+
  22.         move.l    (a1)+,(a0)+
  23.         move.l    (a1)+,(a0)
  24.         adda.l    d0,a0        Down one line and back to the start of the line
  25.         dbra    d1,doline
  26.  
  27.         rts
  28.  
  29.         end
  30.  
  31. * End of qblit.s
  32.