6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-07 23:29:39 +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 '?'.
_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