sound/isa/sb/emu8000_patch.c

   1 /*
   2  *  Patch routines for the emu8000 (AWE32/64)
   3  *
   4  *  Copyright (C) 1999 Steve Ratcliffe
   5  *  Copyright (C) 1999-2000 Takashi Iwai <tiwai@suse.de>
   6  *
   7  *   This program is free software; you can redistribute it and/or modify
   8  *   it under the terms of the GNU General Public License as published by
   9  *   the Free Software Foundation; either version 2 of the License, or
  10  *   (at your option) any later version.
  11  *
  12  *   This program is distributed in the hope that it will be useful,
  13  *   but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  *   GNU General Public License for more details.
  16  *
  17  *   You should have received a copy of the GNU General Public License
  18  *   along with this program; if not, write to the Free Software
  19  *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  20  */
  21
  22 #include "emu8000_local.h"
  23
  24 #include <linux/sched/signal.h>
  25 #include <linux/uaccess.h>
  26 #include <linux/moduleparam.h>
  27
  28 static int emu8000_reset_addr;
  29 module_param(emu8000_reset_addr, int, 0444);
  30 MODULE_PARM_DESC(emu8000_reset_addr, "reset write address at each time (makes slowdown)");
  31
  32
  33 /*
  34  * Open up channels.
  35  */
  36 static int
  37 snd_emu8000_open_dma(struct snd_emu8000 *emu, int write)
  38 {
  39         int i;
  40
  41         /* reserve all 30 voices for loading */
  42         for (i = 0; i < EMU8000_DRAM_VOICES; i++) {
  43                 snd_emux_lock_voice(emu->emu, i);
  44                 snd_emu8000_dma_chan(emu, i, write);
  45         }
  46
  47         /* assign voice 31 and 32 to ROM */
  48         EMU8000_VTFT_WRITE(emu, 30, 0);
  49         EMU8000_PSST_WRITE(emu, 30, 0x1d8);
  50         EMU8000_CSL_WRITE(emu, 30, 0x1e0);
  51         EMU8000_CCCA_WRITE(emu, 30, 0x1d8);
  52         EMU8000_VTFT_WRITE(emu, 31, 0);
  53         EMU8000_PSST_WRITE(emu, 31, 0x1d8);
  54         EMU8000_CSL_WRITE(emu, 31, 0x1e0);
  55         EMU8000_CCCA_WRITE(emu, 31, 0x1d8);
  56
  57         return 0;
  58 }
  59
  60 /*
  61  * Close all dram channels.
  62  */
  63 static void
  64 snd_emu8000_close_dma(struct snd_emu8000 *emu)
  65 {
  66         int i;
  67
  68         for (i = 0; i < EMU8000_DRAM_VOICES; i++) {
  69                 snd_emu8000_dma_chan(emu, i, EMU8000_RAM_CLOSE);
  70                 snd_emux_unlock_voice(emu->emu, i);
  71         }
  72 }
  73
  74 /*
  75  */
  76
  77 #define BLANK_LOOP_START        4
  78 #define BLANK_LOOP_END          8
  79 #define BLANK_LOOP_SIZE         12
  80 #define BLANK_HEAD_SIZE         48
  81
  82 /*
  83  * Read a word from userland, taking care of conversions from
  84  * 8bit samples etc.
  85  */
  86 static unsigned short
  87 read_word(const void __user *buf, int offset, int mode)
  88 {
  89         unsigned short c;
  90         if (mode & SNDRV_SFNT_SAMPLE_8BITS) {
  91                 unsigned char cc;
  92                 get_user(cc, (unsigned char __user *)buf + offset);
  93                 c = cc << 8; /* convert 8bit -> 16bit */
  94         } else {
  95 #ifdef SNDRV_LITTLE_ENDIAN
  96                 get_user(c, (unsigned short __user *)buf + offset);
  97 #else
  98                 unsigned short cc;
  99                 get_user(cc, (unsigned short __user *)buf + offset);
 100                 c = swab16(cc);
 101 #endif
 102         }
 103         if (mode & SNDRV_SFNT_SAMPLE_UNSIGNED)
 104                 c ^= 0x8000; /* unsigned -> signed */
 105         return c;
 106 }
 107
 108 /*
 109  */
 110 static void
 111 snd_emu8000_write_wait(struct snd_emu8000 *emu)
 112 {
 113         while ((EMU8000_SMALW_READ(emu) & 0x80000000) != 0) {
 114                 schedule_timeout_interruptible(1);
 115                 if (signal_pending(current))
 116                         break;
 117         }
 118 }
 119
 120 /*
 121  * write sample word data
 122  *
 123  * You should not have to keep resetting the address each time
 124  * as the chip is supposed to step on the next address automatically.
 125  * It mostly does, but during writes of some samples at random it
 126  * completely loses words (every one in 16 roughly but with no
 127  * obvious pattern).
 128  *
 129  * This is therefore much slower than need be, but is at least
 130  * working.
 131  */
 132 static inline void
 133 write_word(struct snd_emu8000 *emu, int *offset, unsigned short data)
 134 {
 135         if (emu8000_reset_addr) {
 136                 if (emu8000_reset_addr > 1)
 137                         snd_emu8000_write_wait(emu);
 138                 EMU8000_SMALW_WRITE(emu, *offset);
 139         }
 140         EMU8000_SMLD_WRITE(emu, data);
 141         *offset += 1;
 142 }
 143
 144 /*
 145  * Write the sample to EMU800 memory.  This routine is invoked out of
 146  * the generic soundfont routines as a callback.
 147  */
 148 int
 149 snd_emu8000_sample_new(struct snd_emux *rec, struct snd_sf_sample *sp,
 150                        struct snd_util_memhdr *hdr,
 151                        const void __user *data, long count)
 152 {
 153         int  i;
 154         int  rc;
 155         int  offset;
 156         int  truesize;
 157         int  dram_offset, dram_start;
 158         struct snd_emu8000 *emu;
 159
 160         emu = rec->hw;
 161         if (snd_BUG_ON(!sp))
 162                 return -EINVAL;
 163
 164         if (sp->v.size == 0)
 165                 return 0;
 166
 167         /* be sure loop points start < end */
 168         if (sp->v.loopstart > sp->v.loopend) {
 169                 int tmp = sp->v.loopstart;
 170                 sp->v.loopstart = sp->v.loopend;
 171                 sp->v.loopend = tmp;
 172         }
 173
 174         /* compute true data size to be loaded */
 175         truesize = sp->v.size;
 176         if (sp->v.mode_flags & (SNDRV_SFNT_SAMPLE_BIDIR_LOOP|SNDRV_SFNT_SAMPLE_REVERSE_LOOP))
 177                 truesize += sp->v.loopend - sp->v.loopstart;
 178         if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_NO_BLANK)
 179                 truesize += BLANK_LOOP_SIZE;
 180
 181         sp->block = snd_util_mem_alloc(hdr, truesize * 2);
 182         if (sp->block == NULL) {
 183                 /*snd_printd("EMU8000: out of memory\n");*/
 184                 /* not ENOMEM (for compatibility) */
 185                 return -ENOSPC;
 186         }
 187
 188         if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_8BITS) {
 189                 if (!access_ok(VERIFY_READ, data, sp->v.size))
 190                         return -EFAULT;
 191         } else {
 192                 if (!access_ok(VERIFY_READ, data, sp->v.size * 2))
 193                         return -EFAULT;
 194         }
 195
 196         /* recalculate address offset */
 197         sp->v.end -= sp->v.start;
 198         sp->v.loopstart -= sp->v.start;
 199         sp->v.loopend -= sp->v.start;
 200         sp->v.start = 0;
 201
 202         /* dram position (in word) -- mem_offset is byte */
 203         dram_offset = EMU8000_DRAM_OFFSET + (sp->block->offset >> 1);
 204         dram_start = dram_offset;
 205
 206         /* set the total size (store onto obsolete checksum value) */
 207         sp->v.truesize = truesize * 2; /* in bytes */
 208
 209         snd_emux_terminate_all(emu->emu);
 210         if ((rc = snd_emu8000_open_dma(emu, EMU8000_RAM_WRITE)) != 0)
 211                 return rc;
 212
 213         /* Set the address to start writing at */
 214         snd_emu8000_write_wait(emu);
 215         EMU8000_SMALW_WRITE(emu, dram_offset);
 216
 217         /*snd_emu8000_init_fm(emu);*/
 218
 219 #if 0
 220         /* first block - write 48 samples for silence */
 221         if (! sp->block->offset) {
 222                 for (i = 0; i < BLANK_HEAD_SIZE; i++) {
 223                         write_word(emu, &dram_offset, 0);
 224                 }
 225         }
 226 #endif
 227
 228         offset = 0;
 229         for (i = 0; i < sp->v.size; i++) {
 230                 unsigned short s;
 231
 232                 s = read_word(data, offset, sp->v.mode_flags);
 233                 offset++;
 234                 write_word(emu, &dram_offset, s);
 235
 236                 /* we may take too long time in this loop.
 237                  * so give controls back to kernel if needed.
 238                  */
 239                 cond_resched();
 240
 241                 if (i == sp->v.loopend &&
 242                     (sp->v.mode_flags & (SNDRV_SFNT_SAMPLE_BIDIR_LOOP|SNDRV_SFNT_SAMPLE_REVERSE_LOOP)))
 243                 {
 244                         int looplen = sp->v.loopend - sp->v.loopstart;
 245                         int k;
 246
 247                         /* copy reverse loop */
 248                         for (k = 1; k <= looplen; k++) {
 249                                 s = read_word(data, offset - k, sp->v.mode_flags);
 250                                 write_word(emu, &dram_offset, s);
 251                         }
 252                         if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_BIDIR_LOOP) {
 253                                 sp->v.loopend += looplen;
 254                         } else {
 255                                 sp->v.loopstart += looplen;
 256                                 sp->v.loopend += looplen;
 257                         }
 258                         sp->v.end += looplen;
 259                 }
 260         }
 261
 262         /* if no blank loop is attached in the sample, add it */
 263         if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_NO_BLANK) {
 264                 for (i = 0; i < BLANK_LOOP_SIZE; i++) {
 265                         write_word(emu, &dram_offset, 0);
 266                 }
 267                 if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_SINGLESHOT) {
 268                         sp->v.loopstart = sp->v.end + BLANK_LOOP_START;
 269                         sp->v.loopend = sp->v.end + BLANK_LOOP_END;
 270                 }
 271         }
 272
 273         /* add dram offset */
 274         sp->v.start += dram_start;
 275         sp->v.end += dram_start;
 276         sp->v.loopstart += dram_start;
 277         sp->v.loopend += dram_start;
 278
 279         snd_emu8000_close_dma(emu);
 280         snd_emu8000_init_fm(emu);
 281
 282         return 0;
 283 }
 284
 285 /*
 286  * free a sample block
 287  */
 288 int
 289 snd_emu8000_sample_free(struct snd_emux *rec, struct snd_sf_sample *sp,
 290                         struct snd_util_memhdr *hdr)
 291 {
 292         if (sp->block) {
 293                 snd_util_mem_free(hdr, sp->block);
 294                 sp->block = NULL;
 295         }
 296         return 0;
 297 }
 298
 299
 300 /*
 301  * sample_reset callback - terminate voices
 302  */
 303 void
 304 snd_emu8000_sample_reset(struct snd_emux *rec)
 305 {
 306         snd_emux_terminate_all(rec);
 307 }