mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-22 00:32:44 +00:00
Tidied code, standardised naming and added the protocol selection function
This commit is contained in:
John LeFebvre
parent
c83582a68a
commit
463723ce8f
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user