From 6432cb2d21ecbb5fb407f25da38d2c5a9a1a6f78 Mon Sep 17 00:00:00 2001 From: Jose Rodriguez Date: Mon, 18 Jan 2021 19:08:05 +0100 Subject: [PATCH] Make input to sound like original zx48 key taps Use POKE 23609, -1 (or 255) to mute it. --- src/arch/zx48k/library/input.bas | 2 +- src/arch/zxnext/library/input.bas | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/arch/zx48k/library/input.bas b/src/arch/zx48k/library/input.bas index f7fd059a0..2ed0a1811 100644 --- 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 index f7fd059a0..2ed0a1811 100644 --- 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