Briefly enable IRQs in WORD07 to allow queue to drain.

2022-11-07 15:58:19 -05:00 · 2022-11-07 15:58:19 -05:00 · 5e5dc22b08
parent a7d00985bf
commit 5e5dc22b08
2 changed files with 3 additions and 1 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/auxmem.audio.s
+++ b/auxmem.audio.s
@ -25,7 +25,9 @@ WORD07      INY
            BIT   :RTS                       ; Set V, means flush buffer
            JSR   CNPHND                     ; Go flush buffer
            PLY
-:WAITLOOP   LDA   $C000                      ; See if key pressed
+:WAITLOOP   CLI                              ; Allow IRQS for a few cycles
+            SEI                              ; (So queue can be emptied)
+            LDA   $C000                      ; See if key pressed
            BPL   :NOKEY
            EOR   #$80
            JSR   KBDCHKESC                  ; Was Escape pressed?