Kernel 0.9.1 : Code reorganization & move to CSTR (bugfix in PutEnv.YA)

This commit is contained in:
Rémy GIBERT 2017-08-30 22:39:43 +02:00
parent 61ff0938e3
commit ce434c6fee
4 changed files with 2 additions and 12 deletions

Binary file not shown.

Binary file not shown.

View File

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

View File

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