.TITLE	OPERR
	.IDENT /0001/
;
	.MCALL	QIO$C,QIOW$C
;
	.NLIST	BEX
	.ENABL 	LC
;
OPERR::	TST	HITEOF
	BEQ	5$
	CMPB	F.ERR(R0),#IE.EOF
	BNE	10$
	CLR	HITEOF
	RTS	PC
;
5$:	.WORD	0
;
10$:	MOV	R0,-(SP)
	MOV	R1,-(SP)
	MOV	R2,-(SP)
	MOV	R3,-(SP)
	MOV	R4,-(SP)
	MOV	R0,R3
	MOV	#ERRMSG,R0
	MOV	#40.,R2
	JSR	PC,FILL
;
	MOV	#ERRMSG,R0
	MOVB	F.LUN(R3),R1
	CLR	R2
	CALL	$CBDSG
;
	ADD	#2,R0
	MOV	#3,R5
	MOV	R3,R4
20$:	MOV	F.FNB+N.FNAM(R4),R1
	BEQ	30$
	ADD	#2,R4
	CALL	$C5TA
30$:	NOP
	SOB	R5,20$
	MOVB	#'.,(R0)+
	MOV	F.FNB+N.FTYP(R3),R1
	CALL	$C5TA
;
	ADD	#3,R0
	MOVB	F.ERR(R3),R1
	JSR	PC,PDESC
;
	MOVB	F.ERR+1(R3),R1
	JSR	PC,PDESC
;
	MOV	F.ERR(R3),R1
	JSR	PC,PDESC
;
	QIO$C	IO.WLB,TI,1,,,,<ERRMSG,80.,061>
;
	MOV	(SP)+,R4
	MOV	(SP)+,R3
	MOV	(SP)+,R2
	MOV	(SP)+,R1
	MOV	(SP)+,R0
	MOV	#-1.,HITEOF		;A serious error
	RTS	PC
;
HITEOF::.WORD	1
ERRMSG:	.BLKB	80.
;
PDESC:	MOV	R1,HITEOF
	MOVB	#' ,(R0)+
	CLR	R2
	CALL	$CBDSG
	MOVB	#'.,(R0)+
	INC	R0
	MOV	HITEOF,R1
	CLR	R2
	CALL	$CBOMG
	ADD	#4,R0
	RTS	PC
;
	.END