Mercurial > repos > blastem
diff 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 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/fib.s68 Mon Oct 29 01:18:38 2012 -0700 @@ -0,0 +1,21 @@ + lea 0, a7 + moveq #10, d0 + bsr fib + illegal +fib: + cmp #2, d0 + blt base + subq #1, d0 + move.l d0, -(a7) + bsr fib + move.l (a7), d1 + exg d0, d1 + move.l d1, (a7) + subq #1, d0 + bsr fib + move.l (a7)+, d1 + add.l d1, d0 + rts +base: + moveq #1, d0 + rts