6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-09 17:33:00 +00:00
Code Issues Projects Releases Wiki Activity

Tentative solution for cgetc in Lynx

Browse Source
This commit is contained in:
Fabrizio Caruso 2019-10-15 22:25:26 +02:00 committed by greg-king5
parent f3d898d6a3
commit da01286037
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libsrc/lynx/cgetc.s
View File

@ -20,13 +20,13 @@
; So the keyboard returns '1', '2', '3', 'P', 'R', 'F' or '?'. ; So the keyboard returns '1', '2', '3', 'P', 'R', 'F' or '?'.
_cgetc: _cgetc:
lda KBSTL
ora KBEDG
bne @L1
jsr _kbhit ; Check for char available jsr _kbhit ; Check for char available
bne @L1
tax ; Test result tax ; Test result
bra _cgetc bra _cgetc
@L1: @L1:
lda KBSTL
ora KBEDG
ldx #0 ldx #0
and #1 and #1
beq @L6 beq @L6