main fib.s68
 1    dc.l $0, start
 2start:
 3	moveq #42, d0
 4	bsr fib
 5	reset
 6fib:
 7	cmp.l #2, d0
 8	blt base
 9	subq.l #1, d0
10	move.l d0, -(a7)
11	bsr fib
12	move.l (a7), d1
13	exg d0, d1
14	move.l d1, (a7)
15	subq.l #1, d0
16	bsr fib
17	move.l (a7)+, d1
18	add.l d1, d0
19	rts
20base:
21	moveq #1, d0
22	rts