Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-07-13 13:29:04 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-08-26 11:26:42 +02:00
parent 64e8b83244
commit 2261b0a937
4 changed files with 30 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

5
BIN/EDIT.S.BUF.txt
View File

@ -335,16 +335,21 @@ BUF.CopyTail ldy #0
BUF.ComputeCOffset BUF.ComputeCOffset
jsr BUF.GetLine jsr BUF.GetLine
bcs .9 bcs .9
phy save line length phy save line length
ldy #FileX ldy #FileX
lda (pData),y lda (pData),y
clc clc
adc BUF.LOffset adc BUF.LOffset
sta BUF.COffset sta BUF.COffset
lda #0 lda #0
adc BUF.LOffset+1 adc BUF.LOffset+1
sta BUF.COffset+1 sta BUF.COffset+1
ply ply
clc clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------

50
BIN/EDIT.S.CTRL.txt
View File

@ -57,7 +57,7 @@ Ctrl.DEL jsr BUF.ComputeCOffset
jsr Ctrl.BS jsr Ctrl.BS
bcs .9 bcs .9
jmp Ctrl.Z.1 jmp Ctrl.Z
.8 clc .8 clc
.9 rts .9 rts
@ -460,21 +460,20 @@ Ctrl.W jsr BUF.ComputeCOffset Y=line len
sta (pData),y sta (pData),y
bra Ctrl.D bra Ctrl.D
.8 rts .8
Ctrl.W.RTS rts
*-------------------------------------- *--------------------------------------
Ctrl.X jsr BUF.SelToClipboard Ctrl.X jsr BUF.SelToClipboard
bcs Ctrl.X.RTS bcs Ctrl.W.RTS
Ctrl.D jsr BUF.DelSel Ctrl.D jsr BUF.DelSel
bcs Ctrl.X.RTS bcs Ctrl.W.RTS
jsr SCRN.CursorAdjust jsr SCRN.CursorAdjust
jsr SCRN.UpdateMain jsr SCRN.UpdateMain
bcs Ctrl.X.RTS bcs Ctrl.W.RTS
jmp SCRN.UpdateStatusBar jmp SCRN.UpdateStatusBar
Ctrl.X.RTS rts
*-------------------------------------- *--------------------------------------
Ctrl.Y ldy #FileY+1 Ctrl.Y ldy #FileY+1
lda (pData),y lda (pData),y
@ -502,7 +501,7 @@ Ctrl.Y ldy #FileY+1
bra Ctrl.Y bra Ctrl.Y
.2 jsr BUF.GetLine Y=linelen .2 jsr BUF.GetLine
tya Y = line length tya Y = line length
>STA.G FileX >STA.G FileX
@ -512,35 +511,34 @@ Ctrl.Y ldy #FileY+1
Ctrl.Z jsr BUF.ComputeCOffset Ctrl.Z jsr BUF.ComputeCOffset
lda BUF.COffset lda BUF.COffset
cmp BufLen eor BufLen
bne .1
lda BUF.COffset+1 lda BUF.COffset+1
sbc BufLen+1 eor BufLen+1
bcc Ctrl.Z.1 bne .1
clc clc
Ctrl.Z.RTS rts rts
Ctrl.Z.1 jsr BUF.DelCharAtCursor .1 jsr BUF.DelCharAtCursor
bcs Ctrl.Z.RTS bcs Ctrl.W.RTS
cmp #C.CR did we DEL a CR ? cmp #C.CR did we DEL a CR ?
bne .1 beq Prompt.Help.Upd yes repaint whole screen
jsr SCRN.UpdateMain jsr SCRN.UpdateCurrentLine
bcs Ctrl.Z.RTS bcs Ctrl.W.RTS
jmp SCRN.UpdateStatusBar
.1 jsr SCRN.UpdateCurrentLine
bcs Ctrl.Z.RTS
jmp SCRN.UpdateStatusBar jmp SCRN.UpdateStatusBar
*-------------------------------------- *--------------------------------------
Prompt.Help >STZ.G PromptMode Prompt.Help >STZ.G PromptMode
jsr SCRN.UpdateMain Prompt.Help.Upd jsr SCRN.UpdateMain
bcs .9 bcs .9
jmp SCRN.UpdateStatusBar jmp SCRN.UpdateStatusBar
.9 rts .9
Prompt.Help.RTS rts
*-------------------------------------- *--------------------------------------
Prompt.Find cmp #3 Prompt.Find cmp #3
bne .1 bne .1
@ -549,7 +547,7 @@ Prompt.Find cmp #3
jmp SCRN.UpdateStatusBar jmp SCRN.UpdateStatusBar
.1 cmp #13 .1 cmp #C.CR
bne .2 bne .2
.2 .2
@ -566,7 +564,7 @@ Prompt.Replace cmp #3
bcs .9 bcs .9
rts rts
.1 cmp #13 .1 cmp #C.CR
bne .2 bne .2
.2 .2
@ -609,7 +607,7 @@ Prompt.Save cmp #3 Ctrl-C
bcs .9 bcs .9
rts rts
.2 cmp #127 .2 cmp #C.DEL
bne .3 bne .3
>LDA.G PromptBufPtr >LDA.G PromptBufPtr

1
BIN/EDIT.S.txt
View File

@ -487,6 +487,7 @@ MSG.HELP >PSTR "All commands: (* = Not yet implemented)"
>PSTR " Ctrl-W : Erase current line" >PSTR " Ctrl-W : Erase current line"
>PSTR " Ctrl-X : Cut block to clipboard" >PSTR " Ctrl-X : Cut block to clipboard"
>PSTR " Ctrl-Y : Go to end of file" >PSTR " Ctrl-Y : Go to end of file"
>PSTR " Ctrl-Z : Erase char under cursor"
.HS 00 .HS 00
*-------------------------------------- *--------------------------------------
MSG.NEWFILE .AZ "(new file)" MSG.NEWFILE .AZ "(new file)"