.;	GET A QUICK ERROR SUMMARY BY DEVICE ON TI:   14-MAY-81 K.BETHE
.;
.ENABLE SUBSTITUTION
	.SETS INUIC <UIC>
	SET /UIC=[1,6]
.SETF INSSYE
.SETF INSPSE
.SETF INSERF
.IFNINS ERF .SETT INSERF
.IFNINS PSE .SETT INSPSE
.IFNINS SYE .SETT INSSYE
.IFT INSERF INS $ERF
.IFT INSSYE INS $SYE
.IFT INSPSE INS $PSE/PAR=GEN
.ENABLE QUIET
	RUN [2,1]ERRCHK
	.SETN NOERR <EXSTAT>
.DISABLE QUIET
ERF
.WAIT ERRLOG
PSE =
RUN ERRLOG
.IFT INSERF REM ERF
.IFT INSPSE REM PSE
RUN [2,1]ERRSUM
.IF <EXSTAT> EQ 1	SYE TI:=/SU
.IF NOERR = 0 .GOTO 20
.ENABLE QUIET
	INS [2,1]ERC
	ERC 'NOERR'
	.SETN NEX <EXSTAT>
	REM ERC
.DISABLE QUIET
	.IF NEX <> 1 .GOTO 20
.;		GET ERROR COUNT IN DECIMAL FOR DISPLAY
	.SETN NEX NOERR*1.
; NOTE, ERROR COUNT HAS BEEN RESTORED TO  'NEX'
;
.ASK Q DO YOU WANT TO SEE THE INDIVIDUAL ERRORS FOR A SPECIFIC DEVICE
.IFF Q .GOTO 20
.SETS NULL ""
.15:
.ASKS DEV ENTER DEVICE NAME OR MEM OR TMO (RETURN IF NO MORE TO DO)
.IF DEV = NULL .GOTO 20
.IF DEV = "MEM" .GOTO 16
.IF DEV = "TMO" .GOTO 17
SYE TI:=/DV:'DEV'
.GOTO 15
.16:
SYE TI:=/RP:HDW:'DEV'
.GOTO 15
.17:
SYE TI:=/RP:TMO
.GOTO 15
.20:
.IFT INSSYE REM SYE
	SET /UIC='INUIC'