Subversion Repositories or1k_soc_on_altera_embedded_dev_kit

/*

 *  Patch routines for the emu8000 (AWE32/64)

 *

 *  Copyright (C) 1999 Steve Ratcliffe

 *  Copyright (C) 1999-2000 Takashi Iwai <tiwai@suse.de>

 *

 *   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., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA

 */

#include "emu8000_local.h"

#include <asm/uaccess.h>

#include <linux/moduleparam.h>

static int emu8000_reset_addr;

module_param(emu8000_reset_addr, int, 0444);

MODULE_PARM_DESC(emu8000_reset_addr, "reset write address at each time (makes slowdown)");

/*

 * Open up channels.

 */

static int

snd_emu8000_open_dma(struct snd_emu8000 *emu, int write)

{

        int i;

        /* reserve all 30 voices for loading */

        for (i = 0; i < EMU8000_DRAM_VOICES; i++) {

                snd_emux_lock_voice(emu->emu, i);

                snd_emu8000_dma_chan(emu, i, write);

        }

        /* assign voice 31 and 32 to ROM */

        EMU8000_VTFT_WRITE(emu, 30, 0);

        EMU8000_PSST_WRITE(emu, 30, 0x1d8);

        EMU8000_CSL_WRITE(emu, 30, 0x1e0);

        EMU8000_CCCA_WRITE(emu, 30, 0x1d8);

        EMU8000_VTFT_WRITE(emu, 31, 0);

        EMU8000_PSST_WRITE(emu, 31, 0x1d8);

        EMU8000_CSL_WRITE(emu, 31, 0x1e0);

        EMU8000_CCCA_WRITE(emu, 31, 0x1d8);

        return 0;

}

/*

 * Close all dram channels.

 */

static void

snd_emu8000_close_dma(struct snd_emu8000 *emu)

{

        int i;

        for (i = 0; i < EMU8000_DRAM_VOICES; i++) {

                snd_emu8000_dma_chan(emu, i, EMU8000_RAM_CLOSE);

                snd_emux_unlock_voice(emu->emu, i);

        }

}

/*

 */

#define BLANK_LOOP_START        4

#define BLANK_LOOP_END          8

#define BLANK_LOOP_SIZE         12

#define BLANK_HEAD_SIZE         48

/*

 * Read a word from userland, taking care of conversions from

 * 8bit samples etc.

 */

static unsigned short

read_word(const void __user *buf, int offset, int mode)

{

        unsigned short c;

        if (mode & SNDRV_SFNT_SAMPLE_8BITS) {

                unsigned char cc;

                get_user(cc, (unsigned char __user *)buf + offset);

                c = cc << 8; /* convert 8bit -> 16bit */

        } else {

#ifdef SNDRV_LITTLE_ENDIAN

                get_user(c, (unsigned short __user *)buf + offset);

#else

                unsigned short cc;

                get_user(cc, (unsigned short __user *)buf + offset);

                c = swab16(cc);

#endif

        }

        if (mode & SNDRV_SFNT_SAMPLE_UNSIGNED)

                c ^= 0x8000; /* unsigned -> signed */

        return c;

}

/*

 */

static void

snd_emu8000_write_wait(struct snd_emu8000 *emu)

{

        while ((EMU8000_SMALW_READ(emu) & 0x80000000) != 0) {

                schedule_timeout_interruptible(1);

                if (signal_pending(current))

                        break;

        }

}

/*

 * write sample word data

 *

 * You should not have to keep resetting the address each time

 * as the chip is supposed to step on the next address automatically.

 * It mostly does, but during writes of some samples at random it

 * completely loses words (every one in 16 roughly but with no

 * obvious pattern).

 *

 * This is therefore much slower than need be, but is at least

 * working.

 */

static inline void

write_word(struct snd_emu8000 *emu, int *offset, unsigned short data)

{

        if (emu8000_reset_addr) {

                if (emu8000_reset_addr > 1)

                        snd_emu8000_write_wait(emu);

                EMU8000_SMALW_WRITE(emu, *offset);

        }

        EMU8000_SMLD_WRITE(emu, data);

        *offset += 1;

}

/*

 * Write the sample to EMU800 memory.  This routine is invoked out of

 * the generic soundfont routines as a callback.

 */

int

snd_emu8000_sample_new(struct snd_emux *rec, struct snd_sf_sample *sp,

                       struct snd_util_memhdr *hdr,

                       const void __user *data, long count)

{

        int  i;

        int  rc;

        int  offset;

        int  truesize;

        int  dram_offset, dram_start;

        struct snd_emu8000 *emu;

        emu = rec->hw;

        snd_assert(sp != NULL, return -EINVAL);

        if (sp->v.size == 0)

                return 0;

        /* be sure loop points start < end */

        if (sp->v.loopstart > sp->v.loopend) {

                int tmp = sp->v.loopstart;

                sp->v.loopstart = sp->v.loopend;

                sp->v.loopend = tmp;

        }

        /* compute true data size to be loaded */

        truesize = sp->v.size;

        if (sp->v.mode_flags & (SNDRV_SFNT_SAMPLE_BIDIR_LOOP|SNDRV_SFNT_SAMPLE_REVERSE_LOOP))

                truesize += sp->v.loopend - sp->v.loopstart;

        if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_NO_BLANK)

                truesize += BLANK_LOOP_SIZE;

        sp->block = snd_util_mem_alloc(hdr, truesize * 2);

        if (sp->block == NULL) {

                /*snd_printd("EMU8000: out of memory\n");*/

                /* not ENOMEM (for compatibility) */

                return -ENOSPC;

        }

        if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_8BITS) {

                if (!access_ok(VERIFY_READ, data, sp->v.size))

                        return -EFAULT;

        } else {

                if (!access_ok(VERIFY_READ, data, sp->v.size * 2))

                        return -EFAULT;

        }

        /* recalculate address offset */

        sp->v.end -= sp->v.start;

        sp->v.loopstart -= sp->v.start;

        sp->v.loopend -= sp->v.start;

        sp->v.start = 0;

        /* dram position (in word) -- mem_offset is byte */

        dram_offset = EMU8000_DRAM_OFFSET + (sp->block->offset >> 1);

        dram_start = dram_offset;

        /* set the total size (store onto obsolete checksum value) */

        sp->v.truesize = truesize * 2; /* in bytes */

        snd_emux_terminate_all(emu->emu);

        if ((rc = snd_emu8000_open_dma(emu, EMU8000_RAM_WRITE)) != 0)

                return rc;

        /* Set the address to start writing at */

        snd_emu8000_write_wait(emu);

        EMU8000_SMALW_WRITE(emu, dram_offset);

        /*snd_emu8000_init_fm(emu);*/

#if 0

        /* first block - write 48 samples for silence */

        if (! sp->block->offset) {

                for (i = 0; i < BLANK_HEAD_SIZE; i++) {

                        write_word(emu, &dram_offset, 0);

                }

        }

#endif

        offset = 0;

        for (i = 0; i < sp->v.size; i++) {

                unsigned short s;

                s = read_word(data, offset, sp->v.mode_flags);

                offset++;

                write_word(emu, &dram_offset, s);

                /* we may take too long time in this loop.

                 * so give controls back to kernel if needed.

                 */

                cond_resched();

                if (i == sp->v.loopend &&

                    (sp->v.mode_flags & (SNDRV_SFNT_SAMPLE_BIDIR_LOOP|SNDRV_SFNT_SAMPLE_REVERSE_LOOP)))

                {

                        int looplen = sp->v.loopend - sp->v.loopstart;

                        int k;

                        /* copy reverse loop */

                        for (k = 1; k <= looplen; k++) {

                                s = read_word(data, offset - k, sp->v.mode_flags);

                                write_word(emu, &dram_offset, s);

                        }

                        if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_BIDIR_LOOP) {

                                sp->v.loopend += looplen;

                        } else {

                                sp->v.loopstart += looplen;

                                sp->v.loopend += looplen;

                        }

                        sp->v.end += looplen;

                }

        }

        /* if no blank loop is attached in the sample, add it */

        if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_NO_BLANK) {

                for (i = 0; i < BLANK_LOOP_SIZE; i++) {

                        write_word(emu, &dram_offset, 0);

                }

                if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_SINGLESHOT) {

                        sp->v.loopstart = sp->v.end + BLANK_LOOP_START;

                        sp->v.loopend = sp->v.end + BLANK_LOOP_END;

                }

        }

        /* add dram offset */

        sp->v.start += dram_start;

        sp->v.end += dram_start;

        sp->v.loopstart += dram_start;

        sp->v.loopend += dram_start;

        snd_emu8000_close_dma(emu);

        snd_emu8000_init_fm(emu);

        return 0;

}

/*

 * free a sample block

 */

int

snd_emu8000_sample_free(struct snd_emux *rec, struct snd_sf_sample *sp,

                        struct snd_util_memhdr *hdr)

{

        if (sp->block) {

                snd_util_mem_free(hdr, sp->block);

                sp->block = NULL;

        }

        return 0;

}

/*

 * sample_reset callback - terminate voices

 */

void

snd_emu8000_sample_reset(struct snd_emux *rec)

{

        snd_emux_terminate_all(rec);

}