Mercurial > repos > blastem

view fib.s68 @ 1914:5b94e0e7c5a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Reading from Z80 bus when Z80 is not bus requested should return open bus. Fixes regression in Metal Sonic Rebooted
author Michael Pavone <pavone@retrodev.com>
date Thu, 02 Apr 2020 20:17:08 -0700
parents f7fe240a7da6
children b7ecd0d6a77b
line wrap: on
line source

    dc.l $0, start
start:
	moveq #42, d0
	bsr fib
	reset
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