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
@@ -226,7 +225,7 @@ PS.Load			>PUSHWI K.S.STAT
 				>STYA .21+1
 				
 				ldx #$ff
-			
+
 .2				inx
 .21				lda $ffff,x				SELF MODIFIED
 				sta K.IOBuf,x
@@ -245,9 +244,13 @@ PS.Load			>PUSHWI K.S.STAT
 				inx
 				lda K.IOBuf+128-1,y
 				sta K.IOBuf-1,x
-				bne .4
+				beq .5
+				eor #C.CR
+				bne .4 
+	
+				sta K.IOBuf-1,x
 				
-				>PUSHWI K.S.STAT
+.5				>PUSHWI K.S.STAT
 				>LDYAI K.IOBuf
 				>SYSCALL stat			BANK 1
 				bcs .99
@@ -366,11 +369,11 @@ PS.LoadGetHeader
 				>SYSCALL fopen
 				bcs PS.LoadGetHeader.RTS
 				sta .1+1
-				
+
 				>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