avoid extra keypress in scroll

2024-06-24 08:29:42 +00:00 · 2021-06-07 14:27:54 -07:00 · 2021-06-07 14:27:54 -07:00 · e4f6ed2a26
commit e4f6ed2a26
parent 3129a8d4e2
1 changed files with 6 additions and 5 deletions
--- a/src/print.a
+++ b/src/print.a
@ -241,22 +241,23 @@ CheckLogKeys
         cpy   #$D4
         bne   .skipkey
         cpx   #0
-         beq   .nolog
+         bne   .skipkey
+
+.nolog
+         rts

 .checkkey
         jsr   WaitForKey

 .skipkey
-         cmp   #k_left
-         beq   .checkup
         cmp   #k_up
         beq   .checkup
         cmp   #k_right
         beq   .checkdown
         cmp   #k_down
         beq   .checkdown
-.nolog
-         rts
+         cmp   #k_left
+         bne   .nolog

 .checkup
         lda   .startline1+2