1 // SPDX-License-Identifier: GPL-2.0-or-later
3 * Copyright (c) by Jaroslav Kysela <perex@perex.cz>
4 * I/O routines for GF1/InterWave synthesizer chips
7 #include <linux/delay.h>
8 #include <linux/time.h>
9 #include <sound/core.h>
10 #include <sound/gus.h>
12 void snd_gf1_delay(struct snd_gus_card
* gus
)
16 for (i
= 0; i
< 6; i
++) {
23 * =======================================================================
27 * ok.. stop of control registers (wave & ramp) need some special things..
28 * big UltraClick (tm) elimination...
31 static inline void __snd_gf1_ctrl_stop(struct snd_gus_card
* gus
, unsigned char reg
)
35 outb(reg
| 0x80, gus
->gf1
.reg_regsel
);
37 value
= inb(gus
->gf1
.reg_data8
);
39 outb(reg
, gus
->gf1
.reg_regsel
);
41 outb((value
| 0x03) & ~(0x80 | 0x20), gus
->gf1
.reg_data8
);
45 static inline void __snd_gf1_write8(struct snd_gus_card
* gus
,
49 outb(reg
, gus
->gf1
.reg_regsel
);
51 outb(data
, gus
->gf1
.reg_data8
);
55 static inline unsigned char __snd_gf1_look8(struct snd_gus_card
* gus
,
58 outb(reg
, gus
->gf1
.reg_regsel
);
60 return inb(gus
->gf1
.reg_data8
);
63 static inline void __snd_gf1_write16(struct snd_gus_card
* gus
,
64 unsigned char reg
, unsigned int data
)
66 outb(reg
, gus
->gf1
.reg_regsel
);
68 outw((unsigned short) data
, gus
->gf1
.reg_data16
);
72 static inline unsigned short __snd_gf1_look16(struct snd_gus_card
* gus
,
75 outb(reg
, gus
->gf1
.reg_regsel
);
77 return inw(gus
->gf1
.reg_data16
);
80 static inline void __snd_gf1_adlib_write(struct snd_gus_card
* gus
,
81 unsigned char reg
, unsigned char data
)
83 outb(reg
, gus
->gf1
.reg_timerctrl
);
84 inb(gus
->gf1
.reg_timerctrl
);
85 inb(gus
->gf1
.reg_timerctrl
);
86 outb(data
, gus
->gf1
.reg_timerdata
);
87 inb(gus
->gf1
.reg_timerctrl
);
88 inb(gus
->gf1
.reg_timerctrl
);
91 static inline void __snd_gf1_write_addr(struct snd_gus_card
* gus
, unsigned char reg
,
92 unsigned int addr
, int w_16bit
)
94 if (gus
->gf1
.enh_mode
) {
96 addr
= ((addr
>> 1) & ~0x0000000f) | (addr
& 0x0000000f);
97 __snd_gf1_write8(gus
, SNDRV_GF1_VB_UPPER_ADDRESS
, (unsigned char) ((addr
>> 26) & 0x03));
99 addr
= (addr
& 0x00c0000f) | ((addr
& 0x003ffff0) >> 1);
100 __snd_gf1_write16(gus
, reg
, (unsigned short) (addr
>> 11));
101 __snd_gf1_write16(gus
, reg
+ 1, (unsigned short) (addr
<< 5));
104 static inline unsigned int __snd_gf1_read_addr(struct snd_gus_card
* gus
,
105 unsigned char reg
, short w_16bit
)
109 res
= ((unsigned int) __snd_gf1_look16(gus
, reg
| 0x80) << 11) & 0xfff800;
110 res
|= ((unsigned int) __snd_gf1_look16(gus
, (reg
+ 1) | 0x80) >> 5) & 0x0007ff;
111 if (gus
->gf1
.enh_mode
) {
112 res
|= (unsigned int) __snd_gf1_look8(gus
, SNDRV_GF1_VB_UPPER_ADDRESS
| 0x80) << 26;
114 res
= ((res
<< 1) & 0xffffffe0) | (res
& 0x0000000f);
116 res
= ((res
& 0x001ffff0) << 1) | (res
& 0x00c0000f);
122 * =======================================================================
125 void snd_gf1_ctrl_stop(struct snd_gus_card
* gus
, unsigned char reg
)
127 __snd_gf1_ctrl_stop(gus
, reg
);
130 void snd_gf1_write8(struct snd_gus_card
* gus
,
134 __snd_gf1_write8(gus
, reg
, data
);
137 unsigned char snd_gf1_look8(struct snd_gus_card
* gus
, unsigned char reg
)
139 return __snd_gf1_look8(gus
, reg
);
142 void snd_gf1_write16(struct snd_gus_card
* gus
,
146 __snd_gf1_write16(gus
, reg
, data
);
149 unsigned short snd_gf1_look16(struct snd_gus_card
* gus
, unsigned char reg
)
151 return __snd_gf1_look16(gus
, reg
);
154 void snd_gf1_adlib_write(struct snd_gus_card
* gus
,
158 __snd_gf1_adlib_write(gus
, reg
, data
);
161 void snd_gf1_write_addr(struct snd_gus_card
* gus
, unsigned char reg
,
162 unsigned int addr
, short w_16bit
)
164 __snd_gf1_write_addr(gus
, reg
, addr
, w_16bit
);
167 unsigned int snd_gf1_read_addr(struct snd_gus_card
* gus
,
171 return __snd_gf1_read_addr(gus
, reg
, w_16bit
);
178 void snd_gf1_i_ctrl_stop(struct snd_gus_card
* gus
, unsigned char reg
)
182 spin_lock_irqsave(&gus
->reg_lock
, flags
);
183 __snd_gf1_ctrl_stop(gus
, reg
);
184 spin_unlock_irqrestore(&gus
->reg_lock
, flags
);
187 void snd_gf1_i_write8(struct snd_gus_card
* gus
,
193 spin_lock_irqsave(&gus
->reg_lock
, flags
);
194 __snd_gf1_write8(gus
, reg
, data
);
195 spin_unlock_irqrestore(&gus
->reg_lock
, flags
);
198 unsigned char snd_gf1_i_look8(struct snd_gus_card
* gus
, unsigned char reg
)
203 spin_lock_irqsave(&gus
->reg_lock
, flags
);
204 res
= __snd_gf1_look8(gus
, reg
);
205 spin_unlock_irqrestore(&gus
->reg_lock
, flags
);
209 void snd_gf1_i_write16(struct snd_gus_card
* gus
,
215 spin_lock_irqsave(&gus
->reg_lock
, flags
);
216 __snd_gf1_write16(gus
, reg
, data
);
217 spin_unlock_irqrestore(&gus
->reg_lock
, flags
);
220 unsigned short snd_gf1_i_look16(struct snd_gus_card
* gus
, unsigned char reg
)
225 spin_lock_irqsave(&gus
->reg_lock
, flags
);
226 res
= __snd_gf1_look16(gus
, reg
);
227 spin_unlock_irqrestore(&gus
->reg_lock
, flags
);
233 void snd_gf1_i_adlib_write(struct snd_gus_card
* gus
,
239 spin_lock_irqsave(&gus
->reg_lock
, flags
);
240 __snd_gf1_adlib_write(gus
, reg
, data
);
241 spin_unlock_irqrestore(&gus
->reg_lock
, flags
);
244 void snd_gf1_i_write_addr(struct snd_gus_card
* gus
, unsigned char reg
,
245 unsigned int addr
, short w_16bit
)
249 spin_lock_irqsave(&gus
->reg_lock
, flags
);
250 __snd_gf1_write_addr(gus
, reg
, addr
, w_16bit
);
251 spin_unlock_irqrestore(&gus
->reg_lock
, flags
);
256 #ifdef CONFIG_SND_DEBUG
257 static unsigned int snd_gf1_i_read_addr(struct snd_gus_card
* gus
,
258 unsigned char reg
, short w_16bit
)
263 spin_lock_irqsave(&gus
->reg_lock
, flags
);
264 res
= __snd_gf1_read_addr(gus
, reg
, w_16bit
);
265 spin_unlock_irqrestore(&gus
->reg_lock
, flags
);
274 void snd_gf1_dram_addr(struct snd_gus_card
* gus
, unsigned int addr
)
276 outb(0x43, gus
->gf1
.reg_regsel
);
278 outw((unsigned short) addr
, gus
->gf1
.reg_data16
);
280 outb(0x44, gus
->gf1
.reg_regsel
);
282 outb((unsigned char) (addr
>> 16), gus
->gf1
.reg_data8
);
286 void snd_gf1_poke(struct snd_gus_card
* gus
, unsigned int addr
, unsigned char data
)
290 spin_lock_irqsave(&gus
->reg_lock
, flags
);
291 outb(SNDRV_GF1_GW_DRAM_IO_LOW
, gus
->gf1
.reg_regsel
);
293 outw((unsigned short) addr
, gus
->gf1
.reg_data16
);
295 outb(SNDRV_GF1_GB_DRAM_IO_HIGH
, gus
->gf1
.reg_regsel
);
297 outb((unsigned char) (addr
>> 16), gus
->gf1
.reg_data8
);
299 outb(data
, gus
->gf1
.reg_dram
);
300 spin_unlock_irqrestore(&gus
->reg_lock
, flags
);
303 unsigned char snd_gf1_peek(struct snd_gus_card
* gus
, unsigned int addr
)
308 spin_lock_irqsave(&gus
->reg_lock
, flags
);
309 outb(SNDRV_GF1_GW_DRAM_IO_LOW
, gus
->gf1
.reg_regsel
);
311 outw((unsigned short) addr
, gus
->gf1
.reg_data16
);
313 outb(SNDRV_GF1_GB_DRAM_IO_HIGH
, gus
->gf1
.reg_regsel
);
315 outb((unsigned char) (addr
>> 16), gus
->gf1
.reg_data8
);
317 res
= inb(gus
->gf1
.reg_dram
);
318 spin_unlock_irqrestore(&gus
->reg_lock
, flags
);
324 void snd_gf1_pokew(struct snd_gus_card
* gus
, unsigned int addr
, unsigned short data
)
328 #ifdef CONFIG_SND_DEBUG
330 snd_printk(KERN_DEBUG
"snd_gf1_pokew - GF1!!!\n");
332 spin_lock_irqsave(&gus
->reg_lock
, flags
);
333 outb(SNDRV_GF1_GW_DRAM_IO_LOW
, gus
->gf1
.reg_regsel
);
335 outw((unsigned short) addr
, gus
->gf1
.reg_data16
);
337 outb(SNDRV_GF1_GB_DRAM_IO_HIGH
, gus
->gf1
.reg_regsel
);
339 outb((unsigned char) (addr
>> 16), gus
->gf1
.reg_data8
);
341 outb(SNDRV_GF1_GW_DRAM_IO16
, gus
->gf1
.reg_regsel
);
343 outw(data
, gus
->gf1
.reg_data16
);
344 spin_unlock_irqrestore(&gus
->reg_lock
, flags
);
347 unsigned short snd_gf1_peekw(struct snd_gus_card
* gus
, unsigned int addr
)
352 #ifdef CONFIG_SND_DEBUG
354 snd_printk(KERN_DEBUG
"snd_gf1_peekw - GF1!!!\n");
356 spin_lock_irqsave(&gus
->reg_lock
, flags
);
357 outb(SNDRV_GF1_GW_DRAM_IO_LOW
, gus
->gf1
.reg_regsel
);
359 outw((unsigned short) addr
, gus
->gf1
.reg_data16
);
361 outb(SNDRV_GF1_GB_DRAM_IO_HIGH
, gus
->gf1
.reg_regsel
);
363 outb((unsigned char) (addr
>> 16), gus
->gf1
.reg_data8
);
365 outb(SNDRV_GF1_GW_DRAM_IO16
, gus
->gf1
.reg_regsel
);
367 res
= inw(gus
->gf1
.reg_data16
);
368 spin_unlock_irqrestore(&gus
->reg_lock
, flags
);
372 void snd_gf1_dram_setmem(struct snd_gus_card
* gus
, unsigned int addr
,
373 unsigned short value
, unsigned int count
)
378 #ifdef CONFIG_SND_DEBUG
380 snd_printk(KERN_DEBUG
"snd_gf1_dram_setmem - GF1!!!\n");
384 port
= GUSP(gus
, GF1DATALOW
);
385 spin_lock_irqsave(&gus
->reg_lock
, flags
);
386 outb(SNDRV_GF1_GW_DRAM_IO_LOW
, gus
->gf1
.reg_regsel
);
388 outw((unsigned short) addr
, gus
->gf1
.reg_data16
);
390 outb(SNDRV_GF1_GB_DRAM_IO_HIGH
, gus
->gf1
.reg_regsel
);
392 outb((unsigned char) (addr
>> 16), gus
->gf1
.reg_data8
);
394 outb(SNDRV_GF1_GW_DRAM_IO16
, gus
->gf1
.reg_regsel
);
397 spin_unlock_irqrestore(&gus
->reg_lock
, flags
);
402 void snd_gf1_select_active_voices(struct snd_gus_card
* gus
)
404 unsigned short voices
;
406 static const unsigned short voices_tbl
[32 - 14 + 1] =
408 44100, 41160, 38587, 36317, 34300, 32494, 30870, 29400, 28063, 26843,
409 25725, 24696, 23746, 22866, 22050, 21289, 20580, 19916, 19293
412 voices
= gus
->gf1
.active_voices
;
417 if (gus
->gf1
.enh_mode
)
419 gus
->gf1
.active_voices
= voices
;
420 gus
->gf1
.playback_freq
=
421 gus
->gf1
.enh_mode
? 44100 : voices_tbl
[voices
- 14];
422 if (!gus
->gf1
.enh_mode
) {
423 snd_gf1_i_write8(gus
, SNDRV_GF1_GB_ACTIVE_VOICES
, 0xc0 | (voices
- 1));
428 #ifdef CONFIG_SND_DEBUG
430 void snd_gf1_print_voice_registers(struct snd_gus_card
* gus
)
435 voice
= gus
->gf1
.active_voice
;
436 printk(KERN_INFO
" -%i- GF1 voice ctrl, ramp ctrl = 0x%x, 0x%x\n", voice
, ctrl
= snd_gf1_i_read8(gus
, 0), snd_gf1_i_read8(gus
, 0x0d));
437 printk(KERN_INFO
" -%i- GF1 frequency = 0x%x\n", voice
, snd_gf1_i_read16(gus
, 1));
438 printk(KERN_INFO
" -%i- GF1 loop start, end = 0x%x (0x%x), 0x%x (0x%x)\n", voice
, snd_gf1_i_read_addr(gus
, 2, ctrl
& 4), snd_gf1_i_read_addr(gus
, 2, (ctrl
& 4) ^ 4), snd_gf1_i_read_addr(gus
, 4, ctrl
& 4), snd_gf1_i_read_addr(gus
, 4, (ctrl
& 4) ^ 4));
439 printk(KERN_INFO
" -%i- GF1 ramp start, end, rate = 0x%x, 0x%x, 0x%x\n", voice
, snd_gf1_i_read8(gus
, 7), snd_gf1_i_read8(gus
, 8), snd_gf1_i_read8(gus
, 6));
440 printk(KERN_INFO
" -%i- GF1 volume = 0x%x\n", voice
, snd_gf1_i_read16(gus
, 9));
441 printk(KERN_INFO
" -%i- GF1 position = 0x%x (0x%x)\n", voice
, snd_gf1_i_read_addr(gus
, 0x0a, ctrl
& 4), snd_gf1_i_read_addr(gus
, 0x0a, (ctrl
& 4) ^ 4));
442 if (gus
->interwave
&& snd_gf1_i_read8(gus
, 0x19) & 0x01) { /* enhanced mode */
443 mode
= snd_gf1_i_read8(gus
, 0x15);
444 printk(KERN_INFO
" -%i- GFA1 mode = 0x%x\n", voice
, mode
);
445 if (mode
& 0x01) { /* Effect processor */
446 printk(KERN_INFO
" -%i- GFA1 effect address = 0x%x\n", voice
, snd_gf1_i_read_addr(gus
, 0x11, ctrl
& 4));
447 printk(KERN_INFO
" -%i- GFA1 effect volume = 0x%x\n", voice
, snd_gf1_i_read16(gus
, 0x16));
448 printk(KERN_INFO
" -%i- GFA1 effect volume final = 0x%x\n", voice
, snd_gf1_i_read16(gus
, 0x1d));
449 printk(KERN_INFO
" -%i- GFA1 effect accumulator = 0x%x\n", voice
, snd_gf1_i_read8(gus
, 0x14));
452 printk(KERN_INFO
" -%i- GFA1 left offset = 0x%x (%i)\n", voice
, snd_gf1_i_read16(gus
, 0x13), snd_gf1_i_read16(gus
, 0x13) >> 4);
453 printk(KERN_INFO
" -%i- GFA1 left offset final = 0x%x (%i)\n", voice
, snd_gf1_i_read16(gus
, 0x1c), snd_gf1_i_read16(gus
, 0x1c) >> 4);
454 printk(KERN_INFO
" -%i- GFA1 right offset = 0x%x (%i)\n", voice
, snd_gf1_i_read16(gus
, 0x0c), snd_gf1_i_read16(gus
, 0x0c) >> 4);
455 printk(KERN_INFO
" -%i- GFA1 right offset final = 0x%x (%i)\n", voice
, snd_gf1_i_read16(gus
, 0x1b), snd_gf1_i_read16(gus
, 0x1b) >> 4);
457 printk(KERN_INFO
" -%i- GF1 pan = 0x%x\n", voice
, snd_gf1_i_read8(gus
, 0x0c));
459 printk(KERN_INFO
" -%i- GF1 pan = 0x%x\n", voice
, snd_gf1_i_read8(gus
, 0x0c));
464 void snd_gf1_print_global_registers(struct snd_gus_card
* gus
)
466 unsigned char global_mode
= 0x00;
468 printk(KERN_INFO
" -G- GF1 active voices = 0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_ACTIVE_VOICES
));
469 if (gus
->interwave
) {
470 global_mode
= snd_gf1_i_read8(gus
, SNDRV_GF1_GB_GLOBAL_MODE
);
471 printk(KERN_INFO
" -G- GF1 global mode = 0x%x\n", global_mode
);
473 if (global_mode
& 0x02) /* LFO enabled? */
474 printk(KERN_INFO
" -G- GF1 LFO base = 0x%x\n", snd_gf1_i_look16(gus
, SNDRV_GF1_GW_LFO_BASE
));
475 printk(KERN_INFO
" -G- GF1 voices IRQ read = 0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_VOICES_IRQ_READ
));
476 printk(KERN_INFO
" -G- GF1 DRAM DMA control = 0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_DRAM_DMA_CONTROL
));
477 printk(KERN_INFO
" -G- GF1 DRAM DMA high/low = 0x%x/0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_DRAM_DMA_HIGH
), snd_gf1_i_read16(gus
, SNDRV_GF1_GW_DRAM_DMA_LOW
));
478 printk(KERN_INFO
" -G- GF1 DRAM IO high/low = 0x%x/0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_DRAM_IO_HIGH
), snd_gf1_i_read16(gus
, SNDRV_GF1_GW_DRAM_IO_LOW
));
480 printk(KERN_INFO
" -G- GF1 record DMA control = 0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_REC_DMA_CONTROL
));
481 printk(KERN_INFO
" -G- GF1 DRAM IO 16 = 0x%x\n", snd_gf1_i_look16(gus
, SNDRV_GF1_GW_DRAM_IO16
));
482 if (gus
->gf1
.enh_mode
) {
483 printk(KERN_INFO
" -G- GFA1 memory config = 0x%x\n", snd_gf1_i_look16(gus
, SNDRV_GF1_GW_MEMORY_CONFIG
));
484 printk(KERN_INFO
" -G- GFA1 memory control = 0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_MEMORY_CONTROL
));
485 printk(KERN_INFO
" -G- GFA1 FIFO record base = 0x%x\n", snd_gf1_i_look16(gus
, SNDRV_GF1_GW_FIFO_RECORD_BASE_ADDR
));
486 printk(KERN_INFO
" -G- GFA1 FIFO playback base = 0x%x\n", snd_gf1_i_look16(gus
, SNDRV_GF1_GW_FIFO_PLAY_BASE_ADDR
));
487 printk(KERN_INFO
" -G- GFA1 interleave control = 0x%x\n", snd_gf1_i_look16(gus
, SNDRV_GF1_GW_INTERLEAVE
));
491 void snd_gf1_print_setup_registers(struct snd_gus_card
* gus
)
493 printk(KERN_INFO
" -S- mix control = 0x%x\n", inb(GUSP(gus
, MIXCNTRLREG
)));
494 printk(KERN_INFO
" -S- IRQ status = 0x%x\n", inb(GUSP(gus
, IRQSTAT
)));
495 printk(KERN_INFO
" -S- timer control = 0x%x\n", inb(GUSP(gus
, TIMERCNTRL
)));
496 printk(KERN_INFO
" -S- timer data = 0x%x\n", inb(GUSP(gus
, TIMERDATA
)));
497 printk(KERN_INFO
" -S- status read = 0x%x\n", inb(GUSP(gus
, REGCNTRLS
)));
498 printk(KERN_INFO
" -S- Sound Blaster control = 0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_SOUND_BLASTER_CONTROL
));
499 printk(KERN_INFO
" -S- AdLib timer 1/2 = 0x%x/0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_ADLIB_TIMER_1
), snd_gf1_i_look8(gus
, SNDRV_GF1_GB_ADLIB_TIMER_2
));
500 printk(KERN_INFO
" -S- reset = 0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_RESET
));
501 if (gus
->interwave
) {
502 printk(KERN_INFO
" -S- compatibility = 0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_COMPATIBILITY
));
503 printk(KERN_INFO
" -S- decode control = 0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_DECODE_CONTROL
));
504 printk(KERN_INFO
" -S- version number = 0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_VERSION_NUMBER
));
505 printk(KERN_INFO
" -S- MPU-401 emul. control A/B = 0x%x/0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_MPU401_CONTROL_A
), snd_gf1_i_look8(gus
, SNDRV_GF1_GB_MPU401_CONTROL_B
));
506 printk(KERN_INFO
" -S- emulation IRQ = 0x%x\n", snd_gf1_i_look8(gus
, SNDRV_GF1_GB_EMULATION_IRQ
));
510 void snd_gf1_peek_print_block(struct snd_gus_card
* gus
, unsigned int addr
, int count
, int w_16bit
)
514 printk(count
> 0 ? "%02x:" : "%02x", snd_gf1_peek(gus
, addr
++));
516 while (count
-- > 0) {
517 printk(count
> 0 ? "%04x:" : "%04x", snd_gf1_peek(gus
, addr
) | (snd_gf1_peek(gus
, addr
+ 1) << 8));