2020-05-17 17:34:32 +00:00
|
|
|
|
NEW
|
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
|
*--------------------------------------
|
2021-05-04 17:31:21 +00:00
|
|
|
|
ERRORX.GetErrMsg
|
2021-04-29 11:56:34 +00:00
|
|
|
|
ldx #ERRORX.MSG
|
2020-05-17 17:34:32 +00:00
|
|
|
|
stx ZPPtr1
|
2021-04-29 11:56:34 +00:00
|
|
|
|
ldx /ERRORX.MSG
|
2020-05-17 17:34:32 +00:00
|
|
|
|
stx ZPPtr1+1
|
|
|
|
|
|
|
|
|
|
|
|
ldx #0
|
|
|
|
|
|
|
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
|
|
.1 pla
|
2021-04-29 11:56:34 +00:00
|
|
|
|
cmp ERRORX.ID,x
|
2020-05-17 17:34:32 +00:00
|
|
|
|
beq .4
|
|
|
|
|
|
|
|
|
|
|
|
pha
|
|
|
|
|
|
ldy #0
|
|
|
|
|
|
|
|
|
|
|
|
.2 iny
|
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
|
bpl .2
|
|
|
|
|
|
|
2021-05-09 12:39:40 +00:00
|
|
|
|
jsr SHARED.AddYp12P1
|
2020-05-17 17:34:32 +00:00
|
|
|
|
|
2021-05-09 12:39:40 +00:00
|
|
|
|
inx
|
2021-04-29 11:56:34 +00:00
|
|
|
|
cpx #ERRORX.CNT
|
2020-05-17 17:34:32 +00:00
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
|
|
|
|
|
|
.4 ldy #$ff
|
|
|
|
|
|
|
|
|
|
|
|
sta CLRWRITEAUX
|
|
|
|
|
|
|
|
|
|
|
|
.5 iny
|
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
|
pha
|
|
|
|
|
|
and #$7F
|
|
|
|
|
|
sta (ZPPtr2),y
|
|
|
|
|
|
pla
|
|
|
|
|
|
bpl .5
|
|
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
|
lda #0
|
|
|
|
|
|
sta (ZPPtr2),y
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
2020-12-23 14:54:57 +00:00
|
|
|
|
*-------------------------------------- MLI
|
2021-04-29 11:56:34 +00:00
|
|
|
|
ERRORX.ID .DA #MLI.E.BADCALL
|
2020-07-30 11:14:37 +00:00
|
|
|
|
.DA #MLI.E.IO
|
2020-05-17 17:34:32 +00:00
|
|
|
|
.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
|
2021-07-03 17:18:58 +00:00
|
|
|
|
.DA #MLI.E.INCFF
|
2020-05-17 17:34:32 +00:00
|
|
|
|
.DA #MLI.E.UNSUPST
|
|
|
|
|
|
.DA #MLI.E.EOF
|
|
|
|
|
|
.DA #MLI.E.LOCKED
|
|
|
|
|
|
.DA #MLI.E.OPEN
|
2020-05-21 12:55:49 +00:00
|
|
|
|
.DA #MLI.E.BADBUF
|
2020-12-23 14:54:57 +00:00
|
|
|
|
*-------------------------------------- KERNEL
|
2020-05-17 17:34:32 +00:00
|
|
|
|
.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
|
2020-11-29 13:16:39 +00:00
|
|
|
|
.DA #E.INUM
|
2020-05-17 17:34:32 +00:00
|
|
|
|
.DA #3 Ctrl-C
|
2020-12-23 14:54:57 +00:00
|
|
|
|
*-------------------------------------- PARSER
|
2020-05-17 17:34:32 +00:00
|
|
|
|
.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
|
2020-12-23 14:54:57 +00:00
|
|
|
|
.DA #E.NODO
|
2021-04-29 11:56:34 +00:00
|
|
|
|
.DA #E.TMISMATCH
|
2020-05-17 17:34:32 +00:00
|
|
|
|
*--------------------------------------
|
2021-04-29 11:56:34 +00:00
|
|
|
|
ERRORX.CNT .EQ *-ERRORX.ID
|
2020-05-17 17:34:32 +00:00
|
|
|
|
*--------------------------------------
|
2021-04-29 11:56:34 +00:00
|
|
|
|
ERRORX.MSG .AT "Bad MLI Call"
|
2020-07-30 11:14:37 +00:00
|
|
|
|
.AT "I/O Error"
|
2020-05-17 17:34:32 +00:00
|
|
|
|
.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"
|
2021-07-03 17:18:58 +00:00
|
|
|
|
.AT "Incompatible File Format"
|
2020-05-17 17:34:32 +00:00
|
|
|
|
.AT "Unsupp. Storage"
|
|
|
|
|
|
.AT "End Of File"
|
|
|
|
|
|
.AT "File Locked"
|
|
|
|
|
|
.AT "File Opened"
|
2020-05-21 12:55:49 +00:00
|
|
|
|
.AT "Bad Buffer"
|
2020-05-17 17:34:32 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
.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"
|
2020-11-29 13:16:39 +00:00
|
|
|
|
.AT "Invalid Numerical"
|
2020-05-17 17:34:32 +00:00
|
|
|
|
.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. Function"
|
|
|
|
|
|
.AT "Unexp. EOF"
|
2020-12-23 14:54:57 +00:00
|
|
|
|
.AT "LOOP Without DO"
|
2021-04-29 11:56:34 +00:00
|
|
|
|
.AT "Type Mismatch"
|
2020-05-17 17:34:32 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
.AT "Unknown Error"
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
2020-12-15 13:23:22 +00:00
|
|
|
|
SAVE usr/src/sys/kernel.s.errorx
|
|
|
|
|
|
LOAD usr/src/sys/kernel.s
|
2020-05-17 17:34:32 +00:00
|
|
|
|
ASM
|
