Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-18 00:30:40 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-11-22 17:02:59 +01:00
parent fef666df2c
commit 91c0734c6b
2 changed files with 7 additions and 4 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.

11
BIN/EDIT.S.DLG.txt
View File

@ -142,9 +142,9 @@ DLG.Close ldy #S.DLG.H
ldy #S.DLG.Y ldy #S.DLG.Y
lda (ZPPTR1),y lda (ZPPTR1),y
sta TmpIndex sta TmpByte
>LDA.G ScreenY .1 >LDA.G ScreenY
clc clc
ldy #S.DLG.Y ldy #S.DLG.Y
adc (ZPPTR1),y adc (ZPPTR1),y
@ -154,15 +154,18 @@ DLG.Close ldy #S.DLG.H
adc #0 adc #0
sta TmpIndex+1 sta TmpIndex+1
.1 lda TmpIndex lda TmpIndex
ldx TmpIndex+1 ldx TmpIndex+1
jsr BUF.GetLineAX jsr BUF.GetLineAX
bcs .8 bcs .8
lda TmpIndex lda TmpByte
jsr SCRN.UpdateLineAtALenY jsr SCRN.UpdateLineAtALenY
inc TmpIndex inc TmpIndex
bne .2
inc TmpIndex+1
.2 inc TmpByte
dec TmpCount dec TmpCount
bne .1 bne .1