Kernel 0.92, Issue List #103

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

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
+.9				rts
-				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			

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

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.G Identifier
-				lda (pData),y
 				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

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.G TimeOut
-				lda (pData),y
 				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
+Init.Timeout	lda #TIMEOUT.MAX
-				lda #TIMEOUT.MAX
+				>STA.G TimeOut
-				sta (pData),y
 				rts
 *--------------------------------------
 Wait.TimeOut	sec
-				ldy #TimeOut
+				>LDA.G TimeOut
-				lda (pData),y
 				beq .9
 
 				clc

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.KO		.AZ "LIBTCPIP:No Device Found, exiting."
-MSG.DEV.OK		.AZ "TCPIPD:Bound To Device : %s\r\n"
+MSG.DEV.OK		.AZ "LIBTCPIP:Bound To Device : %s\r\n"
-MSG.CFG			.AZ "TCPIPD:Reading %s..."
+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..."

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

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

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
+.9				rts
-.99				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

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
+.9				rts
-				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
+Init.Timeout	lda #TIMEOUT.MAX
-				lda #TIMEOUT.MAX
+				>STA.G TimeOut
-				sta (pData),y
 				rts
 *--------------------------------------
 Wait.TimeOut	sec
-				ldy #TimeOut
+				>LDA.G TimeOut
-				lda (pData),y
 				beq .9
 				clc
 .9				rts