Mercurial > repos > blastem
comparison fib.s68 @ 0:2432d177e1ac
Initial work on M68K instruction decoding
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 29 Oct 2012 01:18:38 -0700 |
parents | |
children | 5a2c1da6dd0f |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:2432d177e1ac |
---|---|
1 lea 0, a7 | |
2 moveq #10, d0 | |
3 bsr fib | |
4 illegal | |
5 fib: | |
6 cmp #2, d0 | |
7 blt base | |
8 subq #1, d0 | |
9 move.l d0, -(a7) | |
10 bsr fib | |
11 move.l (a7), d1 | |
12 exg d0, d1 | |
13 move.l d1, (a7) | |
14 subq #1, d0 | |
15 bsr fib | |
16 move.l (a7)+, d1 | |
17 add.l d1, d0 | |
18 rts | |
19 base: | |
20 moveq #1, d0 | |
21 rts |