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