.TITLE	LOGER - EXPOUND ON ERROR
	.IDENT	/01.00/
	.LIST	MEB
;
; AUTHOR:	H. L. COLEMAN
;		MILLIKEN AND COMPANY
;		P. O. BOX 1926
;		MAIL STOP M-103
;		SPARTANBURG, S. C. 29304
;		(803)573-2556
;
; VERSION:	01.00
;
; DATE:		30-MAR-78
;
; MODIFICATIONS:
;
; FUNCTION:	PRINT DESCRIPTIVE I/O ERROR DATA
;
; INPUT:
;
;	LIOSB
;	LOG FILE FDB
;
; OUTPUT:
;
;	MESSAGE DESCRIBING ERROR
;
	.PAGE
; MACROS AND SYSTEM DEFINITIONS
;
	.MCALL	MSGN$S,FDOF$L,NBOF$L,FCSBT$
	FDOF$L			;DEFINE FDB OFFSETS
	NBOF$L			;DEFINE FNB OFFSETS
	FCSBT$			;DEFINE FCS BITS
	.PAGE
$LOGER::MOV	#M009I,R0	;R0 = A(IOSB CODE FIELD)
	MOVB	LIOSB,R1	;R1 = IOSB CODE
	CLR	R2		;SUPRESS LEADING ZEROES
	CALL	$CBDSG		;CONVERT TO ASCII
	MOVB	#'I,M009T	;ASSUME I/O ERROR
	TSTB	LOGFL+F.ERR+1	;WAS IT AN I/O ERROR
	BEQ	1000$		;IF EQ, YES
	MOVB	#'D,M009T	;SET DIRECTIVE ERROR
1000$:	MOV	#M009F,R0	;R0 = A(FDB CODE FIELD)
	MOVB	LOGFL+F.ERR,R1	;R1 = ERROR CODE
	CLR	R2		;SUPRESS LEADING ZEROES
	CALL	$CBDSG		;INSERT CODE
	MSGN$S	PFX,3,M009,,,ABORT ;ERROR STATUS MESSAGE
	RETURN			;RETURN TO CALLER
	.END