A2osX/SYS/KERNEL.S.DEV.txt
2018-07-19 17:33:55 +02:00

154 lines
2.6 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
PREFIX /A2OSX.BUILD
AUTO 4,1
*/--------------------------------------
* # GetDevByID
* **In:**
* A = DevID
* **Out:**
* CC = OK, CS = ERROR
* Y,A = FD
*\--------------------------------------
K.GetDevByID cmp DevMgr.DevCnt
bcs K.GetDev.NODEV
tax
ldy FD.Table.PTRLO,x
lda FD.Table.PTRHI,x
* clc
.9 rts CC
*/--------------------------------------
* # GetDevByName
* **In:**
* Y,A = Ptr to device name (C-String)
* **Out:**
* CC = OK, CS = ERROR
* X = DEVID
* Y,A = FD
*\--------------------------------------
K.GetDevByName >STYA ZPPtr1
ldx #0
.1 ldy FD.Table.PTRLO,x
lda FD.Table.PTRHI,x
>STYA ZPPtr2
lda ZPPtr2
clc
adc #S.FD.DEV.NAME
sta ZPPtr3
lda ZPPtr2+1
adc #0
sta ZPPtr3+1
ldy #$ff
.2 iny
lda (ZPPtr1),y
cmp (ZPPtr3),y
bne .4
ora (ZPPtr3),y Both char are 0 ?
bne .2 no....loop
ldy ZPPtr2
lda ZPPtr2+1
clc
rts
.4 inx
cpx DevMgr.DevCnt
bne .1
K.GetDev.NODEV lda #MLI.E.NODEV
sec
K.GetDev.9 rts
*/--------------------------------------
* # GetDevStatus
* ## C
* `int getdevstatus ( int devid, S.DIB * dstat );`
* ## ASM
* **In:**
* `>PUSHWI S.DIB`
* `lda DevID`
* `>SYSCALL GetDevStatus`
* **Out:**
*\--------------------------------------
K.GetDevStatus pha
>PULLW K.S.IOCTL+S.IOCTL.BUFPTR
pla
jsr K.GetDevByID
bcs K.GetDev.9
>STYA pFD
ldy #S.FD.DEV.DRVPTR
lda (pFD),y
sta .1+1
iny
lda (pFD),y
sta .1+2
lda #S.IOCTL.STATCODE.GETDIB
sta K.S.IOCTL+S.IOCTL.STATCODE
>LDYAI K.S.IOCTL
ldx #IOCTL.STATUS
.1 jmp $ffff
.9 rts
*/--------------------------------------
* # MKDev
* **In:**
* Y,A = Ptr to FD.DEV
* **Out:**
* A = DEVID
*\--------------------------------------
K.MKDev >STYA .1+1
ldx DevMgr.DevCnt
cmp #K.DEV.MAX
beq .9
>LDYAI S.FD.DEV
jsr K.GetMem
>STYA .2+1
phx
ldx DevMgr.DevCnt
sta FD.Table.PTRHI,x
tya
sta FD.Table.PTRLO,x
pla
sta FD.Table.hMem,x
.10 lda #$ff SELF MODIFIED
sta FD.Table.F,x
ldx #S.FD.DEV-1
.1 lda $ffff,x SELF MODIFIED
.2 sta $ffff,x SELF MODIFIED
dex
bpl .1
inc DevMgr.DevCnt
rts
.9 lda #K.E.OOH
* sec
rts
*--------------------------------------
MAN
SAVE /A2OSX.SRC/SYS/KERNEL.S.DEV
LOAD /A2OSX.SRC/SYS/KERNEL.S
ASM