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