+++ /dev/null
-/* 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