Added support for long button press in the main menu (like Tab) and in the activation menu (activation).

Atari/inputs.asm

@@ -108,6 +108,17 @@ Check2button
     rts
 .endp
 
+;--------------------------------------------------
+.proc WaitForLongPress
+;--------------------------------------------------
+    lda #0
+    sta pressTimer ; reset
+    jsr WaitForKeyRelease.StillWait
+    lda pressTimer
+    cmp #25  ; 1/2s
+    rts ; if CARRY is set then long press
+.endp
+
 ;--------------------------------------------------
 .proc WaitForKeyRelease
 ;--------------------------------------------------

Atari/textproc.asm

@@ -78,7 +78,7 @@
 OptionsMainLoop
 
     jsr OptionsInversion
-    jsr getkey
+    jsr GetKey
     bit escFlag
     spl:rts
 
@@ -124,11 +124,16 @@ OptionsNoLeft
 OptionsNoRight
     cmp #@kbcode._ret  ; $c ;Return key
     bne OptionsNoReturn
+    ; wait for long press
+    jsr WaitForLongPress
+    bcs TabPressed  ; if long press (fire or Return)
+EndOfOptions
     rts        ; options selected
 
 OptionsNoReturn
     cmp #@kbcode._tab    ; Tab key
     bne OptionsNoTab
+TabPressed
     jsr SelectNextGradient
 OptionsNoTab
     jmp OptionsMainLoop
@@ -409,7 +414,13 @@ ChoosingItemForPurchase
     cmp #@kbcode._left  ; $06  ; cursor left
     jeq ListChange
     cmp #@kbcode._ret  ; $0c ; Return
-    sne:rts
+    bne NoReturn
+    jsr WaitForLongPress
+    bcc exitthismenu    ; short press
+    jmp PurchaseWeaponNow   ; long press
+exitthismenu
+    rts
+NoReturn
     cmp #@kbcode._up  ; $e
     beq PurchaseKeyUp
     cmp #@kbcode._down  ;  $f

weapons.asm

@@ -1520,12 +1520,9 @@ pressedSpace
     ;we shoot here!!!
     lda #0
     sta ATRACT    ; reset atract mode
-    sta pressTimer ; reset
+    jsr WaitForLongPress
-    jsr WaitForKeyRelease.StillWait
+    bcc fire    ; short press
-    lda pressTimer
+    jmp callInventory   ; long press
-    cmp #25  ; 1/2s
-    bcc fire
-    jmp callInventory
 fire
     RTS
 .endp