mirror of
https://github.com/A2osX/A2osX.git
synced 2024-07-14 04:29:02 +00:00
Kernel version 0.8 : FILE API Debug...
This commit is contained in:
parent
d2334df796
commit
79488f88fa
BIN
A2OSX.BOOT.po
BIN
A2OSX.BOOT.po
Binary file not shown.
BIN
A2OSX.SRC.po
BIN
A2OSX.SRC.po
Binary file not shown.
@ -295,7 +295,10 @@ FIO.LOAD.ASM.T ldy #ASM.T.hMem
|
|||||||
>PUSHW L.MSG.T.FILE
|
>PUSHW L.MSG.T.FILE
|
||||||
>LIBCALL hLIBSTR,LIBSTR.PRINTF
|
>LIBCALL hLIBSTR,LIBSTR.PRINTF
|
||||||
|
|
||||||
>LDYA L.ASM.T.FILENAME
|
>PUSHWI 0 Aux type
|
||||||
|
>PUSHBI 6 S.FILEINFO.TYPE.BIN
|
||||||
|
>PUSHBI SYS.FOPEN.R
|
||||||
|
>PUSHW L.ASM.T.FILENAME
|
||||||
>SYSCALL SYS.LoadFileYA
|
>SYSCALL SYS.LoadFileYA
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
|
@ -472,7 +472,7 @@ S.Time.MINUTE .EQ 5 0..59
|
|||||||
S.Time.SECOND .EQ 6 0..61
|
S.Time.SECOND .EQ 6 0..61
|
||||||
S.Time.WDAY .EQ 7 1..7
|
S.Time.WDAY .EQ 7 1..7
|
||||||
*
|
*
|
||||||
K.Time .EQ 8
|
S.Time .EQ 8
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* S.STAT
|
* S.STAT
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -413,8 +413,11 @@ Cmd.Exec.ECHO lda ARGS
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Cmd.Exec.TYPE lda ARGS
|
Cmd.Exec.TYPE lda ARGS
|
||||||
beq .98
|
beq .98
|
||||||
>LDYA L.ARGS
|
>PUSHWI 0 Aux type
|
||||||
>SYSCALL SYS.LoadFileYA
|
>PUSHBI 4 S.FILEINFO.TYPE.TXT
|
||||||
|
>PUSHBI SYS.FOPEN.R
|
||||||
|
>PUSHW L.ARGS
|
||||||
|
>SYSCALL SYS.LoadFile
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
>STYA ZPPTR2 store file len
|
>STYA ZPPTR2 store file len
|
||||||
|
@ -290,14 +290,14 @@ CS.EVENT.CTRL.CHAR
|
|||||||
.2 cpx #10 LF (down arrow)
|
.2 cpx #10 LF (down arrow)
|
||||||
bne .3
|
bne .3
|
||||||
|
|
||||||
jsr HIK.GetNext
|
jsr HIS.GetNext
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.3 cpx #11 VT (up arrow)
|
.3 cpx #11 VT (up arrow)
|
||||||
bne .4
|
bne .4
|
||||||
|
|
||||||
jsr HiK.GetPrev
|
jsr HIS.GetPrev
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@ -444,7 +444,7 @@ EscChars >PSTRING "DBAC"
|
|||||||
EscAscii .HS 04080A0B15
|
EscAscii .HS 04080A0B15
|
||||||
CMD .BS 256
|
CMD .BS 256
|
||||||
ARGS .BS 256
|
ARGS .BS 256
|
||||||
TIME .BS K.Time
|
TIME .BS S.Time
|
||||||
hNEWPATH .BS 1
|
hNEWPATH .BS 1
|
||||||
hCmdLine .BS 1
|
hCmdLine .BS 1
|
||||||
Cmd.Exec.Mode .BS 1
|
Cmd.Exec.Mode .BS 1
|
||||||
|
315
SBIN/TCPIP.S.txt
315
SBIN/TCPIP.S.txt
@ -178,319 +178,6 @@ CS.QUIT lda IPCFG+S.IPCFG.HDEV
|
|||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CFG.Read >PUSHW L.HOSTNAME
|
|
||||||
>LDYA L.MSG.CFG
|
|
||||||
>SYSCALL SYS.PStrOutYA
|
|
||||||
|
|
||||||
jsr CFG.Read.HOSTNAME
|
|
||||||
bcc .1
|
|
||||||
>PUSHA
|
|
||||||
>LDYA L.MSG.CFG.KO
|
|
||||||
>SYSCALL SYS.PStrOutYA
|
|
||||||
bra .2
|
|
||||||
.1 >LDYA L.MSG.CFG.OK
|
|
||||||
>SYSCALL SYS.PStrOutYA
|
|
||||||
|
|
||||||
.2 >PUSHW L.TCPIP.CONF
|
|
||||||
>LDYA L.MSG.CFG
|
|
||||||
>SYSCALL SYS.PStrOutYA
|
|
||||||
|
|
||||||
jsr CFG.Read.TCPIP.CONF
|
|
||||||
bcc .3
|
|
||||||
>PUSHA
|
|
||||||
>LDYA L.MSG.CFG.KO
|
|
||||||
>SYSCALL SYS.PStrOutYA
|
|
||||||
bra .4
|
|
||||||
.3 >LDYA L.MSG.CFG.OK
|
|
||||||
>SYSCALL SYS.PStrOutYA
|
|
||||||
|
|
||||||
.4 >PUSHW L.HOSTS
|
|
||||||
>LDYA L.MSG.CFG
|
|
||||||
>SYSCALL SYS.PStrOutYA
|
|
||||||
|
|
||||||
jsr CFG.Read.HOSTS
|
|
||||||
bcc .5
|
|
||||||
>PUSHA
|
|
||||||
>LDYA L.MSG.CFG.KO
|
|
||||||
>SYSCALL SYS.PStrOutYA
|
|
||||||
bra .6
|
|
||||||
.5 >LDYA L.MSG.CFG.OK
|
|
||||||
>SYSCALL SYS.PStrOutYA
|
|
||||||
.6 rts
|
|
||||||
*--------------------------------------
|
|
||||||
CFG.Read.HOSTNAME
|
|
||||||
>LDYA L.HOSTNAME
|
|
||||||
>SYSCALL SYS.LoadFileYA
|
|
||||||
bcs .99
|
|
||||||
stx CFG.hCfgFile
|
|
||||||
>STYA CFG.FileLen
|
|
||||||
|
|
||||||
txa
|
|
||||||
>SYSCALL SYS.GetMemPtrA
|
|
||||||
>STYA ZPIPCfgPtr
|
|
||||||
|
|
||||||
lda CFG.FileLen+1
|
|
||||||
bne .2
|
|
||||||
ldy CFG.FileLen
|
|
||||||
beq .2
|
|
||||||
cpy #15
|
|
||||||
bcs .2
|
|
||||||
|
|
||||||
sta IPCFG+S.IPCFG.HOSTNAME,y
|
|
||||||
|
|
||||||
.1 dey
|
|
||||||
bmi .89
|
|
||||||
lda (ZPIPCfgPtr),y
|
|
||||||
sta IPCFG+S.IPCFG.HOSTNAME,y
|
|
||||||
bra .1
|
|
||||||
|
|
||||||
.2 jsr .89
|
|
||||||
sec
|
|
||||||
rts
|
|
||||||
|
|
||||||
.89 lda CFG.hCfgFile
|
|
||||||
>SYSCALL SYS.FreeMemA
|
|
||||||
|
|
||||||
clc
|
|
||||||
.99 rts
|
|
||||||
*--------------------------------------
|
|
||||||
CFG.Read.TCPIP.CONF
|
|
||||||
>LDYA L.TCPIP.CONF
|
|
||||||
>SYSCALL SYS.LoadFileYA
|
|
||||||
bcs .99
|
|
||||||
stx CFG.hCfgFile
|
|
||||||
>STYA CFG.FileLen
|
|
||||||
txa
|
|
||||||
>SYSCALL SYS.GetMemPtrA
|
|
||||||
>STYA ZPIPCfgPtr
|
|
||||||
|
|
||||||
.1 jsr CFG.GetLine
|
|
||||||
bcs .89
|
|
||||||
|
|
||||||
jsr CFG.GetKeyword
|
|
||||||
bcs .1
|
|
||||||
|
|
||||||
lda CFG.Keyword
|
|
||||||
bne .3
|
|
||||||
|
|
||||||
ldy TmpBuffer256
|
|
||||||
|
|
||||||
lda TmpBuffer256+1,y
|
|
||||||
cmp #35 DOMAIN too long!!!
|
|
||||||
bcs .1
|
|
||||||
|
|
||||||
sta IPCFG+S.IPCFG.DOMAIN
|
|
||||||
ldx #0
|
|
||||||
|
|
||||||
.2 lda TmpBuffer256+2,y
|
|
||||||
sta IPCFG+S.IPCFG.DOMAIN,x
|
|
||||||
beq .1
|
|
||||||
inx
|
|
||||||
iny
|
|
||||||
bne .2
|
|
||||||
bra .1
|
|
||||||
|
|
||||||
.3 jsr CFG.ScanIP
|
|
||||||
bcs .1
|
|
||||||
|
|
||||||
ldy CFG.Keyword
|
|
||||||
lda CFG.Keyword.Map,y
|
|
||||||
tax
|
|
||||||
ldy #0
|
|
||||||
|
|
||||||
.4 lda CFG.IP+1,y
|
|
||||||
sta IPCFG,x
|
|
||||||
inx
|
|
||||||
iny
|
|
||||||
cpy #4
|
|
||||||
bne .4
|
|
||||||
lda CFG.Keyword
|
|
||||||
cmp #1
|
|
||||||
bne .1
|
|
||||||
lda #S.IPCFG.STATUS.OK
|
|
||||||
sta IPCFG
|
|
||||||
bra .1
|
|
||||||
|
|
||||||
.89 lda CFG.hCfgFile
|
|
||||||
>SYSCALL SYS.FreeMemA
|
|
||||||
|
|
||||||
clc
|
|
||||||
.99 rts
|
|
||||||
*--------------------------------------
|
|
||||||
CFG.Read.HOSTS >LDYA L.HOSTS
|
|
||||||
>SYSCALL SYS.LoadFileYA
|
|
||||||
bcs .99
|
|
||||||
stx CFG.hCfgFile
|
|
||||||
>STYA CFG.FileLen
|
|
||||||
|
|
||||||
txa
|
|
||||||
>SYSCALL SYS.GetMemPtrA
|
|
||||||
>STYA ZPIPCfgPtr
|
|
||||||
|
|
||||||
.89 lda CFG.hCfgFile
|
|
||||||
>SYSCALL SYS.FreeMemA
|
|
||||||
clc
|
|
||||||
.99 rts
|
|
||||||
*--------------------------------------
|
|
||||||
CFG.GetLine stz TmpBuffer256
|
|
||||||
ldx #0
|
|
||||||
ldy #0
|
|
||||||
|
|
||||||
.1 jsr CFG.GetChar
|
|
||||||
bne .2 end of file?
|
|
||||||
txa
|
|
||||||
bne .8
|
|
||||||
sec
|
|
||||||
rts
|
|
||||||
|
|
||||||
.2 cmp #$0D
|
|
||||||
beq .8 end of line
|
|
||||||
inx
|
|
||||||
sta TmpBuffer256,x
|
|
||||||
cmp #'='
|
|
||||||
bne .3
|
|
||||||
txa
|
|
||||||
dec
|
|
||||||
tay
|
|
||||||
.3 cpx #64 line too long ?
|
|
||||||
bne .1
|
|
||||||
sec
|
|
||||||
rts
|
|
||||||
|
|
||||||
.8 tya = found ?
|
|
||||||
beq .9
|
|
||||||
|
|
||||||
sta TmpBuffer256
|
|
||||||
txa
|
|
||||||
sec
|
|
||||||
sbc TmpBuffer256
|
|
||||||
sta TmpBuffer256+1,y
|
|
||||||
stz TmpBuffer256+1,x End with 0 for ScanIP
|
|
||||||
clc
|
|
||||||
rts
|
|
||||||
|
|
||||||
.9 sec
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
CFG.GetChar lda CFG.FileLen
|
|
||||||
bne .1
|
|
||||||
lda CFG.FileLen+1
|
|
||||||
beq .9
|
|
||||||
dec CFG.FileLen+1
|
|
||||||
.1 dec CFG.FileLen
|
|
||||||
lda (ZPIPCfgPtr)
|
|
||||||
inc ZPIPCfgPtr
|
|
||||||
bne .9
|
|
||||||
inc ZPIPCfgPtr+1 NZ
|
|
||||||
.9 rts
|
|
||||||
*--------------------------------------
|
|
||||||
CFG.GetKeyword stz CFG.Keyword
|
|
||||||
|
|
||||||
ldx #0
|
|
||||||
|
|
||||||
.1 phx
|
|
||||||
ldy #0
|
|
||||||
|
|
||||||
.2 lda CFG.Keywords,x
|
|
||||||
cmp TmpBuffer256,y
|
|
||||||
bne .3
|
|
||||||
cpy TmpBuffer256
|
|
||||||
beq .4
|
|
||||||
inx
|
|
||||||
iny
|
|
||||||
bne .2
|
|
||||||
plx
|
|
||||||
sec
|
|
||||||
rts
|
|
||||||
|
|
||||||
.3 inc CFG.Keyword
|
|
||||||
plx
|
|
||||||
txa
|
|
||||||
sec
|
|
||||||
adc CFG.Keywords,x
|
|
||||||
tax
|
|
||||||
lda CFG.Keywords,x
|
|
||||||
bne .1
|
|
||||||
sec
|
|
||||||
rts
|
|
||||||
|
|
||||||
.4 plx
|
|
||||||
clc
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
CFG.ScanIP stz CFG.IP
|
|
||||||
|
|
||||||
ldx TmpBuffer256
|
|
||||||
|
|
||||||
.1 ldy #0
|
|
||||||
.11 lda TmpBuffer256+2,x
|
|
||||||
beq .3
|
|
||||||
cmp #'0'
|
|
||||||
bcc .2
|
|
||||||
cmp #'9'+1
|
|
||||||
bcs .2
|
|
||||||
cpy #3
|
|
||||||
beq .9
|
|
||||||
iny
|
|
||||||
sta CFG.StrBuf,y
|
|
||||||
inx
|
|
||||||
bra .11
|
|
||||||
|
|
||||||
.2 cmp #'.'
|
|
||||||
bne .9
|
|
||||||
|
|
||||||
.3 sty CFG.StrBuf
|
|
||||||
lda CFG.IP
|
|
||||||
cmp #4
|
|
||||||
beq .9
|
|
||||||
jsr CFG.Dec2Hex
|
|
||||||
bcs .9
|
|
||||||
lda CFG.HexByte
|
|
||||||
inc CFG.IP
|
|
||||||
ldy CFG.IP
|
|
||||||
sta CFG.IP,y
|
|
||||||
inx
|
|
||||||
lda TmpBuffer256+1,x
|
|
||||||
bne .1
|
|
||||||
clc
|
|
||||||
rts
|
|
||||||
|
|
||||||
.9 sec
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
CFG.Dec2Hex sec
|
|
||||||
ldy CFG.StrBuf
|
|
||||||
beq .9
|
|
||||||
|
|
||||||
lda CFG.StrBuf+1
|
|
||||||
and #$0f
|
|
||||||
sta CFG.HexByte
|
|
||||||
|
|
||||||
ldy #1
|
|
||||||
|
|
||||||
.1 cpy CFG.StrBuf
|
|
||||||
beq .8
|
|
||||||
iny
|
|
||||||
lda CFG.HexByte
|
|
||||||
asl CFG.HexByte
|
|
||||||
bcs .9
|
|
||||||
asl CFG.HexByte
|
|
||||||
bcs .9
|
|
||||||
adc CFG.HexByte
|
|
||||||
bcs .9
|
|
||||||
asl
|
|
||||||
bcs .9
|
|
||||||
sta CFG.HexByte
|
|
||||||
lda CFG.StrBuf,y
|
|
||||||
and #$0f
|
|
||||||
adc CFG.HexByte
|
|
||||||
sta CFG.HexByte
|
|
||||||
bcc .1
|
|
||||||
.9 rts
|
|
||||||
|
|
||||||
.8 clc
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
A2CharAX pha
|
A2CharAX pha
|
||||||
lsr
|
lsr
|
||||||
lsr
|
lsr
|
||||||
@ -511,6 +198,8 @@ A2CharAX pha
|
|||||||
.8 rts
|
.8 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
pNetDevJmp jmp *
|
pNetDevJmp jmp *
|
||||||
|
*--------------------------------------
|
||||||
|
.INB SBIN/TCPIP.S.CFG
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.END
|
CS.END
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -34,8 +34,11 @@ K.LoadBinYA >STYA K.LoadBin.Filename
|
|||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.3 >LDYA K.LoadBin.Filename
|
.3 >PUSHWI $2000 Aux type
|
||||||
jsr K.LoadFileYA
|
>PUSHBI 6 S.FILEINFO.TYPE.BIN
|
||||||
|
>PUSHBI SYS.FOPEN.R
|
||||||
|
>PUSHW K.LoadBin.Filename
|
||||||
|
jsr K.LoadFile
|
||||||
bcs .99 Error Loading file
|
bcs .99 Error Loading file
|
||||||
|
|
||||||
>STYA K.LoadBin.SegLen
|
>STYA K.LoadBin.SegLen
|
||||||
|
Loading…
Reference in New Issue
Block a user