ESC updt #74

2026-05-20 22:33:43 +02:00 · 2022-05-22 10:59:06 -04:00
parent ec5838ebaf
commit 9a3cf1251f
3 changed files with 9 additions and 11 deletions
@@ -1175,6 +1175,9 @@ nextishigher
        
      lda kbcode
      and #$3f ;CTRL and SHIFT ellimination
+      cmp #28  ; ESC
+      bne getkeyend
+        mvx #1 escFlag
      bne getkeyend

 checkJoyGetKey
@@ -30,13 +30,10 @@ OptionsMainLoop

    jsr OptionsInversion
    jsr getkey
-    cmp #28  ; ESC
+    ldx escFlag
+    seq:rts
       
-    bne @+
-      mva #1 escFlag
-      rts
-       
-@   cmp #$f  ;cursor down
+    cmp #$f  ;cursor down
    bne OptionsNoDown
    inc:lda OptionsY
    cmp #maxoptions
@@ -879,11 +876,9 @@ endOfTankName

 CheckKeys
    jsr getkey
-    cmp #28  ; ESC
-    bne @+
-    mva #1 escFlag
-    rts
-@
+    ldx escFlag
+    seq:rts
+    
    ; is the char to be recorded?
    ldx #keycodesEnd-keycodes ;table was 38 chars long
 IsLetter