.org 0
count:
	.res 8
.org $40000
mem:
	.res 256

.org $8000
reset:
	cps
	lds.d #$3FFFF
	mov a, #10
	and #0
	tay
	xor b, b
	xor.q count, count
;	cmp.q (count), y
	cmp.qo (count), y
	lea.o (count), y
	lea mem
loop:
	inc b
	inc.q count
;	mov.q e, count
	mov (b+e), b
	set a, eq
	mov a, (b+e)
	bra loop

.org $FFC0
.qword reset

a
;.org reset
;v
;q
d