diff options
| author | B. Watson <urchlay@slackware.uk> | 2026-03-13 03:14:46 -0400 |
|---|---|---|
| committer | B. Watson <urchlay@slackware.uk> | 2026-03-13 03:14:46 -0400 |
| commit | cdc45d44b4d96d147cda026df283a9bb0fcb3018 (patch) | |
| tree | e68376ef9c9ba006195f182afe44606d9ec55b06 /src/keyclick.s | |
| parent | fc503a1093f3d971e1bc2082122031a0761bd9ed (diff) | |
| download | fujinet-chat-cdc45d44b4d96d147cda026df283a9bb0fcb3018.tar.gz | |
fix keyclick for special keys
Diffstat (limited to 'src/keyclick.s')
| -rw-r--r-- | src/keyclick.s | 16 |
1 files changed, 6 insertions, 10 deletions
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 |