silence phoneme on reset if MB speech chip present

src/4cade.a

@@ -52,6 +52,11 @@ Reenter
          sta   $C000                 ; Turn 80STORE switch off
          ldx   #$ff
          txs                         ; so that we never trash the reset vector
+         lda   #$c0                  ; duration=11 phoneme=000000 (pause)
+
+SilenceIsGolden
+         sta   $bf40                 ; C = SSI reg 0, S/S I or A = 6522#1 port b data
+                                     ; SMC to MB slot by init code, if appropriate
          jsr   SwitchToBank2
          jsr   DisableAccelerator    ; back to 1 MHz (especially important on IIgs
                                      ; which restores default speed on Ctrl-Reset)

src/4cade.init.a

@@ -239,6 +239,15 @@
          stx   MockingboardStuff     ; save mockingboard slot and type
          txa                         ; requires RAM1 write
          php
+         bmi   @mb_speech
+         asl
+         bpl   @no_speech
+         lsr
+@mb_speech
+         and   #7
+         ora   #$C0
+         sta   SilenceIsGolden + 2
+@no_speech
          jsr   BuildVBLFunction      ; requires ROM read, RAM1 write
          plp
          beq   @done_with_mb