Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-03 03:29:38 +00:00
Code Issues Projects Releases Wiki Activity

Fix to #142 (Escape during *HELP -> spurious error)

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-09-24 01:30:57 -04:00
parent 54bce84745
commit 6609426f8a
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

4
auxmem.chario.s
View File

@ -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

2
auxmem.init.s
View File

@ -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