From cdc45d44b4d96d147cda026df283a9bb0fcb3018 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Fri, 13 Mar 2026 03:14:46 -0400
Subject: fix keyclick for special keys

---
 src/keyclick.s | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

(limited to 'src/keyclick.s')

diff --git a/src/keyclick.s b/src/keyclick.s
index bbe613c..3b4a591 100644
--- a/src/keyclick.s
+++ b/src/keyclick.s
@@ -1,5 +1,6 @@
  .include "atari.inc"
  .export _keyclick
+ .import _cgetc
 
 ; keyclick.s - just what you think it is.
 
@@ -9,16 +10,11 @@
  ;.ifdef REAL_KEYCLICK
  .if 1
 
-; Copied from OS ROM source, 12 bytes of code. Because of the repeated
-; stx WSYNC, you don't want to use this if you're using DLIs.
-; Preserves A and Y, returns with X=$ff, N set, Z clear.
-_keyclick:
- ldx #$7f
-@rc1:
- stx CONSOL
- stx WSYNC
- dex
- bpl @rc1
+ ; used to my own STA WSYNC loop, but that didn't respect NOCLIK on
+ ; XL/XE machines.
+ lda #0
+ sta CH
+ jsr _cgetc
  rts
 
  .else
-- 
cgit v1.2.3