	.org $4000
; load address is $4000
; exec address is $4002
addrhere:
	.byte 0,0
enterhere:
	clrb
	stab	addrhere+1
	ldx	addrhere
waividlop:
	ldaa	$bf20
	anda	#128
	bne	waividlop
lolop:
	ldaa	,x
	staa	$bf21
	anda	#128
	beq	getcolor
	; for values >= 128, change color to cyan on blue
	ldaa	#$64
	bra	stocolor
getcolor:
	ldaa	#$70	; color a attrib
stocolor:
	staa	$bf23

	ldaa	#1	; b attrib
	staa	$bf22
	tba
	lsra
	lsra
	lsra
	lsra
	lsra
	adda	#9
	staa	$bf26
	tba
	anda	#31
	staa	$bf27
	ldaa	#1
	staa	$bf28
	inx
	incb
	bne	waividlop
	rts
	.end
