/*
* Sony CDU-31A CDROM interface device driver.
*
* Corey Minyard (minyard@wf-rch.cirr.com)
*
* Colossians 3:17
*
* The Sony interface device driver handles Sony interface CDROM
* drives and provides a complete block-level interface as well as an
* ioctl() interface compatible with the Sun (as specified in
* include/linux/cdrom.h).  With this interface, CDROMs can be
* accessed and standard audio CDs can be played back normally.
*
* WARNING - 	All autoprobes have been removed from the driver.
*		You MUST configure the CDU31A via a LILO config
*		at boot time or in lilo.conf.  I have the
*		following in my lilo.conf:
*
*                append="cdu31a=0x1f88,0,PAS"
*
*		The first number is the I/O base address of the
*		card.  The second is the interrupt (0 means none).
 *		The third should be "PAS" if on a Pro-Audio
 *		spectrum, or nothing if on something else.
 *
 * This interface is (unfortunately) a polled interface.  This is
 * because most Sony interfaces are set up with DMA and interrupts
 * disables.  Some (like mine) do not even have the capability to
 * handle interrupts or DMA.  For this reason you will see a lot of
 * the following:
 *
 *   retry_count = jiffies+ SONY_JIFFIES_TIMEOUT;
 *   while ((retry_count > jiffies) && (! <some condition to wait for))
 *   {
 *      while (handle_sony_cd_attention())
 *         ;
 *
 *      sony_sleep();
 *   }
 *   if (the condition not met)
 *   {
 *      return an error;
 *   }
 *
 * This ugly hack waits for something to happen, sleeping a little
 * between every try.  it also handles attentions, which are
 * asynchronous events from the drive informing the driver that a disk
 * has been inserted, removed, etc.
 *
 * NEWS FLASH - The driver now supports interrupts but they are
 * turned off by default.  Use of interrupts is highly encouraged, it
 * cuts CPU usage down to a reasonable level.  I had DMA in for a while
 * but PC DMA is just too slow.  Better to just insb() it.
 *
 * One thing about these drives: They talk in MSF (Minute Second Frame) format.
 * There are 75 frames a second, 60 seconds a minute, and up to 75 minutes on a
 * disk.  The funny thing is that these are sent to the drive in BCD, but the
 * interface wants to see them in decimal.  A lot of conversion goes on.
 *
 * DRIVER SPECIAL FEATURES
 * -----------------------
 *
 * This section describes features beyond the normal audio and CD-ROM
 * functions of the drive.
 *
 * 2048 byte buffer mode
 *
 * If a disk is mounted with -o block=2048, data is copied straight
 * from the drive data port to the buffer.  Otherwise, the readahead
 * buffer must be involved to hold the other 1K of data when a 1K
 * block operation is done.  Note that with 2048 byte blocks you
 * cannot execute files from the CD.
 *
 * XA compatibility
 *
 * The driver should support XA disks for both the CDU31A and CDU33A.
 * It does this transparently, the using program doesn't need to set it.
 *
 * Multi-Session
 *
 * A multi-session disk looks just like a normal disk to the user.
 * Just mount one normally, and all the data should be there.
 * A special thanks to Koen for help with this!
 * 
 * Raw sector I/O
 *
 * Using the CDROMREADAUDIO it is possible to read raw audio and data
 * tracks.  Both operations return 2352 bytes per sector.  On the data
 * tracks, the first 12 bytes is not returned by the drive and the value
 * of that data is indeterminate.
 *
 *
 *  Copyright (C) 1993  Corey Minyard
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 *
 * Credits:
 *    Heiko Eissfeldt <heiko@colossus.escape.de>
 *         For finding abug in the return of the track numbers.
 */
/* conversion to Uniform cdrom layer.
   TOC processing redone for proper multisession support.

   TODO: 
         CDs with form1 and form2 sectors cause problems
         with current read-ahead strategy.
   Heiko Eissfeldt Sep 97 */

/*
 *
 * Setting up the Sony CDU31A/CDU33A drive interface card.  If
 * You have another card, you are on your own.
 * 
 *      +----------+-----------------+----------------------+
 *      |  JP1     |  34 Pin Conn    |                      |
 *      |  JP2     +-----------------+                      |
 *      |  JP3                                              |
 *      |  JP4                                              |
 *      |                                                   +--+
 *      |                                                   |  +-+
 *      |                                                   |  | |  External
 *      |                                                   |  | |  Connector
 *      |                                                   |  | |
 *      |                                                   |  +-+
 *      |                                                   +--+
 *      |                                                   |
 *      |                                          +--------+
 *      |                                          |
 *      +------------------------------------------+
 * 
 *    JP1 sets the Base Address, using the following settings:
 * 
 *      Address         Pin 1           Pin 2
 *      -------         -----           -----
 *      0x320           Short           Short
 *      0x330           Short           Open
 *      0x340           Open            Short
 *      0x360           Open            Open
 * 
 *    JP2 and JP3 configure the DMA channel; they must be set the same.
 * 
 *      DMA             Pin 1           Pin 2           Pin 3
 *      ---             -----           -----           -----
 *      1               On              Off             On
 *      2               Off             On              Off
 *      3               Off             Off             On
 * 
 *    JP4 Configures the IRQ:
 * 
 *      IRQ     Pin 1           Pin 2           Pin 3           Pin 4
 *      ---     -----           -----           -----           -----
 *      3       Off             Off             On              Off
 *      4       Off             Off*            Off             On
 *      5       On              Off             Off             Off
 *      6       Off             On              Off             Off
 * 
 *              * The documentation states to set this for interrupt
 *                4, but I think that is a mistake.
 *
 *  It probably a little late to be adding a history, but I guess I
 *  will start.
 *
 *  10/24/95 - Added support for disabling the eject button when the
 *             drive is open.  Note that there is a small problem
 *             still here, if the eject button is pushed while the
 *             drive light is flashing, the drive will return a bad
 *             status and be reset.  It recovers, though.
 *
 *  03/07/97 - Fixed a problem with timers.
 *
 *
 *  18 Spetember 1997 -- Ported to Uniform CD-ROM driver by 
 *                 Heiko Eissfeldt <heiko@colossus.escape.de> with additional
 *                 changes by Erik Andersen <andersee@debian.org>
 *
 *  24 January 1998 -- Removed the scd_disc_status() function, which was now
 *                     just dead code left over from the port.
 *                          Erik Andersen <andersee@debian.org>
 *
*/

#include <linux/major.h>

#include <linux/module.h>

#include <linux/errno.h>
#include <linux/signal.h>
#include <linux/sched.h>
#include <linux/timer.h>
#include <linux/fs.h>
#include <linux/kernel.h>
#include <linux/hdreg.h>
#include <linux/genhd.h>
#include <linux/ioport.h>
#include <linux/string.h>
#include <linux/malloc.h>
#include <linux/init.h>

#include <asm/system.h>
#include <asm/io.h>
#include <asm/uaccess.h>
#include <asm/dma.h>

#include <linux/cdrom.h>
#include "cdu31a.h"

#define MAJOR_NR CDU31A_CDROM_MAJOR
#include <linux/blk.h>

#define CDU31A_READAHEAD 4  /* 128 sector, 64kB, 32 reads read-ahead */
#define CDU31A_MAX_CONSECUTIVE_ATTENTIONS 10

#define DEBUG 0

/* Define the following if you have data corruption problems. */
#undef SONY_POLL_EACH_BYTE

/*
** Edit the following data to change interrupts, DMA channels, etc.
** Default is polled and no DMA.  DMA is not recommended for double-speed
** drives.
*/
static struct
{
   unsigned short base;         /* I/O Base Address */
   short          int_num;      /* Interrupt Number (-1 means scan for it,
                                   0 means don't use) */
} cdu31a_addresses[] __initdata =
{
#if 0	/* No autoconfig any more. See Note at beginning
	   of this file. */
   { 0x340,     0 },    /* Standard configuration Sony Interface */
   { 0x1f88,    0 },    /* Fusion CD-16 */
   { 0x230,     0 },    /* SoundBlaster 16 card */
   { 0x360,     0 },    /* Secondary standard Sony Interface */
   { 0x320,     0 },    /* Secondary standard Sony Interface */
   { 0x330,     0 },    /* Secondary standard Sony Interface */
   { 0x634,     0 },    /* Sound FX SC400 */
   { 0x654,     0 },    /* Sound FX SC400 */
#endif
   { 0 }
};

static int handle_sony_cd_attention(void);
static int read_subcode(void);
static void sony_get_toc(void);
/*static int scd_open(struct inode *inode, struct file *filp);*/
static int scd_open(struct cdrom_device_info *, int);
static void do_sony_cd_cmd(unsigned char cmd,
                           unsigned char *params,
                           unsigned int num_params,
                           unsigned char *result_buffer,
                           unsigned int *result_size);
static void size_to_buf(unsigned int size,
                        unsigned char *buf);

/* Parameters for the read-ahead. */
static unsigned int sony_next_block;      /* Next 512 byte block offset */
static unsigned int sony_blocks_left = 0; /* Number of 512 byte blocks left
                                             in the current read command. */


/* The base I/O address of the Sony Interface.  This is a variable (not a
   #define) so it can be easily changed via some future ioctl() */
static unsigned int cdu31a_port = 0;
MODULE_PARM(cdu31a_port, "i");

/*
 * The following are I/O addresses of the various registers for the drive.  The
 * comment for the base address also applies here.
 */
static volatile unsigned short sony_cd_cmd_reg;
static volatile unsigned short sony_cd_param_reg;
static volatile unsigned short sony_cd_write_reg;
static volatile unsigned short sony_cd_control_reg;
static volatile unsigned short sony_cd_status_reg;
static volatile unsigned short sony_cd_result_reg;
static volatile unsigned short sony_cd_read_reg;
static volatile unsigned short sony_cd_fifost_reg;


static int sony_spun_up = 0;               /* Has the drive been spun up? */

static int sony_speed = 0;                 /* Last wanted speed */

static int sony_xa_mode = 0;               /* Is an XA disk in the drive
					      and the drive a CDU31A? */

static int sony_raw_data_mode = 1;         /* 1 if data tracks, 0 if audio.
                                              For raw data reads. */

static unsigned int sony_usage = 0;        /* How many processes have the
                                              drive open. */

static int sony_pas_init = 0;		   /* Initialize the Pro-Audio
					      Spectrum card? */

static struct s_sony_session_toc single_toc;  /* Holds the
					         table of
					         contents. */

static struct s_all_sessions_toc sony_toc; /* entries gathered from all
                                                sessions */

static int sony_toc_read = 0;		   /* Has the TOC been read for
					      the drive? */

static struct s_sony_subcode last_sony_subcode; /* Points to the last
                                                   subcode address read */

static volatile int sony_inuse = 0;  /* Is the drive in use?  Only one operation
					at a time allowed */

static struct wait_queue * sony_wait = NULL;	/* Things waiting for the drive */

static struct task_struct *has_cd_task = NULL;  /* The task that is currently
						   using the CDROM drive, or
						   NULL if none. */

static int is_double_speed = 0; /* does the drive support double speed ? */
static int is_a_cdu31a = 1;     /* Is the drive a CDU31A? */

static int is_auto_eject = 1;   /* Door has been locked? 1=No/0=Yes */

/*
 * The audio status uses the values from read subchannel data as specified
 * in include/linux/cdrom.h.
 */
static volatile int sony_audio_status = CDROM_AUDIO_NO_STATUS;

/*
 * The following are a hack for pausing and resuming audio play.  The drive
 * does not work as I would expect it, if you stop it then start it again,
 * the drive seeks back to the beginning and starts over.  This holds the
 * position during a pause so a resume can restart it.  It uses the
 * audio status variable above to tell if it is paused.
 */
static unsigned volatile char cur_pos_msf[3] = { 0, 0, 0 };
static unsigned volatile char final_pos_msf[3] = { 0, 0, 0 };

/* What IRQ is the drive using?  0 if none. */
static int cdu31a_irq = 0;
MODULE_PARM(cdu31a_irq, "i");

/* The interrupt handler will wake this queue up when it gets an
   interrupts. */
static struct wait_queue *cdu31a_irq_wait = NULL;

static int curr_control_reg = 0; /* Current value of the control register */

/* A disk changed variable.  When a disk change is detected, it will
   all be set to TRUE.  As the upper layers ask for disk_changed status
   it will be cleared. */
static char disk_changed;

/* Variable for using the readahead buffer.  The readahead buffer
   is used for raw sector reads and for blocksizes that are smaller
   than 2048 bytes. */
static char readahead_buffer[CD_FRAMESIZE_RAW];
static int readahead_dataleft = 0;
static int readahead_bad = 0;

/* Used to time a short period to abort an operation after the
   drive has been idle for a while.  This keeps the light on
   the drive from flashing for very long. */
static struct timer_list cdu31a_abort_timer;

/* Marks if the timeout has started an abort read.  This is used
   on entry to the drive to tell the code to read out the status
   from the abort read. */
static int abort_read_started = 0;


/*
 * This routine returns 1 if the disk has been changed since the last
 * check or 0 if it hasn't.
 */
static int
scd_disk_change(kdev_t full_dev)
{
   int retval;

   retval = disk_changed;
   disk_changed = 0;

   return retval;
}

/*
 * Uniform cdrom interface function
 * report back, if disc has changed from time of last request.
 */
static int
scd_media_changed(struct cdrom_device_info *cdi, int disc_nr)
{
  return scd_disk_change(cdi->dev);
}

/*
 * Uniform cdrom interface function
 * report back, if drive is ready
 */
static int scd_drive_status(struct cdrom_device_info *cdi, int slot_nr)
{
  if (CDSL_CURRENT != slot_nr) {
     /* we have no changer support */
     return -EINVAL;
  }

  /*return sony_spun_up ? CDS_DISC_OK : CDS_DRIVE_NOT_READY;*/
  return sony_spun_up ? CDS_DISC_OK : CDS_TRAY_OPEN;
}

static inline void
enable_interrupts(void)
{
   curr_control_reg |= (  SONY_ATTN_INT_EN_BIT
                        | SONY_RES_RDY_INT_EN_BIT
                        | SONY_DATA_RDY_INT_EN_BIT);
   outb(curr_control_reg, sony_cd_control_reg);
}

static inline void
disable_interrupts(void)
{
   curr_control_reg &= ~(  SONY_ATTN_INT_EN_BIT
                         | SONY_RES_RDY_INT_EN_BIT
                         | SONY_DATA_RDY_INT_EN_BIT);
   outb(curr_control_reg, sony_cd_control_reg);
}

/*
 * Wait a little while (used for polling the drive).  If in initialization,
 * setting a timeout doesn't work, so just loop for a while.
 */
static inline void
sony_sleep(void)
{
   unsigned long flags;

   if (cdu31a_irq <= 0)
   {
      current->state = TASK_INTERRUPTIBLE;
      current->timeout = jiffies;
      schedule();
   }
   else /* Interrupt driven */
   {
      save_flags(flags);
      cli();
      enable_interrupts();
      interruptible_sleep_on(&cdu31a_irq_wait);
      restore_flags(flags);
   }
}


/*
 * The following are convenience routine to read various status and set
 * various conditions in the drive.
 */
static inline int
is_attention(void)
{
   return((inb(sony_cd_status_reg) & SONY_ATTN_BIT) != 0);
}

static inline int
is_busy(void)
{
   return((inb(sony_cd_status_reg) & SONY_BUSY_BIT) != 0);
}

static inline int
is_data_ready(void)
{
   return((inb(sony_cd_status_reg) & SONY_DATA_RDY_BIT) != 0);
}

static inline int
is_data_requested(void)
{
   return((inb(sony_cd_status_reg) & SONY_DATA_REQUEST_BIT) != 0);
}

static inline int
is_result_ready(void)
{
   return((inb(sony_cd_status_reg) & SONY_RES_RDY_BIT) != 0);
}

static inline int
is_param_write_rdy(void)
{
   return((inb(sony_cd_fifost_reg) & SONY_PARAM_WRITE_RDY_BIT) != 0);
}

static inline int
is_result_reg_not_empty(void)
{
   return((inb(sony_cd_fifost_reg) & SONY_RES_REG_NOT_EMP_BIT) != 0);
}

static inline void
reset_drive(void)
{
   curr_control_reg = 0;
   readahead_dataleft = 0;
   sony_toc_read = 0;
   outb(SONY_DRIVE_RESET_BIT, sony_cd_control_reg);
}

/*
 * Uniform cdrom interface function
 * reset drive and return when it is ready
 */
static int scd_reset(struct cdrom_device_info * cdi)
{
  int retry_count;

  reset_drive();

  retry_count = jiffies + SONY_RESET_TIMEOUT;
  while ((retry_count > jiffies) && (!is_attention()))
  {
     sony_sleep();
  }

  return 0;
}

static inline void
clear_attention(void)
{
   outb(curr_control_reg | SONY_ATTN_CLR_BIT, sony_cd_control_reg);
}

static inline void
clear_result_ready(void)
{
   outb(curr_control_reg | SONY_RES_RDY_CLR_BIT, sony_cd_control_reg);
}

static inline void
clear_data_ready(void)
{
   outb(curr_control_reg | SONY_DATA_RDY_CLR_BIT, sony_cd_control_reg);
}

static inline void
clear_param_reg(void)
{
   outb(curr_control_reg | SONY_PARAM_CLR_BIT, sony_cd_control_reg);
}

static inline unsigned char
read_status_register(void)
{
   return(inb(sony_cd_status_reg));
}

static inline unsigned char
read_result_register(void)
{
   return(inb(sony_cd_result_reg));
}

static inline unsigned char
read_data_register(void)
{
   return(inb(sony_cd_read_reg));
}

static inline void
write_param(unsigned char param)
{
   outb(param, sony_cd_param_reg);
}

static inline void
write_cmd(unsigned char cmd)
{
   outb(curr_control_reg | SONY_RES_RDY_INT_EN_BIT, sony_cd_control_reg);
   outb(cmd, sony_cd_cmd_reg);
}

static void
cdu31a_interrupt(int irq, void *dev_id, struct pt_regs *regs)
{
   unsigned char val;

   if (abort_read_started)
   {
      /* We might be waiting for an abort to finish.  Don't
         disable interrupts yet, though, because we handle
         this one here. */
      /* Clear out the result registers. */
      while (is_result_reg_not_empty())
      {
         val = read_result_register();
      }
      clear_data_ready();
      clear_result_ready();

      /* Clear out the data */
      while (is_data_requested())
      {
         val = read_data_register();
      }
      abort_read_started = 0;

      /* If something was waiting, wake it up now. */
      if (cdu31a_irq_wait != NULL)
      {
         disable_interrupts();
         wake_up(&cdu31a_irq_wait);
      }
   }
   else if (cdu31a_irq_wait != NULL)
   {
      disable_interrupts();
      wake_up(&cdu31a_irq_wait);
   }
   else
   {
      disable_interrupts();
      printk("CDU31A: Got an interrupt but nothing was waiting\n");
   }
}

/*
 * give more verbose error messages
 */
static unsigned char *translate_error( unsigned char err_code )
{
   static unsigned char errbuf[80];

   switch (err_code) {
     case 0x10: return "illegal command ";
     case 0x11: return "illegal parameter ";

     case 0x20: return "not loaded ";
     case 0x21: return "no disc ";
     case 0x22: return "not spinning ";
     case 0x23: return "spinning ";
     case 0x25: return "spindle servo ";
     case 0x26: return "focus servo ";
     case 0x29: return "eject mechanism ";
     case 0x2a: return "audio playing ";
     case 0x2c: return "emergency eject ";

     case 0x30: return "focus ";
     case 0x31: return "frame sync ";
     case 0x32: return "subcode address ";
     case 0x33: return "block sync ";
     case 0x34: return "header address ";

     case 0x40: return "illegal track read ";
     case 0x41: return "mode 0 read ";
     case 0x42: return "illegal mode read ";
     case 0x43: return "illegal block size read ";
     case 0x44: return "mode read ";
     case 0x45: return "form read ";
     case 0x46: return "leadout read ";
     case 0x47: return "buffer overrun ";

     case 0x53: return "unrecoverable CIRC ";
     case 0x57: return "unrecoverable LECC ";

     case 0x60: return "no TOC ";
     case 0x61: return "invalid subcode data ";
     case 0x63: return "focus on TOC read ";
     case 0x64: return "frame sync on TOC read ";
     case 0x65: return "TOC data ";

     case 0x70: return "hardware failure ";
     case 0x91: return "leadin ";
     case 0x92: return "leadout ";
     case 0x93: return "data track ";
   }
   sprintf(errbuf, "unknown 0x%02x ", err_code);
   return errbuf;
}

/*
 * Set the drive parameters so the drive will auto-spin-up when a
 * disk is inserted.
 */
static void
set_drive_params(int want_doublespeed)
{
   unsigned char res_reg[12];
   unsigned int res_size;
   unsigned char params[3];


   params[0] = SONY_SD_AUTO_SPIN_DOWN_TIME;
   params[1] = 0x00; /* Never spin down the drive. */
   do_sony_cd_cmd(SONY_SET_DRIVE_PARAM_CMD,
                  params,
                  2,
                  res_reg,
                  &res_size);
   if ((res_size < 2) || ((res_reg[0] & 0xf0) == 0x20))
   {
      printk("  Unable to set spin-down time: 0x%2.2x\n", res_reg[1]);
   }

   params[0] = SONY_SD_MECH_CONTROL;
   params[1] = SONY_AUTO_SPIN_UP_BIT; /* Set auto spin up */

   if (is_auto_eject) params[1] |= SONY_AUTO_EJECT_BIT;
   
   if (is_double_speed && want_doublespeed)
   {
      params[1] |= SONY_DOUBLE_SPEED_BIT; /* Set the drive to double speed if 
                                             possible */
   }
   do_sony_cd_cmd(SONY_SET_DRIVE_PARAM_CMD,
                  params,
                  2,
                  res_reg,
                  &res_size);
   if ((res_size < 2) || ((res_reg[0] & 0xf0) == 0x20))
   {
      printk("  Unable to set mechanical parameters: 0x%2.2x\n", res_reg[1]);
   }
}

/*
 * Uniform cdrom interface function
 * select reading speed for data access
 */
static int scd_select_speed(struct cdrom_device_info *cdi, int speed)
{
  if (speed == 0)
    sony_speed = 1;
  else 
    sony_speed = speed - 1;

  set_drive_params(sony_speed);
  return 0;
}

/*
 * Uniform cdrom interface function
 * lock or unlock eject button
 */
static int scd_lock_door(struct cdrom_device_info *cdi, int lock)
{
   if (lock == 0 && sony_usage == 1)
   {
      /* Unlock the door, only if nobody is using the drive */
      is_auto_eject = 1;
   } else {
      is_auto_eject = 0;
   }
   set_drive_params(sony_speed);
   return 0;
}

/*
 * This code will reset the drive and attempt to restore sane parameters.
 */
static void
restart_on_error(void)
{
   unsigned char res_reg[12];
   unsigned int res_size;
   unsigned int retry_count;


   printk("cdu31a: Resetting drive on error\n");
   reset_drive();
   retry_count = jiffies + SONY_RESET_TIMEOUT;
   while ((retry_count > jiffies) && (!is_attention()))
   {
      sony_sleep();
   }
   set_drive_params(sony_speed);
   do_sony_cd_cmd(SONY_SPIN_UP_CMD, NULL, 0, res_reg, &res_size);
   if ((res_size < 2) || ((res_reg[0] & 0xf0) == 0x20))
   {
      printk("cdu31a: Unable to spin up drive: 0x%2.2x\n", res_reg[1]);
   }

   current->state = TASK_INTERRUPTIBLE;
   current->timeout = jiffies + 2*HZ;
   schedule();

   sony_get_toc();
}

/*
 * This routine writes data to the parameter register.  Since this should
 * happen fairly fast, it is polled with no OS waits between.
 */
static int
write_params(unsigned char *params,
             int num_params)
{
   unsigned int retry_count;


   retry_count = SONY_READY_RETRIES;
   while ((retry_count > 0) && (!is_param_write_rdy()))
   {
      retry_count--;
   }
   if (!is_param_write_rdy())
   {
      return -EIO;
   }

   while (num_params > 0)
   {
      write_param(*params);
      params++;
      num_params--;
   }

   return 0;
}


/*
 * The following reads data from the command result register.  It is a
 * fairly complex routine, all status info flows back through this
 * interface.  The algorithm is stolen directly from the flowcharts in
 * the drive manual.
 */
static void
get_result(unsigned char *result_buffer,
           unsigned int *result_size)
{
   unsigned char a, b;
   int i;
   unsigned int retry_count;


   while (handle_sony_cd_attention())
      ;
   /* Wait for the result data to be ready */
   retry_count = jiffies + SONY_JIFFIES_TIMEOUT;
   while ((retry_count > jiffies) && (is_busy() || (!(is_result_ready()))))
   {
      sony_sleep();

      while (handle_sony_cd_attention())
         ;
   }
   if (is_busy() || (!(is_result_ready())))
   {
#if DEBUG
      printk("CDU31A timeout out %d\n", __LINE__);
#endif
      result_buffer[0] = 0x20;
      result_buffer[1] = SONY_TIMEOUT_OP_ERR;
      *result_size = 2;
      return;
   }

   /*
    * Get the first two bytes.  This determines what else needs
    * to be done.
    */
   clear_result_ready();
   a = read_result_register();
   *result_buffer = a;
   result_buffer++;

   /* Check for block error status result. */
   if ((a & 0xf0) == 0x50)
   {
      *result_size = 1;
      return;
   }

   b = read_result_register();
   *result_buffer = b;
   result_buffer++;
   *result_size = 2;

   /*
    * 0x20 means an error occurred.  Byte 2 will have the error code.
    * Otherwise, the command succeeded, byte 2 will have the count of
    * how many more status bytes are coming.
    *
    * The result register can be read 10 bytes at a time, a wait for
    * result ready to be asserted must be done between every 10 bytes.
    */
   if ((a & 0xf0) != 0x20)
   {
      if (b > 8)
      {
         for (i=0; i<8; i++)
         {
            *result_buffer = read_result_register();
            result_buffer++;
            (*result_size)++;
         }
         b = b - 8;

         while (b > 10)
         {
            retry_count = SONY_READY_RETRIES;
            while ((retry_count > 0) && (!is_result_ready()))
            {
               retry_count--;
            }
            if (!is_result_ready())
            {
#if DEBUG
               printk("CDU31A timeout out %d\n", __LINE__);
#endif
               result_buffer[0] = 0x20;
               result_buffer[1] = SONY_TIMEOUT_OP_ERR;
               *result_size = 2;
               return;
            }

            clear_result_ready();
                                
            for (i=0; i<10; i++)
            {
               *result_buffer = read_result_register();
               result_buffer++;
               (*result_size)++;
            }
            b = b - 10;
         }

         if (b > 0)
         {
            retry_count = SONY_READY_RETRIES;
            while ((retry_count > 0) && (!is_result_ready()))
            {
               retry_count--;
            }
            if (!is_result_ready())
            {
#if DEBUG
               printk("CDU31A timeout out %d\n", __LINE__);
#endif
               result_buffer[0] = 0x20;
               result_buffer[1] = SONY_TIMEOUT_OP_ERR;
               *result_size = 2;
               return;
            }
         }
      }

      while (b > 0)
      {
         *result_buffer = read_result_register();
         result_buffer++;
         (*result_size)++;
         b--;
      }
   }
}

/*
 * Do a command that does not involve data transfer.  This routine must
 * be re-entrant from the same task to support being called from the
 * data operation code when an error occurs.
 */
static void
do_sony_cd_cmd(unsigned char cmd,
               unsigned char *params,
               unsigned int num_params,
               unsigned char *result_buffer,
               unsigned int *result_size)
{
   unsigned int retry_count;
   int num_retries;
   int recursive_call;
   unsigned long flags;


   save_flags(flags);
   cli();
   if (current != has_cd_task) /* Allow recursive calls to this routine */
   {
      while (sony_inuse)
      {
         interruptible_sleep_on(&sony_wait);
         if (signal_pending(current))
         {
            result_buffer[0] = 0x20;
            result_buffer[1] = SONY_SIGNAL_OP_ERR;
            *result_size = 2;
            restore_flags(flags);
            return;
         }
      }
      sony_inuse = 1;
      has_cd_task = current;
      recursive_call = 0;
   }
   else
   {
      recursive_call = 1;
   }

   num_retries = 0;
retry_cd_operation:

   while (handle_sony_cd_attention())
      ;

   sti();
   
   retry_count = jiffies + SONY_JIFFIES_TIMEOUT;
   while ((retry_count > jiffies) && (is_busy()))
   {
      sony_sleep();
      
      while (handle_sony_cd_attention())
         ;
   }
   if (is_busy())
   {
#if DEBUG
      printk("CDU31A timeout out %d\n", __LINE__);
#endif
      result_buffer[0] = 0x20;
      result_buffer[1] = SONY_TIMEOUT_OP_ERR;
      *result_size = 2;
   }
   else
   {
      clear_result_ready();
      clear_param_reg();

      write_params(params, num_params);
      write_cmd(cmd);

      get_result(result_buffer, result_size);
   }

   if (   ((result_buffer[0] & 0xf0) == 0x20)
       && (num_retries < MAX_CDU31A_RETRIES))
   {
      num_retries++;
      current->state = TASK_INTERRUPTIBLE;
      current->timeout = jiffies + HZ/10; /* Wait .1 seconds on retries */
      schedule();
      goto retry_cd_operation;
   }

   if (!recursive_call)
   {
      has_cd_task = NULL;
      sony_inuse = 0;
      wake_up_interruptible(&sony_wait);
   }

   restore_flags(flags);
}


/*
 * Handle an attention from the drive.  This will return 1 if it found one
 * or 0 if not (if one is found, the caller might want to call again).
 *
 * This routine counts the number of consecutive times it is called
 * (since this is always called from a while loop until it returns
 * a 0), and returns a 0 if it happens too many times.  This will help
 * prevent a lockup.
 */
static int
handle_sony_cd_attention(void)
{
   unsigned char atten_code;
   static int num_consecutive_attentions = 0;
   volatile int val;


#if 0*DEBUG
   printk("Entering handle_sony_cd_attention\n");
#endif
   if (is_attention())
   {
      if (num_consecutive_attentions > CDU31A_MAX_CONSECUTIVE_ATTENTIONS)
      {
         printk("cdu31a: Too many consecutive attentions: %d\n",
                num_consecutive_attentions);
         num_consecutive_attentions = 0;
#if DEBUG
         printk("Leaving handle_sony_cd_attention at %d\n", __LINE__);
#endif
         return(0);
      }

      clear_attention();
      atten_code = read_result_register();

      switch (atten_code)
      {
       /* Someone changed the CD.  Mark it as changed */
      case SONY_MECH_LOADED_ATTN:
         disk_changed = 1;
	 sony_toc_read = 0;
         sony_audio_status = CDROM_AUDIO_NO_STATUS;
         sony_blocks_left = 0;
         break;

      case SONY_SPIN_DOWN_COMPLETE_ATTN:
         /* Mark the disk as spun down. */
         sony_spun_up = 0;
         break;

      case SONY_AUDIO_PLAY_DONE_ATTN:
         sony_audio_status = CDROM_AUDIO_COMPLETED;
         read_subcode();
         break;

      case SONY_EJECT_PUSHED_ATTN:
         if (is_auto_eject)
         {
            sony_audio_status = CDROM_AUDIO_INVALID;
         }
         break;

      case SONY_LEAD_IN_ERR_ATTN:
      case SONY_LEAD_OUT_ERR_ATTN:
      case SONY_DATA_TRACK_ERR_ATTN:
      case SONY_AUDIO_PLAYBACK_ERR_ATTN:
         sony_audio_status = CDROM_AUDIO_ERROR;
         break;
      }

      num_consecutive_attentions++;
#if DEBUG
      printk("Leaving handle_sony_cd_attention at %d\n", __LINE__);
#endif
      return(1);
   }
   else if (abort_read_started)
   {
      while (is_result_reg_not_empty())
      {
         val = read_result_register();
      }
      clear_data_ready();
      clear_result_ready();
      /* Clear out the data */
      while (is_data_requested())
      {
         val = read_data_register();
      }
      abort_read_started = 0;
#if DEBUG
      printk("Leaving handle_sony_cd_attention at %d\n", __LINE__);
#endif
      return(1);
   }

   num_consecutive_attentions = 0;
#if 0*DEBUG
   printk("Leaving handle_sony_cd_attention at %d\n", __LINE__);
#endif
   return(0);
}


/* Convert from an integer 0-99 to BCD */
static inline unsigned int
int_to_bcd(unsigned int val)
{
   int retval;


   retval = (val / 10) << 4;
   retval = retval | val % 10;
   return(retval);
}


/* Convert from BCD to an integer from 0-99 */
static unsigned int
bcd_to_int(unsigned int bcd)
{
   return((((bcd >> 4) & 0x0f) * 10) + (bcd & 0x0f));
}


/*
 * Convert a logical sector value (like the OS would want to use for
 * a block device) to an MSF format.
 */
static void
log_to_msf(unsigned int log, unsigned char *msf)
{
   log = log + LOG_START_OFFSET;
   msf[0] = int_to_bcd(log / 4500);
   log = log % 4500;
   msf[1] = int_to_bcd(log / 75);
   msf[2] = int_to_bcd(log % 75);
}


/*
 * Convert an MSF format to a logical sector.
 */
static unsigned int
msf_to_log(unsigned char *msf)
{
   unsigned int log;


   log = msf[2];
   log += msf[1] * 75;
   log += msf[0] * 4500;
   log = log - LOG_START_OFFSET;

   return log;
}


/*
 * Take in integer size value and put it into a buffer like
 * the drive would want to see a number-of-sector value.
 */
static void
size_to_buf(unsigned int size,
            unsigned char *buf)
{
   buf[0] = size / 65536;
   size = size % 65536;
   buf[1] = size / 256;
   buf[2] = size % 256;
}

/* Starts a read operation. Returns 0 on success and 1 on failure. 
   The read operation used here allows multiple sequential sectors 
   to be read and status returned for each sector.  The driver will
   read the output one at a time as the requests come and abort the
   operation if the requested sector is not the next one from the
   drive. */
static int
start_request(unsigned int sector,
              unsigned int nsect,
              int          read_nsect_only)
{
   unsigned char params[6];
   unsigned int read_size;
   unsigned int retry_count;


#if DEBUG
   printk("Entering start_request\n");
#endif
   log_to_msf(sector, params);
   /* If requested, read exactly what was asked. */
   if (read_nsect_only)
   {
      read_size = nsect;
   }
   /*
    * If the full read-ahead would go beyond the end of the media, trim
    * it back to read just till the end of the media.
    */
   else if ((sector + nsect) >= sony_toc.lead_out_start_lba)
   {
      read_size = sony_toc.lead_out_start_lba - sector;
   }
   /* Read the full readahead amount. */
   else
   {
      read_size = CDU31A_READAHEAD / 4;
   }
   size_to_buf(read_size, &params[3]);

   /*
    * Clear any outstanding attentions and wait for the drive to
    * complete any pending operations.
    */
   while (handle_sony_cd_attention())
      ;

   retry_count = jiffies + SONY_JIFFIES_TIMEOUT;
   while ((retry_count > jiffies) && (is_busy()))
   {
      sony_sleep();
      
      while (handle_sony_cd_attention())
         ;
   }

   if (is_busy())
   {
      printk("CDU31A: Timeout while waiting to issue command\n");
#if DEBUG
      printk("Leaving start_request at %d\n", __LINE__);
#endif
      return(1);
   }
   else
   {
      /* Issue the command */
      clear_result_ready();
      clear_param_reg();

      write_params(params, 6);
      write_cmd(SONY_READ_BLKERR_STAT_CMD);

      sony_blocks_left = read_size * 4;
      sony_next_block = sector * 4;
      readahead_dataleft = 0;
      readahead_bad = 0;
#if DEBUG
      printk("Leaving start_request at %d\n", __LINE__);
#endif
      return(0);
   }
#if DEBUG
   printk("Leaving start_request at %d\n", __LINE__);
#endif
}

/* Abort a pending read operation.  Clear all the drive status and
   readahead variables. */
static void
abort_read(void)
{
   unsigned char result_reg[2];
   int           result_size;
   volatile int  val;


   do_sony_cd_cmd(SONY_ABORT_CMD, NULL, 0, result_reg, &result_size);
   if ((result_reg[0] & 0xf0) == 0x20)
   {
      printk("CDU31A: Error aborting read, %s error\n",
             translate_error(
             result_reg[1]));
   }

   while (is_result_reg_not_empty())
   {
      val = read_result_register();
   }
   clear_data_ready();
   clear_result_ready();
   /* Clear out the data */
   while (is_data_requested())
   {
      val = read_data_register();
   }

   sony_blocks_left = 0;
   readahead_dataleft = 0;
   readahead_bad = 0;
}

/* Called when the timer times out.  This will abort the
   pending read operation. */
static void
handle_abort_timeout(unsigned long data)
{
   unsigned long flags;

#if DEBUG
   printk("Entering handle_abort_timeout\n");
#endif
   save_flags(flags);
   cli();
   /* If it is in use, ignore it. */
   if (!sony_inuse)
   {
      /* We can't use abort_read(), because it will sleep
         or schedule in the timer interrupt.  Just start
         the operation, finish it on the next access to
         the drive. */
      clear_result_ready();
      clear_param_reg();
      write_cmd(SONY_ABORT_CMD);

      sony_blocks_left = 0;
      readahead_dataleft = 0;
      readahead_bad = 0;
      abort_read_started = 1;
   }
   restore_flags(flags);
#if DEBUG
   printk("Leaving handle_abort_timeout\n");
#endif
}

/* Actually get data and status from the drive. */
static void
input_data(char         *buffer,
           unsigned int bytesleft,
           unsigned int nblocks,
           unsigned int offset,
           unsigned int skip)
{
   int i;
   volatile unsigned char val;


#if DEBUG
   printk("Entering input_data\n");
#endif
   /* If an XA disk on a CDU31A, skip the first 12 bytes of data from
      the disk.  The real data is after that. */
   if (sony_xa_mode)
   {
      for(i=0; i<CD_XA_HEAD; i++)
      {
         val = read_data_register();
      }
   }

   clear_data_ready();

   if (bytesleft == 2048) /* 2048 byte direct buffer transfer */
   {
      insb(sony_cd_read_reg, buffer, 2048);
      readahead_dataleft = 0;
   }
   else
   {
      /* If the input read did not align with the beginning of the block,
	 skip the necessary bytes. */
      if (skip != 0)
      {
         insb(sony_cd_read_reg, readahead_buffer, skip);
      }

      /* Get the data into the buffer. */
      insb(sony_cd_read_reg, &buffer[offset], bytesleft);

      /* Get the rest of the data into the readahead buffer at the
	 proper location. */
      readahead_dataleft = (2048 - skip) - bytesleft;
      insb(sony_cd_read_reg,
           readahead_buffer + bytesleft,
           readahead_dataleft);
   }
   sony_blocks_left -= nblocks;
   sony_next_block += nblocks; 

   /* If an XA disk, we have to clear out the rest of the unused
      error correction data. */
   if (sony_xa_mode)
   {
      for(i=0; i<CD_XA_TAIL; i++)
      {
         val = read_data_register();
      }
   }
#if DEBUG
   printk("Leaving input_data at %d\n", __LINE__);
#endif
}

/* read data from the drive.  Note the nsect must be <= 4. */
static void
read_data_block(char          *buffer,
                unsigned int  block,
                unsigned int  nblocks,
                unsigned char res_reg[],
                int           *res_size)
{
   unsigned int retry_count;
   unsigned int bytesleft;
   unsigned int offset;
   unsigned int skip;


#if DEBUG
   printk("Entering read_data_block\n");
#endif

   res_reg[0] = 0;
   res_reg[1] = 0;
   *res_size = 0;
   bytesleft = nblocks * 512;
   offset = 0;

   /* If the data in the read-ahead does not match the block offset,
      then fix things up. */
   if (((block % 4) * 512) != ((2048 - readahead_dataleft) % 2048))
   {
      sony_next_block += block % 4;
      sony_blocks_left -= block % 4;
      skip = (block % 4) * 512;
   }
   else
   {
      skip = 0;
   }

   /* We have readahead data in the buffer, get that first before we
      decide if a read is necessary. */
   if (readahead_dataleft != 0)
   {
      if (bytesleft > readahead_dataleft)
      {
	 /* The readahead will not fill the requested buffer, but
	    get the data out of the readahead into the buffer. */
         memcpy(buffer,
                readahead_buffer + (2048 - readahead_dataleft),
                readahead_dataleft);
         readahead_dataleft = 0;
         bytesleft -= readahead_dataleft;
         offset += readahead_dataleft;
      }
      else
      {
	 /* The readahead will fill the whole buffer, get the data
	    and return. */
         memcpy(buffer,
                readahead_buffer + (2048 - readahead_dataleft),
                bytesleft);
         readahead_dataleft -= bytesleft;
         bytesleft = 0;
         sony_blocks_left -= nblocks;
         sony_next_block += nblocks;

	 /* If the data in the readahead is bad, return an error so the
	    driver will abort the buffer. */
         if (readahead_bad)
         {
            res_reg[0] = 0x20;
            res_reg[1] = SONY_BAD_DATA_ERR;
            *res_size = 2;
         }

         if (readahead_dataleft == 0)
         {
            readahead_bad = 0;
         }

         /* Final transfer is done for read command, get final result. */
         if (sony_blocks_left == 0)
         {
            get_result(res_reg, res_size);
         }
#if DEBUG
         printk("Leaving read_data_block at %d\n", __LINE__);
#endif
         return;
      }
   }

   /* Wait for the drive to tell us we have something */
   retry_count = jiffies + SONY_JIFFIES_TIMEOUT;
   while ((retry_count > jiffies) && !(is_data_ready()))
   {
      while (handle_sony_cd_attention())
         ;

      sony_sleep();
   }
   if (!(is_data_ready()))
   {
      if (is_result_ready())
      {
         get_result(res_reg, res_size);
         if ((res_reg[0] & 0xf0) != 0x20)
         {
            printk("CDU31A: Got result that should have been error: %d\n",
                   res_reg[0]);
            res_reg[0] = 0x20;
            res_reg[1] = SONY_BAD_DATA_ERR;
            *res_size = 2;
         }
         abort_read();
      }
      else
      {
#if DEBUG
         printk("CDU31A timeout out %d\n", __LINE__);
#endif
         res_reg[0] = 0x20;
         res_reg[1] = SONY_TIMEOUT_OP_ERR;
         *res_size = 2;
         abort_read();
      }
   }
   else
   {
      input_data(buffer, bytesleft, nblocks, offset, skip);

      /* Wait for the status from the drive. */
      retry_count = jiffies + SONY_JIFFIES_TIMEOUT;
      while ((retry_count > jiffies) && !(is_result_ready()))
      {
         while (handle_sony_cd_attention())
            ;

         sony_sleep();
      }

      if (!is_result_ready())
      {
#if DEBUG
         printk("CDU31A timeout out %d\n", __LINE__);
#endif
         res_reg[0] = 0x20;
         res_reg[1] = SONY_TIMEOUT_OP_ERR;
         *res_size = 2;
         abort_read();
      }
      else
      {
         get_result(res_reg, res_size);

	 /* If we got a buffer status, handle that. */
         if ((res_reg[0] & 0xf0) == 0x50)
         {

            if (   (res_reg[0] == SONY_NO_CIRC_ERR_BLK_STAT)
                || (res_reg[0] == SONY_NO_LECC_ERR_BLK_STAT)
                || (res_reg[0] == SONY_RECOV_LECC_ERR_BLK_STAT))
            {
	       /* The data was successful, but if data was read from
		  the readahead  and it was bad, set the whole
		  buffer as bad. */
               if (readahead_bad)
               {
                  readahead_bad = 0;
                  res_reg[0] = 0x20;
                  res_reg[1] = SONY_BAD_DATA_ERR;
                  *res_size = 2;
               }
            }
            else
            {
               printk("CDU31A: Data block error: 0x%x\n", res_reg[0]);
               res_reg[0] = 0x20;
               res_reg[1] = SONY_BAD_DATA_ERR;
               *res_size = 2;

               /* Data is in the readahead buffer but an error was returned.
                  Make sure future requests don't use the data. */
               if (bytesleft != 2048)
               {
                  readahead_bad = 1;
               }
            }

            /* Final transfer is done for read command, get final result. */
            if (sony_blocks_left == 0)
            {
               get_result(res_reg, res_size);
            }
         }
         else if ((res_reg[0] & 0xf0) != 0x20)
         {
            /* The drive gave me bad status, I don't know what to do.
               Reset the driver and return an error. */
            printk("CDU31A: Invalid block status: 0x%x\n", res_reg[0]);
            restart_on_error();
            res_reg[0] = 0x20;
            res_reg[1] = SONY_BAD_DATA_ERR;
            *res_size = 2;
         }
      }
   }
#if DEBUG
   printk("Leaving read_data_block at %d\n", __LINE__);
#endif
}

static int scd_spinup(void);

/*
 * The OS calls this to perform a read or write operation to the drive.
 * Write obviously fail.  Reads to a read ahead of sony_buffer_size
 * bytes to help speed operations.  This especially helps since the OS
 * uses 1024 byte blocks and the drive uses 2048 byte blocks.  Since most
 * data access on a CD is done sequentially, this saves a lot of operations.
 */
static void
do_cdu31a_request(void)
{
   int block;
   int nblock;
   unsigned char res_reg[12];
   unsigned int res_size;
   int num_retries;
   unsigned long flags;


#if DEBUG
         printk("Entering do_cdu31a_request\n");
#endif

   /* 
    * Make sure no one else is using the driver; wait for them
    * to finish if it is so.
    */
   save_flags(flags);
   cli();
   while (sony_inuse)
   {
      interruptible_sleep_on(&sony_wait);
      if (signal_pending(current))
      {
         restore_flags(flags);
         if (CURRENT && CURRENT->rq_status != RQ_INACTIVE)
         {
            end_request(0);
         }
         restore_flags(flags);
#if DEBUG
         printk("Leaving do_cdu31a_request at %d\n", __LINE__);
#endif
         return;
      }
   }
   sony_inuse = 1;
   has_cd_task = current;

   /* Get drive status before doing anything. */
   while (handle_sony_cd_attention())
      ;

   /* Make sure we have a valid TOC. */
   sony_get_toc(); 

   sti();

   /* Make sure the timer is cancelled. */
   del_timer(&cdu31a_abort_timer);

   while (1)
   {
cdu31a_request_startover:
      /*
       * The beginning here is stolen from the hard disk driver.  I hope
       * it's right.
       */
      if (!(CURRENT) || CURRENT->rq_status == RQ_INACTIVE)
      {
         goto end_do_cdu31a_request;
      }

      if (!sony_spun_up)
      {
         scd_spinup();
      }

      /* I don't use INIT_REQUEST because it calls return, which would
         return without unlocking the device.  It shouldn't matter,
         but just to be safe... */
      if (MAJOR(CURRENT->rq_dev) != MAJOR_NR)
      {
	 panic(DEVICE_NAME ": request list destroyed");
      }
      if (CURRENT->bh)
      {
	 if (!buffer_locked(CURRENT->bh))
         {
	    panic(DEVICE_NAME ": block not locked");
         }
      }

      block = CURRENT->sector;
      nblock = CURRENT->nr_sectors;

      if (!sony_toc_read)
      {
	 printk("CDU31A: TOC not read\n");
	 end_request(0);
	 goto cdu31a_request_startover;
      }

      switch(CURRENT->cmd)
      {
      case READ:
         /*
          * If the block address is invalid or the request goes beyond the end of
          * the media, return an error.
          */
#if 0
	 if ((block / 4) < sony_toc.start_track_lba)
	 {
            printk("CDU31A: Request before beginning of media\n");
            end_request(0);
            goto cdu31a_request_startover;
	 }
#endif
         if ((block / 4) >= sony_toc.lead_out_start_lba)
         {
            printk("CDU31A: Request past end of media\n");
            end_request(0);
            goto cdu31a_request_startover;
         }
         if (((block + nblock) / 4) >= sony_toc.lead_out_start_lba)
         {
            printk("CDU31A: Request past end of media\n");
            end_request(0);
            goto cdu31a_request_startover;
         }

         num_retries = 0;

try_read_again:
         while (handle_sony_cd_attention())
            ;

         if (!sony_toc_read)
         {
	    printk("CDU31A: TOC not read\n");
	    end_request(0);
	    goto cdu31a_request_startover;
         }

	 /* If no data is left to be read from the drive, start the
	    next request. */
         if (sony_blocks_left == 0)
         {
            if (start_request(block / 4, CDU31A_READAHEAD / 4, 0))
            {
               end_request(0);
               goto cdu31a_request_startover;
            }
         }
	 /* If the requested block is not the next one waiting in
	    the driver, abort the current operation and start a
	    new one. */
         else if (block != sony_next_block)
         {
#if DEBUG
            printk("CDU31A Warning: Read for block %d, expected %d\n",
                   block,
                   sony_next_block);
#endif
            abort_read();
            if (!sony_toc_read)
            {
	       printk("CDU31A: TOC not read\n");
	       end_request(0);
               goto cdu31a_request_startover;
            }
            if (start_request(block / 4, CDU31A_READAHEAD / 4, 0))
            {
               printk("CDU31a: start request failed\n");
               end_request(0);
               goto cdu31a_request_startover;
            }
         }

         read_data_block(CURRENT->buffer, block, nblock, res_reg, &res_size);
         if (res_reg[0] == 0x20)
         {
            if (num_retries > MAX_CDU31A_RETRIES)
            {
               end_request(0);
               goto cdu31a_request_startover;
            }

            num_retries++;
            if (res_reg[1] == SONY_NOT_SPIN_ERR)
            {
               do_sony_cd_cmd(SONY_SPIN_UP_CMD, NULL, 0, res_reg, &res_size);
            }
            else
            {
               printk("CDU31A: %s error for block %d, nblock %d\n", translate_error(res_reg[1]), block, nblock);
            }
            goto try_read_again;
         }
         else
         {
            end_request(1);
         }
         break;
            
      case WRITE:
         end_request(0);
         break;
            
      default:
         panic("CDU31A: Unknown cmd");
      }
   }

end_do_cdu31a_request:
   cli();
#if 0
   /* After finished, cancel any pending operations. */
   abort_read();
#else
   /* Start a timer to time out after a while to disable
      the read. */
   cdu31a_abort_timer.expires = jiffies + 2*HZ; /* Wait 2 seconds */
   add_timer(&cdu31a_abort_timer);
#endif

   has_cd_task = NULL;
   sony_inuse = 0;
   wake_up_interruptible(&sony_wait);
   restore_flags(flags);
#if DEBUG
   printk("Leaving do_cdu31a_request at %d\n", __LINE__);
#endif
}


/*
 * Read the table of contents from the drive and set up TOC if
 * successful.
 */
static void
sony_get_toc(void)
{
   unsigned char res_reg[2];
   unsigned int res_size;
   unsigned char parms[1];
   int session;
   int num_spin_ups;
   int totaltracks = 0;
   int mint = 99;
   int maxt = 0;

#if DEBUG
   printk("Entering sony_get_toc\n");
#endif

   num_spin_ups = 0;
   if (!sony_toc_read)
   {
respinup_on_gettoc:
      /* Ignore the result, since it might error if spinning already. */
      do_sony_cd_cmd(SONY_SPIN_UP_CMD, NULL, 0, res_reg, &res_size);

      do_sony_cd_cmd(SONY_READ_TOC_CMD, NULL, 0, res_reg, &res_size);

      /* The drive sometimes returns error 0.  I don't know why, but ignore
         it.  It seems to mean the drive has already done the operation. */
      if ((res_size < 2) || ((res_reg[0] != 0) && (res_reg[1] != 0)))
      {
         /* If the drive is already playing, it's ok.  */
         if ((res_reg[1] == SONY_AUDIO_PLAYING_ERR) || (res_reg[1] == 0))
         {
            goto gettoc_drive_spinning;
         }

         /* If the drive says it is not spun up (even though we just did it!)
            then retry the operation at least a few times. */
         if (   (res_reg[1] == SONY_NOT_SPIN_ERR)
             && (num_spin_ups < MAX_CDU31A_RETRIES))
         {
            num_spin_ups++;
            goto respinup_on_gettoc;
         }

         printk("cdu31a: Error reading TOC: %x %s\n",
                res_reg[0], translate_error(res_reg[1]));
	 return;
      }

gettoc_drive_spinning:

      /* The idea here is we keep asking for sessions until the command
	 fails.  Then we know what the last valid session on the disk is.
	 No need to check session 0, since session 0 is the same as session
         1; the command returns different information if you give it 0. 
        */
#if DEBUG
      memset(&sony_toc, 0x0e, sizeof(sony_toc));
      memset(&single_toc, 0x0f, sizeof(single_toc));
#endif
      session = 1;
      while (1)
      {
#if DEBUG
         printk("Trying session %d\n", session);
#endif
	 parms[0] = session;
	 do_sony_cd_cmd(SONY_READ_TOC_SPEC_CMD,
			parms,
			1, 
			res_reg,
			&res_size);

#if DEBUG
         printk("%2.2x %2.2x\n", res_reg[0], res_reg[1]);
#endif

	 if ((res_size < 2) || ((res_reg[0] & 0xf0) == 0x20))
	 {
	    /* An error reading the TOC, this must be past the last session. */
	    break;
         }
#if DEBUG
         printk("Reading session %d\n", session);
#endif

         parms[0] = session;
         do_sony_cd_cmd(SONY_REQ_TOC_DATA_SPEC_CMD,
		     parms,
		     1, 
		     (unsigned char *) &single_toc, 
		     &res_size);
         if ((res_size < 2) || ((single_toc.exec_status[0] & 0xf0) == 0x20))
         {
            printk("cdu31a: Error reading session %d: %x %s\n",
                session,
                single_toc.exec_status[0],
                translate_error(single_toc.exec_status[1]));
	    /* An error reading the TOC.  Return without sony_toc_read
	       set. */
	    return;
         }
#if DEBUG
      printk("add0 %01x, con0 %01x, poi0 %02x, 1st trk %d, dsktyp %x, dum0 %x\n",
              single_toc.address0, single_toc.control0, single_toc.point0,
              bcd_to_int(single_toc.first_track_num), single_toc.disk_type, single_toc.dummy0);
      printk("add1 %01x, con1 %01x, poi1 %02x, lst trk %d, dummy1 %x, dum2 %x\n",
              single_toc.address1, single_toc.control1, single_toc.point1,
              bcd_to_int(single_toc.last_track_num), single_toc.dummy1, single_toc.dummy2);
      printk("add2 %01x, con2 %01x, poi2 %02x leadout start min %d, sec %d, frame %d\n",
              single_toc.address2, single_toc.control2, single_toc.point2,
              bcd_to_int(single_toc.lead_out_start_msf[0]),
              bcd_to_int(single_toc.lead_out_start_msf[1]),
              bcd_to_int(single_toc.lead_out_start_msf[2]));
      if (res_size > 18 && single_toc.pointb0 > 0xaf)
      printk("addb0 %01x, conb0 %01x, poib0 %02x, nextsession min %d, sec %d, frame %d\n"
             "#mode5_ptrs %02d, max_start_outer_leadout_msf min %d, sec %d, frame %d\n",
              single_toc.addressb0, single_toc.controlb0, single_toc.pointb0,
              bcd_to_int(single_toc.next_poss_prog_area_msf[0]),
              bcd_to_int(single_toc.next_poss_prog_area_msf[1]),
              bcd_to_int(single_toc.next_poss_prog_area_msf[2]),
              single_toc.num_mode_5_pointers,
              bcd_to_int(single_toc.max_start_outer_leadout_msf[0]),
              bcd_to_int(single_toc.max_start_outer_leadout_msf[1]),
              bcd_to_int(single_toc.max_start_outer_leadout_msf[2]));
      if (res_size > 27 && single_toc.pointb1 > 0xaf)
      printk("addb1 %01x, conb1 %01x, poib1 %02x, %x %x %x %x #skipint_ptrs %d, #skiptrkassign %d %x\n",
              single_toc.addressb1, single_toc.controlb1, single_toc.pointb1,
              single_toc.dummyb0_1[0],
              single_toc.dummyb0_1[1],
              single_toc.dummyb0_1[2],
              single_toc.dummyb0_1[3],
              single_toc.num_skip_interval_pointers,
              single_toc.num_skip_track_assignments,
              single_toc.dummyb0_2);
      if (res_size > 36 && single_toc.pointb2 > 0xaf)
      printk("addb2 %01x, conb2 %01x, poib2 %02x, %02x %02x %02x %02x %02x %02x %02x\n",
              single_toc.addressb2, single_toc.controlb2, single_toc.pointb2,
              single_toc.tracksb2[0],
              single_toc.tracksb2[1],
              single_toc.tracksb2[2],
              single_toc.tracksb2[3],
              single_toc.tracksb2[4],
              single_toc.tracksb2[5],
              single_toc.tracksb2[6]);
      if (res_size > 45 && single_toc.pointb3 > 0xaf)
      printk("addb3 %01x, conb3 %01x, poib3 %02x, %02x %02x %02x %02x %02x %02x %02x\n",
              single_toc.addressb3, single_toc.controlb3, single_toc.pointb3,
              single_toc.tracksb3[0],
              single_toc.tracksb3[1],
              single_toc.tracksb3[2],
              single_toc.tracksb3[3],
              single_toc.tracksb3[4],
              single_toc.tracksb3[5],
              single_toc.tracksb3[6]);
      if (res_size > 54 && single_toc.pointb4 > 0xaf)
      printk("addb4 %01x, conb4 %01x, poib4 %02x, %02x %02x %02x %02x %02x %02x %02x\n",
              single_toc.addressb4, single_toc.controlb4, single_toc.pointb4,
              single_toc.tracksb4[0],
              single_toc.tracksb4[1],
              single_toc.tracksb4[2],
              single_toc.tracksb4[3],
              single_toc.tracksb4[4],
              single_toc.tracksb4[5],
              single_toc.tracksb4[6]);
      if (res_size > 63 && single_toc.pointc0 > 0xaf)
      printk("addc0 %01x, conc0 %01x, poic0 %02x, %02x %02x %02x %02x %02x %02x %02x\n",
              single_toc.addressc0, single_toc.controlc0, single_toc.pointc0,
              single_toc.dummyc0[0],
              single_toc.dummyc0[1],
              single_toc.dummyc0[2],
              single_toc.dummyc0[3],
              single_toc.dummyc0[4],
              single_toc.dummyc0[5],
              single_toc.dummyc0[6]);
#endif
#undef DEBUG
#define DEBUG 0

      sony_toc.lead_out_start_msf[0] = bcd_to_int(single_toc.lead_out_start_msf[0]);
      sony_toc.lead_out_start_msf[1] = bcd_to_int(single_toc.lead_out_start_msf[1]);
      sony_toc.lead_out_start_msf[2] = bcd_to_int(single_toc.lead_out_start_msf[2]);
      sony_toc.lead_out_start_lba = single_toc.lead_out_start_lba =
                    msf_to_log(sony_toc.lead_out_start_msf);

      /* For points that do not exist, move the data over them
	 to the right location. */
      if (single_toc.pointb0 != 0xb0)
      {
	 memmove(((char *) &single_toc) + 27,
		 ((char *) &single_toc) + 18,
		 res_size - 18);
	 res_size += 9;
      }
      else if (res_size > 18) {
        sony_toc.lead_out_start_msf[0] = bcd_to_int(single_toc.max_start_outer_leadout_msf[0]);
        sony_toc.lead_out_start_msf[1] = bcd_to_int(single_toc.max_start_outer_leadout_msf[1]);
        sony_toc.lead_out_start_msf[2] = bcd_to_int(single_toc.max_start_outer_leadout_msf[2]);
        sony_toc.lead_out_start_lba = msf_to_log(sony_toc.lead_out_start_msf);
      }
      if (single_toc.pointb1 != 0xb1)
      {
	 memmove(((char *) &single_toc) + 36,
		((char *) &single_toc) + 27,
		res_size - 27);
	 res_size += 9;
      }
      if (single_toc.pointb2 != 0xb2)
      {
	 memmove(((char *) &single_toc) + 45,
		((char *) &single_toc) + 36,
		res_size - 36);
	 res_size += 9;
      }
      if (single_toc.pointb3 != 0xb3)
      {
	 memmove(((char *) &single_toc) + 54,
		((char *) &single_toc) + 45,
		res_size - 45);
	 res_size += 9;
      }
      if (single_toc.pointb4 != 0xb4)
      {
	 memmove(((char *) &single_toc) + 63,
		((char *) &single_toc) + 54,
		res_size - 54);
	 res_size += 9;
      }
      if (single_toc.pointc0 != 0xc0)
      {
	 memmove(((char *) &single_toc) + 72,
		((char *) &single_toc) + 63,
		res_size - 63);
	 res_size += 9;
      }

#if DEBUG
      printk("start track lba %u,  leadout start lba %u\n",
              single_toc.start_track_lba, single_toc.lead_out_start_lba);
      { int i;
        for (i = 0; i < 1 + bcd_to_int(single_toc.last_track_num)
                          - bcd_to_int(single_toc.first_track_num); i++) {
          printk("trk %02d: add 0x%01x, con 0x%01x,  track %02d, start min %02d, sec %02d, frame %02d\n",
                 i, single_toc.tracks[i].address, single_toc.tracks[i].control,
                 bcd_to_int(single_toc.tracks[i].track),
                 bcd_to_int(single_toc.tracks[i].track_start_msf[0]),
                 bcd_to_int(single_toc.tracks[i].track_start_msf[1]),
                 bcd_to_int(single_toc.tracks[i].track_start_msf[2]));
          if (mint > bcd_to_int(single_toc.tracks[i].track))
            mint = bcd_to_int(single_toc.tracks[i].track);
          if (maxt < bcd_to_int(single_toc.tracks[i].track))
            maxt = bcd_to_int(single_toc.tracks[i].track);
        }
        printk("min track number %d,   max track number %d\n", mint, maxt);
      }
#endif

         /* prepare a special table of contents for a CD-I disc. They don't have one. */
         if (single_toc.disk_type == 0x10 &&
             single_toc.first_track_num == 2 &&
             single_toc.last_track_num == 2 /* CD-I */)
         {
            sony_toc.tracks[totaltracks].address = 1;
	    sony_toc.tracks[totaltracks].control = 4; /* force data tracks */
            sony_toc.tracks[totaltracks].track = 1;
            sony_toc.tracks[totaltracks].track_start_msf[0] = 0;
            sony_toc.tracks[totaltracks].track_start_msf[1] = 2;
            sony_toc.tracks[totaltracks].track_start_msf[2] = 0;
            mint = maxt = 1;
            totaltracks++;
         } else
         /* gather track entries from this session */
         { int i;
	   for (i = 0; i < 1 + bcd_to_int(single_toc.last_track_num)
                          - bcd_to_int(single_toc.first_track_num); i++, totaltracks++) {
             sony_toc.tracks[totaltracks].address = single_toc.tracks[i].address;
             sony_toc.tracks[totaltracks].control = single_toc.tracks[i].control;
             sony_toc.tracks[totaltracks].track = bcd_to_int(single_toc.tracks[i].track);
             sony_toc.tracks[totaltracks].track_start_msf[0] = 
                  bcd_to_int(single_toc.tracks[i].track_start_msf[0]);
             sony_toc.tracks[totaltracks].track_start_msf[1] = 
                  bcd_to_int(single_toc.tracks[i].track_start_msf[1]);
             sony_toc.tracks[totaltracks].track_start_msf[2] = 
                  bcd_to_int(single_toc.tracks[i].track_start_msf[2]);
             if (i == 0)
               single_toc.start_track_lba = msf_to_log(sony_toc.tracks[totaltracks].track_start_msf);
             if (mint > sony_toc.tracks[totaltracks].track)
               mint = sony_toc.tracks[totaltracks].track;
             if (maxt < sony_toc.tracks[totaltracks].track)
               maxt = sony_toc.tracks[totaltracks].track;
           }
         }
         sony_toc.first_track_num = mint;
         sony_toc.last_track_num = maxt;
         /* Disk type of last session wins. For example:
            CD-Extra has disk type 0 for the first session, so
            a dumb HiFi CD player thinks it is a plain audio CD.
	    We are interested in the disk type of the last session,
            which is 0x20 (XA) for CD-Extra, so we can access the
            data track ... */
         sony_toc.disk_type = single_toc.disk_type;
         sony_toc.sessions = session;

         /* don't believe everything :-) */
         if (session == 1)
            single_toc.start_track_lba = 0;
         sony_toc.start_track_lba = single_toc.start_track_lba;

         if (session > 1 && single_toc.pointb0 == 0xb0 &&
             sony_toc.lead_out_start_lba == single_toc.lead_out_start_lba)
	 {
            break;
         }

         /* Let's not get carried away... */
         if (session > 40)
         {
            printk("cdu31a: too many sessions: %d\n", session);
            break;
         }
         session++;
      }
      sony_toc.track_entries = totaltracks;
      /* add one entry for the LAST track with track number CDROM_LEADOUT */ 
      sony_toc.tracks[totaltracks].address = single_toc.address2;
      sony_toc.tracks[totaltracks].control = single_toc.control2;
      sony_toc.tracks[totaltracks].track = CDROM_LEADOUT;
      sony_toc.tracks[totaltracks].track_start_msf[0] = 
             sony_toc.lead_out_start_msf[0];
      sony_toc.tracks[totaltracks].track_start_msf[1] = 
             sony_toc.lead_out_start_msf[1];
      sony_toc.tracks[totaltracks].track_start_msf[2] = 
             sony_toc.lead_out_start_msf[2];

      sony_toc_read = 1;
#undef DEBUG
#if DEBUG
   printk("Disk session %d, start track: %d, stop track: %d\n",
	  session,
	  single_toc.start_track_lba,
	  single_toc.lead_out_start_lba);
#endif
   }
#if DEBUG
   printk("Leaving sony_get_toc\n");
#endif
}


/*
 * Uniform cdrom interface function
 * return multisession offset and sector information
 */
static int scd_get_last_session(struct cdrom_device_info *cdi, 
                                struct cdrom_multisession *ms_info)
{
   if (ms_info == NULL)
      return 1;

   if (!sony_toc_read)
      sony_get_toc();

   ms_info->addr_format = CDROM_LBA;
   ms_info->addr.lba    = sony_toc.start_track_lba;
   ms_info->xa_flag     = sony_toc.disk_type == SONY_XA_DISK_TYPE ||
                          sony_toc.disk_type == 0x10 /* CDI */;

   return 0;
}

/*
 * Search for a specific track in the table of contents.
 */
static int
find_track(int track)
{
   int i;

   for (i = 0; i <= sony_toc.track_entries; i++)
   {
      if (sony_toc.tracks[i].track == track)
      {
         return i;
      }
   }

   return -1;
}


/*
 * Read the subcode and put it in last_sony_subcode for future use.
 */
static int
read_subcode(void)
{
   unsigned int res_size;


   do_sony_cd_cmd(SONY_REQ_SUBCODE_ADDRESS_CMD,
                  NULL,
                  0, 
                  (unsigned char *) &last_sony_subcode, 
                  &res_size);
   if ((res_size < 2) || ((last_sony_subcode.exec_status[0] & 0xf0) == 0x20))
   {
      printk("Sony CDROM error %s (read_subcode)\n",
             translate_error(last_sony_subcode.exec_status[1]));
      return -EIO;
   }

   last_sony_subcode.track_num = bcd_to_int(last_sony_subcode.track_num);
   last_sony_subcode.index_num = bcd_to_int(last_sony_subcode.index_num);
   last_sony_subcode.abs_msf[0] = bcd_to_int(last_sony_subcode.abs_msf[0]);
   last_sony_subcode.abs_msf[1] = bcd_to_int(last_sony_subcode.abs_msf[1]);
   last_sony_subcode.abs_msf[2] = bcd_to_int(last_sony_subcode.abs_msf[2]);

   last_sony_subcode.rel_msf[0] = bcd_to_int(last_sony_subcode.rel_msf[0]);
   last_sony_subcode.rel_msf[1] = bcd_to_int(last_sony_subcode.rel_msf[1]);
   last_sony_subcode.rel_msf[2] = bcd_to_int(last_sony_subcode.rel_msf[2]);
   return 0;
}

/*
 * Uniform cdrom interface function
 * return the media catalog number found on some older audio cds
 */
static int
scd_get_mcn(struct cdrom_device_info *cdi, struct cdrom_mcn *mcn)
{
   unsigned char resbuffer[2 + 14];
   unsigned char *mcnp = mcn->medium_catalog_number;
   unsigned char *resp = resbuffer + 3;
   unsigned int res_size;

   memset(mcn->medium_catalog_number, 0, 14);
   do_sony_cd_cmd(SONY_REQ_UPC_EAN_CMD,
                  NULL,
                  0, 
                  resbuffer,
                  &res_size);
   if ((res_size < 2) || ((resbuffer[0] & 0xf0) == 0x20))
     ;
   else {
     /* packed bcd to single ASCII digits */
     *mcnp++ = (*resp >> 4)     + '0'; 
     *mcnp++ = (*resp++ & 0x0f) + '0'; 
     *mcnp++ = (*resp >> 4)     + '0'; 
     *mcnp++ = (*resp++ & 0x0f) + '0'; 
     *mcnp++ = (*resp >> 4)     + '0'; 
     *mcnp++ = (*resp++ & 0x0f) + '0'; 
     *mcnp++ = (*resp >> 4)     + '0'; 
     *mcnp++ = (*resp++ & 0x0f) + '0'; 
     *mcnp++ = (*resp >> 4)     + '0'; 
     *mcnp++ = (*resp++ & 0x0f) + '0'; 
     *mcnp++ = (*resp >> 4)     + '0'; 
     *mcnp++ = (*resp++ & 0x0f) + '0'; 
     *mcnp++ = (*resp >> 4)     + '0'; 
   }
   *mcnp = '\0';
   return 0;
}


/*
 * Get the subchannel info like the CDROMSUBCHNL command wants to see it.  If
 * the drive is playing, the subchannel needs to be read (since it would be
 * changing).  If the drive is paused or completed, the subcode information has
 * already been stored, just use that.  The ioctl call wants things in decimal
 * (not BCD), so all the conversions are done.
 */
static int
sony_get_subchnl_info(struct cdrom_subchnl *schi)
{
   /* Get attention stuff */
   while (handle_sony_cd_attention())
      ;

   sony_get_toc();
   if (!sony_toc_read)
   {
      return -EIO;
   }

   switch (sony_audio_status)
   {
   case CDROM_AUDIO_NO_STATUS:
   case CDROM_AUDIO_PLAY:
      if (read_subcode() < 0)
      {
         return -EIO;
      }
      break;

   case CDROM_AUDIO_PAUSED:
   case CDROM_AUDIO_COMPLETED:
      break;

#if 0
   case CDROM_AUDIO_NO_STATUS:
      schi->cdsc_audiostatus = sony_audio_status;
      return 0;
      break;
#endif
   case CDROM_AUDIO_INVALID:
   case CDROM_AUDIO_ERROR:
   default:
      return -EIO;
   }

   schi->cdsc_audiostatus = sony_audio_status;
   schi->cdsc_adr = last_sony_subcode.address;
   schi->cdsc_ctrl = last_sony_subcode.control;
   schi->cdsc_trk = last_sony_subcode.track_num;
   schi->cdsc_ind = last_sony_subcode.index_num;
   if (schi->cdsc_format == CDROM_MSF)
   {
      schi->cdsc_absaddr.msf.minute = last_sony_subcode.abs_msf[0];
      schi->cdsc_absaddr.msf.second = last_sony_subcode.abs_msf[1];
      schi->cdsc_absaddr.msf.frame = last_sony_subcode.abs_msf[2];

      schi->cdsc_reladdr.msf.minute = last_sony_subcode.rel_msf[0];
      schi->cdsc_reladdr.msf.second = last_sony_subcode.rel_msf[1];
      schi->cdsc_reladdr.msf.frame = last_sony_subcode.rel_msf[2];
   }
   else if (schi->cdsc_format == CDROM_LBA)
   {
      schi->cdsc_absaddr.lba = msf_to_log(last_sony_subcode.abs_msf);
      schi->cdsc_reladdr.lba = msf_to_log(last_sony_subcode.rel_msf);
   }
   
   return 0;
}

/* Get audio data from the drive.  This is fairly complex because I
   am looking for status and data at the same time, but if I get status
   then I just look for data.  I need to get the status immediately so
   the switch from audio to data tracks will happen quickly. */
static void
read_audio_data(char          *buffer,
                unsigned char res_reg[],
                int           *res_size)
{
   unsigned int retry_count;
   int result_read;


   res_reg[0] = 0;
   res_reg[1] = 0;
   *res_size = 0;
   result_read = 0;

   /* Wait for the drive to tell us we have something */
   retry_count = jiffies + SONY_JIFFIES_TIMEOUT;
continue_read_audio_wait:
   while (   (retry_count > jiffies)
          && !(is_data_ready())
          && !(is_result_ready() || result_read))
   {
      while (handle_sony_cd_attention())
         ;

      sony_sleep();
   }
   if (!(is_data_ready()))
   {
      if (is_result_ready() && !result_read)
      {
         get_result(res_reg, res_size);

         /* Read block status and continue waiting for data. */
         if ((res_reg[0] & 0xf0) == 0x50)
         {
            result_read = 1;
            goto continue_read_audio_wait;
         }
         /* Invalid data from the drive.  Shut down the operation. */
         else if ((res_reg[0] & 0xf0) != 0x20)
         {
            printk("CDU31A: Got result that should have been error: %d\n",
                   res_reg[0]);
            res_reg[0] = 0x20;
            res_reg[1] = SONY_BAD_DATA_ERR;
            *res_size = 2;
         }
         abort_read();
      }
      else
      {
#if DEBUG
         printk("CDU31A timeout out %d\n", __LINE__);
#endif
         res_reg[0] = 0x20;
         res_reg[1] = SONY_TIMEOUT_OP_ERR;
         *res_size = 2;
         abort_read();
      }
   }
   else
   {
      clear_data_ready();

      /* If data block, then get 2340 bytes offset by 12. */
      if (sony_raw_data_mode)
      {
         insb(sony_cd_read_reg, buffer + CD_XA_HEAD, CD_FRAMESIZE_RAW1);
      }
      else
      {
         /* Audio gets the whole 2352 bytes. */
         insb(sony_cd_read_reg, buffer, CD_FRAMESIZE_RAW);
      }

      /* If I haven't already gotten the result, get it now. */
      if (!result_read)
      {
         /* Wait for the drive to tell us we have something */
         retry_count = jiffies + SONY_JIFFIES_TIMEOUT;
         while ((retry_count > jiffies) && !(is_result_ready()))
         {
            while (handle_sony_cd_attention())
               ;

            sony_sleep();
         }

         if (!is_result_ready())
         {
#if DEBUG
            printk("CDU31A timeout out %d\n", __LINE__);
#endif
            res_reg[0] = 0x20;
            res_reg[1] = SONY_TIMEOUT_OP_ERR;
            *res_size = 2;
            abort_read();
            return;
         }
         else
         {
            get_result(res_reg, res_size);
         }
      }

      if ((res_reg[0] & 0xf0) == 0x50)
      {
         if (   (res_reg[0] == SONY_NO_CIRC_ERR_BLK_STAT)
             || (res_reg[0] == SONY_NO_LECC_ERR_BLK_STAT)
             || (res_reg[0] == SONY_RECOV_LECC_ERR_BLK_STAT)
             || (res_reg[0] == SONY_NO_ERR_DETECTION_STAT))
         {
            /* Ok, nothing to do. */
         }
         else
         {
            printk("CDU31A: Data block error: 0x%x\n", res_reg[0]);
            res_reg[0] = 0x20;
            res_reg[1] = SONY_BAD_DATA_ERR;
            *res_size = 2;
         }
      }
      else if ((res_reg[0] & 0xf0) != 0x20)
      {
         /* The drive gave me bad status, I don't know what to do.
            Reset the driver and return an error. */
         printk("CDU31A: Invalid block status: 0x%x\n", res_reg[0]);
         restart_on_error();
         res_reg[0] = 0x20;
         res_reg[1] = SONY_BAD_DATA_ERR;
         *res_size = 2;
      }
   }
}

/* Perform a raw data read.  This will automatically detect the
   track type and read the proper data (audio or data). */
static int
read_audio(struct cdrom_read_audio *ra)
{
   int retval;
   unsigned char params[2];
   unsigned char res_reg[12];
   unsigned int res_size;
   unsigned int cframe;
   unsigned long flags;

   /* 
    * Make sure no one else is using the driver; wait for them
    * to finish if it is so.
    */
   save_flags(flags);
   cli();
   while (sony_inuse)
   {
      interruptible_sleep_on(&sony_wait);
      if (signal_pending(current))
      {
         restore_flags(flags);
         return -EAGAIN;
      }
   }
   sony_inuse = 1;
   has_cd_task = current;
   restore_flags(flags);

   if (!sony_spun_up)
   {
     scd_spinup();
   }

   /* Set the drive to do raw operations. */
   params[0] = SONY_SD_DECODE_PARAM;
   params[1] = 0x06 | sony_raw_data_mode;
   do_sony_cd_cmd(SONY_SET_DRIVE_PARAM_CMD,
                  params,
                  2,
                  res_reg,
                  &res_size);
   if ((res_size < 2) || ((res_reg[0] & 0xf0) == 0x20))
   {
      printk("CDU31A: Unable to set decode params: 0x%2.2x\n", res_reg[1]);
      return -EIO;
   }

   /* From here down, we have to goto exit_read_audio instead of returning
      because the drive parameters have to be set back to data before
      return. */

   retval = 0;
   /* start_request clears out any readahead data, so it should be safe. */
   if (start_request(ra->addr.lba, ra->nframes, 1))
   {
      retval = -EIO;
      goto exit_read_audio;
   }

   /* For every requested frame. */
   cframe = 0;
   while (cframe < ra->nframes)
   {
      read_audio_data(readahead_buffer, res_reg, &res_size);
      if ((res_reg[0] & 0xf0) == 0x20)
      {
         if (res_reg[1] == SONY_BAD_DATA_ERR)
         {
            printk("CDU31A: Data error on audio sector %d\n",
                   ra->addr.lba + cframe);
         }
         else if (res_reg[1] == SONY_ILL_TRACK_R_ERR)
         {
            /* Illegal track type, change track types and start over. */
            sony_raw_data_mode = (sony_raw_data_mode) ? 0 : 1;

            /* Set the drive mode. */
            params[0] = SONY_SD_DECODE_PARAM;
            params[1] = 0x06 | sony_raw_data_mode;
            do_sony_cd_cmd(SONY_SET_DRIVE_PARAM_CMD,
                           params,
                           2,
                           res_reg,
                           &res_size);
            if ((res_size < 2) || ((res_reg[0] & 0xf0) == 0x20))
            {
               printk("CDU31A: Unable to set decode params: 0x%2.2x\n", res_reg[1]);
               retval = -EIO;
               goto exit_read_audio;
            }

            /* Restart the request on the current frame. */
            if (start_request(ra->addr.lba + cframe, ra->nframes - cframe, 1))
            {
               retval = -EIO;
               goto exit_read_audio;
            }

            /* Don't go back to the top because don't want to get into
               and infinite loop.  A lot of code gets duplicated, but
               that's no big deal, I don't guess. */
            read_audio_data(readahead_buffer, res_reg, &res_size);
            if ((res_reg[0] & 0xf0) == 0x20)
            {
               if (res_reg[1] == SONY_BAD_DATA_ERR)
               {
                  printk("CDU31A: Data error on audio sector %d\n",
                         ra->addr.lba + cframe);
               }
               else
               {
                  printk("CDU31A: Error reading audio data on sector %d: %s\n",
                         ra->addr.lba + cframe,
                         translate_error(res_reg[1]));
                  retval = -EIO;
                  goto exit_read_audio;
               }
            }
            else
            {
               copy_to_user((char *) (ra->buf + (CD_FRAMESIZE_RAW * cframe)),
                           (char *) readahead_buffer,
                           CD_FRAMESIZE_RAW);
            }
         }
         else
         {
            printk("CDU31A: Error reading audio data on sector %d: %s\n",
                   ra->addr.lba + cframe,
                   translate_error(res_reg[1]));
            retval = -EIO;
            goto exit_read_audio;
         }
      }
      else
      {
         copy_to_user((char *) (ra->buf + (CD_FRAMESIZE_RAW * cframe)),
                     (char *) readahead_buffer,
                     CD_FRAMESIZE_RAW);
      }

      cframe++;
   }

   get_result(res_reg, &res_size);
   if ((res_reg[0] & 0xf0) == 0x20)
   {
      printk("CDU31A: Error return from audio read: %s\n",
             translate_error(res_reg[1]));
      retval = -EIO;
      goto exit_read_audio;
   }

exit_read_audio:

   /* Set the drive mode back to the proper one for the disk. */
   params[0] = SONY_SD_DECODE_PARAM;
   if (!sony_xa_mode)
   {
      params[1] = 0x0f;
   }
   else
   {
      params[1] = 0x07;
   }
   do_sony_cd_cmd(SONY_SET_DRIVE_PARAM_CMD,
                  params,
                  2,
                  res_reg,
                  &res_size);
   if ((res_size < 2) || ((res_reg[0] & 0xf0) == 0x20))
   {
      printk("CDU31A: Unable to reset decode params: 0x%2.2x\n", res_reg[1]);
      return -EIO;
   }

   has_cd_task = NULL;
   sony_inuse = 0;
   wake_up_interruptible(&sony_wait);

   return(retval);
}

static int
do_sony_cd_cmd_chk(const char *name,
                   unsigned char cmd,
                   unsigned char *params,
                   unsigned int num_params,
		   unsigned char *result_buffer,
                   unsigned int *result_size)
{      
      do_sony_cd_cmd(cmd, params, num_params, result_buffer, result_size);
      if ((*result_size < 2) || ((result_buffer[0] & 0xf0) == 0x20))
      {
         printk("Sony CDROM error %s (CDROM%s)\n", translate_error(result_buffer[1]), name);
         return -EIO;
      }
      return 0;
}
 
/*
 * Uniform cdrom interface function
 * open the tray
 */
static int scd_tray_move(struct cdrom_device_info *cdi, int position)
{
  if (position == 1 /* open tray */)
  {
    unsigned char res_reg[12];
    unsigned int res_size;

    do_sony_cd_cmd(SONY_AUDIO_STOP_CMD, NULL, 0, res_reg, &res_size);
    do_sony_cd_cmd(SONY_SPIN_DOWN_CMD, NULL, 0, res_reg, &res_size);

    sony_audio_status = CDROM_AUDIO_INVALID;
    return do_sony_cd_cmd_chk("EJECT",SONY_EJECT_CMD, NULL, 0, res_reg, &res_size);
  } else {
    if (0 == scd_spinup())
      sony_spun_up = 1;
    return 0;
  }
}

/*
 * The big ugly ioctl handler.
 */
static int scd_audio_ioctl(struct cdrom_device_info *cdi,
          unsigned int  cmd,
          void * arg)
{
   unsigned char res_reg[12];
   unsigned int res_size;
   unsigned char params[7];
   int i;


   switch (cmd)
   {
   case CDROMSTART:     /* Spin up the drive */
      return do_sony_cd_cmd_chk("START",SONY_SPIN_UP_CMD, NULL, 0, res_reg, &res_size);
      break;
      
   case CDROMSTOP:      /* Spin down the drive */
      do_sony_cd_cmd(SONY_AUDIO_STOP_CMD, NULL, 0, res_reg, &res_size);

      /*
       * Spin the drive down, ignoring the error if the disk was
       * already not spinning.
       */
      sony_audio_status = CDROM_AUDIO_NO_STATUS;
      return do_sony_cd_cmd_chk("STOP",SONY_SPIN_DOWN_CMD, NULL, 0, res_reg, &res_size);

   case CDROMPAUSE:     /* Pause the drive */
      if(do_sony_cd_cmd_chk("PAUSE", SONY_AUDIO_STOP_CMD, NULL, 0, res_reg, &res_size))
      	return -EIO;
      /* Get the current position and save it for resuming */
      if (read_subcode() < 0)
      {
         return -EIO;
      }
      cur_pos_msf[0] = last_sony_subcode.abs_msf[0];
      cur_pos_msf[1] = last_sony_subcode.abs_msf[1];
      cur_pos_msf[2] = last_sony_subcode.abs_msf[2];
      sony_audio_status = CDROM_AUDIO_PAUSED;
      return 0;
      break;

   case CDROMRESUME:    /* Start the drive after being paused */
      if (sony_audio_status != CDROM_AUDIO_PAUSED)
      {
         return -EINVAL;
      }
      
      do_sony_cd_cmd(SONY_SPIN_UP_CMD, NULL, 0, res_reg, &res_size);
      
      /* Start the drive at the saved position. */
      params[1] = int_to_bcd(cur_pos_msf[0]);
      params[2] = int_to_bcd(cur_pos_msf[1]);
      params[3] = int_to_bcd(cur_pos_msf[2]);
      params[4] = int_to_bcd(final_pos_msf[0]);
      params[5] = int_to_bcd(final_pos_msf[1]);
      params[6] = int_to_bcd(final_pos_msf[2]);
      params[0] = 0x03;
      if(do_sony_cd_cmd_chk("RESUME",SONY_AUDIO_PLAYBACK_CMD, params, 7, res_reg, &res_size)<0)
      	return -EIO;
      sony_audio_status = CDROM_AUDIO_PLAY;
      return 0;

   case CDROMPLAYMSF:   /* Play starting at the given MSF address. */
      do_sony_cd_cmd(SONY_SPIN_UP_CMD, NULL, 0, res_reg, &res_size);
      
      /* The parameters are given in int, must be converted */
      for (i=1; i<7; i++)
      {
         params[i] = int_to_bcd(((unsigned char *)arg)[i-1]);
      }
      params[0] = 0x03;
      if(do_sony_cd_cmd_chk("PLAYMSF",SONY_AUDIO_PLAYBACK_CMD, params, 7, res_reg, &res_size)<0)
      	return -EIO;
      
      /* Save the final position for pauses and resumes */
      final_pos_msf[0] = bcd_to_int(params[4]);
      final_pos_msf[1] = bcd_to_int(params[5]);
      final_pos_msf[2] = bcd_to_int(params[6]);
      sony_audio_status = CDROM_AUDIO_PLAY;
      return 0;

   case CDROMREADTOCHDR:        /* Read the table of contents header */
      {
         struct cdrom_tochdr *hdr;
         
         sony_get_toc();
         if (!sony_toc_read)
         {
            return -EIO;
         }
         
         hdr = (struct cdrom_tochdr *) arg;
         hdr->cdth_trk0 = sony_toc.first_track_num;
         hdr->cdth_trk1 = sony_toc.last_track_num;
      }
      return 0;

   case CDROMREADTOCENTRY:      /* Read a given table of contents entry */
      {
         struct cdrom_tocentry *entry;
         int track_idx;
         unsigned char *msf_val = NULL;
         
         sony_get_toc();
         if (!sony_toc_read)
         {
            return -EIO;
         }
         
         entry = (struct cdrom_tocentry *) arg;
         
         track_idx = find_track(entry->cdte_track);
         if (track_idx < 0)
         {
            return -EINVAL;
         }
            
         entry->cdte_adr = sony_toc.tracks[track_idx].address;
         entry->cdte_ctrl = sony_toc.tracks[track_idx].control;
         msf_val = sony_toc.tracks[track_idx].track_start_msf;
         
         /* Logical buffer address or MSF format requested? */
         if (entry->cdte_format == CDROM_LBA)
         {
            entry->cdte_addr.lba = msf_to_log(msf_val);
         }
         else if (entry->cdte_format == CDROM_MSF)
         {
            entry->cdte_addr.msf.minute = *msf_val;
            entry->cdte_addr.msf.second = *(msf_val+1);
            entry->cdte_addr.msf.frame = *(msf_val+2);
         }
      }
      return 0;
      break;

   case CDROMPLAYTRKIND:     /* Play a track.  This currently ignores index. */
      {
         struct cdrom_ti *ti = (struct cdrom_ti *) arg;
         int track_idx;
         
         sony_get_toc();
         if (!sony_toc_read)
         {
            return -EIO;
         }
         
         if (   (ti->cdti_trk0 < sony_toc.first_track_num)
             || (ti->cdti_trk0 > sony_toc.last_track_num)
             || (ti->cdti_trk1 < ti->cdti_trk0))
         {
            return -EINVAL;
         }
         
         track_idx = find_track(ti->cdti_trk0);
         if (track_idx < 0)
         {
            return -EINVAL;
         }
         params[1] = int_to_bcd(sony_toc.tracks[track_idx].track_start_msf[0]);
         params[2] = int_to_bcd(sony_toc.tracks[track_idx].track_start_msf[1]);
         params[3] = int_to_bcd(sony_toc.tracks[track_idx].track_start_msf[2]);
         
         /*
          * If we want to stop after the last track, use the lead-out
          * MSF to do that.
          */
         if (ti->cdti_trk1 >= sony_toc.last_track_num)
         {
            track_idx = find_track(CDROM_LEADOUT);
         }
         else
         {
            track_idx = find_track(ti->cdti_trk1+1);
         }
         if (track_idx < 0)
         {
            return -EINVAL;
         }
         params[4] = int_to_bcd(sony_toc.tracks[track_idx].track_start_msf[0]);
         params[5] = int_to_bcd(sony_toc.tracks[track_idx].track_start_msf[1]);
         params[6] = int_to_bcd(sony_toc.tracks[track_idx].track_start_msf[2]);
         params[0] = 0x03;
         
         do_sony_cd_cmd(SONY_SPIN_UP_CMD, NULL, 0, res_reg, &res_size);
         
         do_sony_cd_cmd(SONY_AUDIO_PLAYBACK_CMD, params, 7, res_reg, &res_size);
         
         if ((res_size < 2) || ((res_reg[0] & 0xf0) == 0x20))
         {
            printk("Params: %x %x %x %x %x %x %x\n", params[0], params[1],
                   params[2], params[3], params[4], params[5], params[6]);
            printk("Sony CDROM error %s (CDROMPLAYTRKIND)\n", translate_error(res_reg[1]));
            return -EIO;
         }
         
         /* Save the final position for pauses and resumes */
         final_pos_msf[0] = bcd_to_int(params[4]);
         final_pos_msf[1] = bcd_to_int(params[5]);
         final_pos_msf[2] = bcd_to_int(params[6]);
         sony_audio_status = CDROM_AUDIO_PLAY;
         return 0;
      }
     
   case CDROMVOLCTRL:   /* Volume control.  What volume does this change, anyway? */
      {
         struct cdrom_volctrl *volctrl = (struct cdrom_volctrl *) arg;
         
         params[0] = SONY_SD_AUDIO_VOLUME;
         params[1] = volctrl->channel0;
         params[2] = volctrl->channel1;
         return do_sony_cd_cmd_chk("VOLCTRL",SONY_SET_DRIVE_PARAM_CMD, params, 3, res_reg, &res_size);
      }
   case CDROMSUBCHNL:   /* Get subchannel info */
      return sony_get_subchnl_info((struct cdrom_subchnl *)arg);

   default:
      return -EINVAL;
   }
}

static int scd_dev_ioctl(struct cdrom_device_info *cdi,
          unsigned int  cmd,
          unsigned long arg)
{
   int i;

   switch (cmd)
   {
   case CDROMREADAUDIO:      /* Read 2352 byte audio tracks and 2340 byte
				 raw data tracks. */
      {
         struct cdrom_read_audio ra;


         sony_get_toc();
         if (!sony_toc_read)
         {
            return -EIO;
         }
         
         if (ra.nframes == 0)
         {
            return 0;
         }

         i=verify_area(VERIFY_WRITE, ra.buf, CD_FRAMESIZE_RAW * ra.nframes);
         if(i<0)
         	return i;
         copy_from_user(&ra, (char *) arg, sizeof(ra));

         if (ra.addr_format == CDROM_LBA)
         {
            if (   (ra.addr.lba >= sony_toc.lead_out_start_lba)
                || (ra.addr.lba + ra.nframes >= sony_toc.lead_out_start_lba))
            {
               return -EINVAL;
            }
         }
         else if (ra.addr_format == CDROM_MSF)
         {
            if (   (ra.addr.msf.minute >= 75)
                || (ra.addr.msf.second >= 60)
                || (ra.addr.msf.frame >= 75))
            {
               return -EINVAL;
            }

            ra.addr.lba = (  (ra.addr.msf.minute * 4500)
                           + (ra.addr.msf.second * 75)
                           + ra.addr.msf.frame);
            if (   (ra.addr.lba >= sony_toc.lead_out_start_lba)
                || (ra.addr.lba + ra.nframes >= sony_toc.lead_out_start_lba))
            {
               return -EINVAL;
            }

            /* I know, this can go negative on an unsigned.  However,
               the first thing done to the data is to add this value,
               so this should compensate and allow direct msf access. */
            ra.addr.lba -= LOG_START_OFFSET;
         }
         else
         {
            return -EINVAL;
         }

         return(read_audio(&ra));
      }
      return 0;
      break;

   default:
      return -EINVAL;
   }
}

static int scd_spinup(void)
{
   unsigned char res_reg[12];
   unsigned int res_size;
   int num_spin_ups;

   num_spin_ups = 0;

respinup_on_open:
   do_sony_cd_cmd(SONY_SPIN_UP_CMD, NULL, 0, res_reg, &res_size);

   /* The drive sometimes returns error 0.  I don't know why, but ignore
      it.  It seems to mean the drive has already done the operation. */
   if ((res_size < 2) || ((res_reg[0] != 0) && (res_reg[1] != 0)))
   {
      printk("Sony CDROM %s error (scd_open, spin up)\n", translate_error(res_reg[1]));
      return 1;
   }
      
   do_sony_cd_cmd(SONY_READ_TOC_CMD, NULL, 0, res_reg, &res_size);

   /* The drive sometimes returns error 0.  I don't know why, but ignore
      it.  It seems to mean the drive has already done the operation. */
   if ((res_size < 2) || ((res_reg[0] != 0) && (res_reg[1] != 0)))
   {
      /* If the drive is already playing, it's ok.  */
      if ((res_reg[1] == SONY_AUDIO_PLAYING_ERR) || (res_reg[1] == 0))
      {
         return 0;
      }

      /* If the drive says it is not spun up (even though we just did it!)
         then retry the operation at least a few times. */
      if (   (res_reg[1] == SONY_NOT_SPIN_ERR)
          && (num_spin_ups < MAX_CDU31A_RETRIES))
      {
         num_spin_ups++;
         goto respinup_on_open;
      }

      printk("Sony CDROM error %s (scd_open, read toc)\n", translate_error(res_reg[1]));
      do_sony_cd_cmd(SONY_SPIN_DOWN_CMD, NULL, 0, res_reg, &res_size);
      return 1;  
   }
   return 0;
}

/*
 * Open the drive for operations.  Spin the drive up and read the table of
 * contents if these have not already been done.
 */
static int
scd_open(struct cdrom_device_info *cdi, int openmode)
{
   unsigned char res_reg[12];
   unsigned int res_size;
   unsigned char params[2];

   MOD_INC_USE_COUNT;
   if (sony_usage == 0)
   {
      if (scd_spinup() != 0) {
         MOD_DEC_USE_COUNT;
         return -EIO;
      }
      sony_get_toc();
      if (!sony_toc_read)
      {
         do_sony_cd_cmd(SONY_SPIN_DOWN_CMD, NULL, 0, res_reg, &res_size);
         MOD_DEC_USE_COUNT;
         return -EIO;
      }

      /* For XA on the CDU31A only, we have to do special reads.
         The CDU33A handles XA automagically. */
      /* if (   (sony_toc.disk_type == SONY_XA_DISK_TYPE) */
      if (   (sony_toc.disk_type != 0x00)
          && (!is_double_speed))
      {
         params[0] = SONY_SD_DECODE_PARAM;
         params[1] = 0x07;
         do_sony_cd_cmd(SONY_SET_DRIVE_PARAM_CMD,
                        params,
                        2,
                        res_reg,
                        &res_size);
         if ((res_size < 2) || ((res_reg[0] & 0xf0) == 0x20))
         {
            printk("CDU31A: Unable to set XA params: 0x%2.2x\n", res_reg[1]);
         }
         sony_xa_mode = 1;
      }
      /* A non-XA disk.  Set the parms back if necessary. */
      else if (sony_xa_mode)
      {
         params[0] = SONY_SD_DECODE_PARAM;
         params[1] = 0x0f;
         do_sony_cd_cmd(SONY_SET_DRIVE_PARAM_CMD,
                        params,
                        2,
                        res_reg,
                        &res_size);
         if ((res_size < 2) || ((res_reg[0] & 0xf0) == 0x20))
         {
            printk("CDU31A: Unable to reset XA params: 0x%2.2x\n", res_reg[1]);
         }
         sony_xa_mode = 0;
      }

      sony_spun_up = 1;
   }

   sony_usage++;

   return 0;
}


/*
 * Close the drive.  Spin it down if no task is using it.  The spin
 * down will fail if playing audio, so audio play is OK.
 */
static void
scd_release(struct cdrom_device_info *cdi)
{
   if (sony_usage == 1)
   {
      unsigned char res_reg[12];
      unsigned int  res_size;

      do_sony_cd_cmd(SONY_SPIN_DOWN_CMD, NULL, 0, res_reg, &res_size);

      sony_spun_up = 0;
   }
   sony_usage--;
   MOD_DEC_USE_COUNT;
}

static struct cdrom_device_ops scd_dops = {
  scd_open,                   /* open */
  scd_release,                /* release */
  scd_drive_status,           /* drive status */
  scd_media_changed,          /* media changed */
  scd_tray_move,              /* tray move */
  scd_lock_door,              /* lock door */
  scd_select_speed,           /* select speed */
  NULL,                       /* select disc */
  scd_get_last_session,       /* get last session */
  scd_get_mcn,                /* get universal product code */
  scd_reset,                  /* hard reset */
  scd_audio_ioctl,            /* audio ioctl */
  scd_dev_ioctl,              /* device-specific ioctl */
  CDC_OPEN_TRAY | CDC_CLOSE_TRAY | CDC_LOCK | CDC_SELECT_SPEED | CDC_MULTI_SESSION | 
  CDC_MULTI_SESSION | CDC_MCN | CDC_MEDIA_CHANGED | CDC_PLAY_AUDIO |
  CDC_RESET | CDC_IOCTLS | CDC_DRIVE_STATUS, /* capability */
  1,                            /* number of minor devices */
};

static struct cdrom_device_info scd_info = {
  &scd_dops,                  /* device operations */
  NULL,                       /* link */
  NULL,                       /* handle */
  0,			      /* dev */
  0,                          /* mask */
  2,                          /* maximum speed */
  1,                          /* number of discs */
  0,                          /* options, not owned */
  0,                          /* mc_flags, not owned */
  0                           /* use count, not owned */
};

/* The different types of disc loading mechanisms supported */
static const char *load_mech[] __initdata = { "caddy", "tray", "pop-up", "unknown" };

__initfunc(static void
get_drive_configuration(unsigned short base_io,
                        unsigned char res_reg[],
                        unsigned int *res_size))
{
   int retry_count;


   /* Set the base address */
   cdu31a_port = base_io;

   /* Set up all the register locations */
   sony_cd_cmd_reg = cdu31a_port + SONY_CMD_REG_OFFSET;
   sony_cd_param_reg = cdu31a_port + SONY_PARAM_REG_OFFSET;
   sony_cd_write_reg = cdu31a_port + SONY_WRITE_REG_OFFSET;
   sony_cd_control_reg = cdu31a_port + SONY_CONTROL_REG_OFFSET;
   sony_cd_status_reg = cdu31a_port + SONY_STATUS_REG_OFFSET;
   sony_cd_result_reg = cdu31a_port + SONY_RESULT_REG_OFFSET;
   sony_cd_read_reg = cdu31a_port + SONY_READ_REG_OFFSET;
   sony_cd_fifost_reg = cdu31a_port + SONY_FIFOST_REG_OFFSET;

   /*
    * Check to see if anything exists at the status register location.
    * I don't know if this is a good way to check, but it seems to work
    * ok for me.
    */
   if (read_status_register() != 0xff)
   {
      /*
       * Reset the drive and wait for attention from it (to say it's reset).
       * If you don't wait, the next operation will probably fail.
       */
      reset_drive();
      retry_count = jiffies + SONY_RESET_TIMEOUT;
      while ((retry_count > jiffies) && (!is_attention()))
      {
         sony_sleep();
      }

#if 0
      /* If attention is never seen probably not a CDU31a present */
      if (!is_attention())
      {
         res_reg[0] = 0x20;
         return;
      }
#endif

      /*
       * Get the drive configuration.
       */
      do_sony_cd_cmd(SONY_REQ_DRIVE_CONFIG_CMD,
                     NULL,
                     0,
                     (unsigned char *) res_reg,
                     res_size);
      return;
   }

   /* Return an error */
   res_reg[0] = 0x20;
}

#ifndef MODULE
/*
 * Set up base I/O and interrupts, called from main.c.
 */
__initfunc(void
cdu31a_setup(char *strings,
	     int  *ints))
{
   if (ints[0] > 0)
   {
      cdu31a_port = ints[1];
   }
   if (ints[0] > 1)
   {
      cdu31a_irq = ints[2];
   }
   if ((strings != NULL) && (*strings != '\0'))
   {
      if (strcmp(strings, "PAS") == 0)
      {
	 sony_pas_init = 1;
      }
      else
      {
	 printk("CDU31A: Unknown interface type: %s\n", strings);
      }
   }
}
#endif

static int cdu31a_block_size;

/*
 * Initialize the driver.
 */
__initfunc(int
cdu31a_init(void))
{
   struct s_sony_drive_config drive_config;
   unsigned int res_size;
   char msg[255];
   char buf[40];
   int i;
   int drive_found;
   int tmp_irq;


   /*
    * According to Alex Freed (freed@europa.orion.adobe.com), this is
    * required for the Fusion CD-16 package.  If the sound driver is
    * loaded, it should work fine, but just in case...
    *
    * The following turn on the CD-ROM interface for a Fusion CD-16.
    */
   if (sony_pas_init)
   {
      outb(0xbc, 0x9a01);
      outb(0xe2, 0x9a01);
   }

   drive_found = 0;

   /* Setting the base I/O address to 0xffff will disable it. */
   if (cdu31a_port == 0xffff)
   {
   }
   else if (cdu31a_port != 0)
   {
      tmp_irq = cdu31a_irq; /* Need IRQ 0 because we can't sleep here. */
      cdu31a_irq = 0;

      get_drive_configuration(cdu31a_port,
			      drive_config.exec_status,
			      &res_size);
      if ((res_size > 2) && ((drive_config.exec_status[0] & 0xf0) == 0x00))
      {
	 drive_found = 1;
      }

      cdu31a_irq = tmp_irq;
   }
   else
   {
      cdu31a_irq = 0;
      i = 0;
      while (   (cdu31a_addresses[i].base != 0)
	     && (!drive_found))
      {
	 if (check_region(cdu31a_addresses[i].base, 4)) {
	    i++;
	    continue;
	 }
	 get_drive_configuration(cdu31a_addresses[i].base,
				 drive_config.exec_status,
				 &res_size);
	 if ((res_size > 2) && ((drive_config.exec_status[0] & 0xf0) == 0x00))
	 {
	    drive_found = 1;
	    cdu31a_irq = cdu31a_addresses[i].int_num;
	 }
	 else
	 {
	    i++;
	 }
      }
   }

   if (drive_found)
   {
      int deficiency=0;

      request_region(cdu31a_port, 4,"cdu31a");
      
      if (register_blkdev(MAJOR_NR,"cdu31a",&cdrom_fops))
      {
	 printk("Unable to get major %d for CDU-31a\n", MAJOR_NR);
         goto errout2;
      }

      if (SONY_HWC_DOUBLE_SPEED(drive_config))
      {
	 is_double_speed = 1;
      }

      tmp_irq = cdu31a_irq; /* Need IRQ 0 because we can't sleep here. */
      cdu31a_irq = 0;

      set_drive_params(sony_speed);

      cdu31a_irq = tmp_irq;
      
      if (cdu31a_irq > 0)
      {
	 if (request_irq(cdu31a_irq, cdu31a_interrupt, SA_INTERRUPT, "cdu31a", NULL))
	 {
	    printk("Unable to grab IRQ%d for the CDU31A driver\n", cdu31a_irq);
	    cdu31a_irq = 0;
	 }
      }
      
      sprintf(msg, "Sony I/F CDROM : %8.8s %16.16s %8.8s\n",
	     drive_config.vendor_id,
	     drive_config.product_id,
	     drive_config.product_rev_level);
      sprintf(buf, "  Capabilities: %s",
	     load_mech[SONY_HWC_GET_LOAD_MECH(drive_config)]);
      strcat(msg, buf);
      if (SONY_HWC_AUDIO_PLAYBACK(drive_config))
      {
         strcat(msg, ", audio");
      } else
	 deficiency |= CDC_PLAY_AUDIO;
      if (SONY_HWC_EJECT(drive_config))
      {
         strcat(msg, ", eject");
      } else
	 deficiency |= CDC_OPEN_TRAY;
      if (SONY_HWC_LED_SUPPORT(drive_config))
      {
         strcat(msg, ", LED");
      }
      if (SONY_HWC_ELECTRIC_VOLUME(drive_config))
      {
         strcat(msg, ", elec. Vol");
      }
      if (SONY_HWC_ELECTRIC_VOLUME_CTL(drive_config))
      {
         strcat(msg, ", sep. Vol");
      }
      if (is_double_speed)
      {
         strcat(msg, ", double speed");
      } else
	 deficiency |= CDC_SELECT_SPEED;
      if (cdu31a_irq > 0)
      {
	 sprintf(buf, ", irq %d", cdu31a_irq);
         strcat(msg, buf);
      }
      strcat(msg, "\n");

      is_a_cdu31a = strcmp("CD-ROM CDU31A", drive_config.product_id) == 0;

      blk_dev[MAJOR_NR].request_fn = DEVICE_REQUEST;
      read_ahead[MAJOR_NR] = CDU31A_READAHEAD;
      cdu31a_block_size = 1024; /* 1kB default block size */
      /* use 'mount -o block=2048' */
      blksize_size[MAJOR_NR] = &cdu31a_block_size;
      
      init_timer(&cdu31a_abort_timer);
      cdu31a_abort_timer.function = handle_abort_timeout;

      scd_info.dev = MKDEV(MAJOR_NR,0);
      scd_info.mask = deficiency;
      strncpy(scd_info.name, "cdu31a", sizeof(scd_info.name));

      if (register_cdrom(&scd_info))
      {
         goto errout0;
      }
   }


   disk_changed = 1;
   
   if (drive_found)
   {
      return(0);
   }
   else
   {
      goto errout3;
   }
errout0:
   printk("Unable to register CDU-31a with Uniform cdrom driver\n");
   if (unregister_blkdev(MAJOR_NR, "cdu31a"))    
   {
      printk("Can't unregister block device for cdu31a\n");
   }
errout2:
   release_region(cdu31a_port,4);
errout3:
   return -EIO;
}

#ifdef MODULE

int
init_module(void)
{
	return cdu31a_init();
}

void
cleanup_module(void)
{
   if (unregister_cdrom(&scd_info))    
   {
      printk("Can't unregister cdu31a from Uniform cdrom driver\n");
      return;
   }
   if ((unregister_blkdev(MAJOR_NR, "cdu31a") == -EINVAL))    
   {
      printk("Can't unregister cdu31a\n");
      return;
   }

   if (cdu31a_irq > 0)
      free_irq(cdu31a_irq, NULL);

   release_region(cdu31a_port,4);
   printk(KERN_INFO "cdu31a module released.\n");
}   
#endif MODULE
