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				

SYS/KERNEL.S.FIO.txt

@@ -35,13 +35,13 @@ K.LoadFile		clc
 				jsr K.FOpen
 				bcc .12
 				rts
-				
+
 .12				sta FIO.hFile
-				
+
 				pha
 				>PUSHWI K.S.Stat
 				pla
-				
+
 				jsr K.FStat
 				bcs .11
 
@@ -50,7 +50,7 @@ K.LoadFile		clc
 				bne .10
 
 				>LDYA K.S.Stat+S.STAT.SIZE
-				
+
 				bit FIO.bTXT		Add 1 to buffer size for ending 0
 				bpl .1
 				iny
@@ -128,7 +128,7 @@ K.ChTyp			jsr PFT.CheckPathYA
 				>PULLB .1+1
 				>MLICALL MLIGETFILEINFO
 				bcs .9
-				
+
 .1				lda #$ff
 				sta K.MLI.PARAMS+S.FI.T
 				>MLICALL MLISETFILEINFO