;
; PRINT MACRO - OUTPUT THE GIVEN ERROR MESSAGE.
;		IF 'DIE' MERELY CLEARS THE STACK
;		AND RTS'S THEN CONTROL RETURNS TO
;		WHERE THE ERROR OCCURED.
;
	.MACRO	PERR MES,?L1,?L2
	.MCALL	PSTR
	CALL	L1
	BR	L2
L1:	JSR	R0,QUTERR
	PSTR	^^MES^
	CALL	QUTPC
	JMP	DIE
L2:
	.ENDM