Linux/Unix编程

开发平台：

Unix_Linux

awe_wave.c：源码内容

printk(KERN_ERR "AWE32: failed to alloc new listn");
return NULL;
}
patch_opened = TRUE;
return sftail;
}
return sftail;
}
/* close the patch; if no voice is loaded, remove the patch */
static int
awe_close_patch(awe_patch_info *patch, const char *addr, int count)
{
if (patch_opened && sftail) {
/* if no voice is loaded, release the current patch */
if (sftail->infos == NULL) {
awe_reset(0);
awe_remove_samples(current_sf_id - 1);
}
}
patch_opened = 0;
return 0;
}
/* remove the latest patch */
static int
awe_unload_patch(awe_patch_info *patch, const char *addr, int count)
{
if (current_sf_id > 0 && current_sf_id > locked_sf_id) {
awe_reset(0);
awe_remove_samples(current_sf_id - 1);
}
return 0;
}
/* allocate voice info list records */
static awe_voice_list *
alloc_new_info(void)
{
awe_voice_list *newlist;
newlist = (awe_voice_list *)kmalloc(sizeof(*newlist), GFP_KERNEL);
if (newlist == NULL) {
printk(KERN_ERR "AWE32: can't alloc info tablen");
return NULL;
}
return newlist;
}
/* allocate sample info list records */
static awe_sample_list *
alloc_new_sample(void)
{
awe_sample_list *newlist;
newlist = (awe_sample_list *)kmalloc(sizeof(*newlist), GFP_KERNEL);
if (newlist == NULL) {
printk(KERN_ERR "AWE32: can't alloc sample tablen");
return NULL;
}
return newlist;
}
/* load voice map */
static int
awe_load_map(awe_patch_info *patch, const char *addr, int count)
{
awe_voice_map map;
awe_voice_list *rec, *p;
sf_list *sf;
/* get the link info */
if (count < sizeof(map)) {
printk(KERN_WARNING "AWE32 Error: invalid patch info lengthn");
return -EINVAL;
}
if (copy_from_user(&map, addr + AWE_PATCH_INFO_SIZE, sizeof(map)))
return -EFAULT;
/* check if the identical mapping already exists */
p = awe_search_instr(map.map_bank, map.map_instr, map.map_key);
for (; p; p = p->next_instr) {
if (p->type == V_ST_MAPPED &&
p->v.start == map.src_instr &&
p->v.end == map.src_bank &&
p->v.fixkey == map.src_key)
return 0; /* already present! */
}
if ((sf = check_patch_opened(AWE_PAT_TYPE_MAP, NULL)) == NULL)
return -ENOMEM;
if ((rec = alloc_new_info()) == NULL)
return -ENOMEM;
rec->bank = map.map_bank;
rec->instr = map.map_instr;
rec->type = V_ST_MAPPED;
rec->disabled = FALSE;
awe_init_voice_info(&rec->v);
if (map.map_key >= 0) {
rec->v.low = map.map_key;
rec->v.high = map.map_key;
}
rec->v.start = map.src_instr;
rec->v.end = map.src_bank;
rec->v.fixkey = map.src_key;
add_sf_info(sf, rec);
add_info_list(rec);
return 0;
}
#if 0
/* probe preset in the current list -- nothing to be loaded */
static int
awe_probe_info(awe_patch_info *patch, const char *addr, int count)
{
#ifdef AWE_ALLOW_SAMPLE_SHARING
awe_voice_map map;
awe_voice_list *p;
if (! patch_opened)
return -EINVAL;
/* get the link info */
if (count < sizeof(map)) {
printk(KERN_WARNING "AWE32 Error: invalid patch info lengthn");
return -EINVAL;
}
if (copy_from_user(&map, addr + AWE_PATCH_INFO_SIZE, sizeof(map)))
return -EFAULT;
/* check if the identical mapping already exists */
if (sftail == NULL)
return -EINVAL;
p = awe_search_instr(map.src_bank, map.src_instr, map.src_key);
for (; p; p = p->next_instr) {
if (p->type == V_ST_NORMAL &&
is_identical_holder(p->holder, sftail) &&
p->v.low <= map.src_key &&
p->v.high >= map.src_key)
return 0; /* already present! */
}
#endif /* allow sharing */
return -EINVAL;
}
#endif
/* probe sample in the current list -- nothing to be loaded */
static int
awe_probe_data(awe_patch_info *patch, const char *addr, int count)
{
#ifdef AWE_ALLOW_SAMPLE_SHARING
if (! patch_opened)
return -EINVAL;
/* search the specified sample by optarg */
if (search_sample_index(sftail, patch->optarg) != NULL)
return 0;
#endif /* allow sharing */
return -EINVAL;
}
/* remove the present instrument layers */
static int
remove_info(sf_list *sf, int bank, int instr)
{
awe_voice_list *prev, *next, *p;
int removed = 0;
prev = NULL;
for (p = sf->infos; p; p = next) {
next = p->next;
if (p->type == V_ST_NORMAL &&
p->bank == bank && p->instr == instr) {
/* remove this layer */
if (prev)
prev->next = next;
else
sf->infos = next;
if (p == sf->last_infos)
sf->last_infos = prev;
sf->num_info--;
removed++;
kfree(p);
} else
prev = p;
}
if (removed)
rebuild_preset_list();
return removed;
}
/* load voice information data */
static int
awe_load_info(awe_patch_info *patch, const char *addr, int count)
{
int offset;
awe_voice_rec_hdr hdr;
int i;
int total_size;
sf_list *sf;
awe_voice_list *rec;
if (count < AWE_VOICE_REC_SIZE) {
printk(KERN_WARNING "AWE32 Error: invalid patch info lengthn");
return -EINVAL;
}
offset = AWE_PATCH_INFO_SIZE;
if (copy_from_user((char*)&hdr, addr + offset, AWE_VOICE_REC_SIZE))
return -EFAULT;
offset += AWE_VOICE_REC_SIZE;
if (hdr.nvoices <= 0 || hdr.nvoices >= 100) {
printk(KERN_WARNING "AWE32 Error: Invalid voice number %dn", hdr.nvoices);
return -EINVAL;
}
total_size = AWE_VOICE_REC_SIZE + AWE_VOICE_INFO_SIZE * hdr.nvoices;
if (count < total_size) {
printk(KERN_WARNING "AWE32 Error: patch length(%d) is smaller than nvoices(%d)n",
count, hdr.nvoices);
return -EINVAL;
}
if ((sf = check_patch_opened(AWE_PAT_TYPE_MISC, NULL)) == NULL)
return -ENOMEM;
switch (hdr.write_mode) {
case AWE_WR_EXCLUSIVE:
/* exclusive mode - if the instrument already exists,
return error */
for (rec = sf->infos; rec; rec = rec->next) {
if (rec->type == V_ST_NORMAL &&
rec->bank == hdr.bank &&
rec->instr == hdr.instr)
return -EINVAL;
}
break;
case AWE_WR_REPLACE:
/* replace mode - remove the instrument if it already exists */
remove_info(sf, hdr.bank, hdr.instr);
break;
}
/* append new layers */
for (i = 0; i < hdr.nvoices; i++) {
rec = alloc_new_info();
if (rec == NULL)
return -ENOMEM;
rec->bank = hdr.bank;
rec->instr = hdr.instr;
rec->type = V_ST_NORMAL;
rec->disabled = FALSE;
/* copy awe_voice_info parameters */
if (copy_from_user(&rec->v, addr + offset, AWE_VOICE_INFO_SIZE)) {
kfree(rec);
return -EFAULT;
}
offset += AWE_VOICE_INFO_SIZE;
#ifdef AWE_ALLOW_SAMPLE_SHARING
if (sf && sf->shared) {
if (info_duplicated(sf, rec)) {
kfree(rec);
continue;
}
}
#endif /* allow sharing */
if (rec->v.mode & AWE_MODE_INIT_PARM)
awe_init_voice_parm(&rec->v.parm);
add_sf_info(sf, rec);
awe_set_sample(rec);
add_info_list(rec);
}
return 0;
}
/* remove instrument layers */
static int
awe_remove_info(awe_patch_info *patch, const char *addr, int count)
{
unsigned char bank, instr;
sf_list *sf;
if (! patch_opened || (sf = sftail) == NULL) {
printk(KERN_WARNING "AWE32: remove_info: patch not openedn");
return -EINVAL;
}
bank = ((unsigned short)patch->optarg >> 8) & 0xff;
instr = (unsigned short)patch->optarg & 0xff;
if (! remove_info(sf, bank, instr))
return -EINVAL;
return 0;
}
/* load wave sample data */
static int
awe_load_data(awe_patch_info *patch, const char *addr, int count)
{
int offset, size;
int rc;
awe_sample_info tmprec;
awe_sample_list *rec;
sf_list *sf;
if ((sf = check_patch_opened(AWE_PAT_TYPE_MISC, NULL)) == NULL)
return -ENOMEM;
size = (count - AWE_SAMPLE_INFO_SIZE) / 2;
offset = AWE_PATCH_INFO_SIZE;
if (copy_from_user(&tmprec, addr + offset, AWE_SAMPLE_INFO_SIZE))
return -EFAULT;
offset += AWE_SAMPLE_INFO_SIZE;
if (size != tmprec.size) {
printk(KERN_WARNING "AWE32: load: sample size differed (%d != %d)n",
tmprec.size, size);
return -EINVAL;
}
if (search_sample_index(sf, tmprec.sample) != NULL) {
#ifdef AWE_ALLOW_SAMPLE_SHARING
/* if shared sample, skip this data */
if (sf->type & AWE_PAT_SHARED)
return 0;
#endif /* allow sharing */
DEBUG(1,printk("AWE32: sample data %d already presentn", tmprec.sample));
return -EINVAL;
}
if ((rec = alloc_new_sample()) == NULL)
return -ENOMEM;
memcpy(&rec->v, &tmprec, sizeof(tmprec));
if (rec->v.size > 0) {
if ((rc = awe_write_wave_data(addr, offset, rec, -1)) < 0) {
kfree(rec);
return rc;
}
sf->mem_ptr += rc;
}
add_sf_sample(sf, rec);
return 0;
}
/* replace wave sample data */
static int
awe_replace_data(awe_patch_info *patch, const char *addr, int count)
{
int offset;
int size;
int rc;
int channels;
awe_sample_info cursmp;
int save_mem_ptr;
sf_list *sf;
awe_sample_list *rec;
if (! patch_opened || (sf = sftail) == NULL) {
printk(KERN_WARNING "AWE32: replace: patch not openedn");
return -EINVAL;
}
size = (count - AWE_SAMPLE_INFO_SIZE) / 2;
offset = AWE_PATCH_INFO_SIZE;
if (copy_from_user(&cursmp, addr + offset, AWE_SAMPLE_INFO_SIZE))
return -EFAULT;
offset += AWE_SAMPLE_INFO_SIZE;
if (cursmp.size == 0 || size != cursmp.size) {
printk(KERN_WARNING "AWE32: replace: invalid sample size (%d!=%d)n",
cursmp.size, size);
return -EINVAL;
}
channels = patch->optarg;
if (channels <= 0 || channels > AWE_NORMAL_VOICES) {
printk(KERN_WARNING "AWE32: replace: invalid channels %dn", channels);
return -EINVAL;
}
for (rec = sf->samples; rec; rec = rec->next) {
if (rec->v.sample == cursmp.sample)
break;
}
if (rec == NULL) {
printk(KERN_WARNING "AWE32: replace: cannot find existing sample data %dn",
cursmp.sample);
return -EINVAL;
}
if (rec->v.size != cursmp.size) {
printk(KERN_WARNING "AWE32: replace: exiting size differed (%d!=%d)n",
rec->v.size, cursmp.size);
return -EINVAL;
}
save_mem_ptr = awe_free_mem_ptr();
sftail->mem_ptr = rec->v.start - awe_mem_start;
memcpy(&rec->v, &cursmp, sizeof(cursmp));
rec->v.sf_id = current_sf_id;
if ((rc = awe_write_wave_data(addr, offset, rec, channels)) < 0)
return rc;
sftail->mem_ptr = save_mem_ptr;
return 0;
}
/*----------------------------------------------------------------*/
static const char *readbuf_addr;
static int readbuf_offs;
static int readbuf_flags;
/* initialize read buffer */
static int
readbuf_init(const char *addr, int offset, awe_sample_info *sp)
{
readbuf_addr = addr;
readbuf_offs = offset;
readbuf_flags = sp->mode_flags;
return 0;
}
/* read directly from user buffer */
static unsigned short
readbuf_word(int pos)
{
unsigned short c;
/* read from user buffer */
if (readbuf_flags & AWE_SAMPLE_8BITS) {
unsigned char cc;
get_user(cc, (unsigned char*)(readbuf_addr + readbuf_offs + pos));
c = (unsigned short)cc << 8; /* convert 8bit -> 16bit */
} else {
get_user(c, (unsigned short*)(readbuf_addr + readbuf_offs + pos * 2));
}
if (readbuf_flags & AWE_SAMPLE_UNSIGNED)
c ^= 0x8000; /* unsigned -> signed */
return c;
}
#define readbuf_word_cache readbuf_word
#define readbuf_end() /**/
/*----------------------------------------------------------------*/
#define BLANK_LOOP_START 8
#define BLANK_LOOP_END 40
#define BLANK_LOOP_SIZE 48
/* loading onto memory - return the actual written size */
static int
awe_write_wave_data(const char *addr, int offset, awe_sample_list *list, int channels)
{
int i, truesize, dram_offset;
awe_sample_info *sp = &list->v;
int rc;
/* be sure loop points start < end */
if (sp->loopstart > sp->loopend) {
int tmp = sp->loopstart;
sp->loopstart = sp->loopend;
sp->loopend = tmp;
}
/* compute true data size to be loaded */
truesize = sp->size;
if (sp->mode_flags & (AWE_SAMPLE_BIDIR_LOOP|AWE_SAMPLE_REVERSE_LOOP))
truesize += sp->loopend - sp->loopstart;
if (sp->mode_flags & AWE_SAMPLE_NO_BLANK)
truesize += BLANK_LOOP_SIZE;
if (awe_free_mem_ptr() + truesize >= memsize/2) {
DEBUG(-1,printk("AWE32 Error: Sample memory fulln"));
return -ENOSPC;
}
/* recalculate address offset */
sp->end -= sp->start;
sp->loopstart -= sp->start;
sp->loopend -= sp->start;
dram_offset = awe_free_mem_ptr() + awe_mem_start;
sp->start = dram_offset;
sp->end += dram_offset;
sp->loopstart += dram_offset;
sp->loopend += dram_offset;
/* set the total size (store onto obsolete checksum value) */
if (sp->size == 0)
sp->checksum = 0;
else
sp->checksum = truesize;
if ((rc = awe_open_dram_for_write(dram_offset, channels)) != 0)
return rc;
if (readbuf_init(addr, offset, sp) < 0)
return -ENOSPC;
for (i = 0; i < sp->size; i++) {
unsigned short c;
c = readbuf_word(i);
awe_write_dram(c);
if (i == sp->loopend &&
(sp->mode_flags & (AWE_SAMPLE_BIDIR_LOOP|AWE_SAMPLE_REVERSE_LOOP))) {
int looplen = sp->loopend - sp->loopstart;
/* copy reverse loop */
int k;
for (k = 1; k <= looplen; k++) {
c = readbuf_word_cache(i - k);
awe_write_dram(c);
}
if (sp->mode_flags & AWE_SAMPLE_BIDIR_LOOP) {
sp->end += looplen;
} else {
sp->start += looplen;
sp->end += looplen;
}
}
}
readbuf_end();
/* if no blank loop is attached in the sample, add it */
if (sp->mode_flags & AWE_SAMPLE_NO_BLANK) {
for (i = 0; i < BLANK_LOOP_SIZE; i++)
awe_write_dram(0);
if (sp->mode_flags & AWE_SAMPLE_SINGLESHOT) {
sp->loopstart = sp->end + BLANK_LOOP_START;
sp->loopend = sp->end + BLANK_LOOP_END;
}
}
awe_close_dram();
/* initialize FM */
awe_init_fm();
return truesize;
}
/*----------------------------------------------------------------*/
#ifdef AWE_HAS_GUS_COMPATIBILITY
/* calculate GUS envelope time:
* is this correct? i have no idea..
*/
static int
calc_gus_envelope_time(int rate, int start, int end)
{
int r, p, t;
r = (3 - ((rate >> 6) & 3)) * 3;
p = rate & 0x3f;
t = end - start;
if (t < 0) t = -t;
if (13 > r)
t = t << (13 - r);
else
t = t >> (r - 13);
return (t * 10) / (p * 441);
}
#define calc_gus_sustain(val) (0x7f - vol_table[(val)/2])
#define calc_gus_attenuation(val) vol_table[(val)/2]
/* load GUS patch */
static int
awe_load_guspatch(const char *addr, int offs, int size, int pmgr_flag)
{
struct patch_info patch;
awe_voice_info *rec;
awe_sample_info *smp;
awe_voice_list *vrec;
awe_sample_list *smprec;
int sizeof_patch;
int note, rc;
sf_list *sf;
sizeof_patch = (int)((long)&patch.data[0] - (long)&patch); /* header size */
if (size < sizeof_patch) {
printk(KERN_WARNING "AWE32 Error: Patch header too shortn");
return -EINVAL;
}
if (copy_from_user(((char*)&patch) + offs, addr + offs, sizeof_patch - offs))
return -EFAULT;
size -= sizeof_patch;
if (size < patch.len) {
printk(KERN_WARNING "AWE32 Error: Patch record too short (%d<%d)n",
size, patch.len);
return -EINVAL;
}
if ((sf = check_patch_opened(AWE_PAT_TYPE_GUS, NULL)) == NULL)
return -ENOMEM;
if ((smprec = alloc_new_sample()) == NULL)
return -ENOMEM;
if ((vrec = alloc_new_info()) == NULL) {
kfree(smprec);
return -ENOMEM;
}
smp = &smprec->v;
smp->sample = sf->num_sample;
smp->start = 0;
smp->end = patch.len;
smp->loopstart = patch.loop_start;
smp->loopend = patch.loop_end;
smp->size = patch.len;
/* set up mode flags */
smp->mode_flags = 0;
if (!(patch.mode & WAVE_16_BITS))
smp->mode_flags |= AWE_SAMPLE_8BITS;
if (patch.mode & WAVE_UNSIGNED)
smp->mode_flags |= AWE_SAMPLE_UNSIGNED;
smp->mode_flags |= AWE_SAMPLE_NO_BLANK;
if (!(patch.mode & (WAVE_LOOPING|WAVE_BIDIR_LOOP|WAVE_LOOP_BACK)))
smp->mode_flags |= AWE_SAMPLE_SINGLESHOT;
if (patch.mode & WAVE_BIDIR_LOOP)
smp->mode_flags |= AWE_SAMPLE_BIDIR_LOOP;
if (patch.mode & WAVE_LOOP_BACK)
smp->mode_flags |= AWE_SAMPLE_REVERSE_LOOP;
DEBUG(0,printk("AWE32: [sample %d mode %x]n", patch.instr_no, smp->mode_flags));
if (patch.mode & WAVE_16_BITS) {
/* convert to word offsets */
smp->size /= 2;
smp->end /= 2;
smp->loopstart /= 2;
smp->loopend /= 2;
}
smp->checksum_flag = 0;
smp->checksum = 0;
if ((rc = awe_write_wave_data(addr, sizeof_patch, smprec, -1)) < 0)
return rc;
sf->mem_ptr += rc;
add_sf_sample(sf, smprec);
/* set up voice info */
rec = &vrec->v;
awe_init_voice_info(rec);
rec->sample = sf->num_info; /* the last sample */
rec->rate_offset = calc_rate_offset(patch.base_freq);
note = freq_to_note(patch.base_note);
rec->root = note / 100;
rec->tune = -(note % 100);
rec->low = freq_to_note(patch.low_note) / 100;
rec->high = freq_to_note(patch.high_note) / 100;
DEBUG(1,printk("AWE32: [gus base offset=%d, note=%d, range=%d-%d(%d-%d)]n",
rec->rate_offset, note,
rec->low, rec->high,
patch.low_note, patch.high_note));
/* panning position; -128 - 127 => 0-127 */
rec->pan = (patch.panning + 128) / 2;
/* detuning is ignored */
/* 6points volume envelope */
if (patch.mode & WAVE_ENVELOPES) {
int attack, hold, decay, release;
attack = calc_gus_envelope_time
(patch.env_rate[0], 0, patch.env_offset[0]);
hold = calc_gus_envelope_time
(patch.env_rate[1], patch.env_offset[0],
patch.env_offset[1]);
decay = calc_gus_envelope_time
(patch.env_rate[2], patch.env_offset[1],
patch.env_offset[2]);
release = calc_gus_envelope_time
(patch.env_rate[3], patch.env_offset[1],
patch.env_offset[4]);
release += calc_gus_envelope_time
(patch.env_rate[4], patch.env_offset[3],
patch.env_offset[4]);
release += calc_gus_envelope_time
(patch.env_rate[5], patch.env_offset[4],
patch.env_offset[5]);
rec->parm.volatkhld = (calc_parm_hold(hold) << 8) |
calc_parm_attack(attack);
rec->parm.voldcysus = (calc_gus_sustain(patch.env_offset[2]) << 8) |
calc_parm_decay(decay);
rec->parm.volrelease = 0x8000 | calc_parm_decay(release);
DEBUG(2,printk("AWE32: [gusenv atk=%d, hld=%d, dcy=%d, rel=%d]n", attack, hold, decay, release));
rec->attenuation = calc_gus_attenuation(patch.env_offset[0]);
}
/* tremolo effect */
if (patch.mode & WAVE_TREMOLO) {
int rate = (patch.tremolo_rate * 1000 / 38) / 42;
rec->parm.tremfrq = ((patch.tremolo_depth / 2) << 8) | rate;
DEBUG(2,printk("AWE32: [gusenv tremolo rate=%d, dep=%d, tremfrq=%x]n",
patch.tremolo_rate, patch.tremolo_depth,
rec->parm.tremfrq));
}
/* vibrato effect */
if (patch.mode & WAVE_VIBRATO) {
int rate = (patch.vibrato_rate * 1000 / 38) / 42;
rec->parm.fm2frq2 = ((patch.vibrato_depth / 6) << 8) | rate;
DEBUG(2,printk("AWE32: [gusenv vibrato rate=%d, dep=%d, tremfrq=%x]n",
patch.tremolo_rate, patch.tremolo_depth,
rec->parm.tremfrq));
}
/* scale_freq, scale_factor, volume, and fractions not implemented */
/* append to the tail of the list */
vrec->bank = ctrls[AWE_MD_GUS_BANK];
vrec->instr = patch.instr_no;
vrec->disabled = FALSE;
vrec->type = V_ST_NORMAL;
add_sf_info(sf, vrec);
add_info_list(vrec);
/* set the voice index */
awe_set_sample(vrec);
return 0;
}
#endif /* AWE_HAS_GUS_COMPATIBILITY */
/*
* sample and voice list handlers
*/
/* append this to the current sf list */
static void add_sf_info(sf_list *sf, awe_voice_list *rec)
{
if (sf == NULL)
return;
rec->holder = sf;
rec->v.sf_id = sf->sf_id;
if (sf->last_infos)
sf->last_infos->next = rec;
else
sf->infos = rec;
sf->last_infos = rec;
rec->next = NULL;
sf->num_info++;
}
/* prepend this sample to sf list */
static void add_sf_sample(sf_list *sf, awe_sample_list *rec)
{
if (sf == NULL)
return;
rec->holder = sf;
rec->v.sf_id = sf->sf_id;
if (sf->last_samples)
sf->last_samples->next = rec;
else
sf->samples = rec;
sf->last_samples = rec;
rec->next = NULL;
sf->num_sample++;
}
/* purge the old records which don't belong with the same file id */
static void purge_old_list(awe_voice_list *rec, awe_voice_list *next)
{
rec->next_instr = next;
if (rec->bank == AWE_DRUM_BANK) {
/* remove samples with the same note range */
awe_voice_list *cur, *prev = rec;
int low = rec->v.low;
int high = rec->v.high;
for (cur = next; cur; cur = cur->next_instr) {
if (cur->v.low == low &&
cur->v.high == high &&
! is_identical_holder(cur->holder, rec->holder))
prev->next_instr = cur->next_instr;
else
prev = cur;
}
} else {
if (! is_identical_holder(next->holder, rec->holder))
/* remove all samples */
rec->next_instr = NULL;
}
}
/* prepend to top of the preset table */
static void add_info_list(awe_voice_list *rec)
{
awe_voice_list *prev, *cur;
int key;
if (rec->disabled)
return;
key = awe_search_key(rec->bank, rec->instr, rec->v.low);
prev = NULL;
for (cur = preset_table[key]; cur; cur = cur->next_bank) {
/* search the first record with the same bank number */
if (cur->instr == rec->instr && cur->bank == rec->bank) {
/* replace the list with the new record */
rec->next_bank = cur->next_bank;
if (prev)
prev->next_bank = rec;
else
preset_table[key] = rec;
purge_old_list(rec, cur);
return;
}
prev = cur;
}
/* this is the first bank record.. just add this */
rec->next_instr = NULL;
rec->next_bank = preset_table[key];
preset_table[key] = rec;
}
/* remove samples later than the specified sf_id */
static void
awe_remove_samples(int sf_id)
{
sf_list *p, *prev;
if (sf_id <= 0) {
awe_reset_samples();
return;
}
/* already removed? */
if (current_sf_id <= sf_id)
return;
for (p = sftail; p; p = prev) {
if (p->sf_id <= sf_id)
break;
prev = p->prev;
awe_free_sf(p);
}
sftail = p;
if (sftail) {
sf_id = sftail->sf_id;
sftail->next = NULL;
} else {
sf_id = 0;
sfhead = NULL;
}
current_sf_id = sf_id;
if (locked_sf_id > sf_id)
locked_sf_id = sf_id;
rebuild_preset_list();
}
/* rebuild preset search list */
static void rebuild_preset_list(void)
{
sf_list *p;
awe_voice_list *rec;
memset(preset_table, 0, sizeof(preset_table));
for (p = sfhead; p; p = p->next) {
for (rec = p->infos; rec; rec = rec->next)
add_info_list(rec);
}
}
/* compare the given sf_id pair */
static int is_identical_holder(sf_list *sf1, sf_list *sf2)
{
if (sf1 == NULL || sf2 == NULL)
return FALSE;
if (sf1 == sf2)
return TRUE;
#ifdef AWE_ALLOW_SAMPLE_SHARING
{
/* compare with the sharing id */
sf_list *p;
int counter = 0;
if (sf1->sf_id < sf2->sf_id) { /* make sure id1 > id2 */
sf_list *tmp; tmp = sf1; sf1 = sf2; sf2 = tmp;
}
for (p = sf1->shared; p; p = p->shared) {
if (counter++ > current_sf_id)
break; /* strange sharing loop.. quit */
if (p == sf2)
return TRUE;
}
}
#endif /* allow sharing */
return FALSE;
}
/* search the sample index matching with the given sample id */
static awe_sample_list *
search_sample_index(sf_list *sf, int sample)
{
awe_sample_list *p;
#ifdef AWE_ALLOW_SAMPLE_SHARING
int counter = 0;
while (sf) {
for (p = sf->samples; p; p = p->next) {
if (p->v.sample == sample)
return p;
}
sf = sf->shared;
if (counter++ > current_sf_id)
break; /* strange sharing loop.. quit */
}
#else
if (sf) {
for (p = sf->samples; p; p = p->next) {
if (p->v.sample == sample)
return p;
}
}
#endif
return NULL;
}
/* search the specified sample */
/* non-zero = found */
static short
awe_set_sample(awe_voice_list *rec)
{
awe_sample_list *smp;
awe_voice_info *vp = &rec->v;
vp->index = 0;
if ((smp = search_sample_index(rec->holder, vp->sample)) == NULL)
return 0;
/* set the actual sample offsets */
vp->start += smp->v.start;
vp->end += smp->v.end;
vp->loopstart += smp->v.loopstart;
vp->loopend += smp->v.loopend;
/* copy mode flags */
vp->mode = smp->v.mode_flags;
/* set flag */
vp->index = 1;
return 1;
}
/*
* voice allocation
*/
/* look for all voices associated with the specified note & velocity */
static int
awe_search_multi_voices(awe_voice_list *rec, int note, int velocity,
awe_voice_info **vlist)
{
int nvoices;
nvoices = 0;
for (; rec; rec = rec->next_instr) {
if (note >= rec->v.low &&
note <= rec->v.high &&
velocity >= rec->v.vellow &&
velocity <= rec->v.velhigh) {
if (rec->type == V_ST_MAPPED) {
/* mapper */
vlist[0] = &rec->v;
return -1;
}
vlist[nvoices++] = &rec->v;
if (nvoices >= AWE_MAX_VOICES)
break;
}
}
return nvoices;
}
/* store the voice list from the specified note and velocity.
if the preset is mapped, seek for the destination preset, and rewrite
the note number if necessary.
*/
static int
really_alloc_voices(int bank, int instr, int *note, int velocity, awe_voice_info **vlist)
{
int nvoices;
awe_voice_list *vrec;
int level = 0;
for (;;) {
vrec = awe_search_instr(bank, instr, *note);
nvoices = awe_search_multi_voices(vrec, *note, velocity, vlist);
if (nvoices == 0) {
if (bank == AWE_DRUM_BANK)
/* search default drumset */
vrec = awe_search_instr(bank, ctrls[AWE_MD_DEF_DRUM], *note);
else
/* search default preset */
vrec = awe_search_instr(ctrls[AWE_MD_DEF_BANK], instr, *note);
nvoices = awe_search_multi_voices(vrec, *note, velocity, vlist);
}
if (nvoices == 0) {
if (bank == AWE_DRUM_BANK && ctrls[AWE_MD_DEF_DRUM] != 0)
/* search default drumset */
vrec = awe_search_instr(bank, 0, *note);
else if (bank != AWE_DRUM_BANK && ctrls[AWE_MD_DEF_BANK] != 0)
/* search default preset */
vrec = awe_search_instr(0, instr, *note);
nvoices = awe_search_multi_voices(vrec, *note, velocity, vlist);
}
if (nvoices < 0) { /* mapping */
int key = vlist[0]->fixkey;
instr = vlist[0]->start;
bank = vlist[0]->end;
if (level++ > 5) {
printk(KERN_ERR "AWE32: too deep mapping leveln");
return 0;
}
if (key >= 0)
*note = key;
} else
break;
}
return nvoices;
}
/* allocate voices corresponding note and velocity; supports multiple insts. */
static void
awe_alloc_multi_voices(int ch, int note, int velocity, int key)
{
int i, v, nvoices, bank;
awe_voice_info *vlist[AWE_MAX_VOICES];
if (MULTI_LAYER_MODE() && IS_DRUM_CHANNEL(ch))
bank = AWE_DRUM_BANK; /* always search drumset */
else
bank = channels[ch].bank;
/* check the possible voices; note may be changeable if mapped */
nvoices = really_alloc_voices(bank, channels[ch].instr,
&note, velocity, vlist);
/* set the voices */
current_alloc_time++;
for (i = 0; i < nvoices; i++) {
v = awe_clear_voice();
voices[v].key = key;
voices[v].ch = ch;
voices[v].note = note;
voices[v].velocity = velocity;
voices[v].time = current_alloc_time;
voices[v].cinfo = &channels[ch];
voices[v].sample = vlist[i];
voices[v].state = AWE_ST_MARK;
voices[v].layer = nvoices - i - 1; /* in reverse order */
}
/* clear the mark in allocated voices */
for (i = 0; i < awe_max_voices; i++) {
if (voices[i].state == AWE_ST_MARK)
voices[i].state = AWE_ST_OFF;
}
}
/* search an empty voice.
if no empty voice is found, at least terminate a voice
*/
static int
awe_clear_voice(void)
{
enum {
OFF=0, RELEASED, SUSTAINED, PLAYING, END
};
struct voice_candidate_t {
int best;
int time;
int vtarget;
} candidate[END];
int i, type, vtarget;
vtarget = 0xffff;
for (type = OFF; type < END; type++) {
candidate[type].best = -1;
candidate[type].time = current_alloc_time + 1;
candidate[type].vtarget = vtarget;
}
for (i = 0; i < awe_max_voices; i++) {
if (voices[i].state & AWE_ST_OFF)
type = OFF;
else if (voices[i].state & AWE_ST_RELEASED)
type = RELEASED;
else if (voices[i].state & AWE_ST_SUSTAINED)
type = SUSTAINED;
else if (voices[i].state & ~AWE_ST_MARK)
type = PLAYING;
else
continue;
#ifdef AWE_CHECK_VTARGET
/* get current volume */
vtarget = (awe_peek_dw(AWE_VTFT(i)) >> 16) & 0xffff;
#endif
if (candidate[type].best < 0 ||
vtarget < candidate[type].vtarget ||
(vtarget == candidate[type].vtarget &&
voices[i].time < candidate[type].time)) {
candidate[type].best = i;
candidate[type].time = voices[i].time;
candidate[type].vtarget = vtarget;
}
}
for (type = OFF; type < END; type++) {
if ((i = candidate[type].best) >= 0) {
if (voices[i].state != AWE_ST_OFF)
awe_terminate(i);
awe_voice_init(i, TRUE);
return i;
}
}
return 0;
}
/* search sample for the specified note & velocity and set it on the voice;
* note that voice is the voice index (not channel index)
*/
static void
awe_alloc_one_voice(int voice, int note, int velocity)
{
int ch, nvoices, bank;
awe_voice_info *vlist[AWE_MAX_VOICES];
ch = voices[voice].ch;
if (MULTI_LAYER_MODE() && IS_DRUM_CHANNEL(voice))
bank = AWE_DRUM_BANK; /* always search drumset */
else
bank = voices[voice].cinfo->bank;
nvoices = really_alloc_voices(bank, voices[voice].cinfo->instr,
&note, velocity, vlist);
if (nvoices > 0) {
voices[voice].time = ++current_alloc_time;
voices[voice].sample = vlist[0]; /* use the first one */
voices[voice].layer = 0;
voices[voice].note = note;
voices[voice].velocity = velocity;
}
}
/*
* sequencer2 functions
*/
/* search an empty voice; used by sequencer2 */
static int
awe_alloc(int dev, int chn, int note, struct voice_alloc_info *alloc)
{
playing_mode = AWE_PLAY_MULTI2;
awe_info.nr_voices = AWE_MAX_CHANNELS;
return awe_clear_voice();
}
/* set up voice; used by sequencer2 */
static void
awe_setup_voice(int dev, int voice, int chn)
{
struct channel_info *info;
if (synth_devs[dev] == NULL ||
(info = &synth_devs[dev]->chn_info[chn]) == NULL)
return;
if (voice < 0 || voice >= awe_max_voices)
return;
DEBUG(2,printk("AWE32: [setup(%d) ch=%d]n", voice, chn));
channels[chn].expression_vol = info->controllers[CTL_EXPRESSION];
channels[chn].main_vol = info->controllers[CTL_MAIN_VOLUME];
channels[chn].panning =
info->controllers[CTL_PAN] * 2 - 128; /* signed 8bit */
channels[chn].bender = info->bender_value; /* zero center */
channels[chn].bank = info->controllers[CTL_BANK_SELECT];
channels[chn].sustained = info->controllers[CTL_SUSTAIN];
if (info->controllers[CTL_EXT_EFF_DEPTH]) {
FX_SET(&channels[chn].fx, AWE_FX_REVERB,
info->controllers[CTL_EXT_EFF_DEPTH] * 2);
}
if (info->controllers[CTL_CHORUS_DEPTH]) {
FX_SET(&channels[chn].fx, AWE_FX_CHORUS,
info->controllers[CTL_CHORUS_DEPTH] * 2);
}
awe_set_instr(dev, chn, info->pgm_num);
}
#ifdef CONFIG_AWE32_MIXER
/*
* AWE32 mixer device control
*/
static int awe_mixer_ioctl(int dev, unsigned int cmd, caddr_t arg);
static int my_mixerdev = -1;
static struct mixer_operations awe_mixer_operations = {
owner: THIS_MODULE,
id: "AWE",
name: "AWE32 Equalizer",
ioctl: awe_mixer_ioctl,
};
static void __init attach_mixer(void)
{
if ((my_mixerdev = sound_alloc_mixerdev()) >= 0) {
mixer_devs[my_mixerdev] = &awe_mixer_operations;
}
}
static void __exit unload_mixer(void)
{
if (my_mixerdev >= 0)
sound_unload_mixerdev(my_mixerdev);
}
static int
awe_mixer_ioctl(int dev, unsigned int cmd, caddr_t arg)
{
int i, level, value;
if (((cmd >> 8) & 0xff) != 'M')
return -EINVAL;
level = *(int*)arg;
level = ((level & 0xff) + (level >> 8)) / 2;
DEBUG(0,printk("AWEMix: cmd=%x val=%dn", cmd & 0xff, level));
if (_SIOC_DIR(cmd) & _SIOC_WRITE) {
switch (cmd & 0xff) {
case SOUND_MIXER_BASS:
value = level * 12 / 100;
if (value >= 12)
value = 11;
ctrls[AWE_MD_BASS_LEVEL] = value;
awe_update_equalizer();
break;
case SOUND_MIXER_TREBLE:
value = level * 12 / 100;
if (value >= 12)
value = 11;
ctrls[AWE_MD_TREBLE_LEVEL] = value;
awe_update_equalizer();
break;
case SOUND_MIXER_VOLUME:
level = level * 127 / 100;
if (level >= 128) level = 127;
atten_relative = FALSE;
atten_offset = vol_table[level];
awe_update_volume();
break;
}
}
switch (cmd & 0xff) {
case SOUND_MIXER_BASS:
level = ctrls[AWE_MD_BASS_LEVEL] * 100 / 24;
level = (level << 8) | level;
break;
case SOUND_MIXER_TREBLE:
level = ctrls[AWE_MD_TREBLE_LEVEL] * 100 / 24;
level = (level << 8) | level;
break;
case SOUND_MIXER_VOLUME:
value = atten_offset;
if (atten_relative)
value += ctrls[AWE_MD_ZERO_ATTEN];
for (i = 127; i > 0; i--) {
if (value <= vol_table[i])
break;
}
level = i * 100 / 127;
level = (level << 8) | level;
break;
case SOUND_MIXER_DEVMASK:
level = SOUND_MASK_BASS|SOUND_MASK_TREBLE|SOUND_MASK_VOLUME;
break;
default:
level = 0;
break;
}
return *(int*)arg = level;
}
#endif /* CONFIG_AWE32_MIXER */
/*
* initialization of Emu8000
*/
/* intiailize audio channels */
static void
awe_init_audio(void)
{
int ch;
/* turn off envelope engines */
for (ch = 0; ch < AWE_MAX_VOICES; ch++) {
awe_poke(AWE_DCYSUSV(ch), 0x80);
}
/* reset all other parameters to zero */
for (ch = 0; ch < AWE_MAX_VOICES; ch++) {
awe_poke(AWE_ENVVOL(ch), 0);
awe_poke(AWE_ENVVAL(ch), 0);
awe_poke(AWE_DCYSUS(ch), 0);
awe_poke(AWE_ATKHLDV(ch), 0);
awe_poke(AWE_LFO1VAL(ch), 0);
awe_poke(AWE_ATKHLD(ch), 0);
awe_poke(AWE_LFO2VAL(ch), 0);
awe_poke(AWE_IP(ch), 0);
awe_poke(AWE_IFATN(ch), 0);
awe_poke(AWE_PEFE(ch), 0);
awe_poke(AWE_FMMOD(ch), 0);
awe_poke(AWE_TREMFRQ(ch), 0);
awe_poke(AWE_FM2FRQ2(ch), 0);
awe_poke_dw(AWE_PTRX(ch), 0);
awe_poke_dw(AWE_VTFT(ch), 0);
awe_poke_dw(AWE_PSST(ch), 0);
awe_poke_dw(AWE_CSL(ch), 0);
awe_poke_dw(AWE_CCCA(ch), 0);
}
for (ch = 0; ch < AWE_MAX_VOICES; ch++) {
awe_poke_dw(AWE_CPF(ch), 0);
awe_poke_dw(AWE_CVCF(ch), 0);
}
}
/* initialize DMA address */
static void
awe_init_dma(void)
{
awe_poke_dw(AWE_SMALR, 0);
awe_poke_dw(AWE_SMARR, 0);
awe_poke_dw(AWE_SMALW, 0);
awe_poke_dw(AWE_SMARW, 0);
}
/* initialization arrays; from ADIP */
static unsigned short init1[128] = {
0x03ff, 0x0030, 0x07ff, 0x0130, 0x0bff, 0x0230, 0x0fff, 0x0330,
0x13ff, 0x0430, 0x17ff, 0x0530, 0x1bff, 0x0630, 0x1fff, 0x0730,
0x23ff, 0x0830, 0x27ff, 0x0930, 0x2bff, 0x0a30, 0x2fff, 0x0b30,
0x33ff, 0x0c30, 0x37ff, 0x0d30, 0x3bff, 0x0e30, 0x3fff, 0x0f30,
0x43ff, 0x0030, 0x47ff, 0x0130, 0x4bff, 0x0230, 0x4fff, 0x0330,
0x53ff, 0x0430, 0x57ff, 0x0530, 0x5bff, 0x0630, 0x5fff, 0x0730,
0x63ff, 0x0830, 0x67ff, 0x0930, 0x6bff, 0x0a30, 0x6fff, 0x0b30,
0x73ff, 0x0c30, 0x77ff, 0x0d30, 0x7bff, 0x0e30, 0x7fff, 0x0f30,
0x83ff, 0x0030, 0x87ff, 0x0130, 0x8bff, 0x0230, 0x8fff, 0x0330,
0x93ff, 0x0430, 0x97ff, 0x0530, 0x9bff, 0x0630, 0x9fff, 0x0730,
0xa3ff, 0x0830, 0xa7ff, 0x0930, 0xabff, 0x0a30, 0xafff, 0x0b30,
0xb3ff, 0x0c30, 0xb7ff, 0x0d30, 0xbbff, 0x0e30, 0xbfff, 0x0f30,
0xc3ff, 0x0030, 0xc7ff, 0x0130, 0xcbff, 0x0230, 0xcfff, 0x0330,
0xd3ff, 0x0430, 0xd7ff, 0x0530, 0xdbff, 0x0630, 0xdfff, 0x0730,
0xe3ff, 0x0830, 0xe7ff, 0x0930, 0xebff, 0x0a30, 0xefff, 0x0b30,
0xf3ff, 0x0c30, 0xf7ff, 0x0d30, 0xfbff, 0x0e30, 0xffff, 0x0f30,
};
static unsigned short init2[128] = {
0x03ff, 0x8030, 0x07ff, 0x8130, 0x0bff, 0x8230, 0x0fff, 0x8330,
0x13ff, 0x8430, 0x17ff, 0x8530, 0x1bff, 0x8630, 0x1fff, 0x8730,
0x23ff, 0x8830, 0x27ff, 0x8930, 0x2bff, 0x8a30, 0x2fff, 0x8b30,
0x33ff, 0x8c30, 0x37ff, 0x8d30, 0x3bff, 0x8e30, 0x3fff, 0x8f30,
0x43ff, 0x8030, 0x47ff, 0x8130, 0x4bff, 0x8230, 0x4fff, 0x8330,
0x53ff, 0x8430, 0x57ff, 0x8530, 0x5bff, 0x8630, 0x5fff, 0x8730,
0x63ff, 0x8830, 0x67ff, 0x8930, 0x6bff, 0x8a30, 0x6fff, 0x8b30,
0x73ff, 0x8c30, 0x77ff, 0x8d30, 0x7bff, 0x8e30, 0x7fff, 0x8f30,
0x83ff, 0x8030, 0x87ff, 0x8130, 0x8bff, 0x8230, 0x8fff, 0x8330,
0x93ff, 0x8430, 0x97ff, 0x8530, 0x9bff, 0x8630, 0x9fff, 0x8730,
0xa3ff, 0x8830, 0xa7ff, 0x8930, 0xabff, 0x8a30, 0xafff, 0x8b30,
0xb3ff, 0x8c30, 0xb7ff, 0x8d30, 0xbbff, 0x8e30, 0xbfff, 0x8f30,
0xc3ff, 0x8030, 0xc7ff, 0x8130, 0xcbff, 0x8230, 0xcfff, 0x8330,
0xd3ff, 0x8430, 0xd7ff, 0x8530, 0xdbff, 0x8630, 0xdfff, 0x8730,
0xe3ff, 0x8830, 0xe7ff, 0x8930, 0xebff, 0x8a30, 0xefff, 0x8b30,
0xf3ff, 0x8c30, 0xf7ff, 0x8d30, 0xfbff, 0x8e30, 0xffff, 0x8f30,
};
static unsigned short init3[128] = {
0x0C10, 0x8470, 0x14FE, 0xB488, 0x167F, 0xA470, 0x18E7, 0x84B5,
0x1B6E, 0x842A, 0x1F1D, 0x852A, 0x0DA3, 0x8F7C, 0x167E, 0xF254,
0x0000, 0x842A, 0x0001, 0x852A, 0x18E6, 0x8BAA, 0x1B6D, 0xF234,
0x229F, 0x8429, 0x2746, 0x8529, 0x1F1C, 0x86E7, 0x229E, 0xF224,
0x0DA4, 0x8429, 0x2C29, 0x8529, 0x2745, 0x87F6, 0x2C28, 0xF254,
0x383B, 0x8428, 0x320F, 0x8528, 0x320E, 0x8F02, 0x1341, 0xF264,
0x3EB6, 0x8428, 0x3EB9, 0x8528, 0x383A, 0x8FA9, 0x3EB5, 0xF294,
0x3EB7, 0x8474, 0x3EBA, 0x8575, 0x3EB8, 0xC4C3, 0x3EBB, 0xC5C3,
0x0000, 0xA404, 0x0001, 0xA504, 0x141F, 0x8671, 0x14FD, 0x8287,
0x3EBC, 0xE610, 0x3EC8, 0x8C7B, 0x031A, 0x87E6, 0x3EC8, 0x86F7,
0x3EC0, 0x821E, 0x3EBE, 0xD208, 0x3EBD, 0x821F, 0x3ECA, 0x8386,
0x3EC1, 0x8C03, 0x3EC9, 0x831E, 0x3ECA, 0x8C4C, 0x3EBF, 0x8C55,
0x3EC9, 0xC208, 0x3EC4, 0xBC84, 0x3EC8, 0x8EAD, 0x3EC8, 0xD308,
0x3EC2, 0x8F7E, 0x3ECB, 0x8219, 0x3ECB, 0xD26E, 0x3EC5, 0x831F,
0x3EC6, 0xC308, 0x3EC3, 0xB2FF, 0x3EC9, 0x8265, 0x3EC9, 0x8319,
0x1342, 0xD36E, 0x3EC7, 0xB3FF, 0x0000, 0x8365, 0x1420, 0x9570,
};
static unsigned short init4[128] = {
0x0C10, 0x8470, 0x14FE, 0xB488, 0x167F, 0xA470, 0x18E7, 0x84B5,
0x1B6E, 0x842A, 0x1F1D, 0x852A, 0x0DA3, 0x0F7C, 0x167E, 0x7254,
0x0000, 0x842A, 0x0001, 0x852A, 0x18E6, 0x0BAA, 0x1B6D, 0x7234,
0x229F, 0x8429, 0x2746, 0x8529, 0x1F1C, 0x06E7, 0x229E, 0x7224,
0x0DA4, 0x8429, 0x2C29, 0x8529, 0x2745, 0x07F6, 0x2C28, 0x7254,
0x383B, 0x8428, 0x320F, 0x8528, 0x320E, 0x0F02, 0x1341, 0x7264,
0x3EB6, 0x8428, 0x3EB9, 0x8528, 0x383A, 0x0FA9, 0x3EB5, 0x7294,
0x3EB7, 0x8474, 0x3EBA, 0x8575, 0x3EB8, 0x44C3, 0x3EBB, 0x45C3,
0x0000, 0xA404, 0x0001, 0xA504, 0x141F, 0x0671, 0x14FD, 0x0287,
0x3EBC, 0xE610, 0x3EC8, 0x0C7B, 0x031A, 0x07E6, 0x3EC8, 0x86F7,
0x3EC0, 0x821E, 0x3EBE, 0xD208, 0x3EBD, 0x021F, 0x3ECA, 0x0386,
0x3EC1, 0x0C03, 0x3EC9, 0x031E, 0x3ECA, 0x8C4C, 0x3EBF, 0x0C55,
0x3EC9, 0xC208, 0x3EC4, 0xBC84, 0x3EC8, 0x0EAD, 0x3EC8, 0xD308,
0x3EC2, 0x8F7E, 0x3ECB, 0x0219, 0x3ECB, 0xD26E, 0x3EC5, 0x031F,
0x3EC6, 0xC308, 0x3EC3, 0x32FF, 0x3EC9, 0x0265, 0x3EC9, 0x8319,
0x1342, 0xD36E, 0x3EC7, 0x33FF, 0x0000, 0x8365, 0x1420, 0x9570,
};
/* send initialization arrays to start up */
static void
awe_init_array(void)
{
awe_send_array(init1);
awe_wait(1024);
awe_send_array(init2);
awe_send_array(init3);
awe_poke_dw(AWE_HWCF4, 0);
awe_poke_dw(AWE_HWCF5, 0x83);
awe_poke_dw(AWE_HWCF6, 0x8000);
awe_send_array(init4);
}
/* send an initialization array */
static void
awe_send_array(unsigned short *data)
{
int i;
unsigned short *p;
p = data;
for (i = 0; i < AWE_MAX_VOICES; i++, p++)
awe_poke(AWE_INIT1(i), *p);
for (i = 0; i < AWE_MAX_VOICES; i++, p++)
awe_poke(AWE_INIT2(i), *p);
for (i = 0; i < AWE_MAX_VOICES; i++, p++)
awe_poke(AWE_INIT3(i), *p);
for (i = 0; i < AWE_MAX_VOICES; i++, p++)
awe_poke(AWE_INIT4(i), *p);
}
/*
* set up awe32 channels to some known state.
*/
/* set the envelope & LFO parameters to the default values; see ADIP */
static void
awe_tweak_voice(int i)
{
/* set all mod/vol envelope shape to minimum */
awe_poke(AWE_ENVVOL(i), 0x8000);
awe_poke(AWE_ENVVAL(i), 0x8000);
awe_poke(AWE_DCYSUS(i), 0x7F7F);
awe_poke(AWE_ATKHLDV(i), 0x7F7F);
awe_poke(AWE_ATKHLD(i), 0x7F7F);
awe_poke(AWE_PEFE(i), 0); /* mod envelope height to zero */
awe_poke(AWE_LFO1VAL(i), 0x8000); /* no delay for LFO1 */
awe_poke(AWE_LFO2VAL(i), 0x8000);
awe_poke(AWE_IP(i), 0xE000); /* no pitch shift */
awe_poke(AWE_IFATN(i), 0xFF00); /* volume to minimum */
awe_poke(AWE_FMMOD(i), 0);
awe_poke(AWE_TREMFRQ(i), 0);
awe_poke(AWE_FM2FRQ2(i), 0);
}
static void
awe_tweak(void)
{
int i;
/* reset all channels */
for (i = 0; i < awe_max_voices; i++)
awe_tweak_voice(i);
}
/*
* initializes the FM section of AWE32;
* see Vince Vu's unofficial AWE32 programming guide
*/
static void
awe_init_fm(void)
{
#ifndef AWE_ALWAYS_INIT_FM
/* if no extended memory is on board.. */
if (memsize <= 0)
return;
#endif
DEBUG(3,printk("AWE32: initializing FMn"));
/* Initialize the last two channels for DRAM refresh and producing
the reverb and chorus effects for Yamaha OPL-3 synthesizer */
/* 31: FM left channel, 0xffffe0-0xffffe8 */
awe_poke(AWE_DCYSUSV(30), 0x80);
awe_poke_dw(AWE_PSST(30), 0xFFFFFFE0); /* full left */
awe_poke_dw(AWE_CSL(30), 0x00FFFFE8 |
(DEF_FM_CHORUS_DEPTH << 24));
awe_poke_dw(AWE_PTRX(30), (DEF_FM_REVERB_DEPTH << 8));
awe_poke_dw(AWE_CPF(30), 0);
awe_poke_dw(AWE_CCCA(30), 0x00FFFFE3);
/* 32: FM right channel, 0xfffff0-0xfffff8 */
awe_poke(AWE_DCYSUSV(31), 0x80);
awe_poke_dw(AWE_PSST(31), 0x00FFFFF0); /* full right */
awe_poke_dw(AWE_CSL(31), 0x00FFFFF8 |
(DEF_FM_CHORUS_DEPTH << 24));
awe_poke_dw(AWE_PTRX(31), (DEF_FM_REVERB_DEPTH << 8));
awe_poke_dw(AWE_CPF(31), 0x8000);
awe_poke_dw(AWE_CCCA(31), 0x00FFFFF3);
/* skew volume & cutoff */
awe_poke_dw(AWE_VTFT(30), 0x8000FFFF);
awe_poke_dw(AWE_VTFT(31), 0x8000FFFF);
voices[30].state = AWE_ST_FM;
voices[31].state = AWE_ST_FM;
/* change maximum channels to 30 */
awe_max_voices = AWE_NORMAL_VOICES;
if (playing_mode == AWE_PLAY_DIRECT)
awe_info.nr_voices = awe_max_voices;
else
awe_info.nr_voices = AWE_MAX_CHANNELS;
voice_alloc->max_voice = awe_max_voices;
}
/*
* AWE32 DRAM access routines
*/
/* open DRAM write accessing mode */
static int
awe_open_dram_for_write(int offset, int channels)
{
int vidx[AWE_NORMAL_VOICES];
int i;
if (channels < 0 || channels >= AWE_NORMAL_VOICES) {
channels = AWE_NORMAL_VOICES;
for (i = 0; i < AWE_NORMAL_VOICES; i++)
vidx[i] = i;
} else {
for (i = 0; i < channels; i++) {
vidx[i] = awe_clear_voice();
voices[vidx[i]].state = AWE_ST_MARK;
}
}
/* use all channels for DMA transfer */
for (i = 0; i < channels; i++) {
if (vidx[i] < 0) continue;
awe_poke(AWE_DCYSUSV(vidx[i]), 0x80);
awe_poke_dw(AWE_VTFT(vidx[i]), 0);
awe_poke_dw(AWE_CVCF(vidx[i]), 0);
awe_poke_dw(AWE_PTRX(vidx[i]), 0x40000000);
awe_poke_dw(AWE_CPF(vidx[i]), 0x40000000);
awe_poke_dw(AWE_PSST(vidx[i]), 0);
awe_poke_dw(AWE_CSL(vidx[i]), 0);
awe_poke_dw(AWE_CCCA(vidx[i]), 0x06000000);
voices[vidx[i]].state = AWE_ST_DRAM;
}
/* point channels 31 & 32 to ROM samples for DRAM refresh */
awe_poke_dw(AWE_VTFT(30), 0);
awe_poke_dw(AWE_PSST(30), 0x1d8);
awe_poke_dw(AWE_CSL(30), 0x1e0);
awe_poke_dw(AWE_CCCA(30), 0x1d8);
awe_poke_dw(AWE_VTFT(31), 0);
awe_poke_dw(AWE_PSST(31), 0x1d8);
awe_poke_dw(AWE_CSL(31), 0x1e0);
awe_poke_dw(AWE_CCCA(31), 0x1d8);
voices[30].state = AWE_ST_FM;
voices[31].state = AWE_ST_FM;
/* if full bit is on, not ready to write on */
if (awe_peek_dw(AWE_SMALW) & 0x80000000) {
for (i = 0; i < channels; i++) {
awe_poke_dw(AWE_CCCA(vidx[i]), 0);
voices[vidx[i]].state = AWE_ST_OFF;
}
printk("awe: not ready to write..n");
return -EPERM;
}
/* set address to write */
awe_poke_dw(AWE_SMALW, offset);
return 0;
}
/* open DRAM for RAM size detection */
static void
awe_open_dram_for_check(void)
{
int i;
for (i = 0; i < AWE_NORMAL_VOICES; i++) {
awe_poke(AWE_DCYSUSV(i), 0x80);
awe_poke_dw(AWE_VTFT(i), 0);
awe_poke_dw(AWE_CVCF(i), 0);
awe_poke_dw(AWE_PTRX(i), 0x40000000);
awe_poke_dw(AWE_CPF(i), 0x40000000);
awe_poke_dw(AWE_PSST(i), 0);
awe_poke_dw(AWE_CSL(i), 0);
if (i & 1) /* DMA write */
awe_poke_dw(AWE_CCCA(i), 0x06000000);
else /* DMA read */
awe_poke_dw(AWE_CCCA(i), 0x04000000);
voices[i].state = AWE_ST_DRAM;
}
}
/* close dram access */
static void
awe_close_dram(void)
{
int i;
/* wait until FULL bit in SMAxW register be false */
for (i = 0; i < 10000; i++) {
if (!(awe_peek_dw(AWE_SMALW) & 0x80000000))
break;
awe_wait(10);
}
for (i = 0; i < AWE_NORMAL_VOICES; i++) {
if (voices[i].state == AWE_ST_DRAM) {
awe_poke_dw(AWE_CCCA(i), 0);
awe_poke(AWE_DCYSUSV(i), 0x807F);
voices[i].state = AWE_ST_OFF;
}
}
}
/*
* detect presence of AWE32 and check memory size
*/
/* detect emu8000 chip on the specified address; from VV's guide */
static int __init
awe_detect_base(int addr)
{
setup_ports(addr, 0, 0);
if ((awe_peek(AWE_U1) & 0x000F) != 0x000C)
return 0;
if ((awe_peek(AWE_HWCF1) & 0x007E) != 0x0058)
return 0;
if ((awe_peek(AWE_HWCF2) & 0x0003) != 0x0003)
return 0;
DEBUG(0,printk("AWE32 found at %xn", addr));
return 1;
}
#if defined CONFIG_ISAPNP || defined CONFIG_ISAPNP_MODULE
static struct isapnp_device_id isapnp_awe_list[] __initdata = {
{ ISAPNP_ANY_ID, ISAPNP_ANY_ID,
ISAPNP_VENDOR('C','T','L'), ISAPNP_FUNCTION(0x0021),
(unsigned long)"AWE32 WaveTable" },
{ ISAPNP_ANY_ID, ISAPNP_ANY_ID,
ISAPNP_VENDOR('C','T','L'), ISAPNP_FUNCTION(0x0022),
(unsigned long)"AWE64 WaveTable" },
{ ISAPNP_ANY_ID, ISAPNP_ANY_ID,
ISAPNP_VENDOR('C','T','L'), ISAPNP_FUNCTION(0x0023),
(unsigned long)"AWE64 Gold WaveTable" },
{0}
};
MODULE_DEVICE_TABLE(isapnp, isapnp_awe_list);
static struct pci_dev *idev = NULL;
static int __init awe_probe_isapnp(int *port)
{
int i;
for (i = 0; isapnp_awe_list[i].vendor != 0; i++) {
while ((idev = isapnp_find_dev(NULL,
isapnp_awe_list[i].vendor,
isapnp_awe_list[i].function,
idev))) {
if (idev->prepare(idev) < 0)
continue;
if (idev->activate(idev) < 0 ||
!idev->resource[0].start) {
idev->deactivate(idev);
idev->deactivate(idev);
continue;
}
*port = idev->resource[0].start;
break;
}
if (!idev)
continue;
printk(KERN_INFO "ISAPnP reports %s at i/o %#xn",
(char*)isapnp_awe_list[i].driver_data, *port);
return 0;
}
return -ENODEV;
}
static void __exit awe_deactivate_isapnp(void)
{
#if 1
if (idev) {
idev->deactivate(idev);
idev = NULL;
}
#endif
}
#endif
static int __init
awe_detect(void)
{
int base;
#if defined CONFIG_ISAPNP || defined CONFIG_ISAPNP_MODULE
if (isapnp) {
if (awe_probe_isapnp(&io) < 0) {
printk(KERN_ERR "AWE32: No ISAPnP cards foundn");
if (isapnp != -1)
return 0;
} else {
setup_ports(io, 0, 0);
return 1;
}
}
#endif /* isapnp */
if (io) /* use default i/o port value */
setup_ports(io, 0, 0);
else { /* probe it */
for (base = 0x620; base <= 0x680; base += 0x20)
if (awe_detect_base(base))
return 1;
DEBUG(0,printk("AWE32 not foundn"));
return 0;
}
return 1;
}
/*
* check dram size on AWE board
*/
/* any three numbers you like */
#define UNIQUE_ID1 0x1234
#define UNIQUE_ID2 0x4321
#define UNIQUE_ID3 0xABCD
static void __init
awe_check_dram(void)
{
if (awe_present) /* already initialized */
return;
if (memsize >= 0) { /* given by config file or module option */
memsize *= 1024; /* convert to Kbytes */
return;
}
awe_open_dram_for_check();
memsize = 0;
/* set up unique two id numbers */
awe_poke_dw(AWE_SMALW, AWE_DRAM_OFFSET);
awe_poke(AWE_SMLD, UNIQUE_ID1);
awe_poke(AWE_SMLD, UNIQUE_ID2);
while (memsize < AWE_MAX_DRAM_SIZE) {
awe_wait(5);
/* read a data on the DRAM start address */
awe_poke_dw(AWE_SMALR, AWE_DRAM_OFFSET);
awe_peek(AWE_SMLD); /* discard stale data */
if (awe_peek(AWE_SMLD) != UNIQUE_ID1)
break;
if (awe_peek(AWE_SMLD) != UNIQUE_ID2)
break;
memsize += 512; /* increment 512kbytes */
/* Write a unique data on the test address;
* if the address is out of range, the data is written on
* 0x200000(=AWE_DRAM_OFFSET). Then the two id words are
* broken by this data.
*/
awe_poke_dw(AWE_SMALW, AWE_DRAM_OFFSET + memsize*512L);
awe_poke(AWE_SMLD, UNIQUE_ID3);
awe_wait(5);
/* read a data on the just written DRAM address */
awe_poke_dw(AWE_SMALR, AWE_DRAM_OFFSET + memsize*512L);
awe_peek(AWE_SMLD); /* discard stale data */
if (awe_peek(AWE_SMLD) != UNIQUE_ID3)
break;
}
awe_close_dram();
DEBUG(0,printk("AWE32: %d Kbytes memory detectedn", memsize));
/* convert to Kbytes */
memsize *= 1024;
}
/*----------------------------------------------------------------*/
/*
* chorus and reverb controls; from VV's guide
*/
/* 5 parameters for each chorus mode; 3 x 16bit, 2 x 32bit */
static char chorus_defined[AWE_CHORUS_NUMBERS];
static awe_chorus_fx_rec chorus_parm[AWE_CHORUS_NUMBERS] = {
{0xE600, 0x03F6, 0xBC2C ,0x00000000, 0x0000006D}, /* chorus 1 */
{0xE608, 0x031A, 0xBC6E, 0x00000000, 0x0000017C}, /* chorus 2 */
{0xE610, 0x031A, 0xBC84, 0x00000000, 0x00000083}, /* chorus 3 */
{0xE620, 0x0269, 0xBC6E, 0x00000000, 0x0000017C}, /* chorus 4 */
{0xE680, 0x04D3, 0xBCA6, 0x00000000, 0x0000005B}, /* feedback */
{0xE6E0, 0x044E, 0xBC37, 0x00000000, 0x00000026}, /* flanger */
{0xE600, 0x0B06, 0xBC00, 0x0000E000, 0x00000083}, /* short delay */
{0xE6C0, 0x0B06, 0xBC00, 0x0000E000, 0x00000083}, /* short delay + feedback */
};
static int
awe_load_chorus_fx(awe_patch_info *patch, const char *addr, int count)
{
if (patch->optarg < AWE_CHORUS_PREDEFINED || patch->optarg >= AWE_CHORUS_NUMBERS) {
printk(KERN_WARNING "AWE32 Error: invalid chorus mode %d for uploadingn", patch->optarg);
return -EINVAL;
}
if (count < sizeof(awe_chorus_fx_rec)) {
printk(KERN_WARNING "AWE32 Error: too short chorus fx parametersn");
return -EINVAL;
}
if (copy_from_user(&chorus_parm[patch->optarg], addr + AWE_PATCH_INFO_SIZE,
sizeof(awe_chorus_fx_rec)))
return -EFAULT;
chorus_defined[patch->optarg] = TRUE;
return 0;
}
static void
awe_set_chorus_mode(int effect)
{
if (effect < 0 || effect >= AWE_CHORUS_NUMBERS ||
(effect >= AWE_CHORUS_PREDEFINED && !chorus_defined[effect]))
return;
awe_poke(AWE_INIT3(9), chorus_parm[effect].feedback);
awe_poke(AWE_INIT3(12), chorus_parm[effect].delay_offset);
awe_poke(AWE_INIT4(3), chorus_parm[effect].lfo_depth);
awe_poke_dw(AWE_HWCF4, chorus_parm[effect].delay);
awe_poke_dw(AWE_HWCF5, chorus_parm[effect].lfo_freq);
awe_poke_dw(AWE_HWCF6, 0x8000);
awe_poke_dw(AWE_HWCF7, 0x0000);
}
static void
awe_update_chorus_mode(void)
{
awe_set_chorus_mode(ctrls[AWE_MD_CHORUS_MODE]);
}
/*----------------------------------------------------------------*/
/* reverb mode settings; write the following 28 data of 16 bit length
* on the corresponding ports in the reverb_cmds array
*/
static char reverb_defined[AWE_CHORUS_NUMBERS];
static awe_reverb_fx_rec reverb_parm[AWE_REVERB_NUMBERS] = {
{{ /* room 1 */
0xB488, 0xA450, 0x9550, 0x84B5, 0x383A, 0x3EB5, 0x72F4,
0x72A4, 0x7254, 0x7204, 0x7204, 0x7204, 0x4416, 0x4516,
0xA490, 0xA590, 0x842A, 0x852A, 0x842A, 0x852A, 0x8429,
0x8529, 0x8429, 0x8529, 0x8428, 0x8528, 0x8428, 0x8528,
}},
{{ /* room 2 */
0xB488, 0xA458, 0x9558, 0x84B5, 0x383A, 0x3EB5, 0x7284,
0x7254, 0x7224, 0x7224, 0x7254, 0x7284, 0x4448, 0x4548,
0xA440, 0xA540, 0x842A, 0x852A, 0x842A, 0x852A, 0x8429,
0x8529, 0x8429, 0x8529, 0x8428, 0x8528, 0x8428, 0x8528,
}},
{{ /* room 3 */
0xB488, 0xA460, 0x9560, 0x84B5, 0x383A, 0x3EB5, 0x7284,
0x7254, 0x7224, 0x7224, 0x7254, 0x7284, 0x4416, 0x4516,
0xA490, 0xA590, 0x842C, 0x852C, 0x842C, 0x852C, 0x842B,
0x852B, 0x842B, 0x852B, 0x842A, 0x852A, 0x842A, 0x852A,
}},
{{ /* hall 1 */
0xB488, 0xA470, 0x9570, 0x84B5, 0x383A, 0x3EB5, 0x7284,
0x7254, 0x7224, 0x7224, 0x7254, 0x7284, 0x4448, 0x4548,
0xA440, 0xA540, 0x842B, 0x852B, 0x842B, 0x852B, 0x842A,
0x852A, 0x842A, 0x852A, 0x8429, 0x8529, 0x8429, 0x8529,
}},
{{ /* hall 2 */
0xB488, 0xA470, 0x9570, 0x84B5, 0x383A, 0x3EB5, 0x7254,
0x7234, 0x7224, 0x7254, 0x7264, 0x7294, 0x44C3, 0x45C3,
0xA404, 0xA504, 0x842A, 0x852A, 0x842A, 0x852A, 0x8429,
0x8529, 0x8429, 0x8529, 0x8428, 0x8528, 0x8428, 0x8528,
}},
{{ /* plate */
0xB4FF, 0xA470, 0x9570, 0x84B5, 0x383A, 0x3EB5, 0x7234,
0x7234, 0x7234, 0x7234, 0x7234, 0x7234, 0x4448, 0x4548,
0xA440, 0xA540, 0x842A, 0x852A, 0x842A, 0x852A, 0x8429,
0x8529, 0x8429, 0x8529, 0x8428, 0x8528, 0x8428, 0x8528,
}},
{{ /* delay */
0xB4FF, 0xA470, 0x9500, 0x84B5, 0x333A, 0x39B5, 0x7204,
0x7204, 0x7204, 0x7204, 0x7204, 0x72F4, 0x4400, 0x4500,
0xA4FF, 0xA5FF, 0x8420, 0x8520, 0x8420, 0x8520, 0x8420,
0x8520, 0x8420, 0x8520, 0x8420, 0x8520, 0x8420, 0x8520,
}},
{{ /* panning delay */
0xB4FF, 0xA490, 0x9590, 0x8474, 0x333A, 0x39B5, 0x7204,
0x7204, 0x7204, 0x7204, 0x7204, 0x72F4, 0x4400, 0x4500,
0xA4FF, 0xA5FF, 0x8420, 0x8520, 0x8420, 0x8520, 0x8420,
0x8520, 0x8420, 0x8520, 0x8420, 0x8520, 0x8420, 0x8520,
}},
};
static struct ReverbCmdPair {
unsigned short cmd, port;
} reverb_cmds[28] = {
{AWE_INIT1(0x03)}, {AWE_INIT1(0x05)}, {AWE_INIT4(0x1F)}, {AWE_INIT1(0x07)},
{AWE_INIT2(0x14)}, {AWE_INIT2(0x16)}, {AWE_INIT1(0x0F)}, {AWE_INIT1(0x17)},
{AWE_INIT1(0x1F)}, {AWE_INIT2(0x07)}, {AWE_INIT2(0x0F)}, {AWE_INIT2(0x17)},
{AWE_INIT2(0x1D)}, {AWE_INIT2(0x1F)}, {AWE_INIT3(0x01)}, {AWE_INIT3(0x03)},
{AWE_INIT1(0x09)}, {AWE_INIT1(0x0B)}, {AWE_INIT1(0x11)}, {AWE_INIT1(0x13)},
{AWE_INIT1(0x19)}, {AWE_INIT1(0x1B)}, {AWE_INIT2(0x01)}, {AWE_INIT2(0x03)},
{AWE_INIT2(0x09)}, {AWE_INIT2(0x0B)}, {AWE_INIT2(0x11)}, {AWE_INIT2(0x13)},
};
static int
awe_load_reverb_fx(awe_patch_info *patch, const char *addr, int count)
{
if (patch->optarg < AWE_REVERB_PREDEFINED || patch->optarg >= AWE_REVERB_NUMBERS) {
printk(KERN_WARNING "AWE32 Error: invalid reverb mode %d for uploadingn", patch->optarg);
return -EINVAL;
}
if (count < sizeof(awe_reverb_fx_rec)) {
printk(KERN_WARNING "AWE32 Error: too short reverb fx parametersn");
return -EINVAL;
}
if (copy_from_user(&reverb_parm[patch->optarg], addr + AWE_PATCH_INFO_SIZE,
sizeof(awe_reverb_fx_rec)))
return -EFAULT;
reverb_defined[patch->optarg] = TRUE;
return 0;
}
static void
awe_set_reverb_mode(int effect)
{
int i;
if (effect < 0 || effect >= AWE_REVERB_NUMBERS ||
(effect >= AWE_REVERB_PREDEFINED && !reverb_defined[effect]))
return;
for (i = 0; i < 28; i++)
awe_poke(reverb_cmds[i].cmd, reverb_cmds[i].port,
reverb_parm[effect].parms[i]);
}
static void
awe_update_reverb_mode(void)
{
awe_set_reverb_mode(ctrls[AWE_MD_REVERB_MODE]);
}
/*
* treble/bass equalizer control
*/
static unsigned short bass_parm[12][3] = {
{0xD26A, 0xD36A, 0x0000}, /* -12 dB */
{0xD25B, 0xD35B, 0x0000}, /* -8 */
{0xD24C, 0xD34C, 0x0000}, /* -6 */
{0xD23D, 0xD33D, 0x0000}, /* -4 */
{0xD21F, 0xD31F, 0x0000}, /* -2 */
{0xC208, 0xC308, 0x0001}, /* 0 (HW default) */
{0xC219, 0xC319, 0x0001}, /* +2 */
{0xC22A, 0xC32A, 0x0001}, /* +4 */
{0xC24C, 0xC34C, 0x0001}, /* +6 */
{0xC26E, 0xC36E, 0x0001}, /* +8 */
{0xC248, 0xC348, 0x0002}, /* +10 */
{0xC26A, 0xC36A, 0x0002}, /* +12 dB */
};
static unsigned short treble_parm[12][9] = {
{0x821E, 0xC26A, 0x031E, 0xC36A, 0x021E, 0xD208, 0x831E, 0xD308, 0x0001}, /* -12 dB */
{0x821E, 0xC25B, 0x031E, 0xC35B, 0x021E, 0xD208, 0x831E, 0xD308, 0x0001},
{0x821E, 0xC24C, 0x031E, 0xC34C, 0x021E, 0xD208, 0x831E, 0xD308, 0x0001},
{0x821E, 0xC23D, 0x031E, 0xC33D, 0x021E, 0xD208, 0x831E, 0xD308, 0x0001},
{0x821E, 0xC21F, 0x031E, 0xC31F, 0x021E, 0xD208, 0x831E, 0xD308, 0x0001},
{0x821E, 0xD208, 0x031E, 0xD308, 0x021E, 0xD208, 0x831E, 0xD308, 0x0002},
{0x821E, 0xD208, 0x031E, 0xD308, 0x021D, 0xD219, 0x831D, 0xD319, 0x0002},
{0x821E, 0xD208, 0x031E, 0xD308, 0x021C, 0xD22A, 0x831C, 0xD32A, 0x0002},
{0x821E, 0xD208, 0x031E, 0xD308, 0x021A, 0xD24C, 0x831A, 0xD34C, 0x0002},
{0x821E, 0xD208, 0x031E, 0xD308, 0x0219, 0xD26E, 0x8319, 0xD36E, 0x0002}, /* +8 (HW default) */
{0x821D, 0xD219, 0x031D, 0xD319, 0x0219, 0xD26E, 0x8319, 0xD36E, 0x0002},
{0x821C, 0xD22A, 0x031C, 0xD32A, 0x0219, 0xD26E, 0x8319, 0xD36E, 0x0002}, /* +12 dB */
};
/*
* set Emu8000 digital equalizer; from 0 to 11 [-12dB - 12dB]
*/
static void
awe_equalizer(int bass, int treble)
{
unsigned short w;
if (bass < 0 || bass > 11 || treble < 0 || treble > 11)
return;
awe_poke(AWE_INIT4(0x01), bass_parm[bass][0]);
awe_poke(AWE_INIT4(0x11), bass_parm[bass][1]);
awe_poke(AWE_INIT3(0x11), treble_parm[treble][0]);
awe_poke(AWE_INIT3(0x13), treble_parm[treble][1]);
awe_poke(AWE_INIT3(0x1B), treble_parm[treble][2]);
awe_poke(AWE_INIT4(0x07), treble_parm[treble][3]);
awe_poke(AWE_INIT4(0x0B), treble_parm[treble][4]);
awe_poke(AWE_INIT4(0x0D), treble_parm[treble][5]);
awe_poke(AWE_INIT4(0x17), treble_parm[treble][6]);
awe_poke(AWE_INIT4(0x19), treble_parm[treble][7]);
w = bass_parm[bass][2] + treble_parm[treble][8];
awe_poke(AWE_INIT4(0x15), (unsigned short)(w + 0x0262));
awe_poke(AWE_INIT4(0x1D), (unsigned short)(w + 0x8362));
}
static void awe_update_equalizer(void)
{
awe_equalizer(ctrls[AWE_MD_BASS_LEVEL], ctrls[AWE_MD_TREBLE_LEVEL]);
}
/*----------------------------------------------------------------*/
#ifdef CONFIG_AWE32_MIDIEMU
/*
* Emu8000 MIDI Emulation
*/
/*
* midi queue record
*/
/* queue type */
enum { Q_NONE, Q_VARLEN, Q_READ, Q_SYSEX, };
#define MAX_MIDIBUF 64
/* midi status */
typedef struct MidiStatus {
int queue; /* queue type */
int qlen; /* queue length */
int read; /* chars read */
int status; /* current status */
int chan; /* current channel */
unsigned char buf[MAX_MIDIBUF];
} MidiStatus;
/* MIDI mode type */
enum { MODE_GM, MODE_GS, MODE_XG, };
/* NRPN / CC -> Emu8000 parameter converter */
typedef struct {
int control;
int awe_effect;
unsigned short (*convert)(int val);
} ConvTable;
/*
* prototypes
*/
static int awe_midi_open(int dev, int mode, void (*input)(int,unsigned char), void (*output)(int));
static void awe_midi_close(int dev);
static int awe_midi_ioctl(int dev, unsigned cmd, caddr_t arg);
static int awe_midi_outputc(int dev, unsigned char midi_byte);
static void init_midi_status(MidiStatus *st);
static void clear_rpn(void);
static void get_midi_char(MidiStatus *st, int c);
/*static void queue_varlen(MidiStatus *st, int c);*/
static void special_event(MidiStatus *st, int c);
static void queue_read(MidiStatus *st, int c);
static void midi_note_on(MidiStatus *st);
static void midi_note_off(MidiStatus *st);
static void midi_key_pressure(MidiStatus *st);
static void midi_channel_pressure(MidiStatus *st);
static void midi_pitch_wheel(MidiStatus *st);
static void midi_program_change(MidiStatus *st);
static void midi_control_change(MidiStatus *st);
static void midi_select_bank(MidiStatus *st, int val);
static void midi_nrpn_event(MidiStatus *st);
static void midi_rpn_event(MidiStatus *st);
static void midi_detune(int chan, int coarse, int fine);
static void midi_system_exclusive(MidiStatus *st);
static int send_converted_effect(ConvTable *table, int num_tables, MidiStatus *st, int type, int val);
static int add_converted_effect(ConvTable *table, int num_tables, MidiStatus *st, int type, int val);
static int xg_control_change(MidiStatus *st, int cmd, int val);
#define numberof(ary) (sizeof(ary)/sizeof(ary[0]))
/*
* OSS Midi device record
*/
static struct midi_operations awe_midi_operations =
{
owner: THIS_MODULE,
info: {"AWE Midi Emu", 0, 0, SNDCARD_SB},
in_info: {0},
open: awe_midi_open, /*open*/
close: awe_midi_close, /*close*/
ioctl: awe_midi_ioctl, /*ioctl*/
outputc: awe_midi_outputc, /*outputc*/
};
static int my_mididev = -1;
static void __init attach_midiemu(void)
{
if ((my_mididev = sound_alloc_mididev()) < 0)
printk ("Sound: Too many midi devices detectedn");
else
midi_devs[my_mididev] = &awe_midi_operations;
}
static void __exit unload_midiemu(void)
{
if (my_mididev >= 0)
sound_unload_mididev(my_mididev);
}
/*
* open/close midi device
*/
static int midi_opened = FALSE;
static int midi_mode;
static int coarsetune = 0, finetune = 0;
static int xg_mapping = TRUE;
static int xg_bankmode = 0;
/* effect sensitivity */
#define FX_CUTOFF 0
#define FX_RESONANCE 1
#define FX_ATTACK 2
#define FX_RELEASE 3
#define FX_VIBRATE 4
#define FX_VIBDEPTH 5
#define FX_VIBDELAY 6
#define FX_NUMS 7
#define DEF_FX_CUTOFF 170
#define DEF_FX_RESONANCE 6
#define DEF_FX_ATTACK 50
#define DEF_FX_RELEASE 50
#define DEF_FX_VIBRATE 30
#define DEF_FX_VIBDEPTH 4
#define DEF_FX_VIBDELAY 1500
/* effect sense: */
static int gs_sense[] =
{
DEF_FX_CUTOFF, DEF_FX_RESONANCE, DEF_FX_ATTACK, DEF_FX_RELEASE,
DEF_FX_VIBRATE, DEF_FX_VIBDEPTH, DEF_FX_VIBDELAY
};
static int xg_sense[] =
{
DEF_FX_CUTOFF, DEF_FX_RESONANCE, DEF_FX_ATTACK, DEF_FX_RELEASE,
DEF_FX_VIBRATE, DEF_FX_VIBDEPTH, DEF_FX_VIBDELAY
};
/* current status */
static MidiStatus curst;
static int
awe_midi_open (int dev, int mode,
void (*input)(int,unsigned char),
void (*output)(int))
{
if (midi_opened)
return -EBUSY;
midi_opened = TRUE;
midi_mode = MODE_GM;
curst.queue = Q_NONE;
curst.qlen = 0;
curst.read = 0;
curst.status = 0;
curst.chan = 0;
memset(curst.buf, 0, sizeof(curst.buf));
init_midi_status(&curst);
return 0;
}
static void
awe_midi_close (int dev)
{
midi_opened = FALSE;
}
static int
awe_midi_ioctl (int dev, unsigned cmd, caddr_t arg)
{
return -EPERM;
}
static int
awe_midi_outputc (int dev, unsigned char midi_byte)
{
if (! midi_opened)
return 1;
/* force to change playing mode */
playing_mode = AWE_PLAY_MULTI;
get_midi_char(&curst, midi_byte);
return 1;
}
/*
* initialize
*/
static void init_midi_status(MidiStatus *st)
{
clear_rpn();
coarsetune = 0;
finetune = 0;
}
/*
* RPN & NRPN
*/
#define MAX_MIDI_CHANNELS 16
/* RPN & NRPN */
static unsigned char nrpn[MAX_MIDI_CHANNELS]; /* current event is NRPN? */
static int msb_bit; /* current event is msb for RPN/NRPN */
/* RPN & NRPN indeces */
static unsigned char rpn_msb[MAX_MIDI_CHANNELS], rpn_lsb[MAX_MIDI_CHANNELS];
/* RPN & NRPN values */
static int rpn_val[MAX_MIDI_CHANNELS];
static void clear_rpn(void)
{
int i;
for (i = 0; i < MAX_MIDI_CHANNELS; i++) {
nrpn[i] = 0;
rpn_msb[i] = 127;
rpn_lsb[i] = 127;
rpn_val[i] = 0;
}
msb_bit = 0;
}
/*
* process midi queue
*/
/* status event types */
typedef void (*StatusEvent)(MidiStatus *st);
static struct StatusEventList {
StatusEvent process;
int qlen;
} status_event[8] = {
{midi_note_off, 2},
{midi_note_on, 2},
{midi_key_pressure, 2},
{midi_control_change, 2},
{midi_program_change, 1},
{midi_channel_pressure, 1},
{midi_pitch_wheel, 2},
{NULL, 0},
};
/* read a char from fifo and process it */
static void get_midi_char(MidiStatus *st, int c)
{
if (c == 0xfe) {
/* ignore active sense */
st->queue = Q_NONE;
return;
}
switch (st->queue) {
/* case Q_VARLEN: queue_varlen(st, c); break;*/
case Q_READ:
case Q_SYSEX:
queue_read(st, c);
break;
case Q_NONE:
st->read = 0;
if ((c & 0xf0) == 0xf0) {
special_event(st, c);
} else if (c & 0x80) { /* status change */
st->status = (c >> 4) & 0x07;
st->chan = c & 0x0f;
st->queue = Q_READ;
st->qlen = status_event[st->status].qlen;
if (st->qlen == 0)
st->queue = Q_NONE;
}
break;
}
}
/* 0xfx events */
static void special_event(MidiStatus *st, int c)
{
switch (c) {
case 0xf0: /* system exclusive */
st->queue = Q_SYSEX;
st->qlen = 0;
break;
case 0xf1: /* MTC quarter frame */
case 0xf3: /* song select */
st->queue = Q_READ;
st->qlen = 1;
break;
case 0xf2: /* song position */
st->queue = Q_READ;
st->qlen = 2;
break;
}
}
#if 0
/* read variable length value */
static void queue_varlen(MidiStatus *st, int c)
{
st->qlen += (c & 0x7f);
if (c & 0x80) {
st->qlen <<= 7;
return;
}
if (st->qlen <= 0) {
st->qlen = 0;
st->queue = Q_NONE;
}
st->queue = Q_READ;
st->read = 0;
}
#endif
/* read a char */
static void queue_read(MidiStatus *st, int c)
{
if (st->read < MAX_MIDIBUF) {
if (st->queue != Q_SYSEX)
c &= 0x7f;
st->buf[st->read] = (unsigned char)c;
}
st->read++;
if (st->queue == Q_SYSEX && c == 0xf7) {
midi_system_exclusive(st);
st->queue = Q_NONE;
} else if (st->queue == Q_READ && st->read >= st->qlen) {
if (status_event[st->status].process)
status_event[st->status].process(st);
st->queue = Q_NONE;
}
}
/*
* status events
*/
/* note on */
static void midi_note_on(MidiStatus *st)
{
DEBUG(2,printk("midi: note_on (%d) %d %dn", st->chan, st->buf[0], st->buf[1]));
if (st->buf[1] == 0)
midi_note_off(st);
else
awe_start_note(0, st->chan, st->buf[0], st->buf[1]);
}
/* note off */
static void midi_note_off(MidiStatus *st)
{
DEBUG(2,printk("midi: note_off (%d) %d %dn", st->chan, st->buf[0], st->buf[1]));
awe_kill_note(0, st->chan, st->buf[0], st->buf[1]);
}
/* key pressure change */
static void midi_key_pressure(MidiStatus *st)
{
awe_key_pressure(0, st->chan, st->buf[0], st->buf[1]);
}
/* channel pressure change */
static void midi_channel_pressure(MidiStatus *st)
{
channels[st->chan].chan_press = st->buf[0];
awe_modwheel_change(st->chan, st->buf[0]);
}
/* pitch wheel change */
static void midi_pitch_wheel(MidiStatus *st)
{
int val = (int)st->buf[1] * 128 + st->buf[0];
awe_bender(0, st->chan, val);
}
/* program change */
static void midi_program_change(MidiStatus *st)
{
int preset;
preset = st->buf[0];
if (midi_mode == MODE_GS && IS_DRUM_CHANNEL(st->chan) && preset == 127)
preset = 0;
else if (midi_mode == MODE_XG && xg_mapping && IS_DRUM_CHANNEL(st->chan))
preset += 64;
awe_set_instr(0, st->chan, preset);
}
#define send_effect(chan,type,val) awe_send_effect(chan,-1,type,val)
#define add_effect(chan,type,val) awe_send_effect(chan,-1,(type)|0x80,val)
#define unset_effect(chan,type) awe_send_effect(chan,-1,(type)|0x40,0)
/* midi control change */
static void midi_control_change(MidiStatus *st)
{
int cmd = st->buf[0];
int val = st->buf[1];
DEBUG(2,printk("midi: control (%d) %d %dn", st->chan, cmd, val));
if (midi_mode == MODE_XG) {
if (xg_control_change(st, cmd, val))
return;
}
/* controls #31 - #64 are LSB of #0 - #31 */
msb_bit = 1;
if (cmd >= 0x20 && cmd < 0x40) {
msb_bit = 0;
cmd -= 0x20;
}
switch (cmd) {
case CTL_SOFT_PEDAL:
if (val == 127)
add_effect(st->chan, AWE_FX_CUTOFF, -160);
else
unset_effect(st->chan, AWE_FX_CUTOFF);
break;
case CTL_BANK_SELECT:
midi_select_bank(st, val);
break;
/* set RPN/NRPN parameter */
case CTL_REGIST_PARM_NUM_MSB:
nrpn[st->chan]=0; rpn_msb[st->chan]=val;
break;
case CTL_REGIST_PARM_NUM_LSB:
nrpn[st->chan]=0; rpn_lsb[st->chan]=val;
break;
case CTL_NONREG_PARM_NUM_MSB:
nrpn[st->chan]=1; rpn_msb[st->chan]=val;
break;
case CTL_NONREG_PARM_NUM_LSB:
nrpn[st->chan]=1; rpn_lsb[st->chan]=val;
break;
/* send RPN/NRPN entry */
case CTL_DATA_ENTRY:
if (msb_bit)
rpn_val[st->chan] = val * 128;
else
rpn_val[st->chan] |= val;
if (nrpn[st->chan])
midi_nrpn_event(st);
else
midi_rpn_event(st);
break;
/* increase/decrease data entry */
case CTL_DATA_INCREMENT:
rpn_val[st->chan]++;
midi_rpn_event(st);
break;
case CTL_DATA_DECREMENT:
rpn_val[st->chan]--;
midi_rpn_event(st);
break;
/* default */
default:
awe_controller(0, st->chan, cmd, val);
break;
}
}
/* tone bank change */
static void midi_select_bank(MidiStatus *st, int val)
{
if (midi_mode == MODE_XG && msb_bit) {
xg_bankmode = val;
/* XG MSB value; not normal bank selection */
switch (val) {
case 127: /* remap to drum channel */
awe_controller(0, st->chan, CTL_BANK_SELECT, 128);
break;
default: /* remap to normal channel */
awe_controller(0, st->chan, CTL_BANK_SELECT, val);
break;
}
return;
} else if (midi_mode == MODE_GS && !msb_bit)
/* ignore LSB bank in GS mode (used for mapping) */
return;
/* normal bank controls; accept both MSB and LSB */
if (! IS_DRUM_CHANNEL(st->chan)) {
if (midi_mode == MODE_XG) {
if (xg_bankmode) return;
if (val == 64 || val == 126)
val = 0;
} else if (midi_mode == MODE_GS && val == 127)
val = 0;
awe_controller(0, st->chan, CTL_BANK_SELECT, val);
}
}
/*
* RPN events
*/
static void midi_rpn_event(MidiStatus *st)
{
int type;
type = (rpn_msb[st->chan]<<8) | rpn_lsb[st->chan];
switch (type) {
case 0x0000: /* Pitch bend sensitivity */
/* MSB only / 1 semitone per 128 */
if (msb_bit) {
channels[st->chan].bender_range =
rpn_val[st->chan] * 100 / 128;
}
break;
case 0x0001: /* fine tuning: */
/* MSB/LSB, 8192=center, 100/8192 cent step */
finetune = rpn_val[st->chan] - 8192;
midi_detune(st->chan, coarsetune, finetune);
break;
case 0x0002: /* coarse tuning */
/* MSB only / 8192=center, 1 semitone per 128 */
if (msb_bit) {
coarsetune = rpn_val[st->chan] - 8192;
midi_detune(st->chan, coarsetune, finetune);
}
break;
case 0x7F7F: /* "lock-in" RPN */
break;
}
}
/* tuning:
* coarse = -8192 to 8192 (100 cent per 128)
* fine = -8192 to 8192 (max=100cent)
*/
static void midi_detune(int chan, int coarse, int fine)
{
/* 4096 = 1200 cents in AWE parameter */
int val;
val = coarse * 4096 / (12 * 128);
val += fine / 24;
if (val)
send_effect(chan, AWE_FX_INIT_PITCH, val);
else
unset_effect(chan, AWE_FX_INIT_PITCH);
}
/*
* system exclusive message
* GM/GS/XG macros are accepted
*/
static void midi_system_exclusive(MidiStatus *st)
{
/* GM on */
static unsigned char gm_on_macro[] = {
0x7e,0x7f,0x09,0x01,
};
/* XG on */
static unsigned char xg_on_macro[] = {
0x43,0x10,0x4c,0x00,0x00,0x7e,0x00,
};
/* GS prefix
* drum channel: XX=0x1?(channel), YY=0x15, ZZ=on/off
* reverb mode: XX=0x01, YY=0x30, ZZ=0-7
* chorus mode: XX=0x01, YY=0x38, ZZ=0-7
*/
static unsigned char gs_pfx_macro[] = {
0x41,0x10,0x42,0x12,0x40,/*XX,YY,ZZ*/
};
#if 0
/* SC88 system mode set
* single module mode: XX=1
* double module mode: XX=0
*/
static unsigned char gs_mode_macro[] = {
0x41,0x10,0x42,0x12,0x00,0x00,0x7F,/*ZZ*/
};
/* SC88 display macro: XX=01:bitmap, 00:text
*/
static unsigned char gs_disp_macro[] = {
0x41,0x10,0x45,0x12,0x10,/*XX,00*/
};
#endif
/* GM on */
if (memcmp(st->buf, gm_on_macro, sizeof(gm_on_macro)) == 0) {
if (midi_mode != MODE_GS && midi_mode != MODE_XG)
midi_mode = MODE_GM;
init_midi_status(st);
}
/* GS macros */
else if (memcmp(st->buf, gs_pfx_macro, sizeof(gs_pfx_macro)) == 0) {
if (midi_mode != MODE_GS && midi_mode != MODE_XG)
midi_mode = MODE_GS;
if (st->buf[5] == 0x00 && st->buf[6] == 0x7f && st->buf[7] == 0x00) {
/* GS reset */
init_midi_status(st);
}
else if ((st->buf[5] & 0xf0) == 0x10 && st->buf[6] == 0x15) {
/* drum pattern */
int p = st->buf[5] & 0x0f;
if (p == 0) p = 9;
else if (p < 10) p--;
if (st->buf[7] == 0)
DRUM_CHANNEL_OFF(p);
else
DRUM_CHANNEL_ON(p);
} else if ((st->buf[5] & 0xf0) == 0x10 && st->buf[6] == 0x21) {
/* program */
int p = st->buf[5] & 0x0f;
if (p == 0) p = 9;
else if (p < 10) p--;
if (! IS_DRUM_CHANNEL(p))
awe_set_instr(0, p, st->buf[7]);
} else if (st->buf[5] == 0x01 && st->buf[6] == 0x30) {
/* reverb mode */
awe_set_reverb_mode(st->buf[7]);
} else if (st->buf[5] == 0x01 && st->buf[6] == 0x38) {
/* chorus mode */
awe_set_chorus_mode(st->buf[7]);
} else if (st->buf[5] == 0x00 && st->buf[6] == 0x04) {
/* master volume */
awe_change_master_volume(st->buf[7]);
}
}
/* XG on */
else if (memcmp(st->buf, xg_on_macro, sizeof(xg_on_macro)) == 0) {
midi_mode = MODE_XG;
xg_mapping = TRUE;
xg_bankmode = 0;
}
}
/*----------------------------------------------------------------*/
/*
* convert NRPN/control values
*/
static int send_converted_effect(ConvTable *table, int num_tables, MidiStatus *st, int type, int val)
{
int i, cval;
for (i = 0; i < num_tables; i++) {
if (table[i].control == type) {
cval = table[i].convert(val);
send_effect(st->chan, table[i].awe_effect, cval);
return TRUE;
}
}
return FALSE;
}
static int add_converted_effect(ConvTable *table, int num_tables, MidiStatus *st, int type, int val)
{
int i, cval;
for (i = 0; i < num_tables; i++) {
if (table[i].control == type) {
cval = table[i].convert(val);
add_effect(st->chan, table[i].awe_effect|0x80, cval);
return TRUE;
}
}
return FALSE;
}
/*
* AWE32 NRPN effects
*/
static unsigned short fx_delay(int val);
static unsigned short fx_attack(int val);
static unsigned short fx_hold(int val);
static unsigned short fx_decay(int val);
static unsigned short fx_the_value(int val);
static unsigned short fx_twice_value(int val);
static unsigned short fx_conv_pitch(int val);
static unsigned short fx_conv_Q(int val);
/* function for each NRPN */ /* [range] units */
#define fx_env1_delay fx_delay /* [0,5900] 4msec */
#define fx_env1_attack fx_attack /* [0,5940] 1msec */
#define fx_env1_hold fx_hold /* [0,8191] 1msec */
#define fx_env1_decay fx_decay /* [0,5940] 4msec */
#define fx_env1_release fx_decay /* [0,5940] 4msec */
#define fx_env1_sustain fx_the_value /* [0,127] 0.75dB */
#define fx_env1_pitch fx_the_value /* [-127,127] 9.375cents */
#define fx_env1_cutoff fx_the_value /* [-127,127] 56.25cents */
#define fx_env2_delay fx_delay /* [0,5900] 4msec */
#define fx_env2_attack fx_attack /* [0,5940] 1msec */
#define fx_env2_hold fx_hold /* [0,8191] 1msec */
#define fx_env2_decay fx_decay /* [0,5940] 4msec */
#define fx_env2_release fx_decay /* [0,5940] 4msec */
#define fx_env2_sustain fx_the_value /* [0,127] 0.75dB */
#define fx_lfo1_delay fx_delay /* [0,5900] 4msec */
#define fx_lfo1_freq fx_twice_value /* [0,127] 84mHz */
#define fx_lfo1_volume fx_twice_value /* [0,127] 0.1875dB */
#define fx_lfo1_pitch fx_the_value /* [-127,127] 9.375cents */
#define fx_lfo1_cutoff fx_twice_value /* [-64,63] 56.25cents */
#define fx_lfo2_delay fx_delay /* [0,5900] 4msec */
#define fx_lfo2_freq fx_twice_value /* [0,127] 84mHz */
#define fx_lfo2_pitch fx_the_value /* [-127,127] 9.375cents */
#define fx_init_pitch fx_conv_pitch /* [-8192,8192] cents */
#define fx_chorus fx_the_value /* [0,255] -- */
#define fx_reverb fx_the_value /* [0,255] -- */
#define fx_cutoff fx_twice_value /* [0,127] 62Hz */
#define fx_filterQ fx_conv_Q /* [0,127] -- */
static unsigned short fx_delay(int val)
{
return (unsigned short)calc_parm_delay(val);
}
static unsigned short fx_attack(int val)
{
return (unsigned short)calc_parm_attack(val);
}
static unsigned short fx_hold(int val)
{
return (unsigned short)calc_parm_hold(val);
}
static unsigned short fx_decay(int val)
{
return (unsigned short)calc_parm_decay(val);
}
static unsigned short fx_the_value(int val)
{
return (unsigned short)(val & 0xff);
}
static unsigned short fx_twice_value(int val)
{
return (unsigned short)((val * 2) & 0xff);
}
static unsigned short fx_conv_pitch(int val)
{
return (short)(val * 4096 / 1200);
}
static unsigned short fx_conv_Q(int val)
{
return (unsigned short)((val / 8) & 0xff);
}
static ConvTable awe_effects[] =
{
{ 0, AWE_FX_LFO1_DELAY, fx_lfo1_delay},
{ 1, AWE_FX_LFO1_FREQ, fx_lfo1_freq},
{ 2, AWE_FX_LFO2_DELAY, fx_lfo2_delay},
{ 3, AWE_FX_LFO2_FREQ, fx_lfo2_freq},
{ 4, AWE_FX_ENV1_DELAY, fx_env1_delay},
{ 5, AWE_FX_ENV1_ATTACK,fx_env1_attack},
{ 6, AWE_FX_ENV1_HOLD, fx_env1_hold},
{ 7, AWE_FX_ENV1_DECAY, fx_env1_decay},
{ 8, AWE_FX_ENV1_SUSTAIN, fx_env1_sustain},
{ 9, AWE_FX_ENV1_RELEASE, fx_env1_release},
{10, AWE_FX_ENV2_DELAY, fx_env2_delay},
{11, AWE_FX_ENV2_ATTACK, fx_env2_attack},
{12, AWE_FX_ENV2_HOLD, fx_env2_hold},
{13, AWE_FX_ENV2_DECAY, fx_env2_decay},
{14, AWE_FX_ENV2_SUSTAIN, fx_env2_sustain},
{15, AWE_FX_ENV2_RELEASE, fx_env2_release},
{16, AWE_FX_INIT_PITCH, fx_init_pitch},
{17, AWE_FX_LFO1_PITCH, fx_lfo1_pitch},
{18, AWE_FX_LFO2_PITCH, fx_lfo2_pitch},
{19, AWE_FX_ENV1_PITCH, fx_env1_pitch},
{20, AWE_FX_LFO1_VOLUME, fx_lfo1_volume},
{21, AWE_FX_CUTOFF, fx_cutoff},
{22, AWE_FX_FILTERQ, fx_filterQ},
{23, AWE_FX_LFO1_CUTOFF, fx_lfo1_cutoff},
{24, AWE_FX_ENV1_CUTOFF, fx_env1_cutoff},
{25, AWE_FX_CHORUS, fx_chorus},
{26, AWE_FX_REVERB, fx_reverb},
};
static int num_awe_effects = numberof(awe_effects);
/*
* GS(SC88) NRPN effects; still experimental
*/
/* cutoff: quarter semitone step, max=255 */
static unsigned short gs_cutoff(int val)
{
return (val - 64) * gs_sense[FX_CUTOFF] / 50;
}
/* resonance: 0 to 15(max) */
static unsigned short gs_filterQ(int val)
{
return (val - 64) * gs_sense[FX_RESONANCE] / 50;
}
/* attack: */
static unsigned short gs_attack(int val)
{
return -(val - 64) * gs_sense[FX_ATTACK] / 50;
}
/* decay: */
static unsigned short gs_decay(int val)
{
return -(val - 64) * gs_sense[FX_RELEASE] / 50;
}
/* release: */
static unsigned short gs_release(int val)
{
return -(val - 64) * gs_sense[FX_RELEASE] / 50;
}
/* vibrato freq: 0.042Hz step, max=255 */
static unsigned short gs_vib_rate(int val)
{
return (val - 64) * gs_sense[FX_VIBRATE] / 50;
}
/* vibrato depth: max=127, 1 octave */
static unsigned short gs_vib_depth(int val)
{
return (val - 64) * gs_sense[FX_VIBDEPTH] / 50;
}
/* vibrato delay: -0.725msec step */
static unsigned short gs_vib_delay(int val)
{
return -(val - 64) * gs_sense[FX_VIBDELAY] / 50;
}
static ConvTable gs_effects[] =
{
{32, AWE_FX_CUTOFF, gs_cutoff},
{33, AWE_FX_FILTERQ, gs_filterQ},
{99, AWE_FX_ENV2_ATTACK, gs_attack},
{100, AWE_FX_ENV2_DECAY, gs_decay},
{102, AWE_FX_ENV2_RELEASE, gs_release},
{8, AWE_FX_LFO1_FREQ, gs_vib_rate},
{9, AWE_FX_LFO1_VOLUME, gs_vib_depth},
{10, AWE_FX_LFO1_DELAY, gs_vib_delay},
};
static int num_gs_effects = numberof(gs_effects);
/*
* NRPN events: accept as AWE32/SC88 specific controls
*/
static void midi_nrpn_event(MidiStatus *st)
{
if (rpn_msb[st->chan] == 127 && rpn_lsb[st->chan] <= 26) {
if (! msb_bit) /* both MSB/LSB necessary */
send_converted_effect(awe_effects, num_awe_effects,
st, rpn_lsb[st->chan],
rpn_val[st->chan] - 8192);
} else if (rpn_msb[st->chan] == 1) {
if (msb_bit) /* only MSB is valid */
add_converted_effect(gs_effects, num_gs_effects,
st, rpn_lsb[st->chan],
rpn_val[st->chan] / 128);
}
}
/*
* XG control effects; still experimental
*/
/* cutoff: quarter semitone step, max=255 */
static unsigned short xg_cutoff(int val)
{
return (val - 64) * xg_sense[FX_CUTOFF] / 64;
}
/* resonance: 0(open) to 15(most nasal) */
static unsigned short xg_filterQ(int val)
{
return (val - 64) * xg_sense[FX_RESONANCE] / 64;
}
/* attack: */
static unsigned short xg_attack(int val)
{
return -(val - 64) * xg_sense[FX_ATTACK] / 64;
}
/* release: */
static unsigned short xg_release(int val)
{
return -(val - 64) * xg_sense[FX_RELEASE] / 64;
}
static ConvTable xg_effects[] =
{
{71, AWE_FX_CUTOFF, xg_cutoff},
{74, AWE_FX_FILTERQ, xg_filterQ},
{72, AWE_FX_ENV2_RELEASE, xg_release},
{73, AWE_FX_ENV2_ATTACK, xg_attack},
};
static int num_xg_effects = numberof(xg_effects);
static int xg_control_change(MidiStatus *st, int cmd, int val)
{
return add_converted_effect(xg_effects, num_xg_effects, st, cmd, val);
}
#endif /* CONFIG_AWE32_MIDIEMU */
/*----------------------------------------------------------------*/
/*
* device / lowlevel (module) interface
*/
int __init attach_awe(void)
{
return _attach_awe() ? 0 : -ENODEV;
}
void __exit unload_awe(void)
{
_unload_awe();
#if defined CONFIG_ISAPNP || defined CONFIG_ISAPNP_MODULE
if (isapnp)
awe_deactivate_isapnp();
#endif /* isapnp */
}
module_init(attach_awe);
module_exit(unload_awe);
#ifndef MODULE
static int __init setup_awe(char *str)
{
/* io, memsize, isapnp */
int ints[4];
str = get_options(str, ARRAY_SIZE(ints), ints);
io = ints[1];
memsize = ints[2];
isapnp = ints[3];
return 1;
}
__setup("awe=", setup_awe);
#endif