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