Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-04-06 02:40:10 +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
jsr BUF.GetLine
bcs .9
phy save line length
ldy #FileX
lda (pData),y
clc
adc BUF.LOffset
sta BUF.COffset
lda #0
adc BUF.LOffset+1
sta BUF.COffset+1
ply
clc
.9 rts
*--------------------------------------

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

@ -57,7 +57,7 @@ Ctrl.DEL jsr BUF.ComputeCOffset
jsr Ctrl.BS
bcs .9
jmp Ctrl.Z.1
jmp Ctrl.Z
.8 clc
.9 rts
@ -460,21 +460,20 @@ Ctrl.W jsr BUF.ComputeCOffset Y=line len
sta (pData),y
bra Ctrl.D
.8 rts
.8
Ctrl.W.RTS rts
*--------------------------------------
Ctrl.X jsr BUF.SelToClipboard
bcs Ctrl.X.RTS
bcs Ctrl.W.RTS
Ctrl.D jsr BUF.DelSel
bcs Ctrl.X.RTS
bcs Ctrl.W.RTS
jsr SCRN.CursorAdjust
jsr SCRN.UpdateMain
bcs Ctrl.X.RTS
bcs Ctrl.W.RTS
jmp SCRN.UpdateStatusBar
Ctrl.X.RTS rts
*--------------------------------------
Ctrl.Y ldy #FileY+1
lda (pData),y
@ -502,7 +501,7 @@ Ctrl.Y ldy #FileY+1
bra Ctrl.Y
.2 jsr BUF.GetLine Y=linelen
.2 jsr BUF.GetLine
tya Y = line length
>STA.G FileX
@ -512,35 +511,34 @@ Ctrl.Y ldy #FileY+1
Ctrl.Z jsr BUF.ComputeCOffset
lda BUF.COffset
cmp BufLen
eor BufLen
bne .1
lda BUF.COffset+1
sbc BufLen+1
bcc Ctrl.Z.1
eor BufLen+1
bne .1
clc
Ctrl.Z.RTS rts
rts
Ctrl.Z.1 jsr BUF.DelCharAtCursor
bcs Ctrl.Z.RTS
.1 jsr BUF.DelCharAtCursor
bcs Ctrl.W.RTS
cmp #C.CR did we DEL a CR ?
bne .1
beq Prompt.Help.Upd yes repaint whole screen
jsr SCRN.UpdateMain
bcs Ctrl.Z.RTS
jmp SCRN.UpdateStatusBar
.1 jsr SCRN.UpdateCurrentLine
bcs Ctrl.Z.RTS
jsr SCRN.UpdateCurrentLine
bcs Ctrl.W.RTS
jmp SCRN.UpdateStatusBar
*--------------------------------------
Prompt.Help >STZ.G PromptMode
jsr SCRN.UpdateMain
Prompt.Help.Upd jsr SCRN.UpdateMain
bcs .9
jmp SCRN.UpdateStatusBar
.9 rts
.9
Prompt.Help.RTS rts
*--------------------------------------
Prompt.Find cmp #3
bne .1
@ -549,7 +547,7 @@ Prompt.Find cmp #3
jmp SCRN.UpdateStatusBar
.1 cmp #13
.1 cmp #C.CR
bne .2
.2
@ -566,7 +564,7 @@ Prompt.Replace cmp #3
bcs .9
rts
.1 cmp #13
.1 cmp #C.CR
bne .2
.2
@ -609,7 +607,7 @@ Prompt.Save cmp #3 Ctrl-C
bcs .9
rts
.2 cmp #127
.2 cmp #C.DEL
bne .3
>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-X : Cut block to clipboard"
>PSTR " Ctrl-Y : Go to end of file"
>PSTR " Ctrl-Z : Erase char under cursor"
.HS 00
*--------------------------------------
MSG.NEWFILE .AZ "(new file)"