.TITLE	T4
	.IDENT	/V01.00/

	.MCALL	.EXIT,.PRINT,.TRPSET	;SYSTEM MACROS

START::	.TRPSET	#AREA,#TRINT		;CATCH TRAPS THRU 4/10
	MOV	#160000,R3		;SRC (NONEXISTENT MEMORY)
	MOV	#10000,R4		;DST
	MOV	(R3)+,(R4)+		;MOVE
	.PRINT	#OOPS			;SHIT HAPPENS
	.EXIT				;EXIT

TRINT::	MOV	#BUFF,R0		;BUFFER
	MOV	#FMTS,R1		;FORMAT
	MOV	#AREA+4,R2		;ARGS
	MOV	R4,-(R2)		;...
	MOV	R3,-(R2)		;...
	CALL	$EDMSG			;EDIT
	.PRINT	#BUFF			;PRINT
	.EXIT				;EXIT

AREA:	.BLKW	2			;EMT AREA/ARG BLOCK
BUFF:	.BLKB	80.			;BUFFER

OOPS:	.ASCIZ	/SHIT HAPPENS/
FMTS:	.ASCIZ	/R3=%P, R4=%P/

	.END	START