Kernel 0.92 : REAL HARDWARE TEST #2

SYS/KERNEL.S.PS.txt

@@ -60,12 +60,11 @@ K.ExecV			>STYA PS.ArgV
 PS.Exec			jsr PS.CreateChild		A=PID,Child S.PS at ZPPtr3,PS.Load.hMem
 				bcs .9
 				sta .8+1
-				lda #"A"
-				sta $821
+
 				stz K.IOBuf
 				jsr PS.Load
 				bcs .90
-				inc $821
+
 				jsr PS.AddArgV
 				bcc .8
 				
@@ -78,7 +77,7 @@ PS.Exec			jsr PS.CreateChild		A=PID,Child S.PS at ZPPtr3,PS.Load.hMem
 				rts
 
 .8				lda #$ff				SELF MODIFIED
-				inc $821
+
 .9				rts
 *--------------------------------------
 * PS.CreateChild
@@ -245,9 +244,13 @@ PS.Load			>PUSHWI K.S.STAT
 				inx
 				lda K.IOBuf+128-1,y
 				sta K.IOBuf-1,x
+				beq .5
+				eor #C.CR
 				bne .4 
 	
-				>PUSHWI K.S.STAT
+				sta K.IOBuf-1,x
+				
+.5				>PUSHWI K.S.STAT
 				>LDYAI K.IOBuf
 				>SYSCALL stat			BANK 1
 				bcs .99
@@ -370,7 +373,7 @@ PS.LoadGetHeader
 				>PUSHWI 128
 				>PUSHWI K.IOBuf+128
 .1				lda #$ff				SELF MODIFIED
-				>SYSCALL fgets
+				>SYSCALL fread
 				
 				php
 				pha
@@ -497,7 +500,7 @@ PS.DupEnv		jsr K.GetMemPtr
 .9				rts
 *--------------------------------------
 PS.AddPtr1ToStrV
-				ldy #0
+				ldy #$ff
 				
 .2				iny
 				lda (ZPPtr1),y