Kernel 0.93+

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

Binary file not shown.

View File

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