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