Kernel 0.93+

BIN/PAK.S.txt

@@ -102,6 +102,9 @@ CS.RUN			>INC.G ArgIndex
 .5				>LDA.G hSrcBasePath
 				bne .9
 				
+				>LDYA ZPPtr1
+				>SYSCALL puts
+			>DEBUG
 				>LDYA ZPPtr1
 				jsr InitSrcDirYA
 				bcc CS.RUN
@@ -143,7 +146,7 @@ CS.RUN			>INC.G ArgIndex
 				
 				>LDYAI CHNK.SIZE
 				>SYSCALL getmem
-				bcs .99
+				bcs .98
 				>STYA ZPSrcBufPtr
 				txa
 				>STA.G hSrcBuf

LIB/LIBTCPIP.S.SKT.txt

@@ -989,9 +989,11 @@ SKT.Send.SEQPACKET
 				jsr TCP.NewFrame
 				bcs SKT.Send.9
 
+				jsr SKT.GetTCB
+
 				jsr SKT.CopyDataInToOut
-				sec						DONT Queue if fail
-				jmp FRM.SendIP
+				
+				jmp TCP.OUT.Send
 				
 * TODO add	ZPDataInLen to SEQ			
 */--------------------------------------