mirror of https://github.com/A2osX/A2osX.git
Kernel 0.93
This commit is contained in:
Rémy GIBERT
parent
44ca710187
commit
267d70f474
|
|
@ -0,0 +1,99 @@
|
|||
| Esc Sequence | Description | DEC Code | A2osX TERM |
|
||||
|--------------|-------------|----------|------------|
|
||||
|Esc[20h |Set new line mode|LMN|OK|
|
||||
|Esc[?1h |Set cursor key to application|DECCKM||
|
||||
|Esc[?3h |Set number of columns to 132|DECCOLM||
|
||||
|Esc[?4h |Set smooth scrolling|DECSCLM||
|
||||
|Esc[?5h |Set reverse video on screen|DECSCNM|OK|
|
||||
|Esc[?6h |Set origin to relative|DECOM||
|
||||
|Esc[?7h |Set auto-wrap mode|DECAWM|OK|
|
||||
|Esc[?8h |Set auto-repeat mode|DECARM||
|
||||
|Esc[?9h |Set interlacing mode|DECINLM||
|
||||
|||||
|
||||
|Esc[20l |Set line feed mode|LMN|OK|
|
||||
|Esc[?1l |Set cursor key to cursor|DECCKM||
|
||||
|Esc[?2l |Set VT52 (versus ANSI) DECANM||
|
||||
|Esc[?3l |Set number of columns to 80|DECCOLM
|
||||
|Esc[?4l |Set jump scrolling| DECSCLM
|
||||
|Esc[?5l |Set normal video on screen| DECSCNM |OK|
|
||||
|Esc[?6l |Set origin to absolute| DECOM
|
||||
|Esc[?7l |Reset auto-wrap mode| DECAWM |OK|
|
||||
|Esc[?8l |Reset auto-repeat mode| DECARM
|
||||
|Esc[?9l |Reset interlacing mode| DECINLM
|
||||
|||||
|
||||
|Esc= |Set alternate keypad mode| DECKPAM
|
||||
|Esc> |Set numeric keypad mode| DECKPNM
|
||||
|||||
|
||||
|Esc(A |Set United Kingdom G0 character set| setukg0 |OK|
|
||||
|Esc)A |Set United Kingdom G1 character set| setukg1 |OK|
|
||||
|Esc(B |Set United States G0 character set| setusg0 |OK|
|
||||
|Esc)B |Set United States G1 character set| setusg1 |OK|
|
||||
|Esc(0 |Set G0 special chars. & line set| setspecg0 |OK|
|
||||
|Esc)0 |Set G1 special chars. & line set| setspecg1 |OK|
|
||||
|Esc(1 |Set G0 alternate character ROM| setaltg0 |OK|
|
||||
|Esc)1 |Set G1 alternate character ROM| setaltg1 |OK|
|
||||
|Esc(2 |Set G0 alt char ROM and spec. graphics| setaltspecg0 |OK|
|
||||
|Esc)2 |Set G1 alt char ROM and spec. graphics| setaltspecg1 |OK|
|
||||
|||||
|
||||
|EscN |Set single shift 2| SS2
|
||||
|EscO |Set single shift 3| SS3
|
||||
|||||
|
||||
|Esc[m |Turn off character attributes| SGR0 |OK|
|
||||
|Esc[0m |Turn off character attributes| SGR0 |OK|
|
||||
|Esc[1m |Turn bold mode on| SGR1
|
||||
|Esc[2m |Turn low intensity mode on| SGR2
|
||||
|Esc[4m |Turn underline mode on| SGR4
|
||||
|Esc[5m |Turn blinking mode on| SGR5
|
||||
|Esc[7m |Turn reverse video on| SGR7 |OK|
|
||||
|Esc[8m |Turn invisible text mode on| SGR8
|
||||
|||||
|
||||
|Esc[Line;Liner |Set top and bottom lines of a window| DECSTBM |OK|
|
||||
|||||
|
||||
|Esc[ValueA |Move cursor up n lines| CUU
|
||||
|Esc[ValueB |Move cursor down n lines| CUD
|
||||
|Esc[ValueC |Move cursor right n lines| CUF
|
||||
|Esc[ValueD |Move cursor left n lines| CUB
|
||||
|Esc[H |Move cursor to upper left corner| cursorhome
|
||||
|Esc[;H |Move cursor to upper left corner| cursorhome
|
||||
|Esc[Line;ColumnH |Move cursor to screen location v,h| CUP |OK|
|
||||
|Esc[f |Move cursor to upper left corner| hvhome
|
||||
|Esc[;f |Move cursor to upper left corner| hvhome
|
||||
|Esc[Line;Columnf |Move cursor to screen location v,h| CUP
|
||||
|EscD |Move/scroll window up one line| IND
|
||||
|EscM |Move/scroll window down one line| RI
|
||||
|EscE |Move to next line| NEL
|
||||
|Esc7 |Save cursor position and attributes| DECSC
|
||||
|Esc8 |Restore cursor position and attributes| DECSC
|
||||
|||||
|
||||
|EscH |Set a tab at the current column| HTS
|
||||
|Esc[g |Clear a tab at the current column| TBC
|
||||
|Esc[0g |Clear a tab at the current column| TBC
|
||||
|Esc[3g |Clear all tabs| TBC
|
||||
|||||
|
||||
|Esc#3 |Double-height letters, top half| DECDHL
|
||||
|Esc#4 |Double-height letters, bottom half| DECDHL
|
||||
|Esc#5 |Single width, single height letters| DECSWL
|
||||
|Esc#6 |Double width, single height letters| DECDWL
|
||||
|||||
|
||||
|Esc[K |Clear line from cursor right| EL0 |OK|
|
||||
|Esc[0K |Clear line from cursor right| EL0 |OK|
|
||||
|Esc[1K |Clear line from cursor left | EL1 |OK|
|
||||
|Esc[2K |Clear entire line| EL2 |OK|
|
||||
|||||
|
||||
|Esc[J |Clear screen from cursor down| ED0 |OK|
|
||||
|Esc[0J |Clear screen from cursor down | ED0 |OK|
|
||||
|Esc[1J |Clear screen from cursor up | ED1 |OK|
|
||||
|Esc[2J |Clear entire screen | ED2 |OK|
|
||||
|||||
|
||||
|Esc5n |Device status report | DSR
|
||||
|Esc0n |Response: terminal is OK | DSR
|
||||
|Esc3n |Response: terminal is not OK | DSR
|
||||
|||||
|
||||
|Esc6n |Get cursor position | DSR |OK|
|
||||
|EscLine;ColumnR |Response: cursor is at v,h | CPR |OK|
|
||||
|||||
|
||||
|Esc[c |Identify what terminal type | DA
|
||||
|Esc[0c |Identify what terminal type (another)| DA
|
||||
|Esc[?1;Value0c |Response: terminal type code n | DA
|
||||
|||||
|
||||
|Escc |Reset terminal to initial state| RIS |OK|
|
||||
Binary file not shown.
|
|
@ -88,30 +88,13 @@ BUF.InsertA sta TmpByte
|
|||
*--------------------------------------
|
||||
BUF.DelSel jsr BUF.GetSelLen
|
||||
bcs .8
|
||||
>STYA SelLen
|
||||
|
||||
.10 jsr BUF.ComputeCOffset
|
||||
|
||||
>LDA.G SelStart
|
||||
cmp BUF.COffset
|
||||
iny
|
||||
lda (pData),y
|
||||
sbc BUF.COffset+1
|
||||
bcs .11
|
||||
|
||||
>DECW.G FileY
|
||||
|
||||
>STZ.G FileX
|
||||
|
||||
bra .10
|
||||
|
||||
.11 lda BufLen
|
||||
lda BufLen
|
||||
sec
|
||||
sbc SelLen
|
||||
pha
|
||||
tay
|
||||
lda BufLen+1
|
||||
sbc SelLen+1
|
||||
ply
|
||||
|
||||
iny
|
||||
bne .1
|
||||
|
|
@ -183,12 +166,12 @@ BUF.DelCharAtCursor
|
|||
BUF.SelToClipboard
|
||||
jsr BUF.GetSelLen
|
||||
bcs .8
|
||||
>STYA SelLen
|
||||
|
||||
>LDA.G hClipBoard
|
||||
beq .1
|
||||
|
||||
>SYSCALL FreeMem
|
||||
>STZ.G hClipBoard
|
||||
|
||||
.1 >LDYA SelLen
|
||||
>SYSCALL GetMem
|
||||
|
|
@ -214,13 +197,13 @@ BUF.SelToClipboard
|
|||
sta BufPtr+1
|
||||
|
||||
lda SelLen
|
||||
ldy #ClipBoardLen+1
|
||||
ldy #ClipBoardLen
|
||||
sta (pData),y
|
||||
eor #$ff
|
||||
tax
|
||||
|
||||
iny
|
||||
lda SelLen
|
||||
lda SelLen+1
|
||||
sta (pData),y
|
||||
eor #$ff
|
||||
pha
|
||||
|
|
@ -229,9 +212,10 @@ BUF.SelToClipboard
|
|||
|
||||
.2 inx
|
||||
bne .3
|
||||
|
||||
pla
|
||||
inc
|
||||
beq .7
|
||||
beq .8
|
||||
|
||||
pha
|
||||
|
||||
|
|
@ -244,8 +228,6 @@ BUF.SelToClipboard
|
|||
inc ClipboardPtr+1
|
||||
bra .2
|
||||
|
||||
.7 jsr BUF.ResetSel
|
||||
|
||||
.8 clc
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
|
|
@ -458,7 +440,7 @@ BUF.GetNewYA phy
|
|||
|
||||
>SYSCALL GetMemPtr
|
||||
>STYA BufPtrBackup
|
||||
|
||||
>STZ.G hBuffer
|
||||
pla
|
||||
ply
|
||||
>SYSCALL GetMem
|
||||
|
|
@ -470,63 +452,64 @@ BUF.GetNewYA phy
|
|||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
BUF.ResetSel ldy #SelStart
|
||||
BUF.ResetSel lda #$ff
|
||||
ldy #SelStart
|
||||
|
||||
lda #0
|
||||
|
||||
.1 sta (pData),y
|
||||
sta (pData),y
|
||||
iny
|
||||
cpy #SelEnd+2
|
||||
bne .1
|
||||
sta (pData),y
|
||||
|
||||
iny #SelEnd
|
||||
|
||||
inc
|
||||
sta (pData),y
|
||||
iny
|
||||
sta (pData),y
|
||||
|
||||
rts
|
||||
*--------------------------------------
|
||||
BUF.CheckSelected
|
||||
ldy #SelStart
|
||||
|
||||
lda BUF.COffset
|
||||
ldy #SelStart
|
||||
cmp (pData),y
|
||||
|
||||
iny
|
||||
|
||||
lda BUF.COffset+1
|
||||
iny
|
||||
sbc (pData),y
|
||||
bcc .9
|
||||
bcc .9 CC:COffset < SelStart
|
||||
|
||||
iny #SelEnd
|
||||
|
||||
lda BUF.COffset
|
||||
cmp (pData),y
|
||||
lda (pData),y
|
||||
clc
|
||||
sbc BUF.COffset
|
||||
|
||||
iny
|
||||
|
||||
lda BUF.COffset+1
|
||||
sbc (pData),y
|
||||
|
||||
.9 ror $80 = selected
|
||||
lda (pData),y
|
||||
sbc BUF.COffset+1
|
||||
* CC:SelEnd < COffset
|
||||
.9 lda #0
|
||||
ror $80 = selected
|
||||
rts
|
||||
*--------------------------------------
|
||||
* Out : CC if ok, YA=SelLen
|
||||
*--------------------------------------
|
||||
BUF.GetSelLen ldy #SelEnd
|
||||
lda (pData),y
|
||||
sec
|
||||
ldy #SelStart
|
||||
sbc (pData),y
|
||||
|
||||
sta SelLen
|
||||
tax
|
||||
|
||||
ldy #SelEnd+1
|
||||
lda (pData),y
|
||||
sec
|
||||
|
||||
ldy #SelStart+1
|
||||
sbc (pData),y
|
||||
sta SelLen+1
|
||||
bcc .9
|
||||
|
||||
phx
|
||||
ply
|
||||
bne .8
|
||||
tax
|
||||
txa
|
||||
|
||||
beq .9
|
||||
|
||||
.8 clc
|
||||
|
|
|
|||
|
|
@ -48,7 +48,7 @@ Prompt.Editor cmp #C.DEL
|
|||
tax
|
||||
jmp (J.CTRL,x)
|
||||
|
||||
.9 jmp Ctrl.Q
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
Ctrl.DEL jsr BUF.ComputeCOffset
|
||||
|
||||
|
|
@ -66,6 +66,7 @@ Ctrl.DEL jsr BUF.ComputeCOffset
|
|||
*--------------------------------------
|
||||
Ctrl.Invalid
|
||||
clc
|
||||
Ctrl.Invalid.RTS
|
||||
rts
|
||||
*--------------------------------------
|
||||
Ctrl.A lda #PromptModeHelp
|
||||
|
|
@ -87,7 +88,7 @@ Ctrl.A lda #PromptModeHelp
|
|||
>PUSHBI 2
|
||||
>LDYA L.MSG.HELPLINE
|
||||
>SYSCALL printf
|
||||
bcs .9
|
||||
bcs Ctrl.Invalid.RTS
|
||||
|
||||
inc .1+1
|
||||
|
||||
|
|
@ -99,10 +100,7 @@ Ctrl.A lda #PromptModeHelp
|
|||
inc ZPPTR1+1
|
||||
bra .1
|
||||
|
||||
.8 jsr SCRN.UpdateStatusBar
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
.8 jmp SCRN.UpdateStatusBar
|
||||
*--------------------------------------
|
||||
Ctrl.B jsr BUF.ComputeCOffset
|
||||
lda BUF.COffset
|
||||
|
|
@ -111,16 +109,9 @@ Ctrl.B jsr BUF.ComputeCOffset
|
|||
lda BUF.COffset+1
|
||||
iny
|
||||
sta (pData),y
|
||||
jsr SCRN.UpdateMain
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.UpdateMain
|
||||
*--------------------------------------
|
||||
Ctrl.C jsr BUF.SelToClipboard
|
||||
bcs .9
|
||||
.8 clc
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
Ctrl.C jmp BUF.SelToClipboard
|
||||
*--------------------------------------
|
||||
Ctrl.E jsr BUF.ComputeCOffset
|
||||
lda BUF.COffset
|
||||
|
|
@ -129,29 +120,22 @@ Ctrl.E jsr BUF.ComputeCOffset
|
|||
lda BUF.COffset+1
|
||||
iny
|
||||
sta (pData),y
|
||||
jsr SCRN.UpdateMain
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.UpdateMain
|
||||
*--------------------------------------
|
||||
Ctrl.F lda #PromptModeFind
|
||||
>STA.G PromptMode
|
||||
|
||||
jsr SCRN.UpdateStatusBar
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.UpdateStatusBar
|
||||
*--------------------------------------
|
||||
Ctrl.G ldy #FileX
|
||||
lda (pData),y
|
||||
beq .8
|
||||
lda #0
|
||||
sta (pData),y
|
||||
jsr SCRN.UpdateViewPort
|
||||
bcs .9
|
||||
jmp SCRN.UpdateViewPort
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
*--------------------------------------
|
||||
Ctrl.BS ldy #FileX
|
||||
lda (pData),y
|
||||
|
|
@ -189,13 +173,10 @@ Ctrl.BS ldy #FileX
|
|||
sbc #0
|
||||
sta (pData),y
|
||||
|
||||
.3 jsr SCRN.UpdateViewPort
|
||||
bcs .9
|
||||
.3 jmp SCRN.UpdateViewPort
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
|
||||
.9 jmp Ctrl.Q
|
||||
*--------------------------------------
|
||||
Ctrl.TAB
|
||||
clc
|
||||
|
|
@ -228,12 +209,10 @@ Ctrl.LF ldy #FileY+1
|
|||
inc
|
||||
sta (pData),y
|
||||
|
||||
.3 jsr SCRN.UpdateViewPort
|
||||
bcs .9
|
||||
.3 jmp SCRN.UpdateViewPort
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
*--------------------------------------
|
||||
Ctrl.VT ldy #FileY+1
|
||||
lda (pData),y
|
||||
|
|
@ -266,11 +245,10 @@ Ctrl.VT ldy #FileY+1
|
|||
sbc #0
|
||||
sta (pData),y
|
||||
|
||||
jsr SCRN.UpdateViewPort
|
||||
bcs .9
|
||||
jmp SCRN.UpdateViewPort
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
*--------------------------------------
|
||||
Ctrl.L jsr BUF.GetLine
|
||||
bcs .8
|
||||
|
|
@ -278,11 +256,10 @@ Ctrl.L jsr BUF.GetLine
|
|||
tya Y = line length
|
||||
ldy #FileX
|
||||
sta (pData),y
|
||||
jsr SCRN.UpdateViewPort
|
||||
bcs .9
|
||||
jmp SCRN.UpdateViewPort
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
*--------------------------------------
|
||||
Ctrl.CR lda #C.CR
|
||||
jsr BUF.InsertA
|
||||
|
|
@ -291,12 +268,9 @@ Ctrl.CR lda #C.CR
|
|||
ldy #FileX
|
||||
lda #0
|
||||
sta (pData),y
|
||||
jsr SCRN.UpdateMain
|
||||
bcs .9
|
||||
|
||||
clc
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.UpdateMain
|
||||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
Ctrl.N
|
||||
clc
|
||||
|
|
@ -326,10 +300,7 @@ Ctrl.O ldy #FileY+1
|
|||
ldy #FileX
|
||||
sta (pData),y
|
||||
|
||||
jsr SCRN.UpdateViewPort
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.UpdateViewPort
|
||||
|
||||
.8 pla
|
||||
jmp Ctrl.T
|
||||
|
|
@ -365,10 +336,7 @@ Ctrl.P ldy #FileY+1
|
|||
pla
|
||||
sta (pData),y
|
||||
|
||||
jsr SCRN.UpdateViewPort
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.UpdateViewPort
|
||||
|
||||
.8 pla
|
||||
pla
|
||||
|
|
@ -382,11 +350,7 @@ Ctrl.Q lda #$FF
|
|||
Ctrl.R lda #PromptModeReplace
|
||||
>STA.G PromptMode
|
||||
|
||||
jsr SCRN.UpdateStatusBar
|
||||
bcs .9
|
||||
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.UpdateStatusBar
|
||||
*--------------------------------------
|
||||
Ctrl.S lda #PromptModeSave
|
||||
>STA.G PromptMode
|
||||
|
|
@ -409,19 +373,12 @@ Ctrl.S lda #PromptModeSave
|
|||
|
||||
.2 >STA.G PromptBufPtr
|
||||
|
||||
jsr SCRN.UpdateStatusBar
|
||||
bcs .9
|
||||
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.UpdateStatusBar
|
||||
*--------------------------------------
|
||||
Ctrl.T >STZ.G FileX
|
||||
>STZW.G FileY
|
||||
|
||||
jsr SCRN.UpdateViewPort
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.UpdateViewPort
|
||||
*--------------------------------------
|
||||
Ctrl.FS jsr BUF.GetLine
|
||||
bcs .8
|
||||
|
|
@ -461,25 +418,22 @@ Ctrl.FS jsr BUF.GetLine
|
|||
lda #0
|
||||
sta (pData),y
|
||||
|
||||
.3 jsr SCRN.UpdateViewPort
|
||||
bcs .9
|
||||
.3 jmp SCRN.UpdateViewPort
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
*--------------------------------------
|
||||
Ctrl.V jsr BUF.InsertClipboard
|
||||
bcs .9
|
||||
jsr SCRN.UpdateMain
|
||||
bcs .9
|
||||
jsr SCRN.UpdateStatusBar
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.UpdateStatusBar
|
||||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
Ctrl.W jsr BUF.ComputeCOffset Y=line len
|
||||
phy
|
||||
|
||||
|
||||
lda BUF.LOffset
|
||||
ldy #SelStart
|
||||
sta (pData),y
|
||||
|
|
@ -487,8 +441,17 @@ Ctrl.W jsr BUF.ComputeCOffset Y=line len
|
|||
iny
|
||||
sta (pData),y
|
||||
|
||||
pla
|
||||
sec +1 for CR
|
||||
ply
|
||||
clc
|
||||
lda (BufPtr),y
|
||||
bne .1
|
||||
|
||||
tya
|
||||
beq .8 previoyus line\CR\0
|
||||
iny
|
||||
|
||||
.1 tya
|
||||
|
||||
adc BUF.LOffset
|
||||
|
||||
ldy #SelEnd
|
||||
|
|
@ -497,21 +460,22 @@ Ctrl.W jsr BUF.ComputeCOffset Y=line len
|
|||
adc #0
|
||||
iny
|
||||
sta (pData),y
|
||||
bra Ctrl.D
|
||||
bra Ctrl.D
|
||||
|
||||
.8 rts
|
||||
*--------------------------------------
|
||||
Ctrl.X jsr BUF.SelToClipboard
|
||||
bcs Ctrl.X.RTS
|
||||
|
||||
Ctrl.D jsr BUF.DelSel
|
||||
bcs .9
|
||||
jsr SCRN.UpdateMain
|
||||
bcs .9
|
||||
jmp SCRN.UpdateStatusBar
|
||||
bcs .9
|
||||
rts
|
||||
bcs Ctrl.X.RTS
|
||||
|
||||
.9 jmp Ctrl.Q
|
||||
|
||||
jsr SCRN.CursorAdjust
|
||||
jsr SCRN.UpdateMain
|
||||
bcs Ctrl.X.RTS
|
||||
|
||||
jmp SCRN.UpdateStatusBar
|
||||
|
||||
Ctrl.X.RTS rts
|
||||
*--------------------------------------
|
||||
Ctrl.Y ldy #FileY+1
|
||||
|
|
@ -545,10 +509,7 @@ Ctrl.Y ldy #FileY+1
|
|||
tya Y = line length
|
||||
>STA.G FileX
|
||||
|
||||
jsr SCRN.UpdateViewPort
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.UpdateViewPort
|
||||
*--------------------------------------
|
||||
Ctrl.Z jsr BUF.ComputeCOffset
|
||||
|
||||
|
|
@ -581,20 +542,16 @@ Prompt.Help >STZ.G PromptMode
|
|||
|
||||
jsr SCRN.UpdateMain
|
||||
bcs .9
|
||||
jsr SCRN.UpdateStatusBar
|
||||
bcs .9
|
||||
rts
|
||||
jmp SCRN.UpdateStatusBar
|
||||
|
||||
.9 jmp Ctrl.Q
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
Prompt.Find cmp #3
|
||||
bne .1
|
||||
|
||||
>STZ.G PromptMode
|
||||
|
||||
jsr SCRN.UpdateStatusBar
|
||||
bcs .9
|
||||
rts
|
||||
jmp SCRN.UpdateStatusBar
|
||||
|
||||
.1 cmp #13
|
||||
bne .2
|
||||
|
|
@ -602,8 +559,7 @@ Prompt.Find cmp #3
|
|||
.2
|
||||
|
||||
clc
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
Prompt.Replace cmp #3
|
||||
bne .1
|
||||
|
|
@ -621,8 +577,8 @@ Prompt.Replace cmp #3
|
|||
|
||||
|
||||
clc
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
Prompt.Save cmp #3 Ctrl-C
|
||||
bne .1
|
||||
|
|
@ -694,11 +650,9 @@ Prompt.Save cmp #3 Ctrl-C
|
|||
|
||||
.81 jsr SCRN.UpdateTopBar
|
||||
bcs .9
|
||||
.80 jsr SCRN.UpdateStatusBar
|
||||
bcs .9
|
||||
rts
|
||||
|
||||
.9 jmp Ctrl.Q
|
||||
.80 jmp SCRN.UpdateStatusBar
|
||||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
MAN
|
||||
SAVE USR/SRC/BIN/EDIT.S.CTRL
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@ NEW
|
|||
AUTO 3,1
|
||||
.LIST OFF
|
||||
*--------------------------------------
|
||||
SCRN.Init >LDYAI 256+5+5+1 potentially NORM,INV & \0
|
||||
SCRN.Init >LDYAI 510+5+5+4+1 potentially 255*\\ NORM,INV,CEOL & \0
|
||||
>SYSCALL Getmem
|
||||
bcs .9
|
||||
>STYA LineBufPtr
|
||||
|
|
@ -17,10 +17,6 @@ SCRN.Init >LDYAI 256+5+5+1 potentially NORM,INV & \0
|
|||
>SYSCALL printf
|
||||
bcs .9
|
||||
|
||||
lda #12
|
||||
>SYSCALL PutChar
|
||||
bcs .9
|
||||
|
||||
lda #0
|
||||
|
||||
ldy #FileX
|
||||
|
|
@ -184,8 +180,12 @@ SCRN.UpdateLineAtALenY
|
|||
|
||||
.5 lda (BufPtr)
|
||||
jsr SCRN.ToLineBuf
|
||||
cmp #'\'
|
||||
bne .51
|
||||
|
||||
inc BufPtr
|
||||
jsr SCRN.ToLineBuf
|
||||
|
||||
.51 inc BufPtr
|
||||
bne .6
|
||||
inc BufPtr+1
|
||||
|
||||
|
|
@ -200,32 +200,37 @@ SCRN.UpdateLineAtALenY
|
|||
bpl .80
|
||||
jsr SCRN.ToggleSel
|
||||
|
||||
.80 lda #0
|
||||
sta (ZPPTR1)
|
||||
.80 ldy #0
|
||||
|
||||
.81 lda SEQ.CEOL,y
|
||||
beq .82
|
||||
jsr SCRN.ToLineBuf
|
||||
iny
|
||||
bra .81
|
||||
|
||||
.82 sta (ZPPTR1)
|
||||
|
||||
>PUSHBI 0
|
||||
>LDYA LineBufPtr
|
||||
>SYSCALL printf
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
SCRN.ToggleSel ldy #0
|
||||
|
||||
lda bSelected
|
||||
eor #$ff
|
||||
sta bSelected
|
||||
|
||||
bpl .1
|
||||
|
||||
ldy #6
|
||||
|
||||
.1 eor #$ff
|
||||
sta bSelected
|
||||
|
||||
.2 lda SEQ.NORM,y
|
||||
.1 lda SEQ.NORM,y
|
||||
beq .8
|
||||
|
||||
jsr SCRN.ToLineBuf
|
||||
iny
|
||||
bra .2
|
||||
bra .1
|
||||
|
||||
.8 rts
|
||||
*--------------------------------------
|
||||
|
|
@ -283,8 +288,8 @@ SCRN.UpdateStatusBar
|
|||
bcs .9
|
||||
|
||||
jmp SCRN.GotoCurXCurY
|
||||
.9 jmp Ctrl.Q
|
||||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
.2 eor #PromptModeHelp
|
||||
beq .3
|
||||
>PUSHW pData
|
||||
|
|
@ -317,9 +322,19 @@ SCRN.UpdateStatusBarErrA
|
|||
>PUSHBI 1
|
||||
>LDYA L.MSG.STATUSBAR.E
|
||||
>SYSCALL printf
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
rts
|
||||
*--------------------------------------
|
||||
SCRN.CursorAdjust
|
||||
.1 jsr BUF.ComputeCOffset
|
||||
bcc .8
|
||||
|
||||
>DECW.G FileY
|
||||
|
||||
>STZ.G FileX
|
||||
|
||||
bra .1
|
||||
|
||||
.8 rts
|
||||
*--------------------------------------
|
||||
SCRN.ClearEOLA pha
|
||||
|
||||
|
|
@ -394,9 +409,7 @@ GotoXY txa
|
|||
>PUSHBI 2
|
||||
>LDYA L.MSG.GOTOXY
|
||||
>SYSCALL printf
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
GotoXY.RTS rts
|
||||
*--------------------------------------
|
||||
SCRN.UpdateViewPort
|
||||
lda #$ff
|
||||
|
|
@ -457,8 +470,7 @@ SCRN.UpdateViewPort
|
|||
bit bNotRepaint
|
||||
bpl .3
|
||||
jsr SCRN.scrollDn ...and move content one line down
|
||||
bcc .3
|
||||
jmp Ctrl.Q
|
||||
bcs GotoXY.RTS
|
||||
|
||||
.4 ldy #ScreenY+1
|
||||
lda (pData),y
|
||||
|
|
@ -521,10 +533,8 @@ SCRN.UpdateViewPort
|
|||
.6 jsr SCRN.UpdateStatusBar
|
||||
bcs .9
|
||||
|
||||
jsr SCRN.GotoCurXCurY
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.GotoCurXCurY
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
SCRN.scrollUp ldy #CurX
|
||||
lda (pData),y
|
||||
|
|
@ -556,10 +566,9 @@ SCRN.scrollUp ldy #CurX
|
|||
|
||||
ldy #ViewPortHm1
|
||||
lda (pData),y
|
||||
jsr SCRN.UpdateLineAtALenY
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.UpdateLineAtALenY
|
||||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
SCRN.scrollDn ldy #CurX
|
||||
lda (pData),y
|
||||
|
|
@ -585,10 +594,8 @@ SCRN.scrollDn ldy #CurX
|
|||
bcs .9
|
||||
|
||||
lda #0
|
||||
jsr SCRN.UpdateLineAtALenY
|
||||
bcs .9
|
||||
rts
|
||||
.9 jmp Ctrl.Q
|
||||
jmp SCRN.UpdateLineAtALenY
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
MAN
|
||||
SAVE USR/SRC/BIN/EDIT.S.SCRN
|
||||
|
|
|
|||
|
|
@ -167,15 +167,18 @@ CS.RUN.LOOP >SYSCALL GetChar
|
|||
bcs CS.RUN.RTS I/O error
|
||||
|
||||
jsr CharIn
|
||||
bcs .9
|
||||
|
||||
>LDA.G bCancel
|
||||
bpl CS.RUN.LOOP
|
||||
|
||||
lda #0
|
||||
|
||||
.9 pha
|
||||
>PUSHBI 0
|
||||
>LDYA L.SEQ.RESET
|
||||
>SYSCALL printf
|
||||
|
||||
lda #0
|
||||
pla
|
||||
sec
|
||||
CS.RUN.RTS rts
|
||||
*--------------------------------------
|
||||
|
|
@ -199,6 +202,7 @@ CS.QUIT ldy #hLineBuffer
|
|||
.8 lda (pData),y
|
||||
beq .9
|
||||
>SYSCALL FreeMem
|
||||
clc
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CharIn tax
|
||||
|
|
@ -400,9 +404,9 @@ LoadFile >PUSHWI 0 Aux type
|
|||
bra .1
|
||||
|
||||
.8 sta (BufPtr)
|
||||
|
||||
clc
|
||||
.9 rts
|
||||
|
||||
.9 jmp BUF.ResetSel
|
||||
*--------------------------------------
|
||||
SaveFile >PUSHWI 0 Aux type
|
||||
>PUSHBI S.FI.T.TXT
|
||||
|
|
@ -446,7 +450,7 @@ SaveFile >PUSHWI 0 Aux type
|
|||
*--------------------------------------
|
||||
CS.END
|
||||
SEQ.DETECT .AZ "Querying terminal capabilities...\e[999;999H\e[6n"
|
||||
SEQ.INIT .AZ "\ec\e[7h\e[2;%dr" \e[?6h
|
||||
SEQ.INIT .AZ "\ec\e[?7l\e[2;%dr"
|
||||
SEQ.RESET .AZ "\ec"
|
||||
SEQ.SCROLLUP .AZ "\e[%d;%dH\eD"
|
||||
SEQ.SCROLLDN .AZ "\e[%d;%dH\eM"
|
||||
|
|
@ -455,11 +459,11 @@ SEQ.INV .AZ "\e[7m"
|
|||
SEQ.CEOL .AZ "\e[K"
|
||||
MSG.TOPBAR .AZ "\e[1;1HA2osX Edit:%s\e[0m"
|
||||
MSG.STATUSBAR .AZ "Press Ctrl-A For Help Length:%5D,Col:%3d,Line:%5D"
|
||||
MSG.STATUSBAR.H .AZ "Press any key to exit this screen:\e[0m"
|
||||
MSG.STATUSBAR.F .AZ "Find:%s\e[0m"
|
||||
MSG.STATUSBAR.R .AZ "Replace:%s\e[0m"
|
||||
MSG.STATUSBAR.S .AZ "Save:%s\e[0m"
|
||||
MSG.STATUSBAR.E .AZ "Error:%h\e[0m"
|
||||
MSG.STATUSBAR.H .AZ "Press any key to exit this screen:"
|
||||
MSG.STATUSBAR.F .AZ "Find:%s"
|
||||
MSG.STATUSBAR.R .AZ "Replace:%s"
|
||||
MSG.STATUSBAR.S .AZ "Save:%s"
|
||||
MSG.STATUSBAR.E .AZ "Error:%h"
|
||||
MSG.GOTOXY .AZ "\e[%d;%dH"
|
||||
MSG.HELPLINE .AZ "%S\e[K"
|
||||
MSG.HELP >PSTR "All commands: (* = Not yet implemented)"
|
||||
|
|
|
|||
|
|
@ -359,8 +359,10 @@ DRV.TERM.COUT lda (ZPBufPtr)
|
|||
DRV.TERM.COUT.FS
|
||||
ldy #S.DCB.TTY.CH
|
||||
lda (ZPDCBPtr),y
|
||||
cmp #79
|
||||
bne .1
|
||||
inc
|
||||
sta (ZPDCBPtr),y
|
||||
cmp #80
|
||||
bne DRV.TERM.COUT.FS.8
|
||||
|
||||
ldy #S.DCB.TTY.bLINEWRAP
|
||||
lda (ZPDCBPtr),y
|
||||
|
|
@ -372,9 +374,6 @@ DRV.TERM.COUT.FS
|
|||
|
||||
jmp DRV.TERM.COUT.LF.1
|
||||
|
||||
.1 inc
|
||||
sta (ZPDCBPtr),y
|
||||
|
||||
DRV.TERM.COUT.FS.8
|
||||
clc
|
||||
rts
|
||||
|
|
@ -1047,7 +1046,7 @@ CLREOL ldy #S.DCB.TTY.CH
|
|||
tay Start
|
||||
ldx #80 End
|
||||
|
||||
CLR stx .3+1 Save End
|
||||
CLR stx .1+1 Save End
|
||||
phy
|
||||
|
||||
ldy #S.DCB.TTY.CV
|
||||
|
|
@ -1056,17 +1055,19 @@ CLR stx .3+1 Save End
|
|||
|
||||
ply
|
||||
|
||||
.1 phy
|
||||
.1 cpy #$ff Self Modified
|
||||
|
||||
beq .8
|
||||
|
||||
phy
|
||||
|
||||
lda #" "
|
||||
jsr SetCharAtYX X unmodified
|
||||
|
||||
ply
|
||||
iny
|
||||
.3 cpy #$ff Self Modified
|
||||
bne .1
|
||||
bra .1
|
||||
|
||||
clc
|
||||
.8 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
SCROLL.DN ldy #S.DCB.TTY.SCROLLBOT
|
||||
|
|
|
|||
|
|
@ -174,6 +174,8 @@ SetCharAtCurPos pha
|
|||
lda (ZPDCBPtr),y
|
||||
tay
|
||||
pla
|
||||
cpy #80
|
||||
bcs SetCharAtYX.8
|
||||
*--------------------------------------
|
||||
SetCharAtYX cmp #$40
|
||||
bcc .1
|
||||
|
|
|
|||
Loading…
Reference in New Issue