LOC	#100

	PREFIX	Fibo:
num	IS	$0	Parameter
RA	IS	$1	R"ucksprungadresse
temp	IS	$2
Par1	IS	$3
Par2	IS	$4
:Fib	CMP	temp,num,2
	PBN	temp,1F
	GET	RA,:rJ	sichern der R"ucksprungadresse
	SUB	Par1,num,1
	PUSHJ	temp,:Fib	erster rekursiver Aufruf
	SUB	Par2,num,2
	PUSHJ	Par1,:Fib	zweiter rekursiver Aufruf
	ADDU	num,temp,Par1	R"uckgabewert
	PUT	:rJ,RA
1H	POP	1,0
	
	PREFIX	:
Main	SET	$1,7	7. Fibo.-Zahl zu berechnen
	PUSHJ	$0,Fib
	TRAP	0,Halt,0