freebsd-dev/sys/i386/isa/sound/gus_wave.c
Peter Wemm a0f70ac053 Part 2 of pcvt/voxware revival. I hope I have not clobbered any other
deltas, but it is possible since I had a few merge conflicts over the last
few days while this has been sitting ready to go.

(Part 1 was committed to the config files, but cvs aborted grrr..)

Approved by:    core
1999-01-01 08:18:13 +00:00

4880 lines
122 KiB
C

/*
* sound/gus_wave.c
*
* Driver for the Gravis UltraSound wave table synth.
*
* Copyright by Hannu Savolainen 1993, 1994
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions are
* met: 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer. 2.
* Redistributions in binary form must reproduce the above copyright notice,
* this list of conditions and the following disclaimer in the documentation
* and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND ANY
* EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
* DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
* ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
* CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*
*/
#include <stddef.h>
#include <i386/isa/sound/sound_config.h>
#include <i386/isa/sound/ultrasound.h>
#include <i386/isa/sound/gus_hw.h>
#include <i386/isa/sound/iwdefs.h>
#include <machine/clock.h>
/* PnP stuff */
#define GUS_PNP_ID 0x100561e
#define MAX_CARDS 8
#define MAX_GUS_PNP 12
/* Static ports */
#define PADDRESS 0x279
#define PWRITE_DATA 0xa79
#define SET_CSN 0x06
#define PSTATUS 0x05
/* PnP Registers. Write to ADDRESS and then use WRITE/READ_DATA */
#define SET_RD_DATA 0x00
#define SERIAL_ISOLATION 0x01
#define WAKE 0x03
#if defined(CONFIG_GUS)
static IWAVE iw;
#define ENTER_CRITICAL
#define LEAVE_CRITICAL
#define MAX_SAMPLE 150
#define MAX_PATCH 256
static u_int gus_pnp_found[MAX_GUS_PNP] =
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
struct voice_info {
u_long orig_freq;
u_long current_freq;
u_long mode;
int bender;
int bender_range;
int panning;
int midi_volume;
u_int initial_volume;
u_int current_volume;
int loop_irq_mode, loop_irq_parm;
#define LMODE_FINISH 1
#define LMODE_PCM 2
#define LMODE_PCM_STOP 3
int volume_irq_mode, volume_irq_parm;
#define VMODE_HALT 1
#define VMODE_ENVELOPE 2
#define VMODE_START_NOTE 3
int env_phase;
u_char env_rate[6];
u_char env_offset[6];
/*
* Volume computation parameters for gus_adagio_vol()
*/
int main_vol, expression_vol, patch_vol;
/* Variables for "Ultraclick" removal */
int dev_pending, note_pending, volume_pending, sample_pending;
char kill_pending;
long offset_pending;
};
static struct voice_alloc_info *voice_alloc;
extern int gus_base;
extern int gus_irq, gus_dma;
static int gus_dma2 = -1;
static int dual_dma_mode = 0;
static long gus_mem_size = 0;
static long free_mem_ptr = 0;
static int gus_no_dma = 0;
static int nr_voices = 0;
static int gus_devnum = 0;
static int volume_base, volume_scale, volume_method;
static int gus_recmask = SOUND_MASK_MIC;
static int recording_active = 0;
static int only_read_access = 0;
static int only_8_bits = 0;
int gus_wave_volume = 60;
static int gus_pcm_volume = 80;
int have_gus_max = 0;
static int gus_line_vol = 100, gus_mic_vol = 0;
static u_char mix_image = 0x00;
int gus_timer_enabled = 0;
/*
* Current version of this driver doesn't allow synth and PCM functions at
* the same time. The active_device specifies the active driver
*/
static int active_device = 0;
#define GUS_DEV_WAVE 1 /* Wave table synth */
#define GUS_DEV_PCM_DONE 2 /* PCM device, transfer done */
#define GUS_DEV_PCM_CONTINUE 3 /* PCM device, transfer done ch. 1/2 */
static int gus_sampling_speed;
static int gus_sampling_channels;
static int gus_sampling_bits;
static int *dram_sleeper = NULL;
static volatile struct snd_wait dram_sleep_flag =
{0};
/*
* Variables and buffers for PCM output
*/
#define MAX_PCM_BUFFERS (32*MAX_REALTIME_FACTOR) /* Don't change */
static int pcm_bsize, pcm_nblk, pcm_banksize;
static int pcm_datasize[MAX_PCM_BUFFERS];
static volatile int pcm_head, pcm_tail, pcm_qlen;
static volatile int pcm_active;
static volatile int dma_active;
static int pcm_opened = 0;
static int pcm_current_dev;
static int pcm_current_block;
static u_long pcm_current_buf;
static int pcm_current_count;
static int pcm_current_intrflag;
extern sound_os_info *gus_osp;
static struct voice_info voices[32];
static int freq_div_table[] =
{
44100, /* 14 */
41160, /* 15 */
38587, /* 16 */
36317, /* 17 */
34300, /* 18 */
32494, /* 19 */
30870, /* 20 */
29400, /* 21 */
28063, /* 22 */
26843, /* 23 */
25725, /* 24 */
24696, /* 25 */
23746, /* 26 */
22866, /* 27 */
22050, /* 28 */
21289, /* 29 */
20580, /* 30 */
19916, /* 31 */
19293 /* 32 */
};
static struct patch_info *samples;
static struct patch_info *dbg_samples;
static int dbg_samplep;
static long sample_ptrs[MAX_SAMPLE + 1];
static int sample_map[32];
static int free_sample;
static int mixer_type = 0;
static int patch_table[MAX_PATCH];
static int patch_map[32];
static struct synth_info gus_info =
{"Gravis UltraSound", 0, SYNTH_TYPE_SAMPLE, SAMPLE_TYPE_GUS, 0, 16, 0, MAX_PATCH};
static void gus_default_mixer_init(void);
static int guswave_start_note2(int dev, int voice, int note_num, int volume);
static void gus_poke(long addr, u_char data);
static void compute_and_set_volume(int voice, int volume, int ramp_time);
extern u_short gus_adagio_vol(int vel, int mainv, int xpn, int voicev);
extern u_short gus_linear_vol(int vol, int mainvol);
static void compute_volume(int voice, int volume);
static void do_volume_irq(int voice);
static void set_input_volumes(void);
static void gus_tmr_install(int io_base);
static void SEND(int d, int r);
static int get_serial(int rd_port, u_char *data);
static void send_Initiation_LFSR(void);
static int isolation_protocol(int rd_port);
#define INSTANT_RAMP -1 /* Instant change. No ramping */
#define FAST_RAMP 0 /* Fastest possible ramp */
/* Crystal Select */
#define CODEC_XTAL2 0x01 /* 16.9344 crystal */
#define CODEC_XTAL1 0x00 /* 24.576 crystal */
/************************************************************************/
/************************************************************************/
/* Definitions for CONFIG_1 register */
#define CODEC_CFIG1I_DEFAULT 0x03 | 0x8
#define CODEC_CAPTURE_PIO 0x80 /* Capture PIO enable */
#define CODEC_PLAYBACK_PIO 0x40 /* Playback PIO enable */
#define CODEC_AUTOCALIB 0x08 /* auto calibrate */
#define CODEC_SINGLE_DMA 0x04 /* Use single DMA channel */
#define CODEC_RE 0x02 /* Capture enable */
#define CODEC_PE 0x01 /* playback enable */
/************************************************************************/
/************************************************************************/
/* Definitions for CONFIG_2 register */
#define CODEC_CFIG2I_DEFAULT 0x81
#define CODEC_OFVS 0x80 /* Output Full Scale Voltage */
#define CODEC_TE 0x40 /* Timer Enable */
#define CODEC_RSCD 0x20 /* Recors Sample Counter Disable */
#define CODEC_PSCD 0x10 /* Playback Sample Counter Disable */
#define CODEC_DAOF 0x01 /* D/A Ouput Force Enable */
/************************************************************************/
/************************************************************************/
/* Definitions for CONFIG_3 register */
/* #define CODEC_CFIG3I_DEFAULT 0xe0 0x02 when synth DACs are working */
#define CODEC_CFIG3I_DEFAULT 0xc0 /* 0x02 when synth DACs are working */
#define CODEC_RPIE 0x80 /* Record FIFO IRQ Enable */
#define CODEC_PPIE 0x40 /* Playback FIFO IRQ Enable */
#define CODEC_FT_MASK 0x30 /* FIFO Threshold Select */
#define CODEC_PVFM 0x04 /* Playback Variable Frequency Mode */
#define CODEC_SYNA 0x02 /* AUX1/Synth Signal Select */
/************************************************************************/
/************************************************************************/
/* Definitions for EXTERNAL_CONTROL register */
#define CODEC_CEXTI_DEFAULT 0x00
#define CODEC_IRQ_ENABLE 0x02 /* interrupt enable */
#define CODEC_GPOUT1 0x80 /* external control #1 */
#define CODEC_GPOUT0 0x40 /* external control #0 */
/************************************************************************/
/************************************************************************/
/* Definitions for MODE_SELECT_ID register */
#define CODEC_MODE_DEFAULT 0x40
#define CODEC_MODE_MASK 0x60
#define CODEC_ID_BIT4 0x80
#define CODEC_ID_BIT3_0 0x0F
/************************************************************************/
#define CONFIG_1 0x09
#define EXTERNAL_CONTROL 0x0a/* Pin control */
#define STATUS_2 0x0b/* Test and initialization */
#define MODE_SELECT_ID 0x0c/* Miscellaneaous information */
#define LOOPBACK 0x0d/* Digital Mix */
#define UPPER_PLAY_COUNT 0x0e/* Playback Upper Base Count */
#define LOWER_PLAY_COUNT 0x0f/* Playback Lower Base Count */
#define CONFIG_2 0x10
#define CONFIG_3 0x11
#define IWL_CODEC_OUT(reg, val) \
{ outb(iwl_codec_base, reg); outb(iwl_codec_data, val); }
#define IWL_CODEC_IN(reg, val) \
{ outb(iwl_codec_base, reg); val = inb(iwl_codec_data); }
static u_char gus_look8(int reg);
static void gus_write16(int reg, u_int data);
static u_short gus_read16(int reg);
static void gus_write_addr(int reg, u_long address, int is16bit);
static void IwaveLineLevel(char level, char index);
static void IwaveInputSource(BYTE index, BYTE source);
static void IwaveDelay(WORD count);
static void IwaveStopDma(BYTE path);
static void IwavePnpGetCfg(void);
static void IwavePnpDevice(BYTE dev);
static void IwavePnpSetCfg(void);
static void IwavePnpKey(void);
static BYTE IwavePnpIsol(PORT * pnpread);
static void IwaveCfgIOSpace(void);
static void IwavePnpSerial(PORT pnprdp, BYTE csn,
BYTE * vendor, DWORD * serial);
static void IwavePnpPeek(PORT pnprdp, WORD bytes, BYTE * data);
static void IwavePnpEeprom(BYTE ctrl);
static void IwavePnpActivate(BYTE dev, BYTE bool);
static void IwavePnpPower(BYTE mode);
static void IwavePnpWake(BYTE csn);
static PORT IwavePnpIOcheck(PORT base, BYTE no_ports);
static BYTE IwavePnpGetCSN(DWORD VendorID, BYTE csn_max);
static BYTE IwavePnpPing(DWORD VendorID);
static WORD IwaveMemSize(void);
static BYTE IwaveMemPeek(ADDRESS addr);
static void IwaveMemPoke(ADDRESS addr, BYTE datum);
static void IwaveMemCfg(DWORD * lpbanks);
static void IwaveCodecIrq(BYTE mode);
static WORD IwaveRegPeek(DWORD reg_mnem);
static void IwaveRegPoke(DWORD reg_mnem, WORD datum);
static void IwaveCodecMode(char mode);
static void IwaveLineMute(BYTE mute, BYTE inx);
static void Iwaveinitcodec(void);
int IwaveOpen(char voices, char mode, struct address_info * hw);
static void
reset_sample_memory(void)
{
int i;
for (i = 0; i <= MAX_SAMPLE; i++)
sample_ptrs[i] = -1;
for (i = 0; i < 32; i++)
sample_map[i] = -1;
for (i = 0; i < 32; i++)
patch_map[i] = -1;
gus_poke(0, 0); /* Put a silent sample to the beginning */
gus_poke(1, 0);
free_mem_ptr = 2;
free_sample = 0;
for (i = 0; i < MAX_PATCH; i++)
patch_table[i] = -1;
}
void
gus_delay(void)
{
int i;
for (i = 0; i < 7; i++)
inb(u_DRAMIO);
}
static void
gus_poke(long addr, u_char data)
{ /* Writes a byte to the DRAM */
u_long flags;
flags = splhigh();
outb(u_Command, 0x43);
outb(u_DataLo, addr & 0xff);
outb(u_DataHi, (addr >> 8) & 0xff);
outb(u_Command, 0x44);
outb(u_DataHi, (addr >> 16) & 0xff);
outb(u_DRAMIO, data);
splx(flags);
}
static u_char
gus_peek(long addr)
{ /* Reads a byte from the DRAM */
u_long flags;
u_char tmp;
flags = splhigh();
outb(u_Command, 0x43);
outb(u_DataLo, addr & 0xff);
outb(u_DataHi, (addr >> 8) & 0xff);
outb(u_Command, 0x44);
outb(u_DataHi, (addr >> 16) & 0xff);
tmp = inb(u_DRAMIO);
splx(flags);
return tmp;
}
void
gus_write8(int reg, u_int data)
{ /* Writes to an indirect register (8 bit) */
u_long flags;
flags = splhigh();
outb(u_Command, reg);
outb(u_DataHi, (u_char) (data & 0xff));
splx(flags);
}
u_char
gus_read8(int reg)
{ /* Reads from an indirect register (8 bit). Offset 0x80. */
u_long flags;
u_char val;
flags = splhigh();
outb(u_Command, reg | 0x80);
val = inb(u_DataHi);
splx(flags);
return val;
}
static u_char
gus_look8(int reg)
{ /* Reads from an indirect register (8 bit). No additional offset. */
u_long flags;
u_char val;
flags = splhigh();
outb(u_Command, reg);
val = inb(u_DataHi);
splx(flags);
return val;
}
static void
gus_write16(int reg, u_int data)
{ /* Writes to an indirect register (16 bit) */
u_long flags;
flags = splhigh();
outb(u_Command, reg);
outb(u_DataLo, (u_char) (data & 0xff));
outb(u_DataHi, (u_char) ((data >> 8) & 0xff));
splx(flags);
}
static u_short
gus_read16(int reg)
{ /* Reads from an indirect register (16 bit). Offset 0x80. */
u_long flags;
u_char hi, lo;
flags = splhigh();
outb(u_Command, reg | 0x80);
lo = inb(u_DataLo);
hi = inb(u_DataHi);
splx(flags);
return ((hi << 8) & 0xff00) | lo;
}
static void
gus_write_addr(int reg, u_long address, int is16bit)
{ /* Writes an 24 bit memory address */
u_long hold_address;
u_long flags;
flags = splhigh();
if (is16bit) {
/*
* Special processing required for 16 bit patches
*/
hold_address = address;
address = address >> 1;
address &= 0x0001ffffL;
address |= (hold_address & 0x000c0000L);
}
gus_write16(reg, (u_short) ((address >> 7) & 0xffff));
gus_write16(reg + 1, (u_short) ((address << 9) & 0xffff));
/*
* Could writing twice fix problems with GUS_VOICE_POS() ? Lets try...
*/
gus_delay();
gus_write16(reg, (u_short) ((address >> 7) & 0xffff));
gus_write16(reg + 1, (u_short) ((address << 9) & 0xffff));
splx(flags);
}
static void
gus_select_voice(int voice)
{
if (voice < 0 || voice > 31)
return;
outb(u_Voice, voice);
}
static void
gus_select_max_voices(int nvoices)
{
if (nvoices < 14)
nvoices = 14;
if (nvoices > 32)
nvoices = 32;
voice_alloc->max_voice = nr_voices = nvoices;
gus_write8(0x0e, (nvoices - 1) | 0xc0);
}
static void
gus_voice_on(u_int mode)
{
gus_write8(0x00, (u_char) (mode & 0xfc));
gus_delay();
gus_write8(0x00, (u_char) (mode & 0xfc));
}
static void
gus_voice_off(void)
{
gus_write8(0x00, gus_read8(0x00) | 0x03);
}
static void
gus_voice_mode(u_int m)
{
u_char mode = (u_char) (m & 0xff);
gus_write8(0x00, (gus_read8(0x00) & 0x03) |
(mode & 0xfc)); /* Don't touch last two bits */
gus_delay();
gus_write8(0x00, (gus_read8(0x00) & 0x03) | (mode & 0xfc));
}
static void
gus_voice_freq(u_long freq)
{
u_long divisor = freq_div_table[nr_voices - 14];
u_short fc;
fc = (u_short) (((freq << 9) + (divisor >> 1)) / divisor);
fc = fc << 1;
gus_write16(0x01, fc);
}
static void
gus_voice_volume(u_int vol)
{
gus_write8(0x0d, 0x03); /* Stop ramp before setting volume */
gus_write16(0x09, (u_short) (vol << 4));
}
static void
gus_voice_balance(u_int balance)
{
gus_write8(0x0c, (u_char) (balance & 0xff));
}
static void
gus_ramp_range(u_int low, u_int high)
{
gus_write8(0x07, (u_char) ((low >> 4) & 0xff));
gus_write8(0x08, (u_char) ((high >> 4) & 0xff));
}
static void
gus_ramp_rate(u_int scale, u_int rate)
{
gus_write8(0x06, (u_char) (((scale & 0x03) << 6) | (rate & 0x3f)));
}
static void
gus_rampon(u_int m)
{
u_char mode = (u_char) (m & 0xff);
gus_write8(0x0d, mode & 0xfc);
gus_delay();
gus_write8(0x0d, mode & 0xfc);
}
static void
gus_ramp_mode(u_int m)
{
u_char mode = (u_char) (m & 0xff);
gus_write8(0x0d, (gus_read8(0x0d) & 0x03) |
(mode & 0xfc)); /* Leave the last 2 bits alone */
gus_delay();
gus_write8(0x0d, (gus_read8(0x0d) & 0x03) | (mode & 0xfc));
}
static void
gus_rampoff(void)
{
gus_write8(0x0d, 0x03);
}
static void
gus_set_voice_pos(int voice, long position)
{
int sample_no;
if ((sample_no = sample_map[voice]) != -1)
if (position < samples[sample_no].len)
if (voices[voice].volume_irq_mode == VMODE_START_NOTE)
voices[voice].offset_pending = position;
else
gus_write_addr(0x0a, sample_ptrs[sample_no] + position,
samples[sample_no].mode & WAVE_16_BITS);
}
static void
gus_voice_init(int voice)
{
u_long flags;
flags = splhigh();
gus_select_voice(voice);
gus_voice_volume(0);
gus_voice_off();
gus_write_addr(0x0a, 0, 0); /* Set current position to 0 */
gus_write8(0x00, 0x03); /* Voice off */
gus_write8(0x0d, 0x03); /* Ramping off */
voice_alloc->map[voice] = 0;
voice_alloc->alloc_times[voice] = 0;
splx(flags);
}
static void
gus_voice_init2(int voice)
{
voices[voice].panning = 0;
voices[voice].mode = 0;
voices[voice].orig_freq = 20000;
voices[voice].current_freq = 20000;
voices[voice].bender = 0;
voices[voice].bender_range = 200;
voices[voice].initial_volume = 0;
voices[voice].current_volume = 0;
voices[voice].loop_irq_mode = 0;
voices[voice].loop_irq_parm = 0;
voices[voice].volume_irq_mode = 0;
voices[voice].volume_irq_parm = 0;
voices[voice].env_phase = 0;
voices[voice].main_vol = 127;
voices[voice].patch_vol = 127;
voices[voice].expression_vol = 127;
voices[voice].sample_pending = -1;
}
static void
step_envelope(int voice)
{
u_int vol, prev_vol, phase;
u_char rate;
long int flags;
if (voices[voice].mode & WAVE_SUSTAIN_ON && voices[voice].env_phase == 2) {
flags = splhigh();
gus_select_voice(voice);
gus_rampoff();
splx(flags);
return;
/*
* Sustain phase begins. Continue envelope after receiving
* note off.
*/
}
if (voices[voice].env_phase >= 5) { /* Envelope finished. Shoot
* the voice down */
gus_voice_init(voice);
return;
}
prev_vol = voices[voice].current_volume;
phase = ++voices[voice].env_phase;
compute_volume(voice, voices[voice].midi_volume);
vol = voices[voice].initial_volume * voices[voice].env_offset[phase] / 255;
rate = voices[voice].env_rate[phase];
flags = splhigh();
gus_select_voice(voice);
gus_voice_volume(prev_vol);
gus_write8(0x06, rate); /* Ramping rate */
voices[voice].volume_irq_mode = VMODE_ENVELOPE;
if (((vol - prev_vol) / 64) == 0) { /* No significant volume
* change */
splx(flags);
step_envelope(voice); /* Continue the envelope on the next
* step */
return;
}
if (vol > prev_vol) {
if (vol >= (4096 - 64))
vol = 4096 - 65;
gus_ramp_range(0, vol);
gus_rampon(0x20); /* Increasing volume, with IRQ */
} else {
if (vol <= 64)
vol = 65;
gus_ramp_range(vol, 4030);
gus_rampon(0x60); /* Decreasing volume, with IRQ */
}
voices[voice].current_volume = vol;
splx(flags);
}
static void
init_envelope(int voice)
{
voices[voice].env_phase = -1;
voices[voice].current_volume = 64;
step_envelope(voice);
}
static void
start_release(int voice, long int flags)
{
if (gus_read8(0x00) & 0x03)
return; /* Voice already stopped */
voices[voice].env_phase = 2; /* Will be incremented by
* step_envelope */
voices[voice].current_volume =
voices[voice].initial_volume =
gus_read16(0x09) >> 4; /* Get current volume */
voices[voice].mode &= ~WAVE_SUSTAIN_ON;
gus_rampoff();
splx(flags);
step_envelope(voice);
}
static void
gus_voice_fade(int voice)
{
int instr_no = sample_map[voice], is16bits;
long int flags;
flags = splhigh();
gus_select_voice(voice);
if (instr_no < 0 || instr_no > MAX_SAMPLE) {
gus_write8(0x00, 0x03); /* Hard stop */
voice_alloc->map[voice] = 0;
splx(flags);
return;
}
is16bits = (samples[instr_no].mode & WAVE_16_BITS) ? 1 : 0; /* 8 or 16 bits */
if (voices[voice].mode & WAVE_ENVELOPES) {
start_release(voice, flags);
return;
}
/*
* Ramp the volume down but not too quickly.
*/
if ((int) (gus_read16(0x09) >> 4) < 100) { /* Get current volume */
gus_voice_off();
gus_rampoff();
gus_voice_init(voice);
return;
}
gus_ramp_range(65, 4030);
gus_ramp_rate(2, 4);
gus_rampon(0x40 | 0x20);/* Down, once, with IRQ */
voices[voice].volume_irq_mode = VMODE_HALT;
splx(flags);
}
static void
gus_reset(void)
{
int i;
gus_select_max_voices(24);
volume_base = 3071;
volume_scale = 4;
volume_method = VOL_METHOD_ADAGIO;
for (i = 0; i < 32; i++) {
gus_voice_init(i); /* Turn voice off */
gus_voice_init2(i);
}
inb(u_Status); /* Touch the status register */
gus_look8(0x41); /* Clear any pending DMA IRQs */
gus_look8(0x49); /* Clear any pending sample IRQs */
gus_read8(0x0f); /* Clear pending IRQs */
}
static void
gus_initialize(void)
{
u_long flags;
u_char dma_image, irq_image, tmp;
static u_char gus_irq_map[16] =
{0, 0, 0, 3, 0, 2, 0, 4, 0, 1, 0, 5, 6, 0, 0, 7};
static u_char gus_dma_map[8] =
{0, 1, 0, 2, 0, 3, 4, 5};
flags = splhigh();
gus_write8(0x4c, 0); /* Reset GF1 */
gus_delay();
gus_delay();
gus_write8(0x4c, 1); /* Release Reset */
gus_delay();
gus_delay();
/*
* Clear all interrupts
*/
gus_write8(0x41, 0); /* DMA control */
gus_write8(0x45, 0); /* Timer control */
gus_write8(0x49, 0); /* Sample control */
gus_select_max_voices(24);
inb(u_Status); /* Touch the status register */
gus_look8(0x41); /* Clear any pending DMA IRQs */
gus_look8(0x49); /* Clear any pending sample IRQs */
gus_read8(0x0f); /* Clear pending IRQs */
gus_reset(); /* Resets all voices */
gus_look8(0x41); /* Clear any pending DMA IRQs */
gus_look8(0x49); /* Clear any pending sample IRQs */
gus_read8(0x0f); /* Clear pending IRQs */
gus_write8(0x4c, 7); /* Master reset | DAC enable | IRQ enable */
/*
* Set up for Digital ASIC
*/
outb(gus_base + 0x0f, 0x05);
mix_image |= 0x02; /* Disable line out (for a moment) */
outb(u_Mixer, mix_image);
outb(u_IRQDMAControl, 0x00);
outb(gus_base + 0x0f, 0x00);
/*
* Now set up the DMA and IRQ interface
*
* The GUS supports two IRQs and two DMAs.
*
* Just one DMA channel is used. This prevents simultaneous ADC and DAC.
* Adding this support requires significant changes to the dmabuf.c,
* dsp.c and audio.c also.
*/
irq_image = 0;
tmp = gus_irq_map[gus_irq];
if (!tmp)
printf("Warning! GUS IRQ not selected\n");
irq_image |= tmp;
irq_image |= 0x40; /* Combine IRQ1 (GF1) and IRQ2 (Midi) */
dual_dma_mode = 1;
if (gus_dma2 == gus_dma || gus_dma2 == -1) {
dual_dma_mode = 0;
dma_image = 0x40; /* Combine DMA1 (DRAM) and IRQ2 (ADC) */
tmp = gus_dma_map[gus_dma];
if (!tmp)
printf("Warning! GUS DMA not selected\n");
dma_image |= tmp;
} else
/* Setup dual DMA channel mode for GUS MAX */
{
dma_image = gus_dma_map[gus_dma];
if (!dma_image)
printf("Warning! GUS DMA not selected\n");
tmp = gus_dma_map[gus_dma2] << 3;
if (!tmp) {
printf("Warning! Invalid GUS MAX DMA\n");
tmp = 0x40; /* Combine DMA channels */
dual_dma_mode = 0;
}
dma_image |= tmp;
}
/*
* For some reason the IRQ and DMA addresses must be written twice
*/
/*
* Doing it first time
*/
outb(u_Mixer, mix_image); /* Select DMA control */
outb(u_IRQDMAControl, dma_image | 0x80); /* Set DMA address */
outb(u_Mixer, mix_image | 0x40); /* Select IRQ control */
outb(u_IRQDMAControl, irq_image); /* Set IRQ address */
/*
* Doing it second time
*/
outb(u_Mixer, mix_image); /* Select DMA control */
outb(u_IRQDMAControl, dma_image); /* Set DMA address */
outb(u_Mixer, mix_image | 0x40); /* Select IRQ control */
outb(u_IRQDMAControl, irq_image); /* Set IRQ address */
gus_select_voice(0); /* This disables writes to IRQ/DMA reg */
mix_image &= ~0x02; /* Enable line out */
mix_image |= 0x08; /* Enable IRQ */
outb(u_Mixer, mix_image); /* Turn mixer channels on Note! Mic
* in is left off. */
gus_select_voice(0); /* This disables writes to IRQ/DMA reg */
gusintr(0); /* Serve pending interrupts */
splx(flags);
}
int
gus_wave_detect(int baseaddr)
{
u_long i;
u_long loc;
gus_base = baseaddr;
gus_write8(0x4c, 0); /* Reset GF1 */
gus_delay();
gus_delay();
gus_write8(0x4c, 1); /* Release Reset */
gus_delay();
gus_delay();
/* See if there is first block there.... */
gus_poke(0L, 0xaa);
if (gus_peek(0L) != 0xaa)
return (0);
/* Now zero it out so that I can check for mirroring .. */
gus_poke(0L, 0x00);
for (i = 1L; i < 1024L; i++) {
int n, failed;
/* check for mirroring ... */
if (gus_peek(0L) != 0)
break;
loc = i << 10;
for (n = loc - 1, failed = 0; n <= loc; n++) {
gus_poke(loc, 0xaa);
if (gus_peek(loc) != 0xaa)
failed = 1;
gus_poke(loc, 0x55);
if (gus_peek(loc) != 0x55)
failed = 1;
}
if (failed)
break;
}
gus_mem_size = i << 10;
return 1;
}
static int
guswave_ioctl(int dev,
u_int cmd, ioctl_arg arg)
{
switch (cmd) {
case SNDCTL_SYNTH_INFO:
gus_info.nr_voices = nr_voices;
bcopy(&gus_info, &(((char *) arg)[0]), sizeof(gus_info));
return 0;
break;
case SNDCTL_SEQ_RESETSAMPLES:
reset_sample_memory();
return 0;
break;
case SNDCTL_SEQ_PERCMODE:
return 0;
break;
case SNDCTL_SYNTH_MEMAVL:
return gus_mem_size - free_mem_ptr - 32;
default:
return -(EINVAL);
}
}
static int
guswave_set_instr(int dev, int voice, int instr_no)
{
int sample_no;
if (instr_no < 0 || instr_no > MAX_PATCH)
return -(EINVAL);
if (voice < 0 || voice > 31)
return -(EINVAL);
if (voices[voice].volume_irq_mode == VMODE_START_NOTE) {
voices[voice].sample_pending = instr_no;
return 0;
}
sample_no = patch_table[instr_no];
patch_map[voice] = -1;
if (sample_no < 0) {
printf("GUS: Undefined patch %d for voice %d\n", instr_no, voice);
return -(EINVAL); /* Patch not defined */
}
if (sample_ptrs[sample_no] == -1) { /* Sample not loaded */
printf("GUS: Sample #%d not loaded for patch %d (voice %d)\n",
sample_no, instr_no, voice);
return -(EINVAL);
}
sample_map[voice] = sample_no;
patch_map[voice] = instr_no;
return 0;
}
static int
guswave_kill_note(int dev, int voice, int note, int velocity)
{
u_long flags;
flags = splhigh();
/* voice_alloc->map[voice] = 0xffff; */
if (voices[voice].volume_irq_mode == VMODE_START_NOTE) {
voices[voice].kill_pending = 1;
splx(flags);
} else {
splx(flags);
gus_voice_fade(voice);
}
splx(flags);
return 0;
}
static void
guswave_aftertouch(int dev, int voice, int pressure)
{
}
static void
guswave_panning(int dev, int voice, int value)
{
if (voice >= 0 || voice < 32)
voices[voice].panning = value;
}
static void
guswave_volume_method(int dev, int mode)
{
if (mode == VOL_METHOD_LINEAR || mode == VOL_METHOD_ADAGIO)
volume_method = mode;
}
static void
compute_volume(int voice, int volume)
{
if (volume < 128)
voices[voice].midi_volume = volume;
switch (volume_method) {
case VOL_METHOD_ADAGIO:
voices[voice].initial_volume =
gus_adagio_vol(voices[voice].midi_volume, voices[voice].main_vol,
voices[voice].expression_vol, voices[voice].patch_vol);
break;
case VOL_METHOD_LINEAR:/* Totally ignores patch-volume and expression */
voices[voice].initial_volume =
gus_linear_vol(volume, voices[voice].main_vol);
break;
default:
voices[voice].initial_volume = volume_base +
(voices[voice].midi_volume * volume_scale);
}
if (voices[voice].initial_volume > 4030)
voices[voice].initial_volume = 4030;
}
static void
compute_and_set_volume(int voice, int volume, int ramp_time)
{
int curr, target, rate;
u_long flags;
compute_volume(voice, volume);
voices[voice].current_volume = voices[voice].initial_volume;
flags = splhigh();
/*
* CAUTION! Interrupts disabled. Enable them before returning
*/
gus_select_voice(voice);
curr = gus_read16(0x09) >> 4;
target = voices[voice].initial_volume;
if (ramp_time == INSTANT_RAMP) {
gus_rampoff();
gus_voice_volume(target);
splx(flags);
return;
}
if (ramp_time == FAST_RAMP)
rate = 63;
else
rate = 16;
gus_ramp_rate(0, rate);
if ((target - curr) / 64 == 0) { /* Close enough to target. */
gus_rampoff();
gus_voice_volume(target);
splx(flags);
return;
}
if (target > curr) {
if (target > (4095 - 65))
target = 4095 - 65;
gus_ramp_range(curr, target);
gus_rampon(0x00); /* Ramp up, once, no IRQ */
} else {
if (target < 65)
target = 65;
gus_ramp_range(target, curr);
gus_rampon(0x40); /* Ramp down, once, no irq */
}
splx(flags);
}
static void
dynamic_volume_change(int voice)
{
u_char status;
u_long flags;
flags = splhigh();
gus_select_voice(voice);
status = gus_read8(0x00); /* Get voice status */
splx(flags);
if (status & 0x03)
return; /* Voice was not running */
if (!(voices[voice].mode & WAVE_ENVELOPES)) {
compute_and_set_volume(voice, voices[voice].midi_volume, 1);
return;
}
/*
* Voice is running and has envelopes.
*/
flags = splhigh();
gus_select_voice(voice);
status = gus_read8(0x0d); /* Ramping status */
splx(flags);
if (status & 0x03) { /* Sustain phase? */
compute_and_set_volume(voice, voices[voice].midi_volume, 1);
return;
}
if (voices[voice].env_phase < 0)
return;
compute_volume(voice, voices[voice].midi_volume);
}
static void
guswave_controller(int dev, int voice, int ctrl_num, int value)
{
u_long flags;
u_long freq;
if (voice < 0 || voice > 31)
return;
switch (ctrl_num) {
case CTRL_PITCH_BENDER:
voices[voice].bender = value;
if (voices[voice].volume_irq_mode != VMODE_START_NOTE) {
freq = compute_finetune(voices[voice].orig_freq, value,
voices[voice].bender_range);
voices[voice].current_freq = freq;
flags = splhigh();
gus_select_voice(voice);
gus_voice_freq(freq);
splx(flags);
}
break;
case CTRL_PITCH_BENDER_RANGE:
voices[voice].bender_range = value;
break;
case CTL_EXPRESSION:
value /= 128;
case CTRL_EXPRESSION:
if (volume_method == VOL_METHOD_ADAGIO) {
voices[voice].expression_vol = value;
if (voices[voice].volume_irq_mode != VMODE_START_NOTE)
dynamic_volume_change(voice);
}
break;
case CTL_PAN:
voices[voice].panning = (value * 2) - 128;
break;
case CTL_MAIN_VOLUME:
value = (value * 100) / 16383;
case CTRL_MAIN_VOLUME:
voices[voice].main_vol = value;
if (voices[voice].volume_irq_mode != VMODE_START_NOTE)
dynamic_volume_change(voice);
break;
default:
break;
}
}
static int
guswave_start_note2(int dev, int voice, int note_num, int volume)
{
int sample, best_sample, best_delta, delta_freq;
int is16bits, samplep, patch, pan;
u_long note_freq, base_note, freq, flags;
u_char mode = 0;
if (voice < 0 || voice > 31) {
printf("GUS: Invalid voice\n");
return -(EINVAL);
}
if (note_num == 255) {
if (voices[voice].mode & WAVE_ENVELOPES) {
voices[voice].midi_volume = volume;
dynamic_volume_change(voice);
return 0;
}
compute_and_set_volume(voice, volume, 1);
return 0;
}
if ((patch = patch_map[voice]) == -1)
return -(EINVAL);
if ((samplep = patch_table[patch]) == -1)
return -(EINVAL);
note_freq = note_to_freq(note_num);
/*
* Find a sample within a patch so that the note_freq is between
* low_note and high_note.
*/
sample = -1;
best_sample = samplep;
best_delta = 1000000;
while (samplep >= 0 && sample == -1) {
dbg_samples = samples;
dbg_samplep = samplep;
delta_freq = note_freq - samples[samplep].base_note;
if (delta_freq < 0)
delta_freq = -delta_freq;
if (delta_freq < best_delta) {
best_sample = samplep;
best_delta = delta_freq;
}
if (samples[samplep].low_note <= note_freq &&
note_freq <= samples[samplep].high_note)
sample = samplep;
else
samplep = samples[samplep].key; /* Follow link */
}
if (sample == -1)
sample = best_sample;
if (sample == -1) {
printf("GUS: Patch %d not defined for note %d\n", patch, note_num);
return 0; /* Should play default patch ??? */
}
is16bits = (samples[sample].mode & WAVE_16_BITS) ? 1 : 0;
voices[voice].mode = samples[sample].mode;
voices[voice].patch_vol = samples[sample].volume;
if (voices[voice].mode & WAVE_ENVELOPES) {
int i;
for (i = 0; i < 6; i++) {
voices[voice].env_rate[i] = samples[sample].env_rate[i];
voices[voice].env_offset[i] = samples[sample].env_offset[i];
}
}
sample_map[voice] = sample;
base_note = samples[sample].base_note / 100; /* Try to avoid overflows */
note_freq /= 100;
freq = samples[sample].base_freq * note_freq / base_note;
voices[voice].orig_freq = freq;
/*
* Since the pitch bender may have been set before playing the note,
* we have to calculate the bending now.
*/
freq = compute_finetune(voices[voice].orig_freq, voices[voice].bender,
voices[voice].bender_range);
voices[voice].current_freq = freq;
pan = (samples[sample].panning + voices[voice].panning) / 32;
pan += 7;
if (pan < 0)
pan = 0;
if (pan > 15)
pan = 15;
if (samples[sample].mode & WAVE_16_BITS) {
mode |= 0x04; /* 16 bits */
if ((sample_ptrs[sample] >> 18) !=
((sample_ptrs[sample] + samples[sample].len) >> 18))
printf("GUS: Sample address error\n");
}
/*
* CAUTION! Interrupts disabled. Don't return before enabling
*/
flags = splhigh();
gus_select_voice(voice);
gus_voice_off();
gus_rampoff();
splx(flags);
if (voices[voice].mode & WAVE_ENVELOPES) {
compute_volume(voice, volume);
init_envelope(voice);
} else {
compute_and_set_volume(voice, volume, 0);
}
flags = splhigh();
gus_select_voice(voice);
if (samples[sample].mode & WAVE_LOOP_BACK)
gus_write_addr(0x0a, sample_ptrs[sample] + samples[sample].len -
voices[voice].offset_pending, is16bits); /* start=end */
else
gus_write_addr(0x0a, sample_ptrs[sample] + voices[voice].offset_pending,
is16bits); /* Sample start=begin */
if (samples[sample].mode & WAVE_LOOPING) {
mode |= 0x08;
if (samples[sample].mode & WAVE_BIDIR_LOOP)
mode |= 0x10;
if (samples[sample].mode & WAVE_LOOP_BACK) {
gus_write_addr(0x0a,
sample_ptrs[sample] + samples[sample].loop_end -
voices[voice].offset_pending, is16bits);
mode |= 0x40;
}
gus_write_addr(0x02, sample_ptrs[sample] + samples[sample].loop_start,
is16bits); /* Loop start location */
gus_write_addr(0x04, sample_ptrs[sample] + samples[sample].loop_end,
is16bits); /* Loop end location */
} else {
mode |= 0x20; /* Loop IRQ at the end */
voices[voice].loop_irq_mode = LMODE_FINISH; /* Ramp down at the end */
voices[voice].loop_irq_parm = 1;
gus_write_addr(0x02, sample_ptrs[sample],
is16bits); /* Loop start location */
gus_write_addr(0x04, sample_ptrs[sample] + samples[sample].len - 1,
is16bits); /* Loop end location */
}
gus_voice_freq(freq);
gus_voice_balance(pan);
gus_voice_on(mode);
splx(flags);
return 0;
}
/*
* New guswave_start_note by Andrew J. Robinson attempts to minimize clicking
* when the note playing on the voice is changed. It uses volume ramping.
*/
static int
guswave_start_note(int dev, int voice, int note_num, int volume)
{
long int flags;
int mode;
int ret_val = 0;
flags = splhigh();
if (note_num == 255) {
if (voices[voice].volume_irq_mode == VMODE_START_NOTE) {
voices[voice].volume_pending = volume;
} else {
ret_val = guswave_start_note2(dev, voice, note_num, volume);
}
} else {
gus_select_voice(voice);
mode = gus_read8(0x00);
if (mode & 0x20)
gus_write8(0x00, mode & 0xdf); /* No interrupt! */
voices[voice].offset_pending = 0;
voices[voice].kill_pending = 0;
voices[voice].volume_irq_mode = 0;
voices[voice].loop_irq_mode = 0;
if (voices[voice].sample_pending >= 0) {
splx(flags); /* Run temporarily with interrupts
* enabled */
guswave_set_instr(voices[voice].dev_pending, voice,
voices[voice].sample_pending);
voices[voice].sample_pending = -1;
flags = splhigh();
gus_select_voice(voice); /* Reselect the voice
* (just to be sure) */
}
if ((mode & 0x01) || (int) ((gus_read16(0x09) >> 4) < 2065)) {
ret_val = guswave_start_note2(dev, voice, note_num, volume);
} else {
voices[voice].dev_pending = dev;
voices[voice].note_pending = note_num;
voices[voice].volume_pending = volume;
voices[voice].volume_irq_mode = VMODE_START_NOTE;
gus_rampoff();
gus_ramp_range(2000, 4065);
gus_ramp_rate(0, 63); /* Fastest possible rate */
gus_rampon(0x20 | 0x40); /* Ramp down, once, irq */
}
}
splx(flags);
return ret_val;
}
static void
guswave_reset(int dev)
{
int i;
for (i = 0; i < 32; i++) {
gus_voice_init(i);
gus_voice_init2(i);
}
}
static int
guswave_open(int dev, int mode)
{
int err;
int otherside = audio_devs[dev]->otherside;
if (otherside != -1) {
if (audio_devs[otherside]->busy)
return -(EBUSY);
}
if (audio_devs[dev]->busy)
return -(EBUSY);
gus_initialize();
voice_alloc->timestamp = 0;
if ((err = DMAbuf_open_dma(gus_devnum)) < 0) {
printf("GUS: Loading saples without DMA\n");
gus_no_dma = 1; /* Upload samples using PIO */
} else
gus_no_dma = 0;
dram_sleep_flag.aborting = 0;
dram_sleep_flag.mode = WK_NONE;
active_device = GUS_DEV_WAVE;
audio_devs[dev]->busy = 1;
gus_reset();
return 0;
}
static void
guswave_close(int dev)
{
int otherside = audio_devs[dev]->otherside;
if (otherside != -1) {
if (audio_devs[otherside]->busy)
return;
}
audio_devs[dev]->busy = 0;
active_device = 0;
gus_reset();
if (!gus_no_dma)
DMAbuf_close_dma(gus_devnum);
}
static int
guswave_load_patch(int dev, int format, snd_rw_buf * addr,
int offs, int count, int pmgr_flag)
{
struct patch_info patch;
int instr;
long sizeof_patch;
u_long blk_size, blk_end, left, src_offs, target;
sizeof_patch = offsetof(struct patch_info, data); /* Header size */
if (format != GUS_PATCH) {
printf("GUS Error: Invalid patch format (key) 0x%x\n", format);
return -(EINVAL);
}
if (count < sizeof_patch) {
printf("GUS Error: Patch header too short\n");
return -(EINVAL);
}
count -= sizeof_patch;
if (free_sample >= MAX_SAMPLE) {
printf("GUS: Sample table full\n");
return -(ENOSPC);
}
/*
* Copy the header from user space but ignore the first bytes which
* have been transferred already.
*/
if (uiomove(&((char *) &patch)[offs], sizeof_patch - offs, addr)) {
printf("audio: Bad copyin()!\n");
};
instr = patch.instr_no;
if (instr < 0 || instr > MAX_PATCH) {
printf("GUS: Invalid patch number %d\n", instr);
return -(EINVAL);
}
if (count < patch.len) {
printf("GUS Warning: Patch record too short (%d<%d)\n",
count, (int) patch.len);
patch.len = count;
}
if (patch.len <= 0 || patch.len > gus_mem_size) {
printf("GUS: Invalid sample length %d\n", (int) patch.len);
return -(EINVAL);
}
if (patch.mode & WAVE_LOOPING) {
if (patch.loop_start < 0 || patch.loop_start >= patch.len) {
printf("GUS: Invalid loop start\n");
return -(EINVAL);
}
if (patch.loop_end < patch.loop_start || patch.loop_end > patch.len) {
printf("GUS: Invalid loop end\n");
return -(EINVAL);
}
}
free_mem_ptr = (free_mem_ptr + 31) & ~31; /* 32 byte alignment */
#define GUS_BANK_SIZE (256*1024)
if (patch.mode & WAVE_16_BITS) {
/*
* 16 bit samples must fit one 256k bank.
*/
if (patch.len >= GUS_BANK_SIZE) {
printf("GUS: Sample (16 bit) too long %d\n", (int) patch.len);
return -(ENOSPC);
}
if ((free_mem_ptr / GUS_BANK_SIZE) !=
((free_mem_ptr + patch.len) / GUS_BANK_SIZE)) {
u_long tmp_mem = /* Aligning to 256K */
((free_mem_ptr / GUS_BANK_SIZE) + 1) * GUS_BANK_SIZE;
if ((tmp_mem + patch.len) > gus_mem_size)
return -(ENOSPC);
free_mem_ptr = tmp_mem; /* This leaves unusable memory */
}
}
if ((free_mem_ptr + patch.len) > gus_mem_size)
return -(ENOSPC);
sample_ptrs[free_sample] = free_mem_ptr;
/*
* Tremolo is not possible with envelopes
*/
if (patch.mode & WAVE_ENVELOPES)
patch.mode &= ~WAVE_TREMOLO;
bcopy(&patch, (char *) &samples[free_sample], sizeof_patch);
/*
* Link this_one sample to the list of samples for patch 'instr'.
*/
samples[free_sample].key = patch_table[instr];
patch_table[instr] = free_sample;
/*
* Use DMA to transfer the wave data to the DRAM
*/
left = patch.len;
src_offs = 0;
target = free_mem_ptr;
while (left) { /* Not completely transferred yet */
/* blk_size = audio_devs[gus_devnum]->buffsize; */
blk_size = audio_devs[gus_devnum]->dmap_out->bytes_in_use;
if (blk_size > left)
blk_size = left;
/*
* DMA cannot cross 256k bank boundaries. Check for that.
*/
blk_end = target + blk_size;
if ((target >> 18) != (blk_end >> 18)) { /* Split the block */
blk_end &= ~(256 * 1024 - 1);
blk_size = blk_end - target;
}
if (gus_no_dma) {
/*
* For some reason the DMA is not possible. We have
* to use PIO.
*/
long i;
u_char data;
for (i = 0; i < blk_size; i++) {
uiomove((char *) &(data), 1, addr);
if (patch.mode & WAVE_UNSIGNED)
if (!(patch.mode & WAVE_16_BITS) || (i & 0x01))
data ^= 0x80; /* Convert to signed */
gus_poke(target + i, data);
}
} else {
u_long address, hold_address;
u_char dma_command;
u_long flags;
/*
* OK, move now. First in and then out.
*/
if (uiomove(audio_devs[gus_devnum]->dmap_out->raw_buf, blk_size, addr)) {
printf("audio: Bad copyin()!\n");
};
flags = splhigh();
/******** INTERRUPTS DISABLED NOW ********/
gus_write8(0x41, 0); /* Disable GF1 DMA */
DMAbuf_start_dma(gus_devnum,
audio_devs[gus_devnum]->dmap_out->raw_buf_phys,
blk_size, 1);
/*
* Set the DRAM address for the wave data
*/
address = target;
if (audio_devs[gus_devnum]->dmachan1 > 3) {
hold_address = address;
address = address >> 1;
address &= 0x0001ffffL;
address |= (hold_address & 0x000c0000L);
}
gus_write16(0x42, (address >> 4) & 0xffff); /* DRAM DMA address */
/*
* Start the DMA transfer
*/
dma_command = 0x21; /* IRQ enable, DMA start */
if (patch.mode & WAVE_UNSIGNED)
dma_command |= 0x80; /* Invert MSB */
if (patch.mode & WAVE_16_BITS)
dma_command |= 0x40; /* 16 bit _DATA_ */
if (audio_devs[gus_devnum]->dmachan1 > 3)
dma_command |= 0x04; /* 16 bit DMA _channel_ */
gus_write8(0x41, dma_command); /* Lets bo luteet (=bugs) */
/*
* Sleep here until the DRAM DMA done interrupt is
* served
*/
active_device = GUS_DEV_WAVE;
{
int chn;
dram_sleep_flag.mode = WK_SLEEP;
dram_sleeper = &chn;
DO_SLEEP(chn, dram_sleep_flag, hz);
};
if ((dram_sleep_flag.mode & WK_TIMEOUT))
printf("GUS: DMA Transfer timed out\n");
splx(flags);
}
/*
* Now the next part
*/
left -= blk_size;
src_offs += blk_size;
target += blk_size;
gus_write8(0x41, 0); /* Stop DMA */
}
free_mem_ptr += patch.len;
if (!pmgr_flag)
pmgr_inform(dev, PM_E_PATCH_LOADED, instr, free_sample, 0, 0);
free_sample++;
return 0;
}
static void
guswave_hw_control(int dev, u_char *event)
{
int voice, cmd;
u_short p1, p2;
u_long plong, flags;
cmd = event[2];
voice = event[3];
p1 = *(u_short *) &event[4];
p2 = *(u_short *) &event[6];
plong = *(u_long *) &event[4];
if ((voices[voice].volume_irq_mode == VMODE_START_NOTE) &&
(cmd != _GUS_VOICESAMPLE) && (cmd != _GUS_VOICE_POS))
do_volume_irq(voice);
switch (cmd) {
case _GUS_NUMVOICES:
flags = splhigh();
gus_select_voice(voice);
gus_select_max_voices(p1);
splx(flags);
break;
case _GUS_VOICESAMPLE:
guswave_set_instr(dev, voice, p1);
break;
case _GUS_VOICEON:
flags = splhigh();
gus_select_voice(voice);
p1 &= ~0x20; /* Don't allow interrupts */
gus_voice_on(p1);
splx(flags);
break;
case _GUS_VOICEOFF:
flags = splhigh();
gus_select_voice(voice);
gus_voice_off();
splx(flags);
break;
case _GUS_VOICEFADE:
gus_voice_fade(voice);
break;
case _GUS_VOICEMODE:
flags = splhigh();
gus_select_voice(voice);
p1 &= ~0x20; /* Don't allow interrupts */
gus_voice_mode(p1);
splx(flags);
break;
case _GUS_VOICEBALA:
flags = splhigh();
gus_select_voice(voice);
gus_voice_balance(p1);
splx(flags);
break;
case _GUS_VOICEFREQ:
flags = splhigh();
gus_select_voice(voice);
gus_voice_freq(plong);
splx(flags);
break;
case _GUS_VOICEVOL:
flags = splhigh();
gus_select_voice(voice);
gus_voice_volume(p1);
splx(flags);
break;
case _GUS_VOICEVOL2: /* Just update the software voice level */
voices[voice].initial_volume =
voices[voice].current_volume = p1;
break;
case _GUS_RAMPRANGE:
if (voices[voice].mode & WAVE_ENVELOPES)
break; /* NO-NO */
flags = splhigh();
gus_select_voice(voice);
gus_ramp_range(p1, p2);
splx(flags);
break;
case _GUS_RAMPRATE:
if (voices[voice].mode & WAVE_ENVELOPES)
break; /* NJET-NJET */
flags = splhigh();
gus_select_voice(voice);
gus_ramp_rate(p1, p2);
splx(flags);
break;
case _GUS_RAMPMODE:
if (voices[voice].mode & WAVE_ENVELOPES)
break; /* NO-NO */
flags = splhigh();
gus_select_voice(voice);
p1 &= ~0x20; /* Don't allow interrupts */
gus_ramp_mode(p1);
splx(flags);
break;
case _GUS_RAMPON:
if (voices[voice].mode & WAVE_ENVELOPES)
break; /* EI-EI */
flags = splhigh();
gus_select_voice(voice);
p1 &= ~0x20; /* Don't allow interrupts */
gus_rampon(p1);
splx(flags);
break;
case _GUS_RAMPOFF:
if (voices[voice].mode & WAVE_ENVELOPES)
break; /* NEJ-NEJ */
flags = splhigh();
gus_select_voice(voice);
gus_rampoff();
splx(flags);
break;
case _GUS_VOLUME_SCALE:
volume_base = p1;
volume_scale = p2;
break;
case _GUS_VOICE_POS:
flags = splhigh();
gus_select_voice(voice);
gus_set_voice_pos(voice, plong);
splx(flags);
break;
default:;
}
}
static int
gus_sampling_set_speed(int speed)
{
if (speed <= 0)
speed = gus_sampling_speed;
RANGE(speed, 4000, 44100);
gus_sampling_speed = speed;
if (only_read_access) {
/* Compute nearest valid recording speed and return it */
speed = (9878400 / (gus_sampling_speed + 2)) / 16;
speed = (9878400 / (speed * 16)) - 2;
}
return speed;
}
static int
gus_sampling_set_channels(int channels)
{
if (!channels)
return gus_sampling_channels;
RANGE(channels, 1, 2);
gus_sampling_channels = channels;
return channels;
}
static int
gus_sampling_set_bits(int bits)
{
if (!bits)
return gus_sampling_bits;
if (bits != 8 && bits != 16)
bits = 8;
if (only_8_bits)
bits = 8;
gus_sampling_bits = bits;
return bits;
}
static int
gus_sampling_ioctl(int dev, u_int cmd, ioctl_arg arg, int local)
{
switch (cmd) {
case SOUND_PCM_WRITE_RATE:
if (local)
return gus_sampling_set_speed((int) arg);
return *(int *) arg = gus_sampling_set_speed((*(int *) arg));
break;
case SOUND_PCM_READ_RATE:
if (local)
return gus_sampling_speed;
return *(int *) arg = gus_sampling_speed;
break;
case SNDCTL_DSP_STEREO:
if (local)
return gus_sampling_set_channels((int) arg + 1) - 1;
return *(int *) arg = gus_sampling_set_channels((*(int *) arg) + 1) - 1;
break;
case SOUND_PCM_WRITE_CHANNELS:
if (local)
return gus_sampling_set_channels((int) arg);
return *(int *) arg = gus_sampling_set_channels((*(int *) arg));
break;
case SOUND_PCM_READ_CHANNELS:
if (local)
return gus_sampling_channels;
return *(int *) arg = gus_sampling_channels;
break;
case SNDCTL_DSP_SETFMT:
if (local)
return gus_sampling_set_bits((int) arg);
return *(int *) arg = gus_sampling_set_bits((*(int *) arg));
break;
case SOUND_PCM_READ_BITS:
if (local)
return gus_sampling_bits;
return *(int *) arg = gus_sampling_bits;
case SOUND_PCM_WRITE_FILTER: /* NOT POSSIBLE */
return *(int *) arg = -(EINVAL);
break;
case SOUND_PCM_READ_FILTER:
return *(int *) arg = -(EINVAL);
break;
}
return -(EINVAL);
}
static void
gus_sampling_reset(int dev)
{
if (recording_active) {
gus_write8(0x49, 0x00); /* Halt recording */
set_input_volumes();
}
}
static int
gus_sampling_open(int dev, int mode)
{
int otherside = audio_devs[dev]->otherside;
if (otherside != -1) {
if (audio_devs[otherside]->busy)
return -(EBUSY);
}
if (audio_devs[dev]->busy)
return -(EBUSY);
gus_initialize();
active_device = 0;
gus_reset();
reset_sample_memory();
gus_select_max_voices(14);
pcm_active = 0;
dma_active = 0;
pcm_opened = 1;
audio_devs[dev]->busy = 1;
if (mode & OPEN_READ) {
recording_active = 1;
set_input_volumes();
}
only_read_access = !(mode & OPEN_WRITE);
only_8_bits = mode & OPEN_READ;
if (only_8_bits)
audio_devs[dev]->format_mask = AFMT_U8;
else
audio_devs[dev]->format_mask = AFMT_U8 | AFMT_S16_LE;
return 0;
}
static void
gus_sampling_close(int dev)
{
int otherside = audio_devs[dev]->otherside;
audio_devs[dev]->busy = 0;
if (otherside != -1) {
if (audio_devs[otherside]->busy)
return;
}
gus_reset();
pcm_opened = 0;
active_device = 0;
if (recording_active) {
gus_write8(0x49, 0x00); /* Halt recording */
set_input_volumes();
}
recording_active = 0;
}
static void
gus_sampling_update_volume(void)
{
u_long flags;
int voice;
if (pcm_active && pcm_opened)
for (voice = 0; voice < gus_sampling_channels; voice++) {
flags = splhigh();
gus_select_voice(voice);
gus_rampoff();
gus_voice_volume(1530 + (25 * gus_pcm_volume));
gus_ramp_range(65, 1530 + (25 * gus_pcm_volume));
splx(flags);
}
}
static void
play_next_pcm_block(void)
{
u_long flags;
int speed = gus_sampling_speed;
int this_one, is16bits, chn;
u_long dram_loc;
u_char mode[2], ramp_mode[2];
if (!pcm_qlen)
return;
this_one = pcm_head;
for (chn = 0; chn < gus_sampling_channels; chn++) {
mode[chn] = 0x00;
ramp_mode[chn] = 0x03; /* Ramping and rollover off */
if (chn == 0) {
mode[chn] |= 0x20; /* Loop IRQ */
voices[chn].loop_irq_mode = LMODE_PCM;
}
if (gus_sampling_bits != 8) {
is16bits = 1;
mode[chn] |= 0x04; /* 16 bit data */
} else
is16bits = 0;
dram_loc = this_one * pcm_bsize;
dram_loc += chn * pcm_banksize;
if (this_one == (pcm_nblk - 1)) { /* Last fragment of the
* DRAM buffer */
mode[chn] |= 0x08; /* Enable loop */
ramp_mode[chn] = 0x03; /* Disable rollover bit */
} else {
if (chn == 0)
ramp_mode[chn] = 0x04; /* Enable rollover bit */
}
flags = splhigh();
gus_select_voice(chn);
gus_voice_freq(speed);
if (gus_sampling_channels == 1)
gus_voice_balance(7); /* mono */
else if (chn == 0)
gus_voice_balance(0); /* left */
else
gus_voice_balance(15); /* right */
if (!pcm_active) { /* Playback not already active */
/*
* The playback was not started yet (or there has
* been a pause). Start the voice (again) and ask for
* a rollover irq at the end of this_one block. If
* this_one one is last of the buffers, use just the
* normal loop with irq.
*/
gus_voice_off();
gus_rampoff();
gus_voice_volume(1530 + (25 * gus_pcm_volume));
gus_ramp_range(65, 1530 + (25 * gus_pcm_volume));
gus_write_addr(0x0a, dram_loc, is16bits); /* Starting position */
gus_write_addr(0x02, chn * pcm_banksize, is16bits); /* Loop start */
if (chn != 0)
gus_write_addr(0x04, pcm_banksize + (pcm_bsize * pcm_nblk) - 1,
is16bits); /* Loop end location */
}
if (chn == 0)
gus_write_addr(0x04, dram_loc + pcm_datasize[this_one] - 1,
is16bits); /* Loop end location */
else
mode[chn] |= 0x08; /* Enable looping */
if (pcm_datasize[this_one] != pcm_bsize) {
/*
* Incompletely filled block. Possibly the last one.
*/
if (chn == 0) {
mode[chn] &= ~0x08; /* Disable looping */
mode[chn] |= 0x20; /* Enable IRQ at the end */
voices[0].loop_irq_mode = LMODE_PCM_STOP;
ramp_mode[chn] = 0x03; /* No rollover bit */
} else {
gus_write_addr(0x04, dram_loc + pcm_datasize[this_one],
is16bits); /* Loop end location */
mode[chn] &= ~0x08; /* Disable looping */
}
}
splx(flags);
}
for (chn = 0; chn < gus_sampling_channels; chn++) {
flags = splhigh();
gus_select_voice(chn);
gus_write8(0x0d, ramp_mode[chn]);
gus_voice_on(mode[chn]);
splx(flags);
}
pcm_active = 1;
}
static void
gus_transfer_output_block(int dev, u_long buf,
int total_count, int intrflag, int chn)
{
/*
* This routine transfers one block of audio data to the DRAM. In
* mono mode it's called just once. When in stereo mode, this_one
* routine is called once for both channels.
*
* The left/mono channel data is transferred to the beginning of dram
* and the right data to the area pointed by gus_page_size.
*/
int this_one, count;
u_long flags;
u_char dma_command;
u_long address, hold_address;
flags = splhigh();
count = total_count / gus_sampling_channels;
if (chn == 0) {
if (pcm_qlen >= pcm_nblk)
printf("GUS Warning: PCM buffers out of sync\n");
this_one = pcm_current_block = pcm_tail;
pcm_qlen++;
pcm_tail = (pcm_tail + 1) % pcm_nblk;
pcm_datasize[this_one] = count;
} else
this_one = pcm_current_block;
gus_write8(0x41, 0); /* Disable GF1 DMA */
DMAbuf_start_dma(dev, buf + (chn * count), count, 1);
address = this_one * pcm_bsize;
address += chn * pcm_banksize;
if (audio_devs[dev]->dmachan1 > 3) {
hold_address = address;
address = address >> 1;
address &= 0x0001ffffL;
address |= (hold_address & 0x000c0000L);
}
gus_write16(0x42, (address >> 4) & 0xffff); /* DRAM DMA address */
dma_command = 0x21; /* IRQ enable, DMA start */
if (gus_sampling_bits != 8)
dma_command |= 0x40; /* 16 bit _DATA_ */
else
dma_command |= 0x80; /* Invert MSB */
if (audio_devs[dev]->dmachan1 > 3)
dma_command |= 0x04; /* 16 bit DMA channel */
gus_write8(0x41, dma_command); /* Kickstart */
if (chn == (gus_sampling_channels - 1)) { /* Last channel */
/*
* Last (right or mono) channel data
*/
dma_active = 1; /* DMA started. There is a unacknowledged
* buffer */
active_device = GUS_DEV_PCM_DONE;
if (!pcm_active && (pcm_qlen > 0 || count < pcm_bsize)) {
play_next_pcm_block();
}
} else {
/*
* Left channel data. The right channel is transferred after
* DMA interrupt
*/
active_device = GUS_DEV_PCM_CONTINUE;
}
splx(flags);
}
static void
gus_sampling_output_block(int dev, u_long buf, int total_count,
int intrflag, int restart_dma)
{
pcm_current_buf = buf;
pcm_current_count = total_count;
pcm_current_intrflag = intrflag;
pcm_current_dev = dev;
gus_transfer_output_block(dev, buf, total_count, intrflag, 0);
}
static void
gus_sampling_start_input(int dev, u_long buf, int count,
int intrflag, int restart_dma)
{
u_long flags;
u_char mode;
flags = splhigh();
DMAbuf_start_dma(dev, buf, count, 0);
mode = 0xa0; /* DMA IRQ enabled, invert MSB */
if (audio_devs[dev]->dmachan2 > 3)
mode |= 0x04; /* 16 bit DMA channel */
if (gus_sampling_channels > 1)
mode |= 0x02; /* Stereo */
mode |= 0x01; /* DMA enable */
gus_write8(0x49, mode);
splx(flags);
}
static int
gus_sampling_prepare_for_input(int dev, int bsize, int bcount)
{
u_int rate;
rate = (9878400 / (gus_sampling_speed + 2)) / 16;
gus_write8(0x48, rate & 0xff); /* Set sampling rate */
if (gus_sampling_bits != 8) {
printf("GUS Error: 16 bit recording not supported\n");
return -(EINVAL);
}
return 0;
}
static int
gus_sampling_prepare_for_output(int dev, int bsize, int bcount)
{
int i;
long mem_ptr, mem_size;
mem_ptr = 0;
mem_size = gus_mem_size / gus_sampling_channels;
if (mem_size > (256 * 1024))
mem_size = 256 * 1024;
pcm_bsize = bsize / gus_sampling_channels;
pcm_head = pcm_tail = pcm_qlen = 0;
pcm_nblk = MAX_PCM_BUFFERS;
if ((pcm_bsize * pcm_nblk) > mem_size)
pcm_nblk = mem_size / pcm_bsize;
for (i = 0; i < pcm_nblk; i++)
pcm_datasize[i] = 0;
pcm_banksize = pcm_nblk * pcm_bsize;
if (gus_sampling_bits != 8 && pcm_banksize == (256 * 1024))
pcm_nblk--;
return 0;
}
static int
gus_local_qlen(int dev)
{
return pcm_qlen;
}
static void
gus_copy_from_user(int dev, char *localbuf, int localoffs,
snd_rw_buf * userbuf, int useroffs, int len)
{
if (gus_sampling_channels == 1) {
if (uiomove(&localbuf[localoffs], len, userbuf)) {
printf("audio: Bad copyin()!\n");
};
} else if (gus_sampling_bits == 8) {
int in_left = useroffs;
int in_right = useroffs + 1;
char *out_left, *out_right;
int i;
len /= 2;
localoffs /= 2;
out_left = &localbuf[localoffs];
out_right = out_left + pcm_bsize;
for (i = 0; i < len; i++) {
uiomove((char *) &(*out_left++), 1, userbuf);
in_left += 2;
uiomove((char *) &(*out_right++), 1, userbuf);
in_right += 2;
}
} else {
int in_left = useroffs;
int in_right = useroffs + 2;
short *out_left, *out_right;
int i;
len /= 4;
localoffs /= 2;
out_left = (short *) &localbuf[localoffs];
out_right = out_left + (pcm_bsize / 2);
for (i = 0; i < len; i++) {
uiomove((char *) &(*out_left++), 2, userbuf);
in_left += 2;
uiomove((char *) &(*out_right++), 2, userbuf);
in_right += 2;
}
}
}
static struct audio_operations gus_sampling_operations =
{
"Gravis UltraSound",
NEEDS_RESTART,
AFMT_U8 | AFMT_S16_LE,
NULL,
gus_sampling_open,
gus_sampling_close,
gus_sampling_output_block,
gus_sampling_start_input,
gus_sampling_ioctl,
gus_sampling_prepare_for_input,
gus_sampling_prepare_for_output,
gus_sampling_reset,
gus_sampling_reset,
gus_local_qlen,
gus_copy_from_user
};
static void
guswave_setup_voice(int dev, int voice, int chn)
{
struct channel_info *info =
&synth_devs[dev]->chn_info[chn];
guswave_set_instr(dev, voice, info->pgm_num);
voices[voice].expression_vol =
info->controllers[CTL_EXPRESSION]; /* Just msb */
voices[voice].main_vol =
(info->controllers[CTL_MAIN_VOLUME] * 100) / 128;
voices[voice].panning =
(info->controllers[CTL_PAN] * 2) - 128;
voices[voice].bender = info->bender_value;
}
static void
guswave_bender(int dev, int voice, int value)
{
int freq;
u_long flags;
voices[voice].bender = value - 8192;
freq = compute_finetune(voices[voice].orig_freq, value - 8192,
voices[voice].bender_range);
voices[voice].current_freq = freq;
flags = splhigh();
gus_select_voice(voice);
gus_voice_freq(freq);
splx(flags);
}
static int
guswave_patchmgr(int dev, struct patmgr_info * rec)
{
int i, n;
switch (rec->command) {
case PM_GET_DEVTYPE:
rec->parm1 = PMTYPE_WAVE;
return 0;
break;
case PM_GET_NRPGM:
rec->parm1 = MAX_PATCH;
return 0;
break;
case PM_GET_PGMMAP:
rec->parm1 = MAX_PATCH;
for (i = 0; i < MAX_PATCH; i++) {
int ptr = patch_table[i];
rec->data.data8[i] = 0;
while (ptr >= 0 && ptr < free_sample) {
rec->data.data8[i]++;
ptr = samples[ptr].key; /* Follow link */
}
}
return 0;
break;
case PM_GET_PGM_PATCHES:
{
int ptr = patch_table[rec->parm1];
n = 0;
while (ptr >= 0 && ptr < free_sample) {
rec->data.data32[n++] = ptr;
ptr = samples[ptr].key; /* Follow link */
}
}
rec->parm1 = n;
return 0;
break;
case PM_GET_PATCH:
{
int ptr = rec->parm1;
struct patch_info *pat;
if (ptr < 0 || ptr >= free_sample)
return -(EINVAL);
bcopy((char *) &samples[ptr], rec->data.data8, sizeof(struct patch_info));
pat = (struct patch_info *) rec->data.data8;
pat->key = GUS_PATCH; /* Restore patch type */
rec->parm1 = sample_ptrs[ptr]; /* DRAM location */
rec->parm2 = sizeof(struct patch_info);
}
return 0;
break;
case PM_SET_PATCH:
{
int ptr = rec->parm1;
struct patch_info *pat;
if (ptr < 0 || ptr >= free_sample)
return -(EINVAL);
pat = (struct patch_info *) rec->data.data8;
if (pat->len > samples[ptr].len) /* Cannot expand sample */
return -(EINVAL);
pat->key = samples[ptr].key; /* Ensure the link is
* correct */
bcopy(rec->data.data8, (char *) &samples[ptr], sizeof(struct patch_info));
pat->key = GUS_PATCH;
}
return 0;
break;
case PM_READ_PATCH: /* Returns a block of wave data from the DRAM */
{
int sample = rec->parm1;
int n;
long offs = rec->parm2;
int l = rec->parm3;
if (sample < 0 || sample >= free_sample)
return -(EINVAL);
if (offs < 0 || offs >= samples[sample].len)
return -(EINVAL); /* Invalid offset */
n = samples[sample].len - offs; /* Num of bytes left */
if (l > n)
l = n;
if (l > sizeof(rec->data.data8))
l = sizeof(rec->data.data8);
if (l <= 0)
return -(EINVAL); /* Was there a bug? */
offs += sample_ptrs[sample]; /* Begin offsess +
* offset to DRAM */
for (n = 0; n < l; n++)
rec->data.data8[n] = gus_peek(offs++);
rec->parm1 = n; /* Nr of bytes copied */
}
return 0;
break;
case PM_WRITE_PATCH: /* Writes a block of wave data to the DRAM */
{
int sample = rec->parm1;
int n;
long offs = rec->parm2;
int l = rec->parm3;
if (sample < 0 || sample >= free_sample)
return -(EINVAL);
if (offs < 0 || offs >= samples[sample].len)
return -(EINVAL); /* Invalid offset */
n = samples[sample].len - offs; /* Nr of bytes left */
if (l > n)
l = n;
if (l > sizeof(rec->data.data8))
l = sizeof(rec->data.data8);
if (l <= 0)
return -(EINVAL); /* Was there a bug? */
offs += sample_ptrs[sample]; /* Begin offsess +
* offset to DRAM */
for (n = 0; n < l; n++)
gus_poke(offs++, rec->data.data8[n]);
rec->parm1 = n; /* Nr of bytes copied */
}
return 0;
break;
default:
return -(EINVAL);
}
}
static int
guswave_alloc(int dev, int chn, int note, struct voice_alloc_info * alloc)
{
int i, p, best = -1, best_time = 0x7fffffff;
p = alloc->ptr;
/*
* First look for a completely stopped voice
*/
for (i = 0; i < alloc->max_voice; i++) {
if (alloc->map[p] == 0) {
alloc->ptr = p;
return p;
}
if (alloc->alloc_times[p] < best_time) {
best = p;
best_time = alloc->alloc_times[p];
}
p = (p + 1) % alloc->max_voice;
}
/*
* Then look for a releasing voice
*/
for (i = 0; i < alloc->max_voice; i++) {
if (alloc->map[p] == 0xffff) {
alloc->ptr = p;
return p;
}
p = (p + 1) % alloc->max_voice;
}
if (best >= 0)
p = best;
alloc->ptr = p;
return p;
}
static struct synth_operations guswave_operations =
{
&gus_info,
0,
SYNTH_TYPE_SAMPLE,
SAMPLE_TYPE_GUS,
guswave_open,
guswave_close,
guswave_ioctl,
guswave_kill_note,
guswave_start_note,
guswave_set_instr,
guswave_reset,
guswave_hw_control,
guswave_load_patch,
guswave_aftertouch,
guswave_controller,
guswave_panning,
guswave_volume_method,
guswave_patchmgr,
guswave_bender,
guswave_alloc,
guswave_setup_voice
};
static void
set_input_volumes(void)
{
u_long flags;
u_char mask = 0xff & ~0x06; /* Just line out enabled */
if (have_gus_max) /* Don't disturb GUS MAX */
return;
flags = splhigh();
/*
* Enable channels having vol > 10% Note! bit 0x01 means the line in
* DISABLED while 0x04 means the mic in ENABLED.
*/
if (gus_line_vol > 10)
mask &= ~0x01;
if (gus_mic_vol > 10)
mask |= 0x04;
if (recording_active) {
/*
* Disable channel, if not selected for recording
*/
if (!(gus_recmask & SOUND_MASK_LINE))
mask |= 0x01;
if (!(gus_recmask & SOUND_MASK_MIC))
mask &= ~0x04;
}
mix_image &= ~0x07;
mix_image |= mask & 0x07;
outb(u_Mixer, mix_image);
splx(flags);
}
int
gus_default_mixer_ioctl(int dev, u_int cmd, ioctl_arg arg)
{
#define MIX_DEVS (SOUND_MASK_MIC|SOUND_MASK_LINE| \
SOUND_MASK_SYNTH|SOUND_MASK_PCM)
if (((cmd >> 8) & 0xff) == 'M') {
if (cmd & IOC_IN)
switch (cmd & 0xff) {
case SOUND_MIXER_RECSRC:
gus_recmask = (*(int *) arg) & MIX_DEVS;
if (!(gus_recmask & (SOUND_MASK_MIC | SOUND_MASK_LINE)))
gus_recmask = SOUND_MASK_MIC;
/*
* Note! Input volumes are updated during
* next open for recording
*/
return *(int *) arg = gus_recmask;
break;
case SOUND_MIXER_MIC:
{
int vol = (*(int *) arg) & 0xff;
if (vol < 0)
vol = 0;
if (vol > 100)
vol = 100;
gus_mic_vol = vol;
set_input_volumes();
return *(int *) arg = vol | (vol << 8);
}
break;
case SOUND_MIXER_LINE:
{
int vol = (*(int *) arg) & 0xff;
if (vol < 0)
vol = 0;
if (vol > 100)
vol = 100;
gus_line_vol = vol;
set_input_volumes();
return *(int *) arg = vol | (vol << 8);
}
break;
case SOUND_MIXER_PCM:
gus_pcm_volume = (*(int *) arg) & 0xff;
RANGE (gus_pcm_volume, 0, 100);
gus_sampling_update_volume();
return *(int *) arg = gus_pcm_volume | (gus_pcm_volume << 8);
break;
case SOUND_MIXER_SYNTH:
{
int voice;
gus_wave_volume = (*(int *) arg) & 0xff;
RANGE (gus_wave_volume , 0, 100);
if (active_device == GUS_DEV_WAVE)
for (voice = 0; voice < nr_voices; voice++)
dynamic_volume_change(voice); /* Apply the new vol */
return *(int *) arg = gus_wave_volume | (gus_wave_volume << 8);
}
break;
default:
return -(EINVAL);
}
else
switch (cmd & 0xff) { /* Return parameters */
case SOUND_MIXER_RECSRC:
return *(int *) arg = gus_recmask;
break;
case SOUND_MIXER_DEVMASK:
return *(int *) arg = MIX_DEVS;
break;
case SOUND_MIXER_STEREODEVS:
return *(int *) arg = 0;
break;
case SOUND_MIXER_RECMASK:
return *(int *) arg = SOUND_MASK_MIC | SOUND_MASK_LINE;
break;
case SOUND_MIXER_CAPS:
return *(int *) arg = 0;
break;
case SOUND_MIXER_MIC:
return *(int *) arg = gus_mic_vol | (gus_mic_vol << 8);
break;
case SOUND_MIXER_LINE:
return *(int *) arg = gus_line_vol | (gus_line_vol << 8);
break;
case SOUND_MIXER_PCM:
return *(int *) arg = gus_pcm_volume | (gus_pcm_volume << 8);
break;
case SOUND_MIXER_SYNTH:
return *(int *) arg = gus_wave_volume | (gus_wave_volume << 8);
break;
default:
return -(EINVAL);
}
} else
return -(EINVAL);
}
static struct mixer_operations gus_mixer_operations = {"Gravis Ultrasound", gus_default_mixer_ioctl};
static void
gus_default_mixer_init()
{
if (num_mixers < MAX_MIXER_DEV) /* Don't install if there is another
* mixer */
mixer_devs[num_mixers++] = &gus_mixer_operations;
if (have_gus_max) {
/*
* Enable all mixer channels on the GF1 side. Otherwise
* recording will not be possible using GUS MAX.
*/
mix_image &= ~0x07;
mix_image |= 0x04; /* All channels enabled */
outb(u_Mixer, mix_image);
}
}
/* start of pnp code */
static void
SEND(int d, int r)
{
outb(PADDRESS, d);
outb(PWRITE_DATA, r);
}
/*
* Get the device's serial number. Returns 1 if the serial is valid.
*/
static int
get_serial(int rd_port, u_char *data)
{
int i, bit, valid = 0, sum = 0x6a;
bzero(data, sizeof(char) * 9);
for (i = 0; i < 72; i++) {
bit = inb((rd_port << 2) | 0x3) == 0x55;
DELAY(250); /* Delay 250 usec */
/* Can't Short Circuit the next evaluation, so 'and' is last */
bit = (inb((rd_port << 2) | 0x3) == 0xaa) && bit;
DELAY(250); /* Delay 250 usec */
valid = valid || bit;
if (i < 64)
sum = (sum >> 1) |
(((sum ^ (sum >> 1) ^ bit) << 7) & 0xff);
data[i / 8] = (data[i / 8] >> 1) | (bit ? 0x80 : 0);
}
valid = valid && (data[8] == sum);
return valid;
}
static void
send_Initiation_LFSR()
{
int cur, i;
/* Reset the LSFR */
outb(PADDRESS, 0);
outb(PADDRESS, 0);
cur = 0x6a;
outb(PADDRESS, cur);
for (i = 1; i < 32; i++) {
cur = (cur >> 1) | (((cur ^ (cur >> 1)) << 7) & 0xff);
outb(PADDRESS, cur);
}
}
static int
isolation_protocol(int rd_port)
{
int csn;
u_char data[9];
send_Initiation_LFSR();
/* Reset CSN for All Cards */
SEND(0x02, 0x04);
for (csn = 1; (csn < MAX_CARDS); csn++) {
/* Wake up cards without a CSN */
SEND(WAKE, 0);
SEND(SET_RD_DATA, rd_port);
outb(PADDRESS, SERIAL_ISOLATION);
DELAY(1000); /* Delay 1 msec */
if (get_serial(rd_port, data)) {
printf("Board Vendor ID: %c%c%c%02x%02x",
((data[0] & 0x7c) >> 2) + 64,
(((data[0] & 0x03) << 3) | ((data[1] & 0xe0) >> 5)) + 64,
(data[1] & 0x1f) + 64, data[2], data[3]);
printf(" Board Serial Number: %08x\n", *(int *) &(data[4]));
SEND(SET_CSN, csn); /* Move this out of this
* function XXX */
outb(PADDRESS, PSTATUS);
return rd_port;
} else
break;
}
return 0;
}
static void
IwaveDelay(WORD count)
{
WORD cur_cnt = 0, last_cnt;
BYTE reg, portb;
count = 1193 * count; /* convert number of ms to counter */
last_cnt = count;
portb = inb(0x61) & 0xFC;
outb(0x61, portb); /* disable counter */
outb(0x43, 0xB0); /* load LSB first then MSB */
outb(0x42, (BYTE) count);
outb(0x42, (BYTE) (count >> 8));
outb(0x61, (BYTE) (portb | 0x01)); /* enable counter */
while (cur_cnt <= count) {
outb(0x43, 0x80); /* latch counter */
reg = inb(0x42);/* read latched value */
cur_cnt = (((WORD) inb(0x42)) << 8) | reg;
if (cur_cnt > last_cnt)
break;
last_cnt = cur_cnt;
}
outb(0x61, portb); /* disable counter */
}
/*
* ########################################################################
*
* FUNCTION: IwaveStopDma
*
* PROFILE: This function stops an active DMA transfer to or from the record or
* playback FIFOs. Set the "path" variable to either PLAYBACK or RECORD.
* ########################################################################
*/
static void
IwaveStopDma(BYTE path)
{
BYTE reg;
ENTER_CRITICAL;
reg = inb(iw.pcodar) & 0xE0;
outb(iw.pcodar, reg | _CFIG1I); /* select CFIG1I */
outb(iw.cdatap, (BYTE) (inb(iw.cdatap) & ~path)); /* disable playback path */
LEAVE_CRITICAL;
}
/*
* ########################################################################
*
* FUNCTION : IwaveInputSource
*
* PROFILE: This function allows the calling program to select among any of
* several possible sources to the ADC's. The possible input sources and
* their corresponding symbolic constants are: - Line (LINE_IN) - Aux1
* (AUX1_IN) - Microphone (MIC_IN) - Mixer (MIX_IN)
*
* Set the first argument to either LEFT_SOURCE or RIGHT_SOURCE. Always use the
* symbolic contants for the arguments.
*
* ########################################################################
*/
static void
IwaveInputSource(BYTE index, BYTE source)
{
BYTE reg;
ENTER_CRITICAL;
reg = inb(iw.pcodar) & 0xE0;
outb(iw.pcodar, reg | index); /* select register CLICI or CRICI */
reg = inb(iw.cdatap) & ~MIX_IN;
source &= MIX_IN;
outb(iw.cdatap, (BYTE) (reg | source));
LEAVE_CRITICAL;
}
static void
IwavePnpGetCfg(void)
{
WORD val;
ENTER_CRITICAL;
IwavePnpDevice(AUDIO);
outb(_PIDXR, 0x60); /* select P2X0HI */
val = ((WORD) inb(iw.pnprdp)) << 8; /* get P2XR[9:8] */
outb(_PIDXR, 0x61); /* select P2XRLI */
iw.p2xr = val + (WORD) inb(iw.pnprdp); /* get P2XR[7:4] */
outb(_PIDXR, 0x62); /* select P3X0HI */
val = ((WORD) inb(iw.pnprdp)) << 8; /* get P3XR[9:8] */
outb(_PIDXR, 0x63); /* select P3X0LI */
iw.p3xr = val + (WORD) inb(iw.pnprdp); /* get P3XR[7:3] */
outb(_PIDXR, 0x64); /* select PHCAI */
val = ((WORD) inb(iw.pnprdp)) << 8; /* get PCODAR[9:8] */
outb(_PIDXR, 0x65); /* select PLCAI */
iw.pcodar = val + (WORD) inb(iw.pnprdp); /* get PCODAR[7:2] */
outb(_PIDXR, 0x70); /* select PUI1SI */
iw.synth_irq = (WORD) (inb(iw.pnprdp) & 0x0F); /* Synth IRQ number */
outb(_PIDXR, 0x72); /* select PUI2SI */
iw.midi_irq = (WORD) (inb(iw.pnprdp) & 0x0F); /* MIDI IRQ number */
outb(_PIDXR, 0x74); /* select PUD1SI */
iw.dma1_chan = inb(iw.pnprdp) & 0x07; /* DMA1 chan (LMC/Codec Rec) */
outb(_PIDXR, 0x75); /* select PUD2SI */
iw.dma2_chan = inb(iw.pnprdp) & 0x07; /* DMA2 chan (codec play) */
IwavePnpDevice(EXT); /* select external device */
outb(_PIDXR, 0x60); /* select PRAHI */
val = ((WORD) inb(iw.pnprdp)) << 8; /* get PCDRAR[9:8] */
outb(_PIDXR, 0x61); /* select PRALI */
iw.pcdrar = val + (WORD) inb(iw.pnprdp); /* get PCDRAR[7:4] */
outb(_PIDXR, 0x62); /* select PATAHI */
val = ((WORD) inb(iw.pnprdp)) << 8; /* get PATAAR[9:8] */
outb(_PIDXR, 0x63); /* select PATALI */
iw.pataar = val + (WORD) inb(iw.pnprdp); /* get PATAAR[7:1] */
outb(_PIDXR, 0x70); /* select PRISI */
iw.ext_irq = (WORD) (inb(iw.pnprdp) & 0x0F); /* Ext Dev IRQ number */
outb(_PIDXR, 0x74); /* select PRDSI */
iw.ext_chan = inb(iw.pnprdp) & 0x07; /* Ext Dev DMA channel */
IwavePnpDevice(MPU401); /* Select MPU401 Device */
outb(_PIDXR, 0x60); /* select P401HI */
val = ((WORD) inb(iw.pnprdp)) << 8; /* get P401AR[9:8] */
outb(_PIDXR, 0x61); /* select P401LI */
iw.p401ar = val + (WORD) inb(iw.pnprdp); /* get P401AR[7:1] */
outb(_PIDXR, 0x70); /* select PMISI */
iw.mpu_irq = (WORD) (inb(iw.pnprdp) & 0x0F); /* MPU401 Dev IRQ number */
IwavePnpDevice(GAME); /* Select GAME logical Device */
outb(_PIDXR, 0x60); /* select P201HI */
val = ((WORD) inb(iw.pnprdp)) << 8; /* get P201AR[9:8] */
outb(_PIDXR, 0x61); /* select P201LI */
iw.p201ar = val + (WORD) inb(iw.pnprdp); /* get P201AR[7:6] */
IwavePnpDevice(EMULATION); /* Select SB and ADLIB Device */
outb(_PIDXR, 0x60); /* select P388HI */
val = ((WORD) inb(iw.pnprdp)) << 8; /* get P388AR[9:8] */
outb(_PIDXR, 0x61); /* select P388LI */
iw.p388ar = val + inb(iw.pnprdp); /* get P388AR[7:6] */
outb(_PIDXR, 0x70); /* select PSBISI */
iw.emul_irq = (WORD) (inb(iw.pnprdp) & 0x0F); /* emulation Dev IRQ
* number */
LEAVE_CRITICAL;
}
static void
IwavePnpSetCfg(void)
{
ENTER_CRITICAL;
IwavePnpDevice(AUDIO); /* select audio device */
outb(_PIDXR, 0x60); /* select P2X0HI */
outb(_PNPWRP, (BYTE) (iw.p2xr >> 8)); /* set P2XR[9:8] */
outb(_PIDXR, 0x61); /* select P2X0LI */
outb(_PNPWRP, (BYTE) iw.p2xr); /* set P2XR[7:4] */
/* P2XR[3:0]=0 */
outb(_PIDXR, 0x62); /* select P3X0HI */
outb(_PNPWRP, (BYTE) (iw.p3xr >> 8)); /* set P3XR[9:8] */
outb(_PIDXR, 0x63); /* select P3X0LI */
outb(_PNPWRP, (BYTE) (iw.p3xr)); /* set P3XR[7:3] */
/* P3XR[2:0]=0 */
outb(_PIDXR, 0x64); /* select PHCAI */
outb(_PNPWRP, (BYTE) (iw.pcodar >> 8)); /* set PCODAR[9:8] */
outb(_PIDXR, 0x65); /* select PLCAI */
outb(_PNPWRP, (BYTE) iw.pcodar); /* set PCODAR[7:2] */
outb(_PIDXR, 0x70); /* select PUI1SI */
outb(_PNPWRP, (BYTE) (iw.synth_irq & 0x0F)); /* Synth IRQ number */
outb(_PIDXR, 0x72); /* select PUI2SI */
outb(_PNPWRP, (BYTE) (iw.midi_irq & 0x0F)); /* MIDI IRQ number */
outb(_PIDXR, 0x74); /* select PUD1SI */
outb(_PNPWRP, (BYTE) (iw.dma1_chan & 0x07)); /* DMA channel 1 */
outb(_PIDXR, 0x75); /* select PUD2SI */
outb(_PNPWRP, (BYTE) (iw.dma2_chan & 0x07)); /* DMA channel 2 */
IwavePnpDevice(EXT);
outb(_PIDXR, 0x60); /* select PRAHI */
outb(_PNPWRP, (BYTE) (iw.pcdrar >> 8)); /* set PCDRAR[9:8] */
outb(_PIDXR, 0x61); /* select PRALI */
outb(_PNPWRP, (BYTE) iw.pcdrar); /* set PCDRAR[7:3] */
/* PCDRAR[2:0]=0 */
outb(_PIDXR, 0x62); /* select PATAHI */
outb(_PNPWRP, (BYTE) (iw.pataar >> 8)); /* set PATAAR[9:8] */
outb(_PIDXR, 0x63); /* select PATALI */
outb(_PNPWRP, (BYTE) iw.pataar); /* set PATAAR[7:1] */
/* PATAAR[0]=0 */
outb(_PIDXR, 0x70); /* select PRISI */
outb(_PNPWRP, (BYTE) (iw.ext_irq & 0x0F)); /* Ext Dev IRQ number */
outb(_PIDXR, 0x74); /* select PRDSI */
outb(_PNPWRP, (BYTE) (iw.ext_chan & 0x07)); /* Ext Dev DMA channel */
IwavePnpDevice(GAME);
outb(_PIDXR, 0x60); /* select P201HI */
outb(_PNPWRP, (BYTE) (iw.p201ar >> 8)); /* set P201RAR[9:8] */
outb(_PIDXR, 0x61); /* select P201LI */
outb(_PNPWRP, (BYTE) iw.p201ar); /* set P201AR[7:6] */
IwavePnpDevice(EMULATION);
outb(_PIDXR, 0x60); /* select P388HI */
outb(_PNPWRP, (BYTE) (iw.p388ar >> 8)); /* set P388AR[9:8] */
outb(_PIDXR, 0x61); /* select P388LI */
outb(_PNPWRP, (BYTE) iw.p388ar); /* set P388AR[7:6] */
outb(_PIDXR, 0x70); /* select PSBISI */
outb(_PNPWRP, (BYTE) (iw.emul_irq & 0x0F)); /* emulation IRQ number */
IwavePnpDevice(MPU401);
outb(_PIDXR, 0x60); /* select P401HI */
outb(_PNPWRP, (BYTE) (iw.p401ar >> 8)); /* set P401AR[9:8] */
outb(_PIDXR, 0x61); /* select P401LI */
outb(_PNPWRP, (BYTE) iw.p401ar); /* set P401AR[7:1] */
outb(_PIDXR, 0x70); /* select PMISI */
outb(_PNPWRP, (BYTE) (iw.mpu_irq & 0x0F)); /* MPU emulation IRQ
* number */
LEAVE_CRITICAL;
}
static void
IwaveCfgIOSpace(void)
{
ENTER_CRITICAL;
IwavePnpDevice(AUDIO); /* select audio device */
outb(_PIDXR, 0x60); /* select P2X0HI */
outb(_PNPWRP, (BYTE) (iw.p2xr >> 8)); /* set P2XR[9:8] */
outb(_PIDXR, 0x61); /* select P2X0LI */
outb(_PNPWRP, (BYTE) iw.p2xr); /* set P2XR[7:4] */
/* P2XR[3:0]=0 */
outb(_PIDXR, 0x62); /* select P3X0HI */
outb(_PNPWRP, (BYTE) (iw.p3xr >> 8)); /* set P3XR[9:8] */
outb(_PIDXR, 0x63); /* select P3X0LI */
outb(_PNPWRP, (BYTE) (iw.p3xr)); /* set P3XR[7:3] */
/* P3XR[2:0]=0 */
outb(_PIDXR, 0x64); /* select PHCAI */
outb(_PNPWRP, (BYTE) (iw.pcodar >> 8)); /* set PCODAR[9:8] */
outb(_PIDXR, 0x65); /* select PLCAI */
outb(_PNPWRP, (BYTE) iw.pcodar); /* set PCODAR[7:2] */
IwavePnpDevice(EXT);
outb(_PIDXR, 0x60); /* select PRAHI */
outb(_PNPWRP, (BYTE) (iw.pcdrar >> 8)); /* set PCDRAR[9:8] */
outb(_PIDXR, 0x61); /* select PRALI */
outb(_PNPWRP, (BYTE) iw.pcdrar); /* set PCDRAR[7:3] */
/* PCDRAR[2:0]=0 */
outb(_PIDXR, 0x62); /* select PATAHI */
outb(_PNPWRP, (BYTE) (iw.pataar >> 8)); /* set PATAAR[9:8] */
outb(_PIDXR, 0x63); /* select PATALI */
outb(_PNPWRP, (BYTE) iw.pataar); /* set PATAAR[7:1] */
/* PATAAR[0]=0 */
IwavePnpDevice(GAME);
outb(_PIDXR, 0x60); /* select P201HI */
outb(_PNPWRP, (BYTE) (iw.p201ar >> 8)); /* set P201RAR[9:8] */
outb(_PIDXR, 0x61); /* select P201LI */
outb(_PNPWRP, (BYTE) iw.p201ar); /* set P201AR[7:6] */
IwavePnpDevice(EMULATION);
outb(_PIDXR, 0x60); /* select P388HI */
outb(_PNPWRP, (BYTE) (iw.p388ar >> 8)); /* set P388AR[9:8] */
outb(_PIDXR, 0x61); /* select P388LI */
outb(_PNPWRP, (BYTE) iw.p388ar); /* set P388AR[7:6] */
IwavePnpDevice(MPU401);
outb(_PIDXR, 0x60); /* select P401HI */
outb(_PNPWRP, (BYTE) (iw.p401ar >> 8)); /* set P401AR[9:8] */
outb(_PIDXR, 0x61); /* select P401LI */
outb(_PNPWRP, (BYTE) iw.p401ar); /* set P401AR[7:1] */
LEAVE_CRITICAL;
}
/* ######################################################################## */
/* FILE: iwpnp.c */
/* */
/* REMARKS: This file contains the definitions for the InterWave's DDK */
/* functions dedicated to the configuration of the InterWave */
/* PNP logic. */
/* */
/* UPDATE: 4/07/95 */
/* ######################################################################## */
/* */
/* FUNCTION: IwavePnpKey */
/* */
/* PROFILE: This function issues the initiation key that places the PNP */
/* logic into configuration mode. The PNP logic is quiescent at */
/* power up and must be enabled by software. This function will */
/* do 32 I/O writes to the PIDXR (0x0279). The function will */
/* first reset the LFSR to its initial value by a sequence of two */
/* write cycles of 0x00 to PIDXR before issuing the key. */
/* */
/* ######################################################################## */
static void
IwavePnpKey(void)
{
/* send_Initiation_LFSR(); */
BYTE code = 0x6A;
BYTE msb;
BYTE i;
/* ############################################### */
/* Reset Linear Feedback Shift Reg. */
/* ############################################### */
outb(0x279, 0x00);
outb(0x279, 0x00);
outb(0x279, code); /* Initial value */
for (i = 1; i < 32; i++) {
msb = ((code & 0x01) ^ ((code & 0x02) >> 1)) << 7;
code = (code >> 1) | msb;
outb(0x279, code);
}
}
static BYTE
IwavePnpIsol(PORT * pnpread)
{
int num_pnp_devs;
int rd_port = 0;
printf("Checking for GUS Plug-n-Play ...\n");
/* Try various READ_DATA ports from 0x203-0x3ff */
for (rd_port = 0x80; (rd_port < 0xff); rd_port += 0x10) {
if (0)
printf("Trying Read_Port at %x\n",
(rd_port << 2) | 0x3);
num_pnp_devs = isolation_protocol(rd_port);
if (num_pnp_devs) {
*pnpread = rd_port << 2 | 0x3;
break;
}
}
if (!num_pnp_devs) {
printf("No Plug-n-Play devices were found\n");
return 0;
}
return 1;
}
/* ######################################################################## */
/* */
/* FUNCTION: IwavePnpSerial */
/* */
/* PROFILE: This function reads the first nine bytes of the data from */
/* the serial EEPROM and returns the Vendor ID and the serial */
/* number. First, it resets the EEPROM control logic by */
/* issuing a WAKE[CSN] command. The function will return an */
/* ASCII string for the vendor ID into the char array pointed */
/* to by "vendor" in the VVVNNNN format. The serial number */
/* is placed in the 32-bit variable pointed to by "serial". */
/* Note that the 9th byte is read but not used as it is invalid */
/* when the serial identifier is read via PRESDI. */
/* */
/* This function assumes that the PNP state machine is not in */
/* the "wait for key state". Otherwise, unpredictable results */
/* will be obtained. */
/* */
/* ######################################################################## */
static void
IwavePnpSerial(PORT pnprdp,
BYTE csn,
BYTE * vendor,
DWORD * serial)
{
BYTE presdi, digit, i;
*serial = 0L;
/* ####################################### */
/* Reset Serial EEPROM logic */
/* ####################################### */
IwavePnpWake(csn); /* Wake card up */
for (i = 1; i <= 4; i++) {
IwavePnpPeek(pnprdp, 1, &presdi);
switch (i) {
case 1:
*(vendor++) = ((presdi & 0x7C) >> 2) | 0x40; /* 1st char */
*vendor = (presdi & 0x03) << 3; /* isolate bits[4:3] of
* 2nd char */
break;
case 2:
*vendor = ((presdi & 0xE0) >> 5) | (*vendor);
*(vendor++) = (*vendor) | 0x40; /* 2nd char */
*vendor = (presdi & 0x1F) | 0x40; /* 3rd char */
break;
case 3:
case 4:
digit = (presdi & 0xF0) >> 4;
if (digit <= 0x09)
*(++vendor) = digit + 0x30; /* ASCII of digit */
else
*(++vendor) = (digit & 0x07) + 0x3F;
digit = presdi & 0x0F;
if (digit <= 0x09)
*(++vendor) = digit + 0x30;
else
*(++vendor) = (digit & 0x07) + 0x3F;
break;
}
}
*(++vendor) = '\0';
IwavePnpPeek(pnprdp, 4, (BYTE *) serial);
IwavePnpPeek(pnprdp, 1, NULL); /* discard checksum */
}
/* ######################################################################## */
/* */
/* FUNCTION: IwavePnpPeek */
/* */
/* PROFILE: This function will return the number of specified bytes of */
/* resource data from the serial EEPROM. The function will NOT */
/* reset the serial EEPROM logic to allow reading the entire */
/* EEPROM by issuing repeated calls. The caller must supply a */
/* pointer to where the data are to be stored. */
/* It is assumed that the InterWave is not in either "sleep" */
/* or "wait for key" states. Note that on the first call, if */
/* the caller means to read from the beggining of data the */
/* serial EEPROM logic must be reset. For this, the caller */
/* should issue a WAKE[CSN] command */
/* */
/* ######################################################################## */
static void
IwavePnpPeek(PORT pnprdp, WORD bytes, BYTE * data)
{
WORD i;
BYTE datum;
for (i = 1; i <= bytes; i++) {
outb(_PIDXR, 0x05); /* select PRESSI */
while (TRUE) { /* wait til new data byte is ready */
if (inb(pnprdp) & PNP_DATA_RDY)
break; /* new resource byte ready */
}
outb(_PIDXR, 0x04); /* select PRESDI */
datum = inb(pnprdp); /* read resource byte */
if (data != NULL)
*(data++) = datum; /* store it */
}
}
/* ######################################################################## */
/* */
/* FUNCTION: IwavePnpEeprom */
/* */
/* PROFILE: This function allows the caller to control the serial */
/* EEPROM directly while the audio device is inactive. To */
/* de-activate the audio device issue the call */
/* IwavePnpActivate(AUDIO,OFF). */
/* */
/* ######################################################################## */
static void
IwavePnpEeprom(BYTE ctrl)
{
ENTER_CRITICAL;
outb(_PIDXR, 0xF1); /* select PSECI */
outb(_PNPWRP, ctrl); /* write PSECI */
LEAVE_CRITICAL;
}
/* ######################################################################## */
/* */
/* FUNCTION: IwavePnpActivate */
/* */
/* PROFILE: This function will activate or de-activate the audio device */
/* or the external device on the InterWave. Set the "dev" arg */
/* to AUDIO for the audio device or EXT for the external device. */
/* Set "bool" to ON or OFF to turn the device on or off the ISA */
/* bus. Notice that for a logical device to work, it must be */
/* activated. */
/* */
/* ######################################################################## */
static void
IwavePnpActivate(BYTE dev, BYTE bool)
{
IwavePnpDevice(dev); /* select audio device */
ENTER_CRITICAL;
outb(_PIDXR, ACTIVATE_DEV); /* select Activate Register */
outb(_PNPWRP, bool); /* write register */
LEAVE_CRITICAL;
}
/* ######################################################################## */
/* */
/* FUNCTION: IwavePnpDevice */
/* */
/* PROFILE: This function allows the caller to select between five */
/* logical devices available on the InterWave.It is assumed */
/* that the PNP state machine is in configuration mode. */
/* */
/* ######################################################################## */
static void
IwavePnpDevice(BYTE dev)
{
ENTER_CRITICAL;
outb(_PIDXR, _PLDNI); /* select PLDNI */
outb(_PNPWRP, dev); /* write PLDNI */
LEAVE_CRITICAL;
}
/* ######################################################################## */
/* */
/* FUNCTION: IwavePnpPower */
/* */
/* PROFILE: This function allows the caller to disable major sections of */
/* the InterWave to prevent them from consuming power and */
/* loading the ISA bus. */
/* */
/* It is assumed that the PNP state machine is in configuration */
/* mode. */
/* */
/* ######################################################################## */
static void
IwavePnpPower(BYTE mode)
{
ENTER_CRITICAL;
outb(_PIDXR, _PPWRI); /* select PPWRI */
outb(_PNPWRP, mode); /* write PPWRI */
LEAVE_CRITICAL;
}
/* ######################################################################## */
/* */
/* FUNCTION: IwavePnpWake */
/* */
/* PROFILE: This function issues a WAKE[CSN] command to the InterWave. If */
/* the CSN matches the PNP state machine will enter the */
/* configuration state. Otherwise it will enter the sleep mode. */
/* */
/* It is assumed that the PNP state machine is not in the */
/* "wait for key" state. */
/* */
/* ######################################################################## */
static void
IwavePnpWake(BYTE csn)
{
ENTER_CRITICAL;
outb(_PIDXR, _PWAKEI); /* select PWAKEI */
outb(_PNPWRP, csn); /* write csn */
LEAVE_CRITICAL;
}
/* ######################################################################## */
/* */
/* FUNCTION: IwavePnpIOcheck */
/* */
/* PROFILE: This function allows the caller to perform a conflict check */
/* on an I/O port to be used by a logical device. The function */
/* receives the base address of the I/O range as well as the */
/* number of ports in the range and then performs the I/O check */
/* protocol. It returns the address of the port if a conflict */
/* is detected or IO_CHK if no conflict is detected. */
/* */
/* This function assumes that the logical device has been de- */
/* activated and that the PNP state machine is in config mode. */
/* */
/* ######################################################################## */
static PORT
IwavePnpIOcheck(PORT base, BYTE no_ports)
{
BYTE i;
PORT portid;
outb(_PIDXR, RANGE_IOCHK); /* select IO range check reg */
for (i = 0; i < no_ports; i++) {
portid = base + i; /* port to check */
outb(_PNPWRP, 0x02); /* must drive 0xAA onto bus */
if (inb(portid) != 0xAA)
return (portid); /* IO conflict detected */
outb(_PNPWRP, 0x03); /* must drive 0x55 onto bus */
if (inb(portid) != 0x55)
return (portid); /* IO conflict detected */
}
return (IO_OK);
}
/* ######################################################################## */
/* */
/* FUNCTION: IwavePnpGetCSN */
/* */
/* PROFILE: This function allows the caller to detect an InterWave based */
/* adapter board and will return its asigned CSN so that an */
/* an application can access its PnP interface and determine the */
/* borad's current configuration. In conducting its search for */
/* the InterWave IC, the function will use the first 32 bits of */
/* the Serial Identifier called the vendor ID in the PnP ISA */
/* spec. The last 4 bits in the Vendor ID represent a revision */
/* number for the particular product and this function gives the */
/* caller the option of taking this revision number into account */
/* or not in the search. If the function fails to find the */
/* InterWave IC it will return FALSE. */
/* */
/* ######################################################################## */
static BYTE
IwavePnpGetCSN(DWORD VendorID, BYTE csn_max)
{
BYTE csn;
DWORD vendor;
IwavePnpKey(); /* Key to access PnP Interface */
VendorID &= (0xFFFFFFF0); /* reset 4 least significant bits */
for (csn = 1; csn <= csn_max; csn++) {
IwavePnpWake(csn); /* Select card */
IwavePnpPeek(iw.pnprdp, 4, (BYTE *) & vendor); /* get vendor ID */
vendor &= (0xFFFFFFF0);
if (vendor == VendorID) { /* If IDs match, InterWave is
* found */
outb(_PIDXR, 0x02); /* Place all cards in
* wait-for-key state */
outb(0x0A79, 0x02);
return (csn);
}
}
outb(_PIDXR, 0x02); /* Place all cards in wait-for-key state */
outb(0x0A79, 0x02);
return (FALSE); /* InterWave IC not found */
}
/* ######################################################################## */
/* */
/*
* FUNCTION: IwavePnpPing
*/
/* */
/* PROFILE: This function allows the caller to detect an InterWave based */
/* adapter board and will return its asigned CSN so that an */
/* an application can access its PnP interface and determine the */
/* borad's current configuration. In conducting its search for */
/* the InterWave IC, the function will use the first 32 bits of */
/* the Serial Identifier called the vendor ID in the PnP ISA */
/* spec. The last 4 bits in the Vendor ID represent a revision */
/* number for the particular product and will not be included */
/* in the search. The function will return the Vendor ID and the */
/* calling application should check the revision bits to make */
/* sure they are compatible with the board. */
/* */
/* ######################################################################## */
static BYTE
IwavePnpPing(DWORD VendorID)
{
BYTE csn;
VendorID &= (0xFFFFFFF0); /* reset 4 least significant bits */
IwavePnpKey(); /* Key to access PnP Interface */
while (iw.pnprdp <= 0x23F) {
for (csn = 1; csn <= 10; csn++) {
IwavePnpWake(csn); /* Select card */
IwavePnpPeek(iw.pnprdp, 4, (BYTE *) & iw.vendor); /* get vendor ID */
if (((iw.vendor) & 0xFFFFFFF0) == VendorID) { /* If IDs match,
* InterWave is found */
outb(_PIDXR, 0x02); /* Place all cards in
* wait-for-key state */
outb(0x0A79, 0x02);
return (csn);
}
}
iw.pnprdp += 0x04;
}
outb(_PIDXR, 0x02); /* Place all cards in wait-for-key state */
outb(0x0A79, 0x02);
return (FALSE); /* InterWave IC not found */
}
/* end of pnp code */
static WORD
IwaveMemSize(void)
{
BYTE datum = 0x55;
ADDRESS local = 0L;
outb(iw.igidxr, _LMCI);
outb(iw.i8dp, inb(iw.i8dp) & 0xFD); /* DRAM I/O cycles selected */
while (TRUE) {
IwaveMemPoke(local, datum);
IwaveMemPoke(local + 1L, datum + 1);
if (IwaveMemPeek(local) != datum || IwaveMemPeek(local + 1L) != (datum + 1) || IwaveMemPeek(0L) != 0x55)
break;
local += RAM_STEP;
datum++;
}
return ((WORD) (local >> 10));
}
static BYTE
IwaveMemPeek(ADDRESS addr)
{
PORT p3xr;
p3xr = iw.p3xr;
outb(iw.igidxr, 0x43); /* Select LMALI */
outw(iw.i16dp, (WORD) addr); /* Lower 16 bits of LM */
outb(iw.igidxr, 0x44); /* Select LMAHI */
outb(iw.i8dp, (BYTE) (addr >> 16)); /* Upper 8 bits of LM */
return (inb(iw.lmbdr)); /* return byte from LMBDR */
}
static void
IwaveMemPoke(ADDRESS addr, BYTE datum)
{
PORT p3xr;
p3xr = iw.p3xr;
outb(iw.igidxr, 0x43); /* Select LMALI */
outw(iw.i16dp, (WORD) addr); /* Lower 16 bits of LM */
outb(iw.igidxr, 0x44); /* Select LMAHI */
outb(iw.i8dp, (BYTE) (addr >> 16)); /* Upper 8 bits of LM */
outb(iw.lmbdr, datum); /* Write byte to LMBDR */
}
/* ######################################################################## */
/* */
/* FUNCTION: IwaveMemCfg */
/* */
/* PROFILE : This function determines the amount of DRAM from its */
/* configuration accross all banks. It sets the configuration */
/* into register LMCFI and stores the total amount of DRAM */
/* into iw.size_mem (Kbytes). */
/* */
/* The function first places the IC in enhanced mode to allow */
/* full access to all DRAM locations. Then it selects full */
/* addressing span (LMCFI[3:0]=0x0C). Finally, it determines */
/* the amount of DRAM in each bank and from this the actual */
/* configuration. */
/* */
/* Note that if a configuration other than one indicated in */
/* the manual is implemented, this function will select */
/* full addressing span (LMCFI[3:0]=0xC). */
/* */
/* ######################################################################## */
static void
IwaveMemCfg(DWORD * lpbanks)
{
DWORD bank[4] = {0L, 0L, 0L, 0L};
DWORD addr = 0L, base = 0L, cnt = 0L;
BYTE i, reg, ram = FALSE;
WORD lmcfi;
/* */
ENTER_CRITICAL;
outb(iw.igidxr, 0x99);
reg = inb(iw.i8dp); /* image of sgmi */
outb(iw.igidxr, 0x19);
outb(iw.i8dp, (BYTE) (reg | 0x01)); /* enable enhaced mode */
outb(iw.igidxr, _LMCFI);/* select LM Conf Reg */
lmcfi = inw(iw.i16dp) & 0xFFF0;
outw(iw.i16dp, lmcfi | 0x000C); /* max addr span */
/* */
/* Clear every RAM_STEPth location */
/* */
while (addr < RAM_MAX) {
IwaveMemPoke(addr, 0x00);
addr += RAM_STEP;
}
/* */
/* Determine amount of RAM in each bank */
/* */
for (i = 0; i < 4; i++) {
IwaveMemPoke(base, 0xAA); /* mark start of bank */
IwaveMemPoke(base + 1L, 0x55);
if ((IwaveMemPeek(base) == 0xAA) && (IwaveMemPeek(base + 1L) == 0x55))
ram = TRUE;
if (ram) {
while (cnt < BANK_MAX) {
bank[i] += RAM_STEP;
cnt += RAM_STEP;
addr = base + cnt;
if (IwaveMemPeek(addr) == 0xAA)
break;
}
}
if (lpbanks != NULL) {
*lpbanks = bank[i];
lpbanks++;
}
bank[i] = bank[i] >> 10;
base += BANK_MAX;
cnt = 0L;
ram = FALSE;
}
/* */
iw.flags &= ~DRAM_HOLES;
outb(iw.igidxr, _LMCFI);
if (bank[0] == 256 && bank[1] == 0 && bank[2] == 0 && bank[3] == 0)
outw(iw.i16dp, lmcfi);
else if (bank[0] == 256 && bank[1] == 256 && bank[2] == 0 && bank[3] == 0)
outw(iw.i16dp, lmcfi | 0x01);
else if (bank[0] == 256 && bank[1] == 256 && bank[2] == 256 && bank[3] == 256)
outw(iw.i16dp, lmcfi | 0x02);
else if (bank[0] == 256 && bank[1] == 1024 && bank[2] == 0 && bank[3] == 0)
outw(iw.i16dp, lmcfi | 0x03);
else if (bank[0] == 256 && bank[1] == 1024 && bank[2] == 1024 && bank[3] == 1024)
outw(iw.i16dp, lmcfi | 0x04);
else if (bank[0] == 256 && bank[1] == 256 && bank[2] == 1024 && bank[3] == 0)
outw(iw.i16dp, lmcfi | 0x05);
else if (bank[0] == 256 && bank[1] == 256 && bank[2] == 1024 && bank[3] == 1024)
outw(iw.i16dp, lmcfi | 0x06);
else if (bank[0] == 1024 && bank[1] == 0 && bank[2] == 0 && bank[3] == 0)
outw(iw.i16dp, lmcfi | 0x07);
else if (bank[0] == 1024 && bank[1] == 1024 && bank[2] == 0 && bank[3] == 0)
outw(iw.i16dp, lmcfi | 0x08);
else if (bank[0] == 1024 && bank[1] == 1024 && bank[2] == 1024 && bank[3] == 1024)
outw(iw.i16dp, lmcfi | 0x09);
else if (bank[0] == 4096 && bank[1] == 0 && bank[2] == 0 && bank[3] == 0)
outw(iw.i16dp, lmcfi | 0x0A);
else if (bank[0] == 4096 && bank[1] == 4096 && bank[2] == 0 && bank[3] == 0)
outw(iw.i16dp, lmcfi | 0x0B);
else /* Flag the non-contiguous config of memory */
iw.flags |= DRAM_HOLES;
/* */
outb(iw.igidxr, 0x19); /* restore sgmi */
outb(iw.i8dp, reg);
LEAVE_CRITICAL;
}
/* ######################################################################## */
/**/
/* FUNCTION: IwaveCodecIrq */
/**/
/* PROFILE: This function disables or enables the Codec Interrupts. To */
/* enable interrupts set CEXTI[2] high thus causing all interrupt */
/* sources (CSR3I[6:4]) to pass onto the IRQ pin. To disable */
/* interrupts set CEXTI[1]=0. To enable Code IRQs issue this call: */
/**/
/* IwaveCodecIrq(CODEC_IRQ_ENABLE). To disable IRQs issue the call */
/**/
/* IwaveCodeIrq(~CODEC_IRQ_ENABLE). */
/**/
/* ######################################################################## */
static void
IwaveCodecIrq(BYTE mode)
{
BYTE reg;
ENTER_CRITICAL;
reg = inb(iw.pcodar) & 0xE0;
outb(iw.pcodar, reg | _CSR3I); /* select CSR3I */
outb(iw.cdatap, 0x00); /* clear all interrupts */
outb(iw.pcodar + 0x02, 0x00); /* clear CSR1R */
outb(iw.pcodar, reg | _CEXTI); /* select CEXTI */
reg = inb(iw.cdatap);
if (mode == CODEC_IRQ_ENABLE) /* enable Codec Irqs */
outb(iw.cdatap, (BYTE) (reg | CODEC_IRQ_ENABLE));
else /* disable Codec Irqs */
outb(iw.cdatap, (BYTE) (reg & ~CODEC_IRQ_ENABLE));
LEAVE_CRITICAL;
}
/* ######################################################################### */
/**/
/* FUNCTION: IwaveRegPeek */
/**/
/* PROFILE : This function returns the value stored in any readable */
/* InterWave register. It takes as input a pointer to a */
/* structure containing the addresses of the relocatable I/O */
/* space as well as a register mnemonic. To correctly use this */
/* function, the programmer must use the mnemonics defined in */
/* "iwdefs.h". These mnemonics contain coded information used */
/* by the function to properly access the desired register. */
/**/
/* An attempt to read from a write-only register will return */
/* meaningless data. */
/**/
/* ######################################################################### */
static WORD
IwaveRegPeek(DWORD reg_mnem)
{
BYTE index, val;
WORD reg_id, offset;
offset = (WORD) ((BYTE) reg_mnem);
reg_id = (WORD) (reg_mnem >> 16);
index = (BYTE) (reg_mnem >> 8);
/* ################################################### */
/* Logic to read registers in P2XR block & GMCR */
/* ################################################### */
if (reg_id >= 0x0001 && reg_id <= 0x001A) { /* UMCR to GMCR */
if (reg_id <= 0x000E) /* UMCR to USRR */
return ((WORD) inb(iw.p2xr + offset));
if (reg_id == 0x0019)
return ((WORD) inb(iw.p201ar));
else { /* GUS Hidden registers or GMCR */
BYTE iveri;
outb(iw.igidxr, 0x5B); /* select IVERI */
iveri = inb(iw.i8dp); /* read IVERI */
outb(iw.i8dp, (BYTE) (iveri | 0x09)); /* set IVERI[3,0] */
if (reg_id == 0x001A) { /* GMCR */
val = inb(iw.p3xr);
outb(iw.i8dp, iveri); /* restore IVERI */
return ((WORD) val);
}
val = inb(iw.p2xr + 0x0F); /* read URCR */
val = (val & 0xF8) | index; /* value for URCR[2:0] */
outb(iw.p2xr + 0x0F, val); /* set URCR[2:0] */
if (reg_mnem == UDCI || reg_mnem == UICI) {
val = inb(iw.p2xr);
if (reg_mnem == UDCI)
outb(iw.p2xr, (BYTE) (val & 0xBF));
else
outb(iw.p2xr, (BYTE) (val | 0x40));
}
val = inb(iw.p2xr + 0x0B);
outb(iw.igidxr, 0x5B); /* select IVERI */
outb(iw.i8dp, iveri); /* restore IVERI */
return ((WORD) val); /* read register */
}
}
/* ################################################### */
/* Logic to read registers in P3XR block */
/* ################################################### */
if (reg_id >= 0x001B && reg_id <= 0x005C) { /* GMSR to LMBDR */
if (reg_id == 0x005C) /* LMBDR */
return ((WORD) inb(iw.lmbdr));
if (reg_id >= 0x001B && reg_id <= 0x0021) /* GMSR to I8DP */
if (offset == 0x04)
return (inw(iw.i16dp));
else
return ((WORD) inb(iw.p3xr + offset));
else { /* indexed registers */
if (reg_id <= 0x003F)
index |= 0x80; /* adjust for reading */
outb(iw.igidxr, index); /* select register */
if (offset == 0x04)
return (inw(iw.i16dp));
else
return ((WORD) inb(iw.i8dp));
}
}
/* #################################################### */
/* Logic to read registers in PCODAR block */
/* #################################################### */
if (reg_id >= 0x005D && reg_id <= 0x0081) { /* CIDXR to CLRCTI */
if (reg_id <= 0x0061)
return ((WORD) inb(iw.pcodar + offset)); /* CRDR */
else { /* indexed registers */
BYTE cidxr;
cidxr = inb(iw.pcodar);
cidxr = (cidxr & 0xE0) + index;
outb(iw.pcodar, cidxr); /* select register */
return ((WORD) inb(iw.cdatap));
}
}
/* ##################################################### */
/* Logic to read the PnP registers */
/* ##################################################### */
if (reg_id >= 0x0082 && reg_id <= 0x00B7) { /* PCSNBR to PMITI */
if (reg_id == 0x0085)
return ((WORD) inb(iw.pnprdp));
if (reg_id < 0x0085)
return ((WORD) inb((WORD) reg_mnem));
else { /* indexed registers */
if (reg_id >= 0x008E && reg_id <= 0x00B7) {
outb(0x0279, 0x07); /* select PLDNI */
outb(0xA79, (BYTE) offset); /* select logical dev */
}
outb(0x0279, index); /* select the register */
return ((WORD) inb(iw.pnprdp));
}
}
return 0;
}
/* ######################################################################### */
/**/
/* FUNCTION: IwaveRegPoke */
/**/
/* PROFILE : This function writes a value to any writable */
/* InterWave register. It takes as input a pointer to a */
/* structure containing the addresses of the relocatable I/O */
/* space as well as a register mnemonic. To correctly use this */
/* function, the programmer must use the mnemonics defined in */
/* "iwdefs.h". These mnemonics contain coded information used */
/* by the function to properly access the desired register. */
/**/
/* This function does not guard against writing to read-only */
/* registers. It is the programmer's responsibility to ensure */
/* that the writes are to valid registers. */
/**/
/* ######################################################################### */
static void
IwaveRegPoke(DWORD reg_mnem, WORD datum)
{
BYTE index;
BYTE val;
WORD reg_id;
WORD offset;
offset = (WORD) ((BYTE) reg_mnem);
reg_id = (WORD) (reg_mnem >> 16);
index = (BYTE) (reg_mnem >> 8);
/* ####################################################### */
/* Logic to write to registers in P2XR block */
/* ####################################################### */
if (reg_id >= 0x0001 && reg_id <= 0x0019) { /* UMCR to GGCR */
if (reg_id <= 0x000E) { /* UMCR to USRR */
outb(iw.p2xr + offset, (BYTE) datum);
return;
}
if (reg_id == 0x0019) {
outb(iw.p201ar, (BYTE) datum);
return;
} else { /* GUS Hidden registers */
BYTE iveri;
outb(iw.igidxr, 0x5B); /* select IVERI */
iveri = inb(iw.i8dp); /* read IVERI */
outb(iw.i8dp, (BYTE) (iveri | 0x09)); /* set IVERI[3,0] */
val = inb(iw.p2xr + 0x0F); /* read URCR */
val = (val & 0xF8) | index; /* value for URCR[2:0] */
outb(iw.p2xr + 0x0F, val); /* set URCR[2:0] */
if (reg_mnem == UDCI || reg_mnem == UICI) {
val = inb(iw.p2xr); /* read UMCR */
if (reg_mnem == UDCI)
outb(iw.p2xr, (BYTE) (val & 0xBF)); /* set UMCR[6]=0 */
else
outb(iw.p2xr, (BYTE) (val | 0x40)); /* set UMCR[6]=1 */
}
outb(iw.p2xr + 0x0B, (BYTE) datum); /* write register */
outb(iw.igidxr, 0x5B); /* select IVERI */
outb(iw.i8dp, iveri); /* restore IVERI */
return;
}
}
/* ############################################################# */
/* Logic to write to registers in P3XR block */
/* ############################################################# */
if (reg_id >= 0x001A && reg_id <= 0x005C) { /* GMCR to LMBDR */
if (reg_id == 0x005C) { /* LMBDR */
outb(iw.lmbdr, (BYTE) datum);
return;
}
if (reg_id == 0x001B) /* GMSR */
return;
if (reg_id >= 0x001A && reg_id <= 0x0021) /* GMCR to I8DP */
if (offset == 0x04)
outw(iw.i16dp, datum);
else
outb(iw.p3xr + offset, (BYTE) datum);
else { /* indexed registers */
outb(iw.igidxr, index); /* select register */
if (offset == 0x04)
outw(iw.i16dp, datum);
else
outb(iw.i8dp, (BYTE) datum);
}
}
/* /################################################### */
/* Logic to write to registers in PCODAR block */
/* ################################################### */
if (reg_id >= 0x005C && reg_id <= 0x0081) { /* CIDXR to CLRCTI */
if (reg_id <= 0x0061)
outb(iw.pcodar + offset, (BYTE) datum);
else { /* one of the indexed registers */
BYTE cidxr;
cidxr = inb(iw.pcodar);
cidxr = (cidxr & 0xE0) + index;
outb(iw.pcodar, cidxr); /* select register */
outb(iw.cdatap, (BYTE) datum);
}
}
/* ###################################################### */
/* Logic to write to the PnP registers */
/* ###################################################### */
if (reg_id >= 0x0082 && reg_id <= 0x00B7) {
if (reg_id == 0x0085) {
outb(iw.pnprdp, (BYTE) datum);
return;
}
if (reg_id < 0x0085)
outb((WORD) reg_mnem, (BYTE) datum);
else { /* one of the indexed registers */
if (reg_id >= 0x008E && reg_id <= 0x00B7) {
outb(0x0279, 0x07); /* select PLDNI */
outb(0xA79, (BYTE) offset); /* select logical dev */
}
outb(0x0279, index); /* select the register */
outb(0xA79, (BYTE) datum);
}
}
}
static void
IwaveLineLevel(char level, char index)
{
char reg;
level &= 0x1F;
ENTER_CRITICAL;
reg = inb(iw.pcodar) & 0xE0;
outb(iw.pcodar, reg | index); /* select register */
outb(iw.cdatap, (BYTE) ((inb(iw.cdatap) & 0x80) | level)); /* set level */
LEAVE_CRITICAL;
}
static void
IwaveCodecMode(char mode)
{
char reg;
ENTER_CRITICAL;
reg = inb(iw.pcodar) & 0xE0;
outb(iw.pcodar, reg | _CMODEI); /* select CMODEI */
outb(iw.cdatap, mode);
LEAVE_CRITICAL;
iw.cmode = mode;
}
static void
IwaveLineMute(BYTE mute, BYTE inx)
{
BYTE reg;
ENTER_CRITICAL;
reg = inb(iw.pcodar) & 0xE0;
outb(iw.pcodar, reg | inx); /* select register */
if (mute == ON)
outb(iw.cdatap, (BYTE) (inb(iw.cdatap) | 0x80)); /* mute */
else
outb(iw.cdatap, (BYTE) (inb(iw.cdatap) & 0x7F)); /* unmute */
LEAVE_CRITICAL;
}
static void
Iwaveinitcodec()
{
u_short iwl_codec_base = iw.pcodar;
u_short iwl_codec_data = iw.pcodar + 1;
u_short foo;
/*
* Set the CEXTI register foo = CODEC_CEXTI_DEFAULT;
* IWL_CODEC_OUT(EXTERNAL_CONTROL, foo);
*/
/*
* Disable Interrupts iwl_codec_disable_irqs();
*/
/* Set the CODEC to Operate in Mode 3 */
IWL_CODEC_OUT(MODE_SELECT_ID, 0x6C);
foo = inb(iwl_codec_data);
/* Set the configuration registers to their default values */
foo = CODEC_CFIG1I_DEFAULT;
IWL_CODEC_OUT(CONFIG_1 | CODEC_MCE, foo);
outb(iwl_codec_base, CONFIG_1);
foo = CODEC_CFIG2I_DEFAULT;
IWL_CODEC_OUT(CONFIG_2, foo);
foo = CODEC_CFIG3I_DEFAULT;
IWL_CODEC_OUT(CONFIG_3, foo);
}
int
IwaveOpen(char voices, char mode, struct address_info * hw)
{
u_long flags;
u_char tmp;
flags = splhigh();
iw.pnprdp = 0;
if (IwavePnpIsol(&iw.pnprdp)) {
iw.vendor = GUS_PNP_ID;
iw.csn = IwavePnpPing(iw.vendor);
IwavePnpKey();
IwavePnpWake(iw.csn);
IwavePnpGetCfg();
IwavePnpKey();
IwavePnpWake(iw.csn);
}
if (hw->irq > 0) {
/* I see the user wants to set the GUS PnP */
/* Okay lets do it */
iw.csn = 1;
iw.p2xr = hw->io_base;
iw.p3xr = hw->io_base + 0x100;
iw.pcodar = hw->io_base + 0x10c;
iw.synth_irq = hw->irq;
iw.midi_irq = hw->irq;
iw.dma1_chan = hw->dma;
if (hw->dma2 == -1) {
iw.dma2_chan = hw->dma;
} else {
iw.dma2_chan = hw->dma2;
}
} else {
/* tell the os what we are doing 8) */
hw->io_base = iw.p2xr;
hw->irq = iw.synth_irq;
/*
* iw.dma1_chan = 1; iw.dma2_chan = 3 ;
*/
hw->dma = iw.dma1_chan;
hw->dma2 = iw.dma2_chan;
}
if (iw.csn > 0 && iw.csn < MAX_GUS_PNP) {
gus_pnp_found[iw.csn] = hw->io_base;
}
iw.cdatap = iw.pcodar + 1;
iw.csr1r = iw.pcodar + 2;
iw.cxdr = iw.pcodar + 3;/* CPDR or CRDR */
iw.gmxr = iw.p3xr;
iw.gmxdr = iw.p3xr + 1; /* GMTDR or GMRDR */
iw.svsr = iw.p3xr + 2;
iw.igidxr = iw.p3xr + 3;
iw.i16dp = iw.p3xr + 4;
iw.i8dp = iw.p3xr + 5;
iw.lmbdr = iw.p3xr + 7;
iw.voices = voices;
if (iw.pnprdp > 0 && iw.csn > 0) {
IwavePnpSetCfg();
IwavePnpActivate(AUDIO, ON);
IwavePnpActivate(EXT, ON);
}
/* IwavePnpActivate(EMULATION,ON); */
/* reset */
outb(iw.igidxr, _URSTI);/* Pull reset */
outb(iw.i8dp, 0x00);
DELAY(1000 * 30);
outb(iw.i8dp, 0x01); /* Release reset */
DELAY(1000 * 30);
/* end of reset */
IwaveMemCfg(NULL);
tmp = IwaveRegPeek(IDECI);
IwaveRegPoke(IDECI, tmp | 0x18);
IwaveCodecMode(CODEC_MODE2); /* Default codec mode */
IwaveRegPoke(ICMPTI, 0);
outb(iw.igidxr, 0x99);
tmp = inb(iw.i8dp);
outb(iw.igidxr, 0x19);
outb(iw.i8dp, tmp);
IwaveCodecIrq(~CODEC_IRQ_ENABLE);
Iwaveinitcodec();
outb(iw.p2xr, 0x0c); /* Disable line in, mic and line out */
IwaveRegPoke(CLCI, 0x3f << 2);
IwaveLineLevel(0, _CLOAI);
IwaveLineLevel(0, _CROAI);
IwaveLineMute(OFF, _CLOAI);
IwaveLineMute(OFF, _CROAI);
IwaveLineLevel(0, _CLLICI);
IwaveLineLevel(0, _CRLICI);
IwaveLineMute(OFF, _CLLICI);
IwaveLineMute(OFF, _CRLICI);
IwaveLineLevel(0, _CLDACI);
IwaveLineLevel(0, _CRDACI);
IwaveLineMute(ON, _CLDACI);
IwaveLineMute(ON, _CRDACI);
IwaveLineLevel(0, _CLLICI);
IwaveLineLevel(0, _CRLICI);
IwaveLineMute(ON, _CLLICI);
IwaveLineMute(ON, _CRLICI);
IwaveInputSource(LEFT_SOURCE, MIC_IN);
IwaveInputSource(RIGHT_SOURCE, MIC_IN);
outb(iw.pcodar, 0x9 | 0x40);
outb(iw.cdatap, 0);
IwaveCodecIrq(CODEC_IRQ_ENABLE);
outb(iw.pcodar, _CFIG3I | 0x20);
outb(iw.cdatap, 0xC2); /* Enable Mode 3 IRQs & Synth */
outb(iw.igidxr, _URSTI);
outb(iw.i8dp, GF1_SET | GF1_OUT_ENABLE | GF1_IRQ_ENABLE);
DELAY(1000 * 30);
iw.size_mem = IwaveMemSize(); /* Bytes of RAM in this mode */
outb(iw.p2xr, 0xc); /* enable output */
IwaveRegPoke(CLCI, 0x3f << 2);
IwaveCodecIrq(CODEC_IRQ_ENABLE);
splx(flags);
DELAY(1000 * 100);
IwaveRegPoke(CPDFI, 0);
return (TRUE);
}
void
gus_wave_init(struct address_info * hw_config)
{
u_long flags;
u_char val, gus_pnp_seen = 0;
char *model_num = "2.4";
int gus_type = 0x24; /* 2.4 */
int irq = hw_config->irq, dma = hw_config->dma, dma2 = hw_config->dma2;
int otherside = -1, i;
if (irq < 0 || irq > 15) {
printf("ERROR! Invalid IRQ#%d. GUS Disabled", irq);
return;
}
if (dma < 0 || dma > 7) {
printf("ERROR! Invalid DMA#%d. GUS Disabled", dma);
return;
}
for (i = 0; i < MAX_GUS_PNP; i++) {
if (gus_pnp_found[i] != 0 && gus_pnp_found[i] == hw_config->io_base)
gus_pnp_seen = 1;
}
#ifdef NOGUSPNP
gus_pnp_seen = 0;
#endif
gus_irq = irq;
gus_dma = dma;
gus_dma2 = dma2;
if (gus_dma2 == -1)
gus_dma2 = dma;
/*
* Try to identify the GUS model.
*
* Versions < 3.6 don't have the digital ASIC. Try to probe it first.
*/
flags = splhigh();
outb(gus_base + 0x0f, 0x20);
val = inb(gus_base + 0x0f);
splx(flags);
if (val != 0xff && (val & 0x06)) { /* Should be 0x02?? */
/*
* It has the digital ASIC so the card is at least v3.4. Next
* try to detect the true model.
*/
val = inb(u_MixSelect);
/*
* Value 255 means pre-3.7 which don't have mixer. Values 5
* thru 9 mean v3.7 which has a ICS2101 mixer. 10 and above
* is GUS MAX which has the CS4231 codec/mixer.
*
*/
if (gus_pnp_seen)
val = 66;
if (val == 255 || val < 5) {
model_num = "3.4";
gus_type = 0x34;
} else if (val < 10) {
model_num = "3.7";
gus_type = 0x37;
mixer_type = ICS2101;
} else {
if (gus_pnp_seen)
model_num = "PNP";
else
model_num = "MAX";
gus_type = 0x40;
mixer_type = CS4231;
#ifdef CONFIG_GUSMAX
{
u_char max_config = 0x40; /* Codec enable */
if (gus_dma2 == -1)
gus_dma2 = gus_dma;
if (gus_dma > 3)
max_config |= 0x10; /* 16 bit capture DMA */
if (gus_dma2 > 3)
max_config |= 0x20; /* 16 bit playback DMA */
max_config |= (gus_base >> 4) & 0x0f; /* Extract the X from
* 2X0 */
outb(gus_base + 0x106, max_config); /* UltraMax control */
}
if (ad1848_detect(gus_base + 0x10c, NULL, hw_config->osp)) {
gus_mic_vol = gus_line_vol = gus_pcm_volume = 100;
gus_wave_volume = 90;
have_gus_max = 1;
if (gus_pnp_seen) {
ad1848_init("GUS PNP", gus_base + 0x10c,
-irq,
gus_dma2, /* Playback DMA */
gus_dma, /* Capture DMA */
1, /* Share DMA channels with GF1 */
hw_config->osp);
} else {
ad1848_init("GUS MAX", gus_base + 0x10c,
-irq,
gus_dma2, /* Playback DMA */
gus_dma, /* Capture DMA */
1, /* Share DMA channels with GF1 */
hw_config->osp);
}
otherside = num_audiodevs - 1;
} else
printf("[Where's the CS4231?]");
#else
printf("\n\n\nGUS MAX support was not compiled in!!!\n\n\n\n");
#endif
}
} else {
/*
* ASIC not detected so the card must be 2.2 or 2.4. There
* could still be the 16-bit/mixer daughter card.
*/
}
if (gus_pnp_seen) {
snprintf(gus_info.name, sizeof(gus_info.name),
"Gravis %s (%dk)", model_num, (int) gus_mem_size / 1024);
} else {
snprintf(gus_info.name, sizeof(gus_info.name),
"Gravis UltraSound %s (%dk)", model_num, (int) gus_mem_size / 1024);
}
conf_printf(gus_info.name, hw_config);
if (num_synths >= MAX_SYNTH_DEV)
printf("GUS Error: Too many synthesizers\n");
else {
voice_alloc = &guswave_operations.alloc;
synth_devs[num_synths++] = &guswave_operations;
#ifdef CONFIG_SEQUENCER
gus_tmr_install(gus_base + 8);
#endif
}
samples = (struct patch_info *) malloc((MAX_SAMPLE + 1) * sizeof(*samples), M_DEVBUF, M_NOWAIT);
if (!samples)
panic("SOUND: Cannot allocate memory\n");
reset_sample_memory();
gus_initialize();
if (num_audiodevs < MAX_AUDIO_DEV) {
audio_devs[gus_devnum = num_audiodevs++] = &gus_sampling_operations;
audio_devs[gus_devnum]->otherside = otherside;
audio_devs[gus_devnum]->dmachan1 = dma;
audio_devs[gus_devnum]->dmachan2 = dma2;
audio_devs[gus_devnum]->buffsize = DSP_BUFFSIZE;
if (otherside != -1) {
/*
* glue logic to prevent people from opening the gus
* max via the gf1 and the cs4231 side . Only the gf1
* or the cs4231 are allowed to be open
*/
audio_devs[otherside]->otherside = gus_devnum;
}
if (dma2 != dma && dma2 != -1)
audio_devs[gus_devnum]->flags |= DMA_DUPLEX;
} else
printf("GUS: Too many PCM devices available\n");
/*
* Mixer dependent initialization.
*/
switch (mixer_type) {
case ICS2101:
gus_mic_vol = gus_line_vol = gus_pcm_volume = 100;
gus_wave_volume = 90;
ics2101_mixer_init();
return;
case CS4231:
/* Initialized elsewhere (ad1848.c) */
default:
gus_default_mixer_init();
return;
}
}
static void
do_loop_irq(int voice)
{
u_char tmp;
int mode, parm;
u_long flags;
flags = splhigh();
gus_select_voice(voice);
tmp = gus_read8(0x00);
tmp &= ~0x20; /* Disable wave IRQ for this_one voice */
gus_write8(0x00, tmp);
if (tmp & 0x03) /* Voice stopped */
voice_alloc->map[voice] = 0;
mode = voices[voice].loop_irq_mode;
voices[voice].loop_irq_mode = 0;
parm = voices[voice].loop_irq_parm;
switch (mode) {
case LMODE_FINISH: /* Final loop finished, shoot volume down */
if ((int) (gus_read16(0x09) >> 4) < 100) { /* Get current volume */
gus_voice_off();
gus_rampoff();
gus_voice_init(voice);
break;
}
gus_ramp_range(65, 4065);
gus_ramp_rate(0, 63); /* Fastest possible rate */
gus_rampon(0x20 | 0x40); /* Ramp down, once, irq */
voices[voice].volume_irq_mode = VMODE_HALT;
break;
case LMODE_PCM_STOP:
pcm_active = 0; /* Signal to the play_next_pcm_block routine */
case LMODE_PCM:
{
int flag; /* 0 or 2 */
pcm_qlen--;
pcm_head = (pcm_head + 1) % pcm_nblk;
if (pcm_qlen && pcm_active) {
play_next_pcm_block();
} else {/* Underrun. Just stop the voice */
gus_select_voice(0); /* Left channel */
gus_voice_off();
gus_rampoff();
gus_select_voice(1); /* Right channel */
gus_voice_off();
gus_rampoff();
pcm_active = 0;
}
/*
* If the queue was full before this interrupt, the
* DMA transfer was suspended. Let it continue now.
*/
if (dma_active) {
if (pcm_qlen == 0)
flag = 1; /* Underflow */
else
flag = 0;
dma_active = 0;
} else
flag = 2; /* Just notify the dmabuf.c */
DMAbuf_outputintr(gus_devnum, flag);
}
break;
default:;
}
splx(flags);
}
static void
do_volume_irq(int voice)
{
u_char tmp;
int mode, parm;
u_long flags;
flags = splhigh();
gus_select_voice(voice);
tmp = gus_read8(0x0d);
tmp &= ~0x20; /* Disable volume ramp IRQ */
gus_write8(0x0d, tmp);
mode = voices[voice].volume_irq_mode;
voices[voice].volume_irq_mode = 0;
parm = voices[voice].volume_irq_parm;
switch (mode) {
case VMODE_HALT: /* Decay phase finished */
splx(flags);
gus_voice_init(voice);
break;
case VMODE_ENVELOPE:
gus_rampoff();
splx(flags);
step_envelope(voice);
break;
case VMODE_START_NOTE:
splx(flags);
guswave_start_note2(voices[voice].dev_pending, voice,
voices[voice].note_pending, voices[voice].volume_pending);
if (voices[voice].kill_pending)
guswave_kill_note(voices[voice].dev_pending, voice,
voices[voice].note_pending, 0);
if (voices[voice].sample_pending >= 0) {
guswave_set_instr(voices[voice].dev_pending, voice,
voices[voice].sample_pending);
voices[voice].sample_pending = -1;
}
break;
default:;
}
}
void
gus_voice_irq(void)
{
u_long wave_ignore = 0, volume_ignore = 0;
u_long voice_bit;
u_char src, voice;
while (1) {
src = gus_read8(0x0f); /* Get source info */
voice = src & 0x1f;
src &= 0xc0;
if (src == (0x80 | 0x40))
return; /* No interrupt */
voice_bit = 1 << voice;
if (!(src & 0x80)) /* Wave IRQ pending */
if (!(wave_ignore & voice_bit) && (int) voice < nr_voices) { /* Not done yet */
wave_ignore |= voice_bit;
do_loop_irq(voice);
}
if (!(src & 0x40)) /* Volume IRQ pending */
if (!(volume_ignore & voice_bit) && (int) voice < nr_voices) { /* Not done yet */
volume_ignore |= voice_bit;
do_volume_irq(voice);
}
}
}
void
guswave_dma_irq(void)
{
u_char status;
status = gus_look8(0x41); /* Get DMA IRQ Status */
if (status & 0x40) /* DMA interrupt pending */
switch (active_device) {
case GUS_DEV_WAVE:
if ((dram_sleep_flag.mode & WK_SLEEP)) {
dram_sleep_flag.mode = WK_WAKEUP;
wakeup(dram_sleeper);
};
break;
case GUS_DEV_PCM_CONTINUE: /* Left channel data transferred */
gus_transfer_output_block(pcm_current_dev, pcm_current_buf,
pcm_current_count, pcm_current_intrflag, 1);
break;
case GUS_DEV_PCM_DONE: /* Right or mono channel data transferred */
if (pcm_qlen < pcm_nblk) {
int flag = (1 - dma_active) * 2; /* 0 or 2 */
if (pcm_qlen == 0)
flag = 1; /* Underrun */
dma_active = 0;
DMAbuf_outputintr(gus_devnum, flag);
}
break;
default:;
}
status = gus_look8(0x49); /* Get Sampling IRQ Status */
if (status & 0x40) { /* Sampling Irq pending */
DMAbuf_inputintr(gus_devnum);
}
}
#ifdef CONFIG_SEQUENCER
/*
* Timer stuff
*/
static volatile int select_addr, data_addr;
static volatile int curr_timer = 0;
void
gus_timer_command(u_int addr, u_int val)
{
int i;
outb(select_addr, (u_char) (addr & 0xff));
for (i = 0; i < 2; i++)
inb(select_addr);
outb(data_addr, (u_char) (val & 0xff));
for (i = 0; i < 2; i++)
inb(select_addr);
}
static void
arm_timer(int timer, u_int interval)
{
curr_timer = timer;
if (timer == 1) {
gus_write8(0x46, 256 - interval); /* Set counter for timer 1 */
gus_write8(0x45, 0x04); /* Enable timer 1 IRQ */
gus_timer_command(0x04, 0x01); /* Start timer 1 */
} else {
gus_write8(0x47, 256 - interval); /* Set counter for timer 2 */
gus_write8(0x45, 0x08); /* Enable timer 2 IRQ */
gus_timer_command(0x04, 0x02); /* Start timer 2 */
}
gus_timer_enabled = 0;
}
static u_int
gus_tmr_start(int dev, u_int usecs_per_tick)
{
int timer_no, resolution;
int divisor;
if (usecs_per_tick > (256 * 80)) {
timer_no = 2;
resolution = 320; /* usec */
} else {
timer_no = 1;
resolution = 80;/* usec */
}
divisor = (usecs_per_tick + (resolution / 2)) / resolution;
arm_timer(timer_no, divisor);
return divisor * resolution;
}
static void
gus_tmr_disable(int dev)
{
gus_write8(0x45, 0); /* Disable both timers */
gus_timer_enabled = 0;
}
static void
gus_tmr_restart(int dev)
{
if (curr_timer == 1)
gus_write8(0x45, 0x04); /* Start timer 1 again */
else
gus_write8(0x45, 0x08); /* Start timer 2 again */
}
static struct sound_lowlev_timer gus_tmr =
{
0,
gus_tmr_start,
gus_tmr_disable,
gus_tmr_restart
};
static void
gus_tmr_install(int io_base)
{
select_addr = io_base;
data_addr = io_base + 1;
sound_timer_init(&gus_tmr, "GUS");
}
#endif
#endif