mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-27 16:55:31 +00:00
Fix to #142 (Escape during *HELP -> spurious error)
This commit is contained in:
parent
54bce84745
commit
6609426f8a
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -154,7 +154,7 @@ INKEY1 LDA CURSOR ; Add cursor
|
|||||||
LDA CURSORCP
|
LDA CURSORCP
|
||||||
INKEY2 JSR PUTCHRC ; Toggle cursor
|
INKEY2 JSR PUTCHRC ; Toggle cursor
|
||||||
INKEY3 LDA ESCFLAG
|
INKEY3 LDA ESCFLAG
|
||||||
BMI INKEYOK ; Escape pending, return it
|
BMI INKEYXXX ; Escape pending, return it
|
||||||
INKEY4 JSR KEYREAD ; Test for input, all can be trashed
|
INKEY4 JSR KEYREAD ; Test for input, all can be trashed
|
||||||
PLY
|
PLY
|
||||||
BCC INKEYOK ; Char returned, return it
|
BCC INKEYOK ; Char returned, return it
|
||||||
@ -182,7 +182,7 @@ INKEYOUT PLA ; Drop stacked Y
|
|||||||
*
|
*
|
||||||
INKEYOK PHA ; Save key or timeout
|
INKEYOK PHA ; Save key or timeout
|
||||||
PHP ; Save CC=key, CS=timeout
|
PHP ; Save CC=key, CS=timeout
|
||||||
LDA OLDCHAR ; Prepare for main cursor
|
INKEYXXX LDA OLDCHAR ; Prepare for main cursor
|
||||||
BIT VDUSTATUS
|
BIT VDUSTATUS
|
||||||
BVC INKEYOFF2 ; No editing cursor
|
BVC INKEYOFF2 ; No editing cursor
|
||||||
JSR PUTCHRC ; Remove cursor
|
JSR PUTCHRC ; Remove cursor
|
||||||
|
@ -209,7 +209,7 @@ BYTE00 BEQ BYTE00A ; OSBYTE 0,0 - generate error
|
|||||||
RTS ; %000x1xxx host type, 'A'pple
|
RTS ; %000x1xxx host type, 'A'pple
|
||||||
BYTE00A BRK
|
BYTE00A BRK
|
||||||
DB $F7
|
DB $F7
|
||||||
HELLO ASC 'Applecorn MOS 2022-09-23'
|
HELLO ASC 'Applecorn MOS 2022-09-24'
|
||||||
DB $00 ; Unify MOS messages
|
DB $00 ; Unify MOS messages
|
||||||
GSSPEED DB $00 ; $80 if GS is fast, $00 for slow
|
GSSPEED DB $00 ; $80 if GS is fast, $00 for slow
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user