Kernel 0.93++

SYS/KERNEL.S.ENV.txt

@@ -414,15 +414,6 @@ K.UnsetEnv.I	ldy #S.PS.hENV
 				sta CLRWRITEAUX
 				rts
 *--------------------------------------
-ENV.InitEnvP3	sta CLRREADAUX
-				ldy #S.PS.hENV
-				lda (pPs),y
-				sta SETREADAUX
-				jsr K.GetMemPtr
-				>STYA ZPPtr3			Store ENV
-
-				rts
-*--------------------------------------
 ENV.NextEnvP3	jsr ENV.GetP3LenY
 *--------------------------------------
 ENV.NextEnvP3Y	tya
@@ -438,14 +429,6 @@ ENV.GetP3LenY	ldy #$ff
 				lda (ZPPtr3),y
 				bne .1
 				rts
-*--------------------------------------			
-ENV.NextEnvP4Y	tya
-				sec
-				adc ZPPtr4
-				sta ZPPtr4
-				bcc .8
-				inc ZPPtr4+1
-.8				rts
 *--------------------------------------
 MAN
 SAVE USR/SRC/SYS/KERNEL.S.ENV

SYS/KERNEL.S.ENVX.txt

@@ -29,7 +29,7 @@ ENVX.PutEnv		ldy #$ff
 *--------------------------------------
 ENVX.SetEnv		jsr ENVX.UnsetEnv
 				
-.1				jsr ENVX.InitEnvP3		ZPPtr3 -> Env (SETREADAUX)
+.1				jsr ENVX.InitEnvP3
 
 				lda #1
 				sta ZPPtr4

SYS/KERNEL.S.SHARED.txt

@@ -99,7 +99,7 @@ SHARED.TXTPTR.Next
 *--------------------------------------
 SHARED.FORPNT.getY
 				sta CLRREADAUX
-				sta (FORPNT),y
+				lda (FORPNT),y
 				sta SETREADAUX
 				rts
 *--------------------------------------