]> 4ch.mooo.com Git - 16.git/blob - src/lib/16_snd.c
gvar.video.page[1].pattern_ofs removed because it is just (0x10000UL - (uint16_t...
[16.git] / src / lib / 16_snd.c
1 /* Project 16 Source Code~\r
2  * Copyright (C) 2012-2016 sparky4 & pngwen & andrius4669 & joncampbell123\r
3  *\r
4  * This file is part of Project 16.\r
5  *\r
6  * Project 16 is free software; you can redistribute it and/or modify\r
7  * it under the terms of the GNU General Public License as published by\r
8  * the Free Software Foundation; either version 3 of the License, or\r
9  * (at your option) any later version.\r
10  *\r
11  * Project 16 is distributed in the hope that it will be useful,\r
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
14  * GNU General Public License for more details.\r
15  *\r
16  * You should have received a copy of the GNU General Public License\r
17  * along with this program.  If not, see <http://www.gnu.org/licenses/>, or\r
18  * write to the Free Software Foundation, Inc., 51 Franklin Street,\r
19  * Fifth Floor, Boston, MA 02110-1301 USA.\r
20  *\r
21  */\r
22 \r
23 #include "src/lib/16_snd.h"\r
24 \r
25 void opl2out(word reg, word data)\r
26 {\r
27         __asm\r
28         {\r
29                 mov     ax,reg\r
30                 mov     dx,word ptr [ADLIB_FM_ADDRESS]\r
31                 or      ah,ah\r
32                 jz      @@1\r
33                 add     dx,2\r
34 @@1:    out     dx,al\r
35                 mov     cx,6\r
36 @@2:    in      al,dx\r
37                 loop    @@2\r
38                 inc     dl\r
39                 mov     ax,data\r
40                 out     dx,al\r
41                 dec     dl\r
42                 mov     cx,36\r
43 @@3:    in      al,dx\r
44                 loop    @@3\r
45         }\r
46 }\r
47 \r
48 void opl3out(word reg, word data)\r
49 {\r
50         __asm\r
51         {\r
52                 mov     ax,reg\r
53                 mov     dx,word ptr [ADLIB_FM_ADDRESS]\r
54                 or      ah,ah\r
55                 jz      @@1\r
56                 add     dx,2\r
57 @@1:    out     dx,al\r
58                 inc     dl\r
59                 mov     ax,data\r
60                 out     dx,al\r
61                 dec     dl\r
62                 mov     cx,26\r
63 @@2:    in      al,dx\r
64                 loop    @@2\r
65         }\r
66 }\r
67 \r
68 void opl3exp(word data)\r
69 {\r
70         __asm\r
71         {\r
72                 mov     ax,data\r
73                 mov     dx,word ptr [ADLIB_FM_ADDRESS]\r
74                 add     dx,2\r
75                 out     dx,al\r
76                 mov     cx,6\r
77 @@1:    in      al,dx\r
78                 loop    @@1\r
79                 inc     dl\r
80                 mov     al,ah\r
81                 out     dx,al\r
82                 mov     cx,36\r
83 @@2:    in      al,dx\r
84                 loop    @@2\r
85         }\r
86 }\r
87 \r
88 /* Function: FMResest *******************************************************\r
89 *\r
90 *     Description:        quick and dirty sound card reset (zeros all\r
91 *                         registers).\r
92 *\r
93 */\r
94 void FMReset(void/*int percusiveMode*/)\r
95 {\r
96         int i;\r
97 \r
98         /* zero all registers */\r
99         for(i = MIN_REGISTER; i < MAX_REGISTER+1; i++) opl2out(i, 0);\r
100 \r
101         /* allow FM chips to control the waveform of each operator */\r
102         opl2out(0x01, 0x20);\r
103 \r
104         /* set rhythm enabled (6 melodic voices, 5 percussive) */\r
105         opl2out(0xBD, 0x20);\r
106 \r
107         //FMSetPercusiveMode(percusiveMode);\r
108 } /* End of FMReset */\r
109 \r
110 /* Function: FMKeyOff *******************************************************\r
111 *\r
112 *     Parameters:        voice - which voice to turn off.\r
113 *\r
114 *     Description:        turns off the specified voice.\r
115 *\r
116 */\r
117 void FMKeyOff(int voice)\r
118 {\r
119         int regNum;\r
120 \r
121         /* turn voice off */\r
122         regNum = 0xB0 + voice % 11;//NUMVOICE;\r
123         opl2out(regNum, 0x0E);\r
124 } /* End of FMKeyOff */\r
125 \r
126 /* Function: FMKeyOn *******************************************************\r
127 *\r
128 *     Parameters:        voice - which voice to turn on.\r
129 *                         freq - its frequency (note).\r
130 *                         octave - its octave.\r
131 *\r
132 *     Description:        turns on a voice of specfied frequency and\r
133 *                         octave.\r
134 *\r
135 */\r
136 void FMKeyOn(int voice, int freq, int octave)\r
137 {\r
138         int regNum, tmp;\r
139 \r
140         regNum = 0xA0 + voice % 11;//NUMVOICE;\r
141         opl2out(regNum, freq & 0xff);\r
142         regNum = 0xB0 + voice % 11;//NUMVOICE;\r
143         tmp = (freq >> 8) | (octave << 2) | 0x20;\r
144         opl2out(regNum, tmp);\r
145 } /* End of FMKeyOn */\r
146 \r
147 /* Function: FMSetVoice *****************************************************\r
148 *\r
149 *     Parameters:        voiceNum - which voice to set.\r
150 *                         ins - instrument to set voice.\r
151 *\r
152 *     Description:        sets the instrument of a voice.\r
153 *\r
154 */\r
155 void FMSetVoice(int voiceNum, FMInstrument *ins){\r
156         int opCellNum, cellOffset;\r
157 \r
158         voiceNum %= 11;//NUMVOICE;\r
159         cellOffset = voiceNum % 3 + ((voiceNum / 3) << 3);\r
160 \r
161         /* set sound characteristic */\r
162         opCellNum = 0x20 + (char)cellOffset;\r
163         opl2out(opCellNum, ins->SoundCharacteristic[0]);\r
164         opCellNum += 3;\r
165         opl2out(opCellNum, ins->SoundCharacteristic[1]);\r
166 \r
167         /* set level/output */\r
168         opCellNum = 0x40 + (char)cellOffset;\r
169         opl2out(opCellNum, ins->Level[0]);\r
170         opCellNum += 3;\r
171         opl2out(opCellNum, ins->Level[1]);\r
172 \r
173         /* set Attack/Decay */\r
174         opCellNum = 0x60 + (char)cellOffset;\r
175         opl2out(opCellNum, ins->AttackDecay[0]);\r
176         opCellNum += 3;\r
177         opl2out(opCellNum, ins->AttackDecay[1]);\r
178 \r
179         /* set Sustain/Release */\r
180         opCellNum = 0x80 + (char)cellOffset;\r
181         opl2out(opCellNum, ins->SustainRelease[0]);\r
182         opCellNum += 3;\r
183         opl2out(opCellNum, ins->SustainRelease[1]);\r
184 \r
185         /* set Wave Select */\r
186         opCellNum = 0xE0 + (char)cellOffset;\r
187         opl2out(opCellNum, ins->WaveSelect[0]);\r
188         opCellNum += 3;\r
189         opl2out(opCellNum, ins->WaveSelect[1]);\r
190 \r
191         /* set Feedback/Selectivity */\r
192         opCellNum = (byte)0xC0 + (byte)voiceNum;\r
193         opl2out(opCellNum, ins->Feedback);\r
194 } /* End of FMSetVoice */\r