.TITLE	IOMSG -- I/O ERROR MESSAGES
	.IDENT	/X01.00/
	.ENABLE LC
	.LIST BEX
	.LIST MEB
;
;  Author:	Gilbert J. DeLeeuw
;  Date:	May 3, 1984
;  Name:	Compress and Restore Utility
;  Function:	To generate appropriate I/O error message
;
;  Parameters:
;
;	R0 - Must contain pointer to FDB
;	R2 - Returns length of message
;	R3 - Returns address of message
;
	.MCALL	FHDOF$
;
	.MACRO	MSG	ERN,TXT
	.NCHR	L,<TXT>
	.BYTE	L
	.BYTE	ERN
	.ASCII	!TXT!
	.ENDM
;
;  Define offsets
	FHDOF$
;
; Table size
	TSIZ=100.
	IE.TMM=271
;
;  I/O Messages
MTBL:	MSG	IE.BAD,<Bad parameters>
	MSG	IE.IFC,<Invalid function code>
	MSG	IE.DNR,<Device not ready>
	MSG	IE.VER,<Parity error on device>
	MSG	IE.ONP,<Hardware option not present>
	MSG	IE.SPC,<Illegal user buffer>
	MSG	IE.DNA,<Device not attatched>
	MSG	IE.DAA,<Device already attatched>
;
	MSG	IE.DUN,<Device not attachable>
	MSG	IE.EOF,<End-of-file detected>
	MSG	IE.EOV,<End-of-volume detected>
	MSG	IE.WLK,<Device is write protected>
	MSG	IE.DAO,<Data overrun>
	MSG	IE.SRE,<Send/receive failure>
	MSG	IE.ABO,<Request terminated>
	MSG	IE.PRI,<Privilege violation>
;
	MSG	IE.RSU,<Shareable resource in use>
	MSG	IE.OVR,<Illegal overlay request>
	MSG	IE.BYT,<Odd byte count (or virtual address)>
	MSG	IE.BLK,<Logical Block Number too large>
	MSG	IE.MOD,<Invalid UDC module number>
	MSG	IE.CON,<UDC connect error>
	MSG	IE.NOD,<Caller's nodes exhausted>
	MSG	IE.DFU,<Device full>
;
	MSG	IE.IFU,<Index file full>
	MSG	IE.NSF,<No such file>
	MSG	IE.LCK,<File locked from read/write access>
	MSG	IE.HFU,<File header full>
	MSG	IE.WAC,<File accessed for write>
	MSG	IE.CKS,<File header checksum failure>
	MSG	IE.WAT,<Attribute control list format error>
	MSG	IE.RER,<File processor device read error>
;
	MSG	IE.WER,<File processor device write error>
	MSG	IE.ALN,<File already accessed on LUN>
	MSG	IE.SNC,<File ID, file number check>
	MSG	IE.SQC,<File ID, sequence number check>
	MSG	IE.NLN,<No file accessed on LUN>
	MSG	IE.CLO,<File was not properly closed>
	MSG	IE.NBF,<No buffer space available for file>
	MSG	IE.RBG,<Illegal record size>
;
	MSG	IE.NBK,<File exceeds space allocated>
	MSG	IE.ILL,<Illegal operation on file descriptor block>
	MSG	IE.BTP,<Bad record type>
	MSG	IE.RAC,<Illegal record access bits set>
	MSG	IE.RAT,<Illegal record attribute bits set>
	MSG	IE.RCN,<Illegal record number - too large>
	MSG	IE.ICE,<Internal consistency error>
	MSG	IE.2DV,<Rename - two different devices>
;
	MSG	IE.FEX,<Rename - new file name already in use>
	MSG	IE.BDR,<Bad directory file>
	MSG	IE.RNM,<Cannot rename old file system>
	MSG	IE.BDI,<Bad directory syntax>
	MSG	IE.FOP,<File already open>
	MSG	IE.BNM,<Bad file name>
	MSG	IE.BDV,<Bad device name>
	MSG	IE.BBE,<Bad block on device>
;
	MSG	IE.DUP,<File already exists.  Not superseeded>
	MSG	IE.STK,<Not enough stack space (FCS or FCP)>
	MSG	IE.FHE,<Fatal hardware error on device>
	MSG	IE.NFI,<File ID was not specified>
	MSG	IE.ISQ,<Illegal sequential operation>
	MSG	IE.EOT,<End-of-tape detected>
	MSG	IE.BVR,<Bad version number>
	MSG	IE.BHD,<Bad file header>
;
	MSG	IE.OFL,<Device offline>
	MSG	IE.BCC,<Block check, CRC, or framing error>
	MSG	IE.ONL,<Device on line>
	MSG	IE.NNN,<No such node>
	MSG	IE.NFW,<Path lost to partner>
	MSG	IE.BLB,<Bad logical buffer>
	MSG	IE.TMM,<Too many outstanding messages>
	MSG	IE.NDR,<No dynamic space available>
;
	MSG	IE.URJ,<Connection rejected by user>
	MSG	IE.NRJ,<Connection rejected by network>
	MSG	IE.EXP,<File expiration date not reached>
	MSG	IE.BTF,<Bad tape format>
	MSG	IE.NNC,<Not ANSI "D" format byte count>
	MSG	IE.NDA,<No data available>
	MSG	IE.NLK,<Task not linked to specified ICS/ICR interrupts>
	MSG	IE.NST,<Specified task not installed>
;
	MSG	IE.FLN,<Device already offline>
	MSG	IE.IES,<Invalid escape sequence>
	MSG	IE.PES,<Partial escape sequence>
	MSG	IE.ALC,<Allocation failure>
	MSG	IE.ULK,<Unlock error>
	MSG	IE.WCK,<Write check failure>
	MSG	IE.NTR,<Task not triggered>
	MSG	IE.REJ,<Transfer rejected by receiving CPU>
;
	MSG	IE.FLG,<Event flag already specified>
	MSG	IE.DSQ,<Disk quota exceeded>
	MSG	IE.IQU,<Inconsistent qualifier usage>
	MSG	IE.RES,<Device not in system>
	MSG	IE.TML,<Too many links to task>
	MSG	IE.NNT,<Not a network task>
	MSG	IE.TMO,<Timeout on request>
	MSG	IE.CNR,<Connection rejected>
;
	MSG	IE.UKN,<Uknown name>
	MSG	IE.SZE,<Unable to size device>
	MSG	IE.MII,<Media inserted incorrectly>
	MSG	IE.SPI,<Spindown ignored>
;
MSGU:	MSG	0,<FCS error    >
	.EVEN
;
;
;  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  I/O Error Checking
IOMSG::
	MOVB	F.ERR(R0),R1		;COPY ERROR CODE
;
; Entry if status already in R1
IOMSG1::
	CLR	R2			;INITIALIZE R2
	MOV	#MTBL,R3		;GET ADDRESS OF TABLE
;
; Search for match
10$:	ADD	R2,R3			;POINT TO NEXT MESSAGE
	MOVB	(R3)+,R2		;LENGTH OF STRING
	MOVB	(R3)+,R4		;ERROR NUMBER
	BEQ	UNKN			;END OF TABLE REACHED
	CMP	R4,R1			;COMPARE CODES
	BNE	10$			;IF CODES MATCH, WE ARE DONE
	RTS	PC			;AND LOOP
;
; Undefined code message
UNKN:	MOV	#MSGU+12.,R0		;ADDRESS
	CLR	R2			;SUPPRESS LEADING ZERO'S
	CALL	$CBDSG			;CONVERT CODE TO ASCII
	MOVB	MSGU,R2			;LENGTH
	MOV	#MSGU+2,R3		;ADDRESS
	RTS	PC
;
	.END