Kernel version 0.9 : pLib & pLibJmp removed

This commit is contained in:
Rémy GIBERT 2017-03-27 17:32:30 +02:00
parent 7d61543721
commit eafa4da73f
6 changed files with 11 additions and 10 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -23,7 +23,7 @@ pCode .EQ $20
pData .EQ $22
pStack .EQ $24
pLib .EQ $26
*pLib .EQ $26
pDrv .EQ $28
pPs .EQ $2A
@ -105,7 +105,7 @@ A2osX.LIBCALL .EQ $BD03
A2osX.MLICALL .EQ $BD06
*--------------------------------------
pCodeJmp .EQ $BD10
pLibJmp .EQ $BD13
*pLibJmp .EQ $BD13
pDrvJmp .EQ $BD16
pDevJmp .EQ $BD19
*--------------------------------------

View File

@ -32,7 +32,7 @@ AUTO 6
.BS $BD10-*
*--------------------------------------
jmp (pCode) pCodeJmp
jmp (pLib) pLibJmp
jmp (*) pLibJmp
jmp (pDrv) pDrvJmp
jmp (pDev) pDevJmp
.BS $BD20-*
@ -76,9 +76,9 @@ A2osX.SYSCALL1 bit KERNEL.SYSCALL.FLAGS,x
A2osX.LIBCALL1 pha No need to save X, K.GetMemPtrA will leave it unmodified
tya Get LIB hMem in A
jsr K.GetMemPtrA Get LIB Code Segment (MemMgr in $E000, no BNK change)
>STYA pLib
>STYA .1+1
pla
jmp (pLib)
.1 jmp $ffff
*--------------------------------------
A2osX.MLICALL1 stx .1
sta MLICALL.PARAMS

View File

@ -28,10 +28,10 @@ K.LoadLibYA >STYA K.LoadLib.Name save libname for K.FileSearch
bcs .98
stx K.LoadLib.hMem
>STYA pLib
>STYA LIB.Jump+1
ldx #LIBMGR.LOAD
jsr pLibJmp Call LIB.LOAD function
jsr LIB.Jump Call LIB.LOAD function
bcs .97
@ -77,16 +77,17 @@ K.UnloadLibA pha
.1 ldy #S.MEM.PTR
lda (ZPPtr1),y
sta pLib
sta LIB.Jump+1
iny
lda (ZPPtr1),y
sta pLib+1
sta LIB.Jump+2
ldx #LIBMGR.UNLOAD
jsr pLibJmp Call LIB.UNLOAD function
jsr LIB.Jump Call LIB.UNLOAD function
pla
jmp K.FreeMemA
LIB.Jump jmp $ffff Self Modiied
*--------------------------------------
MAN
SAVE SYS/KERNEL.S.LIB