Mercurial > repos > blastem

comparison fib.s68 @ 1:5a2c1da6dd0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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: