Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-03 22:30:09 +00:00
Code Issues Projects Releases Wiki Activity

Merge branch 'jgharston-main'

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-10-14 04:08:44 -04:00
commit b65d7ff0e7
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
auxmem.chario.s
View File

@ -426,14 +426,10 @@ KBDDONE RTS
BYTE7E LDX #$00 ; $7E = ack detection of ESC
BIT ESCFLAG
BPL BYTE7DOK ; No Escape pending
LDY FXEXEC ; See if *EXEC is active
BEQ :NOEXEC
LDA #0 ; Close *EXEC file
STA FXEXEC
JSR OSFIND
:NOEXEC LDA FXESCEFFECT ; Process Escape effects
LDA FXESCEFFECT ; Process Escape effects
BEQ BYTE7E2
STA FXLINES ; Clear scroll counter
STX FXLINES ; Clear scroll counter
JSR CMDEXEC0 ; Close any EXEC file
* JSR FLUSHALL ; Flush all buffers
BYTE7E2 LDX #$FF ; X=$FF, Escape was pending
BYTE7C CLC ; &7C = clear escape condition