LOC	#100
Err	BYTE	"Mangelnde Konvergenz"
EPS	OCTA	#3ddb7cdfd9d7bdbb	\relax $10^{-10}$
PI	OCTA	#400921fb54442d18	\relax $\pi$
x	IS	$0
it	IS	$1	Z"ahler f"ur Anzahl Iterationen
eps	IS	$2	\relax $\epsilon$
z	IS	$3	Hilfsgr"o"se Z"ahler
n	IS	$4	Hilfsgr"o"se Nenner
temp	IS	$5
par	IS	$6

Main	LDO	x,PI
	FLOT	temp,4
	FDIV	x,x,temp	setze $x=\pi/4$
	LDO	eps,EPS
	SET	par,x	berechne $f(x)$ 
	PUSHJ	temp,f
	SET	z,temp
1H	INCL	it,1
	CMP	temp,it,101	max. 100 Iterationen
	BZ	temp,2F
	SET	par,x
	PUSHJ	temp,fstr berechne $f^\prime(x)$
	SET	n,temp
	FDIV	z,z,n
	FSUB	x,x,z
	SET	par,x
	PUSHJ	temp,f	berechne $f(x)$
	SET	z,temp
	FCMP	temp,z,eps	ist $f(x)<\epsilon$?
	PBP	temp,1B
	SET	par,x
	PUSHJ	temp,Ausgabe
	TRAP	0,Halt,0
2H	LDA	$255,Err
	TRAP	0,Fputs,StdErr
	TRAP	0,Halt,0