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

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-11-06 07:42:14 +01:00
parent 9a1ea30e6e
commit 807432e2af
2 changed files with 16 additions and 18 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.

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

@ -281,7 +281,9 @@ Ctrl.O ldy #FileY+1
jmp SCRN.UpdateViewPort
.8 pla
jmp Ctrl.T
*--------------------------------------
Ctrl.T jsr SCRN.Home
jmp SCRN.UpdateViewPort
*--------------------------------------
Ctrl.P ldy #FileY+1
lda (pData),y
@ -316,7 +318,19 @@ Ctrl.P ldy #FileY+1
.8 pla
pla
jmp Ctrl.Y
*--------------------------------------
Ctrl.Y jsr BUF.GetNextLine
bcs .1
>INCW.G FileY
bra Ctrl.Y
.1 jsr BUF.GetLine
tya Y = line length
>STA.G FileX
jmp SCRN.UpdateViewPort
*--------------------------------------
Ctrl.R lda #PromptModeReplace
>STA.G PromptMode
@ -350,22 +364,6 @@ Ctrl.S lda #PromptModeSave
jmp SCRN.UpdateStatusBar
*--------------------------------------
Ctrl.T jsr SCRN.Home
jmp SCRN.UpdateViewPort
*--------------------------------------
Ctrl.Y jsr BUF.GetNextLine
bcs .1
>INCW.G FileY
bra Ctrl.Y
.1 jsr BUF.GetLine
tya Y = line length
>STA.G FileX
jmp SCRN.UpdateViewPort
*--------------------------------------
Ctrl.FS jsr BUF.GetLine
bcs .8