.TITLE	FILERR - REPORT AN FCS ERROR MESSAGE
	.IDENT	/2.0/
	.ENABL	LC
;+
;
;			  Free software BY
;		Project Software & Development, Inc.
;
; This software is furnished for free and may be used and  copied as
; desired. This software or  any  other copies  thereof may be provided
; or otherwise made available to any other person.  No title to and
; ownership of  the  software  is  hereby transferred or allowed. 
;
; The information in this software is subject to change  without  notice
; and  should  not  be  construed  as  a commitment by PROJECT SOFTWARE
; AND DEVELOPMENT, INC.
;
; PROJECT SOFTWARE assumes no responsibility for the use or  reliability  
; of this software on any equipment whatsoever.
;
;	Project Software & Development, Inc.
;	14 Story St.
;	Cambridge, Ma. 02138
;	617-661-1444
;
;
;
; Title:	FILERR
; Author:	Gary Larsen & Robin Miller
; Date:		April 26, 1982
;
; Description:
;
; This routine sets up the argument block for a call to PUTMSG to
; report the RSX-11M error message text.
;
; Modification History:
;
;-
	.ENABL	AMA
	.NLIST	BEX


; Offsets into error message block.

	ERROFF	==	2		; ERROR CODE OFFSET
	BUFOFF	==	4		; OUTPUT BUFFER OFFSET
	FLGOFF	==	6		; MESSAGE FLAGS OFFSET
	FACOFF	==	10		; FACILITY NAME OFFSET
	STAOFF	==	12		; STATUS RETURN OFFSET

; Equates for RSX-11M error messages.

	TXTBIT	==	1		; INCLUDE TEXT OF MESSAGE
	MIDBIT	==	2		; INCLUDE MESSAGE ID
	SEVBIT	==	4		; INCLUDE SEVERITY LEVEL
	FACBIT	==	10		; INCLUDE FACILITY NAME

	.NLIST	BEX

; Argument block for error messages.

ERRBLK::.BYTE	6,0			; ARG BLOCK FOR PUTMSG
	.WORD	ERRCOD			; ADDRESS OF ERROR CODE
	.WORD	-1			; ADDRESS OF OUTPUT BUFFER 
	.WORD	MSGFLG			; ADDRESS OF FLAG WORD
	.WORD	FACNAM			; ADDRESS OF FACILITY NAME
	.WORD	STACOD			; ADDRESS FOR STATUS RETURN
	.WORD	-1			; ADDRESS OF ALTERNATE FACILITY

ERRCOD:	.WORD	0			; ERROR MESSAGE CODE
FACNAM::.ASCIZ	%REFORMAT%		; FACILITY NAME
	.EVEN
MSGFLG::.WORD	TXTBIT!MIDBIT!SEVBIT!FACBIT ; INCLUDE EVERYTHING
STACOD::.WORD	0			; STATUS CODE RETURN

;+
;
; FILERR - Report an File Control System (FCS) error message.
;
; This routine sets up the argument block for a call to PUTMSG to
; report the RSX-11M error message text.
;
; Inputs:
;	R0 = Address of FDB which has the error.
;
;	All registers are preserved.
;
;-
FILERR::
	CALL	$SAVAL			; SAVE R0 - R5
	MOV	F.ERR(R0),ERRCOD	; COPY THE ERROR CODE
	MOV	#ERRBLK,R5		; ADDRESS OF ARGUMENT BLOCK
	CALL	PUTMSG			; WRITE THE ERROR MESSAGE
	RETURN

	.END