.TITLE	ERNMBR - ERROR SEQUENCE NUMBER LISTER
	.IDENT	/JN2.00/
;WRITTEN BY J. NEELAND
;LAST MODIFIED 801013.
;MODIFIED 801013. TO CHECK/REPORT IF ERROR-LOGGING NOT ON
;
; DISPLAYS CURRENT ERROR SEQUENCE NUMBER (THUS A PRIVILEGED PROGRAM)
;
	.MCALL	QIOW$,DIR$,EXIT$S
;
START::	TST	$ERRPT		;SEE IF ERROR-LOGGING RUNNING
	BEQ	OUTMSG		;IF NOT, GO PRINT DEFAULT MSG (ERRLOG OFF)
	MOV	$ERRSQ,R1	;GET CURRENT ERROR NUMBER
	MOV	#NUMOUT,R0	;SET ADDRESS FOR CONVERTED OUTPUT
	CLR	R2		;SUPPRESS LEADING ZEROS
	CALL	$CBDMG		;CONVERT TO DECIMAL (MAGNITUDE)
	MOVB	#'.,(R0)+	;APPEND A DECIMAL TO SHOW RADIX
	SUB	#ERNMSG,R0	;CALCULATE SIZE OF MESSAGE
	MOV	R0,ERNQIO+Q.IOPL+2 ;INSERT INTO QIO PARAM BLOCK
	MOV	#ERNMSG,ERNQIO+Q.IOPL ;SET FOR RIGHT MESSAGE ADDR.
OUTMSG:	DIR$	#ERNQIO		;ISSUE MESSAGE
	EXIT$S			;DONE!
;+
;DATA AREA
;-
ERNQIO:	QIOW$	IO.WVB,1,1,,,,<OFFMSG,OFFSIZ,40>
	.ENABLE LC
ERNMSG:	.ASCII	/Current error count is: /
NUMOUT:	.BLKB	10.		;SPACE FOR CONVERTED NUMBER
OFFMSG:	.ASCII	/Error-logging NOT running/
	OFFSIZ=.-OFFMSG
;
	.END	START