Mercurial > repos > blastem
comparison fib.s68 @ 1:5a2c1da6dd0f
Make sure all operations are long-word length on fib example.
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 03 Nov 2012 21:37:38 -0700 |
parents | 2432d177e1ac |
children | 4717146a7606 |
comparison
equal
deleted
inserted
replaced
0:2432d177e1ac | 1:5a2c1da6dd0f |
---|---|
1 lea 0, a7 | 1 lea 0, a7 |
2 moveq #10, d0 | 2 moveq #10, d0 |
3 bsr fib | 3 bsr fib |
4 illegal | 4 illegal |
5 fib: | 5 fib: |
6 cmp #2, d0 | 6 cmp.l #2, d0 |
7 blt base | 7 blt base |
8 subq #1, d0 | 8 subq.l #1, d0 |
9 move.l d0, -(a7) | 9 move.l d0, -(a7) |
10 bsr fib | 10 bsr fib |
11 move.l (a7), d1 | 11 move.l (a7), d1 |
12 exg d0, d1 | 12 exg d0, d1 |
13 move.l d1, (a7) | 13 move.l d1, (a7) |
14 subq #1, d0 | 14 subq.l #1, d0 |
15 bsr fib | 15 bsr fib |
16 move.l (a7)+, d1 | 16 move.l (a7)+, d1 |
17 add.l d1, d0 | 17 add.l d1, d0 |
18 rts | 18 rts |
19 base: | 19 base: |