mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-14 13:29:02 +00:00
Fixed The Editor scrolling issue.
Getty now try to disable local echo in telnet terminal
This commit is contained in:
parent
1553f67209
commit
cb61ec9806
@ -26,7 +26,7 @@ BUF.CheckSelected
|
|||||||
.9 sec
|
.9 sec
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
BUF.InsertA sta TmpChar
|
BUF.InsertA sta TmpByte
|
||||||
jsr BUF.ComputeCOffset
|
jsr BUF.ComputeCOffset
|
||||||
cpy #255
|
cpy #255
|
||||||
bne .10
|
bne .10
|
||||||
@ -65,7 +65,7 @@ BUF.InsertA sta TmpChar
|
|||||||
inc BufPtr+1
|
inc BufPtr+1
|
||||||
bra .1
|
bra .1
|
||||||
|
|
||||||
.2 lda TmpChar
|
.2 lda TmpByte
|
||||||
sta (BufPtr),y
|
sta (BufPtr),y
|
||||||
inc BufPtr
|
inc BufPtr
|
||||||
bne .3
|
bne .3
|
||||||
|
@ -8,7 +8,6 @@ AUTO 6
|
|||||||
InitScreen ldy #ScreenH
|
InitScreen ldy #ScreenH
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
dec
|
dec
|
||||||
dec
|
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>LDYA L.SEQ.INIT
|
>LDYA L.SEQ.INIT
|
||||||
>SYSCALL SYS.PSTRoutYA
|
>SYSCALL SYS.PSTRoutYA
|
||||||
@ -68,28 +67,33 @@ UpdateMain ldy #ScreenY
|
|||||||
sta TmpIndex+1
|
sta TmpIndex+1
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
|
sta TmpByte
|
||||||
|
|
||||||
|
ldy #ScreenH
|
||||||
|
lda (pData),y
|
||||||
|
dec
|
||||||
|
dec
|
||||||
sta TmpCount
|
sta TmpCount
|
||||||
|
|
||||||
.1 >LDAX TmpIndex
|
.1 >LDAX TmpIndex
|
||||||
jsr BUF.GetLineAX Y = line length
|
jsr BUF.GetLineAX Y = line length
|
||||||
bcs .5
|
bcs .5
|
||||||
|
|
||||||
lda TmpCount
|
lda TmpByte
|
||||||
jsr UpdateLineAtALenY
|
jsr UpdateLineAtALenY
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
.3 inc TmpIndex
|
.3 inc TmpByte
|
||||||
|
inc TmpIndex
|
||||||
bne .4
|
bne .4
|
||||||
inc TmpIndex+1
|
inc TmpIndex+1
|
||||||
|
|
||||||
.4 inc TmpCount
|
.4 dec TmpCount
|
||||||
lda TmpCount
|
|
||||||
cmp #22
|
|
||||||
bne .1
|
bne .1
|
||||||
jmp GotoCurXCurY
|
jmp GotoCurXCurY
|
||||||
|
|
||||||
.5 ldx #0
|
.5 ldx #0
|
||||||
ldy TmpCount
|
ldy TmpByte
|
||||||
jsr GotoXY
|
jsr GotoXY
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
@ -97,9 +101,8 @@ UpdateMain ldy #ScreenY
|
|||||||
>SYSCALL SYS.PSTROutYA
|
>SYSCALL SYS.PSTROutYA
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
inc TmpCount
|
inc TmpByte
|
||||||
lda TmpCount
|
dec TmpCount
|
||||||
cmp #22
|
|
||||||
bne .5
|
bne .5
|
||||||
|
|
||||||
jmp GotoCurXCurY
|
jmp GotoCurXCurY
|
||||||
@ -229,7 +232,6 @@ UpdateStatusBar ldy #PromptMode
|
|||||||
|
|
||||||
ldy #ScreenH
|
ldy #ScreenH
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
dec
|
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>LDYA L.MSG.STATUSBAR
|
>LDYA L.MSG.STATUSBAR
|
||||||
>SYSCALL SYS.PSTRoutYA
|
>SYSCALL SYS.PSTRoutYA
|
||||||
@ -279,14 +281,16 @@ UpdateViewPort lda #$ff
|
|||||||
stz bNotRepaint
|
stz bNotRepaint
|
||||||
bra .1
|
bra .1
|
||||||
|
|
||||||
.2 ldy #ScreenX
|
.2 clc
|
||||||
|
ldy #ScreenX
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
clc
|
|
||||||
adc #79
|
ldy #ScreenW
|
||||||
|
adc (pData),y
|
||||||
|
dec
|
||||||
ldy #FileX
|
ldy #FileX
|
||||||
cmp (pData),y
|
cmp (pData),y
|
||||||
bcs .3 out of right border ?
|
bcs .3 out of right border ?
|
||||||
|
|
||||||
ldy #ScreenX
|
ldy #ScreenX
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
inc
|
inc
|
||||||
@ -323,15 +327,22 @@ UpdateViewPort lda #$ff
|
|||||||
.4 clc
|
.4 clc
|
||||||
ldy #ScreenY
|
ldy #ScreenY
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
adc #21
|
ldy #ScreenH
|
||||||
|
adc (pData),y
|
||||||
pha
|
pha
|
||||||
iny
|
ldy #ScreenY+1
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
adc #0
|
adc #0
|
||||||
tax
|
tax
|
||||||
pla
|
pla
|
||||||
|
|
||||||
sec
|
sec
|
||||||
ldy #FileY
|
sbc #3
|
||||||
|
bcs .41
|
||||||
|
dex
|
||||||
|
sec
|
||||||
|
|
||||||
|
.41 ldy #FileY
|
||||||
sbc (pData),y
|
sbc (pData),y
|
||||||
txa
|
txa
|
||||||
iny
|
iny
|
||||||
|
@ -312,59 +312,61 @@ CS.DOEVENT.Esc ldy #bEscMode
|
|||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.3 stz TmpChar
|
.3 stz TmpByte
|
||||||
|
|
||||||
|
ldy #EscBuffer+1
|
||||||
|
|
||||||
ldy #EscBuffer
|
|
||||||
.4 lda (pData),y
|
.4 lda (pData),y
|
||||||
cmp #';'
|
cmp #';'
|
||||||
beq .5
|
beq .5
|
||||||
|
|
||||||
and #$0f
|
and #$0f
|
||||||
pha
|
pha
|
||||||
lda TmpChar
|
lda TmpByte
|
||||||
asl
|
asl
|
||||||
asl
|
asl
|
||||||
clc
|
clc
|
||||||
adc TmpChar
|
adc TmpByte
|
||||||
asl
|
asl
|
||||||
sta TmpChar
|
sta TmpByte
|
||||||
pla
|
pla
|
||||||
clc
|
clc
|
||||||
adc TmpChar
|
adc TmpByte
|
||||||
sta TmpChar
|
sta TmpByte
|
||||||
iny
|
iny
|
||||||
bra .4
|
bra .4
|
||||||
|
|
||||||
.5 phy
|
.5 phy
|
||||||
lda TmpChar
|
lda TmpByte
|
||||||
ldy #ScreenH
|
ldy #ScreenH
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
ply
|
ply
|
||||||
|
|
||||||
stz TmpChar
|
stz TmpByte
|
||||||
|
|
||||||
|
iny
|
||||||
|
|
||||||
ldy #EscBuffer
|
|
||||||
.6 lda (pData),y
|
.6 lda (pData),y
|
||||||
cmp #'R'
|
cmp #'R'
|
||||||
beq .7
|
beq .7
|
||||||
|
|
||||||
and #$0f
|
and #$0f
|
||||||
pha
|
pha
|
||||||
lda TmpChar
|
lda TmpByte
|
||||||
asl
|
asl
|
||||||
asl
|
asl
|
||||||
clc
|
clc
|
||||||
adc TmpChar
|
adc TmpByte
|
||||||
asl
|
asl
|
||||||
sta TmpChar
|
sta TmpByte
|
||||||
pla
|
pla
|
||||||
clc
|
clc
|
||||||
adc TmpChar
|
adc TmpByte
|
||||||
sta TmpChar
|
sta TmpByte
|
||||||
iny
|
iny
|
||||||
bra .6
|
bra .6
|
||||||
|
|
||||||
.7 lda TmpChar
|
.7 lda TmpByte
|
||||||
ldy #ScreenW
|
ldy #ScreenW
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
|
|
||||||
@ -452,7 +454,7 @@ MSG.HELP >PSTRING "Commands:"
|
|||||||
EscChars >PSTRING "DBAC"
|
EscChars >PSTRING "DBAC"
|
||||||
EscAscii .HS 04080A0B15
|
EscAscii .HS 04080A0B15
|
||||||
hFile .BS 1
|
hFile .BS 1
|
||||||
TmpChar .BS 1
|
TmpByte .BS 1
|
||||||
TmpLen .BS 2
|
TmpLen .BS 2
|
||||||
TmpCount .BS 2
|
TmpCount .BS 2
|
||||||
TmpIndex .BS 2
|
TmpIndex .BS 2
|
||||||
|
@ -132,7 +132,7 @@ CS.QUIT ldy #hBinName
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.END
|
CS.END
|
||||||
MSG.USAGE >PSTRING "GETTY <DEV> <PROGRAM>"
|
MSG.USAGE >PSTRING "GETTY <DEV> <PROGRAM>"
|
||||||
MSG.GREETINGS >PSTRING "A2osX-GeTTY on Dev="
|
MSG.GREETINGS >PSTRING "\e[12h\nA2osX-GeTTY on Dev="
|
||||||
hDEVNAME .BS 1
|
hDEVNAME .BS 1
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.DUMMY
|
.DUMMY
|
||||||
|
Loading…
Reference in New Issue
Block a user