ùúùú˙<Qg˙<Qg˙<Qg˙<Qg˙<Qg˙<Qg˙<Qg˙<Qg˙<Qg;A0-address
;D0-SourceColor
;D1-TargetColor
Fadding:		MOVEM.L	D0-D7/A1,-(SP)
			MOVEQ	#1,D6
			MOVEQ	#15,D7
			MOVE.W	D0,D5
			MOVEA.W	D1,A1
.loop:			MOVE.W	D0,D2
			AND.W	D7,D2
			MOVE.W	D1,D3
			AND.W	D7,D3
			SUB.W	D2,D3
			MULS	D6,D3
			ASR.W	#4,D3
			ADD.W	D3,D2
			MOVE.W	D2,D4
			LSR.W	#4,D0
			LSR.W	#4,D1
			MOVE.W	D0,D2
			AND.W	D7,D2
			MOVE.W	D1,D3
			AND.W	D7,D3
			SUB.W	D2,D3
			MULS	D6,D3
			ASR.W	#4,D3
			ADD.W	D3,D2
			LSL.W	#4,D2
			OR.W	D2,D4
			LSR.W	#4,D0
			LSR.W	#4,D1
			MOVE.W	D0,D2
			AND.W	D7,D2
			MOVE.W	D1,D3
			AND.W	D7,D3
			SUB.W	D2,D3
			MULS	D6,D3
			ASR.W	#4,D3
			ADD.W	D3,D2
			LSL.W	#8,D2
			OR.W	D2,D4
			MOVE.W	D4,(A0)+
			MOVE.W	D5,D0
			MOVE.W	A1,D1
			ADDQ.W	#1,D6
			CMP.W	#16,D6
			BLE.B	.loop
			MOVEM.L	(SP)+,D0-D7/A1
			RTS