mirror of https://github.com/A2osX/A2osX.git
Kernel 0.93
This commit is contained in:
Rémy GIBERT
parent
8134fcb846
commit
fb0c8b4e9c
Binary file not shown.
|
|
@ -507,12 +507,19 @@ SKT.GetDataFromSktIn
|
|||
|
||||
ldy #S.SOCKET.TCP.O
|
||||
lda (ZPPtrSKT),y
|
||||
ora #S.TCP.OPTIONS.ACK
|
||||
bit #S.TCP.OPTIONS.ACK
|
||||
beq .81
|
||||
|
||||
jsr TCP.OUT.SendOptA ACK pending, send ACK
|
||||
|
||||
bra .88
|
||||
|
||||
.81 ora #S.TCP.OPTIONS.ACK Delayed ACK
|
||||
sta (ZPPtrSKT),y
|
||||
|
||||
jsr TCP.OUT.I SKT.GetTCB already called, Try to ACK read DATA
|
||||
* jsr TCP.OUT.I SKT.GetTCB already called, Try to ACK read DATA
|
||||
|
||||
>LDYA ZPTmpPtr3
|
||||
.88 >LDYA ZPTmpPtr3
|
||||
clc
|
||||
rts
|
||||
*/--------------------------------------
|
||||
|
|
@ -612,9 +619,14 @@ SKT.AddDataToSktOut
|
|||
>ADC16 SKT.Cache+S.SOCKET.TCP.OUTTOSEND,ZPDataInLen
|
||||
jsr SKT.StoreTCB
|
||||
|
||||
ldy #S.SOCKET.TCP.O
|
||||
lda (ZPPtrSKT),y
|
||||
bit #S.TCP.OPTIONS.ACK
|
||||
beq .88 no pending ACK....
|
||||
|
||||
jsr TCP.OUT.I SKT.GetTCB called, try to push, ignore error....
|
||||
|
||||
>LDYA ZPDataInLen
|
||||
.88 >LDYA ZPDataInLen
|
||||
clc
|
||||
rts
|
||||
*/--------------------------------------
|
||||
|
|
|
|||
|
|
@ -469,9 +469,10 @@ TCP.OUT.SendOptA
|
|||
jsr TCP.NewFrame
|
||||
bcs TCP.IN.RTS
|
||||
|
||||
TCP.OUT.Send ldy #S.SOCKET.TCP.O
|
||||
ldy #S.SOCKET.TCP.O
|
||||
lda (ZPPtrSKT),y
|
||||
ldy #S.TCP.OPTIONS
|
||||
|
||||
TCP.OUT.Send ldy #S.TCP.OPTIONS
|
||||
sta (ZPFrameOutPtr),y
|
||||
|
||||
bit #S.TCP.OPTIONS.ACK
|
||||
|
|
|
|||
|
|
@ -223,9 +223,10 @@ PULSE and #S.EVT.F.T1SEC
|
|||
jsr ARP.EXPIRE
|
||||
jsr DNS.EXPIRE
|
||||
|
||||
.1 jsr TCP.SENDCLOSE
|
||||
.1 jsr FRM.RETRY
|
||||
jsr DNS.POLL
|
||||
jmp FRM.RETRY
|
||||
|
||||
jmp TCP.SENDCLOSE
|
||||
*--------------------------------------
|
||||
GetDynPort inc DYNPORT.LAST
|
||||
bne .1
|
||||
|
|
|
|||
|
|
@ -23,12 +23,9 @@ LIB.MAX .EQ 4
|
|||
ZS.START
|
||||
pNETCFG .BS 2
|
||||
pBuf .BS 2
|
||||
DevID .BS 1
|
||||
LibCnt .BS 1
|
||||
hNetworkFile .BS 1
|
||||
hLineBuf .BS 1
|
||||
hFrameIn .BS 1
|
||||
hLIBs .BS LIB.MAX+1 for ending 0 if MAX libs
|
||||
ZS.END .ED
|
||||
*--------------------------------------
|
||||
* File Header (16 Bytes)
|
||||
|
|
@ -51,11 +48,12 @@ CS.START cld
|
|||
.DA CS.RUN
|
||||
.DA CS.DOEVENT
|
||||
.DA CS.QUIT
|
||||
L.DEVNAME .DA DEVNAME
|
||||
L.MSG.RUNNING .DA MSG.RUNNING
|
||||
L.MSG.DEV.OK .DA MSG.DEV.OK
|
||||
L.MSG.DEV.KO .DA MSG.DEV.KO
|
||||
L.MSG.LIB .DA MSG.LIB
|
||||
L.MSG.EXEC .DA MSG.EXEC
|
||||
L.DEVNAME .DA DEVNAME
|
||||
L.IOCTL .DA IOCTL
|
||||
L.DCB.NIC .DA DCB.NIC
|
||||
L.ETCNETWORK .DA ETCNETWORK
|
||||
|
|
@ -132,7 +130,7 @@ CS.INIT.LIBS lda LibCnt
|
|||
pla
|
||||
ply
|
||||
>SYSCALL LoadLib
|
||||
bcs .9
|
||||
bcs CS.INIT.LIBS.9
|
||||
|
||||
ldy LibCnt
|
||||
sta hLIBs,y
|
||||
|
|
@ -159,15 +157,6 @@ CS.INIT.LIBS lda LibCnt
|
|||
dex
|
||||
bpl .2
|
||||
|
||||
* >PUSHW pNETCFG
|
||||
|
||||
* ldy LibCnt
|
||||
* lda hLIBs,y
|
||||
* tay
|
||||
|
||||
* ldx #LIBNET.SETCFG
|
||||
* jsr A2osX.LIBCALL
|
||||
|
||||
inc LibCnt
|
||||
lda LibCnt
|
||||
cmp #LIB.MAX
|
||||
|
|
@ -175,18 +164,18 @@ CS.INIT.LIBS lda LibCnt
|
|||
|
||||
.8 clc
|
||||
|
||||
.9 rts
|
||||
CS.INIT.LIBS.9 rts
|
||||
*--------------------------------------
|
||||
CS.INIT.CONF >LDYAI 64
|
||||
>SYSCALL GetMem
|
||||
bcs .99
|
||||
bcs CS.INIT.LIBS.9
|
||||
|
||||
>STYA pBuf
|
||||
stx hLineBuf
|
||||
|
||||
>PUSHWI 0
|
||||
>PUSHBI S.FI.T.TXT
|
||||
>PUSHBI O.RDONLY
|
||||
>PUSHBI O.RDONLY+O.TEXT
|
||||
|
||||
>LDYA L.ETCNETWORK
|
||||
>SYSCALL fopen
|
||||
|
|
@ -194,13 +183,18 @@ CS.INIT.CONF >LDYAI 64
|
|||
|
||||
sta hNetworkFile
|
||||
|
||||
.1 >PUSHWI 63
|
||||
.1 >PUSHWI 64
|
||||
>PUSHW pBuf
|
||||
lda hNetworkFile
|
||||
>SYSCALL fgets
|
||||
bcs .80
|
||||
|
||||
>PUSHBI 0 PS Flags
|
||||
>PUSHW pBuf
|
||||
>PUSHBI 2
|
||||
>LDYA L.MSG.EXEC
|
||||
>SYSCALL printf
|
||||
|
||||
>PUSHBI 0 S.PS.F.HOLD+S.PS.F.NOHUP
|
||||
>LDYA pBuf
|
||||
>SYSCALL execL
|
||||
bra .1
|
||||
|
|
@ -209,7 +203,7 @@ CS.INIT.CONF >LDYAI 64
|
|||
jsr .81
|
||||
pla
|
||||
sec
|
||||
.99 rts
|
||||
rts
|
||||
|
||||
.80 lda hNetworkFile
|
||||
>SYSCALL fclose
|
||||
|
|
@ -297,12 +291,17 @@ CS.QUIT ldx #0
|
|||
*--------------------------------------
|
||||
CS.END
|
||||
*--------------------------------------
|
||||
DEVNAME .AZ "/DEV/ETH1"
|
||||
MSG.RUNNING .AZ "NETWORKD:Already loaded, exiting."
|
||||
MSG.DEV.KO .AZ "NETWORKD:No Device Found, exiting."
|
||||
MSG.DEV.OK .AZ "NETWORKD:Bound To Device : %s\r\n"
|
||||
MSG.LIB .AZ "NETWORKD:Loading %s ...\r\n"
|
||||
ETCNETWORK .AZ "${ROOT}ETC/NETWORK"
|
||||
MSG.EXEC .AZ "NETWORKD:Running %s ...\r\n"
|
||||
ETCNETWORK .AZ "${BOOT}ETC/NETWORK"
|
||||
*--------------------------------------
|
||||
DevID .BS 1
|
||||
LibCnt .BS 1
|
||||
hLIBs .BS LIB.MAX+1 for ending 0 if MAX libs
|
||||
DEVNAME .AZ "/DEV/ETH1"
|
||||
IOCTL .BS S.IOCTL
|
||||
DCB.NIC .BS S.DCB.NIC
|
||||
*--------------------------------------
|
||||
|
|
|
|||
|
|
@ -814,8 +814,8 @@ K.FGetS jsr PFT.CheckNodeA
|
|||
lda (pFD)
|
||||
bne K.FGetS.Special
|
||||
|
||||
lda (pStack)
|
||||
* clc
|
||||
lda (pStack)
|
||||
sbc #0
|
||||
sta ZPPtr2 s-1
|
||||
|
||||
|
|
@ -827,8 +827,8 @@ K.FGetS jsr PFT.CheckNodeA
|
|||
|
||||
iny
|
||||
|
||||
clc
|
||||
lda (pStack),y n-1
|
||||
* clc
|
||||
sbc #0
|
||||
sta (pStack),y
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue