programs/fib.pal


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

/ vim: set sw=8 noexpandtab :

*200

LOOP,	CLA
	TAD N
	TAD NPLUS1
	DCA NPLUS2
	TAD NPLUS1
	DCA N
	TAD NPLUS2
	DCA NPLUS1
	JMP LOOP

*300

N,	0
NPLUS1,	1
NPLUS2,	0