.MCALL	CALLR,DIR$
I$$ERM=1
	.TITLE	ERRPRT	-- REPORT INITIALISATION ERRORS
	.IDENT	/V0101A/
.SBTTL	DESCRIPTION
.SBTTL	MACROS AND DATA AREAS
	.IF	NE,I$$ERM
	.MCALL	QIOW$
	.NLIST	BEX
	.ENABL	LC
LEADM:	.ASCIZ	<7><7><15><12><12>/TT.... **FATAL** /
INTFM:	.ASCIZ	/ -- interface /
TERMM:	.ASCIZ	/ -- terminal /
TRLM:	.ASCIZ	<7><7><15><12>
	.DSABL	LC
	.EVEN
CODPB:	QIOW$	IO.WLB,COLUN,1,,,,<.-.,.-.,0>

.SBTTL	SUBROUTINES
.SBTTL		COPYZ	-- COPY AN ASCIZ STRING
COPYZ:	MOVB	(R1)+,(R0)+
	BNE	COPYZ
	DEC	R0
	RETURN

.SBTTL		UNPOCT	-- UNPACK OCTAL NUMBER
UNPOCT:	CLR	R2
	CALLR	$CBOMG

.SBTTL	MAIN ROUTINE
ERRPRT::MOVB	INIERR,R1
	BEQ	50$
	ASL	R1
	MOV	ERTAB-2(R1),R1
	MOVB	(R1)+,R5
	MOV	#UIT,R0
	MOV	R1,-(SP)
	MOV	#LEADM,R1
	CALL	COPYZ
	MOV	(SP)+,R1
	CALL	COPYZ
	BITB	#FF.INT,R5
	BEQ	10$
	MOV	#INTFM,R1
	CALL	COPYZ
	MOV	ERRINT,R3
	SUB	#IFCTBL,R3
	CLR	R2
	DIV	#I.SIZ,R2
	MOV	R2,R1
	CALL	UNPOCT
10$:	BITB	#FF.LIN,R5
	BEQ	20$
	MOV	#TERMM,R1
	CALL	COPYZ
	MOV	ERRLIN,R3
	SUB	#TRMTBL,R3
	CLR	R2
	DIV	#T.SIZ,R2
	MOV	R2,R1
	CALL	UNPOCT
20$:	MOV	#TRLM,R1
	CALL	COPYZ
	MOV	#UIT,R1
	SUB	R1,R0
	MOV	R1,CODPB+Q.IOPL
	MOV	R0,CODPB+Q.IOPL+2
	DIR$	#CODPB
	BCC	50$
30$:	TSTB	@#TT0CSR+4
	BR	.+2
	BCS	50$
	BPL	30$
	MOVB	(R1)+,@#TT0CSR+6
	SOB	R0,30$
50$:	RETURN
	.ENDC
	.END