X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;f=src%2Flib%2F16_snd.c;h=e85fdf9b98683cd1fc27d7b05e08be3f0151874d;hb=734addea4c40d2e7fb6470bdf51ce96343a25e59;hp=5ade6445f2b89e83d4ec8fa12a3963f211b844ff;hpb=d9fad446dd122a219bf47f1ec3e9d72453505c9d;p=16.git
diff --git a/src/lib/16_snd.c b/src/lib/16_snd.c
old mode 100644
new mode 100755
index 5ade6445..e85fdf9b
--- a/src/lib/16_snd.c
+++ b/src/lib/16_snd.c
@@ -1,34 +1,33 @@
-/* Project 16 Source Code~
- * Copyright (C) 2012-2015 sparky4 & pngwen & andrius4669
- *
- * This file is part of Project 16.
- *
- * Project 16 is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 3 of the License, or
- * (at your option) any later version.
- *
- * Project 16 is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program. If not, see , or
- * write to the Free Software Foundation, Inc., 51 Franklin Street,
- * Fifth Floor, Boston, MA 02110-1301 USA.
- *
- */
-
-#include "src/lib/16_snd.h"
-
-void opl2out(word data, word reg)
+/* Project 16 Source Code~
+ * Copyright (C) 2012-2016 sparky4 & pngwen & andrius4669 & joncampbell123
+ *
+ * This file is part of Project 16.
+ *
+ * Project 16 is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * Project 16 is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see , or
+ * write to the Free Software Foundation, Inc., 51 Franklin Street,
+ * Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ */
+
+#include "src/lib/16_snd.h"
+
+void opl2out(word reg, word data)
{
- __asm
+ __asm
{
mov ax,reg
- mov dx,word ptr [OPLPORT]
+ mov dx,word ptr [ADLIB_FM_ADDRESS]
or ah,ah
jz @@1
add dx,2
@@ -43,15 +42,15 @@ void opl2out(word data, word reg)
mov cx,36
@@3: in al,dx
loop @@3
- }
+ }
}
-void opl3out(word data, word reg)
+void opl3out(word reg, word data)
{
- __asm
+ __asm
{
mov ax,reg
- mov dx,word ptr [OPLPORT]
+ mov dx,word ptr [ADLIB_FM_ADDRESS]
or ah,ah
jz @@1
add dx,2
@@ -63,15 +62,15 @@ void opl3out(word data, word reg)
mov cx,26
@@2: in al,dx
loop @@2
- }
+ }
}
-void opl3exp(word data)
+void opl3exp(word data)
{
- __asm
+ __asm
{
mov ax,data
- mov dx,word ptr [OPLPORT]
+ mov dx,word ptr [ADLIB_FM_ADDRESS]
add dx,2
out dx,al
mov cx,6
@@ -82,6 +81,114 @@ void opl3exp(word data)
out dx,al
mov cx,36
@@2: in al,dx
- loop @@2
+ loop @@2
}
-}
\ No newline at end of file
+}
+
+/* Function: FMResest *******************************************************
+*
+* Description: quick and dirty sound card reset (zeros all
+* registers).
+*
+*/
+void FMReset(void/*int percusiveMode*/)
+{
+ int i;
+
+ /* zero all registers */
+ for(i = MIN_REGISTER; i < MAX_REGISTER+1; i++) opl2out(i, 0);
+
+ /* allow FM chips to control the waveform of each operator */
+ opl2out(0x01, 0x20);
+
+ /* set rhythm enabled (6 melodic voices, 5 percussive) */
+ opl2out(0xBD, 0x20);
+
+ //FMSetPercusiveMode(percusiveMode);
+} /* End of FMReset */
+
+/* Function: FMKeyOff *******************************************************
+*
+* Parameters: voice - which voice to turn off.
+*
+* Description: turns off the specified voice.
+*
+*/
+void FMKeyOff(int voice)
+{
+ int regNum;
+
+ /* turn voice off */
+ regNum = 0xB0 + voice % 11;//NUMVOICE;
+ opl2out(regNum, 0x0E);
+} /* End of FMKeyOff */
+
+/* Function: FMKeyOn *******************************************************
+*
+* Parameters: voice - which voice to turn on.
+* freq - its frequency (note).
+* octave - its octave.
+*
+* Description: turns on a voice of specfied frequency and
+* octave.
+*
+*/
+void FMKeyOn(int voice, int freq, int octave)
+{
+ int regNum, tmp;
+
+ regNum = 0xA0 + voice % 11;//NUMVOICE;
+ opl2out(regNum, freq & 0xff);
+ regNum = 0xB0 + voice % 11;//NUMVOICE;
+ tmp = (freq >> 8) | (octave << 2) | 0x20;
+ opl2out(regNum, tmp);
+} /* End of FMKeyOn */
+
+/* Function: FMSetVoice *****************************************************
+*
+* Parameters: voiceNum - which voice to set.
+* ins - instrument to set voice.
+*
+* Description: sets the instrument of a voice.
+*
+*/
+void FMSetVoice(int voiceNum, FMInstrument *ins){
+ int opCellNum, cellOffset;
+
+ voiceNum %= 11;//NUMVOICE;
+ cellOffset = voiceNum % 3 + ((voiceNum / 3) << 3);
+
+ /* set sound characteristic */
+ opCellNum = 0x20 + (char)cellOffset;
+ opl2out(opCellNum, ins->SoundCharacteristic[0]);
+ opCellNum += 3;
+ opl2out(opCellNum, ins->SoundCharacteristic[1]);
+
+ /* set level/output */
+ opCellNum = 0x40 + (char)cellOffset;
+ opl2out(opCellNum, ins->Level[0]);
+ opCellNum += 3;
+ opl2out(opCellNum, ins->Level[1]);
+
+ /* set Attack/Decay */
+ opCellNum = 0x60 + (char)cellOffset;
+ opl2out(opCellNum, ins->AttackDecay[0]);
+ opCellNum += 3;
+ opl2out(opCellNum, ins->AttackDecay[1]);
+
+ /* set Sustain/Release */
+ opCellNum = 0x80 + (char)cellOffset;
+ opl2out(opCellNum, ins->SustainRelease[0]);
+ opCellNum += 3;
+ opl2out(opCellNum, ins->SustainRelease[1]);
+
+ /* set Wave Select */
+ opCellNum = 0xE0 + (char)cellOffset;
+ opl2out(opCellNum, ins->WaveSelect[0]);
+ opCellNum += 3;
+ opl2out(opCellNum, ins->WaveSelect[1]);
+
+ /* set Feedback/Selectivity */
+ opCellNum = (byte)0xC0 + (byte)voiceNum;
+ opl2out(opCellNum, ins->Feedback);
+} /* End of FMSetVoice */