Mercurial > repos > blastem

view fib.s68 @ 474:e128e55710bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove read pending stuff, that had been added in an attempt to fix CRAM/VSRAM undefined bit results. Set number of bits actually saved in VSRAM to 11
author Mike Pavone <pavone@retrodev.com>
date Sun, 15 Sep 2013 23:33:24 -0700
parents f664eeb55cb4
children 2455662378ed f7fe240a7da6
line wrap: on
line source

    dc.l $0, start
start:
	moveq #36, d0
	bsr fib
	illegal
fib:
	cmp.l #2, d0
	blt base
	subq.l #1, d0
	move.l d0, -(a7)
	bsr fib
	move.l (a7), d1
	exg d0, d1
	move.l d1, (a7)
	subq.l #1, d0
	bsr fib
	move.l (a7)+, d1
	add.l d1, d0
	rts
base:
	moveq #1, d0
	rts