sound/oss/wf_midi.c

   1 /*
   2  * sound/wf_midi.c
   3  *
   4  * The low level driver for the WaveFront ICS2115 MIDI interface(s)
   5  * Note that there is also an MPU-401 emulation (actually, a UART-401
   6  * emulation) on the CS4232 on the Tropez Plus. This code has nothing
   7  * to do with that interface at all.
   8  *
   9  * The interface is essentially just a UART-401, but is has the
  10  * interesting property of supporting what Turtle Beach called
  11  * "Virtual MIDI" mode. In this mode, there are effectively *two*
  12  * MIDI buses accessible via the interface, one that is routed
  13  * solely to/from the external WaveFront synthesizer and the other
  14  * corresponding to the pin/socket connector used to link external
  15  * MIDI devices to the board.
  16  *
  17  * This driver fully supports this mode, allowing two distinct
  18  * midi devices (/dev/midiNN and /dev/midiNN+1) to be used
  19  * completely independently, giving 32 channels of MIDI routing,
  20  * 16 to the WaveFront synth and 16 to the external MIDI bus.
  21  *
  22  * Switching between the two is accomplished externally by the driver
  23  * using the two otherwise unused MIDI bytes. See the code for more details.
  24  *
  25  * NOTE: VIRTUAL MIDI MODE IS ON BY DEFAULT (see wavefront.c)
  26  *
  27  * The main reason to turn off Virtual MIDI mode is when you want to
  28  * tightly couple the WaveFront synth with an external MIDI
  29  * device. You won't be able to distinguish the source of any MIDI
  30  * data except via SysEx ID, but thats probably OK, since for the most
  31  * part, the WaveFront won't be sending any MIDI data at all.
  32  *
  33  * The main reason to turn on Virtual MIDI Mode is to provide two
  34  * completely independent 16-channel MIDI buses, one to the
  35  * WaveFront and one to any external MIDI devices. Given the 32
  36  * voice nature of the WaveFront, its pretty easy to find a use
  37  * for all 16 channels driving just that synth.
  38  *
  39  */
  40
  41 /*
  42  * Copyright (C) by Paul Barton-Davis 1998
  43  * Some portions of this file are derived from work that is:
  44  *
  45  *    CopyriGht (C) by Hannu Savolainen 1993-1996
  46  *
  47  * USS/Lite for Linux is distributed under the GNU GENERAL PUBLIC LICENSE (GPL)
  48  * Version 2 (June 1991). See the "COPYING" file distributed with this software
  49  * for more info.
  50  */
  51
  52 #include <linux/init.h>
  53 #include <linux/interrupt.h>
  54 #include <linux/spinlock.h>
  55 #include "sound_config.h"
  56
  57 #include <linux/wavefront.h>
  58
  59 #ifdef MODULE
  60
  61 struct wf_mpu_config {
  62         int             base;
  63 #define DATAPORT(d)   (d)->base
  64 #define COMDPORT(d)   (d)->base+1
  65 #define STATPORT(d)   (d)->base+1
  66
  67         int             irq;
  68         int             opened;
  69         int             devno;
  70         int             synthno;
  71         int             mode;
  72 #define MODE_MIDI       1
  73 #define MODE_SYNTH      2
  74
  75         void            (*inputintr) (int dev, unsigned char data);
  76         char isvirtual;                /* do virtual I/O stuff */
  77 };
  78
  79 static struct wf_mpu_config  devs[2];
  80 static struct wf_mpu_config *phys_dev = &devs[0];
  81 static struct wf_mpu_config *virt_dev = &devs[1];
  82
  83 static void start_uart_mode (void);
  84 static DEFINE_SPINLOCK(lock);
  85
  86 #define OUTPUT_READY    0x40
  87 #define INPUT_AVAIL     0x80
  88 #define MPU_ACK         0xFE
  89 #define UART_MODE_ON    0x3F
  90
  91 static inline int wf_mpu_status (void)
  92 {
  93         return inb (STATPORT (phys_dev));
  94 }
  95
  96 static inline int input_avail (void)
  97 {
  98         return !(wf_mpu_status() & INPUT_AVAIL);
  99 }
 100
 101 static inline int output_ready (void)
 102 {
 103         return !(wf_mpu_status() & OUTPUT_READY);
 104 }
 105
 106 static inline int  read_data (void)
 107 {
 108         return inb (DATAPORT (phys_dev));
 109 }
 110
 111 static inline void write_data (unsigned char byte)
 112 {
 113         outb (byte, DATAPORT (phys_dev));
 114 }
 115
 116 /*
 117  * States for the input scanner (should be in dev_table.h)
 118  */
 119
 120 #define MST_SYSMSG              100     /* System message (sysx etc). */
 121 #define MST_MTC                 102     /* Midi Time Code (MTC) qframe msg */
 122 #define MST_SONGSEL             103     /* Song select */
 123 #define MST_SONGPOS             104     /* Song position pointer */
 124 #define MST_TIMED               105     /* Leading timing byte rcvd */
 125
 126 /* buffer space check for input scanner */
 127
 128 #define BUFTEST(mi) if (mi->m_ptr >= MI_MAX || mi->m_ptr < 0) \
 129 {printk(KERN_ERR "WF-MPU: Invalid buffer pointer %d/%d, s=%d\n", \
 130         mi->m_ptr, mi->m_left, mi->m_state);mi->m_ptr--;}
 131
 132 static unsigned char len_tab[] =        /* # of data bytes following a status
 133                                          */
 134 {
 135         2,                              /* 8x */
 136         2,                              /* 9x */
 137         2,                              /* Ax */
 138         2,                              /* Bx */
 139         1,                              /* Cx */
 140         1,                              /* Dx */
 141         2,                              /* Ex */
 142         0                               /* Fx */
 143 };
 144
 145 static int
 146 wf_mpu_input_scanner (int devno, int synthdev, unsigned char midic)
 147
 148 {
 149         struct midi_input_info *mi = &midi_devs[devno]->in_info;
 150
 151         switch (mi->m_state) {
 152         case MST_INIT:
 153                 switch (midic) {
 154                 case 0xf8:
 155                         /* Timer overflow */
 156                         break;
 157
 158                 case 0xfc:
 159                         break;
 160
 161                 case 0xfd:
 162                         /* XXX do something useful with this. If there is
 163                            an external MIDI timer (e.g. a hardware sequencer,
 164                            a useful timer can be derived ...
 165
 166                            For now, no timer support.
 167                         */
 168                         break;
 169
 170                 case 0xfe:
 171                         return MPU_ACK;
 172                         break;
 173
 174                 case 0xf0:
 175                 case 0xf1:
 176                 case 0xf2:
 177                 case 0xf3:
 178                 case 0xf4:
 179                 case 0xf5:
 180                 case 0xf6:
 181                 case 0xf7:
 182                         break;
 183
 184                 case 0xf9:
 185                         break;
 186
 187                 case 0xff:
 188                         mi->m_state = MST_SYSMSG;
 189                         break;
 190
 191                 default:
 192                         if (midic <= 0xef) {
 193                                 mi->m_state = MST_TIMED;
 194                         }
 195                         else
 196                                 printk (KERN_ERR "<MPU: Unknown event %02x> ",
 197                                         midic);
 198                 }
 199                 break;
 200
 201         case MST_TIMED:
 202         {
 203                 int             msg = ((int) (midic & 0xf0) >> 4);
 204
 205                 mi->m_state = MST_DATA;
 206
 207                 if (msg < 8) {  /* Data byte */
 208
 209                         msg = ((int) (mi->m_prev_status & 0xf0) >> 4);
 210                         msg -= 8;
 211                         mi->m_left = len_tab[msg] - 1;
 212
 213                         mi->m_ptr = 2;
 214                         mi->m_buf[0] = mi->m_prev_status;
 215                         mi->m_buf[1] = midic;
 216
 217                         if (mi->m_left <= 0) {
 218                                 mi->m_state = MST_INIT;
 219                                 do_midi_msg (synthdev, mi->m_buf, mi->m_ptr);
 220                                 mi->m_ptr = 0;
 221                         }
 222                 } else if (msg == 0xf) {        /* MPU MARK */
 223
 224                         mi->m_state = MST_INIT;
 225
 226                         switch (midic) {
 227                         case 0xf8:
 228                                 break;
 229
 230                         case 0xf9:
 231                                 break;
 232
 233                         case 0xfc:
 234                                 break;
 235
 236                         default:
 237                                 break;
 238                         }
 239                 } else {
 240                         mi->m_prev_status = midic;
 241                         msg -= 8;
 242                         mi->m_left = len_tab[msg];
 243
 244                         mi->m_ptr = 1;
 245                         mi->m_buf[0] = midic;
 246
 247                         if (mi->m_left <= 0) {
 248                                 mi->m_state = MST_INIT;
 249                                 do_midi_msg (synthdev, mi->m_buf, mi->m_ptr);
 250                                 mi->m_ptr = 0;
 251                         }
 252                 }
 253         }
 254         break;
 255
 256         case MST_SYSMSG:
 257                 switch (midic) {
 258                 case 0xf0:
 259                         mi->m_state = MST_SYSEX;
 260                         break;
 261
 262                 case 0xf1:
 263                         mi->m_state = MST_MTC;
 264                         break;
 265
 266                 case 0xf2:
 267                         mi->m_state = MST_SONGPOS;
 268                         mi->m_ptr = 0;
 269                         break;
 270
 271                 case 0xf3:
 272                         mi->m_state = MST_SONGSEL;
 273                         break;
 274
 275                 case 0xf6:
 276                         mi->m_state = MST_INIT;
 277
 278                         /*
 279                          *    Real time messages
 280                          */
 281                 case 0xf8:
 282                         /* midi clock */
 283                         mi->m_state = MST_INIT;
 284                         /* XXX need ext MIDI timer support */
 285                         break;
 286
 287                 case 0xfA:
 288                         mi->m_state = MST_INIT;
 289                         /* XXX need ext MIDI timer support */
 290                         break;
 291
 292                 case 0xFB:
 293                         mi->m_state = MST_INIT;
 294                         /* XXX need ext MIDI timer support */
 295                         break;
 296
 297                 case 0xFC:
 298                         mi->m_state = MST_INIT;
 299                         /* XXX need ext MIDI timer support */
 300                         break;
 301
 302                 case 0xFE:
 303                         /* active sensing */
 304                         mi->m_state = MST_INIT;
 305                         break;
 306
 307                 case 0xff:
 308                         mi->m_state = MST_INIT;
 309                         break;
 310
 311                 default:
 312                         printk (KERN_ERR "unknown MIDI sysmsg %0x\n", midic);
 313                         mi->m_state = MST_INIT;
 314                 }
 315                 break;
 316
 317         case MST_MTC:
 318                 mi->m_state = MST_INIT;
 319                 break;
 320
 321         case MST_SYSEX:
 322                 if (midic == 0xf7) {
 323                         mi->m_state = MST_INIT;
 324                 } else {
 325                         /* XXX fix me */
 326                 }
 327                 break;
 328
 329         case MST_SONGPOS:
 330                 BUFTEST (mi);
 331                 mi->m_buf[mi->m_ptr++] = midic;
 332                 if (mi->m_ptr == 2) {
 333                         mi->m_state = MST_INIT;
 334                         mi->m_ptr = 0;
 335                         /* XXX need ext MIDI timer support */
 336                 }
 337                 break;
 338
 339         case MST_DATA:
 340                 BUFTEST (mi);
 341                 mi->m_buf[mi->m_ptr++] = midic;
 342                 if ((--mi->m_left) <= 0) {
 343                         mi->m_state = MST_INIT;
 344                         do_midi_msg (synthdev, mi->m_buf, mi->m_ptr);
 345                         mi->m_ptr = 0;
 346                 }
 347                 break;
 348
 349         default:
 350                 printk (KERN_ERR "Bad state %d ", mi->m_state);
 351                 mi->m_state = MST_INIT;
 352         }
 353
 354         return 1;
 355 }
 356
 357 static irqreturn_t
 358 wf_mpuintr(int irq, void *dev_id, struct pt_regs *dummy)
 359
 360 {
 361         struct wf_mpu_config *physical_dev = dev_id;
 362         static struct wf_mpu_config *input_dev;
 363         struct midi_input_info *mi = &midi_devs[physical_dev->devno]->in_info;
 364         int n;
 365
 366         if (!input_avail()) { /* not for us */
 367                 return IRQ_NONE;
 368         }
 369
 370         if (mi->m_busy)
 371                 return IRQ_HANDLED;
 372         spin_lock(&lock);
 373         mi->m_busy = 1;
 374
 375         if (!input_dev) {
 376                 input_dev = physical_dev;
 377         }
 378
 379         n = 50; /* XXX why ? */
 380
 381         do {
 382                 unsigned char c = read_data ();
 383
 384                 if (phys_dev->isvirtual) {
 385
 386                         if (c == WF_EXTERNAL_SWITCH) {
 387                                 input_dev = virt_dev;
 388                                 continue;
 389                         } else if (c == WF_INTERNAL_SWITCH) {
 390                                 input_dev = phys_dev;
 391                                 continue;
 392                         } /* else just leave it as it is */
 393
 394                 } else {
 395                         input_dev = phys_dev;
 396                 }
 397
 398                 if (input_dev->mode == MODE_SYNTH) {
 399
 400                         wf_mpu_input_scanner (input_dev->devno,
 401                                               input_dev->synthno, c);
 402
 403                 } else if (input_dev->opened & OPEN_READ) {
 404
 405                         if (input_dev->inputintr) {
 406                                 input_dev->inputintr (input_dev->devno, c);
 407                         }
 408                 }
 409
 410         } while (input_avail() && n-- > 0);
 411
 412         mi->m_busy = 0;
 413         spin_unlock(&lock);
 414         return IRQ_HANDLED;
 415 }
 416
 417 static int
 418 wf_mpu_open (int dev, int mode,
 419              void            (*input) (int dev, unsigned char data),
 420              void            (*output) (int dev)
 421         )
 422 {
 423         struct wf_mpu_config *devc;
 424
 425         if (dev < 0 || dev >= num_midis || midi_devs[dev]==NULL)
 426                 return -(ENXIO);
 427
 428         if (phys_dev->devno == dev) {
 429                 devc = phys_dev;
 430         } else if (phys_dev->isvirtual && virt_dev->devno == dev) {
 431                 devc = virt_dev;
 432         } else {
 433                 printk (KERN_ERR "WF-MPU: unknown device number %d\n", dev);
 434                 return -(EINVAL);
 435         }
 436
 437         if (devc->opened) {
 438                 return -(EBUSY);
 439         }
 440
 441         devc->mode = MODE_MIDI;
 442         devc->opened = mode;
 443         devc->synthno = 0;
 444
 445         devc->inputintr = input;
 446         return 0;
 447 }
 448
 449 static void
 450 wf_mpu_close (int dev)
 451 {
 452         struct wf_mpu_config *devc;
 453
 454         if (dev < 0 || dev >= num_midis || midi_devs[dev]==NULL)
 455                 return;
 456
 457         if (phys_dev->devno == dev) {
 458                 devc = phys_dev;
 459         } else if (phys_dev->isvirtual && virt_dev->devno == dev) {
 460                 devc = virt_dev;
 461         } else {
 462                 printk (KERN_ERR "WF-MPU: unknown device number %d\n", dev);
 463                 return;
 464         }
 465
 466         devc->mode = 0;
 467         devc->inputintr = NULL;
 468         devc->opened = 0;
 469 }
 470
 471 static int
 472 wf_mpu_out (int dev, unsigned char midi_byte)
 473 {
 474         int             timeout;
 475         unsigned long   flags;
 476         static int lastoutdev = -1;
 477         unsigned char switchch;
 478
 479         if (phys_dev->isvirtual && lastoutdev != dev) {
 480
 481                 if (dev == phys_dev->devno) {
 482                         switchch = WF_INTERNAL_SWITCH;
 483                 } else if (dev == virt_dev->devno) {
 484                         switchch = WF_EXTERNAL_SWITCH;
 485                 } else {
 486                         printk (KERN_ERR "WF-MPU: bad device number %d", dev);
 487                         return (0);
 488                 }
 489
 490                 /* XXX fix me */
 491
 492                 for (timeout = 30000; timeout > 0 && !output_ready ();
 493                      timeout--);
 494
 495                 spin_lock_irqsave(&lock,flags);
 496
 497                 if (!output_ready ()) {
 498                         printk (KERN_WARNING "WF-MPU: Send switch "
 499                                 "byte timeout\n");
 500                         spin_unlock_irqrestore(&lock,flags);
 501                         return 0;
 502                 }
 503
 504                 write_data (switchch);
 505                 spin_unlock_irqrestore(&lock,flags);
 506         }
 507
 508         lastoutdev = dev;
 509
 510         /*
 511          * Sometimes it takes about 30000 loops before the output becomes ready
 512          * (After reset). Normally it takes just about 10 loops.
 513          */
 514
 515         /* XXX fix me */
 516
 517         for (timeout = 30000; timeout > 0 && !output_ready (); timeout--);
 518
 519         spin_lock_irqsave(&lock,flags);
 520         if (!output_ready ()) {
 521                 spin_unlock_irqrestore(&lock,flags);
 522                 printk (KERN_WARNING "WF-MPU: Send data timeout\n");
 523                 return 0;
 524         }
 525
 526         write_data (midi_byte);
 527         spin_unlock_irqrestore(&lock,flags);
 528
 529         return 1;
 530 }
 531
 532 static inline int wf_mpu_start_read (int dev) {
 533         return 0;
 534 }
 535
 536 static inline int wf_mpu_end_read (int dev) {
 537         return 0;
 538 }
 539
 540 static int wf_mpu_ioctl (int dev, unsigned cmd, void __user *arg)
 541 {
 542         printk (KERN_WARNING
 543                 "WF-MPU: Intelligent mode not supported by hardware.\n");
 544         return -(EINVAL);
 545 }
 546
 547 static int wf_mpu_buffer_status (int dev)
 548 {
 549         return 0;
 550 }
 551
 552 static struct synth_operations wf_mpu_synth_operations[2];
 553 static struct midi_operations  wf_mpu_midi_operations[2];
 554
 555 static struct midi_operations wf_mpu_midi_proto =
 556 {
 557         .owner          = THIS_MODULE,
 558         .info           = {"WF-MPU MIDI", 0, MIDI_CAP_MPU401, SNDCARD_MPU401},
 559         .in_info        = {0},   /* in_info */
 560         .open           = wf_mpu_open,
 561         .close          = wf_mpu_close,
 562         .ioctl          = wf_mpu_ioctl,
 563         .outputc        = wf_mpu_out,
 564         .start_read     = wf_mpu_start_read,
 565         .end_read       = wf_mpu_end_read,
 566         .buffer_status  = wf_mpu_buffer_status,
 567 };
 568
 569 static struct synth_info wf_mpu_synth_info_proto =
 570 {"WaveFront MPU-401 interface", 0,
 571  SYNTH_TYPE_MIDI, MIDI_TYPE_MPU401, 0, 128, 0, 128, SYNTH_CAP_INPUT};
 572
 573 static struct synth_info wf_mpu_synth_info[2];
 574
 575 static int
 576 wf_mpu_synth_ioctl (int dev, unsigned int cmd, void __user *arg)
 577 {
 578         int             midi_dev;
 579         int index;
 580
 581         midi_dev = synth_devs[dev]->midi_dev;
 582
 583         if (midi_dev < 0 || midi_dev > num_midis || midi_devs[midi_dev]==NULL)
 584                 return -(ENXIO);
 585
 586         if (midi_dev == phys_dev->devno) {
 587                 index = 0;
 588         } else if (phys_dev->isvirtual && midi_dev == virt_dev->devno) {
 589                 index = 1;
 590         } else {
 591                 return -(EINVAL);
 592         }
 593
 594         switch (cmd) {
 595
 596         case SNDCTL_SYNTH_INFO:
 597                 if (copy_to_user(arg,
 598                               &wf_mpu_synth_info[index],
 599                               sizeof (struct synth_info)))
 600                         return -EFAULT;
 601                 return 0;
 602
 603         case SNDCTL_SYNTH_MEMAVL:
 604                 return 0x7fffffff;
 605
 606         default:
 607                 return -EINVAL;
 608         }
 609 }
 610
 611 static int
 612 wf_mpu_synth_open (int dev, int mode)
 613 {
 614         int             midi_dev;
 615         struct wf_mpu_config *devc;
 616
 617         midi_dev = synth_devs[dev]->midi_dev;
 618
 619         if (midi_dev < 0 || midi_dev > num_midis || midi_devs[midi_dev]==NULL) {
 620                 return -(ENXIO);
 621         }
 622
 623         if (phys_dev->devno == midi_dev) {
 624                 devc = phys_dev;
 625         } else if (phys_dev->isvirtual && virt_dev->devno == midi_dev) {
 626                 devc = virt_dev;
 627         } else {
 628                 printk (KERN_ERR "WF-MPU: unknown device number %d\n", dev);
 629                 return -(EINVAL);
 630         }
 631
 632         if (devc->opened) {
 633                 return -(EBUSY);
 634         }
 635
 636         devc->mode = MODE_SYNTH;
 637         devc->synthno = dev;
 638         devc->opened = mode;
 639         devc->inputintr = NULL;
 640         return 0;
 641 }
 642
 643 static void
 644 wf_mpu_synth_close (int dev)
 645 {
 646         int             midi_dev;
 647         struct wf_mpu_config *devc;
 648
 649         midi_dev = synth_devs[dev]->midi_dev;
 650
 651         if (phys_dev->devno == midi_dev) {
 652                 devc = phys_dev;
 653         } else if (phys_dev->isvirtual && virt_dev->devno == midi_dev) {
 654                 devc = virt_dev;
 655         } else {
 656                 printk (KERN_ERR "WF-MPU: unknown device number %d\n", dev);
 657                 return;
 658         }
 659
 660         devc->inputintr = NULL;
 661         devc->opened = 0;
 662         devc->mode = 0;
 663 }
 664
 665 #define _MIDI_SYNTH_C_
 666 #define MIDI_SYNTH_NAME "WaveFront (MIDI)"
 667 #define MIDI_SYNTH_CAPS SYNTH_CAP_INPUT
 668 #include "midi_synth.h"
 669
 670 static struct synth_operations wf_mpu_synth_proto =
 671 {
 672         .owner          = THIS_MODULE,
 673         .id             = "WaveFront (ICS2115)",
 674         .info           = NULL,  /* info field, filled in during configuration */
 675         .midi_dev       = 0,     /* MIDI dev XXX should this be -1 ? */
 676         .synth_type     = SYNTH_TYPE_MIDI,
 677         .synth_subtype  = SAMPLE_TYPE_WAVEFRONT,
 678         .open           = wf_mpu_synth_open,
 679         .close          = wf_mpu_synth_close,
 680         .ioctl          = wf_mpu_synth_ioctl,
 681         .kill_note      = midi_synth_kill_note,
 682         .start_note     = midi_synth_start_note,
 683         .set_instr      = midi_synth_set_instr,
 684         .reset          = midi_synth_reset,
 685         .hw_control     = midi_synth_hw_control,
 686         .load_patch     = midi_synth_load_patch,
 687         .aftertouch     = midi_synth_aftertouch,
 688         .controller     = midi_synth_controller,
 689         .panning        = midi_synth_panning,
 690         .bender         = midi_synth_bender,
 691         .setup_voice    = midi_synth_setup_voice,
 692         .send_sysex     = midi_synth_send_sysex
 693 };
 694
 695 static int
 696 config_wf_mpu (struct wf_mpu_config *dev)
 697
 698 {
 699         int is_external;
 700         char *name;
 701         int index;
 702
 703         if (dev == phys_dev) {
 704                 name = "WaveFront internal MIDI";
 705                 is_external = 0;
 706                 index = 0;
 707                 memcpy ((char *) &wf_mpu_synth_operations[index],
 708                         (char *) &wf_mpu_synth_proto,
 709                         sizeof (struct synth_operations));
 710         } else {
 711                 name = "WaveFront external MIDI";
 712                 is_external = 1;
 713                 index = 1;
 714                 /* no synth operations for an external MIDI interface */
 715         }
 716
 717         memcpy ((char *) &wf_mpu_synth_info[dev->devno],
 718                 (char *) &wf_mpu_synth_info_proto,
 719                 sizeof (struct synth_info));
 720
 721         strcpy (wf_mpu_synth_info[index].name, name);
 722
 723         wf_mpu_synth_operations[index].midi_dev = dev->devno;
 724         wf_mpu_synth_operations[index].info = &wf_mpu_synth_info[index];
 725
 726         memcpy ((char *) &wf_mpu_midi_operations[index],
 727                 (char *) &wf_mpu_midi_proto,
 728                 sizeof (struct midi_operations));
 729
 730         if (is_external) {
 731                 wf_mpu_midi_operations[index].converter = NULL;
 732         } else {
 733                 wf_mpu_midi_operations[index].converter =
 734                         &wf_mpu_synth_operations[index];
 735         }
 736
 737         strcpy (wf_mpu_midi_operations[index].info.name, name);
 738
 739         midi_devs[dev->devno] = &wf_mpu_midi_operations[index];
 740         midi_devs[dev->devno]->in_info.m_busy = 0;
 741         midi_devs[dev->devno]->in_info.m_state = MST_INIT;
 742         midi_devs[dev->devno]->in_info.m_ptr = 0;
 743         midi_devs[dev->devno]->in_info.m_left = 0;
 744         midi_devs[dev->devno]->in_info.m_prev_status = 0;
 745
 746         devs[index].opened = 0;
 747         devs[index].mode = 0;
 748
 749         return (0);
 750 }
 751
 752 int virtual_midi_enable (void)
 753
 754 {
 755         if ((virt_dev->devno < 0) &&
 756             (virt_dev->devno = sound_alloc_mididev()) == -1) {
 757                 printk (KERN_ERR
 758                         "WF-MPU: too many midi devices detected\n");
 759                 return -1;
 760         }
 761
 762         config_wf_mpu (virt_dev);
 763
 764         phys_dev->isvirtual = 1;
 765         return virt_dev->devno;
 766 }
 767
 768 int
 769 virtual_midi_disable (void)
 770
 771 {
 772         unsigned long flags;
 773
 774         spin_lock_irqsave(&lock,flags);
 775
 776         wf_mpu_close (virt_dev->devno);
 777         /* no synth on virt_dev, so no need to call wf_mpu_synth_close() */
 778         phys_dev->isvirtual = 0;
 779
 780         spin_unlock_irqrestore(&lock,flags);
 781
 782         return 0;
 783 }
 784
 785 int __init detect_wf_mpu (int irq, int io_base)
 786 {
 787         if (!request_region(io_base, 2, "wavefront midi")) {
 788                 printk (KERN_WARNING "WF-MPU: I/O port %x already in use.\n",
 789                         io_base);
 790                 return -1;
 791         }
 792
 793         phys_dev->base = io_base;
 794         phys_dev->irq = irq;
 795         phys_dev->devno = -1;
 796         virt_dev->devno = -1;
 797
 798         return 0;
 799 }
 800
 801 int __init install_wf_mpu (void)
 802 {
 803         if ((phys_dev->devno = sound_alloc_mididev()) < 0){
 804
 805                 printk (KERN_ERR "WF-MPU: Too many MIDI devices detected.\n");
 806                 release_region(phys_dev->base, 2);
 807                 return -1;
 808         }
 809
 810         phys_dev->isvirtual = 0;
 811
 812         if (config_wf_mpu (phys_dev)) {
 813
 814                 printk (KERN_WARNING
 815                         "WF-MPU: configuration for MIDI device %d failed\n",
 816                         phys_dev->devno);
 817                 sound_unload_mididev (phys_dev->devno);
 818
 819         }
 820
 821         /* OK, now we're configured to handle an interrupt ... */
 822
 823         if (request_irq (phys_dev->irq, wf_mpuintr, SA_INTERRUPT|SA_SHIRQ,
 824                          "wavefront midi", phys_dev) < 0) {
 825
 826                 printk (KERN_ERR "WF-MPU: Failed to allocate IRQ%d\n",
 827                         phys_dev->irq);
 828                 return -1;
 829
 830         }
 831
 832         /* This being a WaveFront (ICS-2115) emulated MPU-401, we have
 833            to switch it into UART (dumb) mode, because otherwise, it
 834            won't do anything at all.
 835         */
 836
 837         start_uart_mode ();
 838
 839         return phys_dev->devno;
 840 }
 841
 842 void
 843 uninstall_wf_mpu (void)
 844
 845 {
 846         release_region (phys_dev->base, 2);
 847         free_irq (phys_dev->irq, phys_dev);
 848         sound_unload_mididev (phys_dev->devno);
 849
 850         if (virt_dev->devno >= 0) {
 851                 sound_unload_mididev (virt_dev->devno);
 852         }
 853 }
 854
 855 static void
 856 start_uart_mode (void)
 857
 858 {
 859         int             ok, i;
 860         unsigned long   flags;
 861
 862         spin_lock_irqsave(&lock,flags);
 863
 864         /* XXX fix me */
 865
 866         for (i = 0; i < 30000 && !output_ready (); i++);
 867
 868         outb (UART_MODE_ON, COMDPORT(phys_dev));
 869
 870         for (ok = 0, i = 50000; i > 0 && !ok; i--) {
 871                 if (input_avail ()) {
 872                         if (read_data () == MPU_ACK) {
 873                                 ok = 1;
 874                         }
 875                 }
 876         }
 877
 878         spin_unlock_irqrestore(&lock,flags);
 879 }
 880 #endif