mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2025-01-31 23:30:45 +00:00
Reverted previous fix to #142.
This commit is contained in:
parent
9ce495efb9
commit
ca9e62a583
@ -154,7 +154,7 @@ INKEY1 LDA CURSOR ; Add cursor
|
||||
LDA CURSORCP
|
||||
INKEY2 JSR PUTCHRC ; Toggle cursor
|
||||
INKEY3 LDA ESCFLAG
|
||||
BMI INKEYXXX ; Escape pending, return it
|
||||
BMI INKEYOK ; Escape pending, return it
|
||||
INKEY4 JSR KEYREAD ; Test for input, all can be trashed
|
||||
PLY
|
||||
BCC INKEYOK ; Char returned, return it
|
||||
@ -182,7 +182,7 @@ INKEYOUT PLA ; Drop stacked Y
|
||||
*
|
||||
INKEYOK PHA ; Save key or timeout
|
||||
PHP ; Save CC=key, CS=timeout
|
||||
INKEYXXX LDA OLDCHAR ; Prepare for main cursor
|
||||
LDA OLDCHAR ; Prepare for main cursor
|
||||
BIT VDUSTATUS
|
||||
BVC INKEYOFF2 ; No editing cursor
|
||||
JSR PUTCHRC ; Remove cursor
|
||||
|
Loading…
x
Reference in New Issue
Block a user