From 31f9a207b2321dd81759de9d10eb9c7d9e1f6618 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Tue, 6 Feb 2018 10:32:52 -0800
Subject: [PATCH] Fix speaker octave settings

---
 src/libsrc/sndseq.pla | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/libsrc/sndseq.pla b/src/libsrc/sndseq.pla
index c60cb9a..7d6222c 100755
--- a/src/libsrc/sndseq.pla
+++ b/src/libsrc/sndseq.pla
@@ -371,7 +371,7 @@ def mbTicklePSG(pVIA)
     return 0
 end
 def mbSearch(slot)
-    if MACHID <> $F2 and slot >= 0 and slot <= 7// Apple 3
+    if slot >= 0 and slot <= 7
         if slot
             mbVIA1 = mbTicklePSG($C000 + (slot << 8))
             if mbVIA1
@@ -807,16 +807,16 @@ when MACHID & MACHID_MODEL
         if ^instr
             mbSlot = mbSearch(^(instr + 1) - '0')
         fin
-        if mbSlot < 0
-            //
-            // No MockingBoard - scale octave0 for speaker
-            //
-            for instr = 0 to 11
-                spkrOctave0[instr] = mbOctave0[instr]/NOTEDIV
-            next
-        fin
         break
 wend
+if mbSlot < 0
+    //
+    // No MockingBoard - scale octave0 for speaker
+    //
+    for instr = 0 to 11
+        spkrOctave0[instr] = mbOctave0[instr]/NOTEDIV
+    next
+fin
 
 done