mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-06-02 11:41:30 +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
|
INY ; Initial line length = zero
|
||||||
FIN
|
FIN
|
||||||
* STY FXLINES ; Reset line counter
|
* STY FXLINES ; Reset line counter
|
||||||
CLI
|
|
||||||
BEQ :WORD00LP ; Enter main loop
|
BEQ :WORD00LP ; Enter main loop
|
||||||
|
|
||||||
:WORD00BELL LDA #$07 ; $07=BELL
|
:WORD00BELL LDA #$07 ; $07=BELL
|
||||||
|
|
|
@ -137,7 +137,6 @@ INKEYGO PHX ; Save registers
|
||||||
JSR COPYSWAP1 ; Swap to copy cursor
|
JSR COPYSWAP1 ; Swap to copy cursor
|
||||||
INKEYGO2 JSR GETCHRC ; Get character under cursor
|
INKEYGO2 JSR GETCHRC ; Get character under cursor
|
||||||
STA OLDCHAR
|
STA OLDCHAR
|
||||||
CLI
|
|
||||||
BRA INKEY1 ; Turn cursor on
|
BRA INKEY1 ; Turn cursor on
|
||||||
|
|
||||||
INKEYLP CLC
|
INKEYLP CLC
|
||||||
|
@ -434,7 +433,6 @@ BYTE7E LDX #$00 ; $7E = ack detection of ESC
|
||||||
BPL BYTE7DOK ; No Escape pending
|
BPL BYTE7DOK ; No Escape pending
|
||||||
LDA FXESCEFFECT ; Process Escape effects
|
LDA FXESCEFFECT ; Process Escape effects
|
||||||
BEQ BYTE7E2
|
BEQ BYTE7E2
|
||||||
CLI ; Allow IRQs while flushing
|
|
||||||
STA FXLINES ; Clear scroll counter
|
STA FXLINES ; Clear scroll counter
|
||||||
* JSR STAREXEC0 ; Close any EXEC file
|
* JSR STAREXEC0 ; Close any EXEC file
|
||||||
* JSR FLUSHALL ; Flush all buffers
|
* JSR FLUSHALL ; Flush all buffers
|
||||||
|
|
Loading…
Reference in New Issue
Block a user