Kernel 0.92, Issue List #103

This commit is contained in:
Rémy GIBERT 2018-11-12 10:22:06 +01:00
parent 234e5bef3a
commit d65677ca17
13 changed files with 41 additions and 36 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -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

View File

@ -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

View File

@ -64,7 +64,7 @@ CS.INIT >LDYA L.LIBTCPIP
bcs .9
sta hLIBTCPIP
clc
.9 rts
*--------------------------------------
CS.RUN >LDYA L.MSG0

View File

@ -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

View File

@ -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

View File

@ -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..."

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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