A2osX/SYS/KERNEL.S.LIB.txt

113 lines
2.4 KiB
Plaintext
Raw Normal View History

2015-06-03 18:30:57 +00:00
PR#3
PREFIX /A2OSX.SRC
NEW
INC 1
AUTO 6
.LIST OFF
.OP 65C02
*--------------------------------------
* S.LoadLibYA
* in :
* Y,A = PTR To Lib Name
* out :
* A = hMem To loaded LIB
*--------------------------------------
S.LoadLibYA jsr S.NewPStrYA
bcs .99
sta S.LoadLibYA.hLibName save LibName hMem for discard
jsr S.LoadLibA
php save error status
pha save error code/hMem
lda S.LoadLibYA.hLibName
jsr S.FreeMemA discard STR hMem
pla get back error code/hMem
plp ..and error status
.99 rts
*--------------------------------------
2015-06-03 18:30:57 +00:00
S.LoadLibYA.hLibName .BS 1
*--------------------------------------
* S.LoadLibA
* in :
* A = hMem To Lib Name
* out :
* A = hMem of Loaded Lib
*--------------------------------------
S.LoadLibA sta S.LoadLibA.hName push libname for S.FileSearch
>LDYAI ENV.LIB push ENVNAME=LIB
jsr S.GetEnvVarYA get value for ENV=LIB
2015-06-03 18:30:57 +00:00
bcs .99
sta S.LoadLibA.hSrch save hMem to LIB VALUE
>PUSHB S.LoadLibA.hName
>PUSHB S.LoadLibA.hSrch
jsr S.FileSearch find libname in $LIB
2015-06-03 18:30:57 +00:00
bcs .98
sta S.LoadLibA.hPath
2015-06-03 18:30:57 +00:00
jsr S.LoadBinA A = hMem of filename full path
bcs .97
stx S.LoadLibA.hMem
2015-06-03 18:30:57 +00:00
>STYA pLib
ldx #LIBMGR.LOAD
jsr pLibJmp Call LIB.LOAD function
bcs .97
jsr .97
lda S.LoadLibA.hMem
2015-06-03 18:30:57 +00:00
clc
rts
.97 lda S.LoadLibA.hPath discard LIB PATH
jsr S.FreeMemA
.98 lda S.LoadLibA.hSrch discard LIB VALUE
jsr S.FreeMemA
2015-06-03 18:30:57 +00:00
sec
.99 rts
*--------------------------------------
S.LoadLibA.hName .BS 1
S.LoadLibA.hSrch .BS 1
S.LoadLibA.hPath .BS 1
S.LoadLibA.hMem .BS 1
*--------------------------------------
2015-06-03 18:30:57 +00:00
* S.UnloadLibA
* in :
* A = hMem To Lib
* out :
*--------------------------------------
S.UnloadLibA pha
jsr S.GetMemByIDA
>STYA ZPQuickPtr1
ldy #S.MEM.REFCNT
lda (ZPQuickPtr1),y Get count of those referencing this lib
dec only one left ?
beq .1
sta (ZPQuickPtr1),y
pla
clc
rts
.1 ldy #S.MEM.PTR
lda (ZPQuickPtr1),y
pha
iny
lda (ZPQuickPtr1),y
ply
>STYA pLib
ldx #LIBMGR.UNLOAD
jsr pLibJmp Call LIB.UNLOAD function
pla
jmp S.FreeMemA
*--------------------------------------
MAN
SAVE SYS/KERNEL.S.LIB
LOAD SYS/KERNEL.S
ASM