.TITLE	TRPSET
	.MCALL	.TRPSET,.PRINT,.EXIT

	DIVZ=67
START:	.TRPSET	#AREA,#TRPLOC
	DIVZ
	TST	@#1
	.TRPSET	#AREA,#ILLTRP
	.PRINT	#CRASH
	DIVZ
	.EXIT
TRPLOC:	BCS	1$
	.PRINT	#TRP4
	BR	2$
1$:	.PRINT	#TRP10
2$:	.TRPSET	#AREA,#TRPLOC
	RTI
ILLTRP:	INC	@#1
	RTI

AREA:	.BLKW	2
TRP4:	.ASCIZ	/TRAPPED TO 4 -- ODD ADDRESS?/
TRP10:	.ASCIZ	/TRAPPED TO 10 -- ILLEGAL INSTRUCTION?/
CRASH:	.ASCIZ	/TRAP IN TRAP -- CRASHING/
	.EVEN

	.END	START