.TITLE	CS2ERR - CSI PHASE 2 ERROR MESSAGE PRINTER
;
;	CS2ERR - PRINT ERRORS RESULTING FROM CSI PHASE 2
;
;CALL:
;	CSI$2	...
;	BCC	.+4
;	CALL	CS2ERR
;
;
	.MCALL	PSTR,TTYOUT
	.MCALL	CSI$
;
	CSI$
;
CS2ERR::JSR	R0,QUTERR
	PSTR	^*/BAD SWITCH OR SWITCH VALUE/*
	CALL	QUTPC
	TTYOUT	C.CMLD+2(R0),C.CMLD(R0)
	JMP	DIE
;
;
	.END