diff options
author | jkh <jkh@FreeBSD.org> | 1996-11-15 18:35:35 +0000 |
---|---|---|
committer | jkh <jkh@FreeBSD.org> | 1996-11-15 18:35:35 +0000 |
commit | c51142b4451690df0f5512654615941a47971a15 (patch) | |
tree | 4f7a7b0024d3a562e9ce5fd9c0b35a09e4a23b7c | |
parent | 5748956625e5b80556b7fc4defdcfd2b4ed86a28 (diff) | |
download | FreeBSD-src-c51142b4451690df0f5512654615941a47971a15.zip FreeBSD-src-c51142b4451690df0f5512654615941a47971a15.tar.gz |
Break my own rule again - I didn't think this stuff was going to come back
with the copyright stuff fixed so soon (this should be merged into 2.2 when
you have a chance, Poul).
This is the new AWE32 driver, with support for the AWE32's fancy MIDI
synthesizer. The utilities for this will appear as port submissions soon
afterwards, according to the submitter.
Submitted-By: Randall Hopper <rhh@ct.picker.com>
Written-By: Takashi Iwai <iwai@dragon.mm.t.u-tokyo.ac.jp>
-rw-r--r-- | sys/i386/isa/sound/awe_hw.h | 116 | ||||
-rw-r--r-- | sys/i386/isa/sound/awe_voice.h | 268 | ||||
-rw-r--r-- | sys/i386/isa/sound/awe_wave.c | 3367 | ||||
-rw-r--r-- | sys/i386/isa/sound/dev_table.h | 6 | ||||
-rw-r--r-- | sys/i386/isa/sound/local.h | 5 | ||||
-rw-r--r-- | sys/i386/isa/sound/sound_calls.h | 4 | ||||
-rw-r--r-- | sys/i386/isa/sound/sound_config.h | 4 | ||||
-rw-r--r-- | sys/i386/isa/sound/soundcard.c | 5 |
8 files changed, 3774 insertions, 1 deletions
diff --git a/sys/i386/isa/sound/awe_hw.h b/sys/i386/isa/sound/awe_hw.h new file mode 100644 index 0000000..8b6be67 --- /dev/null +++ b/sys/i386/isa/sound/awe_hw.h @@ -0,0 +1,116 @@ +/* + * sound/awe_hw.h + * + * Access routines and definitions for the low level driver for the + * AWE32/Sound Blaster 32 wave table synth. + * version 0.2.0a; Oct. 30, 1996 + * + * (C) 1996 Takashi Iwai + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions are + * met: 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. 2. + * Redistributions in binary form must reproduce the above copyright notice, + * this list of conditions and the following disclaimer in the documentation + * and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND ANY + * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED + * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE + * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR + * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR + * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER + * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + * + */ + +#ifndef AWE_HW_H_DEF +#define AWE_HW_H_DEF + +/* + * user configuration: + * if auto detection can't work properly, define the following values + * for your machine. + */ +/*#define AWE_DEFAULT_BASE_ADDR 0x620*/ /* base port address */ +/*#define AWE_DEFAULT_MEM_SIZE 512*/ /* kbytes */ + + +/* + * maximum size of sample table: + * if your data overflow, increase the following values. + */ +#define AWE_MAX_SAMPLES 400 +#define AWE_MAX_INFOS 900 /* GS presets has 801 infos! */ + + +/* + * Emu-8000 control registers + * name(channel) reg, port + */ + +#define awe_cmd_idx(reg,ch) (((reg)<< 5) | (ch)) + +#define Data0 0x620 /* doubleword r/w */ +#define Data1 0xA20 /* doubleword r/w */ +#define Data2 0xA22 /* word r/w */ +#define Data3 0xE20 /* word r/w */ +#define Pointer 0xE22 /* register pointer r/w */ + +#define AWE_CPF(ch) awe_cmd_idx(0,ch), Data0 /* DW: current pitch and fractional address */ +#define AWE_PTRX(ch) awe_cmd_idx(1,ch), Data0 /* DW: pitch target and reverb send */ +#define AWE_CVCF(ch) awe_cmd_idx(2,ch), Data0 /* DW: current volume and filter cutoff */ +#define AWE_VTFT(ch) awe_cmd_idx(3,ch), Data0 /* DW: volume and filter cutoff targets */ +#define AWE_PSST(ch) awe_cmd_idx(6,ch), Data0 /* DW: pan send and loop start address */ +#define AWE_CSL(ch) awe_cmd_idx(7,ch), Data0 /* DW: chorus send and loop end address */ +#define AWE_CCCA(ch) awe_cmd_idx(0,ch), Data1 /* DW: Q, control bits, and current address */ +#define AWE_HWCF4 awe_cmd_idx(1,9), Data1 /* DW: config dw 4 */ +#define AWE_HWCF5 awe_cmd_idx(1,10), Data1 /* DW: config dw 5 */ +#define AWE_HWCF6 awe_cmd_idx(1,13), Data1 /* DW: config dw 6 */ +#define AWE_SMALR awe_cmd_idx(1,20), Data1 /* DW: sound memory address for left read */ +#define AWE_SMARR awe_cmd_idx(1,21), Data1 /* DW: for right read */ +#define AWE_SMALW awe_cmd_idx(1,22), Data1 /* DW: sound memory address for left write */ +#define AWE_SMARW awe_cmd_idx(1,23), Data1 /* DW: for right write */ +#define AWE_SMLD awe_cmd_idx(1,26), Data1 /* W: sound memory left data */ +#define AWE_SMRD awe_cmd_idx(1,26), Data2 /* W: right data */ +#define AWE_WC awe_cmd_idx(1,27), Data2 /* W: sample counter */ +#define AWE_WC_Cmd awe_cmd_idx(1,27) +#define AWE_WC_Port Data2 +#define AWE_HWCF1 awe_cmd_idx(1,29), Data1 /* W: config w 1 */ +#define AWE_HWCF2 awe_cmd_idx(1,30), Data1 /* W: config w 2 */ +#define AWE_HWCF3 awe_cmd_idx(1,31), Data1 /* W: config w 3 */ +#define AWE_INIT1(ch) awe_cmd_idx(2,ch), Data1 /* W: init array 1 */ +#define AWE_INIT2(ch) awe_cmd_idx(2,ch), Data2 /* W: init array 2 */ +#define AWE_INIT3(ch) awe_cmd_idx(3,ch), Data1 /* W: init array 3 */ +#define AWE_INIT4(ch) awe_cmd_idx(3,ch), Data2 /* W: init array 4 */ +#define AWE_ENVVOL(ch) awe_cmd_idx(4,ch), Data1 /* W: volume envelope delay */ +#define AWE_DCYSUSV(ch) awe_cmd_idx(5,ch), Data1 /* W: volume envelope sustain and decay */ +#define AWE_ENVVAL(ch) awe_cmd_idx(6,ch), Data1 /* W: modulation envelope delay */ +#define AWE_DCYSUS(ch) awe_cmd_idx(7,ch), Data1 /* W: modulation envelope sustain and decay */ +#define AWE_ATKHLDV(ch) awe_cmd_idx(4,ch), Data2 /* W: volume envelope attack and hold */ +#define AWE_LFO1VAL(ch) awe_cmd_idx(5,ch), Data2 /* W: LFO#1 Delay */ +#define AWE_ATKHLD(ch) awe_cmd_idx(6,ch), Data2 /* W: modulation envelope attack and hold */ +#define AWE_LFO2VAL(ch) awe_cmd_idx(7,ch), Data2 /* W: LFO#2 Delay */ +#define AWE_IP(ch) awe_cmd_idx(0,ch), Data3 /* W: initial pitch */ +#define AWE_IFATN(ch) awe_cmd_idx(1,ch), Data3 /* W: initial filter cutoff and attenuation */ +#define AWE_PEFE(ch) awe_cmd_idx(2,ch), Data3 /* W: pitch and filter envelope heights */ +#define AWE_FMMOD(ch) awe_cmd_idx(3,ch), Data3 /* W: vibrato and filter modulation freq */ +#define AWE_TREMFRQ(ch) awe_cmd_idx(4,ch), Data3 /* W: LFO#1 tremolo amount and freq */ +#define AWE_FM2FRQ2(ch) awe_cmd_idx(5,ch), Data3 /* W: LFO#2 vibrato amount and freq */ + +/* used during detection (returns ROM version ?) */ +#define AWE_U1 0xE0, Data3 /* (R)(W) used in initialization */ +#define AWE_U2(ch) 0xC0+(ch), Data3 /* (W)(W) used in init envelope */ + + +#define AWE_MAX_VOICES 32 +#define AWE_NORMAL_VOICES 30 /*30&31 are reserved for DRAM refresh*/ + +#define AWE_DRAM_OFFSET 0x200000 + +#endif diff --git a/sys/i386/isa/sound/awe_voice.h b/sys/i386/isa/sound/awe_voice.h new file mode 100644 index 0000000..934aaa8 --- /dev/null +++ b/sys/i386/isa/sound/awe_voice.h @@ -0,0 +1,268 @@ +/* + * sound/awe_voice.h + * + * Voice information definitions for the low level driver for the + * AWE32/Sound Blaster 32 wave table synth. + * version 0.2.0a; Oct. 30, 1996 + * + * (C) 1996 Takashi Iwai + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions are + * met: 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. 2. + * Redistributions in binary form must reproduce the above copyright notice, + * this list of conditions and the following disclaimer in the documentation + * and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND ANY + * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED + * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE + * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR + * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR + * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER + * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + * + */ + +#ifndef AWE_VOICE_H +#define AWE_VOICE_H + +#ifndef SAMPLE_TYPE_AWE32 +#define SAMPLE_TYPE_AWE32 0x20 +#endif + +#ifndef _PATCHKEY +#define _PATCHKEY(id) ((id<<8)|0xfd) +#endif + +/*---------------------------------------------------------------- + * patch information record + *----------------------------------------------------------------*/ + +/* patch interface header: 16 bytes */ +typedef struct awe_patch_info { + short key; /* use AWE_PATCH here */ +#define AWE_PATCH _PATCHKEY(0x07) + + short device_no; /* synthesizer number */ + unsigned short sf_id; /* file id (should be zero) */ + short sf_version; /* patch version (not referred) */ + long len; /* data length (without this header) */ + + short type; /* following data type */ +#define AWE_LOAD_INFO 0 +#define AWE_LOAD_DATA 1 + + short reserved; /* word alignment data */ + char data[0]; /* patch data follows here */ +} awe_patch_info; + + +/*---------------------------------------------------------------- + * raw voice information record + *----------------------------------------------------------------*/ + +/* wave table envelope & effect parameters to control EMU8000 */ +typedef struct _awe_voice_parm { + unsigned short moddelay; /* modulation delay (0x8000) */ + unsigned short modatkhld; /* modulation attack & hold time (0x7f7f) */ + unsigned short moddcysus; /* modulation decay & sustain (0x7f7f) */ + unsigned short modrelease; /* modulation release time (0x807f) */ + short modkeyhold, modkeydecay; /* envelope change per key (not used) */ + unsigned short voldelay; /* volume delay (0x8000) */ + unsigned short volatkhld; /* volume attack & hold time (0x7f7f) */ + unsigned short voldcysus; /* volume decay & sustain (0x7f7f) */ + unsigned short volrelease; /* volume release time (0x807f) */ + short volkeyhold, volkeydecay; /* envelope change per key (not used) */ + unsigned short lfo1delay; /* LFO1 delay (0x8000) */ + unsigned short lfo2delay; /* LFO2 delay (0x8000) */ + unsigned short pefe; /* modulation pitch & cutoff (0x0000) */ + unsigned short fmmod; /* LFO1 pitch & cutoff (0x0000) */ + unsigned short tremfrq; /* LFO1 volume & freq (0x0000) */ + unsigned short fm2frq2; /* LFO2 pitch & freq (0x0000) */ + unsigned char cutoff; /* initial cutoff (0xff) */ + unsigned char filterQ; /* initial filter Q [0-15] (0x0) */ + unsigned char chorus; /* chorus send (0x00) */ + unsigned char reverb; /* reverb send (0x00) */ + unsigned short reserved[4]; /* not used */ +} awe_voice_parm; + +/* wave table parameters: 92 bytes */ +typedef struct _awe_voice_info { + unsigned short sf_id; /* file id (should be zero) */ + unsigned short sample; /* sample id */ + long start, end; /* sample offset correction */ + long loopstart, loopend; /* loop offset correction */ + short rate_offset; /* sample rate pitch offset */ + unsigned short mode; /* sample mode */ +#define AWE_MODE_ROMSOUND 0x8000 +#define AWE_MODE_STEREO 1 +#define AWE_MODE_LOOPING 2 +#define AWE_MODE_NORELEASE 4 /* obsolete */ +#define AWE_MODE_INIT_PARM 8 + + short root; /* midi root key */ + short tune; /* pitch tuning (in cents) */ + char low, high; /* key note range */ + char vellow, velhigh; /* velocity range */ + char fixkey, fixvel; /* fixed key, velocity */ + char pan, fixpan; /* panning, fixed panning */ + short exclusiveClass; /* exclusive class (0 = none) */ + unsigned char amplitude; /* sample volume (127 max) */ + unsigned char attenuation; /* attenuation (0.375dB) */ + short scaleTuning; /* pitch scale tuning(%), normally 100 */ + awe_voice_parm parm; /* voice envelope parameters */ + short index; /* internal index (set by driver) */ +} awe_voice_info; + +/* instrument info header: 4 bytes */ +typedef struct _awe_voice_rec { + unsigned char bank; /* midi bank number */ + unsigned char instr; /* midi preset number */ + short nvoices; /* number of voices */ + awe_voice_info info[0]; /* voice information follows here */ +} awe_voice_rec; + + +/*---------------------------------------------------------------- + * sample wave information + *----------------------------------------------------------------*/ + +/* wave table sample header: 32 bytes */ +typedef struct awe_sample_info { + unsigned short sf_id; /* file id (should be zero) */ + unsigned short sample; /* sample id */ + long start, end; /* start & end offset */ + long loopstart, loopend; /* loop start & end offset */ + long size; /* size (0 = ROM) */ + short checksum_flag; /* use check sum = 1 */ + unsigned short mode_flags; /* mode flags */ +#define AWE_SAMPLE_8BITS 1 /* wave data is 8bits */ +#define AWE_SAMPLE_UNSIGNED 2 /* wave data is unsigned */ +#define AWE_SAMPLE_NO_BLANK 4 /* no blank loop is attached */ +#define AWE_SAMPLE_SINGLESHOT 8 /* single-shot w/o loop */ +#define AWE_SAMPLE_BIDIR_LOOP 16 /* bidirectional looping */ +#define AWE_SAMPLE_STEREO_LEFT 32 /* stereo left sound */ +#define AWE_SAMPLE_STEREO_RIGHT 64 /* stereo right sound */ + unsigned long checksum; /* check sum */ + unsigned short data[0]; /* sample data follows here */ +} awe_sample_info; + + +/*---------------------------------------------------------------- + * awe hardware controls + *----------------------------------------------------------------*/ + +#define _AWE_DEBUG_MODE 0x00 +#define _AWE_REVERB_MODE 0x01 +#define _AWE_CHORUS_MODE 0x02 +#define _AWE_REMOVE_LAST_SAMPLES 0x03 +#define _AWE_INITIALIZE_CHIP 0x04 +#define _AWE_SEND_EFFECT 0x05 +#define _AWE_TERMINATE_CHANNEL 0x06 +#define _AWE_TERMINATE_ALL 0x07 +#define _AWE_INITIAL_VOLUME 0x08 +#define _AWE_SET_GUS_BANK 0x09 + +#define _AWE_MODE_FLAG 0x80 +#define _AWE_COOKED_FLAG 0x40 /* not supported */ +#define _AWE_MODE_VALUE_MASK 0x3F + +#define _AWE_CMD(chn, voice, cmd, p1, p2) \ +{_SEQ_NEEDBUF(8); _seqbuf[_seqbufptr] = SEQ_PRIVATE;\ + _seqbuf[_seqbufptr+1] = chn;\ + _seqbuf[_seqbufptr+2] = _AWE_MODE_FLAG|(cmd);\ + _seqbuf[_seqbufptr+3] = voice;\ + *(unsigned short*)&_seqbuf[_seqbufptr+4] = p1;\ + *(unsigned short*)&_seqbuf[_seqbufptr+6] = p2;\ + _SEQ_ADVBUF(8);} + +#define AWE_DEBUG_MODE(dev,p1) _AWE_CMD(dev, 0, _AWE_DEBUG_MODE, p1, 0) +#define AWE_REVERB_MODE(dev,p1) _AWE_CMD(dev, 0, _AWE_REVERB_MODE, p1, 0) +#define AWE_CHORUS_MODE(dev,p1) _AWE_CMD(dev, 0, _AWE_CHORUS_MODE, p1, 0) +#define AWE_REMOVE_LAST_SAMPLES(dev) _AWE_CMD(dev, 0, _AWE_REMOVE_LAST_SAMPLES, 0, 0) +#define AWE_INITIALIZE_CHIP(dev) _AWE_CMD(dev, 0, _AWE_INITIALIZE_CHIP, 0, 0) +#define AWE_SEND_EFFECT(dev,voice,type,value) _AWE_CMD(dev,voice,_AWE_SEND_EFFECT,type,value) +#define AWE_TERMINATE_CHANNEL(dev,voice) _AWE_CMD(dev,voice,_AWE_TERMINATE_CHANNEL,0,0) +#define AWE_TERMINATE_ALL(dev) _AWE_CMD(dev, 0, _AWE_TERMINATE_ALL, 0, 0) +#define AWE_INITIAL_VOLUME(dev,atten) _AWE_CMD(dev, 0, _AWE_INITIAL_VOLUME, atten, 0) +#define AWE_SET_GUS_BANK(dev,bank) _AWE_CMD(dev, 0, _AWE_SET_GUS_BANK, bank, 0) + +/* reverb mode */ +#define AWE_REVERB_ROOM1 0 +#define AWE_REVERB_ROOM2 1 +#define AWE_REVERB_ROOM3 2 +#define AWE_REVERB_HALL1 3 +#define AWE_REVERB_HALL2 4 +#define AWE_REVERB_PLATE 5 +#define AWE_REVERB_DELAY 6 +#define AWE_REVERB_PANNINGDELAY 7 + +/* chorus mode */ +#define AWE_CHORUS_1 0 +#define AWE_CHORUS_2 1 +#define AWE_CHORUS_3 2 +#define AWE_CHORUS_4 3 +#define AWE_CHORUS_FEEDBACK 4 +#define AWE_CHORUS_FLANGER 5 +#define AWE_CHORUS_SHORTDELAY 6 +#define AWE_CHORUS_SHORTDELAY2 7 + +/* effects */ +enum { + +/* modulation envelope parameters */ +/* 0*/ AWE_FX_ENV1_DELAY, /* WORD: ENVVAL */ +/* 1*/ AWE_FX_ENV1_ATTACK, /* BYTE: up ATKHLD */ +/* 2*/ AWE_FX_ENV1_HOLD, /* BYTE: lw ATKHLD */ +/* 3*/ AWE_FX_ENV1_DECAY, /* BYTE: lw DCYSUS */ +/* 4*/ AWE_FX_ENV1_RELEASE, /* BYTE: lw DCYSUS */ +/* 5*/ AWE_FX_ENV1_SUSTAIN, /* BYTE: up DCYSUS */ +/* 6*/ AWE_FX_ENV1_PITCH, /* BYTE: up PEFE */ +/* 7*/ AWE_FX_ENV1_CUTOFF, /* BYTE: lw PEFE */ + +/* volume envelope parameters */ +/* 8*/ AWE_FX_ENV2_DELAY, /* WORD: ENVVOL */ +/* 9*/ AWE_FX_ENV2_ATTACK, /* BYTE: up ATKHLDV */ +/*10*/ AWE_FX_ENV2_HOLD, /* BYTE: lw ATKHLDV */ +/*11*/ AWE_FX_ENV2_DECAY, /* BYTE: lw DCYSUSV */ +/*12*/ AWE_FX_ENV2_RELEASE, /* BYTE: lw DCYSUSV */ +/*13*/ AWE_FX_ENV2_SUSTAIN, /* BYTE: up DCYSUSV */ + +/* LFO1 (tremolo & vibrato) parameters */ +/*14*/ AWE_FX_LFO1_DELAY, /* WORD: LFO1VAL */ +/*15*/ AWE_FX_LFO1_FREQ, /* BYTE: lo TREMFRQ */ +/*16*/ AWE_FX_LFO1_VOLUME, /* BYTE: up TREMFRQ */ +/*17*/ AWE_FX_LFO1_PITCH, /* BYTE: up FMMOD */ +/*18*/ AWE_FX_LFO1_CUTOFF, /* BYTE: lo FMMOD */ + +/* LFO2 (vibrato) parameters */ +/*19*/ AWE_FX_LFO2_DELAY, /* WORD: LFO2VAL */ +/*20*/ AWE_FX_LFO2_FREQ, /* BYTE: lo FM2FRQ2 */ +/*21*/ AWE_FX_LFO2_PITCH, /* BYTE: up FM2FRQ2 */ + +/* Other overall effect parameters */ +/*22*/ AWE_FX_INIT_PITCH, /* SHORT: pitch offset */ +/*23*/ AWE_FX_CHORUS, /* BYTE: chorus effects send (0-255) */ +/*24*/ AWE_FX_REVERB, /* BYTE: reverb effects send (0-255) */ +/*25*/ AWE_FX_CUTOFF, /* BYTE: up IFATN */ +/*26*/ AWE_FX_FILTERQ, /* BYTE: up CCCA */ + +/* Sample / loop offset changes */ +/*27*/ AWE_FX_SAMPLE_START, /* SHORT: offset */ +/*28*/ AWE_FX_LOOP_START, /* SHORT: offset */ +/*29*/ AWE_FX_LOOP_END, /* SHORT: offset */ +/*30*/ AWE_FX_COARSE_SAMPLE_START, /* SHORT: upper word offset */ +/*31*/ AWE_FX_COARSE_LOOP_START, /* SHORT: upper word offset */ +/*32*/ AWE_FX_COARSE_LOOP_END, /* SHORT: upper word offset */ + + AWE_FX_END, +}; + + +#endif /* AWE_VOICE_H */ diff --git a/sys/i386/isa/sound/awe_wave.c b/sys/i386/isa/sound/awe_wave.c new file mode 100644 index 0000000..4781816 --- /dev/null +++ b/sys/i386/isa/sound/awe_wave.c @@ -0,0 +1,3367 @@ +/* + * sound/awe_wave.c + * + * The low level driver for the AWE32/Sound Blaster 32 wave table synth. + * version 0.2.0a; Oct. 30, 1996 + * + * (C) 1996 Takashi Iwai + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions are + * met: 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. 2. + * Redistributions in binary form must reproduce the above copyright notice, + * this list of conditions and the following disclaimer in the documentation + * and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND ANY + * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED + * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE + * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR + * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR + * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER + * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + * + */ + +/* if you're using obsolete VoxWare 3.0.x on Linux 1.2.x (or FreeBSD), + * uncomment the following line + */ +#define AWE_OBSOLETE_VOXWARE + + +#ifdef AWE_OBSOLETE_VOXWARE + +#ifdef __FreeBSD__ +# include <i386/isa/sound/sound_config.h> +#else +# include "sound_config.h" +#endif + +#if defined(CONFIGURE_SOUNDCARD) && !defined(EXCLUDE_AWE32) +#define CONFIG_AWE32_SYNTH +#endif + +#else /* AWE_OBSOLETE_VOXWARE */ + +#include "../sound_config.h" + +#endif /* AWE_OBSOLETE_VOXWARE */ + + +/*----------------------------------------------------------------* + * compile condition + *----------------------------------------------------------------*/ + +/* initialize FM passthrough even without extended RAM */ +/*#define AWE_ALWAYS_INIT_FM*/ + +/* debug on */ +#define AWE_DEBUG_ON + +/* verify checksum for uploading samples */ +#define AWE_CHECKSUM_DATA +#define AWE_CHECKSUM_MEMORY + +/* disable interruption during sequencer operation */ +/*#define AWE_NEED_DISABLE_INTR*/ + +/* use buffered access to user wave data */ +#define AWE_USE_BUFFERED_IO + +#ifdef linux +/* i tested this only on my linux */ +#define INLINE __inline__ +#else +#define INLINE /**/ +#endif + +/*----------------------------------------------------------------*/ + +#ifdef CONFIG_AWE32_SYNTH + +#include <i386/isa/sound/awe_hw.h> +#include <i386/isa/sound/awe_voice.h> + +#ifdef AWE_OBSOLETE_VOXWARE +#ifdef __FreeBSD__ +#define SEQUENCER_C +#endif +#include <i386/isa/sound/tuning.h> +#else +#include "../tuning.h" +#endif + +#ifdef linux +# include <linux/ultrasound.h> +#elif defined(__FreeBSD__) +# include <machine/ultrasound.h> +#endif + + +/*---------------------------------------------------------------- + * debug message + *----------------------------------------------------------------*/ + +#ifdef AWE_DEBUG_ON +static int debug_mode = 0; +#define DEBUG(LVL,XXX) {if (debug_mode > LVL) { XXX; }} +#define ERRMSG(XXX) {if (debug_mode) { XXX; }} +#define FATALERR(XXX) XXX +#else +#define DEBUG(LVL,XXX) /**/ +#define ERRMSG(XXX) XXX +#define FATALERR(XXX) XXX +#endif + +/*---------------------------------------------------------------- + * bank and voice record + *----------------------------------------------------------------*/ + +/* bank record */ +typedef struct _awe_voice_list { + unsigned char bank, instr; + awe_voice_info v; + struct _awe_voice_list *next_instr; + struct _awe_voice_list *next_bank; +} awe_voice_list; + +/* sample and information table */ +static awe_sample_info *samples; +static awe_voice_list *infos; + +#define AWE_MAX_PRESETS 256 +#define AWE_DEFAULT_BANK 0 + +/* preset table index */ +static awe_voice_list *preset_table[AWE_MAX_PRESETS]; + +/*---------------------------------------------------------------- + * voice table + *----------------------------------------------------------------*/ + +#define AWE_FX_BYTES ((AWE_FX_END+7)/8) + +typedef struct _voice_info { + int state; /* status (on = 1, off = 0) */ + int note; /* midi key (0-127) */ + int velocity; /* midi velocity (0-127) */ + int bender; /* midi pitchbend (-8192 - 8192) */ + int bender_range; /* midi bender range (x100) */ + int panning; /* panning (0-127) */ + int main_vol; /* channel volume (0-127) */ + int expression_vol; /* midi expression (0-127) */ + + /* EMU8000 parameters */ + int apitch; /* pitch parameter */ + int avol; /* volume parameter */ + + /* instrument parameters */ + int bank; /* current tone bank */ + int instr; /* current program */ + awe_voice_list *vrec; + awe_voice_info *sample; + + /* channel effects */ + unsigned char fx_flags[AWE_FX_BYTES]; + short fx[AWE_FX_END]; +} voice_info; + +static voice_info voices[AWE_MAX_VOICES]; + + +/*---------------------------------------------------------------- + * global variables + *----------------------------------------------------------------*/ + +/* awe32 base address (overwritten at initialization) */ +static int awe_base = 0; +/* memory byte size (overwritten at initialization) */ +static long awe_mem_size = 0; + +/* maximum channels for playing */ +static int awe_max_voices = AWE_MAX_VOICES; + +static long free_mem_ptr = 0; /* free word byte size */ +static int free_info = 0; /* free info tables */ +static int last_info = 0; /* last loaded info index */ +static int free_sample = 0; /* free sample tables */ +static int last_sample = 0; /* last loaded sample index */ +static int loaded_once = 0; /* samples are loaded after init? */ +static unsigned short current_sf_id = 0; /* internal id */ + +static int reverb_mode = 0; /* reverb mode */ +static int chorus_mode = 0; /* chorus mode */ +static unsigned short init_atten = 32; /* 12dB */ + +static int awe_present = 0; /* awe device present? */ +static int awe_busy = 0; /* awe device opened? */ + +static int awe_gus_bank = AWE_DEFAULT_BANK; /* GUS default bank number */ + + +static struct synth_info awe_info = { + "AWE32 Synth", /* name */ + 0, /* device */ + SYNTH_TYPE_SAMPLE, /* synth_type */ + SAMPLE_TYPE_AWE32, /* synth_subtype */ + 0, /* perc_mode (obsolete) */ + AWE_MAX_VOICES, /* nr_voices */ + 0, /* nr_drums (obsolete) */ + AWE_MAX_INFOS /* instr_bank_size */ +}; + + +static struct voice_alloc_info *voice_alloc; /* set at initialization */ + + +/*---------------------------------------------------------------- + * function prototypes + *----------------------------------------------------------------*/ + +#ifndef AWE_OBSOLETE_VOXWARE +static int awe_check_port(void); +static void awe_request_region(void); +static void awe_release_region(void); +#endif + +static void awe_reset_samples(void); +/* emu8000 chip i/o access */ +static void awe_poke(unsigned short cmd, unsigned short port, unsigned short data); +static void awe_poke_dw(unsigned short cmd, unsigned short port, unsigned long data); +static unsigned short awe_peek(unsigned short cmd, unsigned short port); +static unsigned long awe_peek_dw(unsigned short cmd, unsigned short port); +static void awe_wait(unsigned short delay); + +/* initialize emu8000 chip */ +static void awe_initialize(void); + +/* set voice parameters */ +static void awe_init_voice_info(awe_voice_info *vp); +static void awe_init_voice_parm(awe_voice_parm *pp); +static int freq_to_note(int freq); +static int calc_rate_offset(int Hz); +/*static int calc_parm_delay(int msec);*/ +static int calc_parm_hold(int msec); +static int calc_parm_attack(int msec); +static int calc_parm_decay(int msec); +static int calc_parm_search(int msec, short *table); + +/* turn on/off note */ +static void awe_note_on(int voice); +static void awe_note_off(int voice); +static void awe_terminate(int voice); +static void awe_exclusive_off(int voice); + +/* calculate voice parameters */ +static void awe_set_pitch(int voice); +static void awe_set_volume(int voice); +static void awe_set_pan(int voice, int forced); +static void awe_fx_fmmod(int voice); +static void awe_fx_tremfrq(int voice); +static void awe_fx_fm2frq2(int voice); +static void awe_fx_cutoff(int voice); +static void awe_fx_initpitch(int voice); +static void awe_calc_pitch(int voice); +static void awe_calc_pitch_from_freq(int voice, int freq); +static void awe_calc_volume(int voice); +static void awe_voice_init(int voice, int inst_only); + +/* sequencer interface */ +static int awe_open(int dev, int mode); +static void awe_close(int dev); +static int awe_ioctl(int dev, unsigned int cmd, caddr_t arg); +static int awe_kill_note(int dev, int voice, int note, int velocity); +static int awe_start_note(int dev, int v, int note_num, int volume); +static int awe_set_instr(int dev, int voice, int instr_no); +static void awe_reset(int dev); +static void awe_hw_control(int dev, unsigned char *event); +static int awe_load_patch(int dev, int format, const char *addr, + int offs, int count, int pmgr_flag); +static void awe_aftertouch(int dev, int voice, int pressure); +static void awe_controller(int dev, int voice, int ctrl_num, int value); +static void awe_panning(int dev, int voice, int value); +static void awe_volume_method(int dev, int mode); +static int awe_patchmgr(int dev, struct patmgr_info *rec); +static void awe_bender(int dev, int voice, int value); +static int awe_alloc(int dev, int chn, int note, struct voice_alloc_info *alloc); +static void awe_setup_voice(int dev, int voice, int chn); + +/* hardware controls */ +static void awe_hw_gus_control(int dev, int cmd, unsigned char *event); +static void awe_hw_awe_control(int dev, int cmd, unsigned char *event); + +/* voice search */ +static awe_voice_info *awe_search_voice(int voice, int note); +static awe_voice_list *awe_search_instr(int bank, int preset); + +/* load / remove patches */ +static void awe_check_loaded(void); +static int awe_load_info(awe_patch_info *patch, const char *addr); +static int awe_load_data(awe_patch_info *patch, const char *addr); +static int awe_load_guspatch(const char *addr, int offs, int size, int pmgr_flag); +static int awe_write_wave_data(const char *addr, long offset, int size); +static awe_voice_list *awe_get_removed_list(awe_voice_list *curp); +static void awe_remove_samples(void); +static short awe_set_sample(awe_voice_info *vp); + +/* lowlevel functions */ +static void awe_init_audio(void); +static void awe_init_dma(void); +static void awe_init_array(void); +static void awe_send_array(unsigned short *data); +static void awe_tweak(void); +static void awe_init_fm(void); +static int awe_open_dram_for_write(int offset); +static int awe_open_dram_for_read(int offset); +static void awe_open_dram_for_check(void); +static void awe_close_dram(void); +static void awe_close_dram_for_read(void); +static void awe_write_dram(unsigned short c); +static int awe_detect(void); +static int awe_check_dram(void); +static void awe_set_chorus_mode(int mode); +static void awe_set_reverb_mode(int mode); + +#ifdef AWE_OBSOLETE_VOXWARE + +#define awe_check_port() 0 /* always false */ +#define awe_request_region() /* nothing */ +#define awe_release_region() /* nothing */ + +#else /* AWE_OBSOLETE_VOXWARE */ + +/* the following macros are osbolete */ + +#define PERMANENT_MALLOC(type,var,size,memptr) \ + var = (type)(sound_mem_blocks[sound_nblocks++] = vmalloc(size)) +#define RET_ERROR(err) -err + +#endif /* AWE_OBSOLETE_VOXWARE */ + + +#ifdef AWE_NEED_DISABLE_INTR +#define DECL_INTR_FLAGS(x) unsigned long x +#else +#undef DISABLE_INTR +#undef RESTORE_INTR +#define DECL_INTR_FLAGS(x) /**/ +#define DISABLE_INTR(x) /**/ +#define RESTORE_INTR(x) /**/ +#endif + + +/* macros for Linux and FreeBSD compatibility */ + +#undef OUTW +#undef COPY_FROM_USER +#undef GET_BYTE_FROM_USER +#undef GET_SHORT_FROM_USER +#undef IOCTL_TO_USER + +#ifdef linux +# define NO_DATA_ERR ENODATA +# define OUTW(data, addr) outw(data, addr) +# define COPY_FROM_USER(target, source, offs, count) \ + memcpy_fromfs( ((caddr_t)(target)),(source)+(offs),(count) ) +# define GET_BYTE_FROM_USER(target, addr, offs) \ + *((char *)&(target)) = get_fs_byte( (addr)+(offs) ) +# define GET_SHORT_FROM_USER(target, addr, offs) \ + *((short *)&(target)) = get_fs_word( (addr)+(offs) ) +# define IOCTL_TO_USER(target, offs, source, count) \ + memcpy_tofs ( ((caddr_t)(target)),(source)+(offs),(count) ) +# define BZERO(target,len) \ + memset( (caddr_t)target, '\0', len ) +# define MEMCPY(dst,src,len) \ + memcpy((caddr_t)dst, (caddr_t)src, len) +#elif defined(__FreeBSD__) +# define NO_DATA_ERR EINVAL +# define OUTW(data, addr) outw(addr, data) +# define COPY_FROM_USER(target, source, offs, count) \ + uiomove( ((caddr_t)(target)),(count),((struct uio *)(source)) ) +# define GET_BYTE_FROM_USER(target, addr, offs) \ + uiomove( ((char*)&(target)), 1, ((struct uio *)(addr)) ) +# define GET_SHORT_FROM_USER(target, addr, offs) \ + uiomove( ((char*)&(target)), 2, ((struct uio *)(addr)) ) +# define IOCTL_TO_USER(target, offs, source, count) \ + memcpy( &((target)[offs]), (source), (count) ) +# define BZERO(target,len) \ + bzero( (caddr_t)target, len ) +# define MEMCPY(dst,src,len) \ + bcopy((caddr_t)src, (caddr_t)dst, len) +#endif + + +/*---------------------------------------------------------------- + * synth operation table + *----------------------------------------------------------------*/ + +static struct synth_operations awe_operations = +{ + &awe_info, + 0, + SYNTH_TYPE_SAMPLE, + SAMPLE_TYPE_AWE32, + awe_open, + awe_close, + awe_ioctl, + awe_kill_note, + awe_start_note, + awe_set_instr, + awe_reset, + awe_hw_control, + awe_load_patch, + awe_aftertouch, + awe_controller, + awe_panning, + awe_volume_method, + awe_patchmgr, + awe_bender, + awe_alloc, + awe_setup_voice +}; + + + +/*================================================================ + * attach / unload interface + *================================================================*/ + +#ifdef AWE_OBSOLETE_VOXWARE +long attach_awe_obsolete(long mem_start, struct address_info *hw_config) +#else +int attach_awe(void) +#endif +{ + /* check presence of AWE32 card */ + if (! awe_detect()) { + printk("AWE32: not detected\n"); + return 0; + } + + /* check AWE32 ports are available */ + if (awe_check_port()) { + printk("AWE32: I/O area already used.\n"); + return 0; + } + + /* allocate sample tables */ + PERMANENT_MALLOC(awe_sample_info *, samples, + AWE_MAX_SAMPLES * sizeof(awe_sample_info), mem_start); + PERMANENT_MALLOC(awe_voice_list *, infos, + AWE_MAX_INFOS * sizeof(awe_voice_list), mem_start); + if (samples == NULL || infos == NULL) { + printk("AWE32: can't allocate sample tables\n"); + return 0; + } + + if (num_synths >= MAX_SYNTH_DEV) + printk("AWE32 Error: too many synthesizers\n"); + else { + voice_alloc = &awe_operations.alloc; + voice_alloc->max_voice = awe_max_voices; + synth_devs[num_synths++] = &awe_operations; + } + + /* reserve I/O ports for awedrv */ + awe_request_region(); + + /* clear all samples */ + awe_reset_samples(); + + /* intialize AWE32 hardware */ + awe_initialize(); + +#if 0 /* Drivers shouldn't be this chatty by default */ + printk("<AWE32 SynthCard (%dk)>\n", (int)awe_mem_size/1024); +#endif + sprintf(awe_info.name, "AWE32 Synth (%dk)", (int)awe_mem_size/1024); + + /* set reverb & chorus modes */ + awe_set_reverb_mode(reverb_mode); + awe_set_chorus_mode(chorus_mode); + + awe_present = 1; + +#ifdef AWE_OBSOLETE_VOXWARE + return mem_start; +#else + return 1; +#endif +} + + +void unload_awe(void) +{ + if (awe_present) { + awe_reset_samples(); + awe_release_region(); + } +} + + +#ifdef AWE_OBSOLETE_VOXWARE +int probe_awe_obsolete(struct address_info *hw_config) +{ + return 1; + /*return awe_detect();*/ +} + +#endif + +/*================================================================ + * clear sample tables + *================================================================*/ + +static void +awe_reset_samples(void) +{ + int i; + + /* free all bank tables */ + for (i = 0; i < AWE_MAX_PRESETS; i++) { + preset_table[i] = NULL; + } + + free_mem_ptr = 0; + last_sample = free_sample = 0; + last_info = free_info = 0; + current_sf_id = 0; + loaded_once = 0; +} + + +/*================================================================ + * EMU register access + *================================================================*/ + +/* select a given AWE32 pointer */ +static int awe_cur_cmd = -1; +#define awe_set_cmd(cmd) \ +if (awe_cur_cmd != cmd) { OUTW(cmd, awe_base + 0x802); awe_cur_cmd = cmd; } +#define awe_port(port) (awe_base - 0x620 + port) + +/* write 16bit data */ +INLINE static void +awe_poke(unsigned short cmd, unsigned short port, unsigned short data) +{ + awe_set_cmd(cmd); + OUTW(data, awe_port(port)); +} + +/* write 32bit data */ +INLINE static void +awe_poke_dw(unsigned short cmd, unsigned short port, unsigned long data) +{ + awe_set_cmd(cmd); + OUTW(data, awe_port(port)); /* write lower 16 bits */ + OUTW(data >> 16, awe_port(port)+2); /* write higher 16 bits */ +} + +/* read 16bit data */ +INLINE static unsigned short +awe_peek(unsigned short cmd, unsigned short port) +{ + unsigned short k; + awe_set_cmd(cmd); + k = inw(awe_port(port)); + return k; +} + +/* read 32bit data */ +INLINE static unsigned long +awe_peek_dw(unsigned short cmd, unsigned short port) +{ + unsigned long k1, k2; + awe_set_cmd(cmd); + k1 = inw(awe_port(port)); + k2 = inw(awe_port(port)+2); + k1 |= k2 << 16; + return k1; +} + +/* wait delay number of AWE32 44100Hz clocks */ +static void +awe_wait(unsigned short delay) +{ + unsigned short clock, target; + unsigned short port = awe_port(AWE_WC_Port); + int counter; + + /* sample counter */ + awe_set_cmd(AWE_WC_Cmd); + clock = (unsigned short)inw(port); + target = clock + delay; + counter = 0; + if (target < clock) { + for (; (unsigned short)inw(port) > target; counter++) + if (counter > 65536) + break; + } + for (; (unsigned short)inw(port) < target; counter++) + if (counter > 65536) + break; +} + + +#ifndef AWE_OBSOLETE_VOXWARE + +/*================================================================ + * port check / request + * 0x620-622, 0xA20-A22, 0xE20-E22 + *================================================================*/ + +static int +awe_check_port(void) +{ + return (check_region(awe_port(Data0), 3) || + check_region(awe_port(Data1), 3) || + check_region(awe_port(Data3), 3)); +} + +static void +awe_request_region(void) +{ + request_region(awe_port(Data0), 3, "sound driver (AWE32)"); + request_region(awe_port(Data1), 3, "sound driver (AWE32)"); + request_region(awe_port(Data3), 3, "sound driver (AWE32)"); +} + +static void +awe_release_region(void) +{ + release_region(awe_port(Data0), 3); + release_region(awe_port(Data1), 3); + release_region(awe_port(Data3), 3); +} + +#endif /* !AWE_OBSOLETE_VOXWARE */ + + +/*================================================================ + * AWE32 initialization + *================================================================*/ +static void +awe_initialize(void) +{ + unsigned short data; + DECL_INTR_FLAGS(flags); + + DEBUG(0,printk("AWE32: initializing..\n")); + DISABLE_INTR(flags); + + /* check for an error condition */ + data = awe_peek(AWE_U1); + if (!(data & 0x000F) == 0x000C) { + FATALERR(printk("AWE32: can't initialize AWE32\n")); + } + + /* initialize hardware configuration */ + awe_poke(AWE_HWCF1, 0x0059); + awe_poke(AWE_HWCF2, 0x0020); + + /* disable audio output */ + awe_poke(AWE_HWCF3, 0x0000); + + /* initialize audio channels */ + awe_init_audio(); + + /* initialize init array */ + awe_init_dma(); + awe_init_array(); + + /* check DRAM memory size */ + awe_mem_size = awe_check_dram(); + + /* initialize the FM section of the AWE32 */ + awe_init_fm(); + + /* set up voice envelopes */ + awe_tweak(); + + /* enable audio */ + awe_poke(AWE_HWCF3, 0x0004); + + data = awe_peek(AWE_HWCF2); + if (~data & 0x40) { + FATALERR(printk("AWE32: Unable to initialize AWE32.\n")); + } + + RESTORE_INTR(flags); +} + + +/*================================================================ + * AWE32 voice parameters + *================================================================*/ + +/* initialize voice_info record */ +static void +awe_init_voice_info(awe_voice_info *vp) +{ + vp->sf_id = 0; + vp->sample = 0; + vp->rate_offset = 0; + + vp->start = 0; + vp->end = 0; + vp->loopstart = 0; + vp->loopend = 0; + vp->mode = 0; + vp->root = 60; + vp->tune = 0; + vp->low = 0; + vp->high = 127; + vp->vellow = 0; + vp->velhigh = 127; + + vp->fixkey = -1; + vp->fixvel = -1; + vp->fixpan = -1; + vp->pan = -1; + + vp->exclusiveClass = 0; + vp->amplitude = 127; + vp->attenuation = 0; + vp->scaleTuning = 100; + + awe_init_voice_parm(&vp->parm); +} + +/* initialize voice_parm record: + * Env1/2: delay=0, attack=0, hold=0, sustain=0, decay=0, release=0. + * Vibrato and Tremolo effects are zero. + * Cutoff is maximum. + * Chorus and Reverb effects are zero. + */ +static void +awe_init_voice_parm(awe_voice_parm *pp) +{ + pp->moddelay = 0x8000; + pp->modatkhld = 0x7f7f; + pp->moddcysus = 0x7f7f; + pp->modrelease = 0x807f; + pp->modkeyhold = 0; + pp->modkeydecay = 0; + + pp->voldelay = 0x8000; + pp->volatkhld = 0x7f7f; + pp->voldcysus = 0x7f7f; + pp->volrelease = 0x807f; + pp->volkeyhold = 0; + pp->volkeydecay = 0; + + pp->lfo1delay = 0x8000; + pp->lfo2delay = 0x8000; + pp->pefe = 0; + + pp->fmmod = 0; + pp->tremfrq = 0; + pp->fm2frq2 = 0; + + pp->cutoff = 0xff; + pp->filterQ = 0; + + pp->chorus = 0; + pp->reverb = 0; +} + + +/* convert frequency mHz to abstract cents (= midi key * 100) */ +static int +freq_to_note(int mHz) +{ + /* abscents = log(mHz/8176) / log(2) * 1200 */ + unsigned long max_val = (unsigned long)0xffffffff / 10000; + int i, times; + unsigned long base; + unsigned long freq; + int note, tune; + + if (mHz == 0) + return 0; + if (mHz < 0) + return 12799; /* maximum */ + + freq = mHz; + note = 0; + for (base = 8176 * 2; freq >= base; base *= 2) { + note += 12; + if (note >= 128) /* over maximum */ + return 12799; + } + base /= 2; + + /* to avoid overflow... */ + times = 10000; + while (freq > max_val) { + max_val *= 10; + times /= 10; + base /= 10; + } + + freq = freq * times / base; + for (i = 0; i < 12; i++) { + if (freq < semitone_tuning[i+1]) + break; + note++; + } + + tune = 0; + freq = freq * 10000 / semitone_tuning[i]; + for (i = 0; i < 100; i++) { + if (freq < cent_tuning[i+1]) + break; + tune++; + } + + return note * 100 + tune; +} + + +/* convert Hz to AWE32 rate offset: + * sample pitch offset for the specified sample rate + * rate=44100 is no offset, each 4096 is 1 octave (twice). + * eg, when rate is 22050, this offset becomes -4096. + */ +static int +calc_rate_offset(int Hz) +{ + /* offset = log(Hz / 44100) / log(2) * 4096 */ + int freq, base, i; + + /* maybe smaller than max (44100Hz) */ + if (Hz <= 0 || Hz >= 44100) return 0; + + base = 0; + for (freq = Hz * 2; freq < 44100; freq *= 2) + base++; + base *= 1200; + + freq = 44100 * 10000 / (freq/2); + for (i = 0; i < 12; i++) { + if (freq < semitone_tuning[i+1]) + break; + base += 100; + } + freq = freq * 10000 / semitone_tuning[i]; + for (i = 0; i < 100; i++) { + if (freq < cent_tuning[i+1]) + break; + base++; + } + return -base * 4096 / 1200; +} + + +/*---------------------------------------------------------------- + * convert envelope time parameter to AWE32 raw parameter + *----------------------------------------------------------------*/ + +/* attack & decay/release time table (mHz) */ +static short attack_time_tbl[128] = { +32767, 5939, 3959, 2969, 2375, 1979, 1696, 1484, 1319, 1187, 1079, 989, 913, 848, 791, 742, + 698, 659, 625, 593, 565, 539, 516, 494, 475, 456, 439, 424, 409, 395, 383, 371, + 359, 344, 330, 316, 302, 290, 277, 266, 255, 244, 233, 224, 214, 205, 196, 188, + 180, 173, 165, 158, 152, 145, 139, 133, 127, 122, 117, 112, 107, 103, 98, 94, + 90, 86, 83, 79, 76, 73, 69, 67, 64, 61, 58, 56, 54, 51, 49, 47, + 45, 43, 41, 39, 38, 36, 35, 33, 32, 30, 29, 28, 27, 25, 24, 23, + 22, 21, 20, 20, 19, 18, 17, 16, 16, 15, 14, 14, 13, 13, 12, 11, + 11, 10, 10, 10, 9, 9, 8, 8, 8, 7, 7, 7, 6, 6, 6, 0, +}; + +static short decay_time_tbl[128] = { +32767, 3651, 3508, 3371, 3239, 3113, 2991, 2874, 2761, 2653, 2550, 2450, 2354, 2262, 2174, 2089, + 2007, 1928, 1853, 1781, 1711, 1644, 1580, 1518, 1459, 1401, 1347, 1294, 1243, 1195, 1148, 1103, + 1060, 1018, 979, 940, 904, 868, 834, 802, 770, 740, 711, 683, 657, 631, 606, 582, + 560, 538, 517, 496, 477, 458, 440, 423, 407, 391, 375, 361, 347, 333, 320, 307, + 295, 284, 273, 262, 252, 242, 232, 223, 215, 206, 198, 190, 183, 176, 169, 162, + 156, 150, 144, 138, 133, 128, 123, 118, 113, 109, 104, 100, 96, 93, 89, 85, + 82, 79, 76, 73, 70, 67, 64, 62, 60, 57, 55, 53, 51, 49, 47, 45, + 43, 41, 40, 38, 37, 35, 34, 32, 31, 30, 29, 28, 27, 25, 24, 0, +}; + +/* +static int +calc_parm_delay(int msec) +{ + return (0x8000 - msec * 1000 / 725); +} +*/ + +static int +calc_parm_hold(int msec) +{ + int val = 0x7f - (unsigned char)(msec / 92); + if (val < 1) val = 1; + if (val > 127) val = 127; + return val; +} + +static int +calc_parm_attack(int msec) +{ + return calc_parm_search(msec, attack_time_tbl); +} + +static int +calc_parm_decay(int msec) +{ + return calc_parm_search(msec, decay_time_tbl); +} + +static int +calc_parm_search(int msec, short *table) +{ + int left = 0, right = 127, mid; + while (left < right) { + mid = (left + right) / 2; + if (msec < (int)table[mid]) + left = mid + 1; + else + right = mid; + } + return left; +} + + +/*================================================================ + * effects table + *================================================================*/ + +/* set an effect value */ +#define FX_SET(v,type,value) \ +(voices[v].fx_flags[(type)/8] |= (1<<((type)%8)),\ + voices[v].fx[type] = (value)) +/* check the effect value is set */ +#define FX_ON(v,type) (voices[v].fx_flags[(type)/8] & (1<<((type)%8))) + +#if 0 +#define FX_BYTE(v,type,value)\ + (FX_ON(v,type) ? (unsigned char)voices[v].fx[type] :\ + (unsigned char)(value)) +#define FX_WORD(v,type,value)\ + (FX_ON(v,type) ? (unsigned short)voices[v].fx[type] :\ + (unsigned short)(value)) + +#else + +/* get byte effect value */ +static unsigned char FX_BYTE(int v, int type, unsigned char value) +{ + unsigned char tmp; + if (FX_ON(v,type)) + tmp = (unsigned char)voices[v].fx[type]; + else + tmp = value; + DEBUG(4,printk("AWE32: [-- byte(%d) = %x]\n", type, tmp)); + return tmp; +} + +/* get word effect value */ +static unsigned short FX_WORD(int v, int type, unsigned short value) +{ + unsigned short tmp; + if (FX_ON(v,type)) + tmp = (unsigned short)voices[v].fx[type]; + else + tmp = value; + DEBUG(4,printk("AWE32: [-- word(%d) = %x]\n", type, tmp)); + return tmp; +} + +#endif + +/* get word (upper=type1/lower=type2) effect value */ +static unsigned short FX_COMB(int v, int type1, int type2, unsigned short value) +{ + unsigned short tmp; + if (FX_ON(v, type1)) + tmp = (unsigned short)(voices[v].fx[type1]) << 8; + else + tmp = value & 0xff00; + if (FX_ON(v, type2)) + tmp |= (unsigned short)(voices[v].fx[type2]) & 0xff; + else + tmp |= value & 0xff; + DEBUG(4,printk("AWE32: [-- comb(%d/%d) = %x]\n", type1, type2, tmp)); + return tmp; +} + +/* address offset */ +static long +FX_OFFSET(int voice, int lo, int hi) +{ + awe_voice_info *vp; + long addr; + if ((vp = voices[voice].sample) == NULL || vp->index < 0) + return 0; + + addr = 0; + if (FX_ON(voice, hi)) { + addr = (short)voices[voice].fx[hi]; + addr = addr << 15; + } + if (FX_ON(voice, lo)) + addr += (short)voices[voice].fx[lo]; + if (!(vp->mode & (AWE_SAMPLE_8BITS<<6))) + addr /= 2; + return addr; +} + +/* converter function table for realtime paramter change */ + +typedef void (*fx_affect_func)(int voice); +static fx_affect_func fx_realtime[] = { + /* env1: delay, attack, hold, decay, release, sustain, pitch, cutoff*/ + NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, + /* env2: delay, attack, hold, decay, release, sustain */ + NULL, NULL, NULL, NULL, NULL, NULL, + /* lfo1: delay, freq, volume, pitch, cutoff */ + NULL, awe_fx_tremfrq, awe_fx_tremfrq, awe_fx_fmmod, awe_fx_fmmod, + /* lfo2: delay, freq, pitch */ + NULL, awe_fx_fm2frq2, awe_fx_fm2frq2, + /* global: initpitch, chorus, reverb, cutoff, filterQ */ + awe_fx_initpitch, NULL, NULL, awe_fx_cutoff, NULL, + /* sample: start, loopstart, loopend */ + NULL, NULL, NULL, +}; + + +/*================================================================ + * turn on/off sample + *================================================================*/ + +static void +awe_note_on(int voice) +{ + unsigned long temp; + long addr; + unsigned short tmp2; + awe_voice_info *vp; + + /* A voice sample must assigned before calling */ + if ((vp = voices[voice].sample) == NULL || vp->index < 0) + return; + + /* channel to be silent and idle */ + awe_poke(AWE_DCYSUSV(voice), 0x0080); + awe_poke(AWE_VTFT(voice), 0); + awe_poke(AWE_CVCF(voice), 0); + awe_poke(AWE_PTRX(voice), 0); + awe_poke(AWE_CPF(voice), 0); + + /* modulation & volume envelope */ + awe_poke(AWE_ENVVAL(voice), + FX_WORD(voice, AWE_FX_ENV1_DELAY, vp->parm.moddelay)); + awe_poke(AWE_ATKHLD(voice), + FX_COMB(voice, AWE_FX_ENV1_ATTACK, AWE_FX_ENV1_HOLD, + vp->parm.modatkhld)); + awe_poke(AWE_DCYSUS(voice), + FX_COMB(voice, AWE_FX_ENV1_SUSTAIN, AWE_FX_ENV1_DECAY, + vp->parm.moddcysus)); + awe_poke(AWE_ENVVOL(voice), + FX_WORD(voice, AWE_FX_ENV2_DELAY, vp->parm.voldelay)); + awe_poke(AWE_ATKHLDV(voice), + FX_COMB(voice, AWE_FX_ENV2_ATTACK, AWE_FX_ENV2_HOLD, + vp->parm.volatkhld)); + /* decay/sustain parameter for volume envelope must be set at last */ + + /* pitch offset */ + awe_poke(AWE_IP(voice), voices[voice].apitch); + DEBUG(3,printk("AWE32: [-- pitch=%x]\n", voices[voice].apitch)); + + /* cutoff and volume */ + tmp2 = FX_BYTE(voice, AWE_FX_CUTOFF, vp->parm.cutoff); + tmp2 = (tmp2 << 8) | voices[voice].avol; + awe_poke(AWE_IFATN(voice), tmp2); + + /* modulation envelope heights */ + awe_poke(AWE_PEFE(voice), + FX_COMB(voice, AWE_FX_ENV1_PITCH, AWE_FX_ENV1_CUTOFF, + vp->parm.pefe)); + + /* lfo1/2 delay */ + awe_poke(AWE_LFO1VAL(voice), + FX_WORD(voice, AWE_FX_LFO1_DELAY, vp->parm.lfo1delay)); + awe_poke(AWE_LFO2VAL(voice), + FX_WORD(voice, AWE_FX_LFO2_DELAY, vp->parm.lfo2delay)); + + /* lfo1 pitch & cutoff shift */ + awe_poke(AWE_FMMOD(voice), + FX_COMB(voice, AWE_FX_LFO1_PITCH, AWE_FX_LFO1_CUTOFF, + vp->parm.fmmod)); + /* lfo1 volume & freq */ + awe_poke(AWE_TREMFRQ(voice), + FX_COMB(voice, AWE_FX_LFO1_VOLUME, AWE_FX_LFO1_FREQ, + vp->parm.tremfrq)); + /* lfo2 pitch & freq */ + awe_poke(AWE_FM2FRQ2(voice), + FX_COMB(voice, AWE_FX_LFO2_PITCH, AWE_FX_LFO2_FREQ, + vp->parm.fm2frq2)); + + /* pan & loop start */ + awe_set_pan(voice, 1); + + /* chorus & loop end (chorus 8bit, MSB) */ + addr = vp->loopend - 1; + addr += FX_OFFSET(voice, AWE_FX_LOOP_END, + AWE_FX_COARSE_LOOP_END); + temp = FX_BYTE(voice, AWE_FX_CHORUS, vp->parm.chorus); + temp = (temp <<24) | (unsigned long)addr; + awe_poke_dw(AWE_CSL(voice), temp); + + /* Q & current address (Q 4bit value, MSB) */ + addr = vp->start - 1; + addr += FX_OFFSET(voice, AWE_FX_SAMPLE_START, + AWE_FX_COARSE_SAMPLE_START); + temp = FX_BYTE(voice, AWE_FX_FILTERQ, vp->parm.filterQ); + temp = (temp<<28) | (unsigned long)addr; + awe_poke_dw(AWE_CCCA(voice), temp); + + /* reset volume */ + awe_poke_dw(AWE_VTFT(voice), 0x0000FFFF); + awe_poke_dw(AWE_CVCF(voice), 0x0000FFFF); + + /* turn on envelope */ + awe_poke(AWE_DCYSUSV(voice), + FX_COMB(voice, AWE_FX_ENV2_SUSTAIN, AWE_FX_ENV2_DECAY, + vp->parm.voldcysus)); + /* set chorus */ + temp = FX_BYTE(voice, AWE_FX_REVERB, vp->parm.reverb); + temp = (awe_peek_dw(AWE_PTRX(voice)) & 0xffff0000) | (temp<<8); + awe_poke_dw(AWE_PTRX(voice), temp); + awe_poke_dw(AWE_CPF(voice), 0x40000000); + + DEBUG(3,printk("AWE32: [-- start=%x loop=%x]\n", + (int)vp->start, (int)vp->loopstart)); +} + +/* turn off the voice */ +static void +awe_note_off(int voice) +{ + awe_voice_info *vp; + unsigned short tmp; + if ((vp = voices[voice].sample) == NULL || !voices[voice].state) + return; + if (FX_ON(voice, AWE_FX_ENV1_RELEASE)) + tmp = 0x8000 | voices[voice].fx[AWE_FX_ENV1_RELEASE]; + else + tmp = vp->parm.modrelease; + awe_poke(AWE_DCYSUS(voice), tmp); + if (FX_ON(voice, AWE_FX_ENV2_RELEASE)) + tmp = 0x8000 | voices[voice].fx[AWE_FX_ENV2_RELEASE]; + else + tmp = vp->parm.volrelease; + awe_poke(AWE_DCYSUSV(voice), tmp); +} + +/* force to terminate the voice (no releasing echo) */ +static void +awe_terminate(int voice) +{ + awe_poke(AWE_DCYSUSV(voice), 0x807F); +} + + +/* turn off other voices with the same exclusive class (for drums) */ +static void +awe_exclusive_off(int voice) +{ + int i, excls; + + if (voices[voice].sample == NULL) /* no sample */ + return; + excls = voices[voice].sample->exclusiveClass; + if (excls == 0) /* not exclusive */ + return; + + /* turn off voices with the same class */ + for (i = 0; i < awe_max_voices; i++) { + if (i != voice && voices[voice].state && + voices[i].sample && + voices[i].sample->exclusiveClass == excls) { + DEBUG(4,printk("AWE32: [exoff(%d)]\n", i)); + awe_note_off(i); + awe_voice_init(i, 1); + } + } +} + + +/*================================================================ + * change the parameters of an audible voice + *================================================================*/ + +/* change pitch */ +static void +awe_set_pitch(int voice) +{ + if (!voices[voice].state) return; + awe_poke(AWE_IP(voice), voices[voice].apitch); +} + +/* change volume */ +static void +awe_set_volume(int voice) +{ + awe_voice_info *vp; + unsigned short tmp2; + if (!voices[voice].state) return; + if ((vp = voices[voice].sample) == NULL || vp->index < 0) + return; + tmp2 = FX_BYTE(voice, AWE_FX_CUTOFF, vp->parm.cutoff); + tmp2 = (tmp2 << 8) | voices[voice].avol; + awe_poke(AWE_IFATN(voice), tmp2); +} + +/* change pan; this could make a click noise.. */ +static void +awe_set_pan(int voice, int forced) +{ + unsigned long temp; + long addr; + awe_voice_info *vp; + + if (!voices[voice].state && !forced) return; + if ((vp = voices[voice].sample) == NULL || vp->index < 0) + return; + + /* pan & loop start (pan 8bit, MSB, 0:right, 0xff:left) */ + if (vp->fixpan > 0) /* 0-127 */ + temp = 255 - (int)vp->fixpan * 2; + else { + int pos = 0; + if (vp->pan >= 0) /* 0-127 */ + pos = (int)vp->pan * 2 - 128; + pos += voices[voice].panning; /* -128 - 127 */ + pos = 127 - pos; + if (pos < 0) + temp = 0; + else if (pos > 255) + temp = 255; + else + temp = pos; + } + addr = vp->loopstart - 1; + addr += FX_OFFSET(voice, AWE_FX_LOOP_START, + AWE_FX_COARSE_LOOP_START); + temp = (temp<<24) | (unsigned long)addr; + awe_poke_dw(AWE_PSST(voice), temp); +} + +/* effects change during playing */ +static void +awe_fx_fmmod(int voice) +{ + awe_voice_info *vp; + if (!voices[voice].state) return; + if ((vp = voices[voice].sample) == NULL || vp->index < 0) + return; + awe_poke(AWE_FMMOD(voice), + FX_COMB(voice, AWE_FX_LFO1_PITCH, AWE_FX_LFO1_CUTOFF, + vp->parm.fmmod)); +} + +static void +awe_fx_tremfrq(int voice) +{ + awe_voice_info *vp; + if (!voices[voice].state) return; + if ((vp = voices[voice].sample) == NULL || vp->index < 0) + return; + awe_poke(AWE_TREMFRQ(voice), + FX_COMB(voice, AWE_FX_LFO1_VOLUME, AWE_FX_LFO1_FREQ, + vp->parm.tremfrq)); +} + +static void +awe_fx_fm2frq2(int voice) +{ + awe_voice_info *vp; + if (!voices[voice].state) return; + if ((vp = voices[voice].sample) == NULL || vp->index < 0) + return; + awe_poke(AWE_FM2FRQ2(voice), + FX_COMB(voice, AWE_FX_LFO2_PITCH, AWE_FX_LFO2_FREQ, + vp->parm.fm2frq2)); +} + +static void +awe_fx_cutoff(int voice) +{ + unsigned short tmp2; + awe_voice_info *vp; + if (!voices[voice].state) return; + if ((vp = voices[voice].sample) == NULL || vp->index < 0) + return; + tmp2 = FX_BYTE(voice, AWE_FX_CUTOFF, vp->parm.cutoff); + tmp2 = (tmp2 << 8) | voices[voice].avol; + awe_poke(AWE_IFATN(voice), tmp2); +} + +static void +awe_fx_initpitch(int voice) +{ + if (!voices[voice].state) return; + if (FX_ON(voice, AWE_FX_INIT_PITCH)) { + DEBUG(3,printk("AWE32: initpitch ok\n")); + } else { + DEBUG(3,printk("AWE32: BAD initpitch %d\n", AWE_FX_INIT_PITCH)); + } + awe_calc_pitch(voice); + awe_poke(AWE_IP(voice), voices[voice].apitch); +} + + +/*================================================================ + * calculate pitch offset + *---------------------------------------------------------------- + * 0xE000 is no pitch offset at 44100Hz sample. + * Every 4096 is one octave. + *================================================================*/ + +static void +awe_calc_pitch(int voice) +{ + voice_info *vp = &voices[voice]; + awe_voice_info *ap; + int offset; + + /* search voice information */ + if ((ap = vp->sample) == NULL) + return; + if (ap->index < 0) { + if (awe_set_sample(ap) < 0) + return; + } + + /* calculate offset */ + if (ap->fixkey >= 0) { + DEBUG(3,printk("AWE32: p-> fixkey(%d) tune(%d)\n", ap->fixkey, ap->tune)); + offset = (ap->fixkey - ap->root) * 4096 / 12; + } else { + DEBUG(3,printk("AWE32: p(%d)-> root(%d) tune(%d)\n", vp->note, ap->root, ap->tune)); + offset = (vp->note - ap->root) * 4096 / 12; + DEBUG(4,printk("AWE32: p-> ofs=%d\n", offset)); + } + offset += ap->tune * 4096 / 1200; + DEBUG(4,printk("AWE32: p-> tune+ ofs=%d\n", offset)); + if (vp->bender != 0) { + DEBUG(3,printk("AWE32: p-> bend(%d) %d\n", voice, vp->bender)); + /* (819200: 1 semitone) ==> (4096: 12 semitones) */ + offset += vp->bender * vp->bender_range / 2400; + } + offset = (offset * ap->scaleTuning) / 100; + DEBUG(4,printk("AWE32: p-> scale* ofs=%d\n", offset)); + + /* add initial pitch correction */ + if (FX_ON(voice, AWE_FX_INIT_PITCH)) { + DEBUG(3,printk("AWE32: fx_pitch(%d) %d\n", voice, vp->fx[AWE_FX_INIT_PITCH])); + offset += vp->fx[AWE_FX_INIT_PITCH]; + } + + /* 0xe000: root pitch */ + vp->apitch = 0xe000 + ap->rate_offset + offset; + DEBUG(4,printk("AWE32: p-> sum aofs=%x, rate_ofs=%d\n", vp->apitch, ap->rate_offset)); + if (vp->apitch > 0xffff) + vp->apitch = 0xffff; + if (vp->apitch < 0) + vp->apitch = 0; +} + + +static void +awe_calc_pitch_from_freq(int voice, int freq) +{ + voice_info *vp = &voices[voice]; + awe_voice_info *ap; + int offset; + int note; + + /* search voice information */ + if ((ap = vp->sample) == NULL) + return; + if (ap->index < 0) { + if (awe_set_sample(ap) < 0) + return; + } + note = freq_to_note(freq); + offset = (note - ap->root * 100 + ap->tune) * 4096 / 1200; + offset = (offset * ap->scaleTuning) / 100; + if (FX_ON(voice, AWE_FX_INIT_PITCH)) + offset += vp->fx[AWE_FX_INIT_PITCH]; + vp->apitch = 0xe000 + ap->rate_offset + offset; + if (vp->apitch > 0xffff) + vp->apitch = 0xffff; + if (vp->apitch < 0) + vp->apitch = 0; +} + +/*================================================================ + * calculate volume attenuation + *---------------------------------------------------------------- + * Voice volume is controlled by volume attenuation parameter. + * So volume becomes maximum when avol is 0 (no attenuation), and + * minimum when 255 (-96dB or silence). + *================================================================*/ + +static int vol_table[128] = { + 255,111,95,86,79,74,70,66,63,61,58,56,54,52,50,49, + 47,46,45,43,42,41,40,39,38,37,36,35,34,34,33,32, + 31,31,30,29,29,28,27,27,26,26,25,24,24,23,23,22, + 22,21,21,21,20,20,19,19,18,18,18,17,17,16,16,16, + 15,15,15,14,14,14,13,13,13,12,12,12,11,11,11,10, + 10,10,10,9,9,9,8,8,8,8,7,7,7,7,6,6, + 6,6,5,5,5,5,5,4,4,4,4,3,3,3,3,3, + 2,2,2,2,2,1,1,1,1,1,0,0,0,0,0,0, +}; + +static void +awe_calc_volume(int voice) +{ + voice_info *vp = &voices[voice]; + awe_voice_info *ap; + int vol; + + /* search voice information */ + if ((ap = vp->sample) == NULL) + return; + + ap = vp->sample; + if (ap->index < 0) { + if (awe_set_sample(ap) < 0) + return; + } + + if (vp->velocity < ap->vellow) + vp->velocity = ap->vellow; + else if (vp->velocity > ap->velhigh) + vp->velocity = ap->velhigh; + + /* 0 - 127 */ + vol = (vp->velocity * vp->main_vol * vp->expression_vol) / (127*127); + vol = vol * ap->amplitude / 127; + if (vol < 0) vol = 0; + if (vol > 127) vol = 127; + + /* calc to attenuation */ + vol = vol_table[vol]; + vol = vol + (int)ap->attenuation + init_atten; + if (vol > 255) vol = 255; + + vp->avol = vol; + DEBUG(3,printk("AWE32: [-- voice(%d) vol=%x]\n", voice, vol)); +} + + +/*================================================================ + * synth operation routines + *================================================================*/ + +/* initialize the voice */ +static void +awe_voice_init(int voice, int inst_only) +{ + if (! inst_only) { + /* clear voice parameters */ + voices[voice].note = -1; + voices[voice].velocity = 0; + voices[voice].panning = 0; /* zero center */ + voices[voice].bender = 0; /* zero tune skew */ + voices[voice].bender_range = 200; /* sense * 100 */ + voices[voice].main_vol = 127; + voices[voice].expression_vol = 127; + voices[voice].bank = AWE_DEFAULT_BANK; + voices[voice].instr = -1; + voices[voice].vrec = NULL; + voices[voice].sample = NULL; + } + + /* clear voice mapping */ + voices[voice].state = 0; + voice_alloc->map[voice] = 0; + + /* emu8000 parameters */ + voices[voice].apitch = 0; + voices[voice].avol = 255; + + /* clear effects */ + BZERO(voices[voice].fx_flags, sizeof(voices[voice].fx_flags)); +} + + +/*---------------------------------------------------------------- + * device open / close + *----------------------------------------------------------------*/ + +/* open device: + * reset status of all voices, and clear sample position flag + */ +static int +awe_open(int dev, int mode) +{ + if (awe_busy) + return RET_ERROR(EBUSY); + + awe_busy = 1; + awe_reset(dev); + + /* clear sample position flag */ + loaded_once = 0; + + /* set GUS bank to default */ + awe_gus_bank = AWE_DEFAULT_BANK; + return 0; +} + + +/* close device: + * reset all voices again (terminate sounds) + */ +static void +awe_close(int dev) +{ + awe_reset(dev); + awe_busy = 0; +} + + +/* sequencer I/O control: + */ +static int +awe_ioctl(int dev, unsigned int cmd, caddr_t arg) +{ + switch (cmd) { + case SNDCTL_SYNTH_INFO: + awe_info.nr_voices = awe_max_voices; + IOCTL_TO_USER((char*)arg, 0, &awe_info, sizeof(awe_info)); + return 0; + break; + + case SNDCTL_SEQ_RESETSAMPLES: + awe_reset_samples(); + awe_reset(dev); /* better to reset emu8k chip... */ + return 0; + break; + + case SNDCTL_SEQ_PERCMODE: + /* what's this? */ + return 0; + break; + + case SNDCTL_SYNTH_MEMAVL: + DEBUG(0,printk("AWE32: [ioctl memavl = %d]\n", (int)free_mem_ptr)); + return awe_mem_size - free_mem_ptr*2; + + default: + ERRMSG(printk("AWE32: unsupported ioctl %d\n", cmd)); + return RET_ERROR(EINVAL); + } +} + + +/* kill a voice: + * not terminate, just release the voice. + */ +static int +awe_kill_note(int dev, int voice, int note, int velocity) +{ + awe_voice_info *vp; + DECL_INTR_FLAGS(flags); + + DEBUG(2,printk("AWE32: [off(%d)]\n", voice)); + if (voice < 0 || voice >= awe_max_voices) + return RET_ERROR(EINVAL); + if ((vp = voices[voice].sample) == NULL) + return 0; + + if (!(vp->mode & AWE_MODE_NORELEASE)) { + DISABLE_INTR(flags); + awe_note_off(voice); + RESTORE_INTR(flags); + } + awe_voice_init(voice, 1); + return 0; +} + + +/* search the note with the specified key range */ +static awe_voice_info * +awe_search_voice(int voice, int note) +{ + awe_voice_list *rec; + int maxc; + + for (rec = voices[voice].vrec, maxc = AWE_MAX_INFOS; + rec && maxc; rec = rec->next_instr, maxc--) { + if (rec->v.low <= note && note <= rec->v.high) + return &rec->v; + } + return NULL; +} + +/* start a voice: + * if note is 255, identical with aftertouch function. + * Otherwise, start a voice with specified not and volume. + */ +static int +awe_start_note(int dev, int v, int note_num, int volume) +{ + DECL_INTR_FLAGS(flags); + + DEBUG(2,printk("AWE32: [on(%d) nt=%d vl=%d]\n", v, note_num, volume)); + if (v < 0 || v >= awe_max_voices) + return RET_ERROR(EINVAL); + /* an instrument must be set before starting a note */ + if (voices[v].vrec == NULL) { + DEBUG(1,printk("AWE32: [-- vrec is null]\n")); + return 0; + } + + if (note_num == 255) { + /* dynamic volume change; sample is already assigned */ + if (! voices[v].state || voices[v].sample == NULL) + return 0; + /* calculate volume parameter */ + voices[v].velocity = volume; + awe_calc_volume(v); + DISABLE_INTR(flags); + awe_set_volume(v); + RESTORE_INTR(flags); + return 0; + } + /* assign a sample with the corresponding note */ + if ((voices[v].sample = awe_search_voice(v, note_num)) == NULL) { + DEBUG(1,printk("AWE32: [-- sample is null]\n")); + return 0; + } + /* calculate pitch & volume parameters */ + voices[v].note = note_num; + voices[v].velocity = volume; + awe_calc_pitch(v); + awe_calc_volume(v); + + DISABLE_INTR(flags); + /* turn off other voices (for drums) */ + awe_exclusive_off(v); + /* turn on the voice */ + awe_note_on(v); + voices[v].state = 1; /* flag up */ + RESTORE_INTR(flags); + + return 0; +} + + +/* search instrument from preset table with the specified bank */ +static awe_voice_list * +awe_search_instr(int bank, int preset) +{ + awe_voice_list *p; + int maxc; + + for (maxc = AWE_MAX_INFOS, p = preset_table[preset]; + p && maxc; p = p->next_bank, maxc--) { + if (p->bank == bank) + return p; + } + return NULL; +} + + +/* assign the instrument to a voice */ +static int +awe_set_instr(int dev, int voice, int instr_no) +{ + awe_voice_list *rec; + + if (voice < 0 || voice >= awe_max_voices) + return RET_ERROR(EINVAL); + + if (instr_no < 0 || instr_no >= AWE_MAX_PRESETS) + return RET_ERROR(EINVAL); + + if ((rec = awe_search_instr(voices[voice].bank, instr_no)) == NULL) { + /* if bank is not defined, use the default bank 0 */ + if (voices[voice].bank != AWE_DEFAULT_BANK && + (rec = awe_search_instr(AWE_DEFAULT_BANK, instr_no)) == NULL) { + DEBUG(1,printk("AWE32 Warning: can't find instrument %d\n", instr_no)); + return 0; + } + } + + voices[voice].instr = instr_no; + voices[voice].vrec = rec; + voices[voice].sample = NULL; /* not set yet */ + + return 0; +} + + +/* reset all voices; terminate sounds and initialize parameters */ +static void +awe_reset(int dev) +{ + int i; + /* don't turn off voice 31 and 32. they are used also for FM voices */ + for (i = 0; i < AWE_NORMAL_VOICES; i++) { + awe_terminate(i); + awe_voice_init(i, 0); + } + awe_init_fm(); + awe_tweak(); +} + + +/* hardware specific control: + * GUS specific and AWE32 specific controls are available. + */ +static void +awe_hw_control(int dev, unsigned char *event) +{ + int cmd = event[2]; + if (cmd & _AWE_MODE_FLAG) + awe_hw_awe_control(dev, cmd & _AWE_MODE_VALUE_MASK, event); + else + awe_hw_gus_control(dev, cmd & _AWE_MODE_VALUE_MASK, event); +} + +/* GUS compatible controls */ +static void +awe_hw_gus_control(int dev, int cmd, unsigned char *event) +{ + int voice; + unsigned short p1; + short p2; + int plong; + DECL_INTR_FLAGS(flags); + + voice = event[3]; + p1 = *(unsigned short *) &event[4]; + p2 = *(short *) &event[6]; + plong = *(int*) &event[4]; + + switch (cmd) { + case _GUS_NUMVOICES: + if (p1 >= awe_max_voices) + printk("AWE32: num_voices: voices out of range %d\n", p1); + break; + case _GUS_VOICESAMPLE: + if (voice < awe_max_voices) + awe_set_instr(dev, voice, p1); + break; + + case _GUS_VOICEON: + if (voice < awe_max_voices) { + DISABLE_INTR(flags); + awe_note_on(voice); + RESTORE_INTR(flags); + } + break; + + case _GUS_VOICEOFF: + if (voice < awe_max_voices) { + DISABLE_INTR(flags); + awe_note_off(voice); + RESTORE_INTR(flags); + } + break; + + case _GUS_VOICEMODE: + /* not supported */ + break; + + case _GUS_VOICEBALA: + /* -128 to 127 */ + if (voice < awe_max_voices) + awe_panning(dev, voice, (short)p1); + break; + + case _GUS_VOICEFREQ: + if (voice < awe_max_voices) + awe_calc_pitch_from_freq(voice, plong); + break; + + case _GUS_VOICEVOL: + case _GUS_VOICEVOL2: + /* not supported yet */ + break; + + case _GUS_RAMPRANGE: + case _GUS_RAMPRATE: + case _GUS_RAMPMODE: + case _GUS_RAMPON: + case _GUS_RAMPOFF: + /* volume ramping not supported */ + break; + + case _GUS_VOLUME_SCALE: + break; + + case _GUS_VOICE_POS: + if (voice < awe_max_voices) { + FX_SET(voice, AWE_FX_SAMPLE_START, (short)(plong & 0x7fff)); + FX_SET(voice, AWE_FX_COARSE_SAMPLE_START, (plong >> 15) & 0xffff); + } + break; + } +} + + +/* AWE32 specific controls */ +static void +awe_hw_awe_control(int dev, int cmd, unsigned char *event) +{ + int voice; + unsigned short p1; + short p2; + int chn; + + chn = event[1]; + voice = event[3]; + p1 = *(unsigned short *) &event[4]; + p2 = *(short *) &event[6]; + + +#ifdef AWE_DEBUG_ON + switch (cmd) { + case _AWE_DEBUG_MODE: + debug_mode = p1; + printk("AWE32: debug mode = %d\n", debug_mode); + break; +#endif + case _AWE_REVERB_MODE: + if (p1 <= 7) { + reverb_mode = p1; + DEBUG(0,printk("AWE32: reverb mode %d\n", reverb_mode)); + awe_set_reverb_mode(reverb_mode); + } + break; + + case _AWE_CHORUS_MODE: + if (p1 <= 7) { + chorus_mode = p1; + DEBUG(0,printk("AWE32: chorus mode %d\n", chorus_mode)); + awe_set_chorus_mode(chorus_mode); + } + break; + + case _AWE_REMOVE_LAST_SAMPLES: + DEBUG(0,printk("AWE32: remove last samples\n")); + awe_remove_samples(); + break; + + case _AWE_INITIALIZE_CHIP: + awe_initialize(); + break; + + case _AWE_SEND_EFFECT: + if (voice < awe_max_voices && p1 < AWE_FX_END) { + FX_SET(voice, p1, p2); + DEBUG(0,printk("AWE32: effects (%d) %d %d\n", voice, p1, voices[voice].fx[p1])); + if (fx_realtime[p1]) { + DEBUG(0,printk("AWE32: fx_realtime (%d)\n", voice)); + fx_realtime[p1](voice); + } + } + break; + + case _AWE_TERMINATE_CHANNEL: + if (voice < awe_max_voices) { + DEBUG(0,printk("AWE32: terminate (%d)\n", voice)); + awe_terminate(voice); + awe_voice_init(voice, 1); + } + break; + + case _AWE_TERMINATE_ALL: + DEBUG(0,printk("AWE32: terminate all\n")); + awe_reset(0); + break; + + case _AWE_INITIAL_VOLUME: + DEBUG(0,printk("AWE32: init attenuation %d\n", p1)); + init_atten = p1; + break; + + case _AWE_SET_GUS_BANK: + DEBUG(0,printk("AWE32: set gus bank %d\n", p1)); + awe_gus_bank = p1; + break; + + default: + DEBUG(0,printk("AWE32: hw control cmd=%d voice=%d\n", cmd, voice)); + break; + } +} + + +/*---------------------------------------------------------------- + * load a sound patch: + * three types of patches are accepted: AWE, GUS, and SYSEX. + *----------------------------------------------------------------*/ + +static int +awe_load_patch(int dev, int format, const char *addr, + int offs, int count, int pmgr_flag) +{ + awe_patch_info patch; + int rc = 0; + + if (format == GUS_PATCH) { + return awe_load_guspatch(addr, offs, count, pmgr_flag); + } else if (format == SYSEX_PATCH) { + /* no system exclusive message supported yet */ + return 0; + } else if (format != AWE_PATCH) { + FATALERR(printk("AWE32 Error: Invalid patch format (key) 0x%x\n", format)); + return RET_ERROR(EINVAL); + } + + if (count < sizeof(awe_patch_info)) { + FATALERR(printk("AWE32 Error: Patch header too short\n")); + return RET_ERROR(EINVAL); + } + COPY_FROM_USER(((char*)&patch) + offs, addr, offs, + sizeof(awe_patch_info) - offs); + + count -= sizeof(awe_patch_info); + if (count < patch.len) { + FATALERR(printk("AWE32 Warning: Patch record too short (%d<%d)\n", + count, (int)patch.len)); + patch.len = count; + } + + switch (patch.type) { + case AWE_LOAD_INFO: + rc = awe_load_info(&patch, addr); + break; + + case AWE_LOAD_DATA: + rc = awe_load_data(&patch, addr); + /* + if (!pmgr_flag && rc == 0) + pmgr_inform(dev, PM_E_PATCH_LOADED, instr, free_sample, 0, 0); + */ + break; + + default: + FATALERR(printk("AWE32 Error: unknown patch format type %d\n", + patch.type)); + rc = RET_ERROR(EINVAL); + } + + return rc; +} + + +/* load voice information data */ +static int +awe_load_info(awe_patch_info *patch, const char *addr) +{ + awe_voice_list *rec, *curp; + long offset; + short i, nvoices; + unsigned char bank, instr; + int total_size; + + if (patch->len < sizeof(awe_voice_rec)) { + FATALERR(printk("AWE32 Error: invalid patch info length\n")); + return RET_ERROR(EINVAL); + } + + offset = sizeof(awe_patch_info); + GET_BYTE_FROM_USER(bank, addr, offset); offset++; + GET_BYTE_FROM_USER(instr, addr, offset); offset++; + GET_SHORT_FROM_USER(nvoices, addr, offset); offset+=2; + + if (nvoices <= 0 || nvoices >= 100) { + FATALERR(printk("AWE32 Error: Illegal voice number %d\n", nvoices)); + return RET_ERROR(EINVAL); + } + if (free_info + nvoices > AWE_MAX_INFOS) { + ERRMSG(printk("AWE32 Error: Too many voice informations\n")); + return RET_ERROR(ENOSPC); + } + + total_size = sizeof(awe_voice_rec) + sizeof(awe_voice_info) * nvoices; + if (patch->len < total_size) { + ERRMSG(printk("AWE32 Error: patch length(%d) is smaller than nvoices(%d)\n", + (int)patch->len, nvoices)); + return RET_ERROR(EINVAL); + } + + curp = awe_search_instr(bank, instr); + for (i = 0; i < nvoices; i++) { + rec = &infos[free_info + i]; + + rec->bank = bank; + rec->instr = instr; + if (i < nvoices - 1) + rec->next_instr = rec + 1; + else + rec->next_instr = curp; + rec->next_bank = NULL; + + /* copy awe_voice_info parameters */ + COPY_FROM_USER(&rec->v, addr, offset, sizeof(awe_voice_info)); + offset += sizeof(awe_voice_info); + rec->v.sf_id = current_sf_id; + if (rec->v.mode & AWE_MODE_INIT_PARM) + awe_init_voice_parm(&rec->v.parm); + awe_set_sample(&rec->v); + } + + /* prepend to top of the list */ + infos[free_info].next_bank = preset_table[instr]; + preset_table[instr] = &infos[free_info]; + free_info += nvoices; + + return 0; +} + + +/* load wave sample data */ +static int +awe_load_data(awe_patch_info *patch, const char *addr) +{ + long offset; + int size; + int rc; + + if (free_sample >= AWE_MAX_SAMPLES) { + ERRMSG(printk("AWE32 Error: Sample table full\n")); + return RET_ERROR(ENOSPC); + } + + size = (patch->len - sizeof(awe_sample_info)) / 2; + offset = sizeof(awe_patch_info); + COPY_FROM_USER(&samples[free_sample], addr, offset, + sizeof(awe_sample_info)); + offset += sizeof(awe_sample_info); + if (size != samples[free_sample].size) { + ERRMSG(printk("AWE32 Warning: sample size differed (%d != %d)\n", + (int)samples[free_sample].size, (int)size)); + samples[free_sample].size = size; + } + if (samples[free_sample].size > 0) + if ((rc = awe_write_wave_data(addr, offset, size)) != 0) + return rc; + + awe_check_loaded(); + samples[free_sample].sf_id = current_sf_id; + + free_sample++; + return 0; +} + +/* check the other samples are already loaded */ +static void +awe_check_loaded(void) +{ + if (!loaded_once) { + /* it's the first time */ + last_sample = free_sample; + last_info = free_info; + current_sf_id++; + loaded_once = 1; + } +} + + +/*----------------------------------------------------------------*/ + +static const char *readbuf_addr; +static long readbuf_offs; +static int readbuf_flags; + +#ifdef AWE_USE_BUFFERED_IO + +#define TMP_WAVBUF_SIZE 4096 +static unsigned short readbuf[TMP_WAVBUF_SIZE]; +static int readbuf_size, readbuf_cur, readbuf_left; + +/* read through temporary buffer */ +static unsigned short +awe_readbuf_word(int pos) +{ + if (readbuf_left <= 0) { + int i; + if (readbuf_size - pos < TMP_WAVBUF_SIZE) + readbuf_left = readbuf_size - pos; + else + readbuf_left = TMP_WAVBUF_SIZE; + /* read from user buffer */ + if (readbuf_flags & AWE_SAMPLE_8BITS) { + unsigned char *pbuf = (unsigned char *)readbuf; + COPY_FROM_USER(pbuf, readbuf_addr, + readbuf_offs + pos, readbuf_left); + /* convert 8bit -> 16bit */ + for (i = readbuf_left - 1; i >= 0; i--) + readbuf[i] = pbuf[i] << 8; + } else { + COPY_FROM_USER(readbuf, readbuf_addr, + readbuf_offs + pos * 2, readbuf_left*2); + } + + if (readbuf_flags & AWE_SAMPLE_UNSIGNED) { + /* unsigned -> signed */ + for (i = 0; i < readbuf_left; i++) + readbuf[i] ^= 0x8000; + } + readbuf_cur = 0; + } + + readbuf_left--; + return readbuf[readbuf_cur++]; +} + +#else /* AWE_USE_BUFFERED_IO */ + +#define awe_readbuf_word(pos) awe_read_word(pos) + +#endif /* AWE_USE_BUFFERED_IO */ + + +/* initialize read buffer */ +static void +awe_init_readbuf(const char *addr, long offset, int size, int mode_flags) +{ + readbuf_addr = addr; + readbuf_offs = offset; + readbuf_flags = mode_flags; +#ifdef AWE_USE_BUFFERED_IO + readbuf_size = size; + readbuf_left = 0; + readbuf_cur = 0; +#endif +} + +/* read directly from user buffer */ +static unsigned short +awe_read_word(int pos) +{ + unsigned short c; + /* read from user buffer */ + if (readbuf_flags & AWE_SAMPLE_8BITS) { + unsigned char cc; + GET_BYTE_FROM_USER(cc, readbuf_addr, readbuf_offs + pos); + c = cc << 8; /* convert 8bit -> 16bit */ + } else { + GET_SHORT_FROM_USER(c, readbuf_addr, readbuf_offs + pos * 2); + } + if (readbuf_flags & AWE_SAMPLE_UNSIGNED) + c ^= 0x8000; /* unsigned -> signed */ + return c; +} + + + +#define BLANK_LOOP_START 8 +#define BLANK_LOOP_END 40 +#define BLANK_LOOP_SIZE 48 + +/* loading onto memory */ +static int +awe_write_wave_data(const char *addr, long offset, int size) +{ + awe_sample_info *sp = &samples[free_sample]; + int i, truesize; + int rc; + unsigned long csum1, csum2; + DECL_INTR_FLAGS(flags); + + /* be sure loop points start < end */ + if (sp->loopstart > sp->loopend) { + long tmp = sp->loopstart; + sp->loopstart = sp->loopend; + sp->loopend = tmp; + } + + /* compute true data size to be loaded */ + truesize = size; + if (sp->mode_flags & AWE_SAMPLE_BIDIR_LOOP) + truesize += sp->loopend - sp->loopstart; + if (sp->mode_flags & AWE_SAMPLE_NO_BLANK) + truesize += BLANK_LOOP_SIZE; + if (size > 0 && free_mem_ptr + truesize >= awe_mem_size/2) { + ERRMSG(printk("AWE32 Error: Sample memory full\n")); + return RET_ERROR(ENOSPC); + } + + /* recalculate address offset */ + sp->end -= sp->start; + sp->loopstart -= sp->start; + sp->loopend -= sp->start; + sp->size = truesize; + + sp->start = free_mem_ptr + AWE_DRAM_OFFSET; + sp->end += free_mem_ptr + AWE_DRAM_OFFSET; + sp->loopstart += free_mem_ptr + AWE_DRAM_OFFSET; + sp->loopend += free_mem_ptr + AWE_DRAM_OFFSET; + + DISABLE_INTR(flags); + if ((rc = awe_open_dram_for_write(free_mem_ptr)) != 0) { + RESTORE_INTR(flags); + return rc; + } + + awe_init_readbuf(addr, offset, size, sp->mode_flags); + csum1 = 0; + for (i = 0; i < size; i++) { + unsigned short c; + c = awe_readbuf_word(i); + csum1 += c; + awe_write_dram(c); + if (i == sp->loopend && + (sp->mode_flags & AWE_SAMPLE_BIDIR_LOOP)) { + int looplen = sp->loopend - sp->loopstart; + /* copy reverse loop */ + int k; + for (k = 0; k < looplen; k++) { + /* non-buffered data */ + c = awe_read_word(i - k); + awe_write_dram(c); + } + } + } + + /* 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; + } + sp->size += BLANK_LOOP_SIZE; + } + + awe_close_dram(); + RESTORE_INTR(flags); + if (sp->checksum_flag) { +#ifdef AWE_CHECKSUM_DATA + if (sp->checksum_flag != 2 && csum1 != sp->checksum) { + ERRMSG(printk("AWE32: [%d] checksum mismatch on data %x:%x\n", + free_sample, + (int)samples[free_sample].checksum, + (int)csum1)); + return RET_ERROR(NO_DATA_ERR); + } +#endif /* AWE_CHECKSUM_DATA */ +#ifdef AWE_CHECKSUM_MEMORY + DISABLE_INTR(flags); + if (awe_open_dram_for_read(free_mem_ptr) == 0) { + csum2 = 0; + for (i = 0; i < size; i++) { + unsigned short c; + c = awe_peek(AWE_SMLD); + csum2 += c; + } + awe_close_dram_for_read(); + if (csum2 != samples[free_sample].checksum) { + RESTORE_INTR(flags); + ERRMSG(printk("AWE32: [%d] checksum mismatch on DRAM %x:%x\n", + free_sample, + (int)samples[free_sample].checksum, + (int)csum2)); + return RET_ERROR(NO_DATA_ERR); + } + } + RESTORE_INTR(flags); +#endif /* AWE_CHECKSUM_MEMORY */ + } + free_mem_ptr += sp->size; + + /* re-initialize FM passthrough */ + DISABLE_INTR(flags); + awe_init_fm(); + awe_tweak(); + RESTORE_INTR(flags); + + return 0; +} + + +/* 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_list *rec, *curp; + long sizeof_patch; + int note; + int rc; + + sizeof_patch = (long)&patch.data[0] - (long)&patch; /* header size */ + if (free_sample >= AWE_MAX_SAMPLES) { + ERRMSG(printk("AWE32 Error: Sample table full\n")); + return RET_ERROR(ENOSPC); + } + if (free_info >= AWE_MAX_INFOS) { + ERRMSG(printk("AWE32 Error: Too many voice informations\n")); + return RET_ERROR(ENOSPC); + } + if (size < sizeof_patch) { + ERRMSG(printk("AWE32 Error: Patch header too short\n")); + return RET_ERROR(EINVAL); + } + COPY_FROM_USER(((char*)&patch) + offs, addr, offs, sizeof_patch - offs); + size -= sizeof_patch; + if (size < patch.len) { + FATALERR(printk("AWE32 Warning: Patch record too short (%d<%d)\n", + size, (int)patch.len)); + patch.len = size; + } + + samples[free_sample].sf_id = 0; + samples[free_sample].sample = free_sample; + samples[free_sample].start = 0; + samples[free_sample].end = patch.len; + samples[free_sample].loopstart = patch.loop_start; + samples[free_sample].loopend = patch.loop_end; + samples[free_sample].size = patch.len; + + /* set up mode flags */ + samples[free_sample].mode_flags = 0; + if (!(patch.mode & WAVE_16_BITS)) + samples[free_sample].mode_flags |= AWE_SAMPLE_8BITS; + if (patch.mode & WAVE_UNSIGNED) + samples[free_sample].mode_flags |= AWE_SAMPLE_UNSIGNED; + samples[free_sample].mode_flags |= AWE_SAMPLE_NO_BLANK; + if (!(patch.mode & (WAVE_LOOPING|WAVE_BIDIR_LOOP))) + samples[free_sample].mode_flags |= AWE_SAMPLE_SINGLESHOT; + if (patch.mode & WAVE_BIDIR_LOOP) + samples[free_sample].mode_flags |= AWE_SAMPLE_BIDIR_LOOP; + + DEBUG(0,printk("AWE32: [sample %d mode %x]\n", patch.instr_no, + samples[free_sample].mode_flags)); + if (patch.mode & WAVE_16_BITS) { + /* convert to word offsets */ + samples[free_sample].size /= 2; + samples[free_sample].end /= 2; + samples[free_sample].loopstart /= 2; + samples[free_sample].loopend /= 2; + } + samples[free_sample].checksum_flag = 0; + samples[free_sample].checksum = 0; + + if ((rc = awe_write_wave_data(addr, sizeof_patch, + samples[free_sample].size)) != 0) + return rc; + + awe_check_loaded(); + samples[free_sample].sf_id = current_sf_id; + free_sample++; + + /* set up voice info */ + rec = &infos[free_info]; + awe_init_voice_info(&rec->v); + rec->v.sf_id = current_sf_id; + rec->v.sample = free_sample - 1; /* the last sample */ + rec->v.rate_offset = calc_rate_offset(patch.base_freq); + note = freq_to_note(patch.base_note); + rec->v.root = note / 100; + rec->v.tune = -(note % 100); + rec->v.low = freq_to_note(patch.low_note) / 100; + rec->v.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->v.rate_offset, note, + rec->v.low, rec->v.high, + patch.low_note, patch.high_note)); + /* panning position; -128 - 127 => 0-127 */ + rec->v.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->v.parm.volatkhld = (calc_parm_attack(attack) << 8) | + calc_parm_hold(hold); + rec->v.parm.voldcysus = (calc_gus_sustain(patch.env_offset[2]) << 8) | + calc_parm_decay(decay); + rec->v.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->v.attenuation = calc_gus_attenuation(patch.env_offset[0]); + } + + /* tremolo effect */ + if (patch.mode & WAVE_TREMOLO) { + int rate = (patch.tremolo_rate * 1000 / 38) / 42; + rec->v.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->v.parm.tremfrq)); + } + /* vibrato effect */ + if (patch.mode & WAVE_VIBRATO) { + int rate = (patch.vibrato_rate * 1000 / 38) / 42; + rec->v.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->v.parm.tremfrq)); + } + + /* scale_freq, scale_factor, volume, and fractions not implemented */ + + /* set the voice index */ + awe_set_sample(&rec->v); + + /* prepend to top of the list */ + curp = awe_search_instr(awe_gus_bank, patch.instr_no); + rec->bank = awe_gus_bank; + rec->instr = patch.instr_no; + rec->next_instr = curp; + rec->next_bank = preset_table[rec->instr]; + preset_table[rec->instr] = rec; + free_info++; + + return 0; +} + + +/* remove samples with current sf_id from instrument list */ +static awe_voice_list * +awe_get_removed_list(awe_voice_list *curp) +{ + awe_voice_list *lastp, **prevp; + int maxc; + lastp = curp; + prevp = &lastp; + for (maxc = AWE_MAX_INFOS; + curp && maxc; curp = curp->next_instr, maxc--) { + if (curp->v.sf_id == current_sf_id) + *prevp = curp->next_instr; + else + prevp = &curp->next_instr; + } + return lastp; +} + + +/* remove last loaded samples */ +static void +awe_remove_samples(void) +{ + awe_voice_list **prevp, *p, *nextp; + int maxc; + int i; + + if (last_sample == free_sample && last_info == free_info) + return; + + /* remove the records from preset table */ + for (i = 0; i < AWE_MAX_PRESETS; i++) { + prevp = &preset_table[i]; + for (maxc = AWE_MAX_INFOS, p = preset_table[i]; + p && maxc; p = nextp, maxc--) { + nextp = p->next_bank; + p = awe_get_removed_list(p); + if (p == NULL) + *prevp = nextp; + else { + *prevp = p; + prevp = &p->next_bank; + } + } + } + + for (i = last_sample; i < free_sample; i++) + free_mem_ptr -= samples[i].size; + + free_sample = last_sample; + free_info = last_info; + current_sf_id--; + loaded_once = 0; +} + + +/* search the specified sample */ +static short +awe_set_sample(awe_voice_info *vp) +{ + int i; + for (i = 0; i < free_sample; i++) { + if (samples[i].sf_id == vp->sf_id && + samples[i].sample == vp->sample) { + /* set the actual sample offsets */ + vp->start += samples[i].start; + vp->end += samples[i].end; + vp->loopstart += samples[i].loopstart; + vp->loopend += samples[i].loopend; + /* copy mode flags */ + vp->mode |= (samples[i].mode_flags << 6); + /* set index */ + vp->index = i; + return i; + } + } + return -1; +} + + +/* voice pressure change */ +static void +awe_aftertouch(int dev, int voice, int pressure) +{ + DECL_INTR_FLAGS(flags); + + DEBUG(2,printk("AWE32: [after(%d) %d]\n", voice, pressure)); + if (voice < 0 || voice >= awe_max_voices) + return; + voices[voice].velocity = pressure; + awe_calc_volume(voice); + DISABLE_INTR(flags); + awe_set_volume(voice); + RESTORE_INTR(flags); +} + + +/* voice control change */ +static void +awe_controller(int dev, int voice, int ctrl_num, int value) +{ + DECL_INTR_FLAGS(flags); + + if (voice < 0 || voice >= awe_max_voices) + return; + + switch (ctrl_num) { + case CTL_BANK_SELECT: + DEBUG(2,printk("AWE32: [bank(%d) %d]\n", voice, value)); + voices[voice].bank = value; + break; + + case CTRL_PITCH_BENDER: + DEBUG(2,printk("AWE32: [bend(%d) %d]\n", voice, value)); + /* zero centered */ + voices[voice].bender = value; + awe_calc_pitch(voice); + DISABLE_INTR(flags); + awe_set_pitch(voice); + RESTORE_INTR(flags); + break; + + case CTRL_PITCH_BENDER_RANGE: + DEBUG(2,printk("AWE32: [range(%d) %d]\n", voice, value)); + /* sense x 100 */ + voices[voice].bender_range = value; + /* no audible pitch change yet.. */ + break; + + case CTL_EXPRESSION: + value /= 128; + case CTRL_EXPRESSION: + DEBUG(2,printk("AWE32: [expr(%d) %d]\n", voice, value)); + /* 0 - 127 */ + voices[voice].expression_vol = value; + awe_calc_volume(voice); + DISABLE_INTR(flags); + awe_set_volume(voice); + RESTORE_INTR(flags); + break; + + case CTL_PAN: + DEBUG(2,printk("AWE32: [pan(%d) %d]\n", voice, value)); + /* (0-127) -> signed 8bit */ + voices[voice].panning = value * 2 - 128; + DISABLE_INTR(flags); + awe_set_pan(voice, 0); + RESTORE_INTR(flags); + break; + + case CTL_MAIN_VOLUME: + value = (value * 127) / 16383; + case CTRL_MAIN_VOLUME: + DEBUG(2,printk("AWE32: [mainvol(%d) %d]\n", voice, value)); + /* 0 - 127 */ + voices[voice].main_vol = value; + awe_calc_volume(voice); + DISABLE_INTR(flags); + awe_set_volume(voice); + RESTORE_INTR(flags); + break; + + case CTL_EXT_EFF_DEPTH: /* reverb effects: 0-127 */ + DEBUG(2,printk("AWE32: [reverb(%d) %d]\n", voice, value)); + FX_SET(voice, AWE_FX_REVERB, value * 2); + break; + + case CTL_CHORUS_DEPTH: /* chorus effects: 0-127 */ + DEBUG(2,printk("AWE32: [chorus(%d) %d]\n", voice, value)); + FX_SET(voice, AWE_FX_CHORUS, value * 2); + break; + + + default: + DEBUG(0,printk("AWE32: [control(%d) ctrl=%d val=%d]\n", + voice, ctrl_num, value)); + break; + } +} + + +/* voice pan change (value = -128 - 127) */ +static void +awe_panning(int dev, int voice, int value) +{ + DECL_INTR_FLAGS(flags); + if (voice >= 0 || voice < awe_max_voices) { + voices[voice].panning = value; + DEBUG(2,printk("AWE32: [pan(%d) %d]\n", voice, voices[voice].panning)); + DISABLE_INTR(flags); + awe_set_pan(voice, 0); + RESTORE_INTR(flags); + } +} + + +/* volume mode change */ +static void +awe_volume_method(int dev, int mode) +{ + /* not impremented */ + DEBUG(0,printk("AWE32: [volmethod mode=%d]\n", mode)); +} + + +/* patch manager */ +static int +awe_patchmgr(int dev, struct patmgr_info *rec) +{ + FATALERR(printk("AWE32 Warning: patch manager control not supported\n")); + return 0; +} + + +/* pitch wheel change: 0-16384 */ +static void +awe_bender(int dev, int voice, int value) +{ + DECL_INTR_FLAGS(flags); + + if (voice < 0 || voice >= awe_max_voices) + return; + /* convert to zero centered value */ + voices[voice].bender = value - 8192; + DEBUG(2,printk("AWE32: [bend(%d) %d]\n", voice, voices[voice].bender)); + awe_calc_pitch(voice); + DISABLE_INTR(flags); + awe_set_pitch(voice); + RESTORE_INTR(flags); +} + + +/* search an empty voice; used by sequencer2 */ +static int +awe_alloc(int dev, int chn, int note, struct voice_alloc_info *alloc) +{ + int i, p, best = -1, best_time = 0x7fffffff; + + p = alloc->ptr; + /* First look for a completely stopped voice */ + + for (i = 0; i < alloc->max_voice; i++) { + if (alloc->map[p] == 0) { + alloc->ptr = p; + return p; + } + if (alloc->alloc_times[p] < best_time) { + best = p; + best_time = alloc->alloc_times[p]; + } + p = (p + 1) % alloc->max_voice; + } + + /* Then look for a releasing voice */ + for (i = 0; i < alloc->max_voice; i++) { + if (alloc->map[p] == 0xffff) { + alloc->ptr = p; + return p; + } + p = (p + 1) % alloc->max_voice; + } + + if (best >= 0) + p = best; + + /* terminate the voice */ + if (voices[p].state) + awe_terminate(p); + + alloc->ptr = p; + return p; +} + + +/* 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)); + voices[voice].expression_vol = info->controllers[CTL_EXPRESSION]; + voices[voice].main_vol = + (info->controllers[CTL_MAIN_VOLUME] * 100) / 128; /* 0 - 127 */ + voices[voice].panning = + info->controllers[CTL_PAN] * 2 - 128; /* signed 8bit */ + voices[voice].bender = info->bender_value; /* zero center */ + voices[voice].bank = info->controllers[CTL_BANK_SELECT]; + awe_set_instr(dev, voice, info->pgm_num); +} + + +/*================================================================ + * initialization of AWE32 + *================================================================*/ + +/* 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), 0x0080); + } + + 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, 0x00000000); + awe_poke_dw(AWE_SMARR, 0x00000000); + awe_poke_dw(AWE_SMALW, 0x00000000); + awe_poke_dw(AWE_SMARW, 0x00000000); +} + + +/* initialization arrays */ + +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. + */ + +static void +awe_tweak(void) +{ + int i; + + /* Set the envelope engine parameters to the "default" values for + simply playing back unarticulated audio at 44.1kHz. Set all + of the channels: */ + + for (i = 0; i < AWE_MAX_VOICES; i++) { + 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_LFO1VAL(i) , 0x8000); + awe_poke(AWE_ATKHLD(i) , 0x7F7F); + awe_poke(AWE_LFO2VAL(i) , 0x8000); + awe_poke(AWE_IP(i) , 0xE000); + awe_poke(AWE_IFATN(i) , 0xFF00); + awe_poke(AWE_PEFE(i) , 0x0000); + awe_poke(AWE_FMMOD(i) , 0x0000); + awe_poke(AWE_TREMFRQ(i) , 0x0010); + awe_poke(AWE_FM2FRQ2(i) , 0x0010); + } +} + + +/* + * initializes the FM section of AWE32 + */ + +static void +awe_init_fm(void) +{ +#ifndef AWE_ALWAYS_INIT_FM + /* if no extended memory is on board.. */ + if (awe_mem_size <= 0) + return; +#endif + DEBUG(0,printk("AWE32: initializing FM\n")); + + /* Initialize the last two channels for DRAM refresh and producing + the reverb and chorus effects for Yamaha OPL-3 synthesizer */ + + awe_poke( AWE_DCYSUSV(30) , 0x0080); + awe_poke_dw(AWE_PSST(30) , 0xFFFFFFE0); + awe_poke_dw(AWE_CSL(30) , 0xFFFFFFE8); + awe_poke_dw(AWE_PTRX(30) , 0x00FFFF00); + awe_poke_dw(AWE_CPF(30) , 0x00000000); + awe_poke_dw(AWE_CCCA(30) , 0x00FFFFE3); + + awe_poke( AWE_DCYSUSV(31) , 0x0080); + awe_poke_dw(AWE_PSST(31) , 0x00FFFFE0); + awe_poke_dw(AWE_CSL(31) , 0xFFFFFFE8); + awe_poke_dw(AWE_PTRX(31) , 0x00FFFF00); + awe_poke_dw(AWE_CPF(31) , 0x00000000); + awe_poke_dw(AWE_CCCA(31) , 0x00FFFFE3); + + /* Timing loop */ + + /* PTRX is 32 bit long but do not write to the MS byte */ + awe_poke(AWE_PTRX(30) , 0x0000); + + while(! (inw(awe_base-0x620+Pointer) & 0x1000)); + while( inw(awe_base-0x620+Pointer) & 0x1000); + + /* now write the MS byte of PTRX */ + OUTW(0x4828, awe_base-0x620+Data0+0x002); + + awe_poke( AWE_IFATN(28) , 0x0000); + awe_poke_dw(AWE_VTFT(30) , 0x8000FFFF); + awe_poke_dw(AWE_VTFT(31) , 0x8000FFFF); + + /* change maximum channels to 30 */ + awe_max_voices = AWE_NORMAL_VOICES; + awe_info.nr_voices = awe_max_voices; + 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 i; + + /* use all channels for DMA transfer */ + 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); + awe_poke_dw(AWE_CCCA(i), 0x06000000); + } + /* 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); + + /* if full bit is on, not ready to write on */ + if (awe_peek_dw(AWE_SMALW) & 0x80000000) { + for (i = 0; i < AWE_NORMAL_VOICES; i++) + awe_poke_dw(AWE_CCCA(i), 0); + return RET_ERROR(ENOSPC); + } + + /* set address to write */ + awe_poke_dw(AWE_SMALW, offset + AWE_DRAM_OFFSET); + + return 0; +} + +/* open DRAM for RAM size detection */ +static void +awe_open_dram_for_check(void) +{ + int k; + unsigned long scratch; + + awe_poke(AWE_HWCF2 , 0x0020); + + for (k = 0; k < AWE_NORMAL_VOICES; k++) { + awe_poke(AWE_DCYSUSV(k), 0x0080); + awe_poke_dw(AWE_VTFT(k), 0x00000000); + awe_poke_dw(AWE_CVCF(k), 0x00000000); + awe_poke_dw(AWE_PTRX(k), 0x40000000); + awe_poke_dw(AWE_CPF(k), 0x40000000); + awe_poke_dw(AWE_PSST(k), 0x00000000); + awe_poke_dw(AWE_CSL(k), 0x00000000); + scratch = (((k&1) << 9) + 0x400); + scratch = scratch << 16; + awe_poke_dw(AWE_CCCA(k), scratch); + } +} + + +/* 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++) { + awe_poke_dw(AWE_CCCA(i), 0); + awe_poke(AWE_DCYSUSV(i), 0x807F); + } +} + + +#ifdef AWE_CHECKSUM_MEMORY +/* open DRAM read accessing mode */ +static int +awe_open_dram_for_read(int offset) +{ + int i; + + /* use all channels for DMA transfer */ + 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); + awe_poke_dw(AWE_CCCA(i), 0x04000000); + } + /* 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); + + /* if empty flag is on, not ready to read */ + if (awe_peek_dw(AWE_SMALR) & 0x80000000) { + for (i = 0; i < AWE_NORMAL_VOICES; i++) + awe_poke_dw(AWE_CCCA(i), 0); + return RET_ERROR(ENOSPC); + } + + /* set address to read */ + awe_poke_dw(AWE_SMALR, offset + AWE_DRAM_OFFSET); + /* drop stale data */ + awe_peek(AWE_SMLD); + return 0; +} + +/* close dram access for read */ +static void +awe_close_dram_for_read(void) +{ + int i; + /* wait until FULL bit in SMAxW register be false */ + for (i = 0; i < 10000; i++) { + if (!(awe_peek_dw(AWE_SMALR) & 0x80000000)) + break; + awe_wait(10); + } + for (i = 0; i < AWE_NORMAL_VOICES; i++) { + awe_poke_dw(AWE_CCCA(i), 0); + awe_poke(AWE_DCYSUSV(i), 0x807F); + } +} +#endif /* AWE_CHECKSUM_MEMORY */ + + +/* write a word data */ +static void +awe_write_dram(unsigned short c) +{ + int k; + /* wait until FULL bit in SMAxW register be false */ + for (k = 0; k < 10000; k++) { + if (!(awe_peek_dw(AWE_SMALW) & 0x80000000)) + break; + awe_wait(10); + } + awe_poke(AWE_SMLD, c); +} + +/*================================================================ + * detect presence of AWE32 and check memory size + *================================================================*/ + +static int +awe_detect(void) +{ +#ifdef AWE_DEFAULT_BASE_ADDR + awe_base = AWE_DEFAULT_BASE_ADDR; + if (((awe_peek(AWE_U1) & 0x000F) == 0x000C) && + ((awe_peek(AWE_HWCF1) & 0x007E) == 0x0058) && + ((awe_peek(AWE_HWCF2) & 0x0003) == 0x0003)) + return 1; +#endif + if (awe_base == 0) { + for (awe_base = 0x620; awe_base <= 0x680; awe_base += 0x20) { + if ((awe_peek(AWE_U1) & 0x000F) != 0x000C) + continue; + if ((awe_peek(AWE_HWCF1) & 0x007E) != 0x0058) + continue; + if ((awe_peek(AWE_HWCF2) & 0x0003) != 0x0003) + continue; + DEBUG(0,printk("AWE32 found at %x\n", awe_base)); + return 1; + } + } + FATALERR(printk("AWE32 not found\n")); + awe_base = 0; + return 0; +} + + +/*================================================================ + * check dram size on AWE board + *================================================================*/ +static int +awe_check_dram(void) +{ + awe_open_dram_for_check(); + + awe_poke_dw(AWE_SMALW , 0x00200000); /* DRAM start address */ + awe_poke( AWE_SMLD , 0x1234); + awe_poke( AWE_SMLD , 0x7777); + + awe_mem_size = 0; + while (awe_mem_size < 28*1024) { /* 28 MB is max onboard memory */ + awe_wait(2); + awe_poke_dw(AWE_SMALR, 0x00200000); /* Address for reading */ + awe_peek(AWE_SMLD); /* Discard stale data */ + if (awe_peek(AWE_SMLD) != 0x1234) + break; + if (awe_peek(AWE_SMLD) != 0x7777) + break; + awe_mem_size += 32; + /* Address for writing */ + awe_poke_dw(AWE_SMALW, 0x00200000+awe_mem_size*512L); + awe_poke(AWE_SMLD, 0xFFFF); + } + awe_close_dram(); + + DEBUG(0,printk("AWE32: %d Kbytes memory detected\n", (int)awe_mem_size)); +#ifdef AWE_DEFAULT_MEM_SIZE + if (awe_mem_size == 0) + awe_mem_size = AWE_DEFAULT_MEM_SIZE; +#endif + /* convert to Kbytes */ + awe_mem_size *= 1024; + return awe_mem_size; +} + + +/*================================================================ + * chorus and reverb controls + *================================================================*/ + +static unsigned short ChorusEffects[24] = +{ + 0xE600,0x03F6,0xBC2C,0xE608,0x031A,0xBC6E,0xE610,0x031A, + 0xBC84,0xE620,0x0269,0xBC6E,0xE680,0x04D3,0xBCA6,0xE6E0, + 0x044E,0xBC37,0xE600,0x0B06,0xBC00,0xE6C0,0x0B06,0xBC00 +}; + +static unsigned long ChorusEffects2[] = +{ + 0x0000 ,0x006D,0x8000,0x0000,0x0000 ,0x017C,0x8000,0x0000, + 0x0000 ,0x0083,0x8000,0x0000,0x0000 ,0x017C,0x8000,0x0000, + 0x0000 ,0x005B,0x8000,0x0000,0x0000 ,0x0026,0x8000,0x0000, + 0x6E000,0x0083,0x8000,0x0000,0x6E000,0x0083,0x8000,0x0000 +}; + +static unsigned short ChorusCommand[14] = +{ + 0x69,0xA20,0x6C,0xA20,0x63,0xA22,0x29, + 0xA20,0x2A,0xA20,0x2D,0xA20,0x2E,0xA20 +}; + +static unsigned short ReverbEffects[224] = +{ + /* 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 unsigned short ReverbCommand[56] = +{ + 0x43,0xA20,0x45,0xA20,0x7F,0xA22,0x47,0xA20, + 0x54,0xA22,0x56,0xA22,0x4F,0xA20,0x57,0xA20, + 0x5F,0xA20,0x47,0xA22,0x4F,0xA22,0x57,0xA22, + 0x5D,0xA22,0x5F,0xA22,0x61,0xA20,0x63,0xA20, + 0x49,0xA20,0x4B,0xA20,0x51,0xA20,0x53,0xA20, + 0x59,0xA20,0x5B,0xA20,0x41,0xA22,0x43,0xA22, + 0x49,0xA22,0x4B,0xA22,0x51,0xA22,0x53,0xA22 +}; + +static void awe_set_chorus_mode(int effect) +{ + int k; + DECL_INTR_FLAGS(flags); + + DISABLE_INTR(flags); + for (k = 0; k < 3; k++) + awe_poke(ChorusCommand[k*2], + ChorusCommand[k*2+1], + ChorusEffects[k+effect*3]); + for (k = 0; k < 4; k++) + awe_poke_dw(ChorusCommand[6+k*2], + ChorusCommand[6+k*2+1], + ChorusEffects2[k+effect*4]); + RESTORE_INTR(flags); +} + +static void awe_set_reverb_mode(int effect) +{ + int k; + DECL_INTR_FLAGS(flags); + + DISABLE_INTR(flags); + for (k = 0; k < 28; k++) + awe_poke(ReverbCommand[k*2], + ReverbCommand[k*2+1], + ReverbEffects[k+effect*28]); + RESTORE_INTR(flags); +} + +#endif /* CONFIG_AWE32_SYNTH */ diff --git a/sys/i386/isa/sound/dev_table.h b/sys/i386/isa/sound/dev_table.h index 5269f63..96a7f98 100644 --- a/sys/i386/isa/sound/dev_table.h +++ b/sys/i386/isa/sound/dev_table.h @@ -280,6 +280,9 @@ struct sound_timer_operations { #ifndef EXCLUDE_AUDIO {SNDCARD_SB16, "SoundBlaster16", sb16_dsp_init, sb16_dsp_detect}, #endif +#ifndef EXCLUDE_AWE32 + {SNDCARD_AWE32, "AWE32 Synth", attach_awe_obsolete, probe_awe_obsolete}, +#endif #ifndef EXCLUDE_MIDI {SNDCARD_SB16MIDI,"SB16 MIDI", attach_sb16midi, probe_sb16midi}, #endif @@ -377,6 +380,9 @@ struct sound_timer_operations { #ifndef EXCLUDE_MIDI {SNDCARD_SB16MIDI,{SB16MIDI_BASE, SBC_IRQ, 0}, SND_DEFAULT_ENABLE}, #endif +#ifndef EXCLUDE_AWE32 + {SNDCARD_AWE32,{AWE32_BASE, 0, 0}, SND_DEFAULT_ENABLE}, +#endif #endif #ifndef EXCLUDE_GUS diff --git a/sys/i386/isa/sound/local.h b/sys/i386/isa/sound/local.h index c500366..fe78b4c 100644 --- a/sys/i386/isa/sound/local.h +++ b/sys/i386/isa/sound/local.h @@ -77,6 +77,11 @@ #define EXCLUDE_SB16MIDI #endif +#include "awe.h" +#if NAWE == 0 && !defined(EXCLUDE_AWE32) +#define EXCLUDE_AWE32 +#endif + #include "pas.h" #if NPAS == 0 && !defined(EXCLUDE_PAS) #define EXCLUDE_PAS diff --git a/sys/i386/isa/sound/sound_calls.h b/sys/i386/isa/sound/sound_calls.h index d52da0b..40aa55b 100644 --- a/sys/i386/isa/sound/sound_calls.h +++ b/sys/i386/isa/sound/sound_calls.h @@ -152,6 +152,10 @@ int probe_sb(struct address_info *hw_config); long attach_adlib_card(long mem_start, struct address_info *hw_config); int probe_adlib(struct address_info *hw_config); +/* from awe_wave.c */ +long attach_awe_obsolete(long mem_start, struct address_info *hw_config); +int probe_awe_obsolete(struct address_info *hw_config); + /* From pas_card.c */ long attach_pas_card(long mem_start, struct address_info *hw_config); int probe_pas(struct address_info *hw_config); diff --git a/sys/i386/isa/sound/sound_config.h b/sys/i386/isa/sound/sound_config.h index 2330fa9..5649820 100644 --- a/sys/i386/isa/sound/sound_config.h +++ b/sys/i386/isa/sound/sound_config.h @@ -118,6 +118,10 @@ If your card has nonstandard I/O address or IRQ number, change defines #endif #endif +#ifndef AWE32_BASE +#define AWE32_BASE 0x620 /* Default = 0x620-3, 0xA20-3, 0xE20-3 */ +#endif + #ifndef PAS_BASE #define PAS_BASE 0x388 #endif diff --git a/sys/i386/isa/sound/soundcard.c b/sys/i386/isa/sound/soundcard.c index 3a06b6c..3908e4b 100644 --- a/sys/i386/isa/sound/soundcard.c +++ b/sys/i386/isa/sound/soundcard.c @@ -26,7 +26,7 @@ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * - * $Id: soundcard.c,v 1.43 1996/09/10 08:26:06 bde Exp $ + * $Id: soundcard.c,v 1.44 1996/11/02 10:38:04 asami Exp $ */ #include <i386/isa/sound/sound_config.h> @@ -84,6 +84,7 @@ struct isa_driver opldriver = {sndprobe, sndattach, "opl"}; struct isa_driver sbdriver = {sndprobe, sndattach, "sb"}; struct isa_driver sbxvidriver = {sndprobe, sndattach, "sbxvi"}; struct isa_driver sbmididriver = {sndprobe, sndattach, "sbmidi"}; +struct isa_driver awedriver = {sndprobe, sndattach, "awe"}; struct isa_driver pasdriver = {sndprobe, sndattach, "pas"}; struct isa_driver mpudriver = {sndprobe, sndattach, "mpu"}; struct isa_driver gusdriver = {sndprobe, sndattach, "gus"}; @@ -271,6 +272,8 @@ driver_to_voxunit(struct isa_driver *driver) return(SNDCARD_SB16); else if(driver == &sbmididriver) return(SNDCARD_SB16MIDI); + else if(driver == &awedriver) + return(SNDCARD_AWE32); else if(driver == &uartdriver) return(SNDCARD_UART6850); else if(driver == &gusdriver) |