Mercurial > repos > blastem

view fib.s68 @ 19:4717146a7606

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial support for M68k reset vector, rather than starting at an arbitrary address
author Mike Pavone <pavone@retrodev.com>
date Tue, 04 Dec 2012 19:25:54 -0800
parents 5a2c1da6dd0f
children f664eeb55cb4
line wrap: on
line source

    dc.l $0, start
start:
	moveq #10, 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