test/ind-addr.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


.org 0
rot:
	.qword 0

.org $1000
reset:
	cps
	ldb #1
	lda.w #rotate_left
	sta.q rot
	tba
main:
	jsr (rot)
	jmp main

rotate_left:
	rol b
	rts

rotate_right:
	ror b
	rts

.org $FFC0
.qword reset

a
d