test/ortho.s


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36


.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
	mov a, (b+e)
	bra loop

.org $FFC0
.qword reset

a
;.org reset
;v
;q
d