1 files changed, 303 insertions, 0 deletions

diff --git a/sound/isa/sb/emu8000_patch.c b/sound/isa/sb/emu8000_patch.c
new file mode 100644
index 000000000000..4afc4a1bc140
--- /dev/null
+++ b/sound/isa/sb/emu8000_patch.c
@@ -0,0 +1,303 @@
+/*
+ *  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 = 0;
+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(emu8000_t *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(emu8000_t *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(emu8000_t *emu)
+{
+        while ((EMU8000_SMALW_READ(emu) & 0x80000000) != 0) {
+                set_current_state(TASK_INTERRUPTIBLE);
+                schedule_timeout(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.
+ */
+inline static void
+write_word(emu8000_t *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(snd_emux_t *rec, snd_sf_sample_t *sp,
+                       snd_util_memhdr_t *hdr, const void __user *data, long count)
+{
+        int  i;
+        int  rc;
+        int  offset;
+        int  truesize;
+        int  dram_offset, dram_start;
+        emu8000_t *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(snd_emux_t *rec, snd_sf_sample_t *sp, snd_util_memhdr_t *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(snd_emux_t *rec)
+{
+        snd_emux_terminate_all(rec);
+}