6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-11 11:30:13 +00:00
Code Issues Projects Releases Wiki Activity

Optimizations

Browse Source
This commit is contained in:
Fabrizio Caruso 2019-10-30 18:32:35 +01:00 committed by greg-king5
parent 78d660da55
commit 2bd798fa13
2 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libsrc/lynx/cgetc.s
View File

@ -19,14 +19,10 @@
; and Opt1 + Opt2 pressed '3'.
; So the keyboard returns '1', '2', '3', 'P', 'R', 'F' or '?'.
_cgetc:
lda KBEDG
bne _start
_cgetc:
jsr _kbhit ; Check for char available
beq _cgetc
_start:
lda KBSTL
ora KBEDG
ora KBSTL
ldx #0
and #1
beq @L5
@ -55,7 +51,6 @@ _start:
bra reset_and_exit
@L5:
lda KBEDG ; No Pause pressed
stz KBEDG
ora KBSTL
bit #$08
beq @L7

2
libsrc/lynx/kbhit.s
View File

@ -51,6 +51,6 @@ _kbhit:
sta KBNPR ; inverted previous ones pressed
stx KBPRV
lda KBEDG
L1: ldx #$00
L1: tax
rts