Allways use GetKey

2026-05-20 22:33:43 +02:00 · 2023-10-26 14:19:03 +02:00
parent 573b71566b
commit 803dfdf9a3
4 changed files with 9 additions and 59 deletions
@@ -432,10 +432,15 @@ getKeyAfterWait
    lda kbcode
    cmp #@kbcode._none
    beq checkJoyGetKey
+    pha
    and #$3f                   ; CTRL and SHIFT ellimination
    cmp #@kbcode._esc          ; 28  ; ESC
-    bne getkeyend
-      mvy #$80 escFlag
+    beq EscPressed
+    pla
+    jmp getkeyend
+EscPressed
+    pla
+    mvy #$80 escFlag
    bne getkeyend

 checkJoyGetKey