; super colour changer

.include '\\incfiles\\msg.inc'

main:	movea.l	#$13a30,a0			; start
	move.l	#($15930-$13a30)>>1-1,d2	; length

.lp0:	cmp.w	(a0),d0
	bne.b	.don
	move.w	d1,(a0)
.don:	addq	#2,a0
	dbra	d2,.lp0

	bra	main

input:	message "Set d0 to colour to change, d1 to new colour."
