;
; fibo.p -- preprocessor test
;

	xdef	fibo

fibo	move.w	d2,-(sp)
	move.w d0,d2
	beq if.000
	move.w #1,d0
	move.w #0,d1
beg.001
	sub.w #1,d2
	beq whl.002
	exg.w d1,d0
	add.w d1,d0
	bra beg.001
whl.002
if.000
	move.w (sp)+,d2
	rts

	end