Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-29 17:50:18 +00:00
Code Issues Projects Releases Wiki Activity
8f059cb64b
A2osX/LIB/LIBTUI.S.TBOX.txt

1242 lines
19 KiB
Plaintext
Raw Normal View History

RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
NEW
AUTO 3,1
.LIST OFF
*--------------------------------------
CC stuff, new LIBTUI, some .h to complete....
2022-09-04 20:12:49 +00:00
* TBOX.New hParent,X1,Y1,W,H,F,pBuf,BufSize 10
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
*--------------------------------------
CC stuff, new LIBTUI, some .h to complete....
2022-09-04 20:12:49 +00:00
TBOX.New lda #S.OBJ.T.TBOX
jsr OBJ.Create
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
bcs .9
CC stuff, new LIBTUI, some .h to complete....
2022-09-04 20:12:49 +00:00
jsr OBJ.PullBuf
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
>PULLA
ldy #S.OBJ.F
sta (ZPObjPtr),y
jsr OBJ.PullHW
jsr OBJ.PullY1X1hParent
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
jsr CONT.Insert
CC stuff, new LIBTUI, some .h to complete....
2022-09-04 20:12:49 +00:00
bcs .99
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
CC stuff, new LIBTUI, some .h to complete....
2022-09-04 20:12:49 +00:00
lda hObj
* clc
rts
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
CC stuff, new LIBTUI, some .h to complete....
2022-09-04 20:12:49 +00:00
.9 >POP 10
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
CC stuff, new LIBTUI, some .h to complete....
2022-09-04 20:12:49 +00:00
.99 rts
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
*--------------------------------------
TBOX.Run ldy #S.OBJ.S
lda (ZPObjPtr),y
bpl TBOX.RUN.Ignore
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
ldy #S.OBJ.F
lda (ZPObjPtr),y
and #S.OBJ.F.bEdit
bne TBOX.Run.RW
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
lda (pStack) Event
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
cmp #C.SPACE
beq .1
cmp #27
bcs TBOX.RUN.Ignore
asl
tax
jmp (J.TBOX.RUN.RO,x)
.1 jmp TBOX.RUN.GetLink
*--------------------------------------
TBOX.Run.RW lda (pStack) Event
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
cmp #C.SPACE
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
bcs .1
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
cmp #27
bcs TBOX.RUN.Ignore
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
asl
tax
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
jmp (J.TBOX.RUN.RW,x)
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
.1 cmp #C.DEL
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
beq .2
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jsr TBOX.GetBuf
jsr TBOX.ToBuf1
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
bcs TBOX.RUN.Ignore Buffer full
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jsr TBOX.RUN.FS1
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
bra .3
.2 jsr TBOX.GetBuf
jsr TBOX.Delete1
bcs TBOX.RUN.Ignore Buffer Empty
.3 bit bRepaintAll
bmi .4
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jsr OBJ.CurUpdPos
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jmp TBOX.DrawCurLine
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
.4 jmp TBOX.DrawAllLines
*--------------------------------------
TBOX.RUN.Ignore lda #0
sec
rts
*--------------------------------------
TBOX.RUN.PrevLink
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
TBOX.RUN.PrevLink.9
lda #0
sec
rts
*--------------------------------------
TBOX.RUN.NextLink
jsr TBOX.GetDocYInAX
jsr TBOX.GetLineAX will do GetBuf
bcs TBOX.RUN.PrevLink.9
jsr TBOX.SetLineAtDocX
.1 ldx #$ff
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
.2 inx
jsr TBOX.GetChar
beq .9
cmp #C.CR
beq .7
cmp #'['
bne .2
cmp (ZPPtr1) "[["
bne .2
jsr TBOX.RUN.SelectLink
.3 jsr TBOX.GetChar
beq .9
cmp #C.CR
beq .7
cmp #']'
bne .3
jsr TBOX.RUN.Link2pVar
jsr TBOX.SetViewPort
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
bit bRepaintAll
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
bmi .6
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jsr OBJ.CurUpdPos
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
jsr TBOX.DrawCurLine
bra .60
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
.6 jsr TBOX.DrawAllLines
.60 lda #EV.HL.SELECTED
clc
rts
.7 ldy #S.TBOX.DocX
jsr OBJ.ZeroWordAtY
ldy #S.TBOX.DocY
jsr OBJ.IncWordAtY
bra .1
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
.9 lda #0
sec
rts
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
*--------------------------------------
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
TBOX.RUN.SelectLink
txa
sec skip first [
ldy #S.TBOX.DocX
adc (ZPObjPtr),y
sta (ZPObjPtr),y
iny
lda #0
adc (ZPObjPtr),y
sta (ZPObjPtr),y
ldy #S.TBOX.BufPtr
jsr TBOX.SetTempCAtY
ldy #S.TBOX.SelBegin
jmp TBOX.SetTempCAtY
*--------------------------------------
TBOX.RUN.Link2pVar
ldy #S.TBOX.SelEnd
jsr TBOX.SetTempCAtY
ldy #S.OBJ.pVar
lda (ZPObjPtr),y
sta ZPPtr2
iny
lda (ZPObjPtr),y
sta ZPPtr2+1
ldy #0
.1 jsr TBOX.GetChar
beq .8
cmp #C.CR
beq .8
cmp #']'
beq .8
sta (ZPPtr2),y
iny
bra .1
.8 lda #0
sta (ZPPtr2),y
rts
*--------------------------------------
TBOX.RUN.GetLink
lda #EV.HL.PRESSED
clc
rts
lda #0
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
sec
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
rts
*--------------------------------------
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
TBOX.RUN.ScrollUp
jsr TBOX.GetBuf
ldy #S.TBOX.VScroll
lda (ZPObjPtr),y
clc
ldy #S.OBJ.InnerH
adc (ZPObjPtr),y
pha
ldy #S.TBOX.VScroll+1
lda (ZPObjPtr),y
ldy #S.OBJ.InnerH+1
adc (ZPObjPtr),y
plx
jsr TBOX.GetLineAX
bcs .8
ldy #S.TBOX.VScroll
jsr OBJ.IncWordAtY
jmp TBOX.DrawAllLines
.8 clc
rts
*--------------------------------------
TBOX.RUN.ScrollDown
jsr TBOX.GetBuf
ldy #S.TBOX.VScroll+1
lda (ZPObjPtr),y
dey
ora (ZPObjPtr),y
beq .8
jsr OBJ.DecWordAtY
ldy #S.TBOX.DocY
jsr OBJ.DecWordAtY
jmp TBOX.DrawAllLines
.8 clc
rts
*--------------------------------------
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
TBOX.RUN.SelBegin
ldy #S.TBOX.BufPtr
lda (ZPObjPtr),y
tax
iny
lda (ZPObjPtr),y
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
ldy #S.TBOX.SelBegin+1
sta (ZPObjPtr),y
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
txa
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
dey
sta (ZPObjPtr),y
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
jmp TBOX.DrawAllLines
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
*--------------------------------------
TBOX.RUN.SelEnd ldy #S.TBOX.BufPtr
lda (ZPObjPtr),y
tax
iny
lda (ZPObjPtr),y
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
ldy #S.TBOX.SelEnd+1
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
sta (ZPObjPtr),y
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
txa
dey
sta (ZPObjPtr),y
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
jmp TBOX.DrawAllLines
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
*--------------------------------------
TBOX.RUN.BS ldy #S.TBOX.BufPtr+1
lda (ZPObjPtr),y
dey
ora (ZPObjPtr),y
beq .9
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
jsr OBJ.DecWordAtY
jsr TBOX.GetBuf
lda (ZPPtr2)
cmp #C.CR
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
beq .2
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
ldy #S.TBOX.DocX
jsr OBJ.DecWordAtY
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jmp TBOX.CheckViewPort
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
.2 ldy #S.TBOX.DocY
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
jsr OBJ.DecWordAtY
jmp TBOX.RUN.EOL
.9 sec
rts
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
*--------------------------------------
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
TBOX.RUN.LF jsr TBOX.GetBuf
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
TBOX.RUN.LF1 jsr TBOX.GetDocYInAX
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
inx
bne .1
inc
.1 jsr TBOX.GetLineAX
bcs TBOX.RUN.VT.8
ldy #S.TBOX.DocY
jsr OBJ.IncWordAtY
bra TBOX.RUN.VT1
*--------------------------------------
TBOX.RUN.VT jsr TBOX.GetBuf
ldy #S.TBOX.DocY+1
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
lda (ZPObjPtr),y
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
dey
ora (ZPObjPtr),y
beq TBOX.RUN.VT.8
jsr OBJ.DecWordAtY
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
TBOX.RUN.VT1 jsr TBOX.GetDocYInAX
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
jsr TBOX.GetLineAX
jsr TBOX.GetLineLenInAXC
sta TempW
stx TempW+1
ldy #S.TBOX.DocX
cmp (ZPObjPtr),y
txa
iny
sbc (ZPObjPtr),y
bcs .1
lda TempW+1
sta (ZPObjPtr),y
dey
lda TempW
sta (ZPObjPtr),y
.1 ldy #S.TBOX.DocX
lda TempC
clc
adc (ZPObjPtr),y
tax
iny
lda TempC+1
adc (ZPObjPtr),y
ldy #S.TBOX.BufPtr+1
sta (ZPObjPtr),y
dey
txa
sta (ZPObjPtr),y
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jmp TBOX.CheckViewPort
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
TBOX.RUN.VT.8 clc
rts
*--------------------------------------
TBOX.RUN.FS jsr TBOX.GetBuf
TBOX.RUN.FS1 lda (ZPPtr2)
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
beq .8
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
tax
ldy #S.TBOX.BufPtr
jsr OBJ.IncWordAtY
ldy #S.TBOX.DocX
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
cpx #C.CR
bne .7
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
.1 jsr OBJ.ZeroWordAtY
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
ldy #S.TBOX.DocY
.7 jsr OBJ.IncWordAtY
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jmp TBOX.CheckViewPort
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
.8 clc
rts
*--------------------------------------
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
TBOX.RUN.SOL ldy #S.TBOX.DocX
jsr OBJ.ZeroWordAtY
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
jsr TBOX.GetDocYInAX
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
jsr TBOX.GetLineAX
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
ldy #S.TBOX.BufPtr
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
jsr TBOX.SetTempCAtY BufPtr at SOL
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jmp TBOX.CheckViewPort
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
*--------------------------------------
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
TBOX.RUN.EOL jsr TBOX.GetDocYInAX
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
jsr TBOX.GetLineAX
jsr TBOX.GetLineLenInAXC
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
pha
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
ldy #S.TBOX.BufPtr
clc
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
adc TempC BufPtr at SOL+LineLen
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
sta (ZPObjPtr),y
iny
txa
adc TempC+1
sta (ZPObjPtr),y
pla
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
ldy #S.TBOX.DocX
sta (ZPObjPtr),y
iny
txa
sta (ZPObjPtr),y
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jmp TBOX.CheckViewPort
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
*--------------------------------------
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
TBOX.RUN.CR jsr TBOX.GetBuf
jsr TBOX.ToBuf1
bcs .8 Buffer full
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
ldy #S.TBOX.DocX
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
jsr OBJ.ZeroWordAtY
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
jsr TBOX.RUN.LF1
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
jsr OBJ.CurUpdPos
bit bRepaintAll
bmi .1
jsr TBOX.DrawBottom
.1 jmp TBOX.DrawAllLines
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
.8 clc
rts
*--------------------------------------
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
TBOX.RUN.PGUP
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
*--------------------------------------
TBOX.RUN.PGDN lda #0
sec
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
rts
*--------------------------------------
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
TBOX.RUN.QUIT lda #3 User Interrupt
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
sec
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
rts
*--------------------------------------
TBOX.RUN.Home ldy #S.TBOX.DocX
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
jsr OBJ.ZeroWordAtY
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
ldy #S.TBOX.DocY
jsr OBJ.ZeroWordAtY
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
ldy #S.TBOX.BufPtr
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
jsr OBJ.ZeroWordAtY
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jmp TBOX.CheckViewPort
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
*--------------------------------------
TBOX.RUN.EraseCL
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
jsr TBOX.GetDocYInAX
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
jsr TBOX.GetLineAX
jsr TBOX.GetLineLenInAXC
jsr TBOX.DeleteAXC
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
jmp TBOX.RUN.VT1
*--------------------------------------
TBOX.RUN.EOF lda #$ff
tax
jsr TBOX.GetLineAX
ldy #S.TBOX.DocY
lda TempI
sta (ZPObjPtr),y
tax
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
lda TempI+1
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
iny
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
sta (ZPObjPtr),y
jsr TBOX.GetLineAX
jsr TBOX.GetLineLenInAXC
ldy #S.TBOX.DocX
sta (ZPObjPtr),y
iny
txa
sta (ZPObjPtr),y
ldy #S.TBOX.BufCnt+1
lda (ZPObjPtr),y
tax
dey
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
lda (ZPObjPtr),y
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
ldy #S.TBOX.BufPtr
sta (ZPObjPtr),y
iny
txa
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
sta (ZPObjPtr),y
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jmp TBOX.CheckViewPort
*--------------------------------------
TBOX.DrawAllLines
ldy #1 hObj
lda (pStack),y
>PUSHA
jsr OBJ.Draw.Body
inc pStack
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
rts
*--------------------------------------
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
TBOX.DrawBottom ldy #S.OBJ.InnerY
lda (ZPObjPtr),y
clc
ldy #S.OBJ.CurY
adc (ZPObjPtr),y
>PUSHA Start
ldy #S.OBJ.InnerH
lda (ZPObjPtr),y
sec
ldy #S.OBJ.CurY
sbc (ZPObjPtr),y
>PUSHA Count
ldy #S.OBJ.CurY
lda (ZPObjPtr),y Relative Y
>PUSHA
jmp OBJ.Draw.Lines
*--------------------------------------
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
TBOX.DrawCurLine
ldy #S.OBJ.InnerY
lda (ZPObjPtr),y
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
clc
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
ldy #S.OBJ.CurY
adc (ZPObjPtr),y
>PUSHA Start
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
lda #1
>PUSHA Count
ldy #S.OBJ.CurY
lda (ZPObjPtr),y Relative Y
>PUSHA
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jmp OBJ.Draw.Lines
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
*--------------------------------------
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
* hyperlinks: [[text to show]targetUrl]
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
*--------------------------------------
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
TBOX.Draw ldy #S.TBOX.VScroll
lda (ZPObjPtr),y
clc
adc (pStack) Relative Y
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
tax
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
iny
lda (ZPObjPtr),y
adc #0
jsr TBOX.GetLineAX
bcs .5
ldy #S.TBOX.HScroll
lda (ZPObjPtr),y
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
beq .12
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
tax
.1 jsr TBOX.GetLineChar
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
beq .5
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
cmp #C.CR
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
beq .5
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
dex
bne .1
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
.12 ldy #S.OBJ.InnerW
lda (ZPObjPtr),y
tax
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
stz bTemp1 reset selection
stz bTemp2 reset Hyperlink
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
.2 jsr TBOX.CheckSel
jsr TBOX.GetLineChar
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
beq .3
cmp #C.CR
beq .3
jsr LB.COut
dex
bne .2
.3 txa
bne .6
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
clc
rts
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
.5 ldy #S.OBJ.InnerW
lda (ZPObjPtr),y
tax
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
.6 jsr TBOX.ResetSel
lda #C.SPACE
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
.7 jsr LB.COut
dex
bne .7
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
.8 clc
rts
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
*--------------------------------------
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
TBOX.Activate
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
*--------------------------------------
TBOX.Deactivate clc
rts
*--------------------------------------
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
TBOX.SetProp jsr OBJ.SetProp
bcs .9
cpy #S.OBJ.pBuf
bne .8
ldy #S.TBOX.DocX
lda #0
.1 sta (ZPObjPtr),y
iny
cpy #S.TBOX.BufPtr+2
bcc .1
jsr OBJ.GetBuf
ldx #0
ldy #0
.2 lda (ZPPtr1),y
beq .3
iny
bne .2
inc ZPPtr1+1
inx
bra .2
.3 tya
ldy #S.TBOX.BufCnt
sta (ZPObjPtr),y
iny
txa
sta (ZPObjPtr),y
jmp OBJ.Draw.Body.I
.8 clc
.9 rts
*--------------------------------------
CC stuff, new LIBTUI, some .h to complete....
2022-09-04 20:12:49 +00:00
TBOX.GetBuf jsr OBJ.GetBuf
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
ldy #S.TBOX.BufPtr
CC stuff, new LIBTUI, some .h to complete....
2022-09-04 20:12:49 +00:00
lda ZPPtr1
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
clc
adc (ZPObjPtr),y
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
sta ZPPtr2
CC stuff, new LIBTUI, some .h to complete....
2022-09-04 20:12:49 +00:00
lda ZPPtr1+1
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
iny
adc (ZPObjPtr),y
sta ZPPtr2+1
rts
*--------------------------------------
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
TBOX.GetDocYInAX
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
ldy #S.TBOX.DocY
lda (ZPObjPtr),y
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
tax
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
iny
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
lda (ZPObjPtr),y
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
rts
*--------------------------------------
TBOX.GetLineAX stx TempW
sta TempW+1 Req Line Num
CC stuff, new LIBTUI, some .h to complete....
2022-09-04 20:12:49 +00:00
jsr OBJ.GetBuf get pBuf in ZPPtr1
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
stz TempI Current Line Num
stz TempI+1
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
stz TempC Buffer Ofs
stz TempC+1
.1 lda TempI
eor TempW
bne .2
lda TempI+1
eor TempW+1
beq .8
.2 lda (ZPPtr1)
beq .9
jsr TBOX.GetLineLenInAXC
bcc .9
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
* sec
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
pha
adc TempC
sta TempC
txa
adc TempC+1
sta TempC+1
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
sec
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
pla
adc ZPPtr1
sta ZPPtr1
txa
adc ZPPtr1+1
sta ZPPtr1+1
inc TempI
bne .1
inc TempI+1
bra .1
.9 sec
rts
.8 clc
rts
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
*--------------------------------------
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
TBOX.SetLineAtDocX
ldy #S.TBOX.DocX
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
lda (ZPObjPtr),y
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
clc
adc ZPPtr1
sta ZPPtr1
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
iny
lda (ZPObjPtr),y
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
adc ZPPtr1+1
sta ZPPtr1+1
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
* clc
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
dey #S.TBOX.DocX
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
lda (ZPObjPtr),y
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
adc TempC
sta TempC
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
iny
lda (ZPObjPtr),y
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
adc TempC+1
sta TempC+1
rts
*--------------------------------------
* TempC charPos
*--------------------------------------
TBOX.CheckSel ldy #S.TBOX.SelBegin
jsr TBOX.CmpTempCAtY
bcc TBOX.ResetSel
iny #S.TBOX.SelEnd
jsr TBOX.CmpTempCAtY
bcs TBOX.ResetSel
*--------------------------------------
TBOX.SetSel bit bTemp1
bmi .8
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
phx
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
ldx #SEQ.INVERSE-SEQS
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
jsr LB.SeqOut
plx
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
dec bTemp1
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
.8 rts
*--------------------------------------
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
TBOX.ResetSel bit bTemp1
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
bpl .8
phx
ldx #SEQ.NORMAL-SEQS
jsr LB.SeqOut
plx
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
stz bTemp1
CIFS:bugfix LIBTUI:wip GOPGHER:correct exit key WHICH:new command
2023-02-10 18:19:29 +00:00
.8 rts
*--------------------------------------
TBOX.GetLineChar
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
ldy #S.OBJ.F
lda (ZPObjPtr),y
and #S.OBJ.F.bEdit
bne TBOX.GetChar
bit bTemp2
bmi .1
jsr TBOX.GetChar
beq .8
cmp #'['
bne .8 NZ
cmp (ZPPtr1) "[["
bne .8 NZ
dec bTemp2
rts NZ
.1 jsr TBOX.GetChar
beq .8
cmp #'['
beq .1 skip 2nd [
cmp #']' "[[display]"
bne .8 NZ
stz bTemp2
.2 jsr TBOX.GetChar skip "link]"
beq .8
cmp #']'
bne .2
lda #']' NZ
.8 rts
*--------------------------------------
TBOX.GetChar lda (ZPPtr1)
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
beq .8
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
inc ZPPtr1
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
bne .1
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
inc ZPPtr1+1
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
.1 inc TempC
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
bne .8
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
inc TempC+1 NZ
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
.8 rts
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
*--------------------------------------
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
TBOX.CmpTempCAtY
lda TempC
cmp (ZPObjPtr),y
lda TempC+1
iny
sbc (ZPObjPtr),y
rts
*--------------------------------------
TBOX.SetTempCAtY
lda TempC
sta (ZPObjPtr),y
lda TempC+1
iny
sta (ZPObjPtr),y
rts
*--------------------------------------
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
TBOX.GetLineLenInAXC
lda ZPPtr1+1
pha
clc
ldy #0
ldx #0
.1 lda (ZPPtr1),y
beq .8
eor #C.CR
beq .7
iny
bne .1
inx
bra .1
.7 sec to skip CR
.8 pla
sta ZPPtr1+1
tya AX = len, CS if CR ended
rts
*--------------------------------------
TBOX.ToBuf1 ldy #S.TBOX.BufCnt
lda (ZPObjPtr),y
CC stuff, new LIBTUI, some .h to complete....
2022-09-04 20:12:49 +00:00
ldy #S.OBJ.BufSize
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
cmp (ZPObjPtr),y
ldy #S.TBOX.BufCnt+1
lda (ZPObjPtr),y
CC stuff, new LIBTUI, some .h to complete....
2022-09-04 20:12:49 +00:00
ldy #S.OBJ.BufSize+1
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
sbc (ZPObjPtr),y
bcs .9
dey ldy #S.TBOX.BufCnt
jsr OBJ.IncWordAtY
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jsr TBOX.GetBuf
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
jsr TBOX.Insert1
lda (pStack)
sta (ZPPtr2)
.8 clc
.9 rts
*--------------------------------------
TBOX.Insert1 lda #1
ldx #0
TBOX.InsertAX clc
adc ZPPtr2
sta ZPPtr3
txa
adc ZPPtr2+1
sta ZPPtr3+1
ldy #0
ldx #0
.1 lda (ZPPtr2),y
beq .4
iny
bne .1
inx
inc ZPPtr2+1
inc ZPPtr3+1
bra .1
.2 dex
.3 dey
lda (ZPPtr2),y
.4 sta (ZPPtr3),y
tya
bne .3
txa
bne .2
.8 rts
*--------------------------------------
TBOX.Delete1 lda #1
ldx #0
*--------------------------------------
TBOX.DeleteAX clc
TBOX.DeleteAXC adc ZPPtr2
sta ZPPtr3
txa
adc ZPPtr2+1
sta ZPPtr3+1
ldy #0
.1 lda (ZPPtr3),y
sta (ZPPtr2),y
beq .8
iny
bne .1
inc ZPPtr3+1
inc ZPPtr2+1
bra .1
.8 rts
*--------------------------------------
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
TBOX.CheckViewPort
jsr TBOX.SetViewPort
bit bRepaintAll
bpl .8
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
jmp TBOX.DrawAllLines
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
.8 jmp OBJ.CurUpdPos
*--------------------------------------
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
TBOX.SetViewPort
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
stz bRepaintAll
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
ldy #S.TBOX.DocX+1
lda (ZPObjPtr),y
tax
dey
lda (ZPObjPtr),y
ldy #S.TBOX.HScroll
sec
sbc (ZPObjPtr),y
ldy #S.OBJ.CurX set CurX = DocX - HScroll
sta (ZPObjPtr),y
ldy #S.TBOX.HScroll+1
txa
sbc (ZPObjPtr),y DocX => HScroll ?
bcs .10 yes..
ldy #S.TBOX.DocX+1 no, set HScroll = DocX
lda (ZPObjPtr),y
tax
dey
lda (ZPObjPtr),y
ldy #S.TBOX.HScroll
sta (ZPObjPtr),y
iny
txa
sta (ZPObjPtr),y
lda #0 set CurX = 0
bra .20
*--------------------------------------
.10 ldy #S.TBOX.HScroll+1
lda (ZPObjPtr),y
tax
dey
lda (ZPObjPtr),y
ldy #S.OBJ.InnerW
clc
adc (ZPObjPtr),y
bcc .11
inx
.11 ldy #S.TBOX.DocX (HScroll + InnerW) > (DocX + 1) ?
clc DocX+1
sbc (ZPObjPtr),y
iny
txa
sbc (ZPObjPtr),y
bcs .21 no...
ldy #S.OBJ.InnerW yes, set HScroll = DocX - (InnerW - 1)
lda (ZPObjPtr),y
dec
sta TempW (InnerW - 1)
ldy #S.TBOX.DocX
lda (ZPObjPtr),y
sec
sbc TempW
tax
iny
lda (ZPObjPtr),y
sbc #0
bcc .12 DocX - (InnerW - 1) < 0
ldy #S.TBOX.HScroll+1
sta (ZPObjPtr),y
dey
txa
sta (ZPObjPtr),y
lda TempW set CurX = (InnerW - 1)
bra .20
.12 lda #0
ldy #S.TBOX.HScroll+1
sta (ZPObjPtr),y
dey
sta (ZPObjPtr),y
.20 ldy #S.OBJ.CurX
sta (ZPObjPtr),y
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
dec bRepaintAll
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
*--------------------------------------
.21 ldy #S.TBOX.DocY+1
lda (ZPObjPtr),y
tax
dey
lda (ZPObjPtr),y
ldy #S.TBOX.VScroll
sec
sbc (ZPObjPtr),y
ldy #S.OBJ.CurY set CurY = DocY - VScroll
sta (ZPObjPtr),y
ldy #S.TBOX.VScroll+1
txa
sbc (ZPObjPtr),y DocY => VScroll ?
bcs .30 yes..
ldy #S.TBOX.DocY+1 no, set VScroll = DocY
lda (ZPObjPtr),y
tax
dey
lda (ZPObjPtr),y
ldy #S.TBOX.VScroll
sta (ZPObjPtr),y
iny
txa
sta (ZPObjPtr),y
lda #0 set CurY = 0
bra .40
*--------------------------------------
.30 ldy #S.TBOX.VScroll+1
lda (ZPObjPtr),y
tax
dey
lda (ZPObjPtr),y
ldy #S.OBJ.InnerH
clc
adc (ZPObjPtr),y
bcc .31
inx
.31 ldy #S.TBOX.DocY (VScroll + InnerH) > (DocY + 1) ?
clc DocY+1
sbc (ZPObjPtr),y
iny
txa
sbc (ZPObjPtr),y
bcs .41 no...
ldy #S.OBJ.InnerH yes, set VScroll = DocY - (InnerH - 1)
lda (ZPObjPtr),y
dec
sta TempW (InnerH - 1)
ldy #S.TBOX.DocY
lda (ZPObjPtr),y
sec
sbc TempW
tax
iny
lda (ZPObjPtr),y
sbc #0
bcc .32 DocY - (InnerH - 1) < 0
ldy #S.TBOX.VScroll+1
sta (ZPObjPtr),y
dey
txa
sta (ZPObjPtr),y
lda TempW set CurY = (InnerH - 1)
bra .40
LIBTCPIP:shutdown() fix LIBTUI:bugfix & improvments (hyperlinks....) KERNEL:bugfix in fwrite() to socket CIFSD:NT_CREATE now set proper rights, better ERR codes GOPHER:Hyperlinks (wip)
2023-03-26 17:42:38 +00:00
.32 ldy #S.TBOX.VScroll
jsr OBJ.ZeroWordAtY
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
ldy #S.TBOX.DocY
lda (ZPObjPtr),y
.40 ldy #S.OBJ.CurY
sta (ZPObjPtr),y
CIFSD:bugfix & type/auxtype mapping CP,MV,RM:memory leak & new X.FILEENUM LIBTUI:TBOX improvment
2023-02-07 07:04:23 +00:00
CC:BugFix in while LIBTUI:Improved TBOX control (wip) GOPHER:....to test hyperlinks in TBOX control (wip)
2023-01-31 06:55:01 +00:00
dec bRepaintAll
Brian's work....no additional comment required....pfff
2021-12-02 21:28:26 +00:00
.41 clc CLC RTS to jmp to
rts
RAMWORKS:Added SuperExpander support, PPP:new driver, HTTPGET:BugFix GH#176, ASM:fix around "<" & ">" ops, KERNEL:Added Cursor show/hide ESC seq, LIBTCPIP: tweaks for PPP
2021-09-07 12:32:31 +00:00
*--------------------------------------
MAN
SAVE usr/src/lib/libtui.s.tbox
LOAD usr/src/lib/libtui.s
ASM
Reference in New Issue Copy Permalink