Kernel 0.92+

BIN/SH.S.CMD.txt

@@ -657,7 +657,7 @@ FOR.FILE		sec
 				bcs .99
 
 				txa
-				jsr  CORE.StkPush		Push hVARNAME
+				jsr CORE.StkPush		Push hVARNAME
 				bcs .99
 
 				lda #C.FOR.FILE
@@ -888,7 +888,7 @@ CMD.NEXT.FILE.1	lda (pData)
 				>PUSHWI 256
 				>PUSHW ZPCLBuf
 				pla
-				pha
+
 				>SYSCALL fgets
 				bcs .8
 				

BIN/SH.S.CORE.txt

@@ -322,7 +322,9 @@ CORE.ArgV.Add	>LDYA ZPArgVBufPtr
 				
 .10				cmp #'('
 				bne .11
-				sta TmpByte
+				ldx #')'
+				stx TmpByte
+
 				bra .12
 	
 .11				cmp #'`'

LIB/LIBTCPIP.S.SKT.txt

@@ -656,7 +656,8 @@ SKT.CheckStream	ldy #S.SOCKET.T
 
 				ldy #S.SOCKET.TCP.S	
 				lda (ZPPtrSKT),y
-				beq .91
+				cmp #S.SOCKET.TCP.S.ESTBLSH
+				bcc .91
 				cmp #S.SOCKET.TCP.S.CLWAIT
 				bcs .91
 				rts				CC=ESTBLSH...or less

SBIN/HTTPD.S.txt

@@ -47,6 +47,8 @@ L.MSG.TCPIPERR	.DA MSG.TCPIPERR
 L.MSG.SKTERR	.DA MSG.SKTERR
 L.MSG.ABORT		.DA MSG.ABORT
 L.MSG.INCOMING	.DA MSG.INCOMING
+L.MSG.DBG0		.DA MSG.DBG0
+L.MSG.DBG1		.DA MSG.DBG1
 L.HTTP.200OK	.DA HTTP.200OK
 				.DA 0				
 *--------------------------------------
@@ -124,7 +126,7 @@ CS.RUN.INIT		ldx #3
 				>LIBCALL hLIBTCPIP,LIBTCPIP.Listen
 				bcs CS.RUN.ERR
 				
-				>LDYAI 256
+				>LDYAI 512
 				>SYSCALL getmem
 				bcs CS.RUN.RTS
 				
@@ -175,33 +177,46 @@ CS.RUN.SERVER	>LDA.G hSrvSocket
 .8				clc
 .9				rts
 *--------------------------------------
-CS.RUN.CLIENT	>PUSHWI 256
-				>PUSHW ZPLinePtr
-				>LDA.G hClntSocket
-				
+CS.RUN.CLIENT	
 .1				>SLEEP
 
+				>PUSHWI 512
+				>PUSHW ZPLinePtr
+				>LDA.G hClntSocket
 				>LIBCALL hLIBTCPIP,LIBTCPIP.read
-				bcs .8
+				bcc .2
 				
-				phy
+				>PUSHYA
+				>PUSHBI 2
+				>LDYA L.MSG.DBG0
+				>SYSCALL printf
+				bra .8
+				
+.2				phy
 				ply
-				bne .2
+				bne .3
 				
 				pha
 				pla
-				beq .7
+				beq .1
 				
-.2				>DEBUG
+.3				phy
+				pha
+				>PUSHYA
+				>PUSHBI 2
+				>LDYA L.MSG.DBG1
+				>SYSCALL printf
+				pla
+				ply
 				
+
 				>PUSHYA
 				>PUSHW ZPLinePtr
 				ldy #S.PS.hStdOut
 				lda (pPS),y
+
 				>SYSCALL fwrite
 
-				bra .1
-				
 .7				>PUSHWI HTTP.200OK.len
 				>PUSHW L.HTTP.200OK
 				>LDA.G hClntSocket
@@ -265,6 +280,8 @@ MSG.TCPIPERR	.AZ "HTTPD:TCP/IP Not initialized properly."
 MSG.SKTERR		.AZ "HTTPD:Listen Error."
 MSG.ABORT		.AZ "HTTPD:User Aborted."
 MSG.INCOMING	.AZ "HTTPD:Incoming Connection [SKT=%h] From : %d.%d.%d.%d\r\n"
+MSG.DBG0		.AZ "read: ERROR %h\r\n"
+MSG.DBG1		.AZ "read: %D bytes\r\n"
 *--------------------------------------
 HTTP.200OK		.AS "HTTP/1.1 200 OK"
 				.DA #C.CR,#C.LF