.NLIST	TOC,SYM
.TITLE	$INSER
.SBTTL	ULBLIB 033	- Install System Error Messages
.IDENT	\V01.03\
.PSECT	.LIBD.
.ENABL	LC,GBL

; Copyright (c) 1998 by Mentec, Inc., Nashua, NH.
; All rights reserved
;
; This software is furnished under a license for use only on a
; single computer system and  may  be  copied  only  with  the
; inclusion of the above copyright notice.  This software,  or
; any other copies thereof, may not be provided  or  otherwise
; made available to any other person except for  use  on  such
; system and to one who agrees to these license  terms.  Title
; to  and  ownership of the software shall at all times remain
; in Mentec, Inc.
;
; The information in this document is subject to change without
; notice and should not be construed as a commitment by Digital
; Equipment Corporation, or Mentec, Inc.
;
; Digital and Mentec  assume  no  responsibility for the use or
; reliability of its software on equipment which is not supplied
; by Digital  or Mentec,  and listed  in the  Software  Product
; Description.
; CG01	04-Mar-79	Add protected file message (.ENTER)
; CG02	04-Aug-79	Add protected file message (.CLOSE)
;
; V01.03 29-Aug-91 MBG	Added definition for invalid directory message
;

;+
; $INSER
; This routine installs the "system error messages" if the user has not
; all of the symbolics that he or the library has accessed.  It is magic!
;
;	CALL	$INSER
;
; This call is actually unneccessary.  Just leave all the error symbolics
; undefined, and it will appear and be called
;-

.MACRO	ERRMSG	NAME,TEXT
	DS	FE.'NAME,BYTE,-1
.PSECT	.LIBD.
EM.'NAME:
	.ASCII	\TEXT\<200>
.PSECT	.LIBP.
	.WORD	EM.'NAME
.ENDM	ERRMSG

.MACRO	MSGLST	NAME
.DSECT	GLOBAL=YES
.PSECT	.LIBP.
NAME:	.WORD	-MAX.FE
.ENDM	MSGLST

.MACRO	MSGEND
	DS	MAX.FE
.ENDM	MSGEND

MSGLST	SYSERR

ERRMSG	UNK	<Unknown error code >	;MUST be first
ERRMSG	CIU	<Channel in use >
ERRMSG	CNO	<Channel not open >
ERRMSG	DVF	<Device full >
ERRMSG	DFL	<Directory full >
ERRMSG	DIO	<Directory I/O error >
ERRMSG	FER	<Fetch error >
ERRMSG	FCP	<File created; protected file already exists >		;CG02
ERRMSG	FNF	<File not found >
ERRMSG	ILD	<Invalid device >
ERRMSG	INE	<Input error >
ERRMSG	IVD	<Invalid directory >
ERRMSG	NOM	<Insufficient memory >
ERRMSG	OPE	<Output error >
ERRMSG	OFF	<Output file full >
ERRMSG	OFP	<Protected file already exists >			;CG01
ERRMSG	RTL	<Record too long >
ERRMSG	SYS	<System error >
ERRMSG	EOF	<Unexpected EOF >

MSGEND

.PSECT	.LIBO.,I,OVR

$INSER::
	MOV	#SYSERR,SY$ERR
	RETURN

.END