diff --git a/.A2osX Issue List.xlsx b/.A2osX Issue List.xlsx index e4cff0f7..7cc47012 100644 Binary files a/.A2osX Issue List.xlsx and b/.A2osX Issue List.xlsx differ diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index e249ab8d..a9c537af 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/.Floppies/A2OSX.SRC.po b/.Floppies/A2OSX.SRC.po index 401680c0..66a5babb 100644 Binary files a/.Floppies/A2OSX.SRC.po and b/.Floppies/A2OSX.SRC.po differ diff --git a/BIN/ARP.S.txt b/BIN/ARP.S.txt index ffa8fe39..3273dfb9 100644 --- a/BIN/ARP.S.txt +++ b/BIN/ARP.S.txt @@ -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 diff --git a/BIN/DNSINFO.S.txt b/BIN/DNSINFO.S.txt index 8bc8129f..8c561364 100644 --- a/BIN/DNSINFO.S.txt +++ b/BIN/DNSINFO.S.txt @@ -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 diff --git a/BIN/NETSTAT.S.txt b/BIN/NETSTAT.S.txt index 0324d46c..3a594a00 100644 --- a/BIN/NETSTAT.S.txt +++ b/BIN/NETSTAT.S.txt @@ -64,7 +64,7 @@ CS.INIT >LDYA L.LIBTCPIP bcs .9 sta hLIBTCPIP - clc + .9 rts *-------------------------------------- CS.RUN >LDYA L.MSG0 diff --git a/BIN/PING.S.txt b/BIN/PING.S.txt index e04926fe..8c85732f 100644 --- a/BIN/PING.S.txt +++ b/BIN/PING.S.txt @@ -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 diff --git a/BIN/TELNET.S.txt b/BIN/TELNET.S.txt index d4ab3083..84737155 100644 --- a/BIN/TELNET.S.txt +++ b/BIN/TELNET.S.txt @@ -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 diff --git a/LIB/LIBTCPIP.S.txt b/LIB/LIBTCPIP.S.txt index 35eeb47a..f2e75124 100644 --- a/LIB/LIBTCPIP.S.txt +++ b/LIB/LIBTCPIP.S.txt @@ -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..." diff --git a/SBIN/DHCPCLNT.S.txt b/SBIN/DHCPCLNT.S.txt index f4a4eebf..77d0aed4 100644 --- a/SBIN/DHCPCLNT.S.txt +++ b/SBIN/DHCPCLNT.S.txt @@ -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 diff --git a/SBIN/HTTPD.S.txt b/SBIN/HTTPD.S.txt index 41fa848f..5fe0eae7 100644 --- a/SBIN/HTTPD.S.txt +++ b/SBIN/HTTPD.S.txt @@ -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 diff --git a/SBIN/TCPIPD.S.txt b/SBIN/TCPIPD.S.txt index 93cf8d4f..19211ba3 100644 --- a/SBIN/TCPIPD.S.txt +++ b/SBIN/TCPIPD.S.txt @@ -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 diff --git a/SBIN/TELNETD.S.txt b/SBIN/TELNETD.S.txt index f33fd63f..756e905c 100644 --- a/SBIN/TELNETD.S.txt +++ b/SBIN/TELNETD.S.txt @@ -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