From d86614f81b4e7dbd1096dcaecfd4ed545a780a06 Mon Sep 17 00:00:00 2001 From: Peter Ferrie <peter.ferrie@gmail.com> Date: Wed, 21 Apr 2021 18:29:43 -0700 Subject: [PATCH] fix scroll off-by-one --- src/print.a | 19 +++++++------------ src/strings/en.a | 2 +- 2 files changed, 8 insertions(+), 13 deletions(-) diff --git a/src/print.a b/src/print.a index 1935944..d001bb5 100755 --- a/src/print.a +++ b/src/print.a @@ -234,23 +234,18 @@ CacheDst CheckLogKeys ldx CacheDst+1 ldy CacheDst+2 - cpy #$D4 - bne .yeslog - cpx #0 - beq .nolog - -.yeslog stx .startline1+1 sty .startline1+2 stx .startline2+1 sty .startline2+2 - pha - jsr .substart - pla - bmi .skipkey + cpy #$D4 + bne .skipkey + cpx #0 + beq .nolog .checkkey jsr WaitForKey + .skipkey cmp #k_left beq .checkup @@ -315,10 +310,10 @@ CheckLogKeys jmp .checkkey .checkdown - lda .endline1+2 + lda .startline1+2 cmp CacheDst+2 bne .scrolldown - lda .endline1+1 + lda .startline1+1 cmp CacheDst+1 beq .checkkey diff --git a/src/strings/en.a b/src/strings/en.a index 8265b82..7484bd0 100755 --- a/src/strings/en.a +++ b/src/strings/en.a @@ -344,7 +344,7 @@ StringTableHigh .passport !text "Passport ",$00 .header - !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-04-20",$00 + !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-04-21",$00 .bar9 !text "_________",$00 .bar18