Kernel 0.93+

This commit is contained in:
Rémy GIBERT 2019-07-19 16:05:22 +02:00
parent 18a553fbf6
commit fdc45a02f9
8 changed files with 42 additions and 27 deletions

Binary file not shown.

View File

@ -229,12 +229,9 @@ CS.RUN jsr CL.Init
>LDYA L.MSG.GREETINGS
>SYSCALL printf
bcs CS.INIT.RTS
>PUSHEA.G StatBuf
>LDYA L.HOME.PROFILE
>SYSCALL puts
>LDYA L.HOME.PROFILE
* >DEBUG
>SYSCALL STAT
bcs CS.RUN.LOOP no profile...

View File

@ -256,9 +256,9 @@ SYS.ExecV .EQ $A2
* .EQ $A4
SYS.Kill .EQ $A6
SYS.GetPWUID .EQ $A8
SYS.GetPWName .EQ $AA
SYS.PutPW .EQ $AC
* .EQ $A8
* .EQ $AA
* .EQ $AC
* .EQ $AE
SYS.Args2ArgV .EQ $B0
@ -271,24 +271,24 @@ SYS.SetEnv .EQ $BA
SYS.GetEnv .EQ $BC
SYS.UnsetEnv .EQ $BE
*--------------------------------------
*SYS.FAdd .EQ $C0
*SYS.FSub .EQ $C2
*SYS.FMult .EQ $C4
*SYS.FDiv .EQ $C6
* .EQ $C0
* .EQ $C2
* .EQ $C4
* .EQ $C6
*SYS.FPwr .EQ $C8
* .EQ $C8
* .EQ $CA
SYS.LRIntF .EQ $CC
SYS.Float .EQ $CE
*SYS.Log .EQ $D0
*SYS.Sqr .EQ $D2
*SYS.Exp .EQ $D4
*SYS.Cos .EQ $D6
SYS.GetPWUID .EQ $D0
SYS.GetPWName .EQ $D2
SYS.PutPW .EQ $D4
* .EQ $D6
*SYS.Sin .EQ $D8
*SYS.Tan .EQ $DA
*SYS.ATan .EQ $DC
* .EQ $D8
* .EQ $DA
* .EQ $DC
* .EQ $DF
*--------------------------------------
SYS.GetMem .EQ $E0

View File

@ -491,6 +491,12 @@ CORE.PSFree sta .10+1 Save PS ID
bcs .9
>STYA ZPPtr1
ldy #S.PS.hSID
lda (ZPPtr1),y
tax
lda S.Table.hSession-1,x
jsr K.FreeMem
ldy #S.PS.hSS
jsr .8

View File

@ -1041,6 +1041,13 @@ PwdMgrInit >LDYAI MSG.PWD
>STYA pSession
stx S.Table.hSession
phy
ldy #S.PS.ZP.SESSION+1
sta (pPS),y
dey
pla
sta (pPS),y
lda #1
ldy #S.PS.hSID
sta (pPS),y

View File

@ -101,9 +101,9 @@ K.SYSCALL .DA K.GetMemStat $00
.DA K.ExecV
.DA 0
.DA K.Kill
.DA K.GetPWUID
.DA K.GetPWName
.DA K.PutPW
.DA 0
.DA 0
.DA 0
.DA 0
.DA K.Args2ArgV $B0
@ -124,9 +124,9 @@ K.SYSCALL .DA K.GetMemStat $00
.DA K.LRIntF
.DA K.Float
.DA 0 $D0
.DA 0
.DA 0
.DA K.GetPWUID $D0
.DA K.GetPWName
.DA K.PutPW
.DA 0
.DA 0
.DA 0

View File

@ -186,6 +186,9 @@ PS.CreateChild ldx #0
ldy #S.PS.hSID
lda (ZPPtr1),y
sta (PS.NewPSPtr),y
tax
lda S.Table.hSession-1,x
jsr K.GetMemPtr
phy
ldy #S.PS.ZP.SESSION+1
@ -194,6 +197,8 @@ PS.CreateChild ldx #0
pla
sta (PS.NewPSPtr),y
jsr Mem.IncRefCnt
lda #S.PS.F.HOLD
bit PS.Flags
beq .8

View File

@ -51,13 +51,13 @@ A2osX.D1 .PH $D000
.EP
A2osX.D2 .PH $D000
.DA #RRAMWRAMBNK2
.INB USR/SRC/SYS/KERNEL.S.BIN
.INB USR/SRC/SYS/KERNEL.S.STRING
.INB USR/SRC/SYS/KERNEL.S.TIME
.INB USR/SRC/SYS/KERNEL.S.BIN
.INB USR/SRC/SYS/KERNEL.S.PS
.INB USR/SRC/SYS/KERNEL.S.ARG
.INB USR/SRC/SYS/KERNEL.S.ENV
.INB USR/SRC/SYS/KERNEL.S.PWD
.INB USR/SRC/SYS/KERNEL.S.ARG
.EP
A2osX.E0 .PH $E000
.INB USR/SRC/SYS/KERNEL.S.JMP