A2osX/SYS/KERNEL.S.MOUNT.txt

94 lines
1.6 KiB
Plaintext
Raw Normal View History

2020-05-17 17:34:32 +00:00
NEW
AUTO 3,1
*--------------------------------------
* K.Mount
2021-01-12 21:14:13 +00:00
* ## ASM
* `>PUSHW mountpoint`
* `>PUSHW callback`
*
* Out : A = hMount
2020-05-17 17:34:32 +00:00
*--------------------------------------
2021-01-12 21:14:13 +00:00
K.Mount >PULLW ZPPtr2 callback
>PULLW ZPPtr1 mountpoint
ldx #1
.1 lda Flt.Table.pftHI-1,x
beq .2
inx
cpx #K.FLT.MAX+1
bne .1
lda #E.OOH
sec
rts
.2 lda ZPPtr1
sta Flt.Table.pftLO-1,x
lda ZPPtr1+1
sta Flt.Table.pftHI-1,x
lda ZPPtr2
sta Flt.Table.cbLO-1,x
lda ZPPtr2+1
sta Flt.Table.cbHI-1,x
txa
clc
rts
2020-05-17 17:34:32 +00:00
*--------------------------------------
* K.UMount
2021-01-12 21:14:13 +00:00
* In : A = hMount
2020-05-17 17:34:32 +00:00
* Out :
*--------------------------------------
2021-01-12 21:14:13 +00:00
K.UMount tax
lda Flt.Table.pftHI-1,x
beq .9
stz Flt.Table.pftHI-1,x
2020-05-17 17:34:32 +00:00
clc
rts
2021-01-12 21:14:13 +00:00
.9 lda #E.INVH
sec
rts
2020-05-17 17:34:32 +00:00
*--------------------------------------
2020-07-07 13:44:28 +00:00
K.Online >PULLW K.MLI.PARAMS+2
2020-09-28 15:43:38 +00:00
>PULLB K.MLI.PARAMS+1
2020-07-07 13:44:28 +00:00
>MLICALL MLIONLINE
rts
2020-07-30 14:10:49 +00:00
*/--------------------------------------
* # GetStkObj
* ## C
2021-01-12 21:14:13 +00:00
* `int *ptr getstkobj (short int hStkObj);`
2020-07-30 14:10:49 +00:00
* ## ASM
* `lda hStkObj`
* `>SYSCALL GetStkObj`
* ## RETURN VALUE
* CC : success
* X = hMem
* Y,A = ptr
* CS : error
* A = EC
*\--------------------------------------
2020-07-30 13:59:04 +00:00
K.GetStkObj tax hMem for CopyToMain
jsr MEM.GetMemByID
ldy #S.MEM.LEN
lda (ZPMemMgrSPtr),y
pha
iny
lda (ZPMemMgrSPtr),y
ply YA = Len
jmp MEM.CopyToMain
*--------------------------------------
2020-05-17 17:34:32 +00:00
MAN
2020-07-07 13:44:28 +00:00
SAVE usr/src/sys/kernel.s.mount
LOAD usr/src/sys/kernel.s
2020-05-17 17:34:32 +00:00
ASM