DText	BYTE	"Ausnahme: Division durch null",#A,0
Mask	OCTA	#00000000FFFFFFFF

mask		IS	$1	 neuer stack frame
rop		IS	$2
h 		IS 	$3	

DHandl	GETA		$255,DText
		TRAP		0,Fputs,StdOut
		SET 		h,#0123
		PUT     	rZ,h		Ergebnis!
		LDO		mask,Mask
		GET		rop,rX
		AND		rop,rop,mask
		SETH		mask,#0200
		OR		rop,rop,mask
		PUT		rX,rop	Ergebnis speichern 
		POP		0