blob: 5548e3cff7ceb4476cd75263ab54cccc01f637f9 [file] [log] [blame]
/*****************************************************************************
*
* ESS Maestro3/Allegro driver for Linux 2.4.x
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*
* (c) Copyright 2000 Zach Brown <zab@zabbo.net>
*
* I need to thank many people for helping make this driver happen.
* As always, Eric Brombaugh was a hacking machine and killed many bugs
* that I was too dumb to notice. Howard Kim at ESS provided reference boards
* and as much docs as he could. Todd and Mick at Dell tested snapshots on
* an army of laptops. msw and deviant at Red Hat also humoured me by hanging
* their laptops every few hours in the name of science.
*
* Shouts go out to Mike "DJ XPCom" Ang.
*
* History
* v1.23 - Jun 5 2002 - Michael Olson <olson@cs.odu.edu>
* added a module option to allow selection of GPIO pin number
* for external amp
* v1.22 - Feb 28 2001 - Zach Brown <zab@zabbo.net>
* allocate mem at insmod/setup, rather than open
* limit pci dma addresses to 28bit, thanks guys.
* v1.21 - Feb 04 2001 - Zach Brown <zab@zabbo.net>
* fix up really dumb notifier -> suspend oops
* v1.20 - Jan 30 2001 - Zach Brown <zab@zabbo.net>
* get rid of pm callback and use pci_dev suspend/resume instead
* m3_probe cleanups, including pm oops think-o
* v1.10 - Jan 6 2001 - Zach Brown <zab@zabbo.net>
* revert to lame remap_page_range mmap() just to make it work
* record mmap fixed.
* fix up incredibly broken open/release resource management
* duh. fix record format setting.
* add SMP locking and cleanup formatting here and there
* v1.00 - Dec 16 2000 - Zach Brown <zab@zabbo.net>
* port to sexy 2.4 interfaces
* properly align instance allocations so recording works
* clean up function namespace a little :/
* update PCI IDs based on mail from ESS
* arbitrarily bump version number to show its 2.4 now,
* 2.2 will stay 0., oss_audio port gets 2.
* v0.03 - Nov 05 2000 - Zach Brown <zab@zabbo.net>
* disable recording but allow dsp to be opened read
* pull out most silly compat defines
* v0.02 - Nov 04 2000 - Zach Brown <zab@zabbo.net>
* changed clocking setup for m3, slowdown fixed.
* codec reset is hopefully reliable now
* rudimentary apm/power management makes suspend/resume work
* v0.01 - Oct 31 2000 - Zach Brown <zab@zabbo.net>
* first release
* v0.00 - Sep 09 2000 - Zach Brown <zab@zabbo.net>
* first pass derivation from maestro.c
*
* TODO
* in/out allocated contiguously so fullduplex mmap will work?
* no beep on init (mute)
* resetup msrc data memory if freq changes?
*
* --
*
* Allow me to ramble a bit about the m3 architecture. The core of the
* chip is the 'assp', the custom ESS dsp that runs the show. It has
* a small amount of code and data ram. ESS drops binary dsp code images
* on our heads, but we don't get to see specs on the dsp.
*
* The constant piece of code on the dsp is the 'kernel'. It also has a
* chunk of the dsp memory that is statically set aside for its control
* info. This is the KDATA defines in maestro3.h. Part of its core
* data is a list of code addresses that point to the pieces of DSP code
* that it should walk through in its loop. These other pieces of code
* do the real work. The kernel presumably jumps into each of them in turn.
* These code images tend to have their own data area, and one can have
* multiple data areas representing different states for each of the 'client
* instance' code portions. There is generally a list in the kernel data
* that points to the data instances for a given piece of code.
*
* We've only been given the binary image for the 'minisrc', mini sample
* rate converter. This is rather annoying because it limits the work
* we can do on the dsp, but it also greatly simplifies the job of managing
* dsp data memory for the code and data for our playing streams :). We
* statically allocate the minisrc code into a region we 'know' to be free
* based on the map of the binary kernel image we're loading. We also
* statically allocate the data areas for the maximum number of pcm streams
* we can be dealing with. This max is set by the length of the static list
* in the kernel data that records the number of minisrc data regions we
* can have. Thats right, all software dsp mixing with static code list
* limits. Rock.
*
* How sound goes in and out is still a relative mystery. It appears
* that the dsp has the ability to get input and output through various
* 'connections'. To do IO from or to a connection, you put the address
* of the minisrc client area in the static kernel data lists for that
* input or output. so for pcm -> dsp -> mixer, we put the minisrc data
* instance in the DMA list and also in the list for the mixer. I guess
* it Just Knows which is in/out, and we give some dma control info that
* helps. There are all sorts of cool inputs/outputs that it seems we can't
* use without dsp code images that know how to use them.
*
* So at init time we preload all the memory allocation stuff and set some
* system wide parameters. When we really get a sound to play we build
* up its minisrc header (stream parameters, buffer addresses, input/output
* settings). Then we throw its header on the various lists. We also
* tickle some KDATA settings that ask the assp to raise clock interrupts
* and do some amount of software mixing before handing data to the ac97.
*
* Sorry for the vague details. Feel free to ask Eric or myself if you
* happen to be trying to use this driver elsewhere. Please accept my
* apologies for the quality of the OSS support code, its passed through
* too many hands now and desperately wants to be rethought.
*/
/*****************************************************************************/
#include <linux/config.h>
#include <linux/module.h>
#include <linux/kernel.h>
#include <linux/string.h>
#include <linux/ctype.h>
#include <linux/ioport.h>
#include <linux/sched.h>
#include <linux/delay.h>
#include <linux/sound.h>
#include <linux/slab.h>
#include <linux/soundcard.h>
#include <linux/pci.h>
#include <linux/vmalloc.h>
#include <linux/init.h>
#include <linux/interrupt.h>
#include <linux/poll.h>
#include <linux/reboot.h>
#include <linux/spinlock.h>
#include <linux/ac97_codec.h>
#include <linux/wait.h>
#include <linux/mutex.h>
#include <asm/io.h>
#include <asm/dma.h>
#include <asm/uaccess.h>
#include "maestro3.h"
#define M_DEBUG 1
#define DRIVER_VERSION "1.23"
#define M3_MODULE_NAME "maestro3"
#define PFX M3_MODULE_NAME ": "
#define M3_STATE_MAGIC 0x734d724d
#define M3_CARD_MAGIC 0x646e6f50
#define ESS_FMT_STEREO 0x01
#define ESS_FMT_16BIT 0x02
#define ESS_FMT_MASK 0x03
#define ESS_DAC_SHIFT 0
#define ESS_ADC_SHIFT 4
#define DAC_RUNNING 1
#define ADC_RUNNING 2
#define SND_DEV_DSP16 5
#ifdef M_DEBUG
static int debug;
#define DPMOD 1 /* per module load */
#define DPSTR 2 /* per 'stream' */
#define DPSYS 3 /* per syscall */
#define DPCRAP 4 /* stuff the user shouldn't see unless they're really debuggin */
#define DPINT 5 /* per interrupt, LOTS */
#define DPRINTK(DP, args...) {if (debug >= (DP)) printk(KERN_DEBUG PFX args);}
#else
#define DPRINTK(x)
#endif
struct m3_list {
int curlen;
u16 mem_addr;
int max;
};
static int external_amp = 1;
static int gpio_pin = -1;
struct m3_state {
unsigned int magic;
struct m3_card *card;
unsigned char fmt, enable;
int index;
/* this locks around the oss state in the driver */
/* no, this lock is removed - only use card->lock */
/* otherwise: against what are you protecting on SMP
when irqhandler uses s->lock
and m3_assp_read uses card->lock ?
*/
struct mutex open_mutex;
wait_queue_head_t open_wait;
mode_t open_mode;
int dev_audio;
struct assp_instance {
u16 code, data;
} dac_inst, adc_inst;
/* should be in dmabuf */
unsigned int rateadc, ratedac;
struct dmabuf {
void *rawbuf;
unsigned buforder;
unsigned numfrag;
unsigned fragshift;
unsigned hwptr, swptr;
unsigned total_bytes;
int count;
unsigned error; /* over/underrun */
wait_queue_head_t wait;
/* redundant, but makes calculations easier */
unsigned fragsize;
unsigned dmasize;
unsigned fragsamples;
/* OSS stuff */
unsigned mapped:1;
unsigned ready:1;
unsigned endcleared:1;
unsigned ossfragshift;
int ossmaxfrags;
unsigned subdivision;
/* new in m3 */
int mixer_index, dma_index, msrc_index, adc1_index;
int in_lists;
/* 2.4.. */
dma_addr_t handle;
} dma_dac, dma_adc;
};
struct m3_card {
unsigned int magic;
struct m3_card *next;
struct ac97_codec *ac97;
spinlock_t ac97_lock;
int card_type;
#define NR_DSPS 1
#define MAX_DSPS NR_DSPS
struct m3_state channels[MAX_DSPS];
/* this locks around the physical registers on the card */
spinlock_t lock;
/* hardware resources */
struct pci_dev *pcidev;
u32 iobase;
u32 irq;
int dacs_active;
int timer_users;
struct m3_list msrc_list,
mixer_list,
adc1_list,
dma_list;
/* for storing reset state..*/
u8 reset_state;
u16 *suspend_mem;
int in_suspend;
wait_queue_head_t suspend_queue;
};
/*
* an arbitrary volume we set the internal
* volume settings to so that the ac97 volume
* range is a little less insane. 0x7fff is
* max.
*/
#define ARB_VOLUME ( 0x6800 )
static const unsigned sample_shift[] = { 0, 1, 1, 2 };
enum {
ESS_ALLEGRO,
ESS_MAESTRO3,
/*
* a maestro3 with 'hardware strapping', only
* found inside ESS?
*/
ESS_MAESTRO3HW,
};
static char *card_names[] = {
[ESS_ALLEGRO] = "Allegro",
[ESS_MAESTRO3] = "Maestro3(i)",
[ESS_MAESTRO3HW] = "Maestro3(i)hw"
};
#ifndef PCI_VENDOR_ESS
#define PCI_VENDOR_ESS 0x125D
#endif
#define M3_DEVICE(DEV, TYPE) \
{ \
.vendor = PCI_VENDOR_ESS, \
.device = DEV, \
.subvendor = PCI_ANY_ID, \
.subdevice = PCI_ANY_ID, \
.class = PCI_CLASS_MULTIMEDIA_AUDIO << 8, \
.class_mask = 0xffff << 8, \
.driver_data = TYPE, \
}
static struct pci_device_id m3_id_table[] = {
M3_DEVICE(0x1988, ESS_ALLEGRO),
M3_DEVICE(0x1998, ESS_MAESTRO3),
M3_DEVICE(0x199a, ESS_MAESTRO3HW),
{0,}
};
MODULE_DEVICE_TABLE (pci, m3_id_table);
/*
* reports seem to indicate that the m3 is limited
* to 28bit bus addresses. aaaargggh...
*/
#define M3_PCI_DMA_MASK 0x0fffffff
static unsigned
ld2(unsigned int x)
{
unsigned r = 0;
if (x >= 0x10000) {
x >>= 16;
r += 16;
}
if (x >= 0x100) {
x >>= 8;
r += 8;
}
if (x >= 0x10) {
x >>= 4;
r += 4;
}
if (x >= 4) {
x >>= 2;
r += 2;
}
if (x >= 2)
r++;
return r;
}
static struct m3_card *devs;
/*
* I'm not very good at laying out functions in a file :)
*/
static int m3_notifier(struct notifier_block *nb, unsigned long event, void *buf);
static int m3_suspend(struct pci_dev *pci_dev, pm_message_t state);
static void check_suspend(struct m3_card *card);
static struct notifier_block m3_reboot_nb = {
.notifier_call = m3_notifier,
};
static void m3_outw(struct m3_card *card,
u16 value, unsigned long reg)
{
check_suspend(card);
outw(value, card->iobase + reg);
}
static u16 m3_inw(struct m3_card *card, unsigned long reg)
{
check_suspend(card);
return inw(card->iobase + reg);
}
static void m3_outb(struct m3_card *card,
u8 value, unsigned long reg)
{
check_suspend(card);
outb(value, card->iobase + reg);
}
static u8 m3_inb(struct m3_card *card, unsigned long reg)
{
check_suspend(card);
return inb(card->iobase + reg);
}
/*
* access 16bit words to the code or data regions of the dsp's memory.
* index addresses 16bit words.
*/
static u16 __m3_assp_read(struct m3_card *card, u16 region, u16 index)
{
m3_outw(card, region & MEMTYPE_MASK, DSP_PORT_MEMORY_TYPE);
m3_outw(card, index, DSP_PORT_MEMORY_INDEX);
return m3_inw(card, DSP_PORT_MEMORY_DATA);
}
static u16 m3_assp_read(struct m3_card *card, u16 region, u16 index)
{
unsigned long flags;
u16 ret;
spin_lock_irqsave(&(card->lock), flags);
ret = __m3_assp_read(card, region, index);
spin_unlock_irqrestore(&(card->lock), flags);
return ret;
}
static void __m3_assp_write(struct m3_card *card,
u16 region, u16 index, u16 data)
{
m3_outw(card, region & MEMTYPE_MASK, DSP_PORT_MEMORY_TYPE);
m3_outw(card, index, DSP_PORT_MEMORY_INDEX);
m3_outw(card, data, DSP_PORT_MEMORY_DATA);
}
static void m3_assp_write(struct m3_card *card,
u16 region, u16 index, u16 data)
{
unsigned long flags;
spin_lock_irqsave(&(card->lock), flags);
__m3_assp_write(card, region, index, data);
spin_unlock_irqrestore(&(card->lock), flags);
}
static void m3_assp_halt(struct m3_card *card)
{
card->reset_state = m3_inb(card, DSP_PORT_CONTROL_REG_B) & ~REGB_STOP_CLOCK;
mdelay(10);
m3_outb(card, card->reset_state & ~REGB_ENABLE_RESET, DSP_PORT_CONTROL_REG_B);
}
static void m3_assp_continue(struct m3_card *card)
{
m3_outb(card, card->reset_state | REGB_ENABLE_RESET, DSP_PORT_CONTROL_REG_B);
}
/*
* This makes me sad. the maestro3 has lists
* internally that must be packed.. 0 terminates,
* apparently, or maybe all unused entries have
* to be 0, the lists have static lengths set
* by the binary code images.
*/
static int m3_add_list(struct m3_card *card,
struct m3_list *list, u16 val)
{
DPRINTK(DPSTR, "adding val 0x%x to list 0x%p at pos %d\n",
val, list, list->curlen);
m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
list->mem_addr + list->curlen,
val);
return list->curlen++;
}
static void m3_remove_list(struct m3_card *card,
struct m3_list *list, int index)
{
u16 val;
int lastindex = list->curlen - 1;
DPRINTK(DPSTR, "removing ind %d from list 0x%p\n",
index, list);
if(index != lastindex) {
val = m3_assp_read(card, MEMTYPE_INTERNAL_DATA,
list->mem_addr + lastindex);
m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
list->mem_addr + index,
val);
}
m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
list->mem_addr + lastindex,
0);
list->curlen--;
}
static void set_fmt(struct m3_state *s, unsigned char mask, unsigned char data)
{
int tmp;
s->fmt = (s->fmt & mask) | data;
tmp = (s->fmt >> ESS_DAC_SHIFT) & ESS_FMT_MASK;
/* write to 'mono' word */
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + SRC3_DIRECTION_OFFSET + 1,
(tmp & ESS_FMT_STEREO) ? 0 : 1);
/* write to '8bit' word */
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + SRC3_DIRECTION_OFFSET + 2,
(tmp & ESS_FMT_16BIT) ? 0 : 1);
tmp = (s->fmt >> ESS_ADC_SHIFT) & ESS_FMT_MASK;
/* write to 'mono' word */
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + SRC3_DIRECTION_OFFSET + 1,
(tmp & ESS_FMT_STEREO) ? 0 : 1);
/* write to '8bit' word */
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + SRC3_DIRECTION_OFFSET + 2,
(tmp & ESS_FMT_16BIT) ? 0 : 1);
}
static void set_dac_rate(struct m3_state *s, unsigned int rate)
{
u32 freq;
if (rate > 48000)
rate = 48000;
if (rate < 8000)
rate = 8000;
s->ratedac = rate;
freq = ((rate << 15) + 24000 ) / 48000;
if(freq)
freq--;
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_FREQUENCY,
freq);
}
static void set_adc_rate(struct m3_state *s, unsigned int rate)
{
u32 freq;
if (rate > 48000)
rate = 48000;
if (rate < 8000)
rate = 8000;
s->rateadc = rate;
freq = ((rate << 15) + 24000 ) / 48000;
if(freq)
freq--;
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_FREQUENCY,
freq);
}
static void inc_timer_users(struct m3_card *card)
{
unsigned long flags;
spin_lock_irqsave(&card->lock, flags);
card->timer_users++;
DPRINTK(DPSYS, "inc timer users now %d\n",
card->timer_users);
if(card->timer_users != 1)
goto out;
__m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
KDATA_TIMER_COUNT_RELOAD,
240 ) ;
__m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
KDATA_TIMER_COUNT_CURRENT,
240 ) ;
m3_outw(card,
m3_inw(card, HOST_INT_CTRL) | CLKRUN_GEN_ENABLE,
HOST_INT_CTRL);
out:
spin_unlock_irqrestore(&card->lock, flags);
}
static void dec_timer_users(struct m3_card *card)
{
unsigned long flags;
spin_lock_irqsave(&card->lock, flags);
card->timer_users--;
DPRINTK(DPSYS, "dec timer users now %d\n",
card->timer_users);
if(card->timer_users > 0 )
goto out;
__m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
KDATA_TIMER_COUNT_RELOAD,
0 ) ;
__m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
KDATA_TIMER_COUNT_CURRENT,
0 ) ;
m3_outw(card, m3_inw(card, HOST_INT_CTRL) & ~CLKRUN_GEN_ENABLE,
HOST_INT_CTRL);
out:
spin_unlock_irqrestore(&card->lock, flags);
}
/*
* {start,stop}_{adc,dac} should be called
* while holding the 'state' lock and they
* will try to grab the 'card' lock..
*/
static void stop_adc(struct m3_state *s)
{
if (! (s->enable & ADC_RUNNING))
return;
s->enable &= ~ADC_RUNNING;
dec_timer_users(s->card);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_INSTANCE_READY, 0);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
KDATA_ADC1_REQUEST, 0);
}
static void stop_dac(struct m3_state *s)
{
if (! (s->enable & DAC_RUNNING))
return;
DPRINTK(DPSYS, "stop_dac()\n");
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_INSTANCE_READY, 0);
s->enable &= ~DAC_RUNNING;
s->card->dacs_active--;
dec_timer_users(s->card);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
KDATA_MIXER_TASK_NUMBER,
s->card->dacs_active ) ;
}
static void start_dac(struct m3_state *s)
{
if( (!s->dma_dac.mapped && s->dma_dac.count < 1) ||
!s->dma_dac.ready ||
(s->enable & DAC_RUNNING))
return;
DPRINTK(DPSYS, "start_dac()\n");
s->enable |= DAC_RUNNING;
s->card->dacs_active++;
inc_timer_users(s->card);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_INSTANCE_READY, 1);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
KDATA_MIXER_TASK_NUMBER,
s->card->dacs_active ) ;
}
static void start_adc(struct m3_state *s)
{
if ((! s->dma_adc.mapped &&
s->dma_adc.count >= (signed)(s->dma_adc.dmasize - 2*s->dma_adc.fragsize))
|| !s->dma_adc.ready
|| (s->enable & ADC_RUNNING) )
return;
DPRINTK(DPSYS, "start_adc()\n");
s->enable |= ADC_RUNNING;
inc_timer_users(s->card);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
KDATA_ADC1_REQUEST, 1);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_INSTANCE_READY, 1);
}
static struct play_vals {
u16 addr, val;
} pv[] = {
{CDATA_LEFT_VOLUME, ARB_VOLUME},
{CDATA_RIGHT_VOLUME, ARB_VOLUME},
{SRC3_DIRECTION_OFFSET, 0} ,
/* +1, +2 are stereo/16 bit */
{SRC3_DIRECTION_OFFSET + 3, 0x0000}, /* fraction? */
{SRC3_DIRECTION_OFFSET + 4, 0}, /* first l */
{SRC3_DIRECTION_OFFSET + 5, 0}, /* first r */
{SRC3_DIRECTION_OFFSET + 6, 0}, /* second l */
{SRC3_DIRECTION_OFFSET + 7, 0}, /* second r */
{SRC3_DIRECTION_OFFSET + 8, 0}, /* delta l */
{SRC3_DIRECTION_OFFSET + 9, 0}, /* delta r */
{SRC3_DIRECTION_OFFSET + 10, 0x8000}, /* round */
{SRC3_DIRECTION_OFFSET + 11, 0xFF00}, /* higher bute mark */
{SRC3_DIRECTION_OFFSET + 13, 0}, /* temp0 */
{SRC3_DIRECTION_OFFSET + 14, 0}, /* c fraction */
{SRC3_DIRECTION_OFFSET + 15, 0}, /* counter */
{SRC3_DIRECTION_OFFSET + 16, 8}, /* numin */
{SRC3_DIRECTION_OFFSET + 17, 50*2}, /* numout */
{SRC3_DIRECTION_OFFSET + 18, MINISRC_BIQUAD_STAGE - 1}, /* numstage */
{SRC3_DIRECTION_OFFSET + 20, 0}, /* filtertap */
{SRC3_DIRECTION_OFFSET + 21, 0} /* booster */
};
/* the mode passed should be already shifted and masked */
static void m3_play_setup(struct m3_state *s, int mode, u32 rate, void *buffer, int size)
{
int dsp_in_size = MINISRC_IN_BUFFER_SIZE - (0x20 * 2);
int dsp_out_size = MINISRC_OUT_BUFFER_SIZE - (0x20 * 2);
int dsp_in_buffer = s->dac_inst.data + (MINISRC_TMP_BUFFER_SIZE / 2);
int dsp_out_buffer = dsp_in_buffer + (dsp_in_size / 2) + 1;
struct dmabuf *db = &s->dma_dac;
int i;
DPRINTK(DPSTR, "mode=%d rate=%d buf=%p len=%d.\n",
mode, rate, buffer, size);
#define LO(x) ((x) & 0xffff)
#define HI(x) LO((x) >> 16)
/* host dma buffer pointers */
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_HOST_SRC_ADDRL,
LO(virt_to_bus(buffer)));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_HOST_SRC_ADDRH,
HI(virt_to_bus(buffer)));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_HOST_SRC_END_PLUS_1L,
LO(virt_to_bus(buffer) + size));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_HOST_SRC_END_PLUS_1H,
HI(virt_to_bus(buffer) + size));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_HOST_SRC_CURRENTL,
LO(virt_to_bus(buffer)));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_HOST_SRC_CURRENTH,
HI(virt_to_bus(buffer)));
#undef LO
#undef HI
/* dsp buffers */
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_IN_BUF_BEGIN,
dsp_in_buffer);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_IN_BUF_END_PLUS_1,
dsp_in_buffer + (dsp_in_size / 2));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_IN_BUF_HEAD,
dsp_in_buffer);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_IN_BUF_TAIL,
dsp_in_buffer);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_OUT_BUF_BEGIN,
dsp_out_buffer);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_OUT_BUF_END_PLUS_1,
dsp_out_buffer + (dsp_out_size / 2));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_OUT_BUF_HEAD,
dsp_out_buffer);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_OUT_BUF_TAIL,
dsp_out_buffer);
/*
* some per client initializers
*/
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + SRC3_DIRECTION_OFFSET + 12,
s->dac_inst.data + 40 + 8);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + SRC3_DIRECTION_OFFSET + 19,
s->dac_inst.code + MINISRC_COEF_LOC);
/* enable or disable low pass filter? */
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + SRC3_DIRECTION_OFFSET + 22,
s->ratedac > 45000 ? 0xff : 0 );
/* tell it which way dma is going? */
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + CDATA_DMA_CONTROL,
DMACONTROL_AUTOREPEAT + DMAC_PAGE3_SELECTOR + DMAC_BLOCKF_SELECTOR);
/*
* set an armload of static initializers
*/
for(i = 0 ; i < (sizeof(pv) / sizeof(pv[0])) ; i++)
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->dac_inst.data + pv[i].addr, pv[i].val);
/*
* put us in the lists if we're not already there
*/
if(db->in_lists == 0) {
db->msrc_index = m3_add_list(s->card, &s->card->msrc_list,
s->dac_inst.data >> DP_SHIFT_COUNT);
db->dma_index = m3_add_list(s->card, &s->card->dma_list,
s->dac_inst.data >> DP_SHIFT_COUNT);
db->mixer_index = m3_add_list(s->card, &s->card->mixer_list,
s->dac_inst.data >> DP_SHIFT_COUNT);
db->in_lists = 1;
}
set_dac_rate(s,rate);
start_dac(s);
}
/*
* Native record driver
*/
static struct rec_vals {
u16 addr, val;
} rv[] = {
{CDATA_LEFT_VOLUME, ARB_VOLUME},
{CDATA_RIGHT_VOLUME, ARB_VOLUME},
{SRC3_DIRECTION_OFFSET, 1} ,
/* +1, +2 are stereo/16 bit */
{SRC3_DIRECTION_OFFSET + 3, 0x0000}, /* fraction? */
{SRC3_DIRECTION_OFFSET + 4, 0}, /* first l */
{SRC3_DIRECTION_OFFSET + 5, 0}, /* first r */
{SRC3_DIRECTION_OFFSET + 6, 0}, /* second l */
{SRC3_DIRECTION_OFFSET + 7, 0}, /* second r */
{SRC3_DIRECTION_OFFSET + 8, 0}, /* delta l */
{SRC3_DIRECTION_OFFSET + 9, 0}, /* delta r */
{SRC3_DIRECTION_OFFSET + 10, 0x8000}, /* round */
{SRC3_DIRECTION_OFFSET + 11, 0xFF00}, /* higher bute mark */
{SRC3_DIRECTION_OFFSET + 13, 0}, /* temp0 */
{SRC3_DIRECTION_OFFSET + 14, 0}, /* c fraction */
{SRC3_DIRECTION_OFFSET + 15, 0}, /* counter */
{SRC3_DIRECTION_OFFSET + 16, 50},/* numin */
{SRC3_DIRECTION_OFFSET + 17, 8}, /* numout */
{SRC3_DIRECTION_OFFSET + 18, 0}, /* numstage */
{SRC3_DIRECTION_OFFSET + 19, 0}, /* coef */
{SRC3_DIRECTION_OFFSET + 20, 0}, /* filtertap */
{SRC3_DIRECTION_OFFSET + 21, 0}, /* booster */
{SRC3_DIRECTION_OFFSET + 22, 0xff} /* skip lpf */
};
/* again, passed mode is alrady shifted/masked */
static void m3_rec_setup(struct m3_state *s, int mode, u32 rate, void *buffer, int size)
{
int dsp_in_size = MINISRC_IN_BUFFER_SIZE + (0x10 * 2);
int dsp_out_size = MINISRC_OUT_BUFFER_SIZE - (0x10 * 2);
int dsp_in_buffer = s->adc_inst.data + (MINISRC_TMP_BUFFER_SIZE / 2);
int dsp_out_buffer = dsp_in_buffer + (dsp_in_size / 2) + 1;
struct dmabuf *db = &s->dma_adc;
int i;
DPRINTK(DPSTR, "rec_setup mode=%d rate=%d buf=%p len=%d.\n",
mode, rate, buffer, size);
#define LO(x) ((x) & 0xffff)
#define HI(x) LO((x) >> 16)
/* host dma buffer pointers */
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_HOST_SRC_ADDRL,
LO(virt_to_bus(buffer)));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_HOST_SRC_ADDRH,
HI(virt_to_bus(buffer)));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_HOST_SRC_END_PLUS_1L,
LO(virt_to_bus(buffer) + size));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_HOST_SRC_END_PLUS_1H,
HI(virt_to_bus(buffer) + size));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_HOST_SRC_CURRENTL,
LO(virt_to_bus(buffer)));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_HOST_SRC_CURRENTH,
HI(virt_to_bus(buffer)));
#undef LO
#undef HI
/* dsp buffers */
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_IN_BUF_BEGIN,
dsp_in_buffer);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_IN_BUF_END_PLUS_1,
dsp_in_buffer + (dsp_in_size / 2));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_IN_BUF_HEAD,
dsp_in_buffer);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_IN_BUF_TAIL,
dsp_in_buffer);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_OUT_BUF_BEGIN,
dsp_out_buffer);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_OUT_BUF_END_PLUS_1,
dsp_out_buffer + (dsp_out_size / 2));
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_OUT_BUF_HEAD,
dsp_out_buffer);
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_OUT_BUF_TAIL,
dsp_out_buffer);
/*
* some per client initializers
*/
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + SRC3_DIRECTION_OFFSET + 12,
s->adc_inst.data + 40 + 8);
/* tell it which way dma is going? */
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + CDATA_DMA_CONTROL,
DMACONTROL_DIRECTION + DMACONTROL_AUTOREPEAT +
DMAC_PAGE3_SELECTOR + DMAC_BLOCKF_SELECTOR);
/*
* set an armload of static initializers
*/
for(i = 0 ; i < (sizeof(rv) / sizeof(rv[0])) ; i++)
m3_assp_write(s->card, MEMTYPE_INTERNAL_DATA,
s->adc_inst.data + rv[i].addr, rv[i].val);
/*
* put us in the lists if we're not already there
*/
if(db->in_lists == 0) {
db->adc1_index = m3_add_list(s->card, &s->card->adc1_list,
s->adc_inst.data >> DP_SHIFT_COUNT);
db->dma_index = m3_add_list(s->card, &s->card->dma_list,
s->adc_inst.data >> DP_SHIFT_COUNT);
db->msrc_index = m3_add_list(s->card, &s->card->msrc_list,
s->adc_inst.data >> DP_SHIFT_COUNT);
db->in_lists = 1;
}
set_adc_rate(s,rate);
start_adc(s);
}
/* --------------------------------------------------------------------- */
static void set_dmaa(struct m3_state *s, unsigned int addr, unsigned int count)
{
DPRINTK(DPINT,"set_dmaa??\n");
}
static void set_dmac(struct m3_state *s, unsigned int addr, unsigned int count)
{
DPRINTK(DPINT,"set_dmac??\n");
}
static u32 get_dma_pos(struct m3_card *card,
int instance_addr)
{
u16 hi = 0, lo = 0;
int retry = 10;
/*
* try and get a valid answer
*/
while(retry--) {
hi = m3_assp_read(card, MEMTYPE_INTERNAL_DATA,
instance_addr + CDATA_HOST_SRC_CURRENTH);
lo = m3_assp_read(card, MEMTYPE_INTERNAL_DATA,
instance_addr + CDATA_HOST_SRC_CURRENTL);
if(hi == m3_assp_read(card, MEMTYPE_INTERNAL_DATA,
instance_addr + CDATA_HOST_SRC_CURRENTH))
break;
}
return lo | (hi<<16);
}
static u32 get_dmaa(struct m3_state *s)
{
u32 offset;
offset = get_dma_pos(s->card, s->dac_inst.data) -
virt_to_bus(s->dma_dac.rawbuf);
DPRINTK(DPINT,"get_dmaa: 0x%08x\n",offset);
return offset;
}
static u32 get_dmac(struct m3_state *s)
{
u32 offset;
offset = get_dma_pos(s->card, s->adc_inst.data) -
virt_to_bus(s->dma_adc.rawbuf);
DPRINTK(DPINT,"get_dmac: 0x%08x\n",offset);
return offset;
}
static int
prog_dmabuf(struct m3_state *s, unsigned rec)
{
struct dmabuf *db = rec ? &s->dma_adc : &s->dma_dac;
unsigned rate = rec ? s->rateadc : s->ratedac;
unsigned bytepersec;
unsigned bufs;
unsigned char fmt;
unsigned long flags;
spin_lock_irqsave(&s->card->lock, flags);
fmt = s->fmt;
if (rec) {
stop_adc(s);
fmt >>= ESS_ADC_SHIFT;
} else {
stop_dac(s);
fmt >>= ESS_DAC_SHIFT;
}
fmt &= ESS_FMT_MASK;
db->hwptr = db->swptr = db->total_bytes = db->count = db->error = db->endcleared = 0;
bytepersec = rate << sample_shift[fmt];
bufs = PAGE_SIZE << db->buforder;
if (db->ossfragshift) {
if ((1000 << db->ossfragshift) < bytepersec)
db->fragshift = ld2(bytepersec/1000);
else
db->fragshift = db->ossfragshift;
} else {
db->fragshift = ld2(bytepersec/100/(db->subdivision ? db->subdivision : 1));
if (db->fragshift < 3)
db->fragshift = 3;
}
db->numfrag = bufs >> db->fragshift;
while (db->numfrag < 4 && db->fragshift > 3) {
db->fragshift--;
db->numfrag = bufs >> db->fragshift;
}
db->fragsize = 1 << db->fragshift;
if (db->ossmaxfrags >= 4 && db->ossmaxfrags < db->numfrag)
db->numfrag = db->ossmaxfrags;
db->fragsamples = db->fragsize >> sample_shift[fmt];
db->dmasize = db->numfrag << db->fragshift;
DPRINTK(DPSTR,"prog_dmabuf: numfrag: %d fragsize: %d dmasize: %d\n",db->numfrag,db->fragsize,db->dmasize);
memset(db->rawbuf, (fmt & ESS_FMT_16BIT) ? 0 : 0x80, db->dmasize);
if (rec)
m3_rec_setup(s, fmt, s->rateadc, db->rawbuf, db->dmasize);
else
m3_play_setup(s, fmt, s->ratedac, db->rawbuf, db->dmasize);
db->ready = 1;
spin_unlock_irqrestore(&s->card->lock, flags);
return 0;
}
static void clear_advance(struct m3_state *s)
{
unsigned char c = ((s->fmt >> ESS_DAC_SHIFT) & ESS_FMT_16BIT) ? 0 : 0x80;
unsigned char *buf = s->dma_dac.rawbuf;
unsigned bsize = s->dma_dac.dmasize;
unsigned bptr = s->dma_dac.swptr;
unsigned len = s->dma_dac.fragsize;
if (bptr + len > bsize) {
unsigned x = bsize - bptr;
memset(buf + bptr, c, x);
/* account for wrapping? */
bptr = 0;
len -= x;
}
memset(buf + bptr, c, len);
}
/* call with spinlock held! */
static void m3_update_ptr(struct m3_state *s)
{
unsigned hwptr;
int diff;
/* update ADC pointer */
if (s->dma_adc.ready) {
hwptr = get_dmac(s) % s->dma_adc.dmasize;
diff = (s->dma_adc.dmasize + hwptr - s->dma_adc.hwptr) % s->dma_adc.dmasize;
s->dma_adc.hwptr = hwptr;
s->dma_adc.total_bytes += diff;
s->dma_adc.count += diff;
if (s->dma_adc.count >= (signed)s->dma_adc.fragsize)
wake_up(&s->dma_adc.wait);
if (!s->dma_adc.mapped) {
if (s->dma_adc.count > (signed)(s->dma_adc.dmasize - ((3 * s->dma_adc.fragsize) >> 1))) {
stop_adc(s);
/* brute force everyone back in sync, sigh */
s->dma_adc.count = 0;
s->dma_adc.swptr = 0;
s->dma_adc.hwptr = 0;
s->dma_adc.error++;
}
}
}
/* update DAC pointer */
if (s->dma_dac.ready) {
hwptr = get_dmaa(s) % s->dma_dac.dmasize;
diff = (s->dma_dac.dmasize + hwptr - s->dma_dac.hwptr) % s->dma_dac.dmasize;
DPRINTK(DPINT,"updating dac: hwptr: %6d diff: %6d count: %6d\n",
hwptr,diff,s->dma_dac.count);
s->dma_dac.hwptr = hwptr;
s->dma_dac.total_bytes += diff;
if (s->dma_dac.mapped) {
s->dma_dac.count += diff;
if (s->dma_dac.count >= (signed)s->dma_dac.fragsize) {
wake_up(&s->dma_dac.wait);
}
} else {
s->dma_dac.count -= diff;
if (s->dma_dac.count <= 0) {
DPRINTK(DPCRAP,"underflow! diff: %d (0x%x) count: %d (0x%x) hw: %d (0x%x) sw: %d (0x%x)\n",
diff, diff,
s->dma_dac.count,
s->dma_dac.count,
hwptr, hwptr,
s->dma_dac.swptr,
s->dma_dac.swptr);
stop_dac(s);
/* brute force everyone back in sync, sigh */
s->dma_dac.count = 0;
s->dma_dac.swptr = hwptr;
s->dma_dac.error++;
} else if (s->dma_dac.count <= (signed)s->dma_dac.fragsize && !s->dma_dac.endcleared) {
clear_advance(s);
s->dma_dac.endcleared = 1;
}
if (s->dma_dac.count + (signed)s->dma_dac.fragsize <= (signed)s->dma_dac.dmasize) {
wake_up(&s->dma_dac.wait);
DPRINTK(DPINT,"waking up DAC count: %d sw: %d hw: %d\n",
s->dma_dac.count, s->dma_dac.swptr, hwptr);
}
}
}
}
static irqreturn_t m3_interrupt(int irq, void *dev_id, struct pt_regs *regs)
{
struct m3_card *c = (struct m3_card *)dev_id;
struct m3_state *s = &c->channels[0];
u8 status;
status = inb(c->iobase+0x1A);
if(status == 0xff)
return IRQ_NONE;
/* presumably acking the ints? */
outw(status, c->iobase+0x1A);
if(c->in_suspend)
return IRQ_HANDLED;
/*
* ack an assp int if its running
* and has an int pending
*/
if( status & ASSP_INT_PENDING) {
u8 ctl = inb(c->iobase + ASSP_CONTROL_B);
if( !(ctl & STOP_ASSP_CLOCK)) {
ctl = inb(c->iobase + ASSP_HOST_INT_STATUS );
if(ctl & DSP2HOST_REQ_TIMER) {
outb( DSP2HOST_REQ_TIMER, c->iobase + ASSP_HOST_INT_STATUS);
/* update adc/dac info if it was a timer int */
spin_lock(&c->lock);
m3_update_ptr(s);
spin_unlock(&c->lock);
}
}
}
/* XXX is this needed? */
if(status & 0x40)
outb(0x40, c->iobase+0x1A);
return IRQ_HANDLED;
}
/* --------------------------------------------------------------------- */
static const char invalid_magic[] = KERN_CRIT PFX "invalid magic value in %s\n";
#define VALIDATE_MAGIC(FOO,MAG) \
({ \
if (!(FOO) || (FOO)->magic != MAG) { \
printk(invalid_magic,__FUNCTION__); \
return -ENXIO; \
} \
})
#define VALIDATE_STATE(a) VALIDATE_MAGIC(a,M3_STATE_MAGIC)
#define VALIDATE_CARD(a) VALIDATE_MAGIC(a,M3_CARD_MAGIC)
/* --------------------------------------------------------------------- */
static int drain_dac(struct m3_state *s, int nonblock)
{
DECLARE_WAITQUEUE(wait,current);
unsigned long flags;
int count;
signed long tmo;
if (s->dma_dac.mapped || !s->dma_dac.ready)
return 0;
set_current_state(TASK_INTERRUPTIBLE);
add_wait_queue(&s->dma_dac.wait, &wait);
for (;;) {
spin_lock_irqsave(&s->card->lock, flags);
count = s->dma_dac.count;
spin_unlock_irqrestore(&s->card->lock, flags);
if (count <= 0)
break;
if (signal_pending(current))
break;
if (nonblock) {
remove_wait_queue(&s->dma_dac.wait, &wait);
set_current_state(TASK_RUNNING);
return -EBUSY;
}
tmo = (count * HZ) / s->ratedac;
tmo >>= sample_shift[(s->fmt >> ESS_DAC_SHIFT) & ESS_FMT_MASK];
/* XXX this is just broken. someone is waking us up alot, or schedule_timeout is broken.
or something. who cares. - zach */
if (!schedule_timeout(tmo ? tmo : 1) && tmo)
DPRINTK(DPCRAP,"dma timed out?? %ld\n",jiffies);
}
remove_wait_queue(&s->dma_dac.wait, &wait);
set_current_state(TASK_RUNNING);
if (signal_pending(current))
return -ERESTARTSYS;
return 0;
}
static ssize_t m3_read(struct file *file, char __user *buffer, size_t count, loff_t *ppos)
{
struct m3_state *s = (struct m3_state *)file->private_data;
ssize_t ret;
unsigned long flags;
unsigned swptr;
int cnt;
VALIDATE_STATE(s);
if (s->dma_adc.mapped)
return -ENXIO;
if (!s->dma_adc.ready && (ret = prog_dmabuf(s, 1)))
return ret;
if (!access_ok(VERIFY_WRITE, buffer, count))
return -EFAULT;
ret = 0;
spin_lock_irqsave(&s->card->lock, flags);
while (count > 0) {
int timed_out;
swptr = s->dma_adc.swptr;
cnt = s->dma_adc.dmasize-swptr;
if (s->dma_adc.count < cnt)
cnt = s->dma_adc.count;
if (cnt > count)
cnt = count;
if (cnt <= 0) {
start_adc(s);
if (file->f_flags & O_NONBLOCK)
{
ret = ret ? ret : -EAGAIN;
goto out;
}
spin_unlock_irqrestore(&s->card->lock, flags);
timed_out = interruptible_sleep_on_timeout(&s->dma_adc.wait, HZ) == 0;
spin_lock_irqsave(&s->card->lock, flags);
if(timed_out) {
printk("read: chip lockup? dmasz %u fragsz %u count %u hwptr %u swptr %u\n",
s->dma_adc.dmasize, s->dma_adc.fragsize, s->dma_adc.count,
s->dma_adc.hwptr, s->dma_adc.swptr);
stop_adc(s);
set_dmac(s, virt_to_bus(s->dma_adc.rawbuf), s->dma_adc.numfrag << s->dma_adc.fragshift);
s->dma_adc.count = s->dma_adc.hwptr = s->dma_adc.swptr = 0;
}
if (signal_pending(current))
{
ret = ret ? ret : -ERESTARTSYS;
goto out;
}
continue;
}
spin_unlock_irqrestore(&s->card->lock, flags);
if (copy_to_user(buffer, s->dma_adc.rawbuf + swptr, cnt)) {
ret = ret ? ret : -EFAULT;
return ret;
}
spin_lock_irqsave(&s->card->lock, flags);
swptr = (swptr + cnt) % s->dma_adc.dmasize;
s->dma_adc.swptr = swptr;
s->dma_adc.count -= cnt;
count -= cnt;
buffer += cnt;
ret += cnt;
start_adc(s);
}
out:
spin_unlock_irqrestore(&s->card->lock, flags);
return ret;
}
static ssize_t m3_write(struct file *file, const char __user *buffer, size_t count, loff_t *ppos)
{
struct m3_state *s = (struct m3_state *)file->private_data;
ssize_t ret;
unsigned long flags;
unsigned swptr;
int cnt;
VALIDATE_STATE(s);
if (s->dma_dac.mapped)
return -ENXIO;
if (!s->dma_dac.ready && (ret = prog_dmabuf(s, 0)))
return ret;
if (!access_ok(VERIFY_READ, buffer, count))
return -EFAULT;
ret = 0;
spin_lock_irqsave(&s->card->lock, flags);
while (count > 0) {
int timed_out;
if (s->dma_dac.count < 0) {
s->dma_dac.count = 0;
s->dma_dac.swptr = s->dma_dac.hwptr;
}
swptr = s->dma_dac.swptr;
cnt = s->dma_dac.dmasize-swptr;
if (s->dma_dac.count + cnt > s->dma_dac.dmasize)
cnt = s->dma_dac.dmasize - s->dma_dac.count;
if (cnt > count)
cnt = count;
if (cnt <= 0) {
start_dac(s);
if (file->f_flags & O_NONBLOCK) {
if(!ret) ret = -EAGAIN;
goto out;
}
spin_unlock_irqrestore(&s->card->lock, flags);
timed_out = interruptible_sleep_on_timeout(&s->dma_dac.wait, HZ) == 0;
spin_lock_irqsave(&s->card->lock, flags);
if(timed_out) {
DPRINTK(DPCRAP,"write: chip lockup? dmasz %u fragsz %u count %u hwptr %u swptr %u\n",
s->dma_dac.dmasize, s->dma_dac.fragsize, s->dma_dac.count,
s->dma_dac.hwptr, s->dma_dac.swptr);
stop_dac(s);
set_dmaa(s, virt_to_bus(s->dma_dac.rawbuf), s->dma_dac.numfrag << s->dma_dac.fragshift);
s->dma_dac.count = s->dma_dac.hwptr = s->dma_dac.swptr = 0;
}
if (signal_pending(current)) {
if (!ret) ret = -ERESTARTSYS;
goto out;
}
continue;
}
spin_unlock_irqrestore(&s->card->lock, flags);
if (copy_from_user(s->dma_dac.rawbuf + swptr, buffer, cnt)) {
if (!ret) ret = -EFAULT;
return ret;
}
spin_lock_irqsave(&s->card->lock, flags);
DPRINTK(DPSYS,"wrote %6d bytes at sw: %6d cnt: %6d while hw: %6d\n",
cnt, swptr, s->dma_dac.count, s->dma_dac.hwptr);
swptr = (swptr + cnt) % s->dma_dac.dmasize;
s->dma_dac.swptr = swptr;
s->dma_dac.count += cnt;
s->dma_dac.endcleared = 0;
count -= cnt;
buffer += cnt;
ret += cnt;
start_dac(s);
}
out:
spin_unlock_irqrestore(&s->card->lock, flags);
return ret;
}
static unsigned int m3_poll(struct file *file, struct poll_table_struct *wait)
{
struct m3_state *s = (struct m3_state *)file->private_data;
unsigned long flags;
unsigned int mask = 0;
VALIDATE_STATE(s);
if (file->f_mode & FMODE_WRITE)
poll_wait(file, &s->dma_dac.wait, wait);
if (file->f_mode & FMODE_READ)
poll_wait(file, &s->dma_adc.wait, wait);
spin_lock_irqsave(&s->card->lock, flags);
m3_update_ptr(s);
if (file->f_mode & FMODE_READ) {
if (s->dma_adc.count >= (signed)s->dma_adc.fragsize)
mask |= POLLIN | POLLRDNORM;
}
if (file->f_mode & FMODE_WRITE) {
if (s->dma_dac.mapped) {
if (s->dma_dac.count >= (signed)s->dma_dac.fragsize)
mask |= POLLOUT | POLLWRNORM;
} else {
if ((signed)s->dma_dac.dmasize >= s->dma_dac.count + (signed)s->dma_dac.fragsize)
mask |= POLLOUT | POLLWRNORM;
}
}
spin_unlock_irqrestore(&s->card->lock, flags);
return mask;
}
static int m3_mmap(struct file *file, struct vm_area_struct *vma)
{
struct m3_state *s = (struct m3_state *)file->private_data;
unsigned long max_size, size, start, offset;
struct dmabuf *db;
int ret = -EINVAL;
VALIDATE_STATE(s);
if (vma->vm_flags & VM_WRITE) {
if ((ret = prog_dmabuf(s, 0)) != 0)
return ret;
db = &s->dma_dac;
} else
if (vma->vm_flags & VM_READ) {
if ((ret = prog_dmabuf(s, 1)) != 0)
return ret;
db = &s->dma_adc;
} else
return -EINVAL;
max_size = db->dmasize;
start = vma->vm_start;
offset = (vma->vm_pgoff << PAGE_SHIFT);
size = vma->vm_end - vma->vm_start;
if(size > max_size)
goto out;
if(offset > max_size - size)
goto out;
/*
* this will be ->nopage() once I can
* ask Jeff what the hell I'm doing wrong.
*/
ret = -EAGAIN;
if (remap_pfn_range(vma, vma->vm_start,
virt_to_phys(db->rawbuf) >> PAGE_SHIFT,
size, vma->vm_page_prot))
goto out;
db->mapped = 1;
ret = 0;
out:
return ret;
}
/*
* this function is a disaster..
*/
#define get_user_ret(x, ptr, ret) ({ if(get_user(x, ptr)) return ret; })
static int m3_ioctl(struct inode *inode, struct file *file, unsigned int cmd, unsigned long arg)
{
struct m3_state *s = (struct m3_state *)file->private_data;
struct m3_card *card=s->card;
unsigned long flags;
audio_buf_info abinfo;
count_info cinfo;
int val, mapped, ret;
unsigned char fmtm, fmtd;
void __user *argp = (void __user *)arg;
int __user *p = argp;
VALIDATE_STATE(s);
mapped = ((file->f_mode & FMODE_WRITE) && s->dma_dac.mapped) ||
((file->f_mode & FMODE_READ) && s->dma_adc.mapped);
DPRINTK(DPSYS,"m3_ioctl: cmd %d\n", cmd);
switch (cmd) {
case OSS_GETVERSION:
return put_user(SOUND_VERSION, p);
case SNDCTL_DSP_SYNC:
if (file->f_mode & FMODE_WRITE)
return drain_dac(s, file->f_flags & O_NONBLOCK);
return 0;
case SNDCTL_DSP_SETDUPLEX:
/* XXX fix */
return 0;
case SNDCTL_DSP_GETCAPS:
return put_user(DSP_CAP_DUPLEX | DSP_CAP_REALTIME | DSP_CAP_TRIGGER | DSP_CAP_MMAP, p);
case SNDCTL_DSP_RESET:
spin_lock_irqsave(&card->lock, flags);
if (file->f_mode & FMODE_WRITE) {
stop_dac(s);
synchronize_irq(s->card->pcidev->irq);
s->dma_dac.swptr = s->dma_dac.hwptr = s->dma_dac.count = s->dma_dac.total_bytes = 0;
}
if (file->f_mode & FMODE_READ) {
stop_adc(s);
synchronize_irq(s->card->pcidev->irq);
s->dma_adc.swptr = s->dma_adc.hwptr = s->dma_adc.count = s->dma_adc.total_bytes = 0;
}
spin_unlock_irqrestore(&card->lock, flags);
return 0;
case SNDCTL_DSP_SPEED:
get_user_ret(val, p, -EFAULT);
spin_lock_irqsave(&card->lock, flags);
if (val >= 0) {
if (file->f_mode & FMODE_READ) {
stop_adc(s);
s->dma_adc.ready = 0;
set_adc_rate(s, val);
}
if (file->f_mode & FMODE_WRITE) {
stop_dac(s);
s->dma_dac.ready = 0;
set_dac_rate(s, val);
}
}
spin_unlock_irqrestore(&card->lock, flags);
return put_user((file->f_mode & FMODE_READ) ? s->rateadc : s->ratedac, p);
case SNDCTL_DSP_STEREO:
get_user_ret(val, p, -EFAULT);
spin_lock_irqsave(&card->lock, flags);
fmtd = 0;
fmtm = ~0;
if (file->f_mode & FMODE_READ) {
stop_adc(s);
s->dma_adc.ready = 0;
if (val)
fmtd |= ESS_FMT_STEREO << ESS_ADC_SHIFT;
else
fmtm &= ~(ESS_FMT_STEREO << ESS_ADC_SHIFT);
}
if (file->f_mode & FMODE_WRITE) {
stop_dac(s);
s->dma_dac.ready = 0;
if (val)
fmtd |= ESS_FMT_STEREO << ESS_DAC_SHIFT;
else
fmtm &= ~(ESS_FMT_STEREO << ESS_DAC_SHIFT);
}
set_fmt(s, fmtm, fmtd);
spin_unlock_irqrestore(&card->lock, flags);
return 0;
case SNDCTL_DSP_CHANNELS:
get_user_ret(val, p, -EFAULT);
spin_lock_irqsave(&card->lock, flags);
if (val != 0) {
fmtd = 0;
fmtm = ~0;
if (file->f_mode & FMODE_READ) {
stop_adc(s);
s->dma_adc.ready = 0;
if (val >= 2)
fmtd |= ESS_FMT_STEREO << ESS_ADC_SHIFT;
else
fmtm &= ~(ESS_FMT_STEREO << ESS_ADC_SHIFT);
}
if (file->f_mode & FMODE_WRITE) {
stop_dac(s);
s->dma_dac.ready = 0;
if (val >= 2)
fmtd |= ESS_FMT_STEREO << ESS_DAC_SHIFT;
else
fmtm &= ~(ESS_FMT_STEREO << ESS_DAC_SHIFT);
}
set_fmt(s, fmtm, fmtd);
}
spin_unlock_irqrestore(&card->lock, flags);
return put_user((s->fmt & ((file->f_mode & FMODE_READ) ? (ESS_FMT_STEREO << ESS_ADC_SHIFT)
: (ESS_FMT_STEREO << ESS_DAC_SHIFT))) ? 2 : 1, p);
case SNDCTL_DSP_GETFMTS: /* Returns a mask */
return put_user(AFMT_U8|AFMT_S16_LE, p);
case SNDCTL_DSP_SETFMT: /* Selects ONE fmt*/
get_user_ret(val, p, -EFAULT);
spin_lock_irqsave(&card->lock, flags);
if (val != AFMT_QUERY) {
fmtd = 0;
fmtm = ~0;
if (file->f_mode & FMODE_READ) {
stop_adc(s);
s->dma_adc.ready = 0;
if (val == AFMT_S16_LE)
fmtd |= ESS_FMT_16BIT << ESS_ADC_SHIFT;
else
fmtm &= ~(ESS_FMT_16BIT << ESS_ADC_SHIFT);
}
if (file->f_mode & FMODE_WRITE) {
stop_dac(s);
s->dma_dac.ready = 0;
if (val == AFMT_S16_LE)
fmtd |= ESS_FMT_16BIT << ESS_DAC_SHIFT;
else
fmtm &= ~(ESS_FMT_16BIT << ESS_DAC_SHIFT);
}
set_fmt(s, fmtm, fmtd);
}
spin_unlock_irqrestore(&card->lock, flags);
return put_user((s->fmt & ((file->f_mode & FMODE_READ) ?
(ESS_FMT_16BIT << ESS_ADC_SHIFT)
: (ESS_FMT_16BIT << ESS_DAC_SHIFT))) ?
AFMT_S16_LE :
AFMT_U8,
p);
case SNDCTL_DSP_POST:
return 0;
case SNDCTL_DSP_GETTRIGGER:
val = 0;
if ((file->f_mode & FMODE_READ) && (s->enable & ADC_RUNNING))
val |= PCM_ENABLE_INPUT;
if ((file->f_mode & FMODE_WRITE) && (s->enable & DAC_RUNNING))
val |= PCM_ENABLE_OUTPUT;
return put_user(val, p);
case SNDCTL_DSP_SETTRIGGER:
get_user_ret(val, p, -EFAULT);
if (file->f_mode & FMODE_READ) {
if (val & PCM_ENABLE_INPUT) {
if (!s->dma_adc.ready && (ret = prog_dmabuf(s, 1)))
return ret;
start_adc(s);
} else
stop_adc(s);
}
if (file->f_mode & FMODE_WRITE) {
if (val & PCM_ENABLE_OUTPUT) {
if (!s->dma_dac.ready && (ret = prog_dmabuf(s, 0)))
return ret;
start_dac(s);
} else
stop_dac(s);
}
return 0;
case SNDCTL_DSP_GETOSPACE:
if (!(file->f_mode & FMODE_WRITE))
return -EINVAL;
if (!(s->enable & DAC_RUNNING) && (val = prog_dmabuf(s, 0)) != 0)
return val;
spin_lock_irqsave(&card->lock, flags);
m3_update_ptr(s);
abinfo.fragsize = s->dma_dac.fragsize;
abinfo.bytes = s->dma_dac.dmasize - s->dma_dac.count;
abinfo.fragstotal = s->dma_dac.numfrag;
abinfo.fragments = abinfo.bytes >> s->dma_dac.fragshift;
spin_unlock_irqrestore(&card->lock, flags);
return copy_to_user(argp, &abinfo, sizeof(abinfo)) ? -EFAULT : 0;
case SNDCTL_DSP_GETISPACE:
if (!(file->f_mode & FMODE_READ))
return -EINVAL;
if (!(s->enable & ADC_RUNNING) && (val = prog_dmabuf(s, 1)) != 0)
return val;
spin_lock_irqsave(&card->lock, flags);
m3_update_ptr(s);
abinfo.fragsize = s->dma_adc.fragsize;
abinfo.bytes = s->dma_adc.count;
abinfo.fragstotal = s->dma_adc.numfrag;
abinfo.fragments = abinfo.bytes >> s->dma_adc.fragshift;
spin_unlock_irqrestore(&card->lock, flags);
return copy_to_user(argp, &abinfo, sizeof(abinfo)) ? -EFAULT : 0;
case SNDCTL_DSP_NONBLOCK:
file->f_flags |= O_NONBLOCK;
return 0;
case SNDCTL_DSP_GETODELAY:
if (!(file->f_mode & FMODE_WRITE))
return -EINVAL;
spin_lock_irqsave(&card->lock, flags);
m3_update_ptr(s);
val = s->dma_dac.count;
spin_unlock_irqrestore(&card->lock, flags);
return put_user(val, p);
case SNDCTL_DSP_GETIPTR:
if (!(file->f_mode & FMODE_READ))
return -EINVAL;
spin_lock_irqsave(&card->lock, flags);
m3_update_ptr(s);
cinfo.bytes = s->dma_adc.total_bytes;
cinfo.blocks = s->dma_adc.count >> s->dma_adc.fragshift;
cinfo.ptr = s->dma_adc.hwptr;
if (s->dma_adc.mapped)
s->dma_adc.count &= s->dma_adc.fragsize-1;
spin_unlock_irqrestore(&card->lock, flags);
if (copy_to_user(argp, &cinfo, sizeof(cinfo)))
return -EFAULT;
return 0;
case SNDCTL_DSP_GETOPTR:
if (!(file->f_mode & FMODE_WRITE))
return -EINVAL;
spin_lock_irqsave(&card->lock, flags);
m3_update_ptr(s);
cinfo.bytes = s->dma_dac.total_bytes;
cinfo.blocks = s->dma_dac.count >> s->dma_dac.fragshift;
cinfo.ptr = s->dma_dac.hwptr;
if (s->dma_dac.mapped)
s->dma_dac.count &= s->dma_dac.fragsize-1;
spin_unlock_irqrestore(&card->lock, flags);
if (copy_to_user(argp, &cinfo, sizeof(cinfo)))
return -EFAULT;
return 0;
case SNDCTL_DSP_GETBLKSIZE:
if (file->f_mode & FMODE_WRITE) {
if ((val = prog_dmabuf(s, 0)))
return val;
return put_user(s->dma_dac.fragsize, p);
}
if ((val = prog_dmabuf(s, 1)))
return val;
return put_user(s->dma_adc.fragsize, p);
case SNDCTL_DSP_SETFRAGMENT:
get_user_ret(val, p, -EFAULT);
spin_lock_irqsave(&card->lock, flags);
if (file->f_mode & FMODE_READ) {
s->dma_adc.ossfragshift = val & 0xffff;
s->dma_adc.ossmaxfrags = (val >> 16) & 0xffff;
if (s->dma_adc.ossfragshift < 4)
s->dma_adc.ossfragshift = 4;
if (s->dma_adc.ossfragshift > 15)
s->dma_adc.ossfragshift = 15;
if (s->dma_adc.ossmaxfrags < 4)
s->dma_adc.ossmaxfrags = 4;
}
if (file->f_mode & FMODE_WRITE) {
s->dma_dac.ossfragshift = val & 0xffff;
s->dma_dac.ossmaxfrags = (val >> 16) & 0xffff;
if (s->dma_dac.ossfragshift < 4)
s->dma_dac.ossfragshift = 4;
if (s->dma_dac.ossfragshift > 15)
s->dma_dac.ossfragshift = 15;
if (s->dma_dac.ossmaxfrags < 4)
s->dma_dac.ossmaxfrags = 4;
}
spin_unlock_irqrestore(&card->lock, flags);
return 0;
case SNDCTL_DSP_SUBDIVIDE:
if ((file->f_mode & FMODE_READ && s->dma_adc.subdivision) ||
(file->f_mode & FMODE_WRITE && s->dma_dac.subdivision))
return -EINVAL;
get_user_ret(val, p, -EFAULT);
if (val != 1 && val != 2 && val != 4)
return -EINVAL;
if (file->f_mode & FMODE_READ)
s->dma_adc.subdivision = val;
if (file->f_mode & FMODE_WRITE)
s->dma_dac.subdivision = val;
return 0;
case SOUND_PCM_READ_RATE:
return put_user((file->f_mode & FMODE_READ) ? s->rateadc : s->ratedac, p);
case SOUND_PCM_READ_CHANNELS:
return put_user((s->fmt & ((file->f_mode & FMODE_READ) ? (ESS_FMT_STEREO << ESS_ADC_SHIFT)
: (ESS_FMT_STEREO << ESS_DAC_SHIFT))) ? 2 : 1, p);
case SOUND_PCM_READ_BITS:
return put_user((s->fmt & ((file->f_mode & FMODE_READ) ? (ESS_FMT_16BIT << ESS_ADC_SHIFT)
: (ESS_FMT_16BIT << ESS_DAC_SHIFT))) ? 16 : 8, p);
case SOUND_PCM_WRITE_FILTER:
case SNDCTL_DSP_SETSYNCRO:
case SOUND_PCM_READ_FILTER:
return -EINVAL;
}
return -EINVAL;
}
static int
allocate_dmabuf(struct pci_dev *pci_dev, struct dmabuf *db)
{
int order;
DPRINTK(DPSTR,"allocating for dmabuf %p\n", db);
/*
* alloc as big a chunk as we can, start with
* 64k 'cause we're insane. based on order cause
* the amazingly complicated prog_dmabuf wants it.
*
* pci_alloc_sonsistent guarantees that it won't cross a natural
* boundary; the m3 hardware can't have dma cross a 64k bus
* address boundary.
*/
for (order = 16-PAGE_SHIFT; order >= 1; order--) {
db->rawbuf = pci_alloc_consistent(pci_dev, PAGE_SIZE << order,
&(db->handle));
if(db->rawbuf)
break;
}
if (!db->rawbuf)
return 1;
DPRINTK(DPSTR,"allocated %ld (%d) bytes at %p\n",
PAGE_SIZE<<order, order, db->rawbuf);
{
struct page *page, *pend;
pend = virt_to_page(db->rawbuf + (PAGE_SIZE << order) - 1);
for (page = virt_to_page(db->rawbuf); page <= pend; page++)
SetPageReserved(page);
}
db->buforder = order;
db->ready = 0;
db->mapped = 0;
return 0;
}
static void
nuke_lists(struct m3_card *card, struct dmabuf *db)
{
m3_remove_list(card, &(card->dma_list), db->dma_index);
m3_remove_list(card, &(card->msrc_list), db->msrc_index);
db->in_lists = 0;
}
static void
free_dmabuf(struct pci_dev *pci_dev, struct dmabuf *db)
{
if(db->rawbuf == NULL)
return;
DPRINTK(DPSTR,"freeing %p from dmabuf %p\n",db->rawbuf, db);
{
struct page *page, *pend;
pend = virt_to_page(db->rawbuf + (PAGE_SIZE << db->buforder) - 1);
for (page = virt_to_page(db->rawbuf); page <= pend; page++)
ClearPageReserved(page);
}
pci_free_consistent(pci_dev, PAGE_SIZE << db->buforder,
db->rawbuf, db->handle);
db->rawbuf = NULL;
db->buforder = 0;
db->mapped = 0;
db->ready = 0;
}
static int m3_open(struct inode *inode, struct file *file)
{
unsigned int minor = iminor(inode);
struct m3_card *c;
struct m3_state *s = NULL;
int i;
unsigned char fmtm = ~0, fmts = 0;
unsigned long flags;
/*
* Scan the cards and find the channel. We only
* do this at open time so it is ok
*/
for(c = devs ; c != NULL ; c = c->next) {
for(i=0;i<NR_DSPS;i++) {
if(c->channels[i].dev_audio < 0)
continue;
if((c->channels[i].dev_audio ^ minor) & ~0xf)
continue;
s = &c->channels[i];
break;
}
}
if (!s)
return -ENODEV;
VALIDATE_STATE(s);
file->private_data = s;
/* wait for device to become free */
mutex_lock(&s->open_mutex);
while (s->open_mode & file->f_mode) {
if (file->f_flags & O_NONBLOCK) {
mutex_unlock(&s->open_mutex);
return -EWOULDBLOCK;
}
mutex_unlock(&s->open_mutex);
interruptible_sleep_on(&s->open_wait);
if (signal_pending(current))
return -ERESTARTSYS;
mutex_lock(&s->open_mutex);
}
spin_lock_irqsave(&c->lock, flags);
if (file->f_mode & FMODE_READ) {
fmtm &= ~((ESS_FMT_STEREO | ESS_FMT_16BIT) << ESS_ADC_SHIFT);
if ((minor & 0xf) == SND_DEV_DSP16)
fmts |= ESS_FMT_16BIT << ESS_ADC_SHIFT;
s->dma_adc.ossfragshift = s->dma_adc.ossmaxfrags = s->dma_adc.subdivision = 0;
set_adc_rate(s, 8000);
}
if (file->f_mode & FMODE_WRITE) {
fmtm &= ~((ESS_FMT_STEREO | ESS_FMT_16BIT) << ESS_DAC_SHIFT);
if ((minor & 0xf) == SND_DEV_DSP16)
fmts |= ESS_FMT_16BIT << ESS_DAC_SHIFT;
s->dma_dac.ossfragshift = s->dma_dac.ossmaxfrags = s->dma_dac.subdivision = 0;
set_dac_rate(s, 8000);
}
set_fmt(s, fmtm, fmts);
s->open_mode |= file->f_mode & (FMODE_READ | FMODE_WRITE);
mutex_unlock(&s->open_mutex);
spin_unlock_irqrestore(&c->lock, flags);
return nonseekable_open(inode, file);
}
static int m3_release(struct inode *inode, struct file *file)
{
struct m3_state *s = (struct m3_state *)file->private_data;
struct m3_card *card=s->card;
unsigned long flags;
VALIDATE_STATE(s);
if (file->f_mode & FMODE_WRITE)
drain_dac(s, file->f_flags & O_NONBLOCK);
mutex_lock(&s->open_mutex);
spin_lock_irqsave(&card->lock, flags);
if (file->f_mode & FMODE_WRITE) {
stop_dac(s);
if(s->dma_dac.in_lists) {
m3_remove_list(s->card, &(s->card->mixer_list), s->dma_dac.mixer_index);
nuke_lists(s->card, &(s->dma_dac));
}
}
if (file->f_mode & FMODE_READ) {
stop_adc(s);
if(s->dma_adc.in_lists) {
m3_remove_list(s->card, &(s->card->adc1_list), s->dma_adc.adc1_index);
nuke_lists(s->card, &(s->dma_adc));
}
}
s->open_mode &= (~file->f_mode) & (FMODE_READ|FMODE_WRITE);
spin_unlock_irqrestore(&card->lock, flags);
mutex_unlock(&s->open_mutex);
wake_up(&s->open_wait);
return 0;
}
/*
* Wait for the ac97 serial bus to be free.
* return nonzero if the bus is still busy.
*/
static int m3_ac97_wait(struct m3_card *card)
{
int i = 10000;
while( (m3_inb(card, 0x30) & 1) && i--) ;
return i == 0;
}
static u16 m3_ac97_read(struct ac97_codec *codec, u8 reg)
{
u16 ret = 0;
struct m3_card *card = codec->private_data;
spin_lock(&card->ac97_lock);
if(m3_ac97_wait(card)) {
printk(KERN_ERR PFX "serial bus busy reading reg 0x%x\n",reg);
goto out;
}
m3_outb(card, 0x80 | (reg & 0x7f), 0x30);
if(m3_ac97_wait(card)) {
printk(KERN_ERR PFX "serial bus busy finishing read reg 0x%x\n",reg);
goto out;
}
ret = m3_inw(card, 0x32);
DPRINTK(DPCRAP,"reading 0x%04x from 0x%02x\n",ret, reg);
out:
spin_unlock(&card->ac97_lock);
return ret;
}
static void m3_ac97_write(struct ac97_codec *codec, u8 reg, u16 val)
{
struct m3_card *card = codec->private_data;
spin_lock(&card->ac97_lock);
if(m3_ac97_wait(card)) {
printk(KERN_ERR PFX "serial bus busy writing 0x%x to 0x%x\n",val, reg);
goto out;
}
DPRINTK(DPCRAP,"writing 0x%04x to 0x%02x\n", val, reg);
m3_outw(card, val, 0x32);
m3_outb(card, reg & 0x7f, 0x30);
out:
spin_unlock(&card->ac97_lock);
}
/* OSS /dev/mixer file operation methods */
static int m3_open_mixdev(struct inode *inode, struct file *file)
{
unsigned int minor = iminor(inode);
struct m3_card *card = devs;
for (card = devs; card != NULL; card = card->next) {
if((card->ac97 != NULL) && (card->ac97->dev_mixer == minor))
break;
}
if (!card) {
return -ENODEV;
}
file->private_data = card->ac97;
return nonseekable_open(inode, file);
}
static int m3_release_mixdev(struct inode *inode, struct file *file)
{
return 0;
}
static int m3_ioctl_mixdev(struct inode *inode, struct file *file, unsigned int cmd,
unsigned long arg)
{
struct ac97_codec *codec = (struct ac97_codec *)file->private_data;
return codec->mixer_ioctl(codec, cmd, arg);
}
static struct file_operations m3_mixer_fops = {
.owner = THIS_MODULE,
.llseek = no_llseek,
.ioctl = m3_ioctl_mixdev,
.open = m3_open_mixdev,
.release = m3_release_mixdev,
};
static void remote_codec_config(int io, int isremote)
{
isremote = isremote ? 1 : 0;
outw( (inw(io + RING_BUS_CTRL_B) & ~SECOND_CODEC_ID_MASK) | isremote,
io + RING_BUS_CTRL_B);
outw( (inw(io + SDO_OUT_DEST_CTRL) & ~COMMAND_ADDR_OUT) | isremote,
io + SDO_OUT_DEST_CTRL);
outw( (inw(io + SDO_IN_DEST_CTRL) & ~STATUS_ADDR_IN) | isremote,
io + SDO_IN_DEST_CTRL);
}
/*
* hack, returns non zero on err
*/
static int try_read_vendor(struct m3_card *card)
{
u16 ret;
if(m3_ac97_wait(card))
return 1;
m3_outb(card, 0x80 | (AC97_VENDOR_ID1 & 0x7f), 0x30);
if(m3_ac97_wait(card))
return 1;
ret = m3_inw(card, 0x32);
return (ret == 0) || (ret == 0xffff);
}
static void m3_codec_reset(struct m3_card *card, int busywait)
{
u16 dir;
int delay1 = 0, delay2 = 0, i;
int io = card->iobase;
switch (card->card_type) {
/*
* the onboard codec on the allegro seems
* to want to wait a very long time before
* coming back to life
*/
case ESS_ALLEGRO:
delay1 = 50;
delay2 = 800;
break;
case ESS_MAESTRO3:
case ESS_MAESTRO3HW:
delay1 = 20;
delay2 = 500;
break;
}
for(i = 0; i < 5; i ++) {
dir = inw(io + GPIO_DIRECTION);
dir |= 0x10; /* assuming pci bus master? */
remote_codec_config(io, 0);
outw(IO_SRAM_ENABLE, io + RING_BUS_CTRL_A);
udelay(20);
outw(dir & ~GPO_PRIMARY_AC97 , io + GPIO_DIRECTION);
outw(~GPO_PRIMARY_AC97 , io + GPIO_MASK);
outw(0, io + GPIO_DATA);
outw(dir | GPO_PRIMARY_AC97, io + GPIO_DIRECTION);
if(busywait) {
mdelay(delay1);
} else {
set_current_state(TASK_UNINTERRUPTIBLE);
schedule_timeout((delay1 * HZ) / 1000);
}
outw(GPO_PRIMARY_AC97, io + GPIO_DATA);
udelay(5);
/* ok, bring back the ac-link */
outw(IO_SRAM_ENABLE | SERIAL_AC_LINK_ENABLE, io + RING_BUS_CTRL_A);
outw(~0, io + GPIO_MASK);
if(busywait) {
mdelay(delay2);
} else {
set_current_state(TASK_UNINTERRUPTIBLE);
schedule_timeout((delay2 * HZ) / 1000);
}
if(! try_read_vendor(card))
break;
delay1 += 10;
delay2 += 100;
DPRINTK(DPMOD, "retrying codec reset with delays of %d and %d ms\n",
delay1, delay2);
}
#if 0
/* more gung-ho reset that doesn't
* seem to work anywhere :)
*/
tmp = inw(io + RING_BUS_CTRL_A);
outw(RAC_SDFS_ENABLE|LAC_SDFS_ENABLE, io + RING_BUS_CTRL_A);
mdelay(20);
outw(tmp, io + RING_BUS_CTRL_A);
mdelay(50);
#endif
}
static int __devinit m3_codec_install(struct m3_card *card)
{
struct ac97_codec *codec;
if ((codec = ac97_alloc_codec()) == NULL)
return -ENOMEM;
codec->private_data = card;
codec->codec_read = m3_ac97_read;
codec->codec_write = m3_ac97_write;
/* someday we should support secondary codecs.. */
codec->id = 0;
if (ac97_probe_codec(codec) == 0) {
printk(KERN_ERR PFX "codec probe failed\n");
ac97_release_codec(codec);
return -1;
}
if ((codec->dev_mixer = register_sound_mixer(&m3_mixer_fops, -1)) < 0) {
printk(KERN_ERR PFX "couldn't register mixer!\n");
ac97_release_codec(codec);
return -1;
}
card->ac97 = codec;
return 0;
}
#define MINISRC_LPF_LEN 10
static u16 minisrc_lpf[MINISRC_LPF_LEN] = {
0X0743, 0X1104, 0X0A4C, 0XF88D, 0X242C,
0X1023, 0X1AA9, 0X0B60, 0XEFDD, 0X186F
};
static void m3_assp_init(struct m3_card *card)
{
int i;
/* zero kernel data */
for(i = 0 ; i < (REV_B_DATA_MEMORY_UNIT_LENGTH * NUM_UNITS_KERNEL_DATA) / 2; i++)
m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
KDATA_BASE_ADDR + i, 0);
/* zero mixer data? */
for(i = 0 ; i < (REV_B_DATA_MEMORY_UNIT_LENGTH * NUM_UNITS_KERNEL_DATA) / 2; i++)
m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
KDATA_BASE_ADDR2 + i, 0);
/* init dma pointer */
m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
KDATA_CURRENT_DMA,
KDATA_DMA_XFER0);
/* write kernel into code memory.. */
for(i = 0 ; i < sizeof(assp_kernel_image) / 2; i++) {
m3_assp_write(card, MEMTYPE_INTERNAL_CODE,
REV_B_CODE_MEMORY_BEGIN + i,
assp_kernel_image[i]);
}
/*
* We only have this one client and we know that 0x400
* is free in our kernel's mem map, so lets just
* drop it there. It seems that the minisrc doesn't
* need vectors, so we won't bother with them..
*/
for(i = 0 ; i < sizeof(assp_minisrc_image) / 2; i++) {
m3_assp_write(card, MEMTYPE_INTERNAL_CODE,
0x400 + i,
assp_minisrc_image[i]);
}
/*
* write the coefficients for the low pass filter?
*/
for(i = 0; i < MINISRC_LPF_LEN ; i++) {
m3_assp_write(card, MEMTYPE_INTERNAL_CODE,
0x400 + MINISRC_COEF_LOC + i,
minisrc_lpf[i]);
}
m3_assp_write(card, MEMTYPE_INTERNAL_CODE,
0x400 + MINISRC_COEF_LOC + MINISRC_LPF_LEN,
0x8000);
/*
* the minisrc is the only thing on
* our task list..
*/
m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
KDATA_TASK0,
0x400);
/*
* init the mixer number..
*/
m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
KDATA_MIXER_TASK_NUMBER,0);
/*
* EXTREME KERNEL MASTER VOLUME
*/
m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
KDATA_DAC_LEFT_VOLUME, ARB_VOLUME);
m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
KDATA_DAC_RIGHT_VOLUME, ARB_VOLUME);
card->mixer_list.mem_addr = KDATA_MIXER_XFER0;
card->mixer_list.max = MAX_VIRTUAL_MIXER_CHANNELS;
card->adc1_list.mem_addr = KDATA_ADC1_XFER0;
card->adc1_list.max = MAX_VIRTUAL_ADC1_CHANNELS;
card->dma_list.mem_addr = KDATA_DMA_XFER0;
card->dma_list.max = MAX_VIRTUAL_DMA_CHANNELS;
card->msrc_list.mem_addr = KDATA_INSTANCE0_MINISRC;
card->msrc_list.max = MAX_INSTANCE_MINISRC;
}
static int setup_msrc(struct m3_card *card,
struct assp_instance *inst, int index)
{
int data_bytes = 2 * ( MINISRC_TMP_BUFFER_SIZE / 2 +
MINISRC_IN_BUFFER_SIZE / 2 +
1 + MINISRC_OUT_BUFFER_SIZE / 2 + 1 );
int address, i;
/*
* the revb memory map has 0x1100 through 0x1c00
* free.
*/
/*
* align instance address to 256 bytes so that it's
* shifted list address is aligned.
* list address = (mem address >> 1) >> 7;
*/
data_bytes = (data_bytes + 255) & ~255;
address = 0x1100 + ((data_bytes/2) * index);
if((address + (data_bytes/2)) >= 0x1c00) {
printk(KERN_ERR PFX "no memory for %d bytes at ind %d (addr 0x%x)\n",
data_bytes, index, address);
return -1;
}
for(i = 0; i < data_bytes/2 ; i++)
m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
address + i, 0);
inst->code = 0x400;
inst->data = address;
return 0;
}
static int m3_assp_client_init(struct m3_state *s)
{
setup_msrc(s->card, &(s->dac_inst), s->index * 2);
setup_msrc(s->card, &(s->adc_inst), (s->index * 2) + 1);
return 0;
}
static void m3_amp_enable(struct m3_card *card, int enable)
{
/*
* this works for the reference board, have to find
* out about others
*
* this needs more magic for 4 speaker, but..
*/
int io = card->iobase;
u16 gpo, polarity_port, polarity;
if(!external_amp)
return;
if (gpio_pin >= 0 && gpio_pin <= 15) {
polarity_port = 0x1000 + (0x100 * gpio_pin);
} else {
switch (card->card_type) {
case ESS_ALLEGRO:
polarity_port = 0x1800;
break;
default:
polarity_port = 0x1100;
/* Panasonic toughbook CF72 has to be different... */
if(card->pcidev->subsystem_vendor == 0x10F7 && card->pcidev->subsystem_device == 0x833D)
polarity_port = 0x1D00;
break;
}
}
gpo = (polarity_port >> 8) & 0x0F;
polarity = polarity_port >> 12;
if ( enable )
polarity = !polarity;
polarity = polarity << gpo;
gpo = 1 << gpo;
outw(~gpo , io + GPIO_MASK);
outw( inw(io + GPIO_DIRECTION) | gpo ,
io + GPIO_DIRECTION);
outw( (GPO_SECONDARY_AC97 | GPO_PRIMARY_AC97 | polarity) ,
io + GPIO_DATA);
outw(0xffff , io + GPIO_MASK);
}
static int
maestro_config(struct m3_card *card)
{
struct pci_dev *pcidev = card->pcidev;
u32 n;
u8 t; /* makes as much sense as 'n', no? */
pci_read_config_dword(pcidev, PCI_ALLEGRO_CONFIG, &n);
n &= REDUCED_DEBOUNCE;
n |= PM_CTRL_ENABLE | CLK_DIV_BY_49 | USE_PCI_TIMING;
pci_write_config_dword(pcidev, PCI_ALLEGRO_CONFIG, n);
outb(RESET_ASSP, card->iobase + ASSP_CONTROL_B);
pci_read_config_dword(pcidev, PCI_ALLEGRO_CONFIG, &n);
n &= ~INT_CLK_SELECT;
if(card->card_type >= ESS_MAESTRO3) {
n &= ~INT_CLK_MULT_ENABLE;
n |= INT_CLK_SRC_NOT_PCI;
}
n &= ~( CLK_MULT_MODE_SELECT | CLK_MULT_MODE_SELECT_2 );
pci_write_config_dword(pcidev, PCI_ALLEGRO_CONFIG, n);
if(card->card_type <= ESS_ALLEGRO) {
pci_read_config_dword(pcidev, PCI_USER_CONFIG, &n);
n |= IN_CLK_12MHZ_SELECT;
pci_write_config_dword(pcidev, PCI_USER_CONFIG, n);
}
t = inb(card->iobase + ASSP_CONTROL_A);
t &= ~( DSP_CLK_36MHZ_SELECT | ASSP_CLK_49MHZ_SELECT);
t |= ASSP_CLK_49MHZ_SELECT;
t |= ASSP_0_WS_ENABLE;
outb(t, card->iobase + ASSP_CONTROL_A);
outb(RUN_ASSP, card->iobase + ASSP_CONTROL_B);
return 0;
}
static void m3_enable_ints(struct m3_card *card)
{
unsigned long io = card->iobase;
outw(ASSP_INT_ENABLE, io + HOST_INT_CTRL);
outb(inb(io + ASSP_CONTROL_C) | ASSP_HOST_INT_ENABLE,
io + ASSP_CONTROL_C);
}
static struct file_operations m3_audio_fops = {
.owner = THIS_MODULE,
.llseek = no_llseek,
.read = m3_read,
.write = m3_write,
.poll = m3_poll,
.ioctl = m3_ioctl,
.mmap = m3_mmap,
.open = m3_open,
.release = m3_release,
};
#ifdef CONFIG_PM
static int alloc_dsp_suspendmem(struct m3_card *card)
{
int len = sizeof(u16) * (REV_B_CODE_MEMORY_LENGTH + REV_B_DATA_MEMORY_LENGTH);
if( (card->suspend_mem = vmalloc(len)) == NULL)
return 1;
return 0;
}
#else
#define alloc_dsp_suspendmem(args...) 0
#endif
/*
* great day! this function is ugly as hell.
*/
static int __devinit m3_probe(struct pci_dev *pci_dev, const struct pci_device_id *pci_id)
{
u32 n;
int i;
struct m3_card *card = NULL;
int ret = 0;
int card_type = pci_id->driver_data;
DPRINTK(DPMOD, "in maestro_install\n");
if (pci_enable_device(pci_dev))
return -EIO;
if (pci_set_dma_mask(pci_dev, M3_PCI_DMA_MASK)) {
printk(KERN_ERR PFX "architecture does not support limiting to 28bit PCI bus addresses\n");
return -ENODEV;
}
pci_set_master(pci_dev);
if( (card = kmalloc(sizeof(struct m3_card), GFP_KERNEL)) == NULL) {
printk(KERN_WARNING PFX "out of memory\n");
return -ENOMEM;
}
memset(card, 0, sizeof(struct m3_card));
card->pcidev = pci_dev;
init_waitqueue_head(&card->suspend_queue);
if ( ! request_region(pci_resource_start(pci_dev, 0),
pci_resource_len (pci_dev, 0), M3_MODULE_NAME)) {
printk(KERN_WARNING PFX "unable to reserve I/O space.\n");
ret = -EBUSY;
goto out;
}
card->iobase = pci_resource_start(pci_dev, 0);
if(alloc_dsp_suspendmem(card)) {
printk(KERN_WARNING PFX "couldn't alloc %d bytes for saving dsp state on suspend\n",
REV_B_CODE_MEMORY_LENGTH + REV_B_DATA_MEMORY_LENGTH);
ret = -ENOMEM;
goto out;
}
card->card_type = card_type;
card->irq = pci_dev->irq;
card->next = devs;
card->magic = M3_CARD_MAGIC;
spin_lock_init(&card->lock);
spin_lock_init(&card->ac97_lock);
devs = card;
for(i = 0; i<NR_DSPS; i++) {
struct m3_state *s = &(card->channels[i]);
s->dev_audio = -1;
}
printk(KERN_INFO PFX "Configuring ESS %s found at IO 0x%04X IRQ %d\n",
card_names[card->card_type], card->iobase, card->irq);
pci_read_config_dword(pci_dev, PCI_SUBSYSTEM_VENDOR_ID, &n);
printk(KERN_INFO PFX " subvendor id: 0x%08x\n",n);
maestro_config(card);
m3_assp_halt(card);
m3_codec_reset(card, 0);
if(m3_codec_install(card)) {
ret = -EIO;
goto out;
}
m3_assp_init(card);
m3_amp_enable(card, 1);
for(i=0;i<NR_DSPS;i++) {
struct m3_state *s=&card->channels[i];
s->index = i;
s->card = card;
init_waitqueue_head(&s->dma_adc.wait);
init_waitqueue_head(&s->dma_dac.wait);
init_waitqueue_head(&s->open_wait);
mutex_init(&(s->open_mutex));
s->magic = M3_STATE_MAGIC;
m3_assp_client_init(s);
if(s->dma_adc.ready || s->dma_dac.ready || s->dma_adc.rawbuf)
printk(KERN_WARNING PFX "initing a dsp device that is already in use?\n");
/* register devices */
if ((s->dev_audio = register_sound_dsp(&m3_audio_fops, -1)) < 0) {
break;
}
if( allocate_dmabuf(card->pcidev, &(s->dma_adc)) ||
allocate_dmabuf(card->pcidev, &(s->dma_dac))) {
ret = -ENOMEM;
goto out;
}
}
if(request_irq(card->irq, m3_interrupt, IRQF_SHARED, card_names[card->card_type], card)) {
printk(KERN_ERR PFX "unable to allocate irq %d,\n", card->irq);
ret = -EIO;
goto out;
}
pci_set_drvdata(pci_dev, card);
m3_enable_ints(card);
m3_assp_continue(card);
out:
if(ret) {
if(card->iobase)
release_region(pci_resource_start(pci_dev, 0), pci_resource_len(pci_dev, 0));
vfree(card->suspend_mem);
if(card->ac97) {
unregister_sound_mixer(card->ac97->dev_mixer);
kfree(card->ac97);
}
for(i=0;i<NR_DSPS;i++)
{
struct m3_state *s = &card->channels[i];
if(s->dev_audio != -1)
unregister_sound_dsp(s->dev_audio);
}
kfree(card);
}
return ret;
}
static void m3_remove(struct pci_dev *pci_dev)
{
struct m3_card *card;
unregister_reboot_notifier(&m3_reboot_nb);
while ((card = devs)) {
int i;
devs = devs->next;
free_irq(card->irq, card);
unregister_sound_mixer(card->ac97->dev_mixer);
kfree(card->ac97);
for(i=0;i<NR_DSPS;i++)
{
struct m3_state *s = &card->channels[i];
if(s->dev_audio < 0)
continue;
unregister_sound_dsp(s->dev_audio);
free_dmabuf(card->pcidev, &s->dma_adc);
free_dmabuf(card->pcidev, &s->dma_dac);
}
release_region(card->iobase, 256);
vfree(card->suspend_mem);
kfree(card);
}
devs = NULL;
}
/*
* some bioses like the sound chip to be powered down
* at shutdown. We're just calling _suspend to
* achieve that..
*/
static int m3_notifier(struct notifier_block *nb, unsigned long event, void *buf)
{
struct m3_card *card;
DPRINTK(DPMOD, "notifier suspending all cards\n");
for(card = devs; card != NULL; card = card->next) {
if(!card->in_suspend)
m3_suspend(card->pcidev, PMSG_SUSPEND); /* XXX legal? */
}
return 0;
}
static int m3_suspend(struct pci_dev *pci_dev, pm_message_t state)
{
unsigned long flags;
int i;
struct m3_card *card = pci_get_drvdata(pci_dev);
/* must be a better way.. */
spin_lock_irqsave(&card->lock, flags);
DPRINTK(DPMOD, "pm in dev %p\n",card);
for(i=0;i<NR_DSPS;i++) {
struct m3_state *s = &card->channels[i];
if(s->dev_audio == -1)
continue;
DPRINTK(DPMOD, "stop_adc/dac() device %d\n",i);
stop_dac(s);
stop_adc(s);
}
mdelay(10); /* give the assp a chance to idle.. */
m3_assp_halt(card);
if(card->suspend_mem) {
int index = 0;
DPRINTK(DPMOD, "saving code\n");
for(i = REV_B_CODE_MEMORY_BEGIN ; i <= REV_B_CODE_MEMORY_END; i++)
card->suspend_mem[index++] =
m3_assp_read(card, MEMTYPE_INTERNAL_CODE, i);
DPRINTK(DPMOD, "saving data\n");
for(i = REV_B_DATA_MEMORY_BEGIN ; i <= REV_B_DATA_MEMORY_END; i++)
card->suspend_mem[index++] =
m3_assp_read(card, MEMTYPE_INTERNAL_DATA, i);
}
DPRINTK(DPMOD, "powering down apci regs\n");
m3_outw(card, 0xffff, 0x54);
m3_outw(card, 0xffff, 0x56);
card->in_suspend = 1;
spin_unlock_irqrestore(&card->lock, flags);
return 0;
}
static int m3_resume(struct pci_dev *pci_dev)
{
unsigned long flags;
int index;
int i;
struct m3_card *card = pci_get_drvdata(pci_dev);
spin_lock_irqsave(&card->lock, flags);
card->in_suspend = 0;
DPRINTK(DPMOD, "resuming\n");
/* first lets just bring everything back. .*/
DPRINTK(DPMOD, "bringing power back on card 0x%p\n",card);
m3_outw(card, 0, 0x54);
m3_outw(card, 0, 0x56);
DPRINTK(DPMOD, "restoring pci configs and reseting codec\n");
maestro_config(card);
m3_assp_halt(card);
m3_codec_reset(card, 1);
DPRINTK(DPMOD, "restoring dsp code card\n");
index = 0;
for(i = REV_B_CODE_MEMORY_BEGIN ; i <= REV_B_CODE_MEMORY_END; i++)
m3_assp_write(card, MEMTYPE_INTERNAL_CODE, i,
card->suspend_mem[index++]);
for(i = REV_B_DATA_MEMORY_BEGIN ; i <= REV_B_DATA_MEMORY_END; i++)
m3_assp_write(card, MEMTYPE_INTERNAL_DATA, i,
card->suspend_mem[index++]);
/* tell the dma engine to restart itself */
m3_assp_write(card, MEMTYPE_INTERNAL_DATA,
KDATA_DMA_ACTIVE, 0);
DPRINTK(DPMOD, "resuming dsp\n");
m3_assp_continue(card);
DPRINTK(DPMOD, "enabling ints\n");
m3_enable_ints(card);
/* bring back the old school flavor */
for(i = 0; i < SOUND_MIXER_NRDEVICES ; i++) {
int state = card->ac97->mixer_state[i];
if (!supported_mixer(card->ac97, i))
continue;
card->ac97->write_mixer(card->ac97, i,
state & 0xff, (state >> 8) & 0xff);
}
m3_amp_enable(card, 1);
/*
* now we flip on the music
*/
for(i=0;i<NR_DSPS;i++) {
struct m3_state *s = &card->channels[i];
if(s->dev_audio == -1)
continue;
/*
* db->ready makes it so these guys can be
* called unconditionally..
*/
DPRINTK(DPMOD, "turning on dacs ind %d\n",i);
start_dac(s);
start_adc(s);
}
spin_unlock_irqrestore(&card->lock, flags);
/*
* all right, we think things are ready,
* wake up people who were using the device
* when we suspended
*/
wake_up(&card->suspend_queue);
return 0;
}
MODULE_AUTHOR("Zach Brown <zab@zabbo.net>");
MODULE_DESCRIPTION("ESS Maestro3/Allegro Driver");
MODULE_LICENSE("GPL");
#ifdef M_DEBUG
module_param(debug, int, 0);
#endif
module_param(external_amp, int, 0);
module_param(gpio_pin, int, 0);
static struct pci_driver m3_pci_driver = {