mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-27 00:55:55 +00:00
auxmem.bytwrd.s/auxmem.chario.s: removed redundant CLIs
This commit is contained in:
parent
cd29d9e30c
commit
ecc8669e84
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -254,7 +254,6 @@ WORD00 IF MAXLEN-OSTEXT-2
|
||||
INY ; Initial line length = zero
|
||||
FIN
|
||||
* STY FXLINES ; Reset line counter
|
||||
CLI
|
||||
BEQ :WORD00LP ; Enter main loop
|
||||
|
||||
:WORD00BELL LDA #$07 ; $07=BELL
|
||||
|
@ -137,7 +137,6 @@ INKEYGO PHX ; Save registers
|
||||
JSR COPYSWAP1 ; Swap to copy cursor
|
||||
INKEYGO2 JSR GETCHRC ; Get character under cursor
|
||||
STA OLDCHAR
|
||||
CLI
|
||||
BRA INKEY1 ; Turn cursor on
|
||||
|
||||
INKEYLP CLC
|
||||
@ -434,7 +433,6 @@ BYTE7E LDX #$00 ; $7E = ack detection of ESC
|
||||
BPL BYTE7DOK ; No Escape pending
|
||||
LDA FXESCEFFECT ; Process Escape effects
|
||||
BEQ BYTE7E2
|
||||
CLI ; Allow IRQs while flushing
|
||||
STA FXLINES ; Clear scroll counter
|
||||
* JSR STAREXEC0 ; Close any EXEC file
|
||||
* JSR FLUSHALL ; Flush all buffers
|
||||
|
Loading…
Reference in New Issue
Block a user