allow right arrow to progress slideshow immediately

2025-01-27 09:34:09 +00:00 · 2019-09-09 23:04:17 -04:00 · 2019-09-09 23:04:17 -04:00 · e370dbfa93
commit e370dbfa93
parent 282fbd9806
3 changed files with 7 additions and 3 deletions
--- a/src/constants.a
+++ b/src/constants.a
@ -9,7 +9,7 @@
 ; D000..E4E9 - persistent data structures (gGlobalPrefsStore, gGamesListStore)
 ; ...end of data and start of code are approximate, in between is unused...
 ; ...if they ever overlap, things will go boom...
-; E9C2..FFF9 - main program code
+; E9B8..FFF9 - main program code
 ; FFFA..FFFF - NMI, reset, IRQ vectors
 ;
 ; LC RAM BANK 2
--- a/src/ui.common.a
+++ b/src/ui.common.a
@ -287,6 +287,10 @@ ExecuteTransitionAndWait
         bmi   +
         dex
         bpl   -
+        lda   KBD
+         cmp   #$95
+         bne   +
+         bit   CLEARKBD
 +        rts

 ;------------------------------------------------------------------------------
--- a/src/ui.search.mode.a
+++ b/src/ui.search.mode.a
@ -37,9 +37,9 @@ SearchMode
         ; we want to switch to Browse Mode with the keyboard still hot so
         ; that mode finds and dispatches the arrow key.

-         cmp   #$8B                  ; right arrow switches to browse mode
+         cmp   #$8B                  ; up arrow switches to browse mode
         beq   @arrow
-         cmp   #$95                  ; also up arrow
+         cmp   #$95                  ; also right arrow
         beq   @arrow
         cmp   #$8A                  ; also down arrow
         bne   @notArrow