Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-14 02:29:33 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93++

Browse Source
This commit is contained in:
Rémy GIBERT 2020-02-03 20:41:04 +01:00
parent 272f3f4c3e
commit af1f73f0d0
4 changed files with 2 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

17
SYS/KERNEL.S.ENV.txt
View File

@ -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

2
SYS/KERNEL.S.ENVX.txt
View File

@ -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

2
SYS/KERNEL.S.SHARED.txt
View File

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