.TITLE	HERSER	-- TEST .HERR AND .SERR
	.MCALL	.PRINT,.HERR,.SERR,.EXIT
	.NLIST	BEX

START:	.PRINT	#DEFALT
	EMT	0
	.SERR
	.PRINT	#SERR
	EMT	0
	CMPB	ERRBYT,#-11
	BEQ	10$
	.PRINT	#FAILED
10$:	.HERR
	.PRINT	#HERR
	EMT	0
	.EXIT

DEFALT:	.ASCIZ	/DEFAULT IS HARD ERROR PROCESSING. SHOULD TRAP NOW:/
SERR:	.ASCIZ	/SWITCH TO SOFT PROCESSING. NO TRAP/
FAILED:	.ASCIZ	/? SOFT PROCESSING DIDN'T GIVE ERROR -11 ?/
HERR:	.ASCIZ	/BACK TO HARD ERRORS. SHOULD TRAP/
	.EVEN
	.END	START