FIFO Flush fix

Author: GSoftwareDevelopment

drvs/MIDIBox.a65

@@ -11,7 +11,7 @@
   jmp driver.flush
   jmp driver.stop
 
-DESC	dta c'MIDIBox Driver 2.0 by GSD',$9B
+DESC	dta c'MIDIBox Driver 2.0a by GSD',$9B
 
   .endl
 
@@ -176,6 +176,13 @@ flush_timeout:
     sta fifo_tail
 
 flush_done:
+
+waitFrame:
+    bit VCOUNT
+    bmi *-3
+    bit VCOUNT
+    bpl *-3
+
     pla:tax
 
     rts

drvs/MIDICar.a65

@@ -11,7 +11,7 @@
   jmp driver.flush
   jmp driver.stop
 
-DESC	dta c'MIDICar Driver 2.1 by GSD',$9B
+DESC	dta c'MIDICar Driver 2.1a by GSD',$9B
 
   .endl
 
@@ -37,7 +37,7 @@ DESC	dta c'MIDICar Driver 2.1 by GSD',$9B
 ; Start serial port service
 
   .local Start
-    bit isMCInit
+    lda isMCInit
     bne exitStart
 
     lda #1
@@ -116,6 +116,13 @@ waitOnMC:
     jmp flushLoop
 
 endFlush:
+
+waitFrame:
+    bit VCOUNT
+    bmi *-3
+    bit VCOUNT
+    bpl *-3
+
     sty FIFO_Tail
 
     cli
@@ -128,7 +135,7 @@ endFlush:
 
   .local Stop
 
-    bit isMCInit
+    lda isMCInit
     beq exitUnInit
 
     bcc noFlush

drvs/MIDIMate.a65

@@ -11,7 +11,7 @@
   jmp driver.flush
   jmp driver.stop
 
-DESC	dta c'MIDIMate Driver 2.0 by GSD',$9B
+DESC	dta c'MIDIMate Driver 2.0a by GSD',$9B
 
   .endl
 
@@ -48,6 +48,10 @@ DESC	dta c'MIDIMate Driver 2.0 by GSD',$9B
     lda pactl
     and #$f7
     sta pactl
+; set COMMAND LINE active
+    lda pbctl
+    and #$f7
+    sta pbctl
 
 ; set serial
     LDA #%00000111	; $07
@@ -159,6 +163,13 @@ flush_timeout:
     sta fifo_tail
 
 flush_done:
+
+waitFrame:
+    bit VCOUNT
+    bmi *-3
+    bit VCOUNT
+    bpl *-3
+
     pla:tax
 
     rts
@@ -189,6 +200,10 @@ noFlush:
     lda pactl
     ora #$08
     sta pactl
+; clear COMMAND LINE
+    lda pbctl
+    ora #$08
+    sta pbctl
 
 ; Clear interrupts
 ; (5) serial input data ready

drvs/atari.hea

@@ -23,3 +23,6 @@ SEROUT		= $D20D
 IRQEN		= $D20E
 
 PACTL       = $d302
+PBCTL       = $d303
+
+VCOUNT      = $D40B