; to convert coloured buttons at 1af800 to grey ones at 18f800

	movea.l	#$1af800,a0
	movea.l	#$18f800,a1
	move.l	#$1f900>>1-1,d0
	swap	d0
.lp0:	swap	d0
.lp1:	move.w	(a0)+,d1
	beq.b	.ok
	lsr.b	#1,d1
	sub.b	#$20,d1
	ext.w	d1
.ok:	move.w	d1,(a1)+	
	dbra	d0,.lp1
	swap	d0
	dbra	d0,.lp0

	illegal
