A2osX/BIN/ETCONFIG.S.txt

586 lines
12 KiB
Plaintext
Raw Normal View History

2019-03-11 07:01:40 +00:00
NEW
2019-05-27 06:01:59 +00:00
AUTO 3,1
2019-03-11 07:01:40 +00:00
.LIST OFF
.OP 65C02
.OR $2000
2020-05-04 20:46:21 +00:00
.TF bin/etconfig
2019-03-11 07:01:40 +00:00
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/KERNEL.I
.INB INC/MLI.I
.INB INC/MLI.E.I
.INB INC/NIC.I
.INB INC/ETH.I
.INB INC/LIB.NET.I
.INB INC/LIBETALK.I
*--------------------------------------
TIMEOUT.MAX .EQ 200 20 sec.
PROBE.MAX .EQ 10
*--------------------------------------
.DUMMY
.OR ZPBIN
ZS.START
pETKCFG .BS 2
ZPFrameBase .BS 2
ZPFramePtr .BS 2
2020-05-04 20:46:21 +00:00
BufPtr .BS 2
2019-03-11 07:01:40 +00:00
ZS.END .ED
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
CS.START cld
jmp (.1,x)
.DA #$61 6502,Level 1 (65c02)
.DA #1 BIN Layout Version 1
.DA #S.PS.F.EVENT
.DA #0
.DA CS.END-CS.START Code Size (without Constants)
.DA DS.END-DS.START Data SegmentSize
2019-05-27 06:01:59 +00:00
.DA #64 Stack Size
2019-03-11 07:01:40 +00:00
.DA #ZS.END-ZS.START Zero Page Size
.DA 0
*--------------------------------------
* Relocation Table
2019-10-03 06:25:27 +00:00
*--------------------------------------
2019-03-11 07:01:40 +00:00
.1 .DA CS.INIT
.DA CS.RUN
.DA CS.DOEVENT
.DA CS.QUIT
L.LIBETALK .DA LIBETALK
L.MSG.USAGE .DA MSG.USAGE
L.MSG.NODEV .DA MSG.NODEV
L.MSG1.DEV .DA MSG1.DEV
L.MSG1.DEV.ARP .DA MSG1.DEV.ARP
L.MSG1.DEV.IP .DA MSG1.DEV.IP
L.MSG1.LINK.OK .DA MSG1.LINK.OK
L.MSG1.LINK.KO .DA MSG1.LINK.KO
L.MSG1.LINKSPEED .DA MSG1.LINKSPEED
L.MSG1.DPLX.FD .DA MSG1.DPLX.FD
L.MSG1.DPLX.HD .DA MSG1.DPLX.HD
L.MSG2 .DA MSG2
L.MSG2.C .DA MSG2.C
L.MSG2.U .DA MSG2.U
L.MSG2.ADDR .DA MSG2.ADDR
L.MSG2.ROUTER .DA MSG2.ROUTER
L.MSG2.OBJECT .DA MSG2.OBJECT
L.MSG.CFG .DA MSG.CFG
L.MSG.CFG.KO .DA MSG.CFG.KO
L.MSG.CFG.OK .DA MSG.CFG.OK
L.HOSTNAME .DA HOSTNAME
L.CFG.DefaultHost .DA CFG.DefaultHost
L.ETKCFG .DA ETKCFG
L.ETKCFG.OBJECT .DA ETKCFG+S.ETKCFG.OBJECT+1
L.IOCTL .DA IOCTL
*--------------------------------------
L.MSG.PROBE .DA MSG.PROBE
L.MSG.PROBE.KO .DA MSG.PROBE.KO
L.MSG.PROBE.OK .DA MSG.PROBE.OK
L.AARP.PRB .DA AARP.PRB
2019-03-18 06:53:20 +00:00
L.DDP.GetNetInfo .DA DDP.GetNetInfo
2019-03-11 07:01:40 +00:00
.DA 0
*--------------------------------------
CS.INIT >LDYA L.LIBETALK
>SYSCALL LoadLib
bcs .9
sta hLIBETALK
.9 rts
*--------------------------------------
CS.RUN >LIBCALL hLIBETALK,LIBETALK.GETCFG
>STYA pETKCFG
ldy #S.ETKCFG-1
.1 lda (pETKCFG),y
sta ETKCFG,y
dey
bpl .1
lda ETKCFG+S.NETCFG.DevID
bne CS.RUN.SETUP
>LDYA L.MSG.NODEV
2020-02-28 07:21:46 +00:00
>SYSCALL PutS
2019-03-11 07:01:40 +00:00
lda #MLI.E.NODEV
sec
rts
2020-04-07 06:01:38 +00:00
2020-05-04 20:46:21 +00:00
CS.RUN.SETUP lda ETKCFG+S.NETCFG.STATUS
bne .7
jsr CFG.EtcFiles
2020-04-07 06:01:38 +00:00
jsr CS.RUN.PROBE
2020-05-04 20:46:21 +00:00
jsr CS.RUN.GETNETINFO
2019-03-11 07:01:40 +00:00
2020-05-04 20:46:21 +00:00
lda #$80
sta ETKCFG+S.NETCFG.STATUS
>PUSHW L.ETKCFG
>LIBCALL hLIBETALK,LIBETALK.SETCFG
.7 jsr CS.RUN.DUMP
2019-03-11 07:01:40 +00:00
.8 lda #0
sec
2020-04-07 06:01:38 +00:00
CS.RUN.SETUP.RTS
2019-03-11 07:01:40 +00:00
rts
*--------------------------------------
2020-04-02 06:32:25 +00:00
CS.RUN.DUMP >PUSHB ETKCFG+S.NETCFG.DevID
>PUSHEA.G DIB
2019-03-11 07:01:40 +00:00
>SYSCALL GetDevStatus
2020-04-07 06:01:38 +00:00
bcs CS.RUN.SETUP.RTS
2020-04-02 06:32:25 +00:00
2019-03-11 07:01:40 +00:00
>LEA.G DCB.NIC
>STYA IOCTL+S.IOCTL.BUFPTR
lda #S.IOCTL.STATCODE.GETDCB
sta IOCTL+S.IOCTL.STATCODE
2020-04-07 06:01:38 +00:00
>PUSHB ETKCFG+S.NETCFG.DevID
2019-03-11 07:01:40 +00:00
>PUSHBI IOCTL.STATUS
2020-04-07 06:01:38 +00:00
>PUSHW L.IOCTL
2019-03-11 07:01:40 +00:00
>SYSCALL IOCTL
2020-04-07 06:01:38 +00:00
bcs CS.RUN.SETUP.RTS
CS.RUN.DUMPNIC >PUSHW L.MSG1.DEV
lda ETKCFG+S.NETCFG.DevID
2019-03-11 07:01:40 +00:00
>PUSHA
2020-04-07 06:01:38 +00:00
2019-03-11 07:01:40 +00:00
ldx ETKCFG+S.NETCFG.DevID
lda Dev.Table-1,x
clc
adc #S.FD.DEV
tay
lda Dev.Table,x
adc /S.FD.DEV
>PUSHYA
2020-04-07 06:01:38 +00:00
>PUSHEA.G DIB+S.DIB.IDS
ldy #DCB.NIC+S.DCB.NIC.MAC
ldx #6
.1 lda (pData),y
2019-03-11 07:01:40 +00:00
>PUSHA
2020-04-07 06:01:38 +00:00
iny
dex
bne .1
2019-03-11 07:01:40 +00:00
>PUSHBI 11
2020-04-07 06:01:38 +00:00
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2020-04-07 06:01:38 +00:00
>PUSHW L.MSG1.DEV.ARP
2019-03-11 07:01:40 +00:00
>LDA.G DCB.NIC+S.DCB.NIC.FLAGS
and #S.DCB.NIC.FLAGS.ARPOFFLOAD
beq .2
2020-04-07 06:01:38 +00:00
2019-03-11 07:01:40 +00:00
lda #1
2020-04-07 06:01:38 +00:00
2019-03-11 07:01:40 +00:00
.2 >PUSHA
>PUSHBI 1
2020-04-07 06:01:38 +00:00
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2020-04-07 06:01:38 +00:00
>PUSHW L.MSG1.DEV.IP
2019-03-11 07:01:40 +00:00
>LDA.G DCB.NIC+S.DCB.NIC.FLAGS
and #S.DCB.NIC.FLAGS.IPOFFLOAD
beq .3
lda #1
2020-04-07 06:01:38 +00:00
.3 >PUSHA
2019-03-11 07:01:40 +00:00
>PUSHBI 1
2020-04-07 06:01:38 +00:00
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2019-03-11 07:01:40 +00:00
>LDA.G DCB.NIC+S.DCB.NIC.LINK
and #S.DCB.NIC.LINK.OK
bne CS.RUN.LINK
>LDYA L.MSG1.LINK.KO
2020-02-28 07:21:46 +00:00
>SYSCALL PutS
2019-03-11 07:01:40 +00:00
bra CS.RUN.DUMPNET
2020-04-07 06:01:38 +00:00
2019-03-11 07:01:40 +00:00
CS.RUN.LINK >LDYA L.MSG1.LINK.OK
2020-02-28 07:21:46 +00:00
>SYSCALL PutS
2020-04-07 06:01:38 +00:00
>PUSHW L.MSG1.LINKSPEED
2019-03-11 07:01:40 +00:00
>PUSHBI 0
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2020-04-07 06:01:38 +00:00
2019-03-11 07:01:40 +00:00
>LDA.G DCB.NIC+S.DCB.NIC.SPEED
and #$0F
tax
.4 phx
lda #'0'
>SYSCALL PutChar
plx
dex
bne .4
>LDA.G DCB.NIC+S.DCB.NIC.LINK
and #S.DCB.NIC.LINK.FD
bne .5
>LDYA L.MSG1.DPLX.HD
bra .6
.5 >LDYA L.MSG1.DPLX.FD
2020-02-28 07:21:46 +00:00
.6 >SYSCALL PutS
2019-03-11 07:01:40 +00:00
2020-04-07 06:01:38 +00:00
CS.RUN.DUMPNET >PUSHW L.MSG2
>PUSHBI 0
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2020-04-07 06:01:38 +00:00
2019-03-11 07:01:40 +00:00
lda ETKCFG+S.ETKCFG.NodID
beq .11
>LDYA L.MSG2.C
bra .10
.11 >LDYA L.MSG2.U
2020-02-28 07:21:46 +00:00
.10 >SYSCALL PutS
2019-03-11 07:01:40 +00:00
2020-04-07 06:01:38 +00:00
>PUSHW L.MSG2.ADDR
2019-03-11 07:01:40 +00:00
>PUSHW ETKCFG+S.ETKCFG.NetID
2020-04-07 06:01:38 +00:00
>PUSHB ETKCFG+S.ETKCFG.NodID
2019-03-11 07:01:40 +00:00
>PUSHBI 3
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2020-04-07 06:01:38 +00:00
>PUSHW L.MSG2.ROUTER
2019-03-11 07:01:40 +00:00
>PUSHW ETKCFG+S.ETKCFG.NetID
2020-04-07 06:01:38 +00:00
>PUSHB ETKCFG+S.ETKCFG.Router
2019-03-11 07:01:40 +00:00
>PUSHBI 3
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2020-04-07 06:01:38 +00:00
>PUSHW L.MSG2.OBJECT
2019-03-11 07:01:40 +00:00
>PUSHW L.ETKCFG.OBJECT
>PUSHBI 2
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2019-03-11 07:01:40 +00:00
lda #0 tell TSKMGR that all done ok, but
sec we do not want to stay in memory
rts
*--------------------------------------
2020-04-07 06:01:38 +00:00
CS.RUN.PROBE >LDYA L.MSG.PROBE
>SYSCALL PutS
2019-03-11 07:01:40 +00:00
ldx #5
.20 lda ETKCFG+S.NETCFG.MAC,x
sta AARP.PRB.SHA,x
dex
bpl .20
2020-05-04 20:46:21 +00:00
lda A2osX.RANDOM16
2019-03-11 07:01:40 +00:00
sta AARP.PRB.SPA+2
sta AARP.PRB.TPA+2
2020-05-04 20:46:21 +00:00
lda A2osX.RANDOM16+1
2019-03-11 07:01:40 +00:00
sta AARP.PRB.SPA+1
sta AARP.PRB.TPA+1
2020-05-04 20:46:21 +00:00
lda A2osX.TIMER16
eor A2osX.TIMER16+1
2019-03-11 07:01:40 +00:00
bne .1
2020-05-04 20:46:21 +00:00
2019-03-11 07:01:40 +00:00
inc
.1 cmp #$FE
bcc .2
eor #$80
2020-05-04 20:46:21 +00:00
2019-03-11 07:01:40 +00:00
.2 sta AARP.PRB.SPA+3
sta AARP.PRB.TPA+3
2020-05-04 20:46:21 +00:00
2019-03-11 07:01:40 +00:00
lda #PROBE.MAX
>STA.G PROBE.CNT
2020-05-04 20:46:21 +00:00
2019-03-11 07:01:40 +00:00
.3 >LDYA L.AARP.PRB
>STYA IOCTL+S.IOCTL.BUFPTR
>LDYAI AARP.PRB.LEN
>STYA IOCTL+S.IOCTL.BYTECNT
2020-04-07 06:01:38 +00:00
>PUSHB ETKCFG+S.NETCFG.DevID
2019-03-11 07:01:40 +00:00
>PUSHBI IOCTL.WRITE
2020-04-07 06:01:38 +00:00
>PUSHW L.IOCTL
2019-03-11 07:01:40 +00:00
>SYSCALL IOCTL
2020-04-07 06:01:38 +00:00
2019-03-11 07:01:40 +00:00
>SLEEP
>DEC.G PROBE.CNT
2019-05-27 06:01:59 +00:00
bne .3
2020-05-04 20:46:21 +00:00
lda AARP.PRB.SPA+2
sta ETKCFG+S.ETKCFG.NetID
sta DDP.GetNetInfo+S.DDP2.SRC.NET
lda AARP.PRB.SPA+1
sta ETKCFG+S.ETKCFG.NetID+1
sta DDP.GetNetInfo+S.DDP2.SRC.NET+1
lda AARP.PRB.SPA+3
sta ETKCFG+S.ETKCFG.NodID
sta DDP.GetNetInfo+S.DDP2.SRC.NOD
* clc
rts
*--------------------------------------
CS.RUN.GETNETINFO
2019-03-18 06:53:20 +00:00
>LDYA L.DDP.GetNetInfo
>STYA IOCTL+S.IOCTL.BUFPTR
>LDYAI DDP.GetNetInfo.LEN
>STYA IOCTL+S.IOCTL.BYTECNT
2020-04-07 06:01:38 +00:00
>PUSHW ETKCFG+S.NETCFG.DevID
2019-03-18 06:53:20 +00:00
>PUSHBI IOCTL.WRITE
2020-04-07 06:01:38 +00:00
>PUSHW L.IOCTL
2019-03-18 06:53:20 +00:00
>SYSCALL IOCTL
2020-04-07 06:01:38 +00:00
2019-03-18 06:53:20 +00:00
>LDYA L.MSG.PROBE.OK
2020-02-28 07:21:46 +00:00
>SYSCALL PutS
2020-05-04 20:46:21 +00:00
CS.RUN.GETNETINFO.RTS
2019-03-11 07:01:40 +00:00
rts
*--------------------------------------
CFG.EtcFiles >LDYAI 256
>SYSCALL GetMem
2020-05-04 20:46:21 +00:00
bcs CS.RUN.GETNETINFO.RTS
2020-04-07 06:01:38 +00:00
2020-05-04 20:46:21 +00:00
>STYA BufPtr
2019-03-11 07:01:40 +00:00
stx CFG.hBuf1
>LDYA L.HOSTNAME
jsr CFG.Read.PrintF
jsr CFG.Read.HOSTNAME
lda ETKCFG+S.ETKCFG.OBJECT
bne .4
2020-05-04 20:46:21 +00:00
>LDYA L.ETKCFG.OBJECT
iny
bne .1
inc
.1 >PUSHYA
2020-04-07 06:01:38 +00:00
>PUSHW L.CFG.DefaultHost
2019-03-11 07:01:40 +00:00
>PUSHW A2osX.TIMER16
>PUSHBI 2
>SYSCALL sprintf
2020-04-07 06:01:38 +00:00
2020-05-04 20:46:21 +00:00
lda #10
2019-03-11 07:01:40 +00:00
sta ETKCFG+S.ETKCFG.OBJECT
2020-04-07 06:01:38 +00:00
2020-05-04 20:46:21 +00:00
.4 lda CFG.hBuf1
2020-02-28 07:21:46 +00:00
>SYSCALL FreeMem
2020-05-04 20:46:21 +00:00
rts
2019-03-11 07:01:40 +00:00
*--------------------------------------
2020-04-07 06:01:38 +00:00
CFG.Read.PrintF pha
>PUSHW L.MSG.CFG
pla
>PUSHYA
2019-03-11 07:01:40 +00:00
>PUSHBI 2
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2019-03-11 07:01:40 +00:00
rts
*--------------------------------------
CFG.Read.HOSTNAME
>LDYA L.HOSTNAME
jsr CFG.Read.Open
2020-04-07 06:01:38 +00:00
bcs .9
2020-05-04 20:46:21 +00:00
2019-03-11 07:01:40 +00:00
jsr CFG.Read.Result
bcs .9
2020-04-07 06:01:38 +00:00
2019-03-11 07:01:40 +00:00
.1 jsr CFG.Read.GetS
bcs .8
2020-04-07 06:01:38 +00:00
2020-05-04 20:46:21 +00:00
lda (BufPtr)
2019-03-11 07:01:40 +00:00
beq .1 empty line...
cmp #'#
beq .1 comment...
2020-04-07 06:01:38 +00:00
2019-03-11 07:01:40 +00:00
ldy #0
2020-05-04 20:46:21 +00:00
.2 lda (BufPtr),y
2019-03-11 07:01:40 +00:00
beq .8 end of name
2020-04-07 06:01:38 +00:00
2020-05-04 20:46:21 +00:00
sta ETKCFG+S.ETKCFG.OBJECT+1,y
2019-03-11 07:01:40 +00:00
iny
cpy #32
bne .2
2020-04-07 06:01:38 +00:00
.8 sty ETKCFG+S.ETKCFG.OBJECT
2020-05-04 20:46:21 +00:00
2019-03-11 07:01:40 +00:00
clc
.HS B0 BCS
.9 sec
jmp CFG.Read.Close
*--------------------------------------
CFG.Read.Result bcc .1
2020-04-07 06:01:38 +00:00
pha
>PUSHW L.MSG.CFG.KO
pla
2019-03-11 07:01:40 +00:00
>PUSHA
>PUSHBI 1
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2019-03-11 07:01:40 +00:00
sec
rts
2020-04-07 06:01:38 +00:00
2019-03-11 07:01:40 +00:00
.1 >LDYA L.MSG.CFG.OK
2020-02-28 07:21:46 +00:00
>SYSCALL PutS
2019-03-11 07:01:40 +00:00
rts
*--------------------------------------
CFG.Read.Open stz CFG.hCfgFile
2020-04-07 06:01:38 +00:00
>PUSHYA
2019-03-11 07:01:40 +00:00
>PUSHBI O.RDONLY
2020-04-07 06:01:38 +00:00
>PUSHBI S.FI.T.TXT
>PUSHWZ
2020-03-09 16:24:08 +00:00
>SYSCALL FOpen
2019-03-11 07:01:40 +00:00
bcs .9
2020-04-07 06:01:38 +00:00
2019-03-11 07:01:40 +00:00
sta CFG.hCfgFile
2019-10-03 06:25:27 +00:00
* clc
.9 rts
2019-03-11 07:01:40 +00:00
*--------------------------------------
CFG.Read.Close php
pha
2019-10-03 06:25:27 +00:00
CFG.Read.Close2 lda CFG.hCfgFile
2019-03-11 07:01:40 +00:00
beq .8
2020-02-28 07:21:46 +00:00
>SYSCALL FClose
2019-03-11 07:01:40 +00:00
.8 pla
plp
rts
*--------------------------------------
CFG.Read.GetS >PUSHWI 255
2020-05-04 20:46:21 +00:00
>PUSHW BufPtr
2019-03-11 07:01:40 +00:00
lda CFG.hCfgFile
>SYSCALL fgets
rts
*--------------------------------------
CS.DOEVENT lda (pEvent)
bpl .9 is it a TIMER event?
>LDA.G TimeOut
beq .9
dec
sta (pData),y
.9 sec do not discard TIMER event
rts
*--------------------------------------
CS.QUIT lda hLIBETALK
beq .8
>SYSCALL UnloadLib
.8 clc
rts
*--------------------------------------
Init.Timeout ldy #TimeOut
lda #TIMEOUT.MAX
sta (pData),y
rts
*--------------------------------------
Wait.TimeOut ldy #TimeOut
lda (pData),y
rts
*--------------------------------------
CS.END
2020-04-07 06:01:38 +00:00
LIBETALK .AZ "libetalk"
2019-03-11 07:01:40 +00:00
hLIBETALK .BS 1
*--------------------------------------
MSG.USAGE .AZ "Usage : ETCONFIG\r\n"
*--------------------------------------
MSG.NODEV .AZ "EtherTalk not bound to any device."
*--------------------------------------
MSG1.DEV .AS "NIC Device Configuration :\r\n"
.AS " Device ID : $%h\r\n"
.AS " Device Name : %s\r\n"
.AS " Device Type : %S\r\n"
.AZ " HW Address : %02h:%02h:%02h:%02h:%02h:%02h\r\n"
MSG1.DEV.ARP .AZ " ARP Offload : %d\r\n"
MSG1.DEV.IP .AS " IP Offload : %d\r\n"
.AZ " Link Status : "
MSG1.LINK.OK .AZ "OK"
MSG1.LINK.KO .AZ "Media Disconnected"
MSG1.LINKSPEED .AZ " Link Speed : 1"
MSG1.DPLX.FD .AZ " Mbit/s,Full Duplex"
MSG1.DPLX.HD .AZ " Mbit/s,Half Duplex"
*--------------------------------------
MSG2 .AZ "EtherTalk Configuration : "
MSG2.C .AZ "Configured"
MSG2.U .AZ "Not Configured"
MSG2.ADDR .AZ " Network/Node : %D/%d\r\n"
MSG2.ROUTER .AZ " Router : %D/%d\r\n"
MSG2.OBJECT .AZ " Object Name : %S\r\n"
*--------------------------------------
MSG.CFG .AZ "ETCONFIG:Reading %s..."
MSG.CFG.KO .AZ "Not Found. [%h]\r\n"
MSG.CFG.OK .AZ "OK."
*--------------------------------------
2020-04-07 06:01:38 +00:00
HOSTNAME .AZ "${ROOT}etc/hostname"
2019-03-11 07:01:40 +00:00
*--------------------------------------
CFG.DefaultHost .AZ "a2osx-%H"
*--------------------------------------
MSG.PROBE .AZ "ETCONFIG:Acquiring NODE..."
MSG.PROBE.KO .AZ "ETCONFIG:Time Out [%h].\r\n"
2019-05-27 06:01:59 +00:00
MSG.PROBE.OK .AZ "ETCONFIG:Success."
2019-03-11 07:01:40 +00:00
*--------------------------------------
ETKCFG .BS S.ETKCFG
CFG.hCfgFile .BS 1
CFG.hBuf1 .BS 1
*--------------------------------------
AARP.PRB .HS 090007FFFFFF S.ETH.DSTMAC
AARP.PRB.SRCMAC .BS 6
.DA #0,#36 S.ETH.802.3.LENGTH
.HS AA S.ETH.802.2.DSTSAP
.HS AA S.ETH.802.2.SRCSAP
.HS 03 S.ETH.802.2.CTRL
.HS 00.00.00.80.F3 S.ETH.SNAP.PROTO
.HS 00.01.80.9B.06.04
.HS 0003 Probe
AARP.PRB.SHA .BS 6
AARP.PRB.SPA .BS 4
AARP.PRB.THA .BS 6
AARP.PRB.TPA .BS 4
.BS AARP.PRB+60-*
AARP.PRB.LEN .EQ 60
2019-03-18 06:53:20 +00:00
*--------------------------------------
DDP.GetNetInfo .HS 090007FFFFFF S.ETH.DSTMAC
.BS 6
2020-05-04 20:46:21 +00:00
.DA #0,#DDP.GetNetInfo.DEND-DDP.GetNetInfo.LLC
*--------------------------------------
DDP.GetNetInfo.LLC
2019-03-18 06:53:20 +00:00
.HS AA
.HS AA
.HS 03
.HS 08.00.07.80.9B
2020-05-04 20:46:21 +00:00
*--------------------------------------
DDP.GetNetInfo.DDP
.DA #0,#DDP.GetNetInfo.DEND-DDP.GetNetInfo.DDP
2019-03-18 06:53:20 +00:00
.DA 0 S.DDP2.CHECKSUM
2020-05-04 20:46:21 +00:00
.DA 0 S.DDP2.DST.NET
.DA 0 S.DDP2.SRC.NET
.DA #$FF S.DDP2.DST.NOD
.DA #0 S.DDP2.SRC.NOD
2019-03-18 06:53:20 +00:00
.DA #6 S.DDP2.DST.SKT
2020-05-04 20:46:21 +00:00
.DA #6 S.DDP2.SRC.SKT
2019-03-18 06:53:20 +00:00
.DA #6 S.DDP2.TYPE
*--------------------------------------
2020-05-04 20:46:21 +00:00
.DA #5 ZIP.GetNetInfoReq
.HS 00
2019-03-18 06:53:20 +00:00
.HS 00.00.00.00
.HS 00 Zone Len
2020-05-04 20:46:21 +00:00
DDP.GetNetInfo.DEND .EQ *
2019-03-18 06:53:20 +00:00
.BS DDP.GetNetInfo+60-*
2019-10-03 06:25:27 +00:00
DDP.GetNetInfo.LEN .EQ 60
2019-03-18 06:53:20 +00:00
*--------------------------------------
2019-03-11 07:01:40 +00:00
IOCTL .BS S.IOCTL
*--------------------------------------
.DUMMY
.OR 0
DS.START
DIB .BS S.DIB
DCB.NIC .BS S.DCB.NIC
PROBE.CNT .BS 1
TimeOut .BS 1
DS.END .ED
*--------------------------------------
MAN
SAVE USR/SRC/SBIN/ETCONFIG.S
ASM