.org $0
reset:
	cps
	lda #1
	ldb #1
main:
	jsr (rot)
	jmp main

rotate_left:
	rlb
	rts

rotate_right:
	rrb
	rts

.org $1000
rot:
	.qword rotate_left
r
.org $0
v
.org $1000
v
done