Kernel 0.9.2

BIN/TELNET.S.txt

@@ -90,12 +90,13 @@ CS.RUN.IPOK		ldy #S.PS.ARGC
 				>SYSCALL GetArg
 				>PUSHYA
 				>LDYA L.MSG.UNKNOWN
+				>SYSCALL printf
 				bra .99
 				
 .9				>LDYA L.MSG.USAGE
+				>SYSCALL puts
 
-.99				>SYSCALL puts
+.99				lda #K.E.SYN
-				lda #K.E.SYN
 				sec				
 				rts
 
@@ -149,6 +150,8 @@ CS.RUN.OPENSKT	ldx #3
 				txa
 				>STA.G hBuf
 
+				>DEBUG
+				
 CS.RUN.LOOP		>PUSHB.G hSocket
 				>PUSHW ZPBufPtr
 				>PUSHWI BUFSIZE

LIB/LIBTCPIP.S.SKT.txt

@@ -11,12 +11,7 @@ AUTO 4,1
 *  YA = PTR to new S.SOCKET
 *  X = hSocket
 *\--------------------------------------
-SKT.New			clc
+SKT.New			>PULLW ZPTmpPtr1
-				.HS B0					BCS
-SKT.New.Listen	sec
-				ror
-				sta .71+1
-				>PULLW ZPTmpPtr1
 				ldy #S.SOCKET.SRC.PORT+1
 				lda (ZPTmpPtr1),y
 				dey
@@ -91,14 +86,11 @@ SKT.New.Listen	sec
 				ldy #S.SOCKET.SO
 				lda (ZPTmpPtr1),y
 				and #S.SOCKET.SO.ACCEPTCONN
-				bne .8
+				bne .8					From Listen, do not send SYN packet
 				
 				jsr SKT.NewTCB
 				bcs .99
 				
-.71				lda #$ff
-				bmi .8					From Listen, do not send SYN packet
-				
 				>LDYA ZPTmpPtr3
 				>STYA ZPPtrSKT
 				lda #S.TCP.OPTIONS.SYN

LIB/LIBTCPIP.S.TCP.txt

@@ -98,7 +98,7 @@ TCP.IN.JMP.LISTEN
 				
 				>PUSHW L.SKT.Template
 
-				jsr SKT.New.Listen		Assign OUTNEXTSEQ
+				jsr SKT.New				Assign OUTNEXTSEQ
 				bcs .99
 				
 				sty .1+1

LIB/LIBTCPIP.S.txt

@@ -217,7 +217,7 @@ POLL			>PUSHW L.IOCTL
 PULSE			and #S.EVT.F.T1SEC
 				beq .1
 
-*				jsr ARP.EXPIRE
+				jsr ARP.EXPIRE
 				jsr DNS.EXPIRE
 				
 .1				jsr DNS.POLL