mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-22 16:31:07 +00:00
Kernel version 0.9 : pLib & pLibJmp removed
This commit is contained in:
parent
7d61543721
commit
eafa4da73f
BIN
A2OSX.BOOT.po
BIN
A2OSX.BOOT.po
Binary file not shown.
BIN
A2OSX.DEV.po
BIN
A2OSX.DEV.po
Binary file not shown.
BIN
A2OSX.SRC.po
BIN
A2OSX.SRC.po
Binary file not shown.
@ -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
|
||||
*--------------------------------------
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user