Tidied code, standardised naming and added the protocol selection function

This commit is contained in:
John LeFebvre 2024-01-17 23:05:47 +00:00
parent c83582a68a
commit 463723ce8f

View File

@ -18,7 +18,9 @@ EV.OK .EQ $CE
EV.CANCEL .EQ $CF
SCR.X1 .EQ 3
SCR.X2 .EQ 27
SCR.X3 .EQ 51
SCR.X3 .EQ 52
SCR.Y1 .EQ 1
SCR.Y2 .EQ 12
*--------------------------------------
* Zero Page Segment, up to 32 bytes
*--------------------------------------
@ -63,33 +65,32 @@ L.LIBTUI .DA LIBTUI
*--------------------------------------
L.NETSTART .DA NETSTART
L.HOSTNAME .DA HOSTNAME
L.NETWORK .DA NETWORK
L.NETWORKIP .DA NETWORKIP
L.NETWORKET .DA NETWORKET
L.TCPIP.CONF .DA TCPIP.CONF
L.SCRN.Title .DA SCRN.Title
L.SCRN.Status .DA SCRN.Status
L.SCRN.StatusSv .DA SCRN.StatusSv
L.HOST.Label .DA HOST.Label
L.HOST.Text .DA HOST.Text
L.IFACE.Label .DA IFACE.Label
L.IFACE.List .DA IFACE.List
L.AUTOIP.Label .DA AUTOIP.Label
L.AUTOIP.List .DA AUTOIP.List
L.PROTO.Label .DA PROTO.Label
L.LIBTCPIP.Label .DA LIBTCPIP.Label
L.LIBETALK.Label .DA LIBETALK.Label
L.SERV.Label .DA SERV.Label
L.TELNET.Label .DA TELNET.Label
L.HTTPD.Label .DA HTTPD.Label
L.BBSD.Label .DA BBSD.Label
L.MANUAL.Label .DA MANUAL.Label
L.IPADDR.Label .DA IPADDR.Label
L.IPADDR.Text .DA IPADDR.Text
L.MASK.Label .DA MASK.Label
L.MASK.Text .DA MASK.Text
L.GATEWAY.Label .DA GATEWAY.Label
L.GATEWAY.Text .DA GATEWAY.Text
L.NS1.Label .DA NS1.Label
L.NS1.Text .DA NS1.Text
L.NS2.Label .DA NS2.Label
L.NS2.Text .DA NS2.Text
L.DOM.Label .DA DOM.Label
L.DOM.Text .DA DOM.Text
L.BUTQ.Label .DA BUTQ.Label
L.BUTS.Label .DA BUTS.Label
L.DLGS.Title .DA DLGS.Title
@ -100,15 +101,21 @@ L.BUT.Cancel .DA BUT.Cancel
L.NS.Hdr .DA NS.Hdr
L.NS.Uth .DA NS.Uth
L.NS.Lanc .DA NS.Lanc
L.NS.U2 .DA NS.U2
L.NS.U2ai .DA NS.U2ai
L.NS.networkd .DA NS.networkd
L.NS.U2 .DA NS.U2
L.NS.Dan2Eth .DA NS.Dan2Eth
L.NS.Udeth .DA NS.Udeth
L.NS.Udeth.D .DA NS.Udeth.D
L.NS.networkd .DA NS.networkd
L.NS.libtcpip .DA NS.libtcpip
L.NS.libetalk .DA NS.libetalk
L.NS.amper .DA NS.amper
L.NS.telnetd .DA NS.telnetd
L.NS.httpd .DA NS.httpd
L.NS.bbsd .DA NS.bbsd
L.IP.Hash .DA IP.Hash
L.Host.Hdr .DA Host.Hdr
L.CRLF .DA CRLF
L.EOL .DA EOL
*L.Str.debug .DA Str.debug
L.IP.Keywords .DA IP.Keywords
J.IP.Keywords .DA CS.IPR.addr
.DA CS.IPR.mask
@ -131,29 +138,30 @@ CS.RUN >LDYA 80
>STYA ZPTmpPtr1
stx hBuf1
jsr CS.HOSTR
jsr CS.IPR
jsr CS.File.Close CS.IPR doesn't close the file
* rts debug; stop before displaying TUI
jsr CS.HOSTR Read HOSTNAME file
jsr CS.IPR Read TCPIP.CONF file
jsr CS.File.Close CS.IPR doesn't close the file
>LIBCALL hLIBTUI,LIBTUI.Init
bcs CS.RUN.RTS
sta hCTX
jsr CS.SCRN.Init
bcs CS.RUN.RTS
jsr CS.HOSTR.Init
jsr CS.HOST.INIT
bcs CS.RUN.RTS
jsr CS.IFACE.Init
bcs CS.RUN.RTS
jsr CS.AUTOIP.Init
bcs CS.RUN.RTS
jsr CS.PROTO.Init
bcs CS.RUN.RTS
jsr CS.SERV.Init
bcs CS.RUN.RTS
jsr CS.IP.Init
bcs CS.RUN.RTS
jsr CS.BUT.Init
bcs CS.RUN.RTS
jsr CS.SCRN.Draw Will Call SCRN.Draw
jsr CS.SCRN.Draw Will Call SCRN.Draw
lda hItem1
>LIBCALL hLIBTUI,LIBTUI.Activate
@ -174,7 +182,7 @@ CS.RUN.LOOP2 lda hSCRN
bne CS.RUN.LOOP2
CS.RUN.QUIT lda hSCRN
>LIBCALL hLIBTUI,LIBTUI.Destroy
lda hBuf1
CS.RUN.QUIT2 lda hBuf1
>SYSCALL FreeMem
lda hLIBTUI
>SYSCALL UnloadLib
@ -182,34 +190,36 @@ CS.RUN.QUIT lda hSCRN
sec
CS.RUN.RTS rts
*--------------------------------------
CS.HOSTR >LDYA L.HOSTNAME etc/hostname
CS.HOSTR >LDYA L.HOSTNAME etc/hostname
JSR CS.File.OpenRD
bcc CS.HOSTR.Loop
rts
CS.HOSTR.Loop jsr CS.File.Read
bcs .1
lda (ZPTmpPtr1)
beq CS.HOSTR.Loop
cmp #'#'
beq CS.HOSTR.Loop
.1 >LDYA L.HOST.Text
.1 >LEA.G HOST.Buf
>STYA ZPTmpPtr4
ldy #0 Copy setting to var string
CS.HOSTR.Loop2 lda (ZPTmpPtr1),y
cmp #0
beq .2
sta (ZPTmpPtr4),y
iny
cpy #$10
cpy #$0F
bcc CS.HOSTR.Loop2
.2 lda #0
sta (ZPTmpPtr4),y
clc
* clc
jmp CS.File.Close
*--------------------------------------
CS.IPR >LDYA L.TCPIP.CONF etc/tcpip.conf
JSR CS.File.OpenRD
bcc CS.IPR.Loop
rts
CS.IPR.Loop jsr CS.File.Read *was READIP
CS.IPR.Loop jsr CS.File.Read
bcs .8
.1 ldy #$ff
.2 iny
@ -270,7 +280,7 @@ CS.IPR.Keyword lda ZPTmpPtr1+1 Move ptr to after keyword+space
inc ZPTmpPtr3+1
.81 jmp (J.IP.Keywords,x)
CS.IPR.addr >LDYA L.IPADDR.Text
CS.IPR.addr >LEA.G IPADDR.Buf
>STYA ZPTmpPtr4
CS.IPR.Copy ldy #0 Copy setting to correct var
CS.IPR.Copy.L lda (ZPTmpPtr3),y
@ -283,21 +293,21 @@ CS.IPR.Copy.L lda (ZPTmpPtr3),y
sta (ZPTmpPtr4),y
clc
rts
CS.IPR.mask >LDYA L.MASK.Text
CS.IPR.mask >LEA.G MASK.Buf
>STYA ZPTmpPtr4
jmp CS.IPR.Copy
CS.IPR.gway >LDYA L.GATEWAY.Text
CS.IPR.gway >LEA.G GATEWAY.Buf
>STYA ZPTmpPtr4
jmp CS.IPR.Copy
CS.IPR.ns1 >LDYA L.NS1.Text
CS.IPR.ns1 >LEA.G NS1.Buf
>STYA ZPTmpPtr4
lda (ZPTmpPtr4)
bne CS.IPR.ns2 NS1 already populated
jmp CS.IPR.Copy
CS.IPR.ns2 >LDYA L.NS2.Text
CS.IPR.ns2 >LEA.G NS2.Buf
>STYA ZPTmpPtr4
jmp CS.IPR.Copy
CS.IPR.dom >LDYA L.DOM.Text
CS.IPR.dom >LEA.G DOM.Buf
>STYA ZPTmpPtr4
jsr CS.IPR.Copy
sec last one so sec
@ -361,17 +371,17 @@ CS.SCRN.Init >PUSHB hCTX hParent
>LIBCALL hLIBTUI,LIBTUI.SetProp
.9 rts
*--------------------------------------
CS.HOSTR.Init >PUSHB hSCRN hParent
CS.HOST.INIT >PUSHB hSCRN hParent
>PUSHBI SCR.X1
>PUSHBI 2 Y1
>PUSHBI SCR.Y1
>PUSHW L.HOST.Label
>LIBCALL hLIBTUI,LIBTUI.NewLabel
bcs .9
>PUSHB hSCRN hParent
>PUSHBI SCR.X1+9 X1
>PUSHBI 2 Y1
>PUSHBI SCR.X1+9
>PUSHBI SCR.Y1
>PUSHBI 18 W
>PUSHW L.HOST.Text
>PUSHEA.G HOST.Buf
>PUSHWI 15 Len
>LIBCALL hLIBTUI,LIBTUI.NewTLine
sta hItem1
@ -379,15 +389,13 @@ CS.HOSTR.Init >PUSHB hSCRN hParent
*--------------------------------------
CS.IFACE.Init >PUSHB hSCRN hParent
>PUSHBI SCR.X1
>PUSHBI 4 Y1
>PUSHBI SCR.Y1+2
>PUSHW L.IFACE.Label
>LIBCALL hLIBTUI,LIBTUI.NewLabel
bcs .9
* lda #2
* >STA.G IFACE.Var
>PUSHB hSCRN hParent
>PUSHBI SCR.X1
>PUSHBI 5 Y1
>PUSHBI SCR.Y1+3
>PUSHBI 0 HK
>PUSHBI 0 EV
>PUSHW L.IFACE.List
@ -397,13 +405,13 @@ CS.IFACE.Init >PUSHB hSCRN hParent
*--------------------------------------
CS.AUTOIP.Init >PUSHB hSCRN hParent
>PUSHBI SCR.X2
>PUSHBI 4 Y1
>PUSHBI SCR.Y1+2
>PUSHW L.AUTOIP.Label
>LIBCALL hLIBTUI,LIBTUI.NewLabel
bcs .9
>PUSHB hSCRN hParent
>PUSHBI SCR.X2
>PUSHBI 5 Y1
>PUSHBI SCR.Y1+3
>PUSHBI 0 HK
>PUSHBI 0 EV
>PUSHW L.AUTOIP.List
@ -411,16 +419,41 @@ CS.AUTOIP.Init >PUSHB hSCRN hParent
>LIBCALL hLIBTUI,LIBTUI.NewRadio
.9 rts
CS.PROTO.Init >PUSHB hSCRN hParent
>PUSHBI SCR.X2
>PUSHBI SCR.Y1+6
>PUSHW L.PROTO.Label
>LIBCALL hLIBTUI,LIBTUI.NewLabel
bcs .1
>PUSHB hSCRN hParent
>PUSHBI SCR.X2
>PUSHBI SCR.Y1+7
>PUSHBI 0 HK
>PUSHBI 0 EV
>PUSHW L.LIBTCPIP.Label
>PUSHEA.G LIBTCPIP.Var
>LIBCALL hLIBTUI,LIBTUI.NewCBox
.1 bcs .9
>PUSHB hSCRN hParent
>PUSHBI SCR.X2
>PUSHBI SCR.Y1+8
>PUSHBI 0 HK
>PUSHBI 0 EV
>PUSHW L.LIBETALK.Label
>PUSHEA.G LIBETALK.Var
>LIBCALL hLIBTUI,LIBTUI.NewCBox
.9 rts
CS.SERV.Init >PUSHB hSCRN hParent
>PUSHBI SCR.X3
>PUSHBI 4 Y1
>PUSHBI SCR.Y1+2
>PUSHW L.SERV.Label
>LIBCALL hLIBTUI,LIBTUI.NewLabel
bcc .1
rts
.1 >PUSHB hSCRN hParent
>PUSHBI SCR.X3
>PUSHBI 5 Y1
>PUSHBI SCR.Y1+3
>PUSHBI 0
>PUSHBI 0
>PUSHW L.TELNET.Label
@ -430,7 +463,7 @@ CS.SERV.Init >PUSHB hSCRN hParent
rts
.2 >PUSHB hSCRN hParent
>PUSHBI SCR.X3
>PUSHBI 6 Y1
>PUSHBI SCR.Y1+4
>PUSHBI 0
>PUSHBI 0
>PUSHW L.HTTPD.Label
@ -440,7 +473,7 @@ CS.SERV.Init >PUSHB hSCRN hParent
rts
.3 >PUSHB hSCRN hParent
>PUSHBI SCR.X3
>PUSHBI 7 Y1
>PUSHBI SCR.Y1+5
>PUSHBI 0
>PUSHBI 0
>PUSHW L.BBSD.Label
@ -450,85 +483,85 @@ CS.SERV.Init >PUSHB hSCRN hParent
CS.IP.Init >PUSHB hSCRN hParent
>PUSHBI SCR.X1
>PUSHBI 11 Y1
>PUSHBI SCR.Y2
>PUSHW L.MANUAL.Label
>LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent
>PUSHBI SCR.X1
>PUSHBI 13 Y1
>PUSHBI SCR.Y2+2
>PUSHW L.IPADDR.Label
>LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent
>PUSHBI SCR.X1
>PUSHBI 14 Y1
>PUSHBI SCR.Y2+3
>PUSHBI 18 W
>PUSHW L.IPADDR.Text
>PUSHEA.G IPADDR.Buf
>PUSHWI 15 Len
>LIBCALL hLIBTUI,LIBTUI.NewTLine
>PUSHB hSCRN hParent
>PUSHBI SCR.X2
>PUSHBI 13 Y1
>PUSHBI SCR.Y2+2
>PUSHW L.MASK.Label
>LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent
>PUSHBI SCR.X2
>PUSHBI 14 Y1
>PUSHBI SCR.Y2+3
>PUSHBI 18 W
>PUSHW L.MASK.Text
>PUSHEA.G MASK.Buf
>PUSHWI 15 Len
>LIBCALL hLIBTUI,LIBTUI.NewTLine
>PUSHB hSCRN hParent
>PUSHBI SCR.X3
>PUSHBI 13 Y1
>PUSHBI SCR.Y2+2
>PUSHW L.GATEWAY.Label
>LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent
>PUSHBI SCR.X3
>PUSHBI 14 Y1
>PUSHBI SCR.Y2+3
>PUSHBI 18 W
>PUSHW L.GATEWAY.Text
>PUSHEA.G GATEWAY.Buf
>PUSHWI 15 Len
>LIBCALL hLIBTUI,LIBTUI.NewTLine
>PUSHB hSCRN hParent
>PUSHBI SCR.X1
>PUSHBI 16 Y1
>PUSHBI SCR.Y2+5
>PUSHW L.NS1.Label
>LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent
>PUSHBI SCR.X1
>PUSHBI 17 Y1
>PUSHBI SCR.Y2+6
>PUSHBI 18 W
>PUSHW L.NS1.Text
>PUSHEA.G NS1.Buf
>PUSHWI 15 Len
>LIBCALL hLIBTUI,LIBTUI.NewTLine
>PUSHB hSCRN hParent
>PUSHBI SCR.X2
>PUSHBI 16 Y1
>PUSHBI SCR.Y2+5
>PUSHW L.NS2.Label
>LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent
>PUSHBI SCR.X2
>PUSHBI 17 Y1
>PUSHBI SCR.Y2+6
>PUSHBI 18 W
>PUSHW L.NS2.Text
>PUSHEA.G NS2.Buf
>PUSHWI 15 Len
>LIBCALL hLIBTUI,LIBTUI.NewTLine
>PUSHB hSCRN hParent
>PUSHBI SCR.X3
>PUSHBI 16 Y1
>PUSHBI SCR.Y2+5
>PUSHW L.DOM.Label
>LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent
>PUSHBI SCR.X3
>PUSHBI 17 Y1
>PUSHBI SCR.Y2+6
>PUSHBI 25 W
>PUSHW L.DOM.Text
>PUSHEA.G DOM.Buf
>PUSHWI 65 Len
>LIBCALL hLIBTUI,LIBTUI.NewTLine
rts
@ -605,12 +638,13 @@ CS.DLG.Loop lda hDLGS
>PUSHBI S.OBJ.pSTATUS
>PUSHW L.SCRN.StatusSv
>LIBCALL hLIBTUI,LIBTUI.SetProp
jsr CS.IPW
jsr CS.HOSTW
jsr CS.IPW write tcpip.conf
jsr CS.HOSTW write hostname
jsr CS.NETW write startup system script
>LDA.G DLGS.Var
* cmp #0
beq .1
jsr CS.SHW
jsr CS.SHW write startup shell script
bra .2
.1 cmp #EV.CANCEL
bne CS.DLG.Loop
@ -633,10 +667,10 @@ CS.HOSTW >LDYA L.HOSTNAME
>PUSHW L.HOST.Hdr
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.HOST.Text
>PUSHEA.G HOST.Buf
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.CRLF
>PUSHW L.EOL
>SYSCALL FPutS
jmp CS.File.Close
*--------------------------------------
@ -653,10 +687,10 @@ CS.IPW.addr >PUSHB hFile
>PUSHW L.IPADDR.Label
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.IPADDR.Text
>PUSHEA.G IPADDR.Buf
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.CRLF
>PUSHW L.EOL
>SYSCALL FPutS
>LDA.G AUTOIP.Var
bne CS.IPW.mask
@ -667,10 +701,10 @@ CS.IPW.mask >PUSHB hFile
>PUSHW L.MASK.Label
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.MASK.Text
>PUSHEA.G MASK.Buf
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.CRLF
>PUSHW L.EOL
>SYSCALL FPutS
>LDA.G AUTOIP.Var
bne CS.IPW.gway
@ -681,10 +715,10 @@ CS.IPW.gway >PUSHB hFile
>PUSHW L.GATEWAY.Label
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.GATEWAY.Text
>PUSHEA.G GATEWAY.Buf
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.CRLF
>PUSHW L.EOL
>SYSCALL FPutS
>LDA.G AUTOIP.Var
bne CS.IPW.ns1
@ -695,10 +729,10 @@ CS.IPW.ns1 >PUSHB hFile
>PUSHW L.NS1.Label
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.NS1.Text
>PUSHEA.G NS1.Buf
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.CRLF
>PUSHW L.EOL
>SYSCALL FPutS
>LDA.G AUTOIP.Var
bne CS.IPW.ns2
@ -709,10 +743,10 @@ CS.IPW.ns2 >PUSHB hFile
>PUSHW L.NS1.Label Must use NS1 label again
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.NS2.Text
>PUSHEA.G NS2.Buf
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.CRLF
>PUSHW L.EOL
>SYSCALL FPutS
>LDA.G AUTOIP.Var
bne CS.IPW.dom
@ -723,10 +757,10 @@ CS.IPW.dom >PUSHB hFile
>PUSHW L.DOM.Label
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.DOM.Text
>PUSHEA.G DOM.Buf
>SYSCALL FPutS
>PUSHB hFile
>PUSHW L.CRLF
>PUSHW L.EOL
>SYSCALL FPutS
jmp CS.File.Close
*--------------------------------------
@ -743,44 +777,87 @@ CS.SHW >LDYA L.Netstart Write network startup shell script
>PUSHB hFile
>PUSHW L.NS.Uth
>SYSCALL FPutS
bra .2
bra .3
.1 cmp #1
bne .3
bne .2
>PUSHB hFile
>PUSHW L.NS.Lanc
>SYSCALL FPutS
.2 bra CS.SHW.netd
.3 cmp #2
bra .3
.2 cmp #2
bne .4
>PUSHB hFile
>PUSHW L.NS.U2
>SYSCALL FPutS
bra CS.SHW.netd
.3 bra CS.SHW.netd
.4 cmp #3
bne .5
>PUSHB hFile
>PUSHW L.NS.Dan2Eth
>SYSCALL FPutS
bra CS.SHW.netd
.5 cmp #4
bne .6
>PUSHB hFile
>PUSHW L.NS.UdEth
>SYSCALL FPutS
bra CS.SHW.netd
.6 cmp #5
bne CS.SHW.netd
>PUSHB hFile
>PUSHW L.NS.U2ai
>PUSHW L.NS.UdEth.D
>SYSCALL FPutS
CS.SHW.netd >PUSHB hFile
>PUSHW L.NS.networkd
>SYSCALL FPutS
>LDA.G LIBTCPIP.Var
beq CS.SHW.etalk
>PUSHB hFile
>PUSHW L.NS.libtcpip
>SYSCALL FPutS
CS.SHW.etalk >LDA.G LIBETALK.Var
beq CS.SHW.amper
>PUSHB hFile
>PUSHW L.NS.libetalk
>SYSCALL FPutS
cs.SHW.amper >PUSHB hFile
>PUSHW L.NS.amper
>SYSCALL FPutS
>LDA.G TELNET.Var
bpl CS.SHW.httpd
beq CS.SHW.httpd
>PUSHB hFile
>PUSHW L.NS.telnetd
>SYSCALL FPutS
CS.SHW.httpd >LDA.G HTTPD.Var
bpl CS.SHW.bbsd
beq CS.SHW.bbsd
>PUSHB hFile
>PUSHW L.NS.httpd
>SYSCALL FPutS
CS.SHW.bbsd >LDA.G BBSD.Var
bpl CS.SHW.close
beq CS.SHW.close
>PUSHB hFile
>PUSHW L.NS.bbsd
>SYSCALL FPutS
CS.SHW.close jmp CS.File.Close
.9 rts
*.9 rts
*--------------------------------------
CS.NETW >LDYA L.NETWORK Write network startup system script
jsr CS.File.OpenWR
bcc .0
rts
.0 >LDA.G LIBTCPIP.Var
bpl CS.NETW.etalk
>PUSHB hFile
>PUSHW L.NETWORKIP
>SYSCALL FPutS
CS.NETW.etalk >LDA.G LIBETALK.Var
bpl .9
>PUSHB hFile
>PUSHW L.NETWORKET
>SYSCALL FPutS
.9 jmp CS.File.Close
*--------------------------------------
CS.DOEVENT sec do not discard TIMER event
rts
@ -822,6 +899,9 @@ hLIBTUI .BS 1
NETSTART .AZ "${HOME}netstart"
HOSTNAME .AZ "${ROOT}etc/hostname"
TCPIP.CONF .AZ "${ROOT}etc/tcpip.conf"
NETWORK .AZ "$[ROOT]etc/network"
NETWORKIP .CZ "ipconfig/r"
NETWORKET .CZ "etconfig/r"
*--------------------------------------
IP.Keywords .PS "address"
.PS "netmask"
@ -835,42 +915,36 @@ SCRN.Status .AZ " "
SCRN.StatusSv .AZ " Settings saved successfully"
*--------------------------------------
HOST.Label .AZ "Hostname:"
Host.Text .BS 15
*Host.Text .BS 16
*--------------------------------------
IFACE.Label .AZ "Interface"
IFACE.List .AS "Uthernet"
.DA #C.CR
.AS "LanceGS"
.DA #C.CR
.AS "Uthernet2"
.DA #C.CR
.AS "Uther2.ai"
.DA #0
IFACE.List .CS "Uthernet\r"
.CS "LanCeGS\r"
.CS "Uthernet2\r"
.CS "Dan2Eth\r"
.CS "UdEth\r"
.CZ "UdEth.D (DMA)"
*--------------------------------------
AUTOIP.Label .AZ "Auto or Manual IP"
AUTOIP.List .AS "Auto/DHCP"
.DA #C.CR
.AZ "Manual/Static"
.DA #0
AUTOIP.List .CS "Auto/DHCP\r"
.CZ "Manual/Static"
*--------------------------------------
PROTO.Label .AZ "Protocol"
LIBTCPIP.Label .AZ "TCP/IP"
LIBETALK.Label .AZ "Ethertalk"
*--------------------------------------
SERV.Label .AZ "Services"
TELNET.Label .AZ "telnetd"
HTTPD.Label .AZ "httpd"
BBSD.Label .AZ "bbsd"
*--------------------------------------
MANUAL.Label .AZ "MANUAL SETTINGS (Ignored for Auto/DHCP)"
MANUAL.Label .AZ "MANUAL IP SETTINGS (Ignored for Auto/DHCP)"
IPADDR.Label .AZ "address "
IPADDR.Text .BS 15
MASK.Label .AZ "netmask "
MASK.Text .BS 16
GATEWAY.Label .AZ "gateway "
GATEWAY.Text .BS 16
NS1.Label .AZ "nameserver "
NS1.Text .BS 16
NS2.Label .AZ "nameserver 2"
NS2.Text .BS 16
DOM.Label .AZ "dnsdomain "
DOM.Text .BS 65
*--------------------------------------
BUTS.Label .AZ "(^S)ave..."
BUTQ.Label .AZ "(^Q)uit"
@ -880,30 +954,45 @@ DLGS.Label .AZ "Create NETSTART script in user home directory"
BUT.OK .AZ " OK "
BUT.Cancel .AZ "Cancel"
*--------------------------------------
CRLF .CZ "\r\n"
NS.Hdr .CZ "#!/bin/sh\r\n"
NS.Uth .CZ "insdrv uthernet.drv 00:0E:3A:12:34:56\r\n"
NS.Lanc .CZ "insdrv lancegs.drv 00:0E:3A:12:34:56\r\n"
NS.U2 .CZ "insdrv uthernet2.drv 00:08:DC:12:34:56\r\n"
NS.U2ai .CZ "insdrv uther2.ai.drv 00:08:DC:12:34:56\r\n"
NS.networkd .CZ "NOHUP networkd libtcpip &\r\n"
NS.telnetd .CZ "NOHUP telnetd 6502 &\r\n"
NS.httpd .CZ "NOHUP httpd &\r\n"
NS.bbsd .CZ "NOHUP bbsd &\r\n"
*NS.debug .AZ "var=%d "
EOL .CZ "\r"
NS.Hdr .CZ "#!/bin/sh\r"
NS.Uth .CZ "insdrv uthernet.drv 00:0E:3A:12:34:56\r"
NS.Lanc .CZ "insdrv lancegs.drv 00:0E:3A:12:34:56\r"
NS.U2 .CZ "insdrv uthernet2.drv 00:08:DC:12:34:56\r"
NS.Dan2Eth .CZ "insdrv dan2eth.drv 00:08:DC:12:34:56\r"
NS.Udeth .CZ "insdrv udeth.drv 00:08:DC:12:34:56\r"
NS.Udeth.D .CZ "insdrv udeth.d.drv 00:08:DC:12:34:56\r"
NS.networkd .CZ "NOHUP networkd "
NS.libtcpip .CZ "libtcpip "
NS.libetalk .CZ "libetalk "
NS.amper .CZ "&\r"
NS.telnetd .CZ "NOHUP telnetd 6502 &\r"
NS.httpd .CZ "NOHUP httpd &\r"
NS.bbsd .CZ "NOHUP bbsd &\r"
*Str.debug .AZ "var = "
IP.Hash .AZ "#"
HOST.Hdr .CZ "# Put hostname here (max 15 characters)\r\n"
HOST.Hdr .CZ "# Put hostname here (max 15 characters)\r"
*--------------------------------------
.DUMMY
.OR 0
DS.START
SCRN.TitleBuf .BS 1
IFACE.Var .BS 1
AUTOIP.Var .BS 1
LIBTCPIP.Var .BS 1
LIBETALK.Var .BS 1
TELNET.Var .BS 1
HTTPD.Var .BS 1
BBSD.Var .BS 1
DLGS.VAR .BS 1
DLGS.Var .BS 1
HOST.Buf .BS 16
IPADDR.Buf .BS 16
MASK.Buf .BS 16
GATEWAY.Buf .BS 16
NS1.Buf .BS 16
NS2.Buf .BS 16
DOM.Buf .BS 16
SCRN.TitleBuf .BS 10
Overflow.Buf .BS 80
DS.END .ED
*--------------------------------------
MAN