; Variables for thread 0.
.org $1000
x:
	.qword 0
y:
	.qword 1
z:
	.qword 0
zero:
	.qword 0

.org 0
init:
	cps		; Clear the Processor Status register.
start:
	lsr #63		; Reset the accumulator.
	tab		;
	tax		;
	tay		;
	inb		;
	clc		;
fib:
	tya		;
	aab		; Add x with y. But did we also carry over?
	bcs start	; Yes, so restart.
	tax		;
	tya		;
	tab		;
	txa		;
	tay		;
	jmp fib		; No, so keep looping.
a
done