.TITLE	CS1ERR - CSI PHASE 1 ERROR MESSAGE PRINTER
;
;	CS1ERR - PRINT ERRORS RESULTING FROM CSI PHASE 1
;
;CALL:
;	CSI$1	...
;	BCC	.+4
;	CALL	CS1ERR
;
;
	.MCALL	PSTR,TTYOUT
	.MCALL	CSI$
;
;
	CSI$
;
;
CS1ERR::JSR	R0,QUTERR	;INITIAL ERROR HANDLING
	PSTR	^*/COMMAND LINE SYNTAX ERROR/*
	CALL	QUTPC
	TTYOUT	C.FILD+2(R0),C.FILD(R0)
	JMP	DIE
;
;
	.END