ShadeRGB2: ;shades a0-a1->a2.d0=step(0-16),d1=dstmod,d2=cols-1. RGB-bytes! move.b (a0)+,d3 ;R move.b (a1)+,d4 ext.w d3 ext.w d4 sub.w d3,d4 muls d0,d4 asr.w #4,d4 add.w d4,d3 move.w d3,d5 move.b (a0)+,d3 ;G move.b (a1)+,d4 ext.w d3 ext.w d4 sub.w d3,d4 muls d0,d4 asr.w #4,d4 add.w d4,d3 lsl.w #4,d5 or.w d3,d5 move.b (a0)+,d3 ;B move.b (a1)+,d4 ext.w d3 ext.w d4 sub.w d3,d4 muls d0,d4 asr.w #4,d4 add.w d4,d3 lsl.w #4,d5 or.w d3,d5 move.w d5,(a2)+ add.w d1,a2 dbf d2,ShadeRGB2 RTS