mirror of
https://github.com/A2osX/A2osX.git
synced 2025-01-11 10:29:46 +00:00
Kernel 0.92, Issue List #103
This commit is contained in:
parent
234e5bef3a
commit
d65677ca17
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -219,8 +219,10 @@ CS.DOEVENT lda (pEvent)
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.QUIT lda hLIBTCPIP
|
||||
beq .8
|
||||
>SYSCALL UnloadLib
|
||||
clc
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
Init.Timeout ldy #TimeOut
|
||||
|
@ -42,10 +42,11 @@ L.MSG.USAGE .DA MSG.USAGE
|
||||
*--------------------------------------
|
||||
CS.INIT >LDYA L.LIBTCPIP
|
||||
>SYSCALL LoadLib
|
||||
bcs .9
|
||||
|
||||
sta hLIBTCPIP
|
||||
|
||||
clc
|
||||
rts
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CS.RUN ldy #S.PS.ARGC
|
||||
lda (pPs),y
|
||||
@ -153,8 +154,10 @@ CS.EVENT sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.QUIT lda hLIBTCPIP
|
||||
beq .8
|
||||
>SYSCALL UnloadLib
|
||||
clc
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.END
|
||||
|
@ -64,7 +64,7 @@ CS.INIT >LDYA L.LIBTCPIP
|
||||
bcs .9
|
||||
|
||||
sta hLIBTCPIP
|
||||
clc
|
||||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CS.RUN >LDYA L.MSG0
|
||||
|
@ -53,7 +53,6 @@ CS.INIT >LDYA L.LIBTCPIP
|
||||
bcs .9
|
||||
sta hLIBTCPIP
|
||||
|
||||
clc
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ?
|
||||
@ -183,16 +182,14 @@ CS.RUN.OPENSKT ldx #3
|
||||
rts
|
||||
|
||||
CS.RUN.SEND.ECHO
|
||||
ldy #Identifier
|
||||
lda (pData),y
|
||||
>LDA.G Identifier
|
||||
sta ICMP.Request.ID
|
||||
iny
|
||||
lda (pData),y
|
||||
sta ICMP.Request.ID+1
|
||||
|
||||
ldy #Sequence
|
||||
>LDA.G Sequence
|
||||
sec
|
||||
lda (pData),y
|
||||
adc #0
|
||||
sta (pData),y
|
||||
sta ICMP.Request.SQ
|
||||
|
@ -57,7 +57,6 @@ CS.INIT >LDYA L.LIBTCPIP
|
||||
bcs .9
|
||||
sta hLIBTCPIP
|
||||
|
||||
clc
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ?
|
||||
@ -250,8 +249,7 @@ CS.RUN.USER >LDYA L.MSG.USER
|
||||
CS.DOEVENT lda (pEvent)
|
||||
bpl .9 is it a TIMER event?
|
||||
|
||||
ldy #TimeOut
|
||||
lda (pData),y
|
||||
>LDA.G TimeOut
|
||||
beq .9
|
||||
|
||||
dec
|
||||
@ -271,18 +269,18 @@ CS.QUIT >LDA.G hSocket
|
||||
>SYSCALL freemem
|
||||
|
||||
.2 lda hLIBTCPIP
|
||||
beq .8
|
||||
>SYSCALL UnloadLib
|
||||
clc
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
Init.Timeout ldy #TimeOut
|
||||
lda #TIMEOUT.MAX
|
||||
sta (pData),y
|
||||
Init.Timeout lda #TIMEOUT.MAX
|
||||
>STA.G TimeOut
|
||||
rts
|
||||
*--------------------------------------
|
||||
Wait.TimeOut sec
|
||||
ldy #TimeOut
|
||||
lda (pData),y
|
||||
>LDA.G TimeOut
|
||||
beq .9
|
||||
|
||||
clc
|
||||
|
@ -389,9 +389,9 @@ SKT.Dump ldy #S.SOCKET.REM.PORT+1
|
||||
CS.END
|
||||
*--------------------------------------
|
||||
DEVNAME .AZ "/DEV/ETH1"
|
||||
MSG.DEV.KO .AZ "TCPIPD:No Device Found, exiting."
|
||||
MSG.DEV.OK .AZ "TCPIPD:Bound To Device : %s\r\n"
|
||||
MSG.CFG .AZ "TCPIPD:Reading %s..."
|
||||
MSG.DEV.KO .AZ "LIBTCPIP:No Device Found, exiting."
|
||||
MSG.DEV.OK .AZ "LIBTCPIP:Bound To Device : %s\r\n"
|
||||
MSG.CFG .AZ "LIBTCPIP:Reading %s..."
|
||||
MSG.CFG.KO .AZ "Failed!!! [%h]\r\n"
|
||||
MSG.CFG.OK .AZ "OK."
|
||||
MSG.DNS.ADD .AZ " - Adding static host %d.%d.%d.%d %s..."
|
||||
|
@ -255,8 +255,10 @@ CS.QUIT >LDA.G hSocket
|
||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Shutdown
|
||||
|
||||
.1 lda hLIBTCPIP
|
||||
beq .8
|
||||
>SYSCALL UnloadLib
|
||||
clc
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
CheckDHCPOffer jsr CheckDHCPXID
|
||||
|
@ -238,8 +238,10 @@ CS.QUIT ldx #CONN.MAX
|
||||
>SYSCALL FreeMem
|
||||
|
||||
.3 lda hLIBTCPIP
|
||||
beq .8
|
||||
>SYSCALL UnloadLib
|
||||
clc
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
Init.Timeout ldy #TimeOut
|
||||
|
@ -36,11 +36,10 @@ L.LIBTCPIP .DA LIBTCPIP
|
||||
*--------------------------------------
|
||||
CS.INIT >LDYA L.LIBTCPIP
|
||||
>SYSCALL LoadLib
|
||||
bcs .99
|
||||
bcs .9
|
||||
sta hLIBTCPIP
|
||||
|
||||
* clc
|
||||
.99 rts
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.POLL
|
||||
clc
|
||||
@ -54,8 +53,10 @@ CS.DOEVENT lda (pEvent)
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.QUIT lda hLIBTCPIP
|
||||
beq .8
|
||||
|
||||
>SYSCALL UnloadLib
|
||||
clc
|
||||
.8 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.END
|
||||
|
@ -52,10 +52,10 @@ L.CMD.Template .DA CMD.Template
|
||||
*--------------------------------------
|
||||
CS.INIT >LDYA L.LIBTCPIP
|
||||
>SYSCALL LoadLib
|
||||
bcs .9
|
||||
sta hLIBTCPIP
|
||||
|
||||
clc
|
||||
rts
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CS.RUN jsr Init.Timeout
|
||||
|
||||
@ -238,18 +238,18 @@ CS.QUIT ldx #CONN.MAX
|
||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Shutdown
|
||||
|
||||
.3 lda hLIBTCPIP
|
||||
beq .8
|
||||
>SYSCALL UnloadLib
|
||||
clc
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
Init.Timeout ldy #TimeOut
|
||||
lda #TIMEOUT.MAX
|
||||
sta (pData),y
|
||||
Init.Timeout lda #TIMEOUT.MAX
|
||||
>STA.G TimeOut
|
||||
rts
|
||||
*--------------------------------------
|
||||
Wait.TimeOut sec
|
||||
ldy #TimeOut
|
||||
lda (pData),y
|
||||
>LDA.G TimeOut
|
||||
beq .9
|
||||
clc
|
||||
.9 rts
|
||||
|
Loading…
x
Reference in New Issue
Block a user