Kernel 0.93++

SYS/KERNEL.S.ENV.txt

@@ -471,10 +471,18 @@ K.GetEnv		>PULLW FORPNT			value
 
 				ldy #$ff
 				
+				.DO AUXENV=1
+				sta SETREADAUX
+				.FIN
+				
 .1				iny
 				lda (ZPPtr3),y
 				bne .1
 
+				.DO AUXENV=1
+				sta CLRREADAUX
+				.FIN
+				
 				iny
 				bne .2
 				inc

SYS/KERNEL.S.PS.txt

@@ -149,14 +149,16 @@ PS.CreateChild	ldx #0
 				txa
 				ldy #S.PS.hCWD
 				sta (PS.NewPSPtr),y
+
 				jsr ENV.Dup				dup hENV from parent PS
 				bcs .9
 
 				ldy #S.PS.hENV
 				sta (PS.NewPSPtr),y
 				txa
-				dey
+				dey						#S.PS.ENVPAGECNT
 				sta (PS.NewPSPtr),y
+
 				ldy #S.PS.hStdIn
 
 .7				lda (ZPPtr1),y
@@ -220,6 +222,7 @@ PS.Load			ldy #$ff
 .99				rts
 
 .2				>LDYA PS.ArgV
+
 				jsr ENV.Search.PATH		Get fullpath in K.Buf256
 				bcc .6