From da01286037dd1e396b15d756a401240c14b277a7 Mon Sep 17 00:00:00 2001
From: Fabrizio Caruso <fabrizio_caruso@hotmail.com>
Date: Tue, 15 Oct 2019 22:25:26 +0200
Subject: [PATCH 076/170] Tentative solution for cgetc in Lynx
---
libsrc/lynx/cgetc.s | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/libsrc/lynx/cgetc.s b/libsrc/lynx/cgetc.s
index b61fb44f..19cfdaff 100644
--- a/libsrc/lynx/cgetc.s
+++ b/libsrc/lynx/cgetc.s
@@ -20,13 +20,13 @@
; So the keyboard returns '1', '2', '3', 'P', 'R', 'F' or '?'.
_cgetc:
- lda KBSTL
- ora KBEDG
- bne @L1
jsr _kbhit ; Check for char available
+ bne @L1
tax ; Test result
bra _cgetc
@L1:
+ lda KBSTL
+ ora KBEDG
ldx #0
and #1
beq @L6
--
2.26.0