fix scroll off-by-one

2024-05-28 21:41:27 +00:00 · 2021-04-21 18:29:43 -07:00 · 2021-04-21 18:29:43 -07:00 · d86614f81b
commit d86614f81b
parent 8f2e01cc23
2 changed files with 8 additions and 13 deletions
--- 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

--- 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