Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-07-02 23:17:57 +02:00
parent 5ef655462c
commit 69c3710a85
6 changed files with 53 additions and 45 deletions

Binary file not shown.

View File

@ -488,46 +488,7 @@ K.SYSCALL.JMPX sta SETREADAUX
sta CLRWRITEAUX
rts
.1 jmp (.2-SYS.StrVShift,x)
.2 .DA STRVX.StrVShift
.DA STRVX.StrVGet
.DA STRVX.StrVAdd
.DA 0
.DA ENVX.PutEnv
.DA ENVX.SetEnv
.DA ENVX.GetEnv
.DA ENVX.UnsetEnv
.DA 0 Time
.DA TIMEX.StrFTime
.DA TIMEX.PTime2Time
.DA TIMEX.CTime2Time
.DA MD5X.MD5
.DA MD5X.Init
.DA MD5X.Update
.DA MD5X.Finalize
.DA PWDX.GetPWUID
.DA PWDX.GetPWName
.DA PWDX.PutPW
.DA PWDX.GetGRGID
.DA PWDX.GetGRName
.DA PWDX.PutGR
.DA PWDX.OpenSession
.DA PWDX.CloseSession
.DA SLISTX.SListGetData
.DA SLISTX.SListAddData
.DA SLISTX.SListSetData
.DA SLISTX.SListGetByID
.DA SLISTX.SListNewKey
.DA SLISTX.SListLookup
.DA SLISTX.SListFree
.DA SLISTX.SListNew
.1 jmp (KX.SYSCALL-SYS.StrVShift,x)
*--------------------------------------
MAN
SAVE USR/SRC/SYS/KERNEL.S.JMP

46
SYS/KERNEL.S.JMPX.txt Normal file
View File

@ -0,0 +1,46 @@
NEW
AUTO 3,1
*--------------------------------------
KX.SYSCALL .DA STRVX.StrVShift
.DA STRVX.StrVGet
.DA STRVX.StrVAdd
.DA 0
.DA ENVX.PutEnv
.DA ENVX.SetEnv
.DA ENVX.GetEnv
.DA ENVX.UnsetEnv
.DA 0 Time
.DA TIMEX.StrFTime
.DA TIMEX.PTime2Time
.DA TIMEX.CTime2Time
.DA MD5X.MD5
.DA MD5X.Init
.DA MD5X.Update
.DA MD5X.Finalize
.DA PWDX.GetPWUID
.DA PWDX.GetPWName
.DA PWDX.PutPW
.DA PWDX.GetGRGID
.DA PWDX.GetGRName
.DA PWDX.PutGR
.DA PWDX.OpenSession
.DA PWDX.CloseSession
.DA SLISTX.SListGetData
.DA SLISTX.SListAddData
.DA SLISTX.SListSetData
.DA SLISTX.SListGetByID
.DA SLISTX.SListNewKey
.DA SLISTX.SListLookup
.DA SLISTX.SListFree
.DA SLISTX.SListNew
*--------------------------------------
MAN
SAVE usr/src/sys/kernel.s.jmpx
LOAD usr/src/sys/kernel.s
ASM

View File

@ -92,11 +92,6 @@ SHARED.FORPNT.Next
inc FORPNT+1
SHARED.RTS rts
*--------------------------------------
SHARED.SPtr1PPtr2
>STYA ZPPtr1
>PULLW ZPPtr2
rts
*--------------------------------------
SHARED.GetCharPtr1
lda (ZPPtr1)
beq SHARED.RTS

View File

@ -241,6 +241,11 @@ K.StrCaseCmp.toUpper
.9 rts
*--------------------------------------
SHARED.SPtr1PPtr2
>STYA ZPPtr1
>PULLW ZPPtr2
rts
*--------------------------------------
MAN
SAVE USR/SRC/SYS/KERNEL.S.STRING
LOAD USR/SRC/SYS/KERNEL.S

View File

@ -50,6 +50,7 @@ A2osX.AUX.B .PH Mem.XHiMem
.DA SHARED.TXTPTR.GetNext
.INB usr/src/sys/kernel.s.jmpx
.INB usr/src/sys/kernel.s.termx
.INB usr/src/sys/kernel.s.strvx
.INB usr/src/sys/kernel.s.envx