4 * High level midi sequencer manager for dumb MIDI interfaces.
6 * Copyright by Hannu Savolainen 1993
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions are
10 * met: 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer. 2.
12 * Redistributions in binary form must reproduce the above copyright notice,
13 * this list of conditions and the following disclaimer in the documentation
14 * and/or other materials provided with the distribution.
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND ANY
17 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
18 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
19 * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
20 * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
22 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
23 * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 * $DragonFly: src/sys/dev/sound/isa/i386/Attic/midi_synth.c,v 1.2 2003/08/07 21:17:12 dillon Exp $
31 #define USE_SEQ_MACROS
32 #define USE_SIMPLE_MACROS
36 #include "sound_config.h"
38 #if defined(CONFIGURE_SOUNDCARD) /* && defined(CONFIG_MIDI) */
40 #define _MIDI_SYNTH_C_
42 static int *sysex_sleeper = NULL;
43 static volatile struct snd_wait sysex_sleep_flag = {0};
45 #include "midi_synth.h"
47 static int midi2synth[MAX_MIDI_DEV];
48 static int sysex_state[MAX_MIDI_DEV] =
50 static unsigned char prev_out_status[MAX_MIDI_DEV];
52 #ifndef CONFIG_SEQUENCER
55 #define STORE(cmd) { \
57 unsigned char obuf[8]; \
59 seq_input_event(obuf, len); \
65 #define _SEQ_ADVBUF(x) len=x
68 do_midi_msg(int synthno, unsigned char *msg, int mlen)
70 switch (msg[0] & 0xf0) {
73 STORE(SEQ_START_NOTE(synthno, msg[0] & 0x0f, msg[1], msg[2]));
79 STORE(SEQ_STOP_NOTE(synthno, msg[0] & 0x0f, msg[1], msg[2]));
83 STORE(SEQ_KEY_PRESSURE(synthno, msg[0] & 0x0f, msg[1], msg[2]));
87 STORE(SEQ_CONTROL(synthno, msg[0] & 0x0f, msg[1], msg[2]));
91 STORE(SEQ_SET_PATCH(synthno, msg[0] & 0x0f, msg[1]));
95 STORE(SEQ_CHN_PRESSURE(synthno, msg[0] & 0x0f, msg[1]));
99 STORE(SEQ_BENDER(synthno, msg[0] & 0x0f,
100 (msg[1] % 0x7f) | ((msg[2] & 0x7f) << 7)));
105 * printf ("MPU: Unknown midi channel message %02x\n",
113 midi_outc(int midi_dev, int data)
117 for (timeout = 0; timeout < 32000; timeout++)
118 if (midi_devs[midi_dev]->putc(midi_dev, (unsigned char) (data & 0xff))) {
119 if (data & 0x80) /* Status byte */
120 prev_out_status[midi_dev] =
121 (unsigned char) (data & 0xff); /* Store for running
123 return; /* Mission complete */
126 * Sorry! No space on buffers.
128 printf("Midi send timed out\n");
132 prefix_cmd(int midi_dev, unsigned char status)
134 if ((char *) midi_devs[midi_dev]->prefix_cmd == NULL)
137 return midi_devs[midi_dev]->prefix_cmd(midi_dev, status);
141 midi_synth_input(int orig_dev, unsigned char data)
144 struct midi_input_info *inc;
146 static unsigned char len_tab[] = /* # of data bytes following a status */
158 if (orig_dev < 0 || orig_dev > num_midis)
161 if (data == 0xfe) /* Ignore active sensing */
164 dev = midi2synth[orig_dev];
165 inc = &midi_devs[orig_dev]->in_info;
167 switch (inc->m_state) {
169 if (data & 0x80) { /* MIDI status byte */
170 if ((data & 0xf0) == 0xf0) { /* Common message */
172 case 0xf0: /* Sysex */
173 inc->m_state = MST_SYSEX;
176 case 0xf1: /* MTC quarter frame */
177 case 0xf3: /* Song select */
178 inc->m_state = MST_DATA;
181 inc->m_buf[0] = data;
184 case 0xf2: /* Song position pointer */
185 inc->m_state = MST_DATA;
188 inc->m_buf[0] = data;
192 inc->m_buf[0] = data;
194 do_midi_msg(dev, inc->m_buf, inc->m_ptr);
199 inc->m_state = MST_DATA;
201 inc->m_left = len_tab[(data >> 4) - 8];
202 inc->m_buf[0] = inc->m_prev_status = data;
204 } else if (inc->m_prev_status & 0x80) { /* Ignore if no previous
205 * status (yet) *//* Data byte (use running status) */
206 inc->m_state = MST_DATA;
208 inc->m_left = len_tab[(data >> 4) - 8] - 1;
209 inc->m_buf[0] = inc->m_prev_status;
210 inc->m_buf[1] = data;
212 break; /* MST_INIT */
215 inc->m_buf[inc->m_ptr++] = data;
216 if (--inc->m_left <= 0) {
217 inc->m_state = MST_INIT;
218 do_midi_msg(dev, inc->m_buf, inc->m_ptr);
221 break; /* MST_DATA */
224 if (data == 0xf7) { /* Sysex end */
225 inc->m_state = MST_INIT;
229 break; /* MST_SYSEX */
232 printf("MIDI%d: Unexpected state %d (%02x)\n", orig_dev, inc->m_state,
234 inc->m_state = MST_INIT;
241 int orig_dev = synth_devs[dev]->midi_dev;
244 if (!sysex_state[dev])
247 sysex_state[dev] = 0;
249 while (!midi_devs[orig_dev]->putc(orig_dev, 0xf7) && timeout < 1000)
252 sysex_state[dev] = 0;
256 midi_synth_output(int dev)
264 midi_synth_ioctl(int dev, unsigned int cmd, ioctl_arg arg)
267 * int orig_dev = synth_devs[dev]->midi_dev;
272 case SNDCTL_SYNTH_INFO:
273 bcopy(synth_devs[dev]->info, &(((char *) arg)[0]), sizeof(struct synth_info));
277 case SNDCTL_SYNTH_MEMAVL:
287 midi_synth_kill_note(int dev, int channel, int note, int velocity)
289 int orig_dev = synth_devs[dev]->midi_dev;
292 if (note < 0 || note > 127)
294 if (channel < 0 || channel > 15)
296 RANGE (velocity, 0, 127 ) ;
299 msg = prev_out_status[orig_dev] & 0xf0;
300 chn = prev_out_status[orig_dev] & 0x0f;
302 if (chn == channel && ((msg == 0x90 && velocity == 64) || msg == 0x80)) { /* Use running status */
303 if (!prefix_cmd(orig_dev, note))
306 midi_outc(orig_dev, note);
308 if (msg == 0x90)/* Running status = Note on */
309 midi_outc(orig_dev, 0); /* Note on with velocity 0 == note off */
311 midi_outc(orig_dev, velocity);
313 if (velocity == 64) {
314 if (!prefix_cmd(orig_dev, 0x90 | (channel & 0x0f)))
316 midi_outc(orig_dev, 0x90 | (channel & 0x0f)); /* Note on */
317 midi_outc(orig_dev, note);
318 midi_outc(orig_dev, 0); /* Zero G */
320 if (!prefix_cmd(orig_dev, 0x80 | (channel & 0x0f)))
322 midi_outc(orig_dev, 0x80 | (channel & 0x0f)); /* Note off */
323 midi_outc(orig_dev, note);
324 midi_outc(orig_dev, velocity);
332 midi_synth_set_instr(int dev, int channel, int instr_no)
334 int orig_dev = synth_devs[dev]->midi_dev;
336 if (instr_no < 0 || instr_no > 127)
338 if (channel < 0 || channel > 15)
343 if (!prefix_cmd(orig_dev, 0xc0 | (channel & 0x0f)))
345 midi_outc(orig_dev, 0xc0 | (channel & 0x0f)); /* Program change */
346 midi_outc(orig_dev, instr_no);
352 midi_synth_start_note(int dev, int channel, int note, int velocity)
354 int orig_dev = synth_devs[dev]->midi_dev;
357 if (note < 0 || note > 127)
359 if (channel < 0 || channel > 15)
361 RANGE (velocity, 0, 127 );
364 msg = prev_out_status[orig_dev] & 0xf0;
365 chn = prev_out_status[orig_dev] & 0x0f;
367 if (chn == channel && msg == 0x90) { /* Use running status */
368 if (!prefix_cmd(orig_dev, note))
370 midi_outc(orig_dev, note);
371 midi_outc(orig_dev, velocity);
373 if (!prefix_cmd(orig_dev, 0x90 | (channel & 0x0f)))
375 midi_outc(orig_dev, 0x90 | (channel & 0x0f)); /* Note on */
376 midi_outc(orig_dev, note);
377 midi_outc(orig_dev, velocity);
383 midi_synth_reset(int dev)
390 midi_synth_open(int dev, int mode)
392 int orig_dev = synth_devs[dev]->midi_dev;
395 struct midi_input_info *inc;
397 if (orig_dev < 0 || orig_dev > num_midis)
400 midi2synth[orig_dev] = dev;
401 sysex_state[dev] = 0;
402 prev_out_status[orig_dev] = 0;
404 if ((err = midi_devs[orig_dev]->open(orig_dev, mode,
405 midi_synth_input, midi_synth_output)) < 0)
408 inc = &midi_devs[orig_dev]->in_info;
412 inc->m_state = MST_INIT;
415 inc->m_prev_status = 0x00;
418 sysex_sleep_flag.aborting = 0;
419 sysex_sleep_flag.mode = WK_NONE;
425 midi_synth_close(int dev)
427 int orig_dev = synth_devs[dev]->midi_dev;
432 * Shut up the synths by sending just single active sensing message.
434 midi_devs[orig_dev]->putc(orig_dev, 0xfe);
436 midi_devs[orig_dev]->close(orig_dev);
440 midi_synth_hw_control(int dev, unsigned char *event)
445 midi_synth_load_patch(int dev, int format, snd_rw_buf * addr,
446 int offs, int count, int pmgr_flag)
448 int orig_dev = synth_devs[dev]->midi_dev;
450 struct sysex_info sysex;
452 unsigned long left, src_offs, eox_seen = 0;
454 int hdr_size = offsetof(struct sysex_info, data);
458 if (!prefix_cmd(orig_dev, 0xf0))
461 if (format != SYSEX_PATCH) {
462 printf("MIDI Error: Invalid patch format (key) 0x%x\n", format);
465 if (count < hdr_size) {
466 printf("MIDI Error: Patch header too short\n");
472 * Copy the header from user space but ignore the first bytes which
473 * have been transferred already.
477 if (uiomove(&((char *) &sysex)[offs], hdr_size - offs, addr)) {
478 printf("sb: Bad copyin()!\n");
481 if (count < sysex.len) {
482 printf("MIDI Warning: Sysex record too short (%d<%d)\n",
483 count, (int) sysex.len);
489 sysex_sleep_flag.aborting = 0;
490 sysex_sleep_flag.mode = WK_NONE;
492 for (i = 0; i < left && !(sysex_sleep_flag.aborting); i++) {
495 uiomove((char *) &(data), 1, addr);
497 eox_seen = (i > 0 && data & 0x80); /* End of sysex */
499 if (eox_seen && data != 0xf7)
504 printf("Error: Sysex start missing\n");
508 while (!midi_devs[orig_dev]->putc(orig_dev,
509 (unsigned char) (data & 0xff)) &&
510 !(sysex_sleep_flag.aborting)) {
514 sysex_sleeper = &chn;
515 DO_SLEEP(chn, sysex_sleep_flag, 1);
517 }; /* Wait for timeout */
519 if (!first_byte && data & 0x80)
525 midi_outc(orig_dev, 0xf7);
530 midi_synth_panning(int dev, int channel, int pressure)
535 midi_synth_aftertouch(int dev, int channel, int pressure)
537 int orig_dev = synth_devs[dev]->midi_dev;
540 if (pressure < 0 || pressure > 127)
542 if (channel < 0 || channel > 15)
547 msg = prev_out_status[orig_dev] & 0xf0;
548 chn = prev_out_status[orig_dev] & 0x0f;
550 if (msg != 0xd0 || chn != channel) { /* Test for running status */
551 if (!prefix_cmd(orig_dev, 0xd0 | (channel & 0x0f)))
553 midi_outc(orig_dev, 0xd0 | (channel & 0x0f)); /* Channel pressure */
554 } else if (!prefix_cmd(orig_dev, pressure))
557 midi_outc(orig_dev, pressure);
561 midi_synth_controller(int dev, int channel, int ctrl_num, int value)
563 int orig_dev = synth_devs[dev]->midi_dev;
566 if (ctrl_num < 1 || ctrl_num > 127)
567 return; /* NOTE! Controller # 0 ignored */
568 if (channel < 0 || channel > 15)
573 msg = prev_out_status[orig_dev] & 0xf0;
574 chn = prev_out_status[orig_dev] & 0x0f;
576 if (msg != 0xb0 || chn != channel) {
577 if (!prefix_cmd(orig_dev, 0xb0 | (channel & 0x0f)))
579 midi_outc(orig_dev, 0xb0 | (channel & 0x0f));
580 } else if (!prefix_cmd(orig_dev, ctrl_num))
583 midi_outc(orig_dev, ctrl_num);
584 midi_outc(orig_dev, value & 0x7f);
588 midi_synth_patchmgr(int dev, struct patmgr_info * rec)
594 midi_synth_bender(int dev, int channel, int value)
596 int orig_dev = synth_devs[dev]->midi_dev;
599 if (channel < 0 || channel > 15)
602 if (value < 0 || value > 16383)
607 msg = prev_out_status[orig_dev] & 0xf0;
608 prev_chn = prev_out_status[orig_dev] & 0x0f;
610 if (msg != 0xd0 || prev_chn != channel) { /* Test for running status */
611 if (!prefix_cmd(orig_dev, 0xe0 | (channel & 0x0f)))
613 midi_outc(orig_dev, 0xe0 | (channel & 0x0f));
614 } else if (!prefix_cmd(orig_dev, value & 0x7f))
617 midi_outc(orig_dev, value & 0x7f);
618 midi_outc(orig_dev, (value >> 7) & 0x7f);
622 midi_synth_setup_voice(int dev, int voice, int channel)
627 midi_synth_send_sysex(int dev, unsigned char *bytes, int len)
629 int orig_dev = synth_devs[dev]->midi_dev;
632 for (i = 0; i < len; i++) {
634 case 0xf0: /* Start sysex */
635 if (!prefix_cmd(orig_dev, 0xf0))
637 sysex_state[dev] = 1;
640 case 0xf7: /* End sysex */
641 if (!sysex_state[dev]) /* Orphan sysex end */
643 sysex_state[dev] = 0;
647 if (!sysex_state[dev])
650 if (bytes[i] & 0x80) { /* Error. Another message before sysex end */
651 bytes[i] = 0xf7; /* Sysex end */
652 sysex_state[dev] = 0;
656 if (!midi_devs[orig_dev]->putc(orig_dev, bytes[i])) {
658 * Hardware leve buffer is full. Abort the sysex message.
664 sysex_state[dev] = 0;
666 while (!midi_devs[orig_dev]->putc(orig_dev, bytes[i]) &&
670 if (!sysex_state[dev])