1 // SPDX-License-Identifier: GPL-2.0-or-later 1 // SPDX-License-Identifier: GPL-2.0-or-later
2 /* 2 /*
3 * Copyright (c) by Uros Bizjak <uros@kss-lok 3 * Copyright (c) by Uros Bizjak <uros@kss-loka.si>
4 * 4 *
5 * OPL2/OPL3/OPL4 FM routines for internal p 5 * OPL2/OPL3/OPL4 FM routines for internal percussion channels
6 */ 6 */
7 7
8 #include "opl3_voice.h" 8 #include "opl3_voice.h"
9 9
10 static const char snd_opl3_drum_table[47] = 10 static const char snd_opl3_drum_table[47] =
11 { 11 {
12 OPL3_BASSDRUM_ON, OPL3_BASSDRUM_ON, 12 OPL3_BASSDRUM_ON, OPL3_BASSDRUM_ON, OPL3_HIHAT_ON, /* 35 - 37 */
13 OPL3_SNAREDRUM_ON, OPL3_HIHAT_ON, 13 OPL3_SNAREDRUM_ON, OPL3_HIHAT_ON, OPL3_SNAREDRUM_ON, /* 38 - 40 */
14 OPL3_BASSDRUM_ON, OPL3_HIHAT_ON, 14 OPL3_BASSDRUM_ON, OPL3_HIHAT_ON, OPL3_BASSDRUM_ON, /* 41 - 43 */
15 OPL3_HIHAT_ON, OPL3_TOMTOM_ON, 15 OPL3_HIHAT_ON, OPL3_TOMTOM_ON, OPL3_HIHAT_ON, /* 44 - 46 */
16 OPL3_TOMTOM_ON, OPL3_TOMTOM_ON, 16 OPL3_TOMTOM_ON, OPL3_TOMTOM_ON, OPL3_CYMBAL_ON, /* 47 - 49 */
17 17
18 OPL3_TOMTOM_ON, OPL3_CYMBAL_ON, 18 OPL3_TOMTOM_ON, OPL3_CYMBAL_ON, OPL3_CYMBAL_ON, /* 50 - 52 */
19 OPL3_CYMBAL_ON, OPL3_CYMBAL_ON, 19 OPL3_CYMBAL_ON, OPL3_CYMBAL_ON, OPL3_CYMBAL_ON, /* 53 - 55 */
20 OPL3_HIHAT_ON, OPL3_CYMBAL_ON, 20 OPL3_HIHAT_ON, OPL3_CYMBAL_ON, OPL3_TOMTOM_ON, /* 56 - 58 */
21 OPL3_CYMBAL_ON, OPL3_TOMTOM_ON, 21 OPL3_CYMBAL_ON, OPL3_TOMTOM_ON, OPL3_TOMTOM_ON, /* 59 - 61 */
22 OPL3_HIHAT_ON, OPL3_TOMTOM_ON, 22 OPL3_HIHAT_ON, OPL3_TOMTOM_ON, OPL3_TOMTOM_ON, /* 62 - 64 */
23 23
24 OPL3_TOMTOM_ON, OPL3_TOMTOM_ON, 24 OPL3_TOMTOM_ON, OPL3_TOMTOM_ON, OPL3_TOMTOM_ON, /* 65 - 67 */
25 OPL3_TOMTOM_ON, OPL3_HIHAT_ON, 25 OPL3_TOMTOM_ON, OPL3_HIHAT_ON, OPL3_HIHAT_ON, /* 68 - 70 */
26 OPL3_HIHAT_ON, OPL3_HIHAT_ON, 26 OPL3_HIHAT_ON, OPL3_HIHAT_ON, OPL3_TOMTOM_ON, /* 71 - 73 */
27 OPL3_TOMTOM_ON, OPL3_TOMTOM_ON, 27 OPL3_TOMTOM_ON, OPL3_TOMTOM_ON, OPL3_TOMTOM_ON, /* 74 - 76 */
28 OPL3_TOMTOM_ON, OPL3_TOMTOM_ON, 28 OPL3_TOMTOM_ON, OPL3_TOMTOM_ON, OPL3_TOMTOM_ON, /* 77 - 79 */
29 OPL3_CYMBAL_ON, OPL3_CYMBAL_ON 29 OPL3_CYMBAL_ON, OPL3_CYMBAL_ON /* 80 - 81 */
30 }; 30 };
31 31
32 struct snd_opl3_drum_voice { 32 struct snd_opl3_drum_voice {
33 int voice; 33 int voice;
34 int op; 34 int op;
35 unsigned char am_vib; 35 unsigned char am_vib;
36 unsigned char ksl_level; 36 unsigned char ksl_level;
37 unsigned char attack_decay; 37 unsigned char attack_decay;
38 unsigned char sustain_release; 38 unsigned char sustain_release;
39 unsigned char feedback_connection; 39 unsigned char feedback_connection;
40 unsigned char wave_select; 40 unsigned char wave_select;
41 }; 41 };
42 42
43 struct snd_opl3_drum_note { 43 struct snd_opl3_drum_note {
44 int voice; 44 int voice;
45 unsigned char fnum; 45 unsigned char fnum;
46 unsigned char octave_f; 46 unsigned char octave_f;
47 unsigned char feedback_connection; 47 unsigned char feedback_connection;
48 }; 48 };
49 49
50 static const struct snd_opl3_drum_voice bass_o 50 static const struct snd_opl3_drum_voice bass_op0 = {6, 0, 0x00, 0x32, 0xf8, 0x66, 0x30, 0x00};
51 static const struct snd_opl3_drum_voice bass_o 51 static const struct snd_opl3_drum_voice bass_op1 = {6, 1, 0x00, 0x03, 0xf6, 0x57, 0x30, 0x00};
52 static const struct snd_opl3_drum_note bass_no 52 static const struct snd_opl3_drum_note bass_note = {6, 0x90, 0x09};
53 53
54 static const struct snd_opl3_drum_voice hihat 54 static const struct snd_opl3_drum_voice hihat = {7, 0, 0x00, 0x03, 0xf0, 0x06, 0x20, 0x00};
55 55
56 static const struct snd_opl3_drum_voice snare 56 static const struct snd_opl3_drum_voice snare = {7, 1, 0x00, 0x03, 0xf0, 0x07, 0x20, 0x02};
57 static const struct snd_opl3_drum_note snare_n 57 static const struct snd_opl3_drum_note snare_note = {7, 0xf4, 0x0d};
58 58
59 static const struct snd_opl3_drum_voice tomtom 59 static const struct snd_opl3_drum_voice tomtom = {8, 0, 0x02, 0x03, 0xf0, 0x06, 0x10, 0x00};
60 static const struct snd_opl3_drum_note tomtom_ 60 static const struct snd_opl3_drum_note tomtom_note = {8, 0xf4, 0x09};
61 61
62 static const struct snd_opl3_drum_voice cymbal 62 static const struct snd_opl3_drum_voice cymbal = {8, 1, 0x04, 0x03, 0xf0, 0x06, 0x10, 0x00};
63 63
64 /* 64 /*
65 * set drum voice characteristics 65 * set drum voice characteristics
66 */ 66 */
67 static void snd_opl3_drum_voice_set(struct snd 67 static void snd_opl3_drum_voice_set(struct snd_opl3 *opl3,
68 const stru 68 const struct snd_opl3_drum_voice *data)
69 { 69 {
70 unsigned char op_offset = snd_opl3_reg 70 unsigned char op_offset = snd_opl3_regmap[data->voice][data->op];
71 unsigned char voice_offset = data->voi 71 unsigned char voice_offset = data->voice;
72 unsigned short opl3_reg; 72 unsigned short opl3_reg;
73 73
74 /* Set OPL3 AM_VIB register */ 74 /* Set OPL3 AM_VIB register */
75 opl3_reg = OPL3_LEFT | (OPL3_REG_AM_VI 75 opl3_reg = OPL3_LEFT | (OPL3_REG_AM_VIB + op_offset);
76 opl3->command(opl3, opl3_reg, data->am 76 opl3->command(opl3, opl3_reg, data->am_vib);
77 77
78 /* Set OPL3 KSL_LEVEL register */ 78 /* Set OPL3 KSL_LEVEL register */
79 opl3_reg = OPL3_LEFT | (OPL3_REG_KSL_L 79 opl3_reg = OPL3_LEFT | (OPL3_REG_KSL_LEVEL + op_offset);
80 opl3->command(opl3, opl3_reg, data->ks 80 opl3->command(opl3, opl3_reg, data->ksl_level);
81 81
82 /* Set OPL3 ATTACK_DECAY register */ 82 /* Set OPL3 ATTACK_DECAY register */
83 opl3_reg = OPL3_LEFT | (OPL3_REG_ATTAC 83 opl3_reg = OPL3_LEFT | (OPL3_REG_ATTACK_DECAY + op_offset);
84 opl3->command(opl3, opl3_reg, data->at 84 opl3->command(opl3, opl3_reg, data->attack_decay);
85 85
86 /* Set OPL3 SUSTAIN_RELEASE register * 86 /* Set OPL3 SUSTAIN_RELEASE register */
87 opl3_reg = OPL3_LEFT | (OPL3_REG_SUSTA 87 opl3_reg = OPL3_LEFT | (OPL3_REG_SUSTAIN_RELEASE + op_offset);
88 opl3->command(opl3, opl3_reg, data->su 88 opl3->command(opl3, opl3_reg, data->sustain_release);
89 89
90 /* Set OPL3 FEEDBACK_CONNECTION regist 90 /* Set OPL3 FEEDBACK_CONNECTION register */
91 opl3_reg = OPL3_LEFT | (OPL3_REG_FEEDB 91 opl3_reg = OPL3_LEFT | (OPL3_REG_FEEDBACK_CONNECTION + voice_offset);
92 opl3->command(opl3, opl3_reg, data->fe 92 opl3->command(opl3, opl3_reg, data->feedback_connection);
93 93
94 /* Select waveform */ 94 /* Select waveform */
95 opl3_reg = OPL3_LEFT | (OPL3_REG_WAVE_ 95 opl3_reg = OPL3_LEFT | (OPL3_REG_WAVE_SELECT + op_offset);
96 opl3->command(opl3, opl3_reg, data->wa 96 opl3->command(opl3, opl3_reg, data->wave_select);
97 } 97 }
98 98
99 /* 99 /*
100 * Set drum voice pitch 100 * Set drum voice pitch
101 */ 101 */
102 static void snd_opl3_drum_note_set(struct snd_ 102 static void snd_opl3_drum_note_set(struct snd_opl3 *opl3,
103 const struc 103 const struct snd_opl3_drum_note *data)
104 { 104 {
105 unsigned char voice_offset = data->voi 105 unsigned char voice_offset = data->voice;
106 unsigned short opl3_reg; 106 unsigned short opl3_reg;
107 107
108 /* Set OPL3 FNUM_LOW register */ 108 /* Set OPL3 FNUM_LOW register */
109 opl3_reg = OPL3_LEFT | (OPL3_REG_FNUM_ 109 opl3_reg = OPL3_LEFT | (OPL3_REG_FNUM_LOW + voice_offset);
110 opl3->command(opl3, opl3_reg, data->fn 110 opl3->command(opl3, opl3_reg, data->fnum);
111 111
112 /* Set OPL3 KEYON_BLOCK register */ 112 /* Set OPL3 KEYON_BLOCK register */
113 opl3_reg = OPL3_LEFT | (OPL3_REG_KEYON 113 opl3_reg = OPL3_LEFT | (OPL3_REG_KEYON_BLOCK + voice_offset);
114 opl3->command(opl3, opl3_reg, data->oc 114 opl3->command(opl3, opl3_reg, data->octave_f);
115 } 115 }
116 116
117 /* 117 /*
118 * Set drum voice volume and position 118 * Set drum voice volume and position
119 */ 119 */
120 static void snd_opl3_drum_vol_set(struct snd_o 120 static void snd_opl3_drum_vol_set(struct snd_opl3 *opl3,
121 const struct 121 const struct snd_opl3_drum_voice *data,
122 int vel, str 122 int vel, struct snd_midi_channel *chan)
123 { 123 {
124 unsigned char op_offset = snd_opl3_reg 124 unsigned char op_offset = snd_opl3_regmap[data->voice][data->op];
125 unsigned char voice_offset = data->voi 125 unsigned char voice_offset = data->voice;
126 unsigned char reg_val; 126 unsigned char reg_val;
127 unsigned short opl3_reg; 127 unsigned short opl3_reg;
128 128
129 /* Set OPL3 KSL_LEVEL register */ 129 /* Set OPL3 KSL_LEVEL register */
130 reg_val = data->ksl_level; 130 reg_val = data->ksl_level;
131 snd_opl3_calc_volume(®_val, vel, ch 131 snd_opl3_calc_volume(®_val, vel, chan);
132 opl3_reg = OPL3_LEFT | (OPL3_REG_KSL_L 132 opl3_reg = OPL3_LEFT | (OPL3_REG_KSL_LEVEL + op_offset);
133 opl3->command(opl3, opl3_reg, reg_val) 133 opl3->command(opl3, opl3_reg, reg_val);
134 134
135 /* Set OPL3 FEEDBACK_CONNECTION regist 135 /* Set OPL3 FEEDBACK_CONNECTION register */
136 /* Set output voice connection */ 136 /* Set output voice connection */
137 reg_val = data->feedback_connection | 137 reg_val = data->feedback_connection | OPL3_STEREO_BITS;
138 if (chan->gm_pan < 43) 138 if (chan->gm_pan < 43)
139 reg_val &= ~OPL3_VOICE_TO_RIGH 139 reg_val &= ~OPL3_VOICE_TO_RIGHT;
140 if (chan->gm_pan > 85) 140 if (chan->gm_pan > 85)
141 reg_val &= ~OPL3_VOICE_TO_LEFT 141 reg_val &= ~OPL3_VOICE_TO_LEFT;
142 opl3_reg = OPL3_LEFT | (OPL3_REG_FEEDB 142 opl3_reg = OPL3_LEFT | (OPL3_REG_FEEDBACK_CONNECTION + voice_offset);
143 opl3->command(opl3, opl3_reg, reg_val) 143 opl3->command(opl3, opl3_reg, reg_val);
144 } 144 }
145 145
146 /* 146 /*
147 * Loads drum voices at init time 147 * Loads drum voices at init time
148 */ 148 */
149 void snd_opl3_load_drums(struct snd_opl3 *opl3 149 void snd_opl3_load_drums(struct snd_opl3 *opl3)
150 { 150 {
151 snd_opl3_drum_voice_set(opl3, &bass_op 151 snd_opl3_drum_voice_set(opl3, &bass_op0);
152 snd_opl3_drum_voice_set(opl3, &bass_op 152 snd_opl3_drum_voice_set(opl3, &bass_op1);
153 snd_opl3_drum_note_set(opl3, &bass_not 153 snd_opl3_drum_note_set(opl3, &bass_note);
154 154
155 snd_opl3_drum_voice_set(opl3, &hihat); 155 snd_opl3_drum_voice_set(opl3, &hihat);
156 156
157 snd_opl3_drum_voice_set(opl3, &snare); 157 snd_opl3_drum_voice_set(opl3, &snare);
158 snd_opl3_drum_note_set(opl3, &snare_no 158 snd_opl3_drum_note_set(opl3, &snare_note);
159 159
160 snd_opl3_drum_voice_set(opl3, &tomtom) 160 snd_opl3_drum_voice_set(opl3, &tomtom);
161 snd_opl3_drum_note_set(opl3, &tomtom_n 161 snd_opl3_drum_note_set(opl3, &tomtom_note);
162 162
163 snd_opl3_drum_voice_set(opl3, &cymbal) 163 snd_opl3_drum_voice_set(opl3, &cymbal);
164 } 164 }
165 165
166 /* 166 /*
167 * Switch drum voice on or off 167 * Switch drum voice on or off
168 */ 168 */
169 void snd_opl3_drum_switch(struct snd_opl3 *opl 169 void snd_opl3_drum_switch(struct snd_opl3 *opl3, int note, int vel, int on_off,
170 struct snd_midi_chan 170 struct snd_midi_channel *chan)
171 { 171 {
172 unsigned char drum_mask; 172 unsigned char drum_mask;
173 const struct snd_opl3_drum_voice *drum 173 const struct snd_opl3_drum_voice *drum_voice;
174 174
175 if (!(opl3->drum_reg & OPL3_PERCUSSION 175 if (!(opl3->drum_reg & OPL3_PERCUSSION_ENABLE))
176 return; 176 return;
177 177
178 if ((note < 35) || (note > 81)) 178 if ((note < 35) || (note > 81))
179 return; 179 return;
180 drum_mask = snd_opl3_drum_table[note - 180 drum_mask = snd_opl3_drum_table[note - 35];
181 181
182 if (on_off) { 182 if (on_off) {
183 switch (drum_mask) { 183 switch (drum_mask) {
184 case OPL3_BASSDRUM_ON: 184 case OPL3_BASSDRUM_ON:
185 drum_voice = &bass_op1 185 drum_voice = &bass_op1;
186 break; 186 break;
187 case OPL3_HIHAT_ON: 187 case OPL3_HIHAT_ON:
188 drum_voice = &hihat; 188 drum_voice = &hihat;
189 break; 189 break;
190 case OPL3_SNAREDRUM_ON: 190 case OPL3_SNAREDRUM_ON:
191 drum_voice = &snare; 191 drum_voice = &snare;
192 break; 192 break;
193 case OPL3_TOMTOM_ON: 193 case OPL3_TOMTOM_ON:
194 drum_voice = &tomtom; 194 drum_voice = &tomtom;
195 break; 195 break;
196 case OPL3_CYMBAL_ON: 196 case OPL3_CYMBAL_ON:
197 drum_voice = &cymbal; 197 drum_voice = &cymbal;
198 break; 198 break;
199 default: 199 default:
200 drum_voice = &tomtom; 200 drum_voice = &tomtom;
201 } 201 }
202 202
203 snd_opl3_drum_vol_set(opl3, dr 203 snd_opl3_drum_vol_set(opl3, drum_voice, vel, chan);
204 opl3->drum_reg |= drum_mask; 204 opl3->drum_reg |= drum_mask;
205 } else { 205 } else {
206 opl3->drum_reg &= ~drum_mask; 206 opl3->drum_reg &= ~drum_mask;
207 } 207 }
208 opl3->command(opl3, OPL3_LEFT | OPL3_R 208 opl3->command(opl3, OPL3_LEFT | OPL3_REG_PERCUSSION,
209 opl3->drum_reg); 209 opl3->drum_reg);
210 } 210 }
211 211
Linux® is a registered trademark of Linus Torvalds in the United States and other countries.
TOMOYO® is a registered trademark of NTT DATA CORPORATION.