6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-05 17:32:02 +00:00
Code Issues Projects Releases Wiki Activity

Fix speaker octave settings

Browse Source
This commit is contained in:
David Schmenk 2018-02-06 10:32:52 -08:00
parent 75499af5d5
commit 31f9a207b2
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/libsrc/sndseq.pla
View File

@ -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