.TITLE	ERC - RESTORE ERROR COUNT
	.LIST	MEB
;
;	RELOAD SYSTEM ERROR COUNT TO INPUT VALUE
;
	.MCALL	EXST$S,GMCR$,DIR$
;
MCRDPB:	GMCR$
MCRBUF=	MCRDPB+G.MCRB+4		;PTR TO NUMBER AFTER ERC
;
ENTRY:
	DIR$	#MCRDPB
	MOV	$DSW,R1		; CHAR COUNTER
	BPL	5$		; OK
	MOV	#EX$SEV,R3
	BR	10$
3$:	MOV	#EX$ERR,R3
	BR	10$
5$:
	MOV	#MCRBUF,R0	;INPUT BUFFER
	ADD	R0,R1
	SUB	#4,R1		;GET RID OF 1ST 4 CHARS
	MOVB	#15,R3		;TERMINATOR
	MOVB	R3,@R1		;TERMINATE WITH CR
	CALL	$COTB		;CONVERT OCTAL ASCII TO BINARY
	CMP	R3,R2		;OK ?
	BNE	3$
	ADD	R1,$ERRSQ	; ADD INPUT NUMBER TO CURRENT COUNT
	MOV	#EX$SUC,R3
10$:	EXST$S	R3		;EXIT STATUS IS 40 ON ERROR

	.END	ENTRY