Mercurial > repos > blastem

view fib.s68 @ 1677:b1ad6339de4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Old changes to OLP analyzer script for analyzing Z80 memory requests
author Michael Pavone <pavone@retrodev.com>
date Fri, 04 Jan 2019 19:13:47 -0800
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