$*$ Einsprung f"ur Division durch 0
		LOC 	#10
		PUSHJ	$255,DHandl
		GET		$255,rB		{\tt \$255} restaurieren
		RESUME	0			R"uckkehr vom trip

$*$ Hauptprogramm
		LOC		#100
Main		SET		$4,#ff00	arithmetische Ausnahmen zulassen
		PUT		rA,$4
		SET		$0,0;	
		SET		$1,1;	
		SET		$2,2
		DIV		$2,$1,$0	Division durch 0
		TRAP	0,Halt,0

$*$ Hier kommt der eigentliche Interrupt-Handler
DText	BYTE	"Ausnahme: Division durch null",#A,0
Mask		OCTA	#00000000FFFFFFFF

mask		IS		$1	neuer stack frame
rop		IS		$2

DHandl	GETA		$255,DText
		TRAP	0,Fputs,StdOut 
		LDO		mask,Mask
		GET		rop,rX
		AND		rop,rop,mask
		PUT		rX,rop	wiederhole die Instruktion

		POP		0