NEW
  AUTO 3,1
				.LIST OFF
*--------------------------------------
ERR.Codes		.DA #MLI.E.IO
				.DA #MLI.E.NODEV
				.DA #MLI.E.WRTPROT
				.DA #MLI.E.DSKSWIT
				.DA #MLI.E.OFFLINE
				.DA #MLI.E.INVPATH
				.DA #MLI.E.PNOTFND
				.DA #MLI.E.VNOTFND
				.DA #MLI.E.FNOTFND
				.DA #MLI.E.DUPFILE
				.DA #MLI.E.VOLFULL
				.DA #MLI.E.DIRFULL
				.DA #MLI.E.UNSUPST
				.DA #MLI.E.EOF
				.DA #MLI.E.LOCKED
				.DA #MLI.E.OPEN
*--------------------------------------
				.DA #E.OOM
				.DA #E.OOH
				.DA #E.INVH
				.DA #E.BUF
				.DA #E.BADPATH
				.DA #E.BADARG
				.DA #E.NSP
				.DA #E.SYN
				.DA #E.ENVF
				.DA #E.IBIN
				.DA #E.FTB
				.DA #3					Ctrl-C
*--------------------------------------
				.DA #E.CSYN
				.DA #E.ESYN
				.DA #E.STACKERROR
				.DA #E.STKOVERFLOW
				.DA #E.NOWHILE
				.DA #E.NOFOR
				.DA #E.NOIF
				.DA #E.BADFTYPE
				.DA #E.FUNDEF
				.DA #E.UNEXPEOF
*--------------------------------------
ERR.Count		.EQ *-ERR.Codes
*--------------------------------------
ERR.Messages	>PSTR "I/O Error"
				>PSTR "No Device"
				>PSTR "Disk Write-Prot."
				>PSTR "Disk Switched"
				>PSTR "Offline Device"
				>PSTR "Invalid Path"
				>PSTR "Path Not Found"
				>PSTR "Vol Not Found"
				>PSTR "File Not Found"
				>PSTR "Dup. Filename"
				>PSTR "Vol Is Full"
				>PSTR "Dir Is Full"
				>PSTR "Unsupp. Storage"
				>PSTR "End Of File"
				>PSTR "File Locked"
				>PSTR "File Opened"
*--------------------------------------
				>PSTR "Out Of Memory"
				>PSTR "Out Of Handle"
				>PSTR "Invalid Handle"
				>PSTR "Buffer Overflow"
				>PSTR "Bad Path"
				>PSTR "Bad API Argument"
				>PSTR "No Such Process"
				>PSTR "Syntax Error"
				>PSTR "Env Is Full"
				>PSTR "Invalid BIN"
				>PSTR "File Too Big"
				>PSTR "User Interrupt"
*--------------------------------------
				>PSTR "Cmd Syntax Error"
				>PSTR "Exp. Syntax Error"
				>PSTR "Stack Error"
				>PSTR "Stack Overflow"
				>PSTR "LOOP Without WHILE"
				>PSTR "NEXT Without FOR"
				>PSTR "FI/ELSE Without IF"
				>PSTR "Bad File Type"
				>PSTR "Undef. Function"
				>PSTR "Unexp. EOF"
*--------------------------------------
				>PSTR "Unknown Error"
*--------------------------------------
MAN
SAVE USR/SRC/SHARED/X.ERRORS.S