Kernel 0.9.2

LIB/LIBTCPIP.S.TCP.txt

@@ -26,13 +26,53 @@ TCP.IN			jsr FRM.GetTargetSKT.TCPUDP
 				tax
 				jmp (J.TCP.IN,x)
 *--------------------------------------
-TCP.IN.RST		jsr SKT.Destroy
+TCP.IN.RST		lda SKT.TABLE,x
+				jsr SKT.shutdown
 *--------------------------------------
 TCP.IN.JMP.CLOSED
-*				lda hFrameIn
-*				>SYSCALL FreeMem
+				lda hFrameIn
+				stz hFrameIn
+				>SYSCALL FreeMem
 				rts
 *--------------------------------------
+TCP.CLOSE		ldx #0
+
+.1				phx
+				lda SKT.TABLE,x
+				beq .8
+				
+				>SYSCALL GetMemPtr
+				>STYA ZPTmpPtr1
+
+				ldy #S.SOCKET.AF
+				lda (ZPTmpPtr1),y
+				cmp #AF.INET
+				bne .8
+				
+				iny					#S.SOCKET.T
+				
+				lda (ZPTmpPtr1),y
+				cmp #S.SOCKET.T.SEQPACKET
+				bcc .8
+				
+				ldy #S.SOCKET.TCP.S
+				lda (ZPTmpPtr1),y
+				cmp #S.SOCKET.TCP.S.TIMEWT
+				bcc .8
+				
+				plx
+				phx
+				
+				lda SKT.TABLE,x
+				jsr SKT.Shutdown
+				
+.8				plx
+				inx
+				cpx #K.SKTTABLE.SIZE
+				bne .1
+
+.9				rts
+*--------------------------------------
 TCP.IN.JMP.LISTEN
 				ldy #S.SOCKET.T			Create a new client socket
 				lda (ZPPtrSKT),y
@@ -236,6 +276,8 @@ TCP.IN.JMP.CLOSING
 				rts
 *--------------------------------------
 TCP.IN.JMP.TIMEWT
+				clc						Wait for TCP.Close
+				rts
 *--------------------------------------
 TCP.IN.ACKTheSYN
 				ldy #S.TCP.SEQNUM+3		Get Remote SEQ

LIB/LIBTCPIP.S.txt

@@ -227,6 +227,7 @@ PULSE			and #S.EVT.F.T1SEC
 
 				jsr ARP.EXPIRE
 				jsr DNS.EXPIRE
+				jsr TCP.CLOSE
 				
 .1				jsr DNS.POLL
 				jmp FRM.RETRY