Merge pull request #462 from boriel/feature/make_input_bas_to_mimic_real_click_length

boriel · web-flow · commit c016343fbc65 · 2021-01-18T19:33:49.000+01:00
Make input to sound like original zx48 key taps
diff --git a/src/arch/zx48k/library/input.bas b/src/arch/zx48k/library/input.bas
@@ -50,7 +50,7 @@ FUNCTION input(MaxLen AS UINTEGER) AS STRING
             BEEPER EQU 0x3B5
 
             ld a, (PIP)
-            or a
+            cp 0xFF
             jr z, NO_CLICK
             push ix
             ld e, a
diff --git a/src/arch/zxnext/library/input.bas b/src/arch/zxnext/library/input.bas
@@ -50,7 +50,7 @@ FUNCTION input(MaxLen AS UINTEGER) AS STRING
             BEEPER EQU 0x3B5
 
             ld a, (PIP)
-            or a
+            cp 0xFF
             jr z, NO_CLICK
             push ix
             ld e, a
