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