Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-27 04:49:20 +00:00
Code Issues Projects Releases Wiki Activity
158fc06b83
A2osX/BIN/EDIT.S.SCRN.txt

569 lines
8.8 KiB
Plaintext
Raw Normal View History

New Full Screen Editor
2016-01-04 07:25:43 +00:00
NEW
Kernel 0.9.1 : Move To S-C MASM 3.0
2017-12-22 21:24:30 +00:00
PREFIX /A2OSX.BUILD
AUTO 4,1
New Full Screen Editor
2016-01-04 07:25:43 +00:00
.LIST OFF
*--------------------------------------
Code reorg
2016-01-21 07:05:23 +00:00
SCRN.Init ldy #ScreenH
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
dec
>PUSHA
>LDYA L.SEQ.INIT
Kernel version 0.9 : EDIT improved ANSI/VT100 support, bugfix
2017-03-06 16:58:05 +00:00
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
lda #12
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 06:37:21 +00:00
>SYSCALL PutChar.A
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
lda #0
ldy #FileX
sta (pData),y
ldy #FileY
sta (pData),y
iny
sta (pData),y
ldy #ScreenX
sta (pData),y
ldy #ScreenY
sta (pData),y
iny
sta (pData),y
Code reorg
2016-01-21 07:05:23 +00:00
jsr SCRN.UpdateTopBar
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
Code reorg
2016-01-21 07:05:23 +00:00
jsr SCRN.UpdateViewPort
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
Code reorg
2016-01-21 07:05:23 +00:00
jsr SCRN.UpdateMain
New Full Screen Editor
2016-01-04 07:25:43 +00:00
.9 rts
*--------------------------------------
Code reorg
2016-01-21 07:05:23 +00:00
SCRN.UpdateTopBar
Kernel version 0.9 : EDIT improved ANSI/VT100 support, bugfix
2017-03-06 16:58:05 +00:00
lda #1
Kernel version 0.9 : More BugFix in EDIT
2017-03-06 20:08:38 +00:00
jsr SCRN.InvLineA
Kernel version 0.9 : EDIT improved ANSI/VT100 support, bugfix
2017-03-06 16:58:05 +00:00
bcs .9
Code reorg
2016-01-21 07:05:23 +00:00
ldy #hFileName
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
beq .1
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 06:37:21 +00:00
>SYSCALL GetMemPtr.A
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bra .2
.1 >LDYA L.MSG.NEWFILE
.2 >PUSHYA
>LDYA L.MSG.TOPBAR
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
Kernel version 0.9 : EDIT improved ANSI/VT100 support, bugfix
2017-03-06 16:58:05 +00:00
New Full Screen Editor
2016-01-04 07:25:43 +00:00
.9 rts
*--------------------------------------
Code reorg
2016-01-21 07:05:23 +00:00
SCRN.UpdateMain ldy #ScreenY
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
sta TmpIndex
iny
lda (pData),y
sta TmpIndex+1
lda #0
Fixed The Editor scrolling issue. Getty now try to disable local echo in telnet terminal
2016-01-04 22:15:29 +00:00
sta TmpByte
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
ldy #ViewPortH
Fixed The Editor scrolling issue. Getty now try to disable local echo in telnet terminal
2016-01-04 22:15:29 +00:00
lda (pData),y
New Full Screen Editor
2016-01-04 07:25:43 +00:00
sta TmpCount
0.9 : Started migrating external commands, new KMs
2017-01-23 07:16:06 +00:00
Kernel 0.9.1 : STDLIB : AToF, StrToF (wip), MACROS CLeanup, code Reorg STDIO/STDLIB
2017-10-12 15:28:59 +00:00
.1 lda TmpIndex
ldx TmpIndex+1
New Full Screen Editor
2016-01-04 07:25:43 +00:00
jsr BUF.GetLineAX Y = line length
bcs .5
Fixed The Editor scrolling issue. Getty now try to disable local echo in telnet terminal
2016-01-04 22:15:29 +00:00
lda TmpByte
Code reorg
2016-01-21 07:05:23 +00:00
jsr SCRN.UpdateLineAtALenY
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
Fixed The Editor scrolling issue. Getty now try to disable local echo in telnet terminal
2016-01-04 22:15:29 +00:00
.3 inc TmpByte
inc TmpIndex
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bne .4
inc TmpIndex+1
Fixed The Editor scrolling issue. Getty now try to disable local echo in telnet terminal
2016-01-04 22:15:29 +00:00
.4 dec TmpCount
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bne .1
Code reorg
2016-01-21 07:05:23 +00:00
jmp SCRN.GotoCurXCurY
New Full Screen Editor
2016-01-04 07:25:43 +00:00
.5 ldx #0
Fixed The Editor scrolling issue. Getty now try to disable local echo in telnet terminal
2016-01-04 22:15:29 +00:00
ldy TmpByte
New Full Screen Editor
2016-01-04 07:25:43 +00:00
jsr GotoXY
bcs .9
>LDYA L.SEQ.CEOL
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
Fixed The Editor scrolling issue. Getty now try to disable local echo in telnet terminal
2016-01-04 22:15:29 +00:00
inc TmpByte
dec TmpCount
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bne .5
Code reorg
2016-01-21 07:05:23 +00:00
jmp SCRN.GotoCurXCurY
New Full Screen Editor
2016-01-04 07:25:43 +00:00
.9 rts
*--------------------------------------
Code reorg
2016-01-21 07:05:23 +00:00
SCRN.UpdateCurrentLine
New Full Screen Editor
2016-01-04 07:25:43 +00:00
ldy #ScreenY+1
lda (pData),y
tax
dey
lda (pData),y
clc
ldy #CurY
adc (pData),y
bcc .1
inx
.1 jsr BUF.GetLineAX
bcs .9
phy
ldy #CurY
lda (pData),y
ply
Code reorg
2016-01-21 07:05:23 +00:00
jsr SCRN.UpdateLineAtALenY
New Full Screen Editor
2016-01-04 07:25:43 +00:00
.9 rts
*--------------------------------------
Code reorg
2016-01-21 07:05:23 +00:00
SCRN.UpdateLineAtALenY
New Full Screen Editor
2016-01-04 07:25:43 +00:00
stz bSelected
sty TmpLen
ldx #0
tay
jsr GotoXY
bcs .9
ldy #ScreenW
lda (pData),y
tax
ldy #ScreenX
lda (pData),y
tay
.1 cpy TmpLen
bcs .3
jsr BUF.GetCharAtY
beq .3
cmp #13
beq .3
phx
phy
pha
jsr BUF.CheckSelected
Code reorg
2016-01-21 07:05:23 +00:00
jsr SCRN.UpdateAttrC
New Full Screen Editor
2016-01-04 07:25:43 +00:00
pla
bcs .11
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 06:37:21 +00:00
>SYSCALL PutChar.A
New Full Screen Editor
2016-01-04 07:25:43 +00:00
.11 ply
plx
bcs .9
.2 iny
dex
bne .1
.3 sec
Code reorg
2016-01-21 07:05:23 +00:00
jsr SCRN.UpdateAttrC
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
>LDYA L.SEQ.CEOL
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
Fix DEL bug (partially)
2016-01-22 16:29:11 +00:00
rts
.9 jmp Ctrl.Q
New Full Screen Editor
2016-01-04 07:25:43 +00:00
*--------------------------------------
* CC = set INV, CS = set NORM
*--------------------------------------
Code reorg
2016-01-21 07:05:23 +00:00
SCRN.UpdateAttrC
bcc .1
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bit bSelected
bpl .8
>LDYA L.SEQ.NORM
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
stz bSelected
rts
.1 bit bSelected
bmi .8
>LDYA L.SEQ.INV
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
lda #$ff
sta bSelected
.8 clc
Fix DEL bug (partially)
2016-01-22 16:29:11 +00:00
rts
.9 jmp Ctrl.Q
New Full Screen Editor
2016-01-04 07:25:43 +00:00
*--------------------------------------
Code reorg
2016-01-21 07:05:23 +00:00
SCRN.UpdateStatusBar
Kernel version 0.9 : EDIT, fixed Status bar flashing
2017-06-23 09:10:40 +00:00
lda #1
>PUSHA
Kernel version 0.9 : More BugFix in EDIT
2017-03-06 20:08:38 +00:00
ldy #ScreenH
lda (pData),y
Kernel version 0.9 : EDIT, fixed Status bar flashing
2017-06-23 09:10:40 +00:00
>PUSHA
>LDYA L.MSG.GOTOXY
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
Kernel version 0.9 : EDIT, fixed Status bar flashing
2017-06-23 09:10:40 +00:00
bcs .9
>LDYA L.SEQ.INV
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
Kernel version 0.9 : EDIT, fixed Status bar flashing
2017-06-23 09:10:40 +00:00
bcs .9
Kernel version 0.9 : More BugFix in EDIT
2017-03-06 20:08:38 +00:00
Code reorg
2016-01-21 07:05:23 +00:00
ldy #PromptMode
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
bne .2
Kernel 0.9.1 : Code reorganization & move to CSTR (SHELL)
2017-09-05 15:17:10 +00:00
ldy #FileY
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
tax
Kernel 0.9.1 : Code reorganization & move to CSTR (SHELL)
2017-09-05 15:17:10 +00:00
iny
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
inx
Kernel 0.9.1 : Code reorganization & move to CSTR (SHELL)
2017-09-05 15:17:10 +00:00
bne .1
inc
.1 >PUSHA
txa
>PUSHA
New Full Screen Editor
2016-01-04 07:25:43 +00:00
ldy #FileX
lda (pData),y
inc
>PUSHA
ldy #FileLen+1
>PUSHB (pData),y
dey
>PUSHB (pData),y
>LDYA L.MSG.STATUSBAR
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
Save mode working (but not create new file yet)
2016-01-06 22:07:28 +00:00
bcs .9
Kernel version 0.9 : More BugFix in EDIT
2017-03-06 20:08:38 +00:00
Kernel version 0.9 : EDIT, fixed Status bar flashing
2017-06-23 09:10:40 +00:00
lda #58
jsr SCRN.ClearEOLA
bcs .9
>LDYA L.SEQ.NORM
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
Kernel version 0.9 : EDIT, fixed Status bar flashing
2017-06-23 09:10:40 +00:00
bcs .9
Code reorg
2016-01-21 07:05:23 +00:00
jmp SCRN.GotoCurXCurY
Kernel version 0.9 : EDIT, fixed Status bar flashing
2017-06-23 09:10:40 +00:00
.9 jmp Ctrl.Q
New Full Screen Editor
2016-01-04 07:25:43 +00:00
Save mode working (but not create new file yet)
2016-01-06 22:07:28 +00:00
.2 cmp #PromptModeHelp
beq .3
>PUSHW pData
Kernel version 0.9 : More BugFix in EDIT
2017-03-06 20:08:38 +00:00
Save mode working (but not create new file yet)
2016-01-06 22:07:28 +00:00
.3 ldy #ScreenH
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
Kernel version 0.9 : More BugFix in EDIT
2017-03-06 20:08:38 +00:00
jsr SCRN.InvLineA
bcs .9
Kernel version 0.9 : More BugFix in EDIT, Status line
2017-03-06 20:45:56 +00:00
ldy #PromptMode
lda (pData),y
tax
New Full Screen Editor
2016-01-04 07:25:43 +00:00
>LDYA L.MSG.STATUSBAR,x
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
Fix DEL bug (partially)
2016-01-22 16:29:11 +00:00
bcs .9
rts
Save mode working (but not create new file yet)
2016-01-06 22:07:28 +00:00
*--------------------------------------
Code reorg
2016-01-21 07:05:23 +00:00
SCRN.UpdateStatusBarErrA
Kernel version 0.9 : More BugFix in EDIT
2017-03-06 20:08:38 +00:00
sta .1+1
SAVE
2016-01-09 22:33:47 +00:00
ldy #ScreenH
lda (pData),y
Kernel version 0.9 : More BugFix in EDIT
2017-03-06 20:08:38 +00:00
dec
jsr SCRN.InvLineA
bcs .9
.1 lda #$ff
Save mode working (but not create new file yet)
2016-01-06 22:07:28 +00:00
>PUSHA
>LDYA L.MSG.STATUSBAR.E
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
Fix DEL bug (partially)
2016-01-22 16:29:11 +00:00
bcs .9
New Full Screen Editor
2016-01-04 07:25:43 +00:00
rts
Fix DEL bug (partially)
2016-01-22 16:29:11 +00:00
.9 jmp Ctrl.Q
New Full Screen Editor
2016-01-04 07:25:43 +00:00
*--------------------------------------
Kernel version 0.9 : EDIT, fixed Status bar flashing
2017-06-23 09:10:40 +00:00
SCRN.ClearEOLA pha
.1 pla
ldy #ScreenW
cmp (pData),y
bcs .8
inc
pha
lda #' '
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 06:37:21 +00:00
>SYSCALL PutChar.A
Kernel version 0.9 : EDIT, fixed Status bar flashing
2017-06-23 09:10:40 +00:00
bcc .1
plx
rts
.8 clc
.9 rts
*--------------------------------------
Kernel version 0.9 : More BugFix in EDIT
2017-03-06 20:08:38 +00:00
SCRN.InvLineA sta .2+1
lda #1
>PUSHA
lda .2+1
>PUSHA
>LDYA L.MSG.GOTOXY
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
Kernel version 0.9 : More BugFix in EDIT
2017-03-06 20:08:38 +00:00
bcs .9
>LDYA L.SEQ.INV
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
Kernel version 0.9 : More BugFix in EDIT
2017-03-06 20:08:38 +00:00
bcs .9
ldy #ScreenW
lda (pData),y
.1 pha
lda #' '
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 06:37:21 +00:00
>SYSCALL PutChar.A
Kernel version 0.9 : More BugFix in EDIT
2017-03-06 20:08:38 +00:00
pla
bcs .9
dec
bne .1
lda #1
>PUSHA
.2 lda #$ff
>PUSHA
>LDYA L.MSG.GOTOXY
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
Kernel version 0.9 : More BugFix in EDIT
2017-03-06 20:08:38 +00:00
.9 rts
*--------------------------------------
Code reorg
2016-01-21 07:05:23 +00:00
SCRN.GotoCurXCurY
ldy #CurX
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
tax
ldy #CurY
lda (pData),y
tay
GotoXY txa
inc
>PUSHA
tya
inc
inc
>PUSHA
>LDYA L.MSG.GOTOXY
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
Fix DEL bug (partially)
2016-01-22 16:29:11 +00:00
bcs .9
New Full Screen Editor
2016-01-04 07:25:43 +00:00
rts
Fix DEL bug (partially)
2016-01-22 16:29:11 +00:00
.9 jmp Ctrl.Q
New Full Screen Editor
2016-01-04 07:25:43 +00:00
*--------------------------------------
Code reorg
2016-01-21 07:05:23 +00:00
SCRN.UpdateViewPort
lda #$ff
New Full Screen Editor
2016-01-04 07:25:43 +00:00
sta bNotRepaint
.1 ldy #FileX
lda (pData),y
ldy #ScreenX
cmp (pData),y
bcs .2 out of left border ?
Kernel version 0.8 : EDIT, several bugfixes, code reorg....
2016-11-04 16:46:16 +00:00
ldy #ScreenX yes
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
dec
sta (pData),y
stz bNotRepaint
bra .1
Fixed The Editor scrolling issue. Getty now try to disable local echo in telnet terminal
2016-01-04 22:15:29 +00:00
.2 clc
ldy #ScreenX
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
Fixed The Editor scrolling issue. Getty now try to disable local echo in telnet terminal
2016-01-04 22:15:29 +00:00
ldy #ScreenW
adc (pData),y
dec
New Full Screen Editor
2016-01-04 07:25:43 +00:00
ldy #FileX
cmp (pData),y
bcs .3 out of right border ?
ldy #ScreenX
lda (pData),y
inc
sta (pData),y
stz bNotRepaint
bra .2
Kernel version 0.8 : EDIT, several bugfixes, code reorg....
2016-11-04 16:46:16 +00:00
.3 ldy #FileY+1
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
Kernel version 0.8 : EDIT, several bugfixes, code reorg....
2016-11-04 16:46:16 +00:00
tax
dey
lda (pData),y A,X = FileY
New Full Screen Editor
2016-01-04 07:25:43 +00:00
ldy #ScreenY
Kernel version 0.8 : EDIT, several bugfixes, code reorg....
2016-11-04 16:46:16 +00:00
cmp (pData),y
iny
txa
New Full Screen Editor
2016-01-04 07:25:43 +00:00
sbc (pData),y
bcs .4 out of top border ?
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
ldy #ScreenY move viewport up one line....
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
Kernel version 0.8 : EDIT, several bugfixes, code reorg....
2016-11-04 16:46:16 +00:00
sbc #0 CC from BCS
New Full Screen Editor
2016-01-04 07:25:43 +00:00
sta (pData),y
iny
lda (pData),y
sbc #0
sta (pData),y
Kernel version 0.8 : EDIT, several bugfixes, code reorg....
2016-11-04 16:46:16 +00:00
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bit bNotRepaint
bpl .3
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
jsr SCRN.scrollDn ...and move content one line down
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcc .3
Fix DEL bug (partially)
2016-01-22 16:29:11 +00:00
jmp Ctrl.Q
New Full Screen Editor
2016-01-04 07:25:43 +00:00
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
.4 ldy #ScreenY+1
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
tax
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
dey
lda (pData),y
Fixed The Editor scrolling issue. Getty now try to disable local echo in telnet terminal
2016-01-04 22:15:29 +00:00
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
ldy #ViewPortHm1
clc
adc (pData),y
bcc .41
inx
.41 ldy #FileY A,X = screen bottom
cmp (pData),y
New Full Screen Editor
2016-01-04 07:25:43 +00:00
txa
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
iny FileY > screen bottom ?
New Full Screen Editor
2016-01-04 07:25:43 +00:00
sbc (pData),y
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
bcs .5 CS : fileY>= screen bottom
New Full Screen Editor
2016-01-04 07:25:43 +00:00
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
* clc from BCS
ldy #ScreenY move viewport down one line....
New Full Screen Editor
2016-01-04 07:25:43 +00:00
lda (pData),y
adc #1
sta (pData),y
iny
lda (pData),y
adc #0
sta (pData),y
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
bit bNotRepaint
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bpl .4
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
jsr SCRN.scrollUp ...and move content one line up
Fix DEL bug (partially)
2016-01-22 16:29:11 +00:00
bcs .9
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
bra .4
New Full Screen Editor
2016-01-04 07:25:43 +00:00
.5 sec
ldy #FileX
lda (pData),y
ldy #ScreenX
sbc (pData),y
ldy #CurX
sta (pData),y
sec
ldy #FileY
lda (pData),y
ldy #ScreenY
sbc (pData),y
ldy #CurY
sta (pData),y
bit bNotRepaint
bmi .6
Kernel version 0.8 : EDIT, several bugfixes, code reorg....
2016-11-04 16:46:16 +00:00
Code reorg
2016-01-21 07:05:23 +00:00
jsr SCRN.UpdateMain
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
Kernel version 0.8 : EDIT, several bugfixes, code reorg....
2016-11-04 16:46:16 +00:00
Code reorg
2016-01-21 07:05:23 +00:00
.6 jsr SCRN.UpdateStatusBar
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
Kernel version 0.8 : EDIT, several bugfixes, code reorg....
2016-11-04 16:46:16 +00:00
Code reorg
2016-01-21 07:05:23 +00:00
jsr SCRN.GotoCurXCurY
Fix DEL bug (partially)
2016-01-22 16:29:11 +00:00
bcs .9
rts
.9 jmp Ctrl.Q
New Full Screen Editor
2016-01-04 07:25:43 +00:00
*--------------------------------------
Kernel version 0.9 : EDIT improved ANSI/VT100 support, bugfix
2017-03-06 16:58:05 +00:00
SCRN.scrollUp ldy #CurX
lda (pData),y
inc
>PUSHA
ldy #CurY
lda (pData),y
inc
inc
>PUSHA
>LDYA L.SEQ.SCROLLUP
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
ldy #ScreenY+1
lda (pData),y
tax
dey
lda (pData),y
clc
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
ldy #ViewPortHm1
adc (pData),y
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcc .1
inx
.1 jsr BUF.GetLineAX
bcs .9
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
ldy #ViewPortHm1
lda (pData),y
Code reorg
2016-01-21 07:05:23 +00:00
jsr SCRN.UpdateLineAtALenY
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
Fix DEL bug (partially)
2016-01-22 16:29:11 +00:00
rts
.9 jmp Ctrl.Q
New Full Screen Editor
2016-01-04 07:25:43 +00:00
*--------------------------------------
Kernel version 0.9 : EDIT improved ANSI/VT100 support, bugfix
2017-03-06 16:58:05 +00:00
SCRN.scrollDn ldy #CurX
lda (pData),y
inc
>PUSHA
New Full Screen Editor
2016-01-04 07:25:43 +00:00
Kernel version 0.9 : EDIT improved ANSI/VT100 support, bugfix
2017-03-06 16:58:05 +00:00
ldy #CurY
lda (pData),y
inc
inc
>PUSHA
>LDYA L.SEQ.SCROLLDN
Kernel 0.9.1 : Code reorganization & move to CSTR
2017-08-25 15:02:16 +00:00
>SYSCALL PrintF.YA
Kernel version 0.9 : EDIT improved ANSI/VT100 support, bugfix
2017-03-06 16:58:05 +00:00
bcs .9
Kernel version 0.8 : EDIT, added Ctrl-O,P,T,Y and W
2016-11-07 15:13:25 +00:00
ldy #ScreenY+1
lda (pData),y
tax
dey
lda (pData),y
jsr BUF.GetLineAX
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
lda #0
Code reorg
2016-01-21 07:05:23 +00:00
jsr SCRN.UpdateLineAtALenY
New Full Screen Editor
2016-01-04 07:25:43 +00:00
bcs .9
Fix DEL bug (partially)
2016-01-22 16:29:11 +00:00
rts
.9 jmp Ctrl.Q
New Full Screen Editor
2016-01-04 07:25:43 +00:00
*--------------------------------------
MAN
Kernel version 0.9 : MEDIA reorganisation
2017-03-29 15:48:15 +00:00
SAVE /A2OSX.SRC/BIN/EDIT.S.SCRN
LOAD /A2OSX.SRC/BIN/EDIT.S
New Full Screen Editor
2016-01-04 07:25:43 +00:00
ASM
Reference in New Issue Copy Permalink