home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / SetColor.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  250 b   |  13 lines
  1. ;SetColor routine, © NoLimits in 1988
  2. ;should be used together with the ShowPic routine
  3.  
  4.  
  5. setcolors:
  6.     move.l    #piccyend,a0    ;a0=end of picture
  7.     sub.l    #64,a0        ;2^(ant.planes+1)
  8.     move.l    #$dff180,a1
  9.     move.l    #31,d0
  10. sc1:    move    (a0)+,(a1)+
  11.     dbf    d0,sc1
  12.     rts    
  13.