Mercurial > repos > blastem

diff 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
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