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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54


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

.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
	nop
	lea d, $2000
	nop
	lea d, (mem+d)
	lea bitabl, mem
;	mov (bitabl)+a, 0
	mov (d-128), #0
	lea d, (8*a+e)
	lea s, count
	mov (e), #0
	mov a, (e)
	lea d, loop
	jmp (d)
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