; Example program for a trap handler routine
;
; Peter Christen, 5 April 2004
;


TT7I:   data   7        ;  /* TTI for ignore trap #7 */
        data   -2       ;   

TT7D:   data   7        ;  /* TTI for restore trap #7 */
        data   -1       ; 

main:

        loada  TT7I     ;  /* redefine trap #7 to ignore */
        trap   #9       ;  /* from here, ignore overflow */

        load   #511     ;  /* generate trap #7 via */
        mul    #511     ;  /* exception; sets OV only */

        loada  TT7D     ;  /* restore trap #7 */
        trap   #9       ;  /* from here, default action (abort) */

        load   #511     ;  /* generate trap #7 via */
        mul    #511     ;  /* exception; abort should happen */

	trap #1
	end    main