mirror of
https://github.com/A2osX/A2osX.git
synced 2025-04-10 00:37:11 +00:00
Kernel 0.93+
This commit is contained in:
parent
9a1ea30e6e
commit
807432e2af
Binary file not shown.
@ -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
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user