.TITLE	QUTERR - START AN ERROR ROUTINE
;
;	QUTERR - SAVE REGISTERS AND CALL ERRPFX
;	QUTERD - SAME AS ABOVE, AND ALSO SAVES $DSW IN QUTDSW
;
;CALL:
;	JSR	R0,QUTERR
;
;
	.MCALL	ENTER
;
;
QUTERD::MOV	$DSW,QUTDSW
QUTERR::ENTER	R1,R2,R3,R4,R5	;SAVE THE REST OF THE REGISTERS
				;(R0 SAVED BY CALL)
	CALL	ERRPFX		;AND START OFF ERROR PROCESSING
	MOV	12(SP),-(SP)	;(R1,R2,R3,R4,R5)+(R0) - RESTORE R0
	RTS	R0		;RETURN
;
;
	.END