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-11-18 07:59:17 +01:00
parent 7f593583f4
commit a29ddf7f75
2 changed files with 14 additions and 5 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.

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

@ -271,9 +271,18 @@ Ctrl.CR jsr BUF.ComputeCOffset
>LDYA L.SEQ.CEOL >LDYA L.SEQ.CEOL
>SYSCALL printf >SYSCALL printf
bcs .9 bcs .9
>INCW.G FileY
>STZ.G FileX >STZ.G FileX
>LDA.G CurY
inc
>DEBUG
>CMP.G ViewPortHm1
beq .8 Bottom line, all done
>STA.G CurY
dec
>CMP.G ViewPortHm1
beq .1 No scoll needed
>LDA.G ScreenH >LDA.G ScreenH
dec dec
@ -287,16 +296,16 @@ Ctrl.CR jsr BUF.ComputeCOffset
>SYSCALL printf >SYSCALL printf
bcs .9 bcs .9
jsr SCRN.UpdateCurrentLine
>LDA.G ScreenH >LDA.G ScreenH
dec dec
>PUSHA >PUSHA
>PUSHBI 1 >PUSHBI 1
>LDYA L.SEQ.SCROLLRGN >LDYA L.SEQ.SCROLLRGN
>SYSCALL printf >SYSCALL printf
.1 jsr SCRN.UpdateCurrentLine
.8 clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
Ctrl.O ldy #FileY+1 Ctrl.O ldy #FileY+1