NEW
  AUTO 3,1
*--------------------------------------
ERRORX.GetErrMsg
				ldx #ERRORX.MSG
				stx ZPPtr1
				ldx /ERRORX.MSG
				stx ZPPtr1+1
				
				ldx #0
				
				pha
				
.1				pla
				cmp	ERRORX.ID,x
				beq .4

				pha
				ldy #0
				
.2				iny
				lda (ZPPtr1),y
				bpl .2
				
				jsr SHARED.AddYp12P1

				inx
				cpx #ERRORX.CNT
				bne .1
				
				pla
				
.4				ldy #$ff

				sta IO.CLRWRITEAUX

.5				iny
				lda (ZPPtr1),y
				pha
				and #$7F
				sta (ZPPtr2),y
				pla
				bpl .5
				
				iny
				lda #0
				sta (ZPPtr2),y

				clc
				rts
*--------------------------------------	MLI
ERRORX.ID		.DA #MLI.E.BADCALL
				.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.INCFF
				.DA #MLI.E.UNSUPST
				.DA #MLI.E.EOF
				.DA #MLI.E.LOCKED
				.DA #MLI.E.OPEN
				.DA #MLI.E.BADBUF
*--------------------------------------	KERNEL
				.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 #E.INUM
				.DA #3					Ctrl-C
*--------------------------------------	PARSER
				.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
				.DA #E.NODO
				.DA #E.REDEF
				.DA #E.TMISMATCH
*--------------------------------------
ERRORX.CNT		.EQ *-ERRORX.ID
*--------------------------------------
ERRORX.MSG		.AT "Bad MLI Call"
				.AT "I/O Error"
				.AT "No Device"
				.AT "Disk Write-Prot."
				.AT "Disk Switched"
				.AT "Offline Device"
				.AT "Invalid Path"
				.AT "Path Not Found"
				.AT "Vol Not Found"
				.AT "File Not Found"
				.AT "Dup. Filename"
				.AT "Vol Is Full"
				.AT "Dir Is Full"
				.AT "Incomp. File Format"
				.AT "Unsupp. Storage"
				.AT "End Of File"
				.AT "File Locked"
				.AT "File Opened"
				.AT "Bad Buffer"
*--------------------------------------
				.AT "Out Of Memory"
				.AT "Out Of Handle"
				.AT "Invalid Handle"
				.AT "Buffer Overflow"
				.AT "Bad Path"
				.AT "Bad API Argument"
				.AT "No Such Process"
				.AT "Syntax Error"
				.AT "Env Is Full"
				.AT "Invalid BIN"
				.AT "File Too Big"
				.AT "Invalid Numerical"
				.AT "User Interrupt"
*--------------------------------------
				.AT "Cmd Syntax Error"
				.AT "Exp. Syntax Error"
				.AT "Stack Error"
				.AT "Stack Overflow"
				.AT "LOOP Without WHILE"
				.AT "NEXT Without FOR"
				.AT "FI/ELSE Without IF"
				.AT "Bad File Type"
				.AT "Undef. Symbol"
				.AT "Unexp. EOF"
				.AT "LOOP Without DO"
				.AT "Symbol Redef"
				.AT "Type Mismatch"
*--------------------------------------
				.AT "Unknown Error"
*--------------------------------------
MAN
SAVE usr/src/sys/kernel.s.errorx
LOAD usr/src/sys/kernel.s
ASM