diff --git a/A2OSX.BOOT.po b/A2OSX.BOOT.po
index 27f335d9..cc29f704 100644
Binary files a/A2OSX.BOOT.po and b/A2OSX.BOOT.po differ
diff --git a/A2OSX.SRC.po b/A2OSX.SRC.po
index 5f1e91b6..d23bc659 100644
Binary files a/A2OSX.SRC.po and b/A2OSX.SRC.po differ
diff --git a/BIN/ASM.S.DIR.txt b/BIN/ASM.S.DIR.txt
index 6efc9b38..349389af 100644
--- a/BIN/ASM.S.DIR.txt
+++ b/BIN/ASM.S.DIR.txt
@@ -271,7 +271,7 @@ DIR.MA jsr SRC.GetArg
.1 jsr FIO.ReadLine
bcs .99
- lda TmpBuffer256
+ lda UsrBuf256
beq .1
cmp #'*' Comment?
diff --git a/BIN/ASM.S.FIO.txt b/BIN/ASM.S.FIO.txt
index 9223326b..92ebd3d5 100644
--- a/BIN/ASM.S.FIO.txt
+++ b/BIN/ASM.S.FIO.txt
@@ -160,12 +160,12 @@ FIO.ReadLine stz SRC.BufPtr
bmi .10
>PUSHWI 256
- >PUSHWI TmpBuffer256
+ >PUSHWI UsrBuf256
jsr FIO.ReadFromFile
bcs .19
lda #0 replace ending $0D with $00
- sta TmpBuffer256,y
+ sta UsrBuf256,y
.19 rts
.10 >PUSHWI 3
@@ -195,7 +195,7 @@ FIO.ReadLine stz SRC.BufPtr
.1 lda SRC.Buffer,y
bmi .2
- sta TmpBuffer256,x
+ sta UsrBuf256,x
beq .8 Ending 00
inx
beq .99
@@ -212,7 +212,7 @@ FIO.ReadLine stz SRC.BufPtr
beq .99
.3 pha
lda SRC.Buffer,y
- sta TmpBuffer256,x
+ sta UsrBuf256,x
pla
inx
beq .99
@@ -225,7 +225,7 @@ FIO.ReadLine stz SRC.BufPtr
.5 and #$3F Compute blank count
.6 pha
lda #$20
- sta TmpBuffer256,x
+ sta UsrBuf256,x
pla
inx
beq .99
diff --git a/BIN/ASM.S.SRC.txt b/BIN/ASM.S.SRC.txt
index 9fd7504d..1e3b224b 100644
--- a/BIN/ASM.S.SRC.txt
+++ b/BIN/ASM.S.SRC.txt
@@ -18,7 +18,7 @@ SRC.PrintLine ldy #ASM.MACRO.ON
lda (pData),y
bpl .9
-.8 >PUSHWI TmpBuffer256
+.8 >PUSHWI UsrBuf256
>PUSHW SRC.LINENUM
ldy #ASM.PC+1
>PUSHB (pData),y
@@ -29,7 +29,7 @@ SRC.PrintLine ldy #ASM.MACRO.ON
.9 rts
*---------------------------------------
SRC.PrintLineErr ldx #0
-.1 lda TmpBuffer256,x
+.1 lda UsrBuf256,x
beq .2
phx
>SYSCALL SYS.COutA
@@ -43,7 +43,7 @@ SRC.PrintLineErr ldx #0
bcs .9
ldx #0
-.3 lda TmpBuffer256,x
+.3 lda UsrBuf256,x
beq .5
inx
cpx SRC.BufPtr
@@ -65,7 +65,7 @@ SRC.PrintLineErr ldx #0
>SYSCALL SYS.COutA
.9 rts
*---------------------------------------
-SRC.ParseLine ldx TmpBuffer256
+SRC.ParseLine ldx UsrBuf256
beq .1
cpx #'*' Comment?
@@ -879,7 +879,7 @@ SRC.GetCharUC jsr SRC.GetChar
.9 rts
*---------------------------------------
SRC.GetChar ldx SRC.BufPtr
- lda TmpBuffer256,x
+ lda UsrBuf256,x
beq .9
inc SRC.BufPtr if 255, will make Z
.9 rts
diff --git a/BIN/LS.S.txt b/BIN/LS.S.txt
index 9d5bddb5..4b1dbc0f 100644
--- a/BIN/LS.S.txt
+++ b/BIN/LS.S.txt
@@ -125,23 +125,35 @@ CS.RUN ldy #bCANCEL
.31 >LDYA ZPPtr1
>SYSCALL SYS.PStrOutYA
- lda ZPPtr1
- sec
- adc (ZPPtr1)
- sta ZPPtr1
- bcc .4
- inc ZPPtr1+1
+ ldy #S.STAT.TYPE
+ lda (ZPPtr2),y
+ cmp #$0F Directory ?
+ beq .32
-.4 lda #13
+ pha
+ lda #'.'
+ >SYSCALL SYS.COutA
+
+ pla
+ jsr FileType2PSTR
+ >SYSCALL SYS.PStrOutYA
+
+
+
+
+.32
+
+ lda #13
>SYSCALL SYS.COutA
-.7 lda ZPPtr1
+.7 lda ZPPtr2
clc
adc #S.STAT
sta ZPPtr1
- bcc .3
- inc ZPPtr1+1
- bcs .3 Always
+ lda ZPPtr2+1
+ adc #0
+ sta ZPPtr1+1
+ bra .3
.8 pla
>SYSCALL SYS.FreeMemA
@@ -202,22 +214,53 @@ CS.QUIT ldy #hDIR
clc
rts
*--------------------------------------
+FileType2PSTR ldy #0
+
+.1 cmp PRODOS.FT.HEX,y
+ beq .3
+
+.2 iny
+ cpy #PRODOS.FT.TXT-PRODOS.FT.TXT
+ bne .1
+
+ pha
+ lsr
+ lsr
+ lsr
+ lsr
+ tax
+ lda HEXDIGIT,x
+ sta PRODOS.FT.DFLT+2
+
+ pla
+ and #$0F
+ tax
+ lda HEXDIGIT,x
+ sta PRODOS.FT.DFLT+3
+
+.3 tya
+ asl
+ asl CC
+ adc L.PRODOS.FT.TXT
+ tay
+ lda L.PRODOS.FT.TXT+1
+ adc #0
+ rts
+*--------------------------------------
CS.END
LIBSTR >PSTRING "libstr.o"
MSG.VOL >CSTRING "/%S\n"
MSG.DIR >CSTRING "/%15S
%a %T %t %T %t\n"
MSG.FILE >CSTRING "%15S %S $%H %a %8L %T %t %T %t\n"
*--------------------------------------
-PRODOS.FT.COUNT .HS 07
-PRODOS.FT.ID .HS 0406FAFCFDE2FF
-PRODOS.FT.TXT
-T04 >PSTRING "TXT"
-T06 >PSTRING "BIN"
-TFA >PSTRING "S-C"
-TFC >PSTRING "BAS"
-TFD >PSTRING "VAR"
-TE2 >PSTRING "ATK"
-TFF >PSTRING "SYS"
+PRODOS.FT.HEX .HS 0406FAFCFDE2FF
+PRODOS.FT.TXT >PSTRING "TXT"
+ >PSTRING "BIN"
+ >PSTRING "S-C"
+ >PSTRING "BAS"
+ >PSTRING "VAR"
+ >PSTRING "ATK"
+ >PSTRING "SYS"
PRODOS.FT.DFLT >PSTRING "$ "
HEXDIGIT .AS '0123456789ABCDEF'
hLIBSTR .BS 1
diff --git a/INC/A2osX.I.txt b/INC/A2osX.I.txt
index 845b573d..f598d123 100644
--- a/INC/A2osX.I.txt
+++ b/INC/A2osX.I.txt
@@ -48,7 +48,7 @@ A2osX.SaveSX .EQ $101 Aux
* Aux $200 -> 3FD : /RAM Driver
* Aux $3FE -> 3FF : IRQ Vector
*--------------------------------------
-TmpBuffer256 .EQ $0200 Main
+UsrBuf256 .EQ $0200 Main
*--------------------------------------
* $12 bytes min !!!!
*--------------------------------------
@@ -62,7 +62,7 @@ D.STACK.TOP .EQ $03F0 ...Down to $0300
* Main/Aux $400 -> $7FF : Console Screen
* Main/Aux $800 -> $BFF : System Screen
*--------------------------------------
-KrnBuffer256 .EQ $0C00
+KrnBuf256 .EQ $0C00
*--------------------------------------
*** Z80 Reserved $0F00-10FF***
*--------------------------------------
@@ -177,18 +177,7 @@ SYS.GetEnvYA .EQ $3C
SYS.UnsetEnvYA .EQ $3E
*--------------------------------------
SYS.MLICreateFile .EQ $40
-
-
-
-
-
-SYS.MLISetFileInfo .EQ $4C
-
-
SYS.MLIGetFileInfoYA .EQ $50
-SYS.MLIOnline .EQ $52
-
-SYS.MLISetPrefixYA .EQ $56
SYS.MLIGetPrefixYA .EQ $5A
@@ -198,21 +187,6 @@ SYS.MLINewLine .EQ $60
SYS.MLIRead .EQ $62
SYS.MLIWrite .EQ $64
SYS.MLICloseA .EQ $66
-
-SYS.MLIFlushA .EQ $68
-SYS.MLISetMark .EQ $6A
-SYS.MLIGetMarkA .EQ $6A
-SYS.MLISetEOF .EQ $6C
-
-SYS.MLIGetEOFA .EQ $70
-SYS.MLISetBuf .EQ $72
-SYS.MLIGetBuf .EQ $74
-
-
-SYS.MLIAllocIRQ .EQ $78
-SYS.MLIDeallocIRQ .EQ $7A
-SYS.MLIReadBlock .EQ $7C
-SYS.MLIWriteBlock .EQ $7E
*--------------------------------------
SYS.GetDevByIDA .EQ $80
diff --git a/SBIN/DHCPCLNT.S.txt b/SBIN/DHCPCLNT.S.txt
index 7c877501..adc0ce3d 100644
--- a/SBIN/DHCPCLNT.S.txt
+++ b/SBIN/DHCPCLNT.S.txt
@@ -354,13 +354,13 @@ GetDHCPOption cmp #S.DHCP.OPTIONS.MASK
.4 iny
inx
lda (ZPFramePtr),y
- sta TmpBuffer256,x
+ sta UsrBuf256,x
bne .4
ldy #S.IPCFG.DOMAIN-1
ldx #$FF
.5 iny
inx
- lda TmpBuffer256,x
+ lda UsrBuf256,x
sta IPCFG,y
bne .5
@@ -371,14 +371,14 @@ GetDHCPOption.CopyIP
ldy #2
ldx #0
.1 lda (ZPFramePtr),y
- sta TmpBuffer256,x
+ sta UsrBuf256,x
iny
inx
cpx #4
bne .1
ply
ldx #0
-.2 lda TmpBuffer256,x
+.2 lda UsrBuf256,x
sta IPCFG,y
iny
inx
diff --git a/SBIN/SHELL.S.CMD.txt b/SBIN/SHELL.S.CMD.txt
index 800b4e11..51002436 100644
--- a/SBIN/SHELL.S.CMD.txt
+++ b/SBIN/SHELL.S.CMD.txt
@@ -114,7 +114,7 @@ Cmd.Exec.EXT ldy #1
pla
>SYSCALL SYS.FreeMemA Discard this string...
-.3 stz TmpBuffer256 reset TmpBuffer256 for final CMDLINE
+.3 stz UsrBuf256 reset UsrBuf256 for final CMDLINE
>LDYA L.CMD
>SYSCALL SYS.MLIGetFileInfoYA
@@ -142,34 +142,34 @@ Cmd.Exec.EXT.TXT
lda #0 Get arg[0] = /PATH/SHELL
>SYSCALL SYS.GetArgA
>PUSHYA
- >PUSHWI TmpBuffer256
+ >PUSHWI UsrBuf256
>SYSCALL SYS.PStrCpy
- inc TmpBuffer256 Add a space....
- ldy TmpBuffer256
+ inc UsrBuf256 Add a space....
+ ldy UsrBuf256
lda #' '
- sta TmpBuffer256,y
+ sta UsrBuf256,y
*--------------------------------------
* BIN : Launch "/PATH/CMD ARGS"
*--------------------------------------
Cmd.Exec.EXT.BIN
>PUSHW L.CMD
- >PUSHWI TmpBuffer256
+ >PUSHWI UsrBuf256
>SYSCALL SYS.PStrCat
lda ARGS
beq .1
- inc TmpBuffer256 Add a space....
- ldy TmpBuffer256
+ inc UsrBuf256 Add a space....
+ ldy UsrBuf256
lda #' '
- sta TmpBuffer256,y
+ sta UsrBuf256,y
>PUSHW L.ARGS
- >PUSHWI TmpBuffer256
+ >PUSHWI UsrBuf256
>SYSCALL SYS.PStrCat
-.1 >LDYAI TmpBuffer256
+.1 >LDYAI UsrBuf256
bit Cmd.Exec.Mode
bmi .2 startproc
@@ -203,7 +203,7 @@ Cmd.Exec.CD1 lda ARGS+1
lda (pPs),y
>SYSCALL SYS.GetMemPtrA
>PUSHYA
- >PUSHWI TmpBuffer256
+ >PUSHWI UsrBuf256
>SYSCALL SYS.PStrCpy
lda ARGS+1
@@ -214,18 +214,18 @@ Cmd.Exec.CD1 lda ARGS+1
bne .9
- ldy TmpBuffer256 remove last dir component in actual prefix
+ ldy UsrBuf256 remove last dir component in actual prefix
.2 dey
beq .9 nothing to remove, synerr
- lda TmpBuffer256,y
+ lda UsrBuf256,y
cmp #'/'
bne .2
- sty TmpBuffer256
+ sty UsrBuf256
- >LDYAI TmpBuffer256
+ >LDYAI UsrBuf256
bra Cmd.Exec.CD.Change
.9 lda #SYSMGR.ERRSYN
@@ -233,17 +233,17 @@ Cmd.Exec.CD1 lda ARGS+1
rts
.3 >PUSHW L.ARGS Append ARG to buffer
- >PUSHWI TmpBuffer256
+ >PUSHWI UsrBuf256
>SYSCALL SYS.PStrCat
- ldx TmpBuffer256
+ ldx UsrBuf256
lda #'/' Ending with '/'?
- cmp TmpBuffer256,x
+ cmp UsrBuf256,x
beq .4
- sta TmpBuffer256+1,x
- inc TmpBuffer256
+ sta UsrBuf256+1,x
+ inc UsrBuf256
-.4 >LDYAI TmpBuffer256
+.4 >LDYAI UsrBuf256
Cmd.Exec.CD.Change
>STYA ZPPtr1
@@ -368,12 +368,12 @@ Cmd.Exec.SETVAR tax
Cmd.Exec.DATE >LDYA L.TIME
>SYSCALL SYS.TimeYA
- >PUSHWI TmpBuffer256
+ >PUSHWI UsrBuf256
>PUSHW L.FMT.DATE
>PUSHW L.TIME
>SYSCALL SYS.StrFTime
- >LDYAI TmpBuffer256
+ >LDYAI UsrBuf256
>SYSCALL SYS.PStrOutYA
bcs .9
@@ -384,13 +384,13 @@ Cmd.Exec.DATE >LDYA L.TIME
Cmd.Exec.TIME >LDYA L.TIME
>SYSCALL SYS.TimeYA
- >PUSHWI TmpBuffer256
+ >PUSHWI UsrBuf256
>PUSHW L.FMT.TIME
>PUSHW L.TIME
>SYSCALL SYS.StrFTime
- >LDYAI TmpBuffer256
+ >LDYAI UsrBuf256
>SYSCALL SYS.PStrOutYA
bcs .9
diff --git a/SBIN/SHELL.S.HIS.txt b/SBIN/SHELL.S.HIS.txt
index 8181dcb1..11ed8055 100644
--- a/SBIN/SHELL.S.HIS.txt
+++ b/SBIN/SHELL.S.HIS.txt
@@ -88,7 +88,7 @@ HIS.Add ldy #hCmdHistory
bpl .4
.9 rts
*--------------------------------------
-HIK.GetPrev ldy #hCmdHistory
+HIS.GetPrev ldy #hCmdHistory
lda (pData),y
beq HISTORY.RTS
@@ -121,10 +121,10 @@ HIK.GetPrev ldy #hCmdHistory
.2 txa
ldy #CmdHistory.IDX set new index
sta (pData),y
- bra HIK.SetBuf
+ bra HIS.SetBuf
History.RTS rts
*--------------------------------------
-HIK.GetNext ldy #hCmdHistory
+HIS.GetNext ldy #hCmdHistory
lda (pData),y
beq HISTORY.RTS
@@ -153,10 +153,10 @@ HIK.GetNext ldy #hCmdHistory
ldy #CmdHistory.END
cmp (pData),y
- bne HIK.SetBuf
+ bne HIS.SetBuf
jmp CmdBuffer.CLR end of history, just blank buffer
*--------------------------------------
-HIK.SetBuf jsr CmdBuffer.CLR
+HIS.SetBuf jsr CmdBuffer.CLR
ldy #CmdHistory.IDX
lda (pData),y
diff --git a/SBIN/SHELL.S.TXT.txt b/SBIN/SHELL.S.TXT.txt
index 568bfed4..00dd7201 100644
--- a/SBIN/SHELL.S.TXT.txt
+++ b/SBIN/SHELL.S.TXT.txt
@@ -28,7 +28,7 @@ TXT.OpenFileYA >SYSCALL SYS.MLIOpenYA
.9 rts
*--------------------------------------
TXT.ReadFile >PUSHWI 127
- >PUSHWI TmpBuffer256+1
+ >PUSHWI UsrBuf256+1
ldy #hInputFile
lda (pData),y
>PUSHA
@@ -38,7 +38,7 @@ TXT.ReadFile >PUSHWI 127
tya
beq .10
- lda TmpBuffer256,y Y,A=Bytes read
+ lda UsrBuf256,y Y,A=Bytes read
cmp #$0D
bne .10
@@ -48,7 +48,7 @@ TXT.ReadFile >PUSHWI 127
sta (pData)
beq .2
-.1 lda TmpBuffer256,y
+.1 lda UsrBuf256,y
sta (pData),y
dey
bne .1
diff --git a/SYS/KERNEL.S.DIR.txt b/SYS/KERNEL.S.DIR.txt
index 22c882f2..2d063776 100644
--- a/SYS/KERNEL.S.DIR.txt
+++ b/SYS/KERNEL.S.DIR.txt
@@ -410,12 +410,15 @@ K.READDIRA.ADD. lda #1
jsr K.READDIRA.ClrStat
+ lda #$0F
+ sta KrnBuf256+S.STAT.TYPE
+
ldy #$25 total_blocks
lda (ZPQuickPtr3),y
- sta KrnBuffer256+S.STAT.BLOCKS
+ sta KrnBuf256+S.STAT.BLOCKS
iny
lda (ZPQuickPtr3),y
- sta KrnBuffer256+S.STAT.BLOCKS+1
+ sta KrnBuf256+S.STAT.BLOCKS+1
bra K.READDIRA.ADDSTAT
*--------------------------------------
@@ -428,12 +431,18 @@ K.READDIRA.ADD..
jsr K.READDIRA.ClrStat
+ lda #$0F
+ sta KrnBuf256+S.STAT.TYPE
+
bra K.READDIRA.ADDSTAT
*--------------------------------------
K.READDIRA.ADDD jsr K.READDIRA.AddFNToBuf
jsr K.READDIRA.ClrStat
+ lda #$0F
+ sta KrnBuf256+S.STAT.TYPE
+
bra K.READDIRA.ADDSTAT
*--------------------------------------
K.READDIRA.ADDF jsr K.READDIRA.AddFNToBuf
@@ -442,20 +451,20 @@ K.READDIRA.ADDF jsr K.READDIRA.AddFNToBuf
ldy #$10 type
lda (ZPQuickPtr3),y
- sta KrnBuffer256+S.STAT.TYPE
+ sta KrnBuf256+S.STAT.TYPE
ldy #$1F auxtype
lda (ZPQuickPtr3),y
- sta KrnBuffer256+S.STAT.AUXTYPE
+ sta KrnBuf256+S.STAT.AUXTYPE
iny
lda (ZPQuickPtr3),y
- sta KrnBuffer256+S.STAT.AUXTYPE+1
+ sta KrnBuf256+S.STAT.AUXTYPE+1
*--------------------------------------
K.READDIRA.AddStat
ldy #S.STAT-1
-.1 lda KrnBuffer256,y
+.1 lda KrnBuf256,y
sta (ZPQuickPtr4),y
dey
bpl .1
@@ -471,7 +480,7 @@ K.READDIRA.AddStat
K.READDIRA.ClrStat
ldx #S.STAT-1
-.1 stz KrnBuffer256,x
+.1 stz KrnBuf256,x
dey
bpl .1
rts
diff --git a/SYS/KERNEL.S.ENV.txt b/SYS/KERNEL.S.ENV.txt
index 9888f025..8e147068 100644
--- a/SYS/KERNEL.S.ENV.txt
+++ b/SYS/KERNEL.S.ENV.txt
@@ -9,11 +9,11 @@ K.ExpandPStrYA.NEW
>STYA ZPQuickPtr3
lda (ZPQuickPtr3)
- sta KrnBuffer256
+ sta KrnBuf256
tay
.1 lda (ZPQuickPtr3),y
- sta KrnBuffer256,y
+ sta KrnBuf256,y
dey
bne .1
@@ -22,11 +22,11 @@ K.ExpandPStrYA.NEW
.2 stz K.ExpandPStr.Start
.3 tya
- cmp KrnBuffer256 End of PSTR?
+ cmp KrnBuf256 End of PSTR?
beq .80
iny
- lda KrnBuffer256,y
+ lda KrnBuf256,y
.80
@@ -42,7 +42,7 @@ K.ExpandPStrYA.NEW
K.ExpandPStrYA
>STYA ZPQuickPtr3
- stz KrnBuffer256 init Expanded String len=0
+ stz KrnBuf256 init Expanded String len=0
ldy #0
@@ -61,9 +61,9 @@ K.ExpandPStrYA
cmp #'$' no, found one ?
beq .2
- inc KrnBuffer256 no, copy char
- ldx KrnBuffer256
- sta KrnBuffer256,x
+ inc KrnBuf256 no, copy char
+ ldx KrnBuf256
+ sta KrnBuf256,x
bra .1
.2 sty K.ExpandPStr.Start save var start
@@ -95,7 +95,7 @@ K.ExpandPStrYA
jsr K.ExpandPStr.AV yes, expand and add to STR
-.7 >LDYAI KrnBuffer256
+.7 >LDYAI KrnBuf256
jsr K.NewPStrYA
rts
*--------------------------------------
@@ -103,12 +103,12 @@ K.ExpandPStr.AV lda K.ExpandPStr.End
sec
sbc K.ExpandPStr.Start compute len of VAR End-Start+1
- ldx KrnBuffer256
+ ldx KrnBuf256
inx
- sta KrnBuffer256,x
+ sta KrnBuf256,x
stx ZPQuickPtr2
- lda /KrnBuffer256
+ lda /KrnBuf256
sta ZPQuickPtr2+1
ldy K.ExpandPStr.Start
@@ -116,7 +116,7 @@ K.ExpandPStr.AV lda K.ExpandPStr.End
.1 iny
inx
lda (ZPQuickPtr3),y
- sta KrnBuffer256,x
+ sta KrnBuf256,x
cpy K.ExpandPStr.End
bne .1
@@ -131,17 +131,17 @@ K.ExpandPStr.AV lda K.ExpandPStr.End
jsr S.NextEnvPtr1 Skip NAME
.11 ldy #0
- ldx KrnBuffer256
+ ldx KrnBuf256
.2 iny
lda (ZPQuickPtr1),y
inx
- sta KrnBuffer256,x
+ sta KrnBuf256,x
tya
cmp (ZPQuickPtr1) last char?
bne .2
- stx KrnBuffer256
+ stx KrnBuf256
.9 rts
*--------------------------------------
@@ -171,48 +171,48 @@ K.ExpandPStr.End .BS 1
K.PutEnvYA >STYA ZPQuickPtr2 NAME=VALUE
lda (ZPQuickPtr2)
beq .9
- sta KrnBuffer256
+ sta KrnBuf256
tay
.1 lda (ZPQuickPtr2),y
- sta KrnBuffer256,y
+ sta KrnBuf256,y
dey
bne .1
ldy #0
.2 iny
- cpy KrnBuffer256 last char ?
+ cpy KrnBuf256 last char ?
beq .9 no "=" found
- lda KrnBuffer256,y
+ lda KrnBuf256,y
cmp #'='
bne .2
cpy #1 String like "=value" ?
beq .9
- cpy KrnBuffer256 last char ?
+ cpy KrnBuf256 last char ?
beq .9 we have "VAR="
- lda KrnBuffer256 save actual string len
+ lda KrnBuf256 save actual string len
- sty KrnBuffer256 set length of VAR string
- dec KrnBuffer256 ...without "="
+ sty KrnBuf256 set length of VAR string
+ dec KrnBuf256 ...without "="
.3 clc Substract VAR len+1 from whole len to get
- sbc KrnBuffer256 VALUE len
- sta KrnBuffer256,y save it at "=" POS
+ sbc KrnBuf256 VALUE len
+ sta KrnBuf256,y save it at "=" POS
tya
clc
- adc #KrnBuffer256
+ adc #KrnBuf256
sta ZPQuickPtr3
- lda /KrnBuffer256
+ lda /KrnBuf256
sta ZPQuickPtr3+1
- >LDYAI KrnBuffer256
+ >LDYAI KrnBuf256
>STYA ZPQuickPtr2
bra K.SetEnvPtr2Ptr3
diff --git a/SYS/KERNEL.S.FIO.txt b/SYS/KERNEL.S.FIO.txt
index 098933a8..429060ba 100644
--- a/SYS/KERNEL.S.FIO.txt
+++ b/SYS/KERNEL.S.FIO.txt
@@ -47,7 +47,7 @@ K.FileSearch >PULLW ZPQuickPtr4 ZPQuickPtr1 trashed by ExpandPStrYA
stz K.FileSearch.Index
-.1 stz KrnBuffer256 reset String
+.1 stz KrnBuf256 reset String
ldx #0
ldy K.FileSearch.Index
@@ -60,7 +60,7 @@ K.FileSearch >PULLW ZPQuickPtr4 ZPQuickPtr1 trashed by ExpandPStrYA
cmp #';'
beq .3
inx
- sta KrnBuffer256,x
+ sta KrnBuf256,x
bra .2
.3 txa
@@ -73,20 +73,20 @@ K.FileSearch >PULLW ZPQuickPtr4 ZPQuickPtr1 trashed by ExpandPStrYA
.4 iny
lda (ZPQuickPtr4),y Append Fiename...
inx
- sta KrnBuffer256,x
+ sta KrnBuf256,x
tya
cmp (ZPQuickPtr4)
bne .4
- stx KrnBuffer256 set string length
+ stx KrnBuf256 set string length
- >LDYAI KrnBuffer256
+ >LDYAI KrnBuf256
jsr K.MLIGetFileInfoYA
bcs .1 Failed...retry next path...
lda K.FileSearch.hSrch Discard Expanded hSrch list
jsr K.FreeMemA
- >LDYAI KrnBuffer256
+ >LDYAI KrnBuf256
jmp K.NewPStrYA
.98 lda K.FileSearch.hSrch Discard Expanded hSrch list
@@ -110,7 +110,7 @@ K.GetFullPathYA >STYA ZPQuickPtr3 Ptr1 & 2 used by StrCpy
lda (ZPQuickPtr3)
beq .9
- stz KrnBuffer256
+ stz KrnBuf256
ldy #1
lda (ZPQuickPtr3),y
@@ -121,14 +121,14 @@ K.GetFullPathYA >STYA ZPQuickPtr3 Ptr1 & 2 used by StrCpy
lda (pPs),y
jsr K.GetMemPtrA
>PUSHYA
- >PUSHWI KrnBuffer256
+ >PUSHWI KrnBuf256
jsr K.PStrCpy
.1 >PUSHW ZPQuickPtr3
- >PUSHWI KrnBuffer256
+ >PUSHWI KrnBuf256
jsr K.PStrCat
- >LDYAI KrnBuffer256
+ >LDYAI KrnBuf256
jmp K.NewPStrYA
.9 sec
rts
diff --git a/SYS/KERNEL.S.INIT2.txt b/SYS/KERNEL.S.INIT2.txt
index b532b993..90bbbb03 100644
--- a/SYS/KERNEL.S.INIT2.txt
+++ b/SYS/KERNEL.S.INIT2.txt
@@ -444,11 +444,12 @@ K.TskMgrInit stz TSKMGR.LASTID
ldy #S.PS.hENV
sta (pPs),y
- >LDYAI TmpBuffer256
- >SYSCALL SYS.MLIGetPrefixYA
+ >LDYAI UsrBuf256
+ >STYA MLICALL.PARAMS+1
+ >MLICALL MLIGETPREFIX
bcs .9
- >LDYAI TmpBuffer256
+ >LDYAI UsrBuf256
>SYSCALL SYS.NewPStrYA
bcs .9
@@ -456,7 +457,7 @@ K.TskMgrInit stz TSKMGR.LASTID
ldy #S.PS.hPREFIX
sta (pPs),y
- >PUSHWI TmpBuffer256 push ENV value
+ >PUSHWI UsrBuf256 push ENV value
>PUSHWI I.ENV.A2osX push ENV name
>SYSCALL SYS.SetEnv
bcs .9
diff --git a/SYS/KERNEL.S.JMP.txt b/SYS/KERNEL.S.JMP.txt
index c9025ea6..bb21a764 100644
--- a/SYS/KERNEL.S.JMP.txt
+++ b/SYS/KERNEL.S.JMP.txt
@@ -49,15 +49,15 @@ KERNEL.SYSCALL .DA K.GetMem $00
.DA 0
.DA 0
.DA 0
- .DA K.MLISetFileInfo
+ .DA 0
.DA 0
*--------------------------------------
.DA K.MLIGetFileInfoYA $50
- .DA K.MLIOnline
.DA 0
.DA 0
.DA 0
- .DA K.MLIGetPrefixYA
+ .DA 0
+ .DA 0
.DA 0
.DA K.MLIOpenYA
*--------------------------------------
@@ -70,7 +70,7 @@ KERNEL.SYSCALL .DA K.GetMem $00
.DA 0
.DA 0
*--------------------------------------
- .DA K.MLIGetEOFA $70
+ .DA 0 $70
.DA 0
.DA 0
.DA 0
diff --git a/SYS/KERNEL.S.MLI.txt b/SYS/KERNEL.S.MLI.txt
index fbdf612c..0dd35dfd 100644
--- a/SYS/KERNEL.S.MLI.txt
+++ b/SYS/KERNEL.S.MLI.txt
@@ -16,19 +16,6 @@ K.MLICreateFile >PULLW MLICALL.PARAMS+1
>MLICALL MLICREATE
rts
*--------------------------------------
-* K.MLISetFileInfo
-*--------------------------------------
-K.MLISetFileInfo
- >PULLW ZPQuickPtr1
- >PULLW MLICALL.PARAMS+1
- ldy #$E
-.1 lda (ZPQuickPtr1),y
- sta MLICALL.PARAMS+3,y
- dey
- bpl .1
- >MLICALL MLISETFILEINFO
- rts
-*--------------------------------------
* K.MLIGetFileInfoYA
* in :
* Y,A = FileName
@@ -42,21 +29,6 @@ K.MLIGetFileInfoYA
>LDYAI MLICALL.PARAMS+3
.9 rts
*--------------------------------------
-* K.MLIOnline
-* in :
-* PULLB = Device
-* PULLW = Dest PTR
-*--------------------------------------
-K.MLIOnline >PULLB MLICALL.PARAMS+1
- >PULLW MLICALL.PARAMS+2
- >MLICALL MLIONLINE
- rts
-*--------------------------------------
-K.MLIGetPrefixYA
- >STYA MLICALL.PARAMS+1
- >MLICALL MLIGETPREFIX
- rts
-*--------------------------------------
* K.MLIOpenYA
* in :
* YA = FileName
@@ -139,20 +111,6 @@ K.MLICloseA sta MLICALL.PARAMS+1
>MLICALL MLICLOSE
rts
*--------------------------------------
-* K.MLIGetEOF
-* in :
-* A = ref_num
-* out :
-* Y,A,X = EOF
-*--------------------------------------
-K.MLIGetEOFA sta MLICALL.PARAMS+1
- >MLICALL MLIGETEOF
- bcs .9
- >LDYA MLICALL.PARAMS+2
- ldx MLICALL.PARAMS+4
- clc
-.9 rts
-*--------------------------------------
MAN
SAVE SYS/KERNEL.S.MLI
LOAD SYS/KERNEL.S