$*$ Einsprung f"ur Division durch 0 LOC #10 PUSHJ $255,DHandl GET $255,rB bootstrap-Register 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 DHandl GETA $255,DText TRAP 0,Fputs,StdOut POP 0