Mercurial > repos > blastem

comparison fib.s68 @ 0:2432d177e1ac

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