Mercurial > repos > blastem

view fib.s68 @ 1615:28f80d1b343e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Support immediate operands for ld and alu ops in SVP. Support double indirect and immediate address modes for alu ops. Fixed DSL issues revealed by those changes
author Michael Pavone <pavone@retrodev.com>
date Mon, 24 Sep 2018 19:09:16 -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