Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-05-28 12:41:34 +00:00
Code Issues Projects Releases Wiki Activity

LIBTUI : Added Show/Hide and FindActive API

Browse Source 
MAN & NETCONFIG updated
This commit is contained in:
burniouf 2024-01-20 14:13:22 +01:00
parent b07bdce5d3
commit f50fee89e4
16 changed files with 1348 additions and 1070 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

4
BIN/MAN.S.txt
View File

@ -190,11 +190,11 @@ CS.Scr.Init >LIBCALL hLIBTUI,LIBTUI.Init
>PUSHBI 0 Y1 >PUSHBI 0 Y1
>PUSHBI 80 W >PUSHBI 80 W
>PUSHBI 22 H >PUSHBI 22 H
>PUSHBI 0 F
lda hFileBuf lda hFileBuf
>SYSCALL GetMemPtr >SYSCALL GetMemPtr
>PUSHYA >PUSHYA
>PUSHW BufSize >PUSHW BufSize
>PUSHBI 0 F
>LIBCALL hLIBTUI,LIBTUI.NewTBox >LIBCALL hLIBTUI,LIBTUI.NewTBox
.99 bcs .9 .99 bcs .9
@ -347,7 +347,7 @@ hLIBTUI .BS 1
ENV.MANPATH .AZ "MANPATH" ENV.MANPATH .AZ "MANPATH"
FILE.INDEX .AZ "index" FILE.INDEX .AZ "index"
*-------------------------------------- *--------------------------------------
MSG.ScrTitle .CZ "A2osX-MAN - <Ctrl-Q>uit" MSG.ScrTitle .CZ "A2osX-MAN - UP/DOWN : Scroll, LEFT/RIGHT : Prev/Next link, <Ctrl-Q>uit"
*-------------------------------------- *--------------------------------------
MSG.USAGE .CS "Usage : MAN <manfile>[#htag]" MSG.USAGE .CS "Usage : MAN <manfile>[#htag]"
MSG.CRLF .CS "\r\n" MSG.CRLF .CS "\r\n"

532
BIN/NETCONFIG.S.txt
View File

@ -99,12 +99,14 @@ L.DLGS.Label .DA DLGS.Label
L.BUT.OK .DA BUT.OK L.BUT.OK .DA BUT.OK
L.BUT.Cancel .DA BUT.Cancel L.BUT.Cancel .DA BUT.Cancel
L.NS.Hdr .DA NS.Hdr L.NS.Hdr .DA NS.Hdr
L.NS.Uth .DA NS.Uth
L.NS.Lanc .DA NS.Lanc T.NICs .DA NS.Uth Table of 6 ptrs -> NIC lines
L.NS.U2 .DA NS.U2 .DA NS.Lanc
L.NS.Dan2Eth .DA NS.Dan2Eth .DA NS.U2
L.NS.Udeth .DA NS.Udeth .DA NS.Dan2Eth
L.NS.Udeth.D .DA NS.Udeth.D .DA NS.Udeth
.DA NS.Udeth.D
L.NS.networkd .DA NS.networkd L.NS.networkd .DA NS.networkd
L.NS.libtcpip .DA NS.libtcpip L.NS.libtcpip .DA NS.libtcpip
L.NS.libetalk .DA NS.libetalk L.NS.libetalk .DA NS.libetalk
@ -132,11 +134,12 @@ CS.INIT >LDYA L.LIBTUI
* clc * clc
CS.INIT.RTS rts CS.INIT.RTS rts
*-------------------------------------- *--------------------------------------
CS.RUN >LDYA 80 CS.RUN >LDYAI 80 !!! >LDYAI immediate value of 80, not >LDYA content of memory location 80
>SYSCALL GetMem >SYSCALL GetMem
* bcs CS.RUN.RTS bcs CS.INIT.RTS
>STYA ZPTmpPtr1 >STYA ZPTmpPtr1
stx hBuf1 stx hBuf1 !!! don't forget to free() it in CS.QUIT
jsr CS.HOSTR Read HOSTNAME file jsr CS.HOSTR Read HOSTNAME file
jsr CS.IPR Read TCPIP.CONF file jsr CS.IPR Read TCPIP.CONF file
@ -144,48 +147,65 @@ CS.RUN >LDYA 80
>LIBCALL hLIBTUI,LIBTUI.Init >LIBCALL hLIBTUI,LIBTUI.Init
bcs CS.RUN.RTS bcs CS.RUN.RTS
sta hCTX sta hCTX
jsr CS.SCRN.Init jsr CS.SCRN.Init
bcs CS.RUN.RTS bcs CS.RUN.RTS
jsr CS.HOST.INIT jsr CS.HOST.INIT
bcs CS.RUN.RTS bcs CS.RUN.RTS
jsr CS.IFACE.Init jsr CS.IFACE.Init
bcs CS.RUN.RTS bcs CS.RUN.RTS
jsr CS.AUTOIP.Init jsr CS.AUTOIP.Init
bcs CS.RUN.RTS bcs CS.RUN.RTS
jsr CS.PROTO.Init jsr CS.PROTO.Init
bcs CS.RUN.RTS bcs CS.RUN.RTS
jsr CS.SERV.Init jsr CS.SERV.Init
bcs CS.RUN.RTS bcs CS.RUN.RTS
jsr CS.IP.Init jsr CS.IP.Init
bcs CS.RUN.RTS bcs CS.RUN.RTS
jsr CS.BUT.Init jsr CS.BUT.Init
bcs CS.RUN.RTS bcs CS.RUN.RTS
jsr CS.SCRN.Draw Will Call SCRN.Draw jsr CS.SCRN.Draw Will Call SCRN.Draw
lda hItem1 lda hItem1
>LIBCALL hLIBTUI,LIBTUI.Activate >LIBCALL hLIBTUI,LIBTUI.Activate
*-------------------------------------- *--------------------------------------
CS.RUN.LOOP2 lda hSCRN CS.RUN.LOOP2 lda hSCRN
>LIBCALL hLIBTUI,LIBTUI.Exec >LIBCALL hLIBTUI,LIBTUI.Exec
bcs CS.RUN.RTS bcs CS.RUN.RTS
cmp #EV.RESIZE cmp #EV.RESIZE
bne .1 bne .1
jsr CS.SCRN.Draw jsr CS.SCRN.Draw
bcs CS.RUN.RTS bcs CS.RUN.RTS
bra CS.RUN.LOOP2 bra CS.RUN.LOOP2
.1 cmp #EV.SAVE .1 cmp #EV.SAVE
bne .2 bne .2
jsr CS.DLG.SAVE jsr CS.DLG.SAVE
bcc CS.RUN.LOOP2 bcc CS.RUN.LOOP2
.2 cmp #EV.QUIT .2 cmp #EV.QUIT
bne CS.RUN.LOOP2 bne CS.RUN.LOOP2
CS.RUN.QUIT lda hSCRN
lda hSCRN
>LIBCALL hLIBTUI,LIBTUI.Destroy >LIBCALL hLIBTUI,LIBTUI.Destroy
CS.RUN.QUIT2 lda hBuf1
>SYSCALL FreeMem *CS.RUN.QUIT2 lda hBuf1 !!! All done by CS.QUIT
lda hLIBTUI * >SYSCALL FreeMem
>SYSCALL UnloadLib * lda hLIBTUI
* >SYSCALL UnloadLib
lda #0 lda #0
sec sec
CS.RUN.RTS rts CS.RUN.RTS rts
@ -202,14 +222,18 @@ CS.HOSTR.Loop jsr CS.File.Read
beq CS.HOSTR.Loop beq CS.HOSTR.Loop
.1 >LEA.G HOST.Buf .1 >LEA.G HOST.Buf
>STYA ZPTmpPtr4 >STYA ZPTmpPtr4
ldy #0 Copy setting to var string ldy #0 Copy setting to var string
CS.HOSTR.Loop2 lda (ZPTmpPtr1),y CS.HOSTR.Loop2 lda (ZPTmpPtr1),y
cmp #0 * cmp #0 !!! not required
beq .2 beq .2
sta (ZPTmpPtr4),y sta (ZPTmpPtr4),y
iny iny
cpy #$0F cpy #$0F
bcc CS.HOSTR.Loop2 bcc CS.HOSTR.Loop2
.2 lda #0 .2 lda #0
sta (ZPTmpPtr4),y sta (ZPTmpPtr4),y
* clc * clc
@ -219,6 +243,7 @@ CS.IPR >LDYA L.TCPIP.CONF etc/tcpip.conf
JSR CS.File.OpenRD JSR CS.File.OpenRD
bcc CS.IPR.Loop bcc CS.IPR.Loop
rts rts
CS.IPR.Loop jsr CS.File.Read CS.IPR.Loop jsr CS.File.Read
bcs .8 bcs .8
.1 ldy #$ff .1 ldy #$ff
@ -265,7 +290,9 @@ CS.IPR.Loop jsr CS.File.Read
ply reset keyword len ply reset keyword len
lda (ZPTmpPtr2) lda (ZPTmpPtr2)
bne .4 bne .4
bra CS.IPR.Loop bra CS.IPR.Loop
.8 clc .8 clc
jmp CS.File.Close jmp CS.File.Close
@ -277,39 +304,57 @@ CS.IPR.Keyword lda ZPTmpPtr1+1 Move ptr to after keyword+space
adc ZPTmpPtr1 adc ZPTmpPtr1
sta ZPTmpPtr3 sta ZPTmpPtr3
bcc .81 bcc .81
inc ZPTmpPtr3+1 inc ZPTmpPtr3+1
.81 jmp (J.IP.Keywords,x) .81 jmp (J.IP.Keywords,x)
CS.IPR.addr >LEA.G IPADDR.Buf CS.IPR.addr >LEA.G IPADDR.Buf
>STYA ZPTmpPtr4 >STYA ZPTmpPtr4
CS.IPR.Copy ldy #0 Copy setting to correct var
CS.IPR.Copy.L lda (ZPTmpPtr3),y CS.IPR.Copy ldx #15 "255.255.255.255" + \0 = 16
CS.IPR.CopyX ldy #0 Copy setting to correct var
.1 lda (ZPTmpPtr3),y
beq .9 beq .9
sta (ZPTmpPtr4),y sta (ZPTmpPtr4),y
iny iny
cpy #$10 dex
bcc CS.IPR.Copy.L bne .1
.9 lda #0 .9 lda #0
sta (ZPTmpPtr4),y sta (ZPTmpPtr4),y
clc clc
rts rts
CS.IPR.mask >LEA.G MASK.Buf CS.IPR.mask >LEA.G MASK.Buf
>STYA ZPTmpPtr4 >STYA ZPTmpPtr4
jmp CS.IPR.Copy jmp CS.IPR.Copy
CS.IPR.gway >LEA.G GATEWAY.Buf CS.IPR.gway >LEA.G GATEWAY.Buf
>STYA ZPTmpPtr4 >STYA ZPTmpPtr4
jmp CS.IPR.Copy jmp CS.IPR.Copy
CS.IPR.ns1 >LEA.G NS1.Buf CS.IPR.ns1 >LEA.G NS1.Buf
>STYA ZPTmpPtr4 >STYA ZPTmpPtr4
lda (ZPTmpPtr4) lda (ZPTmpPtr4)
bne CS.IPR.ns2 NS1 already populated bne CS.IPR.ns2 NS1 already populated
jmp CS.IPR.Copy jmp CS.IPR.Copy
CS.IPR.ns2 >LEA.G NS2.Buf CS.IPR.ns2 >LEA.G NS2.Buf
>STYA ZPTmpPtr4 >STYA ZPTmpPtr4
jmp CS.IPR.Copy jmp CS.IPR.Copy
CS.IPR.dom >LEA.G DOM.Buf CS.IPR.dom >LEA.G DOM.Buf
>STYA ZPTmpPtr4 >STYA ZPTmpPtr4
jsr CS.IPR.Copy
ldx #31 !!! max 32 for domain name
jsr CS.IPR.CopyX
sec last one so sec sec last one so sec
rts rts
*-------------------------------------- *--------------------------------------
@ -320,7 +365,9 @@ CS.File.OpenRD stz hFile
>PUSHWZ Aux type >PUSHWZ Aux type
>SYSCALL FOpen >SYSCALL FOpen
bcs .9 bcs .9
sta hFile sta hFile
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.File.Read >PUSHB hFile CS.File.Read >PUSHB hFile
@ -328,9 +375,12 @@ CS.File.Read >PUSHB hFile
>PUSHWI 80 >PUSHWI 80
>SYSCALL FGetS >SYSCALL FGetS
bcs .9 bcs .9
lda (ZPTmpPtr1) lda (ZPTmpPtr1)
beq CS.File.Read beq CS.File.Read
clc
* clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.File.OpenWR >PUSHYA CS.File.OpenWR >PUSHYA
@ -342,8 +392,10 @@ CS.File.OpenWR >PUSHYA
sta hFile sta hFile
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.File.Write >PUSHB hFile CS.File.FPutSYA pha
>PUSHW ZPTmpPtr1 >PUSHB hFile
pla
>PUSHYA
>SYSCALL FPutS >SYSCALL FPutS
rts rts
*-------------------------------------- *--------------------------------------
@ -360,29 +412,36 @@ CS.SCRN.Init >PUSHB hCTX hParent
>PUSHBI S.OBJ.F.bTitle+S.OBJ.F.bStatus >PUSHBI S.OBJ.F.bTitle+S.OBJ.F.bStatus
>LIBCALL hLIBTUI,LIBTUI.NewScrn >LIBCALL hLIBTUI,LIBTUI.NewScrn
bcs .9 bcs .9
sta hSCRN sta hSCRN
>PUSHA >PUSHA
>PUSHBI S.OBJ.pTITLE >PUSHBI S.OBJ.pTITLE
>PUSHEA.G SCRN.TitleBuf >PUSHEA.G SCRN.TitleBuf
>LIBCALL hLIBTUI,LIBTUI.SetProp >LIBCALL hLIBTUI,LIBTUI.SetProp
>PUSHB hSCRN >PUSHB hSCRN
>PUSHBI S.OBJ.pSTATUS >PUSHBI S.OBJ.pSTATUS
>PUSHW L.SCRN.Status >PUSHW L.SCRN.Status
>LIBCALL hLIBTUI,LIBTUI.SetProp >LIBCALL hLIBTUI,LIBTUI.SetProp
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.HOST.INIT >PUSHB hSCRN hParent CS.HOST.INIT >PUSHB hSCRN hParent
>PUSHBI SCR.X1 >PUSHBI SCR.X1
>PUSHBI SCR.Y1 >PUSHBI SCR.Y1
>PUSHW L.HOST.Label >PUSHW L.HOST.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
bcs .9 bcs .9
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X1+9 >PUSHBI SCR.X1+9
>PUSHBI SCR.Y1 >PUSHBI SCR.Y1
>PUSHBI 18 W >PUSHBI 18 W
>PUSHEA.G HOST.Buf >PUSHEA.G HOST.Buf
>PUSHWI 15 Len >PUSHWI 15 Len
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewTLine >LIBCALL hLIBTUI,LIBTUI.NewTLine
sta hItem1 sta hItem1
.9 rts .9 rts
@ -391,31 +450,43 @@ CS.IFACE.Init >PUSHB hSCRN hParent
>PUSHBI SCR.X1 >PUSHBI SCR.X1
>PUSHBI SCR.Y1+2 >PUSHBI SCR.Y1+2
>PUSHW L.IFACE.Label >PUSHW L.IFACE.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
bcs .9 bcs .9
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X1 >PUSHBI SCR.X1
>PUSHBI SCR.Y1+3 >PUSHBI SCR.Y1+3
>PUSHBI 0 HK
>PUSHBI 0 EV >PUSHWZ
* >PUSHBI 0 HK
* >PUSHBI 0 EV
>PUSHW L.IFACE.List >PUSHW L.IFACE.List
>PUSHEA.G IFACE.Var >PUSHEA.G IFACE.Var
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewRadio >LIBCALL hLIBTUI,LIBTUI.NewRadio
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.AUTOIP.Init >PUSHB hSCRN hParent CS.AUTOIP.Init >PUSHB hSCRN hParent
>PUSHBI SCR.X2 >PUSHBI SCR.X2
>PUSHBI SCR.Y1+2 >PUSHBI SCR.Y1+2
>PUSHW L.AUTOIP.Label >PUSHW L.AUTOIP.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
bcs .9 bcs .9
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X2 >PUSHBI SCR.X2
>PUSHBI SCR.Y1+3 >PUSHBI SCR.Y1+3
>PUSHBI 0 HK
>PUSHBI 0 EV >PUSHWZ
* >PUSHBI 0 HK
* >PUSHBI 0 EV
>PUSHW L.AUTOIP.List >PUSHW L.AUTOIP.List
>PUSHEA.G AUTOIP.Var >PUSHEA.G AUTOIP.Var
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewRadio >LIBCALL hLIBTUI,LIBTUI.NewRadio
.9 rts .9 rts
@ -423,24 +494,34 @@ CS.PROTO.Init >PUSHB hSCRN hParent
>PUSHBI SCR.X2 >PUSHBI SCR.X2
>PUSHBI SCR.Y1+6 >PUSHBI SCR.Y1+6
>PUSHW L.PROTO.Label >PUSHW L.PROTO.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
bcs .1 bcs .1
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X2 >PUSHBI SCR.X2
>PUSHBI SCR.Y1+7 >PUSHBI SCR.Y1+7
>PUSHBI 0 HK
>PUSHBI 0 EV >PUSHWZ
* >PUSHBI 0 HK
* >PUSHBI 0 EV
>PUSHW L.LIBTCPIP.Label >PUSHW L.LIBTCPIP.Label
>PUSHEA.G LIBTCPIP.Var >PUSHEA.G LIBTCPIP.Var
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewCBox >LIBCALL hLIBTUI,LIBTUI.NewCBox
.1 bcs .9 .1 bcs .9
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X2 >PUSHBI SCR.X2
>PUSHBI SCR.Y1+8 >PUSHBI SCR.Y1+8
>PUSHBI 0 HK
>PUSHBI 0 EV >PUSHWZ
* >PUSHBI 0 HK
* >PUSHBI 0 EV
>PUSHW L.LIBETALK.Label >PUSHW L.LIBETALK.Label
>PUSHEA.G LIBETALK.Var >PUSHEA.G LIBETALK.Var
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewCBox >LIBCALL hLIBTUI,LIBTUI.NewCBox
.9 rts .9 rts
@ -448,36 +529,51 @@ CS.SERV.Init >PUSHB hSCRN hParent
>PUSHBI SCR.X3 >PUSHBI SCR.X3
>PUSHBI SCR.Y1+2 >PUSHBI SCR.Y1+2
>PUSHW L.SERV.Label >PUSHW L.SERV.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
bcc .1 bcc .1
rts rts
.1 >PUSHB hSCRN hParent .1 >PUSHB hSCRN hParent
>PUSHBI SCR.X3 >PUSHBI SCR.X3
>PUSHBI SCR.Y1+3 >PUSHBI SCR.Y1+3
>PUSHBI 0
>PUSHBI 0 >PUSHWZ
* >PUSHBI 0 HK
* >PUSHBI 0 EV
>PUSHW L.TELNET.Label >PUSHW L.TELNET.Label
>PUSHEA.G TELNET.Var >PUSHEA.G TELNET.Var
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewCBox >LIBCALL hLIBTUI,LIBTUI.NewCBox
bcc .2 bcc .2
rts rts
.2 >PUSHB hSCRN hParent .2 >PUSHB hSCRN hParent
>PUSHBI SCR.X3 >PUSHBI SCR.X3
>PUSHBI SCR.Y1+4 >PUSHBI SCR.Y1+4
>PUSHBI 0
>PUSHBI 0 >PUSHWZ
* >PUSHBI 0 HK
* >PUSHBI 0 EV
>PUSHW L.HTTPD.Label >PUSHW L.HTTPD.Label
>PUSHEA.G HTTPD.Var >PUSHEA.G HTTPD.Var
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewCBox >LIBCALL hLIBTUI,LIBTUI.NewCBox
bcc .3 bcc .3
rts rts
.3 >PUSHB hSCRN hParent .3 >PUSHB hSCRN hParent
>PUSHBI SCR.X3 >PUSHBI SCR.X3
>PUSHBI SCR.Y1+5 >PUSHBI SCR.Y1+5
>PUSHBI 0
>PUSHBI 0 >PUSHWZ
* >PUSHBI 0 HK
* >PUSHBI 0 EV
>PUSHW L.BBSD.Label >PUSHW L.BBSD.Label
>PUSHEA.G BBSD.Var >PUSHEA.G BBSD.Var
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewCBox >LIBCALL hLIBTUI,LIBTUI.NewCBox
rts rts
@ -485,84 +581,103 @@ CS.IP.Init >PUSHB hSCRN hParent
>PUSHBI SCR.X1 >PUSHBI SCR.X1
>PUSHBI SCR.Y2 >PUSHBI SCR.Y2
>PUSHW L.MANUAL.Label >PUSHW L.MANUAL.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X1 >PUSHBI SCR.X1
>PUSHBI SCR.Y2+2 >PUSHBI SCR.Y2+2
>PUSHW L.IPADDR.Label >PUSHW L.IPADDR.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X1 >PUSHBI SCR.X1
>PUSHBI SCR.Y2+3 >PUSHBI SCR.Y2+3
>PUSHBI 18 W >PUSHBI 18 W
>PUSHEA.G IPADDR.Buf >PUSHEA.G IPADDR.Buf
>PUSHWI 15 Len >PUSHWI 15 Len
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewTLine >LIBCALL hLIBTUI,LIBTUI.NewTLine
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X2 >PUSHBI SCR.X2
>PUSHBI SCR.Y2+2 >PUSHBI SCR.Y2+2
>PUSHW L.MASK.Label >PUSHW L.MASK.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X2 >PUSHBI SCR.X2
>PUSHBI SCR.Y2+3 >PUSHBI SCR.Y2+3
>PUSHBI 18 W >PUSHBI 18 W
>PUSHEA.G MASK.Buf >PUSHEA.G MASK.Buf
>PUSHWI 15 Len >PUSHWI 15 Len
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewTLine >LIBCALL hLIBTUI,LIBTUI.NewTLine
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X3 >PUSHBI SCR.X3
>PUSHBI SCR.Y2+2 >PUSHBI SCR.Y2+2
>PUSHW L.GATEWAY.Label >PUSHW L.GATEWAY.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X3 >PUSHBI SCR.X3
>PUSHBI SCR.Y2+3 >PUSHBI SCR.Y2+3
>PUSHBI 18 W >PUSHBI 18 W
>PUSHEA.G GATEWAY.Buf >PUSHEA.G GATEWAY.Buf
>PUSHWI 15 Len >PUSHWI 15 Len
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewTLine >LIBCALL hLIBTUI,LIBTUI.NewTLine
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X1 >PUSHBI SCR.X1
>PUSHBI SCR.Y2+5 >PUSHBI SCR.Y2+5
>PUSHW L.NS1.Label >PUSHW L.NS1.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X1 >PUSHBI SCR.X1
>PUSHBI SCR.Y2+6 >PUSHBI SCR.Y2+6
>PUSHBI 18 W >PUSHBI 18 W
>PUSHEA.G NS1.Buf >PUSHEA.G NS1.Buf
>PUSHWI 15 Len >PUSHWI 15 Len
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewTLine >LIBCALL hLIBTUI,LIBTUI.NewTLine
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X2 >PUSHBI SCR.X2
>PUSHBI SCR.Y2+5 >PUSHBI SCR.Y2+5
>PUSHW L.NS2.Label >PUSHW L.NS2.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X2 >PUSHBI SCR.X2
>PUSHBI SCR.Y2+6 >PUSHBI SCR.Y2+6
>PUSHBI 18 W >PUSHBI 18 W
>PUSHEA.G NS2.Buf >PUSHEA.G NS2.Buf
>PUSHWI 15 Len >PUSHWI 15 Len
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewTLine >LIBCALL hLIBTUI,LIBTUI.NewTLine
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X3 >PUSHBI SCR.X3
>PUSHBI SCR.Y2+5 >PUSHBI SCR.Y2+5
>PUSHW L.DOM.Label >PUSHW L.DOM.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
>PUSHB hSCRN hParent >PUSHB hSCRN hParent
>PUSHBI SCR.X3 >PUSHBI SCR.X3
>PUSHBI SCR.Y2+6 >PUSHBI SCR.Y2+6
>PUSHBI 25 W >PUSHBI 25 W
>PUSHEA.G DOM.Buf >PUSHEA.G DOM.Buf
>PUSHWI 65 Len >PUSHWI 65 Len
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewTLine >LIBCALL hLIBTUI,LIBTUI.NewTLine
rts rts
*-------------------------------------- *--------------------------------------
@ -572,6 +687,7 @@ CS.BUT.Init >PUSHB hSCRN hParent
>PUSHBI 19 Ctrl-S >PUSHBI 19 Ctrl-S
>PUSHBI EV.SAVE >PUSHBI EV.SAVE
>PUSHW L.BUTS.Label >PUSHW L.BUTS.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewBut >LIBCALL hLIBTUI,LIBTUI.NewBut
bcs .9 bcs .9
@ -581,6 +697,7 @@ CS.BUT.Init >PUSHB hSCRN hParent
>PUSHBI 17 Ctrl-Q >PUSHBI 17 Ctrl-Q
>PUSHBI EV.QUIT >PUSHBI EV.QUIT
>PUSHW L.BUTQ.Label >PUSHW L.BUTQ.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewBut >LIBCALL hLIBTUI,LIBTUI.NewBut
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
@ -590,20 +707,27 @@ CS.DLG.SAVE >PUSHB hCTX hParent
>PUSHW L.DLGS.Title >PUSHW L.DLGS.Title
>LIBCALL hLIBTUI,LIBTUI.NewDlg >LIBCALL hLIBTUI,LIBTUI.NewDlg
bcs .9 bcs .9
sta hDLGS sta hDLGS
>PUSHB hDLGS hParent >PUSHB hDLGS hParent
>PUSHBI 2 X1 >PUSHBI 2 X1
>PUSHBI 2 Y1 >PUSHBI 2 Y1
>PUSHW L.DLGS.Text >PUSHW L.DLGS.Text
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
bcs .9 bcs .9
>PUSHB hDLGS hParent >PUSHB hDLGS hParent
>PUSHBI 2 >PUSHBI 2
>PUSHBI 4 Y1 >PUSHBI 4 Y1
>PUSHBI 0
>PUSHBI 0 * >PUSHBI 0
* >PUSHBI 0
>PUSHWZ HotKey, EV
>PUSHW L.DLGS.Label >PUSHW L.DLGS.Label
>PUSHEA.G DLGS.Var >PUSHEA.G DLGS.Var
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewCBox >LIBCALL hLIBTUI,LIBTUI.NewCBox
bcc CS.DLG.SAVE2 bcc CS.DLG.SAVE2
.9 rts .9 rts
@ -614,16 +738,21 @@ CS.DLG.SAVE2 sta hDLGitem
>PUSHBI C.CR Hotkey ENTER >PUSHBI C.CR Hotkey ENTER
>PUSHBI EV.OK >PUSHBI EV.OK
>PUSHW L.BUT.OK >PUSHW L.BUT.OK
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewBut >LIBCALL hLIBTUI,LIBTUI.NewBut
bcs .8 bcs .8
>PUSHB hDLGS hParent >PUSHB hDLGS hParent
>PUSHBI 57 X1 >PUSHBI 57 X1
>PUSHBI 7 Y1 >PUSHBI 7 Y1
>PUSHBI 3 Hotkey Ctrl-C >PUSHBI 3 Hotkey Ctrl-C
>PUSHBI EV.CANCEL >PUSHBI EV.CANCEL
>PUSHW L.BUT.Cancel >PUSHW L.BUT.Cancel
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewBut >LIBCALL hLIBTUI,LIBTUI.NewBut
bcs .8 bcs .8
lda hDLGS lda hDLGS
>LIBCALL hLIBTUI,LIBTUI.Draw >LIBCALL hLIBTUI,LIBTUI.Draw
bcc .9 bcc .9
@ -663,214 +792,207 @@ CS.HOSTW >LDYA L.HOSTNAME
jsr CS.File.OpenWR jsr CS.File.OpenWR
bcc .1 bcc .1
rts rts
.1 >PUSHB hFile .1 >LDYA L.HOST.Hdr
>PUSHW L.HOST.Hdr jsr CS.File.FPutSYA
>SYSCALL FPutS
>PUSHB hFile >LEA.G HOST.Buf
>PUSHEA.G HOST.Buf jsr CS.File.FPutSYA
>SYSCALL FPutS
>PUSHB hFile >LDYA L.EOL
>PUSHW L.EOL jsr CS.File.FPutSYA
>SYSCALL FPutS
jmp CS.File.Close jmp CS.File.Close
*-------------------------------------- *--------------------------------------
CS.IPW >LDYA L.TCPIP.CONF CS.IPW >LDYA L.TCPIP.CONF
jsr CS.File.OpenWR jsr CS.File.OpenWR
bcc .1 bcc .1
rts rts
.1 >LDA.G AUTOIP.Var .1 >LDA.G AUTOIP.Var
bne CS.IPW.addr bne CS.IPW.addr
>PUSHB hFile
>PUSHW L.IP.Hash >LDYA L.IP.Hash
>SYSCALL FPutS jsr CS.File.FPutSYA
CS.IPW.addr >PUSHB hFile
>PUSHW L.IPADDR.Label CS.IPW.addr >LDYA L.IPADDR.Label
>SYSCALL FPutS jsr CS.File.FPutSYA
>PUSHB hFile
>PUSHEA.G IPADDR.Buf >LEA.G IPADDR.Buf
>SYSCALL FPutS jsr CS.File.FPutSYA
>PUSHB hFile
>PUSHW L.EOL >LDYA L.EOL
>SYSCALL FPutS jsr CS.File.FPutSYA
>LDA.G AUTOIP.Var >LDA.G AUTOIP.Var
bne CS.IPW.mask bne CS.IPW.mask
>PUSHB hFile
>PUSHW L.IP.Hash >LDYA L.IP.Hash
>SYSCALL FPutS jsr CS.File.FPutSYA
CS.IPW.mask >PUSHB hFile
>PUSHW L.MASK.Label CS.IPW.mask >LDYA L.MASK.Label
>SYSCALL FPutS jsr CS.File.FPutSYA
>PUSHB hFile
>PUSHEA.G MASK.Buf >LEA.G MASK.Buf
>SYSCALL FPutS jsr CS.File.FPutSYA
>PUSHB hFile
>PUSHW L.EOL >LDYA L.EOL
>SYSCALL FPutS jsr CS.File.FPutSYA
>LDA.G AUTOIP.Var >LDA.G AUTOIP.Var
bne CS.IPW.gway bne CS.IPW.gway
>PUSHB hFile
>PUSHW L.IP.Hash >LDYA L.IP.Hash
>SYSCALL FPutS jsr CS.File.FPutSYA
CS.IPW.gway >PUSHB hFile
>PUSHW L.GATEWAY.Label CS.IPW.gway >LDYA L.GATEWAY.Label
>SYSCALL FPutS jsr CS.File.FPutSYA
>PUSHB hFile
>PUSHEA.G GATEWAY.Buf >LEA.G GATEWAY.Buf
>SYSCALL FPutS jsr CS.File.FPutSYA
>PUSHB hFile
>PUSHW L.EOL >LDYA L.EOL
>SYSCALL FPutS jsr CS.File.FPutSYA
>LDA.G AUTOIP.Var >LDA.G AUTOIP.Var
bne CS.IPW.ns1 bne CS.IPW.ns1
>PUSHB hFile
>PUSHW L.IP.Hash >LDYA L.IP.Hash
>SYSCALL FPutS jsr CS.File.FPutSYA
CS.IPW.ns1 >PUSHB hFile
>PUSHW L.NS1.Label CS.IPW.ns1 >LDYA L.NS1.Label
>SYSCALL FPutS jsr CS.File.FPutSYA
>PUSHB hFile
>PUSHEA.G NS1.Buf >LEA.G NS1.Buf
>SYSCALL FPutS jsr CS.File.FPutSYA
>PUSHB hFile
>PUSHW L.EOL >LDYA L.EOL
>SYSCALL FPutS jsr CS.File.FPutSYA
>LDA.G AUTOIP.Var >LDA.G AUTOIP.Var
bne CS.IPW.ns2 bne CS.IPW.ns2
>PUSHB hFile
>PUSHW L.IP.Hash >LDYA L.IP.Hash
>SYSCALL FPutS jsr CS.File.FPutSYA
CS.IPW.ns2 >PUSHB hFile
>PUSHW L.NS1.Label Must use NS1 label again CS.IPW.ns2 >LDYA L.NS1.Label Must use NS1 label again
>SYSCALL FPutS jsr CS.File.FPutSYA
>PUSHB hFile
>PUSHEA.G NS2.Buf >LEA.G NS2.Buf
>SYSCALL FPutS jsr CS.File.FPutSYA
>PUSHB hFile
>PUSHW L.EOL >LDYA L.EOL
>SYSCALL FPutS jsr CS.File.FPutSYA
>LDA.G AUTOIP.Var >LDA.G AUTOIP.Var
bne CS.IPW.dom bne CS.IPW.dom
>PUSHB hFile
>PUSHW L.IP.Hash >LDYA L.IP.Hash
>SYSCALL FPutS jsr CS.File.FPutSYA
CS.IPW.dom >PUSHB hFile
>PUSHW L.DOM.Label CS.IPW.dom >LDYA L.DOM.Label
>SYSCALL FPutS jsr CS.File.FPutSYA
>PUSHB hFile
>PUSHEA.G DOM.Buf >LEA.G DOM.Buf
>SYSCALL FPutS jsr CS.File.FPutSYA
>PUSHB hFile
>PUSHW L.EOL >LDYA L.EOL
>SYSCALL FPutS jsr CS.File.FPutSYA
jmp CS.File.Close jmp CS.File.Close
*-------------------------------------- *--------------------------------------
CS.SHW >LDYA L.Netstart Write network startup shell script CS.SHW >LDYA L.Netstart Write network startup shell script
jsr CS.File.OpenWR jsr CS.File.OpenWR
bcc .0 bcc .0
rts
.0 >PUSHB hFile
>PUSHW L.NS.Hdr
>SYSCALL FPutS
>LDA.G IFACE.var
cmp #0
bne .1
>PUSHB hFile
>PUSHW L.NS.Uth
>SYSCALL FPutS
bra .3
.1 cmp #1
bne .2
>PUSHB hFile
>PUSHW L.NS.Lanc
>SYSCALL FPutS
bra .3
.2 cmp #2
bne .4
>PUSHB hFile
>PUSHW L.NS.U2
>SYSCALL FPutS
.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.UdEth.D
>SYSCALL FPutS
CS.SHW.netd >PUSHB hFile rts
>PUSHW L.NS.networkd
>SYSCALL FPutS .0 >LDYA L.NS.Hdr
jsr CS.File.FPutSYA
>LDA.G IFACE.var range = 0..5
asl
tax X = 0..10
>LDYA T.NICs,x
jsr CS.File.FPutSYA
CS.SHW.netd >LDYA L.NS.networkd
jsr CS.File.FPutSYA
>LDA.G LIBTCPIP.Var >LDA.G LIBTCPIP.Var
beq CS.SHW.etalk beq CS.SHW.etalk
>PUSHB hFile
>PUSHW L.NS.libtcpip >LDYA L.NS.libtcpip
>SYSCALL FPutS jsr CS.File.FPutSYA
CS.SHW.etalk >LDA.G LIBETALK.Var CS.SHW.etalk >LDA.G LIBETALK.Var
beq CS.SHW.amper beq CS.SHW.amper
>PUSHB hFile
>PUSHW L.NS.libetalk >LDYA L.NS.libetalk
>SYSCALL FPutS jsr CS.File.FPutSYA
cs.SHW.amper >PUSHB hFile
>PUSHW L.NS.amper cs.SHW.amper >LDYA L.NS.amper
>SYSCALL FPutS jsr CS.File.FPutSYA
>LDA.G TELNET.Var >LDA.G TELNET.Var
beq CS.SHW.httpd beq CS.SHW.httpd
>PUSHB hFile
>PUSHW L.NS.telnetd >LDYA L.NS.telnetd
>SYSCALL FPutS jsr CS.File.FPutSYA
CS.SHW.httpd >LDA.G HTTPD.Var CS.SHW.httpd >LDA.G HTTPD.Var
beq CS.SHW.bbsd beq CS.SHW.bbsd
>PUSHB hFile
>PUSHW L.NS.httpd >LDYA L.NS.httpd
>SYSCALL FPutS jsr CS.File.FPutSYA
CS.SHW.bbsd >LDA.G BBSD.Var CS.SHW.bbsd >LDA.G BBSD.Var
beq CS.SHW.close beq CS.SHW.close
>PUSHB hFile
>PUSHW L.NS.bbsd >LDYA L.NS.bbsd
>SYSCALL FPutS jsr CS.File.FPutSYA
CS.SHW.close jmp CS.File.Close CS.SHW.close jmp CS.File.Close
*.9 rts *.9 rts
*-------------------------------------- *--------------------------------------
CS.NETW >LDYA L.NETWORK Write network startup system script CS.NETW >LDYA L.NETWORK Write network startup system script
jsr CS.File.OpenWR jsr CS.File.OpenWR
bcc .0 bcc .0
rts rts
.0 >LDA.G LIBTCPIP.Var .0 >LDA.G LIBTCPIP.Var
bpl CS.NETW.etalk bpl CS.NETW.etalk
>PUSHB hFile
>PUSHW L.NETWORKIP >LDYA L.NETWORKIP
>SYSCALL FPutS jsr CS.File.FPutSYA
CS.NETW.etalk >LDA.G LIBETALK.Var CS.NETW.etalk >LDA.G LIBETALK.Var
bpl .9 bpl .9
>PUSHB hFile
>PUSHW L.NETWORKET
>SYSCALL FPutS
.9 jmp CS.File.Close
>LDYA L.NETWORKET
jsr CS.File.FPutSYA
.9 jmp CS.File.Close
*-------------------------------------- *--------------------------------------
CS.DOEVENT sec do not discard TIMER event CS.DOEVENT sec do not discard TIMER event
rts rts
*-------------------------------------- *--------------------------------------
CS.QUIT >LDA.G hBuf1 CS.QUIT lda hBuf1 !!! ZP, ....
* >LDA.G hBuf1 !!! ...not in DS
beq .1 beq .1
>SYSCALL FreeMem >SYSCALL FreeMem
.1 lda hCTX .1 lda hCTX
beq .2 beq .2
>LIBCALL hLIBTUI,LIBTUI.Close >LIBCALL hLIBTUI,LIBTUI.Close
.2 lda hLIBTUI .2 lda hLIBTUI
beq .8 beq .8
>SYSCALL UnloadLib >SYSCALL UnloadLib
.8 clc .8 clc
rts rts
*-------------------------------------- *--------------------------------------
@ -878,14 +1000,19 @@ CS.SCRN.Draw lda hSCRN
>SYSCALL GetMemPtr >SYSCALL GetMemPtr
>STYA ZPPtr1 >STYA ZPPtr1
>PUSHEA.G SCRN.TitleBuf >PUSHEA.G SCRN.TitleBuf
>PUSHW L.SCRN.Title >PUSHW L.SCRN.Title !!! NO %d....
ldy #S.OBJ.X1
.1 lda (ZPPtr1),y * ldy #S.OBJ.X1
>PUSHA *.1 lda (ZPPtr1),y
iny * >PUSHA
cpy #S.OBJ.InnerH+1 * iny
bne .1 * cpy #S.OBJ.InnerH+1
>PUSHBI 10 * bne .1
* >PUSHBI 10 !!! .... so DATA byte count = 0
>PUSHBI 0
>SYSCALL sprintf >SYSCALL sprintf
lda hSCRN lda hSCRN
>LIBCALL hLIBTUI,LIBTUI.Draw >LIBCALL hLIBTUI,LIBTUI.Draw
@ -984,15 +1111,18 @@ TELNET.Var .BS 1
HTTPD.Var .BS 1 HTTPD.Var .BS 1
BBSD.Var .BS 1 BBSD.Var .BS 1
DLGS.Var .BS 1 DLGS.Var .BS 1
HOST.Buf .BS 16 HOST.Buf .BS 16
IPADDR.Buf .BS 16 IPADDR.Buf .BS 16
MASK.Buf .BS 16 MASK.Buf .BS 16
GATEWAY.Buf .BS 16 GATEWAY.Buf .BS 16
NS1.Buf .BS 16 NS1.Buf .BS 16
NS2.Buf .BS 16 NS2.Buf .BS 16
DOM.Buf .BS 16
SCRN.TitleBuf .BS 10 DOM.Buf .BS 32 !!! enough room for ending \0
Overflow.Buf .BS 80
SCRN.TitleBuf .BS 81 !!! maximum screen width + \0
DS.END .ED DS.END .ED
*-------------------------------------- *--------------------------------------
MAN MAN

116
BIN/TUITEST.S.txt
View File

@ -10,6 +10,7 @@ NEW
.INB inc/libtui.i .INB inc/libtui.i
*-------------------------------------- *--------------------------------------
EV.SAVE .EQ $C0 EV.SAVE .EQ $C0
EV.CHECKBOX .EQ $C1
EV.OK .EQ $CE EV.OK .EQ $CE
EV.CANCEL .EQ $CF EV.CANCEL .EQ $CF
*-------------------------------------- *--------------------------------------
@ -20,8 +21,11 @@ ZPPtr1 .BS 2
hCTX .BS 1 hCTX .BS 1
hSCRN .BS 1 hSCRN .BS 1
hTBOX1 .BS 1 hTBOX1 .BS 1
hDLGS .BS 1 hRADIO1 .BS 1
hDLGSAVE .BS 1
ZS.END .ED ZS.END .ED
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
@ -53,11 +57,11 @@ L.TBOX1.Status .DA TBOX1.Status
L.LBOX1.List .DA LBOX1.List L.LBOX1.List .DA LBOX1.List
L.LABEL.Label .DA LABEL.Label L.LABEL.Label .DA LABEL.Label
L.TLINE.Default .DA TLINE.Default L.TLINE.Default .DA TLINE.Default
L.RADIO1.List .DA RADIO1.List
L.CBOX1.Label .DA CBOX1.Label L.CBOX1.Label .DA CBOX1.Label
L.RADIO1.List .DA RADIO1.List
L.BUTQ.Label .DA BUTQ.Label L.BUTQ.Label .DA BUTQ.Label
L.BUTS.Label .DA BUTS.Label L.BUTS.Label .DA BUTS.Label
L.DLGS.Title .DA DLGS.Title L.DLGSAVE.Title .DA DLGSAVE.Title
L.BUT.OK .DA BUT.OK L.BUT.OK .DA BUT.OK
L.BUT.Cancel .DA BUT.Cancel L.BUT.Cancel .DA BUT.Cancel
.DA 0 .DA 0
@ -73,30 +77,30 @@ CS.INIT >LDYA L.LIBTUI
CS.INIT.RTS rts CS.INIT.RTS rts
*-------------------------------------- *--------------------------------------
CS.RUN >LIBCALL hLIBTUI,LIBTUI.Init CS.RUN >LIBCALL hLIBTUI,LIBTUI.Init
bcs CS.RUN.RTS bcs CS.INIT.RTS
sta hCTX sta hCTX
jsr CS.SCRN.Init jsr CS.SCRN.Init
bcs CS.RUN.RTS bcs CS.INIT.RTS
jsr CS.TBOX1.Init jsr CS.TBOX1.Init
bcs CS.RUN.RTS bcs CS.INIT.RTS
jsr CS.LBOX1.Init jsr CS.LBOX1.Init
bcs CS.RUN.RTS bcs CS.INIT.RTS
jsr CS.TLINE.Init jsr CS.TLINE1.Init
bcs CS.RUN.RTS bcs CS.INIT.RTS
jsr CS.RADIO.Init jsr CS.CBOX1.Init
bcs CS.RUN.RTS bcs CS.INIT.RTS
jsr CS.CBOX.Init jsr CS.RADIO1.Init
bcs CS.RUN.RTS bcs CS.INIT.RTS
jsr CS.BUT.Init jsr CS.BUT.Init
bcs CS.RUN.RTS bcs CS.INIT.RTS
jsr CS.SCRN.Draw Will Call SCRN.Draw jsr CS.SCRN.Draw Will Call SCRN.Draw
@ -121,7 +125,25 @@ CS.RUN.LOOP lda hSCRN
jsr CS.RUN.DLGSAVE jsr CS.RUN.DLGSAVE
bcc CS.RUN.LOOP bcc CS.RUN.LOOP
.2 cmp #EV.QUIT .2 cmp #EV.CHECKBOX
bne .8
>LDA.G CBOX1.Var
bne .20
lda hRADIO1
>LIBCALL hLIBTUI,LIBTUI.Hide
bcc CS.RUN.LOOP
rts
.20 lda hRADIO1
>LIBCALL hLIBTUI,LIBTUI.Show
bcc CS.RUN.LOOP
rts
.8 cmp #EV.QUIT
bne CS.RUN.LOOP bne CS.RUN.LOOP
lda hSCRN lda hSCRN
@ -168,11 +190,11 @@ CS.TBOX1.Init >LDYAI 1024
>PUSHBI 1 Y1 >PUSHBI 1 Y1
>PUSHBI 44 W >PUSHBI 44 W
>PUSHBI 20 H >PUSHBI 20 H
>PUSHBI S.OBJ.F.bHBorder+S.OBJ.F.bVBorder+S.OBJ.F.bTitle+S.OBJ.F.bStatus
>LDA.G TBOX1.hBuf >LDA.G TBOX1.hBuf
>SYSCALL GetMemPtr >SYSCALL GetMemPtr
>PUSHYA >PUSHYA
>PUSHWI 1024 >PUSHWI 1024
>PUSHBI S.OBJ.F.bHBorder+S.OBJ.F.bVBorder+S.OBJ.F.bTitle+S.OBJ.F.bStatus+S.OBJ.F.bEdit
>LIBCALL hLIBTUI,LIBTUI.NewTBox >LIBCALL hLIBTUI,LIBTUI.NewTBox
bcs .9 bcs .9
@ -195,16 +217,17 @@ CS.LBOX1.Init >PUSHB hSCRN hParent
>PUSHBI 1 Y1 >PUSHBI 1 Y1
>PUSHBI 20 W >PUSHBI 20 W
>PUSHBI 9 H >PUSHBI 9 H
>PUSHBI S.OBJ.F.bHBorder+S.OBJ.F.bVBorder
>PUSHW L.LBOX1.List >PUSHW L.LBOX1.List
>PUSHEA.G LBOX1.Var >PUSHEA.G LBOX1.Var
>PUSHBI S.OBJ.F.bHBorder+S.OBJ.F.bVBorder
>LIBCALL hLIBTUI,LIBTUI.NewLBox >LIBCALL hLIBTUI,LIBTUI.NewLBox
rts rts
*-------------------------------------- *--------------------------------------
CS.TLINE.Init >PUSHB hSCRN hParent CS.TLINE1.Init >PUSHB hSCRN hParent
>PUSHBI 50 X1 >PUSHBI 50 X1
>PUSHBI 11 Y1 >PUSHBI 11 Y1
>PUSHW L.LABEL.Label >PUSHW L.LABEL.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewLabel >LIBCALL hLIBTUI,LIBTUI.NewLabel
bcs .9 bcs .9
@ -214,6 +237,7 @@ CS.TLINE.Init >PUSHB hSCRN hParent
>PUSHBI 25 W >PUSHBI 25 W
>PUSHEA.G TLINE.Buf >PUSHEA.G TLINE.Buf
>PUSHWI 65 Len >PUSHWI 65 Len
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewTLine >LIBCALL hLIBTUI,LIBTUI.NewTLine
>PUSHEA.G TLINE.Buf >PUSHEA.G TLINE.Buf
@ -222,25 +246,33 @@ CS.TLINE.Init >PUSHB hSCRN hParent
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RADIO.Init >PUSHB hSCRN hParent CS.CBOX1.Init >PUSHB hSCRN hParent
>PUSHBI 50 X1 >PUSHBI 50 X1
>PUSHBI 14 Y1 >PUSHBI 14 Y1
>PUSHBI 0 >PUSHBI 0
>PUSHBI EV.CHECKBOX
>PUSHW L.CBOX1.Label
>PUSHEA.G CBOX1.Var
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewCBox
rts
*--------------------------------------
CS.RADIO1.Init >PUSHB hSCRN hParent
>PUSHBI 50 X1
>PUSHBI 16 Y1
>PUSHBI 0
>PUSHBI 0 >PUSHBI 0
>PUSHW L.RADIO1.List >PUSHW L.RADIO1.List
>PUSHEA.G RADIO1.Var >PUSHEA.G RADIO1.Var
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewRadio >LIBCALL hLIBTUI,LIBTUI.NewRadio
rts bcs .9
*--------------------------------------
CS.CBOX.Init >PUSHB hSCRN hParent sta hRADIO1
>PUSHBI 50 X1
>PUSHBI 18 Y1 >LIBCALL hLIBTUI,LIBTUI.Hide
>PUSHBI 0
>PUSHBI 0 .9 rts
>PUSHW L.CBOX1.Label
>PUSHEA.G CBOX1.Var
>LIBCALL hLIBTUI,LIBTUI.NewCBox
rts
*-------------------------------------- *--------------------------------------
CS.BUT.Init >PUSHB hSCRN hParent CS.BUT.Init >PUSHB hSCRN hParent
>PUSHBI 50 X1 >PUSHBI 50 X1
@ -248,6 +280,7 @@ CS.BUT.Init >PUSHB hSCRN hParent
>PUSHBI 19 Ctrl-S >PUSHBI 19 Ctrl-S
>PUSHBI EV.SAVE >PUSHBI EV.SAVE
>PUSHW L.BUTS.Label >PUSHW L.BUTS.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewBut >LIBCALL hLIBTUI,LIBTUI.NewBut
bcs .9 bcs .9
@ -257,6 +290,7 @@ CS.BUT.Init >PUSHB hSCRN hParent
>PUSHBI 17 Ctrl-Q >PUSHBI 17 Ctrl-Q
>PUSHBI EV.QUIT >PUSHBI EV.QUIT
>PUSHW L.BUTQ.Label >PUSHW L.BUTQ.Label
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewBut >LIBCALL hLIBTUI,LIBTUI.NewBut
.9 .9
CS.BUT.Init.RTS rts CS.BUT.Init.RTS rts
@ -264,45 +298,49 @@ CS.BUT.Init.RTS rts
CS.RUN.DLGSAVE >PUSHB hCTX hParent CS.RUN.DLGSAVE >PUSHB hCTX hParent
>PUSHBI 70 W >PUSHBI 70 W
>PUSHBI 11 H >PUSHBI 11 H
>PUSHW L.DLGS.Title >PUSHW L.DLGSAVE.Title
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewDlg >LIBCALL hLIBTUI,LIBTUI.NewDlg
bcs CS.BUT.Init.RTS bcs CS.BUT.Init.RTS
sta hDLGS sta hDLGSAVE
>PUSHB hDLGS hParent >PUSHA
* >PUSHB hDLGSAVE hParent
>PUSHBI 50 X1 >PUSHBI 50 X1
>PUSHBI 7 Y1 >PUSHBI 7 Y1
>PUSHBI C.CR >PUSHBI C.CR
>PUSHBI EV.OK >PUSHBI EV.OK
>PUSHW L.BUT.OK >PUSHW L.BUT.OK
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewBut >LIBCALL hLIBTUI,LIBTUI.NewBut
bcs .9 bcs .9
sta ZPPtr1 sta ZPPtr1
>PUSHB hDLGS hParent >PUSHB hDLGSAVE hParent
>PUSHBI 57 X1 >PUSHBI 57 X1
>PUSHBI 7 Y1 >PUSHBI 7 Y1
>PUSHBI 3 Ctrl-C >PUSHBI 3 Ctrl-C
>PUSHBI EV.CANCEL >PUSHBI EV.CANCEL
>PUSHW L.BUT.Cancel >PUSHW L.BUT.Cancel
>PUSHBI 0
>LIBCALL hLIBTUI,LIBTUI.NewBut >LIBCALL hLIBTUI,LIBTUI.NewBut
bcs .9 bcs .9
lda hDLGS lda hDLGSAVE
>LIBCALL hLIBTUI,LIBTUI.Draw >LIBCALL hLIBTUI,LIBTUI.Draw
bcs .9 bcs .9
lda ZPPtr1 lda ZPPtr1
>LIBCALL hLIBTUI,LIBTUI.Activate >LIBCALL hLIBTUI,LIBTUI.Activate
.1 lda hDLGS .1 lda hDLGSAVE
>LIBCALL hLIBTUI,LIBTUI.Exec >LIBCALL hLIBTUI,LIBTUI.Exec
.9 php .9 php
pha pha
lda hDLGS lda hDLGSAVE
>LIBCALL hLIBTUI,LIBTUI.Destroy >LIBCALL hLIBTUI,LIBTUI.Destroy
lda hSCRN lda hSCRN
@ -392,7 +430,7 @@ CBOX1.Label .AZ "Check Me"
*-------------------------------------- *--------------------------------------
BUTS.Label .AZ "(^S)ave..." BUTS.Label .AZ "(^S)ave..."
BUTQ.Label .AZ "(^Q)uit" BUTQ.Label .AZ "(^Q)uit"
DLGS.Title .AZ "Save As..." DLGSAVE.Title .AZ "Save As..."
BUT.OK .AZ " OK " BUT.OK .AZ " OK "
BUT.Cancel .AZ "Cancel" BUT.Cancel .AZ "Cancel"
*-------------------------------------- *--------------------------------------
@ -400,8 +438,8 @@ BUT.Cancel .AZ "Cancel"
.OR 0 .OR 0
DS.START DS.START
SCRN.TitleBuf .BS 80 SCRN.TitleBuf .BS 80
CBOX1.Var .BS 1
TLINE.Buf .BS 65 TLINE.Buf .BS 65
CBOX1.Var .BS 1
RADIO1.Var .BS 1 RADIO1.Var .BS 1
LBOX1.Var .BS 1 LBOX1.Var .BS 1
TBOX1.hBuf .BS 1 TBOX1.hBuf .BS 1

6
INC/LIBTUI.I.txt
View File

@ -20,6 +20,9 @@ LIBTUI.GetProp .EQ 34
LIBTUI.SetProp .EQ 36 LIBTUI.SetProp .EQ 36
LIBTUI.Activate .EQ 38 LIBTUI.Activate .EQ 38
LIBTUI.Deactivate .EQ 40 LIBTUI.Deactivate .EQ 40
LIBTUI.FindActive .EQ 42
LIBTUI.Show .EQ 44
LIBTUI.Hide .EQ 46
*-------------------------------------- *--------------------------------------
S.CTX.hSCRN .EQ 0 S.CTX.hSCRN .EQ 0
S.CTX.hClipBrd .EQ 1 S.CTX.hClipBrd .EQ 1
@ -58,7 +61,8 @@ S.OBJ.F.bEdit .EQ %00000001
S.OBJ.S .EQ 2 S.OBJ.S .EQ 2
S.OBJ.S.bActive .EQ %10000000 S.OBJ.S.bActive .EQ %10000000
S.OBJ.S.bDisabled .EQ %01000000 S.OBJ.S.bDisabled .EQ %01000000
S.OBJ.S.bHasChilds .EQ %00100000 S.OBJ.S.bHidden .EQ %00100000
S.OBJ.S.bHasChilds .EQ %00010000
S.OBJ.S.bCurOn .EQ %00000001 S.OBJ.S.bCurOn .EQ %00000001
S.OBJ.hParent .EQ 3 S.OBJ.hParent .EQ 3
S.OBJ.X1 .EQ 4 S.OBJ.X1 .EQ 4

6
LIB/LIBTUI.S.BUT.txt
View File

@ -2,12 +2,16 @@ NEW
AUTO 3,1 AUTO 3,1
.LIST OFF .LIST OFF
*-------------------------------------- *--------------------------------------
* BUT.New hParent,X1,Y1,HK,EV,pLabel 7 * BUT.New hParent,X1,Y1,HK,EV,pLabel,F 8
*-------------------------------------- *--------------------------------------
BUT.New lda #S.OBJ.T.BUT BUT.New lda #S.OBJ.T.BUT
jsr OBJ.Create jsr OBJ.Create
bcs .9 bcs .9
>PULLA
ldy #S.OBJ.F
sta (ZPObjPtr),y
ldy #S.BUT.pLabel ldy #S.BUT.pLabel
jsr OBJ.PullWordY jsr OBJ.PullWordY
stx ZPPtr1 stx ZPPtr1

14
LIB/LIBTUI.S.CBOX.txt
View File

@ -2,12 +2,16 @@ NEW
AUTO 3,1 AUTO 3,1
.LIST OFF .LIST OFF
*-------------------------------------- *--------------------------------------
* CBOX.New hParent,X1,Y1,HK,EV,pLabel,pVar 9 * CBOX.New hParent,X1,Y1,HK,EV,pLabel,pVar,F 10
*-------------------------------------- *--------------------------------------
CBOX.New lda #S.OBJ.T.CBOX CBOX.New lda #S.OBJ.T.CBOX
jsr OBJ.Create jsr OBJ.Create
bcs .9 bcs .9
>PULLA
ldy #S.OBJ.F
sta (ZPObjPtr),y
ldy #S.OBJ.pVar ldy #S.OBJ.pVar
jsr OBJ.PullWordY jsr OBJ.PullWordY
@ -52,7 +56,7 @@ CBOX.New lda #S.OBJ.T.CBOX
* clc * clc
rts rts
.9 >POP 9 .9 >POP 10
.99 rts .99 rts
*-------------------------------------- *--------------------------------------
@ -85,12 +89,16 @@ CBOX.Run ldy #S.BUT.HotKey
>PUSHA >PUSHA
jsr OBJ.Draw.Body jsr OBJ.Draw.Body
inc pStack inc pStack
bcs .99
ldy #S.CBOX.EV
lda (ZPObjPtr),y
* clc
rts rts
.9 lda #0 .9 lda #0
sec sec
rts .99 rts
*-------------------------------------- *--------------------------------------
CBOX.Draw ldx #'<' CBOX.Draw ldx #'<'

2
LIB/LIBTUI.S.CONT.txt
View File

@ -114,7 +114,7 @@ CONT.Run lda (pStack) Event
ldy #S.OBJ.S ldy #S.OBJ.S
lda (ZPPtr2),y lda (ZPPtr2),y
and #S.OBJ.S.bDisabled and #S.OBJ.S.bDisabled+S.OBJ.S.bHidden
bne .10 bne .10
ply ply

8
LIB/LIBTUI.S.DLG.txt
View File

@ -2,12 +2,16 @@ NEW
AUTO 3,1 AUTO 3,1
.LIST OFF .LIST OFF
*-------------------------------------- *--------------------------------------
* DLG.New hParent,W,H,pTitle 5 * DLG.New hParent,W,H,pTitle,F 6
*-------------------------------------- *--------------------------------------
DLG.New lda #S.OBJ.T.DLG DLG.New lda #S.OBJ.T.DLG
jsr OBJ.Create jsr OBJ.Create
bcs .9 bcs .9
>PULLA
ldy #S.OBJ.F
sta (ZPObjPtr),y
ldy #S.OBJ.pTitle ldy #S.OBJ.pTitle
jsr OBJ.PullWordY jsr OBJ.PullWordY
@ -48,7 +52,7 @@ DLG.New lda #S.OBJ.T.DLG
* clc * clc
rts rts
.9 >POP 5 .9 >POP 6
rts rts
*-------------------------------------- *--------------------------------------
MAN MAN

8
LIB/LIBTUI.S.LABEL.txt
View File

@ -2,12 +2,16 @@ NEW
AUTO 3,1 AUTO 3,1
.LIST OFF .LIST OFF
*-------------------------------------- *--------------------------------------
* LABEL.New hParent,X1,Y1,pLabel 5 * LABEL.New hParent,X1,Y1,pLabel,F 6
*-------------------------------------- *--------------------------------------
LABEL.New lda #S.OBJ.T.LABEL LABEL.New lda #S.OBJ.T.LABEL
jsr OBJ.Create jsr OBJ.Create
bcs .9 bcs .9
>PULLA
ldy #S.OBJ.F
sta (ZPObjPtr),y
ldy #S.OBJ.S ldy #S.OBJ.S
lda #S.OBJ.S.bDisabled lda #S.OBJ.S.bDisabled
sta (ZPObjPtr),y sta (ZPObjPtr),y
@ -28,7 +32,7 @@ LABEL.New lda #S.OBJ.T.LABEL
* clc * clc
rts rts
.9 >POP 5 .9 >POP 6
.99 rts .99 rts
*-------------------------------------- *--------------------------------------
LABEL.Draw ldy #S.LABEL.pLabel LABEL.Draw ldy #S.LABEL.pLabel

10
LIB/LIBTUI.S.LBOX.txt
View File

@ -2,22 +2,22 @@ NEW
AUTO 3,1 AUTO 3,1
.LIST OFF .LIST OFF
*-------------------------------------- *--------------------------------------
* LBOX.New hParent,X1,Y1,W,H,F,pList,pVar 10 * LBOX.New hParent,X1,Y1,W,H,pList,pVar,F 10
*-------------------------------------- *--------------------------------------
LBOX.New lda #S.OBJ.T.LBOX LBOX.New lda #S.OBJ.T.LBOX
jsr OBJ.Create jsr OBJ.Create
bcs .9 bcs .9
>PULLA
ldy #S.OBJ.F
sta (ZPObjPtr),y
ldy #S.OBJ.pVar ldy #S.OBJ.pVar
jsr OBJ.PullWordY jsr OBJ.PullWordY
ldy #S.OBJ.pBuf ldy #S.OBJ.pBuf
jsr OBJ.PullWordY jsr OBJ.PullWordY
>PULLA
ldy #S.OBJ.F
sta (ZPObjPtr),y
jsr OBJ.PullHW jsr OBJ.PullHW
jsr OBJ.PullY1X1hParent jsr OBJ.PullY1X1hParent

83
LIB/LIBTUI.S.OBJ.txt
View File

@ -219,7 +219,7 @@ OBJ.Run ldx ZPObjPtr
ldy #S.OBJ.S ldy #S.OBJ.S
lda (ZPObjPtr),y lda (ZPObjPtr),y
and #S.OBJ.S.bDisabled and #S.OBJ.S.bDisabled+S.OBJ.S.bHidden
bne .9 bne .9
ldy #1 ldy #1
@ -280,7 +280,54 @@ OBJ.Run ldx ZPObjPtr
*-------------------------------------- *--------------------------------------
OBJ.Draw >PUSHA hObj OBJ.Draw >PUSHA hObj
jsr OBJ.Draw.Top lda (pStack)
jsr LIB.GetOBJ
ldy #S.OBJ.S
lda (ZPObjPtr),y
and #S.OBJ.S.bHidden
beq .5
ldy #S.OBJ.Y1
lda (ZPObjPtr),y
>PUSHA
.1 jsr LB.Init
jsr LB.SetColor
ldy #S.OBJ.X1
lda (ZPObjPtr),y
tax
lda (pStack)
tay
jsr LB.GotoXY
ldy #S.OBJ.W
lda (ZPObjPtr),y
tax
lda #C.SPACE
.2 jsr LB.COut
iny
dex
bne .2
jsr IO.LBWrite
bcs .98
lda (pStack)
ldy #S.OBJ.Y2
cmp (ZPObjPtr),y
inc
sta (pStack)
bcc .1
bra .8
*--------------------------------------
.5 jsr OBJ.Draw.Top
bcs .99 bcs .99
jsr OBJ.Draw.Body jsr OBJ.Draw.Body
@ -316,7 +363,7 @@ OBJ.Draw >PUSHA hObj
cmp #S.OBJ cmp #S.OBJ
bne .6 bne .6
clc .8 clc
.98 inc pStack .98 inc pStack
@ -727,6 +774,36 @@ OBJ.FindActive ldx ZPObjPtr
rts rts
*-------------------------------------- *--------------------------------------
OBJ.Show pha
jsr LIB.GetOBJ
jsr OBJ.CurOff
ldy #S.OBJ.S
lda (ZPObjPtr),y
and #S.OBJ.S.bHidden^$ff
sta (ZPObjPtr),y
pla
jmp OBJ.Draw
*--------------------------------------
OBJ.Hide pha
jsr LIB.GetOBJ
jsr OBJ.CurOff
ldy #S.OBJ.S
lda (ZPObjPtr),y
ora #S.OBJ.S.bHidden
sta (ZPObjPtr),y
pla
jmp OBJ.Draw
*--------------------------------------
OBJ.CurUpdPos ldy #S.OBJ.F OBJ.CurUpdPos ldy #S.OBJ.F
lda (ZPObjPtr),y lda (ZPObjPtr),y
and #S.OBJ.F.bEdit and #S.OBJ.F.bEdit

8
LIB/LIBTUI.S.RADIO.txt
View File

@ -2,12 +2,16 @@ NEW
AUTO 3,1 AUTO 3,1
.LIST OFF .LIST OFF
*-------------------------------------- *--------------------------------------
* RADIO.New hParent,X1,Y1,HK,EV,pList,pVar 9 * RADIO.New hParent,X1,Y1,HK,EV,pList,pVar,F 10
*-------------------------------------- *--------------------------------------
RADIO.New lda #S.OBJ.T.RADIO RADIO.New lda #S.OBJ.T.RADIO
jsr OBJ.Create jsr OBJ.Create
bcs .9 bcs .9
>PULLA
ldy #S.OBJ.F
sta (ZPObjPtr),y
ldy #S.OBJ.pVar ldy #S.OBJ.pVar
jsr OBJ.PullWordY jsr OBJ.PullWordY
@ -74,7 +78,7 @@ RADIO.New lda #S.OBJ.T.RADIO
* clc * clc
rts rts
.9 >POP 9 .9 >POP 10
rts rts
*-------------------------------------- *--------------------------------------

7
LIB/LIBTUI.S.TBOX.txt
View File

@ -2,23 +2,24 @@ NEW
AUTO 3,1 AUTO 3,1
.LIST OFF .LIST OFF
*-------------------------------------- *--------------------------------------
* TBOX.New hParent,X1,Y1,W,H,F,pBuf,BufSize 10 * TBOX.New hParent,X1,Y1,W,H,pBuf,BufSize,F 10
*-------------------------------------- *--------------------------------------
TBOX.New lda #S.OBJ.T.TBOX TBOX.New lda #S.OBJ.T.TBOX
jsr OBJ.Create jsr OBJ.Create
bcs .9 bcs .9
jsr OBJ.PullBuf
>PULLA >PULLA
ldy #S.OBJ.F ldy #S.OBJ.F
sta (ZPObjPtr),y sta (ZPObjPtr),y
jsr OBJ.PullBuf
jsr OBJ.PullHW jsr OBJ.PullHW
jsr OBJ.PullY1X1hParent jsr OBJ.PullY1X1hParent
jsr CONT.Insert jsr CONT.Insert
bcs .99 bcs .99
lda hObj lda hObj

11
LIB/LIBTUI.S.TLINE.txt
View File

@ -2,18 +2,19 @@ NEW
AUTO 3,1 AUTO 3,1
.LIST OFF .LIST OFF
*-------------------------------------- *--------------------------------------
* TLINE.New hParent,X1,Y1,W,pBuf,MaxLen 8 * TLINE.New hParent,X1,Y1,W,pBuf,MaxLen,F 8
*-------------------------------------- *--------------------------------------
TLINE.New lda #S.OBJ.T.TLINE TLINE.New lda #S.OBJ.T.TLINE
jsr OBJ.Create jsr OBJ.Create
bcs .9 bcs .9
jsr OBJ.PullBuf >PULLA
ldy #S.OBJ.F ldy #S.OBJ.F
lda #S.OBJ.F.bHScroll+S.OBJ.F.bEdit ora #S.OBJ.F.bHScroll+S.OBJ.F.bEdit
sta (ZPObjPtr),y sta (ZPObjPtr),y
jsr OBJ.PullBuf
>PULLA >PULLA
ldy #S.OBJ.W ldy #S.OBJ.W
sta (ZPObjPtr),y sta (ZPObjPtr),y
@ -34,7 +35,7 @@ TLINE.New lda #S.OBJ.T.TLINE
* clc * clc
rts rts
.9 >POP 7 .9 >POP 8
.99 rts .99 rts
*-------------------------------------- *--------------------------------------

3
LIB/LIBTUI.S.txt
View File

@ -70,6 +70,9 @@ CS.START cld
.DA LIB.SetProp .DA LIB.SetProp
.DA OBJ.Activate .DA OBJ.Activate
.DA OBJ.Deactivate .DA OBJ.Deactivate
.DA OBJ.FindActive
.DA OBJ.Show
.DA OBJ.Hide
*-------------------------------------- *--------------------------------------
J.ObjDestroy .DA OBJ.Destroy J.ObjDestroy .DA OBJ.Destroy
.DA OBJ.Destroy .DA OBJ.Destroy