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 sta CLRWRITEAUX
rts rts
.1 jmp (.2-SYS.StrVShift,x) .1 jmp (KX.SYSCALL-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
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE USR/SRC/SYS/KERNEL.S.JMP 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 inc FORPNT+1
SHARED.RTS rts SHARED.RTS rts
*-------------------------------------- *--------------------------------------
SHARED.SPtr1PPtr2
>STYA ZPPtr1
>PULLW ZPPtr2
rts
*--------------------------------------
SHARED.GetCharPtr1 SHARED.GetCharPtr1
lda (ZPPtr1) lda (ZPPtr1)
beq SHARED.RTS beq SHARED.RTS

View File

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

View File

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