mirror of
https://github.com/A2osX/A2osX.git
synced 2025-01-15 07:31:32 +00:00
Kernel 0.93++
This commit is contained in:
parent
6d85d7ed2c
commit
d89316b521
Binary file not shown.
@ -388,7 +388,9 @@ K.SetEnv.I jsr K.UnsetEnv.I
|
||||
jsr ENV.Dup.A
|
||||
bcs .9
|
||||
|
||||
pha
|
||||
phx page count
|
||||
pha hENV
|
||||
|
||||
ldy #S.PS.hENV
|
||||
lda (pPs),y
|
||||
|
||||
@ -399,10 +401,10 @@ K.SetEnv.I jsr K.UnsetEnv.I
|
||||
jsr K.Freemem
|
||||
.FIN
|
||||
|
||||
pla
|
||||
pla hEnv
|
||||
ldy #S.PS.hENV
|
||||
sta (pPs),y
|
||||
txa
|
||||
pla page count
|
||||
dey S.PS.ENVPAGECNT
|
||||
sta (pPs),y
|
||||
bra .1 Start over
|
||||
|
Loading…
x
Reference in New Issue
Block a user