1// SPDX-License-Identifier: GPL-2.0-or-later
2/*
3 * Copyright (c) by Jaroslav Kysela <perex@perex.cz>
4 */
5
6#include <linux/delay.h>
7#include <linux/interrupt.h>
8#include <linux/time.h>
9#include <sound/core.h>
10#include <sound/gus.h>
11
12extern int snd_gf1_synth_init(struct snd_gus_card * gus);
13extern void snd_gf1_synth_done(struct snd_gus_card * gus);
14
15/*
16 * ok.. default interrupt handlers...
17 */
18
19static void snd_gf1_default_interrupt_handler_midi_out(struct snd_gus_card * gus)
20{
21 snd_gf1_uart_cmd(gus, b: gus->gf1.uart_cmd &= ~0x20);
22}
23
24static void snd_gf1_default_interrupt_handler_midi_in(struct snd_gus_card * gus)
25{
26 snd_gf1_uart_cmd(gus, b: gus->gf1.uart_cmd &= ~0x80);
27}
28
29static void snd_gf1_default_interrupt_handler_timer1(struct snd_gus_card * gus)
30{
31 snd_gf1_i_write8(gus, SNDRV_GF1_GB_SOUND_BLASTER_CONTROL, data: gus->gf1.timer_enabled &= ~4);
32}
33
34static void snd_gf1_default_interrupt_handler_timer2(struct snd_gus_card * gus)
35{
36 snd_gf1_i_write8(gus, SNDRV_GF1_GB_SOUND_BLASTER_CONTROL, data: gus->gf1.timer_enabled &= ~8);
37}
38
39static void snd_gf1_default_interrupt_handler_wave_and_volume(struct snd_gus_card * gus, struct snd_gus_voice * voice)
40{
41 snd_gf1_i_ctrl_stop(gus, reg: 0x00);
42 snd_gf1_i_ctrl_stop(gus, reg: 0x0d);
43}
44
45static void snd_gf1_default_interrupt_handler_dma_write(struct snd_gus_card * gus)
46{
47 snd_gf1_i_write8(gus, reg: 0x41, data: 0x00);
48}
49
50static void snd_gf1_default_interrupt_handler_dma_read(struct snd_gus_card * gus)
51{
52 snd_gf1_i_write8(gus, reg: 0x49, data: 0x00);
53}
54
55void snd_gf1_set_default_handlers(struct snd_gus_card * gus, unsigned int what)
56{
57 if (what & SNDRV_GF1_HANDLER_MIDI_OUT)
58 gus->gf1.interrupt_handler_midi_out = snd_gf1_default_interrupt_handler_midi_out;
59 if (what & SNDRV_GF1_HANDLER_MIDI_IN)
60 gus->gf1.interrupt_handler_midi_in = snd_gf1_default_interrupt_handler_midi_in;
61 if (what & SNDRV_GF1_HANDLER_TIMER1)
62 gus->gf1.interrupt_handler_timer1 = snd_gf1_default_interrupt_handler_timer1;
63 if (what & SNDRV_GF1_HANDLER_TIMER2)
64 gus->gf1.interrupt_handler_timer2 = snd_gf1_default_interrupt_handler_timer2;
65 if (what & SNDRV_GF1_HANDLER_VOICE) {
66 struct snd_gus_voice *voice;
67
68 voice = &gus->gf1.voices[what & 0xffff];
69 voice->handler_wave =
70 voice->handler_volume = snd_gf1_default_interrupt_handler_wave_and_volume;
71 voice->handler_effect = NULL;
72 voice->volume_change = NULL;
73 }
74 if (what & SNDRV_GF1_HANDLER_DMA_WRITE)
75 gus->gf1.interrupt_handler_dma_write = snd_gf1_default_interrupt_handler_dma_write;
76 if (what & SNDRV_GF1_HANDLER_DMA_READ)
77 gus->gf1.interrupt_handler_dma_read = snd_gf1_default_interrupt_handler_dma_read;
78}
79
80/*
81
82 */
83
84static void snd_gf1_clear_regs(struct snd_gus_card * gus)
85{
86 unsigned long flags;
87
88 spin_lock_irqsave(&gus->reg_lock, flags);
89 inb(GUSP(gus, IRQSTAT));
90 snd_gf1_write8(gus, reg: 0x41, data: 0); /* DRAM DMA Control Register */
91 snd_gf1_write8(gus, reg: 0x45, data: 0); /* Timer Control */
92 snd_gf1_write8(gus, reg: 0x49, data: 0); /* Sampling Control Register */
93 spin_unlock_irqrestore(lock: &gus->reg_lock, flags);
94}
95
96static void snd_gf1_look_regs(struct snd_gus_card * gus)
97{
98 unsigned long flags;
99
100 spin_lock_irqsave(&gus->reg_lock, flags);
101 snd_gf1_look8(gus, reg: 0x41); /* DRAM DMA Control Register */
102 snd_gf1_look8(gus, reg: 0x49); /* Sampling Control Register */
103 inb(GUSP(gus, IRQSTAT));
104 snd_gf1_read8(gus, reg: 0x0f); /* IRQ Source Register */
105 spin_unlock_irqrestore(lock: &gus->reg_lock, flags);
106}
107
108/*
109 * put selected GF1 voices to initial stage...
110 */
111
112void snd_gf1_smart_stop_voice(struct snd_gus_card * gus, unsigned short voice)
113{
114 unsigned long flags;
115
116 spin_lock_irqsave(&gus->reg_lock, flags);
117 snd_gf1_select_voice(gus, voice);
118#if 0
119 printk(KERN_DEBUG " -%i- smart stop voice - volume = 0x%x\n", voice, snd_gf1_i_read16(gus, SNDRV_GF1_VW_VOLUME));
120#endif
121 snd_gf1_ctrl_stop(gus, SNDRV_GF1_VB_ADDRESS_CONTROL);
122 snd_gf1_ctrl_stop(gus, SNDRV_GF1_VB_VOLUME_CONTROL);
123 spin_unlock_irqrestore(lock: &gus->reg_lock, flags);
124}
125
126void snd_gf1_stop_voice(struct snd_gus_card * gus, unsigned short voice)
127{
128 unsigned long flags;
129
130 spin_lock_irqsave(&gus->reg_lock, flags);
131 snd_gf1_select_voice(gus, voice);
132#if 0
133 printk(KERN_DEBUG " -%i- stop voice - volume = 0x%x\n", voice, snd_gf1_i_read16(gus, SNDRV_GF1_VW_VOLUME));
134#endif
135 snd_gf1_ctrl_stop(gus, SNDRV_GF1_VB_ADDRESS_CONTROL);
136 snd_gf1_ctrl_stop(gus, SNDRV_GF1_VB_VOLUME_CONTROL);
137 if (gus->gf1.enh_mode)
138 snd_gf1_write8(gus, SNDRV_GF1_VB_ACCUMULATOR, data: 0);
139 spin_unlock_irqrestore(lock: &gus->reg_lock, flags);
140#if 0
141 snd_gf1_lfo_shutdown(gus, voice, ULTRA_LFO_VIBRATO);
142 snd_gf1_lfo_shutdown(gus, voice, ULTRA_LFO_TREMOLO);
143#endif
144}
145
146static void snd_gf1_clear_voices(struct snd_gus_card * gus, unsigned short v_min,
147 unsigned short v_max)
148{
149 unsigned long flags;
150 unsigned int daddr;
151 unsigned short i, w_16;
152
153 daddr = gus->gf1.default_voice_address << 4;
154 for (i = v_min; i <= v_max; i++) {
155#if 0
156 if (gus->gf1.syn_voices)
157 gus->gf1.syn_voices[i].flags = ~VFLG_DYNAMIC;
158#endif
159 spin_lock_irqsave(&gus->reg_lock, flags);
160 snd_gf1_select_voice(gus, voice: i);
161 snd_gf1_ctrl_stop(gus, SNDRV_GF1_VB_ADDRESS_CONTROL); /* Voice Control Register = voice stop */
162 snd_gf1_ctrl_stop(gus, SNDRV_GF1_VB_VOLUME_CONTROL); /* Volume Ramp Control Register = ramp off */
163 if (gus->gf1.enh_mode)
164 snd_gf1_write8(gus, SNDRV_GF1_VB_MODE, data: gus->gf1.memory ? 0x02 : 0x82); /* Deactivate voice */
165 w_16 = snd_gf1_read8(gus, SNDRV_GF1_VB_ADDRESS_CONTROL) & 0x04;
166 snd_gf1_write16(gus, SNDRV_GF1_VW_FREQUENCY, data: 0x400);
167 snd_gf1_write_addr(gus, SNDRV_GF1_VA_START, addr: daddr, w_16bit: w_16);
168 snd_gf1_write_addr(gus, SNDRV_GF1_VA_END, addr: daddr, w_16bit: w_16);
169 snd_gf1_write8(gus, SNDRV_GF1_VB_VOLUME_START, data: 0);
170 snd_gf1_write8(gus, SNDRV_GF1_VB_VOLUME_END, data: 0);
171 snd_gf1_write8(gus, SNDRV_GF1_VB_VOLUME_RATE, data: 0);
172 snd_gf1_write16(gus, SNDRV_GF1_VW_VOLUME, data: 0);
173 snd_gf1_write_addr(gus, SNDRV_GF1_VA_CURRENT, addr: daddr, w_16bit: w_16);
174 snd_gf1_write8(gus, SNDRV_GF1_VB_PAN, data: 7);
175 if (gus->gf1.enh_mode) {
176 snd_gf1_write8(gus, SNDRV_GF1_VB_ACCUMULATOR, data: 0);
177 snd_gf1_write16(gus, SNDRV_GF1_VW_EFFECT_VOLUME, data: 0);
178 snd_gf1_write16(gus, SNDRV_GF1_VW_EFFECT_VOLUME_FINAL, data: 0);
179 }
180 spin_unlock_irqrestore(lock: &gus->reg_lock, flags);
181#if 0
182 snd_gf1_lfo_shutdown(gus, i, ULTRA_LFO_VIBRATO);
183 snd_gf1_lfo_shutdown(gus, i, ULTRA_LFO_TREMOLO);
184#endif
185 }
186}
187
188void snd_gf1_stop_voices(struct snd_gus_card * gus, unsigned short v_min, unsigned short v_max)
189{
190 unsigned long flags;
191 short i, ramp_ok;
192 unsigned short ramp_end;
193
194 if (!in_interrupt()) { /* this can't be done in interrupt */
195 for (i = v_min, ramp_ok = 0; i <= v_max; i++) {
196 spin_lock_irqsave(&gus->reg_lock, flags);
197 snd_gf1_select_voice(gus, voice: i);
198 ramp_end = snd_gf1_read16(gus, reg: 9) >> 8;
199 if (ramp_end > SNDRV_GF1_MIN_OFFSET) {
200 ramp_ok++;
201 snd_gf1_write8(gus, SNDRV_GF1_VB_VOLUME_RATE, data: 20); /* ramp rate */
202 snd_gf1_write8(gus, SNDRV_GF1_VB_VOLUME_START, SNDRV_GF1_MIN_OFFSET); /* ramp start */
203 snd_gf1_write8(gus, SNDRV_GF1_VB_VOLUME_END, data: ramp_end); /* ramp end */
204 snd_gf1_write8(gus, SNDRV_GF1_VB_VOLUME_CONTROL, data: 0x40); /* ramp down */
205 if (gus->gf1.enh_mode) {
206 snd_gf1_delay(gus);
207 snd_gf1_write8(gus, SNDRV_GF1_VB_VOLUME_CONTROL, data: 0x40);
208 }
209 }
210 spin_unlock_irqrestore(lock: &gus->reg_lock, flags);
211 }
212 msleep_interruptible(msecs: 50);
213 }
214 snd_gf1_clear_voices(gus, v_min, v_max);
215}
216
217static void snd_gf1_alloc_voice_use(struct snd_gus_card * gus,
218 struct snd_gus_voice * pvoice,
219 int type, int client, int port)
220{
221 pvoice->use = 1;
222 switch (type) {
223 case SNDRV_GF1_VOICE_TYPE_PCM:
224 gus->gf1.pcm_alloc_voices++;
225 pvoice->pcm = 1;
226 break;
227 case SNDRV_GF1_VOICE_TYPE_SYNTH:
228 pvoice->synth = 1;
229 pvoice->client = client;
230 pvoice->port = port;
231 break;
232 case SNDRV_GF1_VOICE_TYPE_MIDI:
233 pvoice->midi = 1;
234 pvoice->client = client;
235 pvoice->port = port;
236 break;
237 }
238}
239
240struct snd_gus_voice *snd_gf1_alloc_voice(struct snd_gus_card * gus, int type, int client, int port)
241{
242 struct snd_gus_voice *pvoice;
243 unsigned long flags;
244 int idx;
245
246 spin_lock_irqsave(&gus->voice_alloc, flags);
247 if (type == SNDRV_GF1_VOICE_TYPE_PCM) {
248 if (gus->gf1.pcm_alloc_voices >= gus->gf1.pcm_channels) {
249 spin_unlock_irqrestore(lock: &gus->voice_alloc, flags);
250 return NULL;
251 }
252 }
253 for (idx = 0; idx < 32; idx++) {
254 pvoice = &gus->gf1.voices[idx];
255 if (!pvoice->use) {
256 snd_gf1_alloc_voice_use(gus, pvoice, type, client, port);
257 spin_unlock_irqrestore(lock: &gus->voice_alloc, flags);
258 return pvoice;
259 }
260 }
261 for (idx = 0; idx < 32; idx++) {
262 pvoice = &gus->gf1.voices[idx];
263 if (pvoice->midi && !pvoice->client) {
264 snd_gf1_clear_voices(gus, v_min: pvoice->number, v_max: pvoice->number);
265 snd_gf1_alloc_voice_use(gus, pvoice, type, client, port);
266 spin_unlock_irqrestore(lock: &gus->voice_alloc, flags);
267 return pvoice;
268 }
269 }
270 spin_unlock_irqrestore(lock: &gus->voice_alloc, flags);
271 return NULL;
272}
273
274void snd_gf1_free_voice(struct snd_gus_card * gus, struct snd_gus_voice *voice)
275{
276 unsigned long flags;
277 void (*private_free)(struct snd_gus_voice *voice);
278
279 if (voice == NULL || !voice->use)
280 return;
281 snd_gf1_set_default_handlers(gus, SNDRV_GF1_HANDLER_VOICE | voice->number);
282 snd_gf1_clear_voices(gus, v_min: voice->number, v_max: voice->number);
283 spin_lock_irqsave(&gus->voice_alloc, flags);
284 private_free = voice->private_free;
285 voice->private_free = NULL;
286 voice->private_data = NULL;
287 if (voice->pcm)
288 gus->gf1.pcm_alloc_voices--;
289 voice->use = voice->pcm = 0;
290 voice->sample_ops = NULL;
291 spin_unlock_irqrestore(lock: &gus->voice_alloc, flags);
292 if (private_free)
293 private_free(voice);
294}
295
296/*
297 * call this function only by start of driver
298 */
299
300int snd_gf1_start(struct snd_gus_card * gus)
301{
302 unsigned long flags;
303 unsigned int i;
304
305 snd_gf1_i_write8(gus, SNDRV_GF1_GB_RESET, data: 0); /* reset GF1 */
306 udelay(160);
307 snd_gf1_i_write8(gus, SNDRV_GF1_GB_RESET, data: 1); /* disable IRQ & DAC */
308 udelay(160);
309 snd_gf1_i_write8(gus, SNDRV_GF1_GB_JOYSTICK_DAC_LEVEL, data: gus->joystick_dac);
310
311 snd_gf1_set_default_handlers(gus, SNDRV_GF1_HANDLER_ALL);
312 for (i = 0; i < 32; i++) {
313 gus->gf1.voices[i].number = i;
314 snd_gf1_set_default_handlers(gus, SNDRV_GF1_HANDLER_VOICE | i);
315 }
316
317 snd_gf1_uart_cmd(gus, b: 0x03); /* huh.. this cleanup took me some time... */
318
319 if (gus->gf1.enh_mode) { /* enhanced mode !!!! */
320 snd_gf1_i_write8(gus, SNDRV_GF1_GB_GLOBAL_MODE, data: snd_gf1_i_look8(gus, SNDRV_GF1_GB_GLOBAL_MODE) | 0x01);
321 snd_gf1_i_write8(gus, SNDRV_GF1_GB_MEMORY_CONTROL, data: 0x01);
322 }
323 snd_gf1_clear_regs(gus);
324 snd_gf1_select_active_voices(gus);
325 snd_gf1_delay(gus);
326 gus->gf1.default_voice_address = gus->gf1.memory > 0 ? 0 : 512 - 8;
327 /* initialize LFOs & clear LFOs memory */
328 if (gus->gf1.enh_mode && gus->gf1.memory) {
329 gus->gf1.hw_lfo = 1;
330 gus->gf1.default_voice_address += 1024;
331 } else {
332 gus->gf1.sw_lfo = 1;
333 }
334#if 0
335 snd_gf1_lfo_init(gus);
336#endif
337 if (gus->gf1.memory > 0)
338 for (i = 0; i < 4; i++)
339 snd_gf1_poke(gus, addr: gus->gf1.default_voice_address + i, data: 0);
340 snd_gf1_clear_regs(gus);
341 snd_gf1_clear_voices(gus, v_min: 0, v_max: 31);
342 snd_gf1_look_regs(gus);
343 udelay(160);
344 snd_gf1_i_write8(gus, SNDRV_GF1_GB_RESET, data: 7); /* Reset Register = IRQ enable, DAC enable */
345 udelay(160);
346 snd_gf1_i_write8(gus, SNDRV_GF1_GB_RESET, data: 7); /* Reset Register = IRQ enable, DAC enable */
347 if (gus->gf1.enh_mode) { /* enhanced mode !!!! */
348 snd_gf1_i_write8(gus, SNDRV_GF1_GB_GLOBAL_MODE, data: snd_gf1_i_look8(gus, SNDRV_GF1_GB_GLOBAL_MODE) | 0x01);
349 snd_gf1_i_write8(gus, SNDRV_GF1_GB_MEMORY_CONTROL, data: 0x01);
350 }
351 while ((snd_gf1_i_read8(gus, SNDRV_GF1_GB_VOICES_IRQ) & 0xc0) != 0xc0);
352
353 spin_lock_irqsave(&gus->reg_lock, flags);
354 outb(value: gus->gf1.active_voice = 0, GUSP(gus, GF1PAGE));
355 outb(value: gus->mix_cntrl_reg, GUSP(gus, MIXCNTRLREG));
356 spin_unlock_irqrestore(lock: &gus->reg_lock, flags);
357
358 snd_gf1_timers_init(gus);
359 snd_gf1_look_regs(gus);
360 snd_gf1_mem_init(gus);
361 snd_gf1_mem_proc_init(gus);
362#ifdef CONFIG_SND_DEBUG
363 snd_gus_irq_profile_init(gus);
364#endif
365
366#if 0
367 if (gus->pnp_flag) {
368 if (gus->chip.playback_fifo_size > 0)
369 snd_gf1_i_write16(gus, SNDRV_GF1_GW_FIFO_RECORD_BASE_ADDR, gus->chip.playback_fifo_block->ptr >> 8);
370 if (gus->chip.record_fifo_size > 0)
371 snd_gf1_i_write16(gus, SNDRV_GF1_GW_FIFO_PLAY_BASE_ADDR, gus->chip.record_fifo_block->ptr >> 8);
372 snd_gf1_i_write16(gus, SNDRV_GF1_GW_FIFO_SIZE, gus->chip.interwave_fifo_reg);
373 }
374#endif
375
376 return 0;
377}
378
379/*
380 * call this function only by shutdown of driver
381 */
382
383int snd_gf1_stop(struct snd_gus_card * gus)
384{
385 snd_gf1_i_write8(gus, SNDRV_GF1_GB_SOUND_BLASTER_CONTROL, data: 0); /* stop all timers */
386 snd_gf1_stop_voices(gus, v_min: 0, v_max: 31); /* stop all voices */
387 snd_gf1_i_write8(gus, SNDRV_GF1_GB_RESET, data: 1); /* disable IRQ & DAC */
388 snd_gf1_timers_done(gus);
389 snd_gf1_mem_done(gus);
390#if 0
391 snd_gf1_lfo_done(gus);
392#endif
393 return 0;
394}
395

source code of linux/sound/isa/gus/gus_reset.c