Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-08-15 08:27:29 +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
parent 94244c5557 4a91ab7a24
commit b65d7ff0e7
1 changed files with 3 additions and 7 deletions
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 BYTE7E LDX #$00 ; $7E = ack detection of ESC
BIT ESCFLAG BIT ESCFLAG
BPL BYTE7DOK ; No Escape pending BPL BYTE7DOK ; No Escape pending
LDY FXEXEC ; See if *EXEC is active LDA FXESCEFFECT ; Process Escape effects
BEQ :NOEXEC
LDA #0 ; Close *EXEC file
STA FXEXEC
JSR OSFIND
:NOEXEC LDA FXESCEFFECT ; Process Escape effects
BEQ BYTE7E2 BEQ BYTE7E2
STA FXLINES ; Clear scroll counter STX FXLINES ; Clear scroll counter
JSR CMDEXEC0 ; Close any EXEC file
* JSR FLUSHALL ; Flush all buffers * JSR FLUSHALL ; Flush all buffers
BYTE7E2 LDX #$FF ; X=$FF, Escape was pending BYTE7E2 LDX #$FF ; X=$FF, Escape was pending
BYTE7C CLC ; &7C = clear escape condition BYTE7C CLC ; &7C = clear escape condition