Kernel 0.9.2

LIB/LIBTCPIP.S.ARP.txt

@@ -216,6 +216,13 @@ ARP.QUERY.I		jsr ARP.FIND.BY.IP
 				cpy #S.ARPCACHE.MAC+6
 				bne .2
 				
+				ldy #S.ARPCACHE.TTL
+				lda #K.ARP.TTL
+				sta (ZPCachePtr),y
+				iny
+				lda /K.ARP.TTL
+				sta (ZPCachePtr),y
+				
 				clc
 				rts
 
@@ -261,6 +268,7 @@ ARP.FIND.BY.IP	>LDYA L.ARP.CACHE
 				dey
 				dex
 				bpl .2
+				
 				clc
 				rts
 				

LIB/LIBTCPIP.S.SKT.txt

@@ -336,8 +336,8 @@ SKT.MkNod		sta .1+1
 * **Out:**
 *  Y,A = bytes transfered
 *\--------------------------------------
-SKT.Read 		>PULLW ZPDataOutLen
+SKT.Read 		>PULLW ZPDataInLen		!!!use DataInPtr/Len
-				>PULLW ZPDataOutPtr
+				>PULLW ZPDataInPtr		!!!DataOut trashed when sending ACK in TCP.OUT	
 				>PULLA
 
 SKT.Read.I		jsr SKT.Get.I
@@ -705,11 +705,11 @@ SKT.GetDataFromSktIn
 				adc SKT.TCBCache+S.TCB.INTAIL+1
 				sta ZPTmpPtr2+1
 				
-				lda ZPDataOutLen
+				lda ZPDataInLen
 				eor #$FF
 				tax
 				
-				lda ZPDataOutLen+1
+				lda ZPDataInLen+1
 				eor #$FF
 				pha
 				
@@ -757,10 +757,10 @@ SKT.GetDataFromSktIn
 				
 .5				pla						get back data....
 				
-.6				sta (ZPDataOutPtr),y
+.6				sta (ZPDataInPtr),y
 				iny
 				bne .61
-				inc ZPDataOutPtr+1
+				inc ZPDataInPtr+1
 				
 .61				inc ZPTmpPtr3
 				bne .1

LIB/LIBTCPIP.S.TCP.txt

@@ -190,7 +190,7 @@ TCP.IN.JMP.SYNSENT
 				lda #S.SOCKET.TCP.STATUS.ESTBLSH
 				sta (ZPPtrSKT),y
 
-				jsr SKT.StoreTCB
+				jmp SKT.StoreTCB
 				
 .8				clc
 .9				rts
@@ -218,12 +218,10 @@ TCP.IN.JMP.SYNRCVD
 				dex
 				bpl .1
 				
-				jsr SKT.StoreTCB
-				bcs .9
-				
 				ldy #S.SOCKET.TCP.STATUS
 				lda #S.SOCKET.TCP.STATUS.ESTBLSH
 				sta (ZPPtrSKT),y	
+				jmp SKT.StoreTCB
 			
 .8				clc
 .9				rts
@@ -452,7 +450,7 @@ TCP.OUT.I		lda SKT.TCBCache+S.TCB.OUTTOSEND+1
 				bne .80
 				inc SKT.TCBCache+S.TCB.OUTNEXTSEQ
 				
-.80				jmp SKT.StoreTCB
+.80				jmp SKT.StoreTCB		exits with CC
 TCP.OUT.9		rts
 *--------------------------------------
 TCP.OUT.SendOptA