mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-12 20:29:41 +00:00
Kernel 0.9.1 : Code reorganization & move to CSTR (bugfix in PutEnv.YA)
This commit is contained in:
parent
61ff0938e3
commit
ce434c6fee
Binary file not shown.
Binary file not shown.
|
@ -14,7 +14,6 @@ AUTO 6
|
|||
K.ExpandStr.YA stz K.ExpandStr.hPStr Reset Intermediate string...
|
||||
|
||||
.1 >STYA ZPPtr2
|
||||
>SYSCALL PrintF.YA
|
||||
stz K.ExpandStr.Len init Expanded String len=0
|
||||
stz K.ExpandStr.bFound No var found yet
|
||||
|
||||
|
@ -117,12 +116,7 @@ K.ExpandStr.YA stz K.ExpandStr.hPStr Reset Intermediate string...
|
|||
beq .82
|
||||
jmp .1 Yes, start over with hPStr
|
||||
|
||||
.82 phy
|
||||
pha
|
||||
>SYSCALL PrintF.YA
|
||||
pla
|
||||
ply
|
||||
ldx K.ExpandStr.hPStr
|
||||
.82 ldx K.ExpandStr.hPStr
|
||||
* or exit with Y,A from K.NewPStrYA
|
||||
|
||||
.9 rts
|
||||
|
@ -192,7 +186,7 @@ K.PutEnv.YA >STYA ZPPtr1 NAME=VALUE
|
|||
clc
|
||||
adc ZPPtr1
|
||||
sta ZPPtr2
|
||||
lda ZPPtr2+1
|
||||
lda ZPPtr1+1
|
||||
adc #0
|
||||
sta ZPPtr2+1
|
||||
|
||||
|
|
|
@ -92,10 +92,6 @@ K.CreateProcess.YA
|
|||
stx K.CreateProcess.Flags
|
||||
>STYA K.CreateProcess.CmdLine
|
||||
|
||||
>DEBUG
|
||||
>SYSCALL PrintF.YA
|
||||
>DEBUG
|
||||
|
||||
jsr PS.CreateChild
|
||||
bcs .9
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user