12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256 |
- #include <linux/init.h>
- #include <linux/slab.h>
- #include <linux/module.h>
- #include <linux/delay.h>
- #include "sound_config.h"
- #include "opl3_hw.h"
- #define MAX_VOICE 18
- #define OFFS_4OP 11
- struct voice_info
- {
- unsigned char keyon_byte;
- long bender;
- long bender_range;
- unsigned long orig_freq;
- unsigned long current_freq;
- int volume;
- int mode;
- int panning;
- };
- struct opl_devinfo
- {
- int base;
- int left_io, right_io;
- int nr_voice;
- int lv_map[MAX_VOICE];
- struct voice_info voc[MAX_VOICE];
- struct voice_alloc_info *v_alloc;
- struct channel_info *chn_info;
- struct sbi_instrument i_map[SBFM_MAXINSTR];
- struct sbi_instrument *act_i[MAX_VOICE];
- struct synth_info fm_info;
- int busy;
- int model;
- unsigned char cmask;
- int is_opl4;
- };
- static struct opl_devinfo *devc = NULL;
- static int detected_model;
- static int store_instr(int instr_no, struct sbi_instrument *instr);
- static void freq_to_fnum(int freq, int *block, int *fnum);
- static void opl3_command(int io_addr, unsigned int addr, unsigned int val);
- static int opl3_kill_note(int dev, int voice, int note, int velocity);
- static void enter_4op_mode(void)
- {
- int i;
- static int v4op[MAX_VOICE] = {
- 0, 1, 2, 9, 10, 11, 6, 7, 8, 15, 16, 17
- };
- devc->cmask = 0x3f;
- opl3_command(devc->right_io, CONNECTION_SELECT_REGISTER, 0x3f);
- for (i = 0; i < 3; i++)
- pv_map[i].voice_mode = 4;
- for (i = 3; i < 6; i++)
- pv_map[i].voice_mode = 0;
- for (i = 9; i < 12; i++)
- pv_map[i].voice_mode = 4;
- for (i = 12; i < 15; i++)
- pv_map[i].voice_mode = 0;
- for (i = 0; i < 12; i++)
- devc->lv_map[i] = v4op[i];
- devc->v_alloc->max_voice = devc->nr_voice = 12;
- }
- static int opl3_ioctl(int dev, unsigned int cmd, void __user * arg)
- {
- struct sbi_instrument ins;
-
- switch (cmd) {
- case SNDCTL_FM_LOAD_INSTR:
- printk(KERN_WARNING "Warning: Obsolete ioctl(SNDCTL_FM_LOAD_INSTR) used. Fix the program.\n");
- if (copy_from_user(&ins, arg, sizeof(ins)))
- return -EFAULT;
- if (ins.channel < 0 || ins.channel >= SBFM_MAXINSTR) {
- printk(KERN_WARNING "FM Error: Invalid instrument number %d\n", ins.channel);
- return -EINVAL;
- }
- return store_instr(ins.channel, &ins);
- case SNDCTL_SYNTH_INFO:
- devc->fm_info.nr_voices = (devc->nr_voice == 12) ? 6 : devc->nr_voice;
- if (copy_to_user(arg, &devc->fm_info, sizeof(devc->fm_info)))
- return -EFAULT;
- return 0;
- case SNDCTL_SYNTH_MEMAVL:
- return 0x7fffffff;
- case SNDCTL_FM_4OP_ENABLE:
- if (devc->model == 2)
- enter_4op_mode();
- return 0;
- default:
- return -EINVAL;
- }
- }
- static int opl3_detect(int ioaddr)
- {
-
- unsigned char stat1, signature;
- int i;
- if (devc != NULL)
- {
- printk(KERN_ERR "opl3: Only one OPL3 supported.\n");
- return 0;
- }
- devc = kzalloc(sizeof(*devc), GFP_KERNEL);
- if (devc == NULL)
- {
- printk(KERN_ERR "opl3: Can't allocate memory for the device control "
- "structure \n ");
- return 0;
- }
- strcpy(devc->fm_info.name, "OPL2");
- if (!request_region(ioaddr, 4, devc->fm_info.name)) {
- printk(KERN_WARNING "opl3: I/O port 0x%x already in use\n", ioaddr);
- goto cleanup_devc;
- }
- devc->base = ioaddr;
-
- opl3_command(ioaddr, TIMER_CONTROL_REGISTER, TIMER1_MASK | TIMER2_MASK);
-
- opl3_command(ioaddr, TIMER_CONTROL_REGISTER, IRQ_RESET);
- signature = stat1 = inb(ioaddr);
- if (signature != 0x00 && signature != 0x06 && signature != 0x02 &&
- signature != 0x0f)
- {
- MDB(printk(KERN_INFO "OPL3 not detected %x\n", signature));
- goto cleanup_region;
- }
- if (signature == 0x06)
- {
- detected_model = 2;
- }
- else if (signature == 0x00 || signature == 0x0f)
- {
- unsigned char tmp;
- detected_model = 3;
-
- opl3_command(ioaddr + 2, OPL3_MODE_REGISTER, 0x00);
- opl3_command(ioaddr + 2, OPL3_MODE_REGISTER, OPL3_ENABLE | OPL4_ENABLE);
- if ((tmp = inb(ioaddr)) == 0x02)
- {
- detected_model = 4;
- }
- if (request_region(ioaddr - 8, 2, "OPL4"))
- {
- int tmp;
- outb((0x02), ioaddr - 8);
- udelay(10);
- tmp = inb(ioaddr - 7);
- udelay(10);
- if (tmp == 0x20)
- {
- detected_model = 4;
- outb((0xF8), ioaddr - 8);
- udelay(10);
- outb((0x1B), ioaddr - 7);
- udelay(10);
- }
- else
- {
- release_region(ioaddr - 8, 2);
- detected_model = 3;
- }
- }
- opl3_command(ioaddr + 2, OPL3_MODE_REGISTER, 0);
- }
- for (i = 0; i < 9; i++)
- opl3_command(ioaddr, KEYON_BLOCK + i, 0);
- opl3_command(ioaddr, TEST_REGISTER, ENABLE_WAVE_SELECT);
- opl3_command(ioaddr, PERCOSSION_REGISTER, 0x00);
- return 1;
- cleanup_region:
- release_region(ioaddr, 4);
- cleanup_devc:
- kfree(devc);
- devc = NULL;
- return 0;
- }
- static int opl3_kill_note (int devno, int voice, int note, int velocity)
- {
- struct physical_voice_info *map;
- if (voice < 0 || voice >= devc->nr_voice)
- return 0;
- devc->v_alloc->map[voice] = 0;
- map = &pv_map[devc->lv_map[voice]];
- if (map->voice_mode == 0)
- return 0;
- opl3_command(map->ioaddr, KEYON_BLOCK + map->voice_num, devc->voc[voice].keyon_byte & ~0x20);
- devc->voc[voice].keyon_byte = 0;
- devc->voc[voice].bender = 0;
- devc->voc[voice].volume = 64;
- devc->voc[voice].panning = 0xffff;
- devc->voc[voice].bender_range = 200;
- devc->voc[voice].orig_freq = 0;
- devc->voc[voice].current_freq = 0;
- devc->voc[voice].mode = 0;
- return 0;
- }
- #define HIHAT 0
- #define CYMBAL 1
- #define TOMTOM 2
- #define SNARE 3
- #define BDRUM 4
- #define UNDEFINED TOMTOM
- #define DEFAULT TOMTOM
- static int store_instr(int instr_no, struct sbi_instrument *instr)
- {
- if (instr->key != FM_PATCH && (instr->key != OPL3_PATCH || devc->model != 2))
- printk(KERN_WARNING "FM warning: Invalid patch format field (key) 0x%x\n", instr->key);
- memcpy((char *) &(devc->i_map[instr_no]), (char *) instr, sizeof(*instr));
- return 0;
- }
- static int opl3_set_instr (int dev, int voice, int instr_no)
- {
- if (voice < 0 || voice >= devc->nr_voice)
- return 0;
- if (instr_no < 0 || instr_no >= SBFM_MAXINSTR)
- instr_no = 0;
- devc->act_i[voice] = &devc->i_map[instr_no];
- return 0;
- }
- static char fm_volume_table[128] =
- {
- -64, -48, -40, -35, -32, -29, -27, -26,
- -24, -23, -21, -20, -19, -18, -18, -17,
- -16, -15, -15, -14, -13, -13, -12, -12,
- -11, -11, -10, -10, -10, -9, -9, -8,
- -8, -8, -7, -7, -7, -6, -6, -6,
- -5, -5, -5, -5, -4, -4, -4, -4,
- -3, -3, -3, -3, -2, -2, -2, -2,
- -2, -1, -1, -1, -1, 0, 0, 0,
- 0, 0, 0, 1, 1, 1, 1, 1,
- 1, 2, 2, 2, 2, 2, 2, 2,
- 3, 3, 3, 3, 3, 3, 3, 4,
- 4, 4, 4, 4, 4, 4, 4, 5,
- 5, 5, 5, 5, 5, 5, 5, 5,
- 6, 6, 6, 6, 6, 6, 6, 6,
- 6, 7, 7, 7, 7, 7, 7, 7,
- 7, 7, 7, 8, 8, 8, 8, 8
- };
- static void calc_vol(unsigned char *regbyte, int volume, int main_vol)
- {
- int level = (~*regbyte & 0x3f);
- if (main_vol > 127)
- main_vol = 127;
- volume = (volume * main_vol) / 127;
- if (level)
- level += fm_volume_table[volume];
- if (level > 0x3f)
- level = 0x3f;
- if (level < 0)
- level = 0;
- *regbyte = (*regbyte & 0xc0) | (~level & 0x3f);
- }
- static void set_voice_volume(int voice, int volume, int main_vol)
- {
- unsigned char vol1, vol2, vol3, vol4;
- struct sbi_instrument *instr;
- struct physical_voice_info *map;
- if (voice < 0 || voice >= devc->nr_voice)
- return;
- map = &pv_map[devc->lv_map[voice]];
- instr = devc->act_i[voice];
- if (!instr)
- instr = &devc->i_map[0];
- if (instr->channel < 0)
- return;
- if (devc->voc[voice].mode == 0)
- return;
- if (devc->voc[voice].mode == 2)
- {
- vol1 = instr->operators[2];
- vol2 = instr->operators[3];
- if ((instr->operators[10] & 0x01))
- {
- calc_vol(&vol1, volume, main_vol);
- calc_vol(&vol2, volume, main_vol);
- }
- else
- {
- calc_vol(&vol2, volume, main_vol);
- }
- opl3_command(map->ioaddr, KSL_LEVEL + map->op[0], vol1);
- opl3_command(map->ioaddr, KSL_LEVEL + map->op[1], vol2);
- }
- else
- {
- int connection;
- vol1 = instr->operators[2];
- vol2 = instr->operators[3];
- vol3 = instr->operators[OFFS_4OP + 2];
- vol4 = instr->operators[OFFS_4OP + 3];
-
- connection = ((instr->operators[10] & 0x01) << 1) | (instr->operators[10 + OFFS_4OP] & 0x01);
- switch (connection)
- {
- case 0:
- calc_vol(&vol4, volume, main_vol);
- break;
- case 1:
- calc_vol(&vol2, volume, main_vol);
- calc_vol(&vol4, volume, main_vol);
- break;
- case 2:
- calc_vol(&vol1, volume, main_vol);
- calc_vol(&vol4, volume, main_vol);
- break;
- case 3:
- calc_vol(&vol1, volume, main_vol);
- calc_vol(&vol3, volume, main_vol);
- calc_vol(&vol4, volume, main_vol);
- break;
- default:
- ;
- }
- opl3_command(map->ioaddr, KSL_LEVEL + map->op[0], vol1);
- opl3_command(map->ioaddr, KSL_LEVEL + map->op[1], vol2);
- opl3_command(map->ioaddr, KSL_LEVEL + map->op[2], vol3);
- opl3_command(map->ioaddr, KSL_LEVEL + map->op[3], vol4);
- }
- }
- static int opl3_start_note (int dev, int voice, int note, int volume)
- {
- unsigned char data, fpc;
- int block, fnum, freq, voice_mode, pan;
- struct sbi_instrument *instr;
- struct physical_voice_info *map;
- if (voice < 0 || voice >= devc->nr_voice)
- return 0;
- map = &pv_map[devc->lv_map[voice]];
- pan = devc->voc[voice].panning;
- if (map->voice_mode == 0)
- return 0;
- if (note == 255)
- {
- set_voice_volume(voice, volume, devc->voc[voice].volume);
- return 0;
- }
-
-
- opl3_command(map->ioaddr, KSL_LEVEL + map->op[1], 0xff);
- opl3_command(map->ioaddr, KSL_LEVEL + map->op[0], 0xff);
- if (map->voice_mode == 4)
- {
- opl3_command(map->ioaddr, KSL_LEVEL + map->op[2], 0xff);
- opl3_command(map->ioaddr, KSL_LEVEL + map->op[3], 0xff);
- }
- opl3_command(map->ioaddr, KEYON_BLOCK + map->voice_num, 0x00);
- instr = devc->act_i[voice];
-
- if (!instr)
- instr = &devc->i_map[0];
- if (instr->channel < 0)
- {
- printk(KERN_WARNING "opl3: Initializing voice %d with undefined instrument\n", voice);
- return 0;
- }
- if (map->voice_mode == 2 && instr->key == OPL3_PATCH)
- return 0;
- voice_mode = map->voice_mode;
- if (voice_mode == 4)
- {
- int voice_shift;
- voice_shift = (map->ioaddr == devc->left_io) ? 0 : 3;
- voice_shift += map->voice_num;
- if (instr->key != OPL3_PATCH)
- {
- voice_mode = 2;
- devc->cmask &= ~(1 << voice_shift);
- }
- else
- {
- devc->cmask |= (1 << voice_shift);
- }
- opl3_command(devc->right_io, CONNECTION_SELECT_REGISTER, devc->cmask);
- }
-
-
- opl3_command(map->ioaddr, AM_VIB + map->op[0], instr->operators[0]);
- opl3_command(map->ioaddr, AM_VIB + map->op[1], instr->operators[1]);
-
-
- opl3_command(map->ioaddr, ATTACK_DECAY + map->op[0], instr->operators[4]);
- opl3_command(map->ioaddr, ATTACK_DECAY + map->op[1], instr->operators[5]);
-
-
- opl3_command(map->ioaddr, SUSTAIN_RELEASE + map->op[0], instr->operators[6]);
- opl3_command(map->ioaddr, SUSTAIN_RELEASE + map->op[1], instr->operators[7]);
-
- opl3_command(map->ioaddr, WAVE_SELECT + map->op[0], instr->operators[8]);
- opl3_command(map->ioaddr, WAVE_SELECT + map->op[1], instr->operators[9]);
-
-
- fpc = instr->operators[10];
- if (pan != 0xffff)
- {
- fpc &= ~STEREO_BITS;
- if (pan < -64)
- fpc |= VOICE_TO_LEFT;
- else
- if (pan > 64)
- fpc |= VOICE_TO_RIGHT;
- else
- fpc |= (VOICE_TO_LEFT | VOICE_TO_RIGHT);
- }
- if (!(fpc & 0x30))
- fpc |= 0x30;
- opl3_command(map->ioaddr, FEEDBACK_CONNECTION + map->voice_num, fpc);
-
- if (voice_mode == 4)
- {
-
-
- opl3_command(map->ioaddr, AM_VIB + map->op[2], instr->operators[OFFS_4OP + 0]);
- opl3_command(map->ioaddr, AM_VIB + map->op[3], instr->operators[OFFS_4OP + 1]);
-
-
- opl3_command(map->ioaddr, ATTACK_DECAY + map->op[2], instr->operators[OFFS_4OP + 4]);
- opl3_command(map->ioaddr, ATTACK_DECAY + map->op[3], instr->operators[OFFS_4OP + 5]);
-
-
- opl3_command(map->ioaddr, SUSTAIN_RELEASE + map->op[2], instr->operators[OFFS_4OP + 6]);
- opl3_command(map->ioaddr, SUSTAIN_RELEASE + map->op[3], instr->operators[OFFS_4OP + 7]);
-
-
- opl3_command(map->ioaddr, WAVE_SELECT + map->op[2], instr->operators[OFFS_4OP + 8]);
- opl3_command(map->ioaddr, WAVE_SELECT + map->op[3], instr->operators[OFFS_4OP + 9]);
-
-
- fpc = instr->operators[OFFS_4OP + 10];
- if (!(fpc & 0x30))
- fpc |= 0x30;
- opl3_command(map->ioaddr, FEEDBACK_CONNECTION + map->voice_num + 3, fpc);
- }
- devc->voc[voice].mode = voice_mode;
- set_voice_volume(voice, volume, devc->voc[voice].volume);
- freq = devc->voc[voice].orig_freq = note_to_freq(note) / 1000;
-
- freq = compute_finetune(devc->voc[voice].orig_freq, devc->voc[voice].bender, devc->voc[voice].bender_range, 0);
- devc->voc[voice].current_freq = freq;
- freq_to_fnum(freq, &block, &fnum);
-
- data = fnum & 0xff;
- opl3_command(map->ioaddr, FNUM_LOW + map->voice_num, data);
- data = 0x20 | ((block & 0x7) << 2) | ((fnum >> 8) & 0x3);
- devc->voc[voice].keyon_byte = data;
- opl3_command(map->ioaddr, KEYON_BLOCK + map->voice_num, data);
- if (voice_mode == 4)
- opl3_command(map->ioaddr, KEYON_BLOCK + map->voice_num + 3, data);
- return 0;
- }
- static void freq_to_fnum (int freq, int *block, int *fnum)
- {
- int f, octave;
-
-
- f = freq;
- octave = 5;
- if (f == 0)
- octave = 0;
- else if (f < 261)
- {
- while (f < 261)
- {
- octave--;
- f <<= 1;
- }
- }
- else if (f > 493)
- {
- while (f > 493)
- {
- octave++;
- f >>= 1;
- }
- }
- if (octave > 7)
- octave = 7;
- *fnum = freq * (1 << (20 - octave)) / 49716;
- *block = octave;
- }
- static void opl3_command (int io_addr, unsigned int addr, unsigned int val)
- {
- int i;
-
- outb(((unsigned char) (addr & 0xff)), io_addr);
- if (devc->model != 2)
- udelay(10);
- else
- for (i = 0; i < 2; i++)
- inb(io_addr);
- outb(((unsigned char) (val & 0xff)), io_addr + 1);
- if (devc->model != 2)
- udelay(30);
- else
- for (i = 0; i < 2; i++)
- inb(io_addr);
- }
- static void opl3_reset(int devno)
- {
- int i;
- for (i = 0; i < 18; i++)
- devc->lv_map[i] = i;
- for (i = 0; i < devc->nr_voice; i++)
- {
- opl3_command(pv_map[devc->lv_map[i]].ioaddr,
- KSL_LEVEL + pv_map[devc->lv_map[i]].op[0], 0xff);
- opl3_command(pv_map[devc->lv_map[i]].ioaddr,
- KSL_LEVEL + pv_map[devc->lv_map[i]].op[1], 0xff);
- if (pv_map[devc->lv_map[i]].voice_mode == 4)
- {
- opl3_command(pv_map[devc->lv_map[i]].ioaddr,
- KSL_LEVEL + pv_map[devc->lv_map[i]].op[2], 0xff);
- opl3_command(pv_map[devc->lv_map[i]].ioaddr,
- KSL_LEVEL + pv_map[devc->lv_map[i]].op[3], 0xff);
- }
- opl3_kill_note(devno, i, 0, 64);
- }
- if (devc->model == 2)
- {
- devc->v_alloc->max_voice = devc->nr_voice = 18;
- for (i = 0; i < 18; i++)
- pv_map[i].voice_mode = 2;
- }
- }
- static int opl3_open(int dev, int mode)
- {
- int i;
- if (devc->busy)
- return -EBUSY;
- devc->busy = 1;
- devc->v_alloc->max_voice = devc->nr_voice = (devc->model == 2) ? 18 : 9;
- devc->v_alloc->timestamp = 0;
- for (i = 0; i < 18; i++)
- {
- devc->v_alloc->map[i] = 0;
- devc->v_alloc->alloc_times[i] = 0;
- }
- devc->cmask = 0x00;
- if (devc->model == 2)
- opl3_command(devc->right_io, CONNECTION_SELECT_REGISTER, devc->cmask);
- return 0;
- }
- static void opl3_close(int dev)
- {
- devc->busy = 0;
- devc->v_alloc->max_voice = devc->nr_voice = (devc->model == 2) ? 18 : 9;
- devc->fm_info.nr_drums = 0;
- devc->fm_info.perc_mode = 0;
- opl3_reset(dev);
- }
- static void opl3_hw_control(int dev, unsigned char *event)
- {
- }
- static int opl3_load_patch(int dev, int format, const char __user *addr,
- int count, int pmgr_flag)
- {
- struct sbi_instrument ins;
- if (count <sizeof(ins))
- {
- printk(KERN_WARNING "FM Error: Patch record too short\n");
- return -EINVAL;
- }
- if (copy_from_user(&ins, addr, sizeof(ins)))
- return -EFAULT;
- if (ins.channel < 0 || ins.channel >= SBFM_MAXINSTR)
- {
- printk(KERN_WARNING "FM Error: Invalid instrument number %d\n", ins.channel);
- return -EINVAL;
- }
- ins.key = format;
- return store_instr(ins.channel, &ins);
- }
- static void opl3_panning(int dev, int voice, int value)
- {
- if (voice < 0 || voice >= devc->nr_voice)
- return;
- devc->voc[voice].panning = value;
- }
- static void opl3_volume_method(int dev, int mode)
- {
- }
- #define SET_VIBRATO(cell) { \
- tmp = instr->operators[(cell-1)+(((cell-1)/2)*OFFS_4OP)]; \
- if (pressure > 110) \
- tmp |= 0x40; \
- opl3_command (map->ioaddr, AM_VIB + map->op[cell-1], tmp);}
- static void opl3_aftertouch(int dev, int voice, int pressure)
- {
- int tmp;
- struct sbi_instrument *instr;
- struct physical_voice_info *map;
- if (voice < 0 || voice >= devc->nr_voice)
- return;
- map = &pv_map[devc->lv_map[voice]];
- if (map->voice_mode == 0)
- return;
-
- instr = devc->act_i[voice];
- if (!instr)
- instr = &devc->i_map[0];
- if (devc->voc[voice].mode == 4)
- {
- int connection = ((instr->operators[10] & 0x01) << 1) | (instr->operators[10 + OFFS_4OP] & 0x01);
- switch (connection)
- {
- case 0:
- SET_VIBRATO(4);
- break;
- case 1:
- SET_VIBRATO(2);
- SET_VIBRATO(4);
- break;
- case 2:
- SET_VIBRATO(1);
- SET_VIBRATO(4);
- break;
- case 3:
- SET_VIBRATO(1);
- SET_VIBRATO(3);
- SET_VIBRATO(4);
- break;
- }
-
- }
- else
- {
- SET_VIBRATO(1);
- if ((instr->operators[10] & 0x01))
- SET_VIBRATO(2);
- }
- }
- #undef SET_VIBRATO
- static void bend_pitch(int dev, int voice, int value)
- {
- unsigned char data;
- int block, fnum, freq;
- struct physical_voice_info *map;
- map = &pv_map[devc->lv_map[voice]];
- if (map->voice_mode == 0)
- return;
- devc->voc[voice].bender = value;
- if (!value)
- return;
- if (!(devc->voc[voice].keyon_byte & 0x20))
- return;
- freq = compute_finetune(devc->voc[voice].orig_freq, devc->voc[voice].bender, devc->voc[voice].bender_range, 0);
- devc->voc[voice].current_freq = freq;
- freq_to_fnum(freq, &block, &fnum);
- data = fnum & 0xff;
- opl3_command(map->ioaddr, FNUM_LOW + map->voice_num, data);
- data = 0x20 | ((block & 0x7) << 2) | ((fnum >> 8) & 0x3);
- devc->voc[voice].keyon_byte = data;
- opl3_command(map->ioaddr, KEYON_BLOCK + map->voice_num, data);
- }
- static void opl3_controller (int dev, int voice, int ctrl_num, int value)
- {
- if (voice < 0 || voice >= devc->nr_voice)
- return;
- switch (ctrl_num)
- {
- case CTRL_PITCH_BENDER:
- bend_pitch(dev, voice, value);
- break;
- case CTRL_PITCH_BENDER_RANGE:
- devc->voc[voice].bender_range = value;
- break;
- case CTL_MAIN_VOLUME:
- devc->voc[voice].volume = value / 128;
- break;
- case CTL_PAN:
- devc->voc[voice].panning = (value * 2) - 128;
- break;
- }
- }
- static void opl3_bender(int dev, int voice, int value)
- {
- if (voice < 0 || voice >= devc->nr_voice)
- return;
- bend_pitch(dev, voice, value - 8192);
- }
- static int opl3_alloc_voice(int dev, int chn, int note, struct voice_alloc_info *alloc)
- {
- int i, p, best, first, avail, best_time = 0x7fffffff;
- struct sbi_instrument *instr;
- int is4op;
- int instr_no;
- if (chn < 0 || chn > 15)
- instr_no = 0;
- else
- instr_no = devc->chn_info[chn].pgm_num;
- instr = &devc->i_map[instr_no];
- if (instr->channel < 0 ||
- devc->nr_voice != 12)
- is4op = 0;
- else if (devc->nr_voice == 12)
- is4op = (instr->key == OPL3_PATCH);
- else
- is4op = 0;
- if (is4op)
- {
- first = p = 0;
- avail = 6;
- }
- else
- {
- if (devc->nr_voice == 12)
- first = p = 6;
- else
- first = p = 0;
- avail = devc->nr_voice;
- }
-
- best = first;
- for (i = 0; i < avail; i++)
- {
- if (alloc->map[p] == 0)
- {
- return p;
- }
- if (alloc->alloc_times[p] < best_time)
- {
- best_time = alloc->alloc_times[p];
- best = p;
- }
- p = (p + 1) % avail;
- }
-
- if (best < 0)
- best = 0;
- if (best > devc->nr_voice)
- best -= devc->nr_voice;
- return best;
- }
- static void opl3_setup_voice(int dev, int voice, int chn)
- {
- struct channel_info *info;
- if (voice < 0 || voice >= devc->nr_voice)
- return;
- if (chn < 0 || chn > 15)
- return;
- info = &synth_devs[dev]->chn_info[chn];
- opl3_set_instr(dev, voice, info->pgm_num);
- devc->voc[voice].bender = 0;
- devc->voc[voice].bender_range = info->bender_range;
- devc->voc[voice].volume = info->controllers[CTL_MAIN_VOLUME];
- devc->voc[voice].panning = (info->controllers[CTL_PAN] * 2) - 128;
- }
- static struct synth_operations opl3_operations =
- {
- .owner = THIS_MODULE,
- .id = "OPL",
- .info = NULL,
- .midi_dev = 0,
- .synth_type = SYNTH_TYPE_FM,
- .synth_subtype = FM_TYPE_ADLIB,
- .open = opl3_open,
- .close = opl3_close,
- .ioctl = opl3_ioctl,
- .kill_note = opl3_kill_note,
- .start_note = opl3_start_note,
- .set_instr = opl3_set_instr,
- .reset = opl3_reset,
- .hw_control = opl3_hw_control,
- .load_patch = opl3_load_patch,
- .aftertouch = opl3_aftertouch,
- .controller = opl3_controller,
- .panning = opl3_panning,
- .volume_method = opl3_volume_method,
- .bender = opl3_bender,
- .alloc_voice = opl3_alloc_voice,
- .setup_voice = opl3_setup_voice
- };
- static int opl3_init(int ioaddr, struct module *owner)
- {
- int i;
- int me;
- if (devc == NULL)
- {
- printk(KERN_ERR "opl3: Device control structure not initialized.\n");
- return -1;
- }
- if ((me = sound_alloc_synthdev()) == -1)
- {
- printk(KERN_WARNING "opl3: Too many synthesizers\n");
- return -1;
- }
- devc->nr_voice = 9;
- devc->fm_info.device = 0;
- devc->fm_info.synth_type = SYNTH_TYPE_FM;
- devc->fm_info.synth_subtype = FM_TYPE_ADLIB;
- devc->fm_info.perc_mode = 0;
- devc->fm_info.nr_voices = 9;
- devc->fm_info.nr_drums = 0;
- devc->fm_info.instr_bank_size = SBFM_MAXINSTR;
- devc->fm_info.capabilities = 0;
- devc->left_io = ioaddr;
- devc->right_io = ioaddr + 2;
- if (detected_model <= 2)
- devc->model = 1;
- else
- {
- devc->model = 2;
- if (detected_model == 4)
- devc->is_opl4 = 1;
- }
- opl3_operations.info = &devc->fm_info;
- synth_devs[me] = &opl3_operations;
- if (owner)
- synth_devs[me]->owner = owner;
-
- sequencer_init();
- devc->v_alloc = &opl3_operations.alloc;
- devc->chn_info = &opl3_operations.chn_info[0];
- if (devc->model == 2)
- {
- if (devc->is_opl4)
- strcpy(devc->fm_info.name, "Yamaha OPL4/OPL3 FM");
- else
- strcpy(devc->fm_info.name, "Yamaha OPL3");
- devc->v_alloc->max_voice = devc->nr_voice = 18;
- devc->fm_info.nr_drums = 0;
- devc->fm_info.synth_subtype = FM_TYPE_OPL3;
- devc->fm_info.capabilities |= SYNTH_CAP_OPL3;
- for (i = 0; i < 18; i++)
- {
- if (pv_map[i].ioaddr == USE_LEFT)
- pv_map[i].ioaddr = devc->left_io;
- else
- pv_map[i].ioaddr = devc->right_io;
- }
- opl3_command(devc->right_io, OPL3_MODE_REGISTER, OPL3_ENABLE);
- opl3_command(devc->right_io, CONNECTION_SELECT_REGISTER, 0x00);
- }
- else
- {
- strcpy(devc->fm_info.name, "Yamaha OPL2");
- devc->v_alloc->max_voice = devc->nr_voice = 9;
- devc->fm_info.nr_drums = 0;
- for (i = 0; i < 18; i++)
- pv_map[i].ioaddr = devc->left_io;
- }
- conf_printf2(devc->fm_info.name, ioaddr, 0, -1, -1);
- for (i = 0; i < SBFM_MAXINSTR; i++)
- devc->i_map[i].channel = -1;
- return me;
- }
- static int me;
- static int io = -1;
- module_param(io, int, 0);
- static int __init init_opl3 (void)
- {
- printk(KERN_INFO "YM3812 and OPL-3 driver Copyright (C) by Hannu Savolainen, Rob Hooft 1993-1996\n");
- if (io != -1)
- {
- if (!opl3_detect(io))
- {
- return -ENODEV;
- }
- me = opl3_init(io, THIS_MODULE);
- }
- return 0;
- }
- static void __exit cleanup_opl3(void)
- {
- if (devc && io != -1)
- {
- if (devc->base) {
- release_region(devc->base,4);
- if (devc->is_opl4)
- release_region(devc->base - 8, 2);
- }
- kfree(devc);
- devc = NULL;
- sound_unload_synthdev(me);
- }
- }
- module_init(init_opl3);
- module_exit(cleanup_opl3);
- #ifndef MODULE
- static int __init setup_opl3(char *str)
- {
-
- int ints[2];
-
- str = get_options(str, ARRAY_SIZE(ints), ints);
-
- io = ints[1];
- return 1;
- }
- __setup("opl3=", setup_opl3);
- #endif
- MODULE_LICENSE("GPL");
|