From: qufb <93520295+qufb@users.noreply.github.com>
Date: Wed, 29 Jun 2022 22:00:04 +0000 (+0100)
Subject: Fix key up for typematic
X-Git-Tag: v2.04~89
X-Git-Url: https://notaz.gp2x.de/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e979d6d74eb1cb2dfd84b5aa930624613cf03542;p=picodrive.git

Fix key up for typematic
---

diff --git a/pico/pico/memory.c b/pico/pico/memory.c
index c2e09046..2f63de39 100644
--- a/pico/pico/memory.c
+++ b/pico/pico/memory.c
@@ -230,6 +230,10 @@ static u32 PicoRead8_pico_kb(u32 a)
            else
               elprintf(EL_PICOHW, "PicoPicohw.kb.key_state: SHIFT DOWN\n");
           }
+          // Must register key up while typematic not active (expected by Kibodeu Piko)
+          if ((d & 8) == 0) {
+            d |= 1; // Send key up a.k.a. break
+          }
         }
         if (PicoPicohw.kb.key_state == KEY_UP
             || PicoPicohw.kb.shift_state == SHIFT_UP_HELD_DOWN