Kernel 0.93+

BIN/SH.S.txt

@@ -122,7 +122,7 @@ L.FMT.GETKEY	.DA FMT.GETKEY
 J.ESC			.DA CL.BS			left arrow
 				.DA HIS.GetNext			
 				.DA HIS.GetPrev
-				.DA CL.NAK			right arow
+				.DA CL.NAK			right arrow
 L.IN			.DA IN
 L.CMD			.DA CMD
 L.ENDCMD		.DA ENDCMD
@@ -232,6 +232,9 @@ CS.RUN			jsr CL.Init
 				
 				>PUSHEA.G StatBuf
 				>LDYA L.HOME.PROFILE
+				>SYSCALL puts
+				>LDYA L.HOME.PROFILE
+*				>DEBUG
 				>SYSCALL STAT
 				bcs CS.RUN.LOOP			no profile...
 

LIB/LIBTCPIP.S.SKT.txt

@@ -444,12 +444,7 @@ SKT.GetDataFromSktIn
 				adc SKT.Cache+S.SOCKET.TCP.INTAIL+1
 				sta ZPTmpPtr1+1
 
-				lda ZPDataInLen
-				eor #$FF
-				tax
-
-				lda ZPDataInLen+1
-				eor #$FF
+				jsr SKT.GetNotDataInLen
 				pha
 				
 				.DO AUXPIPE=1
@@ -538,14 +533,9 @@ SKT.AddDataToSktIn
 				adc SKT.Cache+S.SOCKET.TCP.INHEAD+1
 				sta ZPTmpPtr1+1
 
-				lda ZPDataInLen
-				eor #$FF
-				tax
-
-				lda ZPDataInLen+1
-				eor #$FF
+				jsr SKT.GetNotDataInLen
 				pha
-
+				
 				ldy SKT.Cache+S.SOCKET.TCP.INHEAD
 
 .1				.DO AUXPIPE=1
@@ -655,12 +645,7 @@ SKT.AddDataToSktOut
 
 				ldy SKT.Cache+S.SOCKET.TCP.OUTHEAD
 
-				lda ZPDataInLen
-				eor #$FF
-				tax
-
-				lda ZPDataInLen+1
-				eor #$FF
+				jsr SKT.GetNotDataInLen
 				pha
 				
 .1				.DO AUXPIPE=1
@@ -1368,19 +1353,24 @@ SKT.SetFrameOutTCPUDPPorts
 
 				rts
 *--------------------------------------
+SKT.GetNotDataInLen
+				lda ZPDataInLen
+				eor #$FF
+				tax
+
+				lda ZPDataInLen+1
+				eor #$FF
+				rts
+*--------------------------------------
 SKT.CopyDataInToOut
 				lda ZPDataInPtr+1
 				pha
 				lda ZPDataOutPtr+1
 				pha
 
-				lda ZPDataInLen
-				eor #$ff
-				tax
-				lda ZPDataInLen+1
-				eor #$ff
+				jsr SKT.GetNotDataInLen
 				pha
-
+				
 				ldy #0
 				
 .1				inx

SYS/KERNEL.S.INIT.txt

@@ -1001,6 +1001,7 @@ TskMgrInit		>LDYAI MSG.TSK
 				
 				txa
 				ldy #S.PS.hPREFIX
+				sta (pPs),y
 				
 				>PUSHWI $2C0			Get BOOT from QC
 				>LDYAI I.ENV.BOOT

SYS/KERNEL.S.PS.txt

@@ -155,7 +155,7 @@ PS.CreateChild	ldx #0
 				ldy #S.PS.hPREFIX		copy hPREFIX...
 				lda (ZPPtr1),y
 				jsr K.GetMemPtr
-				
+
 				jsr K.StrDup
 				bcs .9
 				

SYS/KERNEL.S.STRING.txt

@@ -89,8 +89,8 @@ K.StrCpy		clc
 K.StrDup		>STYA .1+1
 				>STYA .4+1
 				
-				ldy #0
 				lda #0
+				tay
 				
 .1				ldx $ffff,y
 				beq .2