mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 07:54:37 +00:00
38 lines
645 B
Plaintext
38 lines
645 B
Plaintext
|
NEW
|
|||
|
|
PREFIX
|
|||
|
|
AUTO 4,1
|
|||
|
|
.LIST OFF
|
|||
|
|
*--------------------------------------
|
|||
|
|
* PULLW = PTR to S.IPCFG
|
|||
|
|
*--------------------------------------
|
|||
|
|
DEV.Bind >PUSHBI 0
|
|||
|
|
>LDYA L.DEVNAME
|
|||
|
|
>SYSCALL open
|
|||
|
|
bcc .1
|
|||
|
|
inc DEVNAME+8
|
|||
|
|
lda DEVNAME+8
|
|||
|
|
cmp #'8'
|
|||
|
|
bne DEV.Bind
|
|||
|
|
|
|||
|
|
>LDYA L.MSG.DEV.KO
|
|||
|
|
>SYSCALL puts
|
|||
|
|
|
|||
|
|
lda #MLI.E.NODEV
|
|||
|
|
sec
|
|||
|
|
rts
|
|||
|
|
|
|||
|
|
.1 sta IPCFG+S.IPCFG.hFD
|
|||
|
|
|
|||
|
|
>PUSHW L.DEVNAME
|
|||
|
|
>PUSHBI 2
|
|||
|
|
>LDYA L.MSG.DEV.OK
|
|||
|
|
>SYSCALL printf
|
|||
|
|
|
|||
|
|
clc
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
MAN
|
|||
|
|
SAVE USR/SRC/SBIN/IPCONFIG.S.DEV
|
|||
|
|
LOAD USR/SRC/SBIN/IPCONFIG.S
|
|||
|
|
ASM
|