A2osX/BIN/ETCONFIG.S.txt

512 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
.TF BIN/ETCONFIG
*--------------------------------------
.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
ZPTmpPtr1 .BS 2
ZPTmpPtr2 .BS 2
ZPTmpPtr3 .BS 2
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
CS.RUN.SETUP jsr CS.RUN.PROBE
jsr CS.RUN.DUMP
.8 lda #0
sec
rts
*--------------------------------------
CS.RUN.DUMP >PUSHEA.G DIB
lda ETKCFG+S.NETCFG.DevID
>SYSCALL GetDevStatus
>LEA.G DCB.NIC
>STYA IOCTL+S.IOCTL.BUFPTR
lda #S.IOCTL.STATCODE.GETDCB
sta IOCTL+S.IOCTL.STATCODE
>PUSHW L.IOCTL
>PUSHBI IOCTL.STATUS
lda ETKCFG+S.NETCFG.DevID
>SYSCALL IOCTL
CS.RUN.DUMPNIC ldy #DCB.NIC+S.DCB.NIC.MAC+5
ldx #6
.1 lda (pData),y
>PUSHA
dey
dex
bne .1
>PUSHEA.G DIB+S.DIB.IDS
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
lda ETKCFG+S.NETCFG.DevID
>PUSHA
>PUSHBI 11
>LDYA L.MSG1.DEV
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.FLAGS
and #S.DCB.NIC.FLAGS.ARPOFFLOAD
beq .2
lda #1
.2 >PUSHA
>PUSHBI 1
>LDYA L.MSG1.DEV.ARP
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.FLAGS
and #S.DCB.NIC.FLAGS.IPOFFLOAD
beq .3
lda #1
.3
>PUSHA
>PUSHBI 1
>LDYA L.MSG1.DEV.IP
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
CS.RUN.LINK >LDYA L.MSG1.LINK.OK
2020-02-28 07:21:46 +00:00
>SYSCALL PutS
2019-03-11 07:01:40 +00:00
>PUSHBI 0
>LDYA L.MSG1.LINKSPEED
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.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
CS.RUN.DUMPNET >PUSHBI 0
>LDYA L.MSG2
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
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
>PUSHB ETKCFG+S.ETKCFG.NodID
>PUSHW ETKCFG+S.ETKCFG.NetID
>PUSHBI 3
>LDYA L.MSG2.ADDR
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2019-03-11 07:01:40 +00:00
>PUSHB ETKCFG+S.ETKCFG.Router
>PUSHW ETKCFG+S.ETKCFG.NetID
>PUSHBI 3
>LDYA L.MSG2.ROUTER
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2019-03-11 07:01:40 +00:00
>PUSHW L.ETKCFG.OBJECT
>PUSHBI 2
>LDYA L.MSG2.OBJECT
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
*--------------------------------------
CS.RUN.PROBE >PUSHBI 0
>LDYA L.MSG.PROBE
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
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
2019-05-27 06:01:59 +00:00
lda #0
* lda #$58
2019-03-11 07:01:40 +00:00
sta AARP.PRB.SPA+2
sta AARP.PRB.TPA+2
sta ETKCFG+S.ETKCFG.NetID
2019-05-27 06:01:59 +00:00
* lda A2osX.RANDOM16+1
* lda #$06
2019-03-11 07:01:40 +00:00
sta AARP.PRB.SPA+1
sta AARP.PRB.TPA+1
sta ETKCFG+S.ETKCFG.NetID+1
lda A2osX.RANDOM16
2019-05-27 06:01:59 +00:00
eor A2osX.RANDOM16+1
* lda #$3A
2019-03-11 07:01:40 +00:00
bne .1
inc
.1 cmp #$FE
bcc .2
eor #$80
bne .2
inc
.2 sta AARP.PRB.SPA+3
sta AARP.PRB.TPA+3
sta ETKCFG+S.ETKCFG.NodID
lda #PROBE.MAX
>STA.G PROBE.CNT
.3 >LDYA L.AARP.PRB
>STYA IOCTL+S.IOCTL.BUFPTR
>LDYAI AARP.PRB.LEN
>STYA IOCTL+S.IOCTL.BYTECNT
>PUSHW L.IOCTL
>PUSHBI IOCTL.WRITE
lda ETKCFG+S.NETCFG.DevID
>SYSCALL IOCTL
>SLEEP
>DEC.G PROBE.CNT
2019-05-27 06:01:59 +00:00
bne .3
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
>PUSHW L.IOCTL
>PUSHBI IOCTL.WRITE
lda ETKCFG+S.NETCFG.DevID
>SYSCALL IOCTL
>LDYA L.MSG.PROBE.OK
2020-02-28 07:21:46 +00:00
>SYSCALL PutS
2019-03-11 07:01:40 +00:00
clc
rts
*--------------------------------------
CFG.EtcFiles >LDYAI 256
>SYSCALL GetMem
bcc .1
rts
.1 >STYA ZPTmpPtr1
stx CFG.hBuf1
>LDYA L.HOSTNAME
jsr CFG.Read.PrintF
jsr CFG.Read.HOSTNAME
lda ETKCFG+S.ETKCFG.OBJECT
bne .4
>PUSHW A2osX.TIMER16
>PUSHBI 2
>PUSHW L.CFG.DefaultHost
>LDYA L.ETKCFG.OBJECT
>SYSCALL sprintf
lda #11
sta ETKCFG+S.ETKCFG.OBJECT
.4 >PUSHW L.ETKCFG
>LIBCALL hLIBETALK,LIBETALK.SETCFG
lda CFG.hBuf1
2020-02-28 07:21:46 +00:00
>SYSCALL FreeMem
2019-10-03 06:25:27 +00:00
.9 rts
2019-03-11 07:01:40 +00:00
*--------------------------------------
CFG.Read.PrintF >PUSHYA
>PUSHBI 2
>LDYA L.MSG.CFG
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
jsr CFG.Read.Result
bcs .9
.1 jsr CFG.Read.GetS
bcs .8
lda (ZPTmpPtr1)
beq .1 empty line...
cmp #'#
beq .1 comment...
ldy #0
.2 lda (ZPTmpPtr1),y
beq .8 end of name
sta ETKCFG+S.ETKCFG.OBJECT,y
iny
cpy #32
bne .2
.8 tya
sta ETKCFG+S.ETKCFG.OBJECT
clc
.HS B0 BCS
.9 sec
jmp CFG.Read.Close
*--------------------------------------
CFG.Read.Result bcc .1
>PUSHA
>PUSHBI 1
>LDYA L.MSG.CFG.KO
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2019-03-11 07:01:40 +00:00
sec
rts
.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
pha
2019-06-07 15:02:51 +00:00
>PUSHWZ
2019-03-11 07:01:40 +00:00
>PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY
pla
2020-03-09 16:24:08 +00:00
>SYSCALL FOpen
2019-03-11 07:01:40 +00:00
bcs .9
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
>PUSHW ZPTmpPtr1
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
2019-11-11 14:21:06 +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."
*--------------------------------------
HOSTNAME .AZ "${ROOT}ETC/HOSTNAME"
*--------------------------------------
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
.DA #0,#36
.HS AA
.HS AA
.HS 03
.HS 08.00.07.80.9B
.DA #0,#6 S.DDP2.DATALEN
.DA 0 S.DDP2.CHECKSUM
.DA $FF00
.DA $1234
.DA #$FF
.DA #$FF
.DA #6 S.DDP2.DST.SKT
.DA #0
.DA #6 S.DDP2.TYPE
*--------------------------------------
.DA #5 ZIP.GetNetInfoReg
.HS 00.00.00.00
.HS 00 Zone Len
.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