1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License (the "License").
   6  * You may not use this file except in compliance with the License.
   7  *
   8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9  * or http://www.opensolaris.org/os/licensing.
  10  * See the License for the specific language governing permissions
  11  * and limitations under the License.
  12  *
  13  * When distributing Covered Code, include this CDDL HEADER in each
  14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  15  * If applicable, add the following below this CDDL HEADER, with the
  16  * fields enclosed by brackets "[]" replaced with your own identifying
  17  * information: Portions Copyright [yyyy] [name of copyright owner]
  18  *
  19  * CDDL HEADER END
  20  */
  21 
  22 /*
  23  *  Copyright (c) 1990, 2010, Oracle and/or its affiliates. All rights reserved.
  24  *  Copyright (c) 2011 Bayard G. Bell. All rights reserved.
  25  */
  26 
  27 /*
  28  * SCSI  SCSA-compliant and not-so-DDI-compliant Tape Driver
  29  */
  30 
  31 #if defined(lint) && !defined(DEBUG)
  32 #define DEBUG   1
  33 #endif
  34 
  35 #include <sys/modctl.h>
  36 #include <sys/scsi/scsi.h>
  37 #include <sys/mtio.h>
  38 #include <sys/scsi/targets/stdef.h>
  39 #include <sys/file.h>
  40 #include <sys/kstat.h>
  41 #include <sys/ddidmareq.h>
  42 #include <sys/ddi.h>
  43 #include <sys/sunddi.h>
  44 #include <sys/byteorder.h>
  45 
  46 #define IOSP    KSTAT_IO_PTR(un->un_stats)
  47 /*
  48  * stats maintained only for reads/writes as commands
  49  * like rewind etc skew the wait/busy times
  50  */
  51 #define IS_RW(bp)       ((bp)->b_bcount > 0)
  52 #define ST_DO_KSTATS(bp, kstat_function) \
  53         if ((bp != un->un_sbufp) && un->un_stats && IS_RW(bp)) { \
  54                 kstat_function(IOSP); \
  55         }
  56 
  57 #define ST_DO_ERRSTATS(un, x)  \
  58         if (un->un_errstats) { \
  59                 struct st_errstats *stp; \
  60                 stp = (struct st_errstats *)un->un_errstats->ks_data; \
  61                 stp->x.value.ul++; \
  62         }
  63 
  64 #define FILL_SCSI1_LUN(devp, pkt)                                       \
  65         if ((devp)->sd_inq->inq_ansi == 0x1) {                            \
  66                 int _lun;                                               \
  67                 _lun = ddi_prop_get_int(DDI_DEV_T_ANY, (devp)->sd_dev,       \
  68                     DDI_PROP_DONTPASS, SCSI_ADDR_PROP_LUN, 0);          \
  69                 if (_lun > 0) {                                              \
  70                         ((union scsi_cdb *)(pkt)->pkt_cdbp)->scc_lun =    \
  71                             _lun;                                       \
  72                 }                                                       \
  73         }
  74 
  75 /*
  76  * get an available contig mem header, cp.
  77  * when big_enough is true, we will return NULL, if no big enough
  78  * contig mem is found.
  79  * when big_enough is false, we will try to find cp containing big
  80  * enough contig mem. if not found, we will ruturn the last cp available.
  81  *
  82  * used by st_get_contig_mem()
  83  */
  84 #define ST_GET_CONTIG_MEM_HEAD(un, cp, len, big_enough) {               \
  85         struct contig_mem *tmp_cp = NULL;                               \
  86         for ((cp) = (un)->un_contig_mem;                             \
  87             (cp) != NULL;                                               \
  88             tmp_cp = (cp), (cp) = (cp)->cm_next) {                   \
  89                 if (((cp)->cm_len >= (len)) ||                            \
  90                     (!(big_enough) && ((cp)->cm_next == NULL))) {    \
  91                         if (tmp_cp == NULL) {                           \
  92                                 (un)->un_contig_mem = (cp)->cm_next;      \
  93                         } else {                                        \
  94                                 tmp_cp->cm_next = (cp)->cm_next;  \
  95                         }                                               \
  96                         (cp)->cm_next = NULL;                                \
  97                         (un)->un_contig_mem_available_num--;                 \
  98                         break;                                          \
  99                 }                                                       \
 100         }                                                               \
 101 }
 102 
 103 #define ST_NUM_MEMBERS(array)   (sizeof (array) / sizeof (array[0]))
 104 #define COPY_POS(dest, source) bcopy(source, dest, sizeof (tapepos_t))
 105 #define ISALNUM(byte) \
 106         (((byte) >= 'a' && (byte) <= 'z') || \
 107         ((byte) >= 'A' && (byte) <= 'Z') || \
 108         ((byte) >= '0' && (byte) <= '9'))
 109 
 110 #define ONE_K   1024
 111 
 112 #define MAX_SPACE_CNT(cnt) if (cnt >= 0) { \
 113                 if (cnt > MIN(SP_CNT_MASK, INT32_MAX)) \
 114                         return (EINVAL); \
 115         } else { \
 116                 if (-(cnt) > MIN(SP_CNT_MASK, INT32_MAX)) \
 117                         return (EINVAL); \
 118         } \
 119 
 120 /*
 121  * Global External Data Definitions
 122  */
 123 extern struct scsi_key_strings scsi_cmds[];
 124 extern uchar_t  scsi_cdb_size[];
 125 
 126 /*
 127  * Local Static Data
 128  */
 129 static void *st_state;
 130 static char *const st_label = "st";
 131 static volatile int st_recov_sz = sizeof (recov_info);
 132 static const char mp_misconf[] = {
 133         "St Tape is misconfigured, MPxIO enabled and "
 134         "tape-command-recovery-disable set in st.conf\n"
 135 };
 136 
 137 #ifdef  __x86
 138 /*
 139  * We need to use below DMA attr to alloc physically contiguous
 140  * memory to do I/O in big block size
 141  */
 142 static ddi_dma_attr_t st_contig_mem_dma_attr = {
 143         DMA_ATTR_V0,    /* version number */
 144         0x0,            /* lowest usable address */
 145         0xFFFFFFFFull,  /* high DMA address range */
 146         0xFFFFFFFFull,  /* DMA counter register */
 147         1,              /* DMA address alignment */
 148         1,              /* DMA burstsizes */
 149         1,              /* min effective DMA size */
 150         0xFFFFFFFFull,  /* max DMA xfer size */
 151         0xFFFFFFFFull,  /* segment boundary */
 152         1,              /* s/g list length */
 153         1,              /* granularity of device */
 154         0               /* DMA transfer flags */
 155 };
 156 
 157 static ddi_device_acc_attr_t st_acc_attr = {
 158         DDI_DEVICE_ATTR_V0,
 159         DDI_NEVERSWAP_ACC,
 160         DDI_STRICTORDER_ACC
 161 };
 162 
 163 /* set limitation for the number of contig_mem */
 164 static int st_max_contig_mem_num = ST_MAX_CONTIG_MEM_NUM;
 165 #endif
 166 
 167 /*
 168  * Tunable parameters
 169  *
 170  * DISCLAIMER
 171  * ----------
 172  * These parameters are intended for use only in system testing; if you use
 173  * them in production systems, you do so at your own risk. Altering any
 174  * variable not listed below may cause unpredictable system behavior.
 175  *
 176  * st_check_media_time
 177  *
 178  *   Three second state check
 179  *
 180  * st_allow_large_xfer
 181  *
 182  *   Gated with ST_NO_RECSIZE_LIMIT
 183  *
 184  *   0 - Transfers larger than 64KB will not be allowed
 185  *       regardless of the setting of ST_NO_RECSIZE_LIMIT
 186  *   1 - Transfers larger than 64KB will be allowed
 187  *       if ST_NO_RECSIZE_LIMIT is TRUE for the drive
 188  *
 189  * st_report_soft_errors_on_close
 190  *
 191  *  Gated with ST_SOFT_ERROR_REPORTING
 192  *
 193  *  0 - Errors will not be reported on close regardless
 194  *      of the setting of ST_SOFT_ERROR_REPORTING
 195  *
 196  *  1 - Errors will be reported on close if
 197  *      ST_SOFT_ERROR_REPORTING is TRUE for the drive
 198  */
 199 static int st_selection_retry_count = ST_SEL_RETRY_COUNT;
 200 static int st_retry_count       = ST_RETRY_COUNT;
 201 
 202 static int st_io_time           = ST_IO_TIME;
 203 static int st_long_timeout_x    = ST_LONG_TIMEOUT_X;
 204 
 205 static int st_space_time        = ST_SPACE_TIME;
 206 static int st_long_space_time_x = ST_LONG_SPACE_TIME_X;
 207 
 208 static int st_error_level       = SCSI_ERR_RETRYABLE;
 209 static int st_check_media_time  = 3000000;      /* 3 Second State Check */
 210 
 211 static int st_max_throttle      = ST_MAX_THROTTLE;
 212 
 213 static clock_t st_wait_cmds_complete = ST_WAIT_CMDS_COMPLETE;
 214 
 215 static int st_allow_large_xfer = 1;
 216 static int st_report_soft_errors_on_close = 1;
 217 
 218 /*
 219  * End of tunable parameters list
 220  */
 221 
 222 
 223 
 224 /*
 225  * Asynchronous I/O and persistent errors, refer to PSARC/1995/228
 226  *
 227  * Asynchronous I/O's main offering is that it is a non-blocking way to do
 228  * reads and writes.  The driver will queue up all the requests it gets and
 229  * have them ready to transport to the HBA.  Unfortunately, we cannot always
 230  * just ship the I/O requests to the HBA, as there errors and exceptions
 231  * that may happen when we don't want the HBA to continue.  Therein comes
 232  * the flush-on-errors capability.  If the HBA supports it, then st will
 233  * send in st_max_throttle I/O requests at the same time.
 234  *
 235  * Persistent errors : This was also reasonably simple.  In the interrupt
 236  * routines, if there was an error or exception (FM, LEOT, media error,
 237  * transport error), the persistent error bits are set and shuts everything
 238  * down, but setting the throttle to zero.  If we hit and exception in the
 239  * HBA, and flush-on-errors were set, we wait for all outstanding I/O's to
 240  * come back (with CMD_ABORTED), then flush all bp's in the wait queue with
 241  * the appropriate error, and this will preserve order. Of course, depending
 242  * on the exception we have to show a zero read or write before we show
 243  * errors back to the application.
 244  */
 245 
 246 extern const int st_ndrivetypes;        /* defined in st_conf.c */
 247 extern const struct st_drivetype st_drivetypes[];
 248 extern const char st_conf_version[];
 249 
 250 #ifdef STDEBUG
 251 static int st_soft_error_report_debug = 0;
 252 volatile int st_debug = 0;
 253 static volatile dev_info_t *st_lastdev;
 254 static kmutex_t st_debug_mutex;
 255 #endif
 256 
 257 #define ST_MT02_NAME    "Emulex  MT02 QIC-11/24  "
 258 
 259 static const struct vid_drivetype {
 260         char    *vid;
 261         char    type;
 262 } st_vid_dt[] = {
 263         {"LTO-CVE ",    MT_LTO},
 264         {"QUANTUM ",    MT_ISDLT},
 265         {"SONY    ",    MT_ISAIT},
 266         {"STK     ",    MT_ISSTK9840}
 267 };
 268 
 269 static const struct driver_minor_data {
 270         char    *name;
 271         int     minor;
 272 } st_minor_data[] = {
 273         /*
 274          * The top 4 entries are for the default densities,
 275          * don't alter their position.
 276          */
 277         {"",    0},
 278         {"n",   MT_NOREWIND},
 279         {"b",   MT_BSD},
 280         {"bn",  MT_NOREWIND | MT_BSD},
 281         {"l",   MT_DENSITY1},
 282         {"m",   MT_DENSITY2},
 283         {"h",   MT_DENSITY3},
 284         {"c",   MT_DENSITY4},
 285         {"u",   MT_DENSITY4},
 286         {"ln",  MT_DENSITY1 | MT_NOREWIND},
 287         {"mn",  MT_DENSITY2 | MT_NOREWIND},
 288         {"hn",  MT_DENSITY3 | MT_NOREWIND},
 289         {"cn",  MT_DENSITY4 | MT_NOREWIND},
 290         {"un",  MT_DENSITY4 | MT_NOREWIND},
 291         {"lb",  MT_DENSITY1 | MT_BSD},
 292         {"mb",  MT_DENSITY2 | MT_BSD},
 293         {"hb",  MT_DENSITY3 | MT_BSD},
 294         {"cb",  MT_DENSITY4 | MT_BSD},
 295         {"ub",  MT_DENSITY4 | MT_BSD},
 296         {"lbn", MT_DENSITY1 | MT_NOREWIND | MT_BSD},
 297         {"mbn", MT_DENSITY2 | MT_NOREWIND | MT_BSD},
 298         {"hbn", MT_DENSITY3 | MT_NOREWIND | MT_BSD},
 299         {"cbn", MT_DENSITY4 | MT_NOREWIND | MT_BSD},
 300         {"ubn", MT_DENSITY4 | MT_NOREWIND | MT_BSD}
 301 };
 302 
 303 /* strings used in many debug and warning messages */
 304 static const char wr_str[]  = "write";
 305 static const char rd_str[]  = "read";
 306 static const char wrg_str[] = "writing";
 307 static const char rdg_str[] = "reading";
 308 static const char *space_strs[] = {
 309         "records",
 310         "filemarks",
 311         "sequential filemarks",
 312         "eod",
 313         "setmarks",
 314         "sequential setmarks",
 315         "Reserved",
 316         "Reserved"
 317 };
 318 static const char *load_strs[] = {
 319         "unload",               /* LD_UNLOAD            0 */
 320         "load",                 /* LD_LOAD              1 */
 321         "retension",            /* LD_RETEN             2 */
 322         "load reten",           /* LD_LOAD | LD_RETEN   3 */
 323         "eod",                  /* LD_EOT               4 */
 324         "load EOD",             /* LD_LOAD | LD_EOT     5 */
 325         "reten EOD",            /* LD_RETEN | LD_EOT    6 */
 326         "load reten EOD"        /* LD_LOAD|LD_RETEN|LD_EOT 7 */
 327         "hold",                 /* LD_HOLD              8 */
 328         "load and hold"         /* LD_LOAD | LD_HOLD    9 */
 329 };
 330 
 331 static const char *errstatenames[] = {
 332         "COMMAND_DONE",
 333         "COMMAND_DONE_ERROR",
 334         "COMMAND_DONE_ERROR_RECOVERED",
 335         "QUE_COMMAND",
 336         "QUE_BUSY_COMMAND",
 337         "QUE_SENSE",
 338         "JUST_RETURN",
 339         "COMMAND_DONE_EACCES",
 340         "QUE_LAST_COMMAND",
 341         "COMMAND_TIMEOUT",
 342         "PATH_FAILED",
 343         "DEVICE_RESET",
 344         "DEVICE_TAMPER",
 345         "ATTEMPT_RETRY"
 346 };
 347 
 348 const char *bogusID = "Unknown Media ID";
 349 
 350 /* default density offsets in the table above */
 351 #define DEF_BLANK       0
 352 #define DEF_NOREWIND    1
 353 #define DEF_BSD         2
 354 #define DEF_BSD_NR      3
 355 
 356 /* Sense Key, ASC/ASCQ for which tape ejection is needed */
 357 
 358 static struct tape_failure_code {
 359         uchar_t key;
 360         uchar_t add_code;
 361         uchar_t qual_code;
 362 } st_tape_failure_code[] = {
 363         { KEY_HARDWARE_ERROR, 0x15, 0x01},
 364         { KEY_HARDWARE_ERROR, 0x44, 0x00},
 365         { KEY_HARDWARE_ERROR, 0x53, 0x00},
 366         { KEY_HARDWARE_ERROR, 0x53, 0x01},
 367         { KEY_NOT_READY, 0x53, 0x00},
 368         { 0xff}
 369 };
 370 
 371 /*  clean bit position and mask */
 372 
 373 static struct cln_bit_position {
 374         ushort_t cln_bit_byte;
 375         uchar_t cln_bit_mask;
 376 } st_cln_bit_position[] = {
 377         { 21, 0x08},
 378         { 70, 0xc0},
 379         { 18, 0x81}  /* 80 bit indicates in bit mode, 1 bit clean light is on */
 380 };
 381 
 382 /*
 383  * architecture dependent allocation restrictions. For x86, we'll set
 384  * dma_attr_addr_hi to st_max_phys_addr and dma_attr_sgllen to
 385  * st_sgl_size during _init().
 386  */
 387 #if defined(__sparc)
 388 static ddi_dma_attr_t st_alloc_attr = {
 389         DMA_ATTR_V0,    /* version number */
 390         0x0,            /* lowest usable address */
 391         0xFFFFFFFFull,  /* high DMA address range */
 392         0xFFFFFFFFull,  /* DMA counter register */
 393         1,              /* DMA address alignment */
 394         1,              /* DMA burstsizes */
 395         1,              /* min effective DMA size */
 396         0xFFFFFFFFull,  /* max DMA xfer size */
 397         0xFFFFFFFFull,  /* segment boundary */
 398         1,              /* s/g list length */
 399         512,            /* granularity of device */
 400         0               /* DMA transfer flags */
 401 };
 402 #elif defined(__x86)
 403 static ddi_dma_attr_t st_alloc_attr = {
 404         DMA_ATTR_V0,    /* version number */
 405         0x0,            /* lowest usable address */
 406         0x0,            /* high DMA address range [set in _init()] */
 407         0xFFFFull,      /* DMA counter register */
 408         512,            /* DMA address alignment */
 409         1,              /* DMA burstsizes */
 410         1,              /* min effective DMA size */
 411         0xFFFFFFFFull,  /* max DMA xfer size */
 412         0xFFFFFFFFull,  /* segment boundary */
 413         0,              /* s/g list length */
 414         512,            /* granularity of device [set in _init()] */
 415         0               /* DMA transfer flags */
 416 };
 417 uint64_t st_max_phys_addr = 0xFFFFFFFFull;
 418 int st_sgl_size = 0xF;
 419 
 420 #endif
 421 
 422 /*
 423  * Configuration Data:
 424  *
 425  * Device driver ops vector
 426  */
 427 static int st_aread(dev_t dev, struct aio_req *aio, cred_t *cred_p);
 428 static int st_awrite(dev_t dev, struct aio_req *aio, cred_t *cred_p);
 429 static int st_read(dev_t  dev,  struct   uio   *uio_p,   cred_t *cred_p);
 430 static int st_write(dev_t  dev,  struct  uio   *uio_p,   cred_t *cred_p);
 431 static int st_open(dev_t  *devp,  int  flag,  int  otyp,  cred_t *cred_p);
 432 static int st_close(dev_t  dev,  int  flag,  int  otyp,  cred_t *cred_p);
 433 static int st_strategy(struct buf *bp);
 434 static int st_queued_strategy(buf_t *bp);
 435 static int st_ioctl(dev_t dev, int cmd, intptr_t arg, int  flag,
 436         cred_t *cred_p, int *rval_p);
 437 extern int nulldev(), nodev();
 438 
 439 static struct cb_ops st_cb_ops = {
 440         st_open,                /* open */
 441         st_close,               /* close */
 442         st_queued_strategy,     /* strategy Not Block device but async checks */
 443         nodev,                  /* print */
 444         nodev,                  /* dump */
 445         st_read,                /* read */
 446         st_write,               /* write */
 447         st_ioctl,               /* ioctl */
 448         nodev,                  /* devmap */
 449         nodev,                  /* mmap */
 450         nodev,                  /* segmap */
 451         nochpoll,               /* poll */
 452         ddi_prop_op,            /* cb_prop_op */
 453         0,                      /* streamtab  */
 454         D_64BIT | D_MP | D_NEW | D_HOTPLUG |
 455         D_OPEN_RETURNS_EINTR,   /* cb_flag */
 456         CB_REV,                 /* cb_rev */
 457         st_aread,               /* async I/O read entry point */
 458         st_awrite               /* async I/O write entry point */
 459 
 460 };
 461 
 462 static int st_info(dev_info_t *dip, ddi_info_cmd_t infocmd, void *arg,
 463                 void **result);
 464 static int st_probe(dev_info_t *dev);
 465 static int st_attach(dev_info_t *dev, ddi_attach_cmd_t cmd);
 466 static int st_detach(dev_info_t *dev, ddi_detach_cmd_t cmd);
 467 
 468 static struct dev_ops st_ops = {
 469         DEVO_REV,               /* devo_rev, */
 470         0,                      /* refcnt  */
 471         st_info,                /* info */
 472         nulldev,                /* identify */
 473         st_probe,               /* probe */
 474         st_attach,              /* attach */
 475         st_detach,              /* detach */
 476         nodev,                  /* reset */
 477         &st_cb_ops,         /* driver operations */
 478         (struct bus_ops *)0,    /* bus operations */
 479         nulldev,                /* power */
 480         ddi_quiesce_not_needed, /* devo_quiesce */
 481 };
 482 
 483 /*
 484  * Local Function Declarations
 485  */
 486 static char *st_print_scsi_cmd(char cmd);
 487 static void st_print_cdb(dev_info_t *dip, char *label, uint_t level,
 488     char *title, char *cdb);
 489 static void st_clean_print(dev_info_t *dev, char *label, uint_t level,
 490     char *title, char *data, int len);
 491 static int st_doattach(struct scsi_device *devp, int (*canwait)());
 492 static void st_known_tape_type(struct scsi_tape *un);
 493 static int st_get_conf_from_st_dot_conf(struct scsi_tape *, char *,
 494     struct st_drivetype *);
 495 static int st_get_conf_from_st_conf_dot_c(struct scsi_tape *, char *,
 496     struct st_drivetype *);
 497 static int st_get_conf_from_tape_drive(struct scsi_tape *, char *,
 498     struct st_drivetype *);
 499 static int st_get_densities_from_tape_drive(struct scsi_tape *,
 500     struct st_drivetype *);
 501 static int st_get_timeout_values_from_tape_drive(struct scsi_tape *,
 502     struct st_drivetype *);
 503 static int st_get_timeouts_value(struct scsi_tape *, uchar_t, ushort_t *,
 504     ushort_t);
 505 static int st_get_default_conf(struct scsi_tape *, char *,
 506     struct st_drivetype *);
 507 static int st_rw(dev_t dev, struct uio *uio, int flag);
 508 static int st_arw(dev_t dev, struct aio_req *aio, int flag);
 509 static int st_find_eod(struct scsi_tape *un);
 510 static int st_check_density_or_wfm(dev_t dev, int wfm, int mode, int stepflag);
 511 static int st_uscsi_cmd(struct scsi_tape *un, struct uscsi_cmd *, int flag);
 512 static int st_mtioctop(struct scsi_tape *un, intptr_t arg, int flag);
 513 static int st_mtiocltop(struct scsi_tape *un, intptr_t arg, int flag);
 514 static int st_do_mtioctop(struct scsi_tape *un, struct mtlop *mtop);
 515 static void st_start(struct scsi_tape *un);
 516 static int st_handle_start_busy(struct scsi_tape *un, struct buf *bp,
 517     clock_t timeout_interval, int queued);
 518 static int st_handle_intr_busy(struct scsi_tape *un, struct buf *bp,
 519     clock_t timeout_interval);
 520 static int st_handle_intr_retry_lcmd(struct scsi_tape *un, struct buf *bp);
 521 static void st_done_and_mutex_exit(struct scsi_tape *un, struct buf *bp);
 522 static void st_init(struct scsi_tape *un);
 523 static void st_make_cmd(struct scsi_tape *un, struct buf *bp,
 524     int (*func)(caddr_t));
 525 static void st_make_uscsi_cmd(struct scsi_tape *, struct uscsi_cmd *,
 526     struct buf *bp, int (*func)(caddr_t));
 527 static void st_intr(struct scsi_pkt *pkt);
 528 static void st_set_state(struct scsi_tape *un, buf_t *bp);
 529 static void st_test_append(struct buf *bp);
 530 static int st_runout(caddr_t);
 531 static int st_cmd(struct scsi_tape *un, int com, int64_t count, int wait);
 532 static int st_setup_cmd(struct scsi_tape *un, buf_t *bp, int com,
 533     int64_t count);
 534 static int st_set_compression(struct scsi_tape *un);
 535 static int st_write_fm(dev_t dev, int wfm);
 536 static int st_determine_generic(struct scsi_tape *un);
 537 static int st_determine_density(struct scsi_tape *un, int rw);
 538 static int st_get_density(struct scsi_tape *un);
 539 static int st_set_density(struct scsi_tape *un);
 540 static int st_loadtape(struct scsi_tape *un);
 541 static int st_modesense(struct scsi_tape *un);
 542 static int st_modeselect(struct scsi_tape *un);
 543 static errstate st_handle_incomplete(struct scsi_tape *un, struct buf *bp);
 544 static int st_wrongtapetype(struct scsi_tape *un);
 545 static errstate st_check_error(struct scsi_tape *un, struct scsi_pkt *pkt);
 546 static errstate st_handle_sense(struct scsi_tape *un, struct buf *bp,
 547     tapepos_t *);
 548 static errstate st_handle_autosense(struct scsi_tape *un, struct buf *bp,
 549     tapepos_t *);
 550 static int st_get_error_entry(struct scsi_tape *un, intptr_t arg, int flag);
 551 static void st_update_error_stack(struct scsi_tape *un, struct scsi_pkt *pkt,
 552     struct scsi_arq_status *cmd);
 553 static void st_empty_error_stack(struct scsi_tape *un);
 554 static errstate st_decode_sense(struct scsi_tape *un, struct buf *bp, int amt,
 555     struct scsi_arq_status *, tapepos_t *);
 556 static int st_report_soft_errors(dev_t dev, int flag);
 557 static void st_delayed_cv_broadcast(void *arg);
 558 static int st_check_media(dev_t dev, enum mtio_state state);
 559 static int st_media_watch_cb(caddr_t arg, struct scsi_watch_result *resultp);
 560 static void st_intr_restart(void *arg);
 561 static void st_start_restart(void *arg);
 562 static int st_gen_mode_sense(struct scsi_tape *un, ubufunc_t ubf, int page,
 563     struct seq_mode *page_data, int page_size);
 564 static int st_change_block_size(struct scsi_tape *un, uint32_t nblksz);
 565 static int st_gen_mode_select(struct scsi_tape *un, ubufunc_t ubf,
 566     struct seq_mode *page_data, int page_size);
 567 static int st_read_block_limits(struct scsi_tape *un,
 568     struct read_blklim *read_blk);
 569 static int st_report_density_support(struct scsi_tape *un,
 570     uchar_t *density_data, size_t buflen);
 571 static int st_report_supported_operation(struct scsi_tape *un,
 572     uchar_t *oper_data, uchar_t option_code, ushort_t service_action);
 573 static int st_tape_init(struct scsi_tape *un);
 574 static void st_flush(struct scsi_tape *un);
 575 static void st_set_pe_errno(struct scsi_tape *un);
 576 static void st_hba_unflush(struct scsi_tape *un);
 577 static void st_turn_pe_on(struct scsi_tape *un);
 578 static void st_turn_pe_off(struct scsi_tape *un);
 579 static void st_set_pe_flag(struct scsi_tape *un);
 580 static void st_clear_pe(struct scsi_tape *un);
 581 static void st_wait_for_io(struct scsi_tape *un);
 582 static int st_set_devconfig_page(struct scsi_tape *un, int compression_on);
 583 static int st_set_datacomp_page(struct scsi_tape *un, int compression_on);
 584 static int st_reserve_release(struct scsi_tape *un, int command, ubufunc_t ubf);
 585 static int st_check_cdb_for_need_to_reserve(struct scsi_tape *un, uchar_t *cdb);
 586 static int st_check_cmd_for_need_to_reserve(struct scsi_tape *un, uchar_t cmd,
 587     int count);
 588 static int st_take_ownership(struct scsi_tape *un, ubufunc_t ubf);
 589 static int st_check_asc_ascq(struct scsi_tape *un);
 590 static int st_check_clean_bit(struct scsi_tape *un);
 591 static int st_check_alert_flags(struct scsi_tape *un);
 592 static int st_check_sequential_clean_bit(struct scsi_tape *un);
 593 static int st_check_sense_clean_bit(struct scsi_tape *un);
 594 static int st_clear_unit_attentions(dev_t dev_instance, int max_trys);
 595 static void st_calculate_timeouts(struct scsi_tape *un);
 596 static writablity st_is_drive_worm(struct scsi_tape *un);
 597 static int st_read_attributes(struct scsi_tape *un, uint16_t attribute,
 598     void *buf, size_t size, ubufunc_t bufunc);
 599 static int st_get_special_inquiry(struct scsi_tape *un, uchar_t size,
 600     caddr_t dest, uchar_t page);
 601 static int st_update_block_pos(struct scsi_tape *un, bufunc_t bf,
 602     int post_space);
 603 static int st_interpret_read_pos(struct scsi_tape const *un, tapepos_t *dest,
 604     read_p_types type, size_t data_sz, const caddr_t responce, int post_space);
 605 static int st_get_read_pos(struct scsi_tape *un, buf_t *bp);
 606 static int st_logical_block_locate(struct scsi_tape *un, ubufunc_t ubf,
 607     tapepos_t *pos, uint64_t lblk, uchar_t partition);
 608 static int st_mtfsf_ioctl(struct scsi_tape *un, int64_t files);
 609 static int st_mtfsr_ioctl(struct scsi_tape *un, int64_t count);
 610 static int st_mtbsf_ioctl(struct scsi_tape *un, int64_t files);
 611 static int st_mtnbsf_ioctl(struct scsi_tape *un, int64_t count);
 612 static int st_mtbsr_ioctl(struct scsi_tape *un, int64_t num);
 613 static int st_mtfsfm_ioctl(struct scsi_tape *un, int64_t cnt);
 614 static int st_mtbsfm_ioctl(struct scsi_tape *un, int64_t cnt);
 615 static int st_backward_space_files(struct scsi_tape *un, int64_t count,
 616     int infront);
 617 static int st_forward_space_files(struct scsi_tape *un, int64_t files);
 618 static int st_scenic_route_to_begining_of_file(struct scsi_tape *un,
 619     int32_t fileno);
 620 static int st_space_to_begining_of_file(struct scsi_tape *un);
 621 static int st_space_records(struct scsi_tape *un, int64_t records);
 622 static int st_get_media_identification(struct scsi_tape *un, ubufunc_t bufunc);
 623 static errstate st_command_recovery(struct scsi_tape *un, struct scsi_pkt *pkt,
 624     errstate onentry);
 625 static void st_recover(void *arg);
 626 static void st_recov_cb(struct scsi_pkt *pkt);
 627 static int st_rcmd(struct scsi_tape *un, int com, int64_t count, int wait);
 628 static int st_uscsi_rcmd(struct scsi_tape *un, struct uscsi_cmd *ucmd,
 629     int flag);
 630 static void st_add_recovery_info_to_pkt(struct scsi_tape *un, buf_t *bp,
 631     struct scsi_pkt *cmd);
 632 static int st_check_mode_for_change(struct scsi_tape *un, ubufunc_t ubf);
 633 static int st_test_path_to_device(struct scsi_tape *un);
 634 static int st_recovery_read_pos(struct scsi_tape *un, read_p_types type,
 635     read_pos_data_t *raw);
 636 static int st_recovery_get_position(struct scsi_tape *un, tapepos_t *read,
 637     read_pos_data_t *raw);
 638 static int st_compare_expected_position(struct scsi_tape *un, st_err_info *ei,
 639     cmd_attribute const * cmd_att, tapepos_t *read);
 640 static errstate st_recover_reissue_pkt(struct scsi_tape *us,
 641     struct scsi_pkt *pkt);
 642 static int st_transport(struct scsi_tape *un, struct scsi_pkt *pkt);
 643 static buf_t *st_remove_from_queue(buf_t **head, buf_t **tail, buf_t *bp);
 644 static void st_add_to_queue(buf_t **head, buf_t **tail, buf_t *end, buf_t *bp);
 645 static int st_reset(struct scsi_tape *un, int reset_type);
 646 static void st_reset_notification(caddr_t arg);
 647 static const cmd_attribute *st_lookup_cmd_attribute(unsigned char cmd);
 648 
 649 static int st_set_target_TLR_mode(struct scsi_tape *un, ubufunc_t ubf);
 650 static int st_make_sure_mode_data_is_correct(struct scsi_tape *un,
 651     ubufunc_t ubf);
 652 
 653 #ifdef  __x86
 654 /*
 655  * routines for I/O in big block size
 656  */
 657 static void st_release_contig_mem(struct scsi_tape *un, struct contig_mem *cp);
 658 static struct contig_mem *st_get_contig_mem(struct scsi_tape *un, size_t len,
 659     int alloc_flags);
 660 static int st_bigblk_xfer_done(struct buf *bp);
 661 static struct buf *st_get_bigblk_bp(struct buf *bp);
 662 #endif
 663 static void st_print_position(dev_info_t *dev, char *label, uint_t level,
 664     const char *comment, tapepos_t *pos);
 665 
 666 /*
 667  * error statistics create/update functions
 668  */
 669 static int st_create_errstats(struct scsi_tape *, int);
 670 static int st_validate_tapemarks(struct scsi_tape *un, ubufunc_t ubf,
 671     tapepos_t *pos);
 672 
 673 #ifdef STDEBUG
 674 static void st_debug_cmds(struct scsi_tape *un, int com, int count, int wait);
 675 #endif /* STDEBUG */
 676 static char *st_dev_name(dev_t dev);
 677 
 678 #if !defined(lint)
 679 _NOTE(SCHEME_PROTECTS_DATA("unique per pkt",
 680     scsi_pkt buf uio scsi_cdb uscsi_cmd))
 681 _NOTE(SCHEME_PROTECTS_DATA("unique per pkt", scsi_extended_sense scsi_status))
 682 _NOTE(SCHEME_PROTECTS_DATA("unique per pkt", recov_info))
 683 _NOTE(SCHEME_PROTECTS_DATA("stable data", scsi_device))
 684 _NOTE(DATA_READABLE_WITHOUT_LOCK(st_drivetype scsi_address))
 685 #endif
 686 
 687 /*
 688  * autoconfiguration routines.
 689  */
 690 
 691 static struct modldrv modldrv = {
 692         &mod_driverops,             /* Type of module. This one is a driver */
 693         "SCSI tape Driver",     /* Name of the module. */
 694         &st_ops                     /* driver ops */
 695 };
 696 
 697 static struct modlinkage modlinkage = {
 698         MODREV_1, { &modldrv, NULL }
 699 };
 700 
 701 /*
 702  * Notes on Post Reset Behavior in the tape driver:
 703  *
 704  * When the tape drive is opened, the driver  attempts  to make sure that
 705  * the tape head is positioned exactly where it was left when it was last
 706  * closed  provided  the  medium  is not  changed.  If the tape  drive is
 707  * opened in O_NDELAY mode, the repositioning  (if necessary for any loss
 708  * of position due to reset) will happen when the first tape operation or
 709  * I/O occurs.  The repositioning (if required) may not be possible under
 710  * certain situations such as when the device firmware not able to report
 711  * the medium  change in the REQUEST  SENSE data  because of a reset or a
 712  * misbehaving  bus  not  allowing  the  reposition  to  happen.  In such
 713  * extraordinary  situations, where the driver fails to position the head
 714  * at its  original  position,  it will fail the open the first  time, to
 715  * save the applications from overwriting the data.  All further attempts
 716  * to open the tape device will result in the driver  attempting  to load
 717  * the  tape at BOT  (beginning  of  tape).  Also a  warning  message  to
 718  * indicate  that further  attempts to open the tape device may result in
 719  * the tape being  loaded at BOT will be printed on the  console.  If the
 720  * tape  device is opened  in  O_NDELAY  mode,  failure  to  restore  the
 721  * original tape head  position,  will result in the failure of the first
 722  * tape  operation  or I/O,  Further,  the  driver  will  invalidate  its
 723  * internal tape position  which will  necessitate  the  applications  to
 724  * validate the position by using either a tape  positioning  ioctl (such
 725  * as MTREW) or closing and reopening the tape device.
 726  *
 727  */
 728 
 729 int
 730 _init(void)
 731 {
 732         int e;
 733 
 734         if (((e = ddi_soft_state_init(&st_state,
 735             sizeof (struct scsi_tape), ST_MAXUNIT)) != 0)) {
 736                 return (e);
 737         }
 738 
 739         if ((e = mod_install(&modlinkage)) != 0) {
 740                 ddi_soft_state_fini(&st_state);
 741         } else {
 742 #ifdef STDEBUG
 743                 mutex_init(&st_debug_mutex, NULL, MUTEX_DRIVER, NULL);
 744 #endif
 745 
 746 #if defined(__x86)
 747                 /* set the max physical address for iob allocs on x86 */
 748                 st_alloc_attr.dma_attr_addr_hi = st_max_phys_addr;
 749 
 750                 /*
 751                  * set the sgllen for iob allocs on x86. If this is set less
 752                  * than the number of pages the buffer will take
 753                  * (taking into account alignment), it would force the
 754                  * allocator to try and allocate contiguous pages.
 755                  */
 756                 st_alloc_attr.dma_attr_sgllen = st_sgl_size;
 757 #endif
 758         }
 759 
 760         return (e);
 761 }
 762 
 763 int
 764 _fini(void)
 765 {
 766         int e;
 767 
 768         if ((e = mod_remove(&modlinkage)) != 0) {
 769                 return (e);
 770         }
 771 
 772 #ifdef STDEBUG
 773         mutex_destroy(&st_debug_mutex);
 774 #endif
 775 
 776         ddi_soft_state_fini(&st_state);
 777 
 778         return (e);
 779 }
 780 
 781 int
 782 _info(struct modinfo *modinfop)
 783 {
 784         return (mod_info(&modlinkage, modinfop));
 785 }
 786 
 787 
 788 static int
 789 st_probe(dev_info_t *devi)
 790 {
 791         int instance;
 792         struct scsi_device *devp;
 793         int rval;
 794 
 795 #if !defined(__sparc)
 796         char    *tape_prop;
 797         int     tape_prop_len;
 798 #endif
 799 
 800         ST_ENTR(devi, st_probe);
 801 
 802         /* If self identifying device */
 803         if (ddi_dev_is_sid(devi) == DDI_SUCCESS) {
 804                 return (DDI_PROBE_DONTCARE);
 805         }
 806 
 807 #if !defined(__sparc)
 808         /*
 809          * Since some x86 HBAs have devnodes that look like SCSI as
 810          * far as we can tell but aren't really SCSI (DADK, like mlx)
 811          * we check for the presence of the "tape" property.
 812          */
 813         if (ddi_prop_op(DDI_DEV_T_NONE, devi, PROP_LEN_AND_VAL_ALLOC,
 814             DDI_PROP_CANSLEEP, "tape",
 815             (caddr_t)&tape_prop, &tape_prop_len) != DDI_PROP_SUCCESS) {
 816                 return (DDI_PROBE_FAILURE);
 817         }
 818         if (strncmp(tape_prop, "sctp", tape_prop_len) != 0) {
 819                 kmem_free(tape_prop, tape_prop_len);
 820                 return (DDI_PROBE_FAILURE);
 821         }
 822         kmem_free(tape_prop, tape_prop_len);
 823 #endif
 824 
 825         devp = ddi_get_driver_private(devi);
 826         instance = ddi_get_instance(devi);
 827 
 828         if (ddi_get_soft_state(st_state, instance) != NULL) {
 829                 return (DDI_PROBE_PARTIAL);
 830         }
 831 
 832 
 833         /*
 834          * Turn around and call probe routine to see whether
 835          * we actually have a tape at this SCSI nexus.
 836          */
 837         if (scsi_probe(devp, NULL_FUNC) == SCSIPROBE_EXISTS) {
 838 
 839                 /*
 840                  * In checking the whole inq_dtype byte we are looking at both
 841                  * the Peripheral Qualifier and the Peripheral Device Type.
 842                  * For this driver we are only interested in sequential devices
 843                  * that are connected or capable if connecting to this logical
 844                  * unit.
 845                  */
 846                 if (devp->sd_inq->inq_dtype ==
 847                     (DTYPE_SEQUENTIAL | DPQ_POSSIBLE)) {
 848                         ST_DEBUG6(devi, st_label, SCSI_DEBUG,
 849                             "probe exists\n");
 850                         rval = DDI_PROBE_SUCCESS;
 851                 } else {
 852                         rval = DDI_PROBE_FAILURE;
 853                 }
 854         } else {
 855                 ST_DEBUG6(devi, st_label, SCSI_DEBUG,
 856                     "probe failure: nothing there\n");
 857                 rval = DDI_PROBE_FAILURE;
 858         }
 859         scsi_unprobe(devp);
 860         return (rval);
 861 }
 862 
 863 static int
 864 st_attach(dev_info_t *devi, ddi_attach_cmd_t cmd)
 865 {
 866         int     instance;
 867         int     wide;
 868         int     dev_instance;
 869         int     ret_status;
 870         struct  scsi_device *devp;
 871         int     node_ix;
 872         struct  scsi_tape *un;
 873 
 874         ST_ENTR(devi, st_attach);
 875 
 876         devp = ddi_get_driver_private(devi);
 877         instance = ddi_get_instance(devi);
 878 
 879         switch (cmd) {
 880                 case DDI_ATTACH:
 881                         if (ddi_getprop(DDI_DEV_T_ANY, devi, DDI_PROP_DONTPASS,
 882                             "tape-command-recovery-disable", 0) != 0) {
 883                                 st_recov_sz = sizeof (pkt_info);
 884                         }
 885                         if (st_doattach(devp, SLEEP_FUNC) == DDI_FAILURE) {
 886                                 return (DDI_FAILURE);
 887                         }
 888                         break;
 889                 case DDI_RESUME:
 890                         /*
 891                          * Suspend/Resume
 892                          *
 893                          * When the driver suspended, there might be
 894                          * outstanding cmds and therefore we need to
 895                          * reset the suspended flag and resume the scsi
 896                          * watch thread and restart commands and timeouts
 897                          */
 898 
 899                         if (!(un = ddi_get_soft_state(st_state, instance))) {
 900                                 return (DDI_FAILURE);
 901                         }
 902                         dev_instance = ((un->un_dev == 0) ? MTMINOR(instance) :
 903                             un->un_dev);
 904 
 905                         mutex_enter(ST_MUTEX);
 906 
 907                         un->un_throttle = un->un_max_throttle;
 908                         un->un_tids_at_suspend = 0;
 909                         un->un_pwr_mgmt = ST_PWR_NORMAL;
 910 
 911                         if (un->un_swr_token) {
 912                                 scsi_watch_resume(un->un_swr_token);
 913                         }
 914 
 915                         /*
 916                          * Restart timeouts
 917                          */
 918                         if ((un->un_tids_at_suspend & ST_DELAY_TID) != 0) {
 919                                 mutex_exit(ST_MUTEX);
 920                                 un->un_delay_tid = timeout(
 921                                     st_delayed_cv_broadcast, un,
 922                                     drv_usectohz((clock_t)
 923                                     MEDIA_ACCESS_DELAY));
 924                                 mutex_enter(ST_MUTEX);
 925                         }
 926 
 927                         if (un->un_tids_at_suspend & ST_HIB_TID) {
 928                                 mutex_exit(ST_MUTEX);
 929                                 un->un_hib_tid = timeout(st_intr_restart, un,
 930                                     ST_STATUS_BUSY_TIMEOUT);
 931                                 mutex_enter(ST_MUTEX);
 932                         }
 933 
 934                         ret_status = st_clear_unit_attentions(dev_instance, 5);
 935 
 936                         /*
 937                          * now check if we need to restore the tape position
 938                          */
 939                         if ((un->un_suspend_pos.pmode != invalid) &&
 940                             ((un->un_suspend_pos.fileno > 0) ||
 941                             (un->un_suspend_pos.blkno > 0)) ||
 942                             (un->un_suspend_pos.lgclblkno > 0)) {
 943                                 if (ret_status != 0) {
 944                                         /*
 945                                          * tape didn't get good TUR
 946                                          * just print out error messages
 947                                          */
 948                                         scsi_log(ST_DEVINFO, st_label, CE_WARN,
 949                                             "st_attach-RESUME: tape failure "
 950                                             " tape position will be lost");
 951                                 } else {
 952                                         /* this prints errors */
 953                                         (void) st_validate_tapemarks(un,
 954                                             st_uscsi_cmd, &un->un_suspend_pos);
 955                                 }
 956                                 /*
 957                                  * there are no retries, if there is an error
 958                                  * we don't know if the tape has changed
 959                                  */
 960                                 un->un_suspend_pos.pmode = invalid;
 961                         }
 962 
 963                         /* now we are ready to start up any queued I/Os */
 964                         if (un->un_ncmds || un->un_quef) {
 965                                 st_start(un);
 966                         }
 967 
 968                         cv_broadcast(&un->un_suspend_cv);
 969                         mutex_exit(ST_MUTEX);
 970                         return (DDI_SUCCESS);
 971 
 972                 default:
 973                         return (DDI_FAILURE);
 974         }
 975 
 976         un = ddi_get_soft_state(st_state, instance);
 977 
 978         ST_DEBUG(devi, st_label, SCSI_DEBUG,
 979             "st_attach: instance=%x\n", instance);
 980 
 981         /*
 982          * Add a zero-length attribute to tell the world we support
 983          * kernel ioctls (for layered drivers)
 984          */
 985         (void) ddi_prop_create(DDI_DEV_T_NONE, devi, DDI_PROP_CANSLEEP,
 986             DDI_KERNEL_IOCTL, NULL, 0);
 987 
 988         ddi_report_dev((dev_info_t *)devi);
 989 
 990         /*
 991          * If it's a SCSI-2 tape drive which supports wide,
 992          * tell the host adapter to use wide.
 993          */
 994         wide = ((devp->sd_inq->inq_rdf == RDF_SCSI2) &&
 995             (devp->sd_inq->inq_wbus16 || devp->sd_inq->inq_wbus32)) ?  1 : 0;
 996 
 997         if (scsi_ifsetcap(ROUTE, "wide-xfer", wide, 1) == 1) {
 998                 ST_DEBUG(devi, st_label, SCSI_DEBUG,
 999                     "Wide Transfer %s\n", wide ? "enabled" : "disabled");
1000         }
1001 
1002         /*
1003          * enable autorequest sense; keep the rq packet around in case
1004          * the autorequest sense fails because of a busy condition
1005          * do a getcap first in case the capability is not variable
1006          */
1007         if (scsi_ifgetcap(ROUTE, "auto-rqsense", 1) == 1) {
1008                 un->un_arq_enabled = 1;
1009         } else {
1010                 un->un_arq_enabled =
1011                     ((scsi_ifsetcap(ROUTE, "auto-rqsense", 1, 1) == 1) ? 1 : 0);
1012         }
1013 
1014         ST_DEBUG(devi, st_label, SCSI_DEBUG, "auto request sense %s\n",
1015             (un->un_arq_enabled ? "enabled" : "disabled"));
1016 
1017         un->un_untagged_qing =
1018             (scsi_ifgetcap(ROUTE, "untagged-qing", 0) == 1);
1019 
1020         /*
1021          * XXX - This is just for 2.6.  to tell users that write buffering
1022          *      has gone away.
1023          */
1024         if (un->un_arq_enabled && un->un_untagged_qing) {
1025                 if (ddi_getprop(DDI_DEV_T_ANY, devi, DDI_PROP_DONTPASS,
1026                     "tape-driver-buffering", 0) != 0) {
1027                         scsi_log(ST_DEVINFO, st_label, CE_NOTE,
1028                             "Write Data Buffering has been depricated. Your "
1029                             "applications should continue to work normally.\n"
1030                             " But, they should  ported to use Asynchronous "
1031                             " I/O\n"
1032                             " For more information, read about "
1033                             " tape-driver-buffering "
1034                             "property in the st(7d) man page\n");
1035                 }
1036         }
1037 
1038         un->un_max_throttle = un->un_throttle = un->un_last_throttle = 1;
1039         un->un_flush_on_errors = 0;
1040         un->un_mkr_pkt = (struct scsi_pkt *)NULL;
1041 
1042         ST_DEBUG(devi, st_label, SCSI_DEBUG,
1043             "throttle=%x, max_throttle = %x\n",
1044             un->un_throttle, un->un_max_throttle);
1045 
1046         /* initialize persistent errors to nil */
1047         un->un_persistence = 0;
1048         un->un_persist_errors = 0;
1049 
1050         /*
1051          * Get dma-max from HBA driver. If it is not defined, use 64k
1052          */
1053         un->un_maxdma        = scsi_ifgetcap(&devp->sd_address, "dma-max", 1);
1054         if (un->un_maxdma == -1) {
1055                 ST_DEBUG(devi, st_label, SCSI_DEBUG,
1056                     "Received a value that looked like -1. Using 64k maxdma");
1057                 un->un_maxdma = (64 * ONE_K);
1058         }
1059 
1060 #ifdef  __x86
1061         /*
1062          * for x86, the device may be able to DMA more than the system will
1063          * allow under some circumstances. We need account for both the HBA's
1064          * and system's contraints.
1065          *
1066          * Get the maximum DMA under worse case conditions. e.g. looking at the
1067          * device constraints, the max copy buffer size, and the worse case
1068          * fragmentation. NOTE: this may differ from dma-max since dma-max
1069          * doesn't take the worse case framentation into account.
1070          *
1071          * e.g. a device may be able to DMA 16MBytes, but can only DMA 1MByte
1072          * if none of the pages are contiguous. Keeping track of both of these
1073          * values allows us to support larger tape block sizes on some devices.
1074          */
1075         un->un_maxdma_arch = scsi_ifgetcap(&devp->sd_address, "dma-max-arch",
1076             1);
1077 
1078         /*
1079          * If the dma-max-arch capability is not implemented, or the value
1080          * comes back higher than what was reported in dma-max, use dma-max.
1081          */
1082         if ((un->un_maxdma_arch == -1) ||
1083             ((uint_t)un->un_maxdma < (uint_t)un->un_maxdma_arch)) {
1084                 un->un_maxdma_arch = un->un_maxdma;
1085         }
1086 #endif
1087 
1088         /*
1089          * Get the max allowable cdb size
1090          */
1091         un->un_max_cdb_sz =
1092             scsi_ifgetcap(&devp->sd_address, "max-cdb-length", 1);
1093         if (un->un_max_cdb_sz < CDB_GROUP0) {
1094                 ST_DEBUG(devi, st_label, SCSI_DEBUG,
1095                     "HBA reported max-cdb-length as %d\n", un->un_max_cdb_sz);
1096                 un->un_max_cdb_sz = CDB_GROUP4; /* optimistic default */
1097         }
1098 
1099         if (strcmp(ddi_driver_name(ddi_get_parent(ST_DEVINFO)), "scsi_vhci")) {
1100                 un->un_multipath = 0;
1101         } else {
1102                 un->un_multipath = 1;
1103         }
1104 
1105         un->un_maxbsize = MAXBSIZE_UNKNOWN;
1106 
1107         un->un_mediastate = MTIO_NONE;
1108         un->un_HeadClean  = TAPE_ALERT_SUPPORT_UNKNOWN;
1109 
1110         /*
1111          * initialize kstats
1112          */
1113         un->un_stats = kstat_create("st", instance, NULL, "tape",
1114             KSTAT_TYPE_IO, 1, KSTAT_FLAG_PERSISTENT);
1115         if (un->un_stats) {
1116                 un->un_stats->ks_lock = ST_MUTEX;
1117                 kstat_install(un->un_stats);
1118         }
1119         (void) st_create_errstats(un, instance);
1120 
1121         /*
1122          * find the drive type for this target
1123          */
1124         mutex_enter(ST_MUTEX);
1125         un->un_dev = MTMINOR(instance);
1126         st_known_tape_type(un);
1127         un->un_dev = 0;
1128         mutex_exit(ST_MUTEX);
1129 
1130         for (node_ix = 0; node_ix < ST_NUM_MEMBERS(st_minor_data); node_ix++) {
1131                 int minor;
1132                 char *name;
1133 
1134                 name  = st_minor_data[node_ix].name;
1135                 minor = st_minor_data[node_ix].minor;
1136 
1137                 /*
1138                  * For default devices set the density to the
1139                  * preferred default density for this device.
1140                  */
1141                 if (node_ix <= DEF_BSD_NR) {
1142                         minor |= un->un_dp->default_density;
1143                 }
1144                 minor |= MTMINOR(instance);
1145 
1146                 if (ddi_create_minor_node(devi, name, S_IFCHR, minor,
1147                     DDI_NT_TAPE, NULL) == DDI_SUCCESS) {
1148                         continue;
1149                 }
1150 
1151                 ddi_remove_minor_node(devi, NULL);
1152 
1153                 (void) scsi_reset_notify(ROUTE, SCSI_RESET_CANCEL,
1154                     st_reset_notification, (caddr_t)un);
1155                 cv_destroy(&un->un_clscv);
1156                 cv_destroy(&un->un_sbuf_cv);
1157                 cv_destroy(&un->un_queue_cv);
1158                 cv_destroy(&un->un_state_cv);
1159 #ifdef  __x86
1160                 cv_destroy(&un->un_contig_mem_cv);
1161 #endif
1162                 cv_destroy(&un->un_suspend_cv);
1163                 cv_destroy(&un->un_tape_busy_cv);
1164                 cv_destroy(&un->un_recov_buf_cv);
1165                 if (un->un_recov_taskq) {
1166                         ddi_taskq_destroy(un->un_recov_taskq);
1167                 }
1168                 if (un->un_sbufp) {
1169                         freerbuf(un->un_sbufp);
1170                 }
1171                 if (un->un_recov_buf) {
1172                         freerbuf(un->un_recov_buf);
1173                 }
1174                 if (un->un_uscsi_rqs_buf) {
1175                         kmem_free(un->un_uscsi_rqs_buf, SENSE_LENGTH);
1176                 }
1177                 if (un->un_mspl) {
1178                         i_ddi_mem_free((caddr_t)un->un_mspl, NULL);
1179                 }
1180                 if (un->un_dp_size) {
1181                         kmem_free(un->un_dp, un->un_dp_size);
1182                 }
1183                 if (un->un_state) {
1184                         kstat_delete(un->un_stats);
1185                 }
1186                 if (un->un_errstats) {
1187                         kstat_delete(un->un_errstats);
1188                 }
1189 
1190                 scsi_destroy_pkt(un->un_rqs);
1191                 scsi_free_consistent_buf(un->un_rqs_bp);
1192                 ddi_soft_state_free(st_state, instance);
1193                 devp->sd_private = NULL;
1194                 devp->sd_sense = NULL;
1195 
1196                 ddi_prop_remove_all(devi);
1197                 return (DDI_FAILURE);
1198         }
1199 
1200         return (DDI_SUCCESS);
1201 }
1202 
1203 /*
1204  * st_detach:
1205  *
1206  * we allow a detach if and only if:
1207  *      - no tape is currently inserted
1208  *      - tape position is at BOT or unknown
1209  *              (if it is not at BOT then a no rewind
1210  *              device was opened and we have to preserve state)
1211  *      - it must be in a closed state : no timeouts or scsi_watch requests
1212  *              will exist if it is closed, so we don't need to check for
1213  *              them here.
1214  */
1215 /*ARGSUSED*/
1216 static int
1217 st_detach(dev_info_t *devi, ddi_detach_cmd_t cmd)
1218 {
1219         int instance;
1220         int result;
1221         struct scsi_device *devp;
1222         struct scsi_tape *un;
1223         clock_t wait_cmds_complete;
1224 
1225         ST_ENTR(devi, st_detach);
1226 
1227         instance = ddi_get_instance(devi);
1228 
1229         if (!(un = ddi_get_soft_state(st_state, instance))) {
1230                 return (DDI_FAILURE);
1231         }
1232 
1233         mutex_enter(ST_MUTEX);
1234 
1235         /*
1236          * Clear error entry stack
1237          */
1238         st_empty_error_stack(un);
1239 
1240         mutex_exit(ST_MUTEX);
1241 
1242         switch (cmd) {
1243 
1244         case DDI_DETACH:
1245                 /*
1246                  * Undo what we did in st_attach & st_doattach,
1247                  * freeing resources and removing things we installed.
1248                  * The system framework guarantees we are not active
1249                  * with this devinfo node in any other entry points at
1250                  * this time.
1251                  */
1252 
1253                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
1254                     "st_detach: instance=%x, un=%p\n", instance,
1255                     (void *)un);
1256 
1257                 if (((un->un_dp->options & ST_UNLOADABLE) == 0) ||
1258                     ((un->un_rsvd_status & ST_APPLICATION_RESERVATIONS) != 0) ||
1259                     (un->un_ncmds != 0) || (un->un_quef != NULL) ||
1260                     (un->un_state != ST_STATE_CLOSED)) {
1261                         /*
1262                          * we cannot unload some targets because the
1263                          * inquiry returns junk unless immediately
1264                          * after a reset
1265                          */
1266                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
1267                             "cannot unload instance %x\n", instance);
1268                         un->un_unit_attention_flags |= 4;
1269                         return (DDI_FAILURE);
1270                 }
1271 
1272                 /*
1273                  * if the tape has been removed then we may unload;
1274                  * do a test unit ready and if it returns NOT READY
1275                  * then we assume that it is safe to unload.
1276                  * as a side effect, pmode may be set to invalid if the
1277                  * the test unit ready fails;
1278                  * also un_state may be set to non-closed, so reset it
1279                  */
1280                 if ((un->un_dev) &&          /* Been opened since attach */
1281                     ((un->un_pos.pmode == legacy) &&
1282                     (un->un_pos.fileno > 0) ||    /* Known position not rewound */
1283                     (un->un_pos.blkno != 0)) ||      /* Or within first file */
1284                     ((un->un_pos.pmode == logical) &&
1285                     (un->un_pos.lgclblkno > 0))) {
1286                         mutex_enter(ST_MUTEX);
1287                         /*
1288                          * Send Test Unit Ready in the hopes that if
1289                          * the drive is not in the state we think it is.
1290                          * And the state will be changed so it can be detached.
1291                          * If the command fails to reach the device and
1292                          * the drive was not rewound or unloaded we want
1293                          * to fail the detach till a user command fails
1294                          * where after the detach will succead.
1295                          */
1296                         result = st_cmd(un, SCMD_TEST_UNIT_READY, 0, SYNC_CMD);
1297                         /*
1298                          * After TUR un_state may be set to non-closed,
1299                          * so reset it back.
1300                          */
1301                         un->un_state = ST_STATE_CLOSED;
1302                         mutex_exit(ST_MUTEX);
1303                 }
1304                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
1305                     "un_status=%x, fileno=%x, blkno=%x\n",
1306                     un->un_status, un->un_pos.fileno, un->un_pos.blkno);
1307 
1308                 /*
1309                  * check again:
1310                  * if we are not at BOT then it is not safe to unload
1311                  */
1312                 if ((un->un_dev) &&          /* Been opened since attach */
1313                     (result != EACCES) &&       /* drive is use by somebody */
1314                     ((((un->un_pos.pmode == legacy) &&
1315                     (un->un_pos.fileno > 0) ||    /* Known position not rewound */
1316                     (un->un_pos.blkno != 0)) ||      /* Or within first file */
1317                     ((un->un_pos.pmode == logical) &&
1318                     (un->un_pos.lgclblkno > 0))) &&
1319                     ((un->un_state == ST_STATE_CLOSED) &&
1320                     (un->un_laststate == ST_STATE_CLOSING)))) {
1321 
1322                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
1323                             "cannot detach: pmode=%d fileno=0x%x, blkno=0x%x"
1324                             " lgclblkno=0x%"PRIx64"\n", un->un_pos.pmode,
1325                             un->un_pos.fileno, un->un_pos.blkno,
1326                             un->un_pos.lgclblkno);
1327                         un->un_unit_attention_flags |= 4;
1328                         return (DDI_FAILURE);
1329                 }
1330 
1331                 /*
1332                  * Just To make sure that we have released the
1333                  * tape unit .
1334                  */
1335                 if (un->un_dev && (un->un_rsvd_status & ST_RESERVE) &&
1336                     !DEVI_IS_DEVICE_REMOVED(devi)) {
1337                         mutex_enter(ST_MUTEX);
1338                         (void) st_reserve_release(un, ST_RELEASE, st_uscsi_cmd);
1339                         mutex_exit(ST_MUTEX);
1340                 }
1341 
1342                 /*
1343                  * now remove other data structures allocated in st_doattach()
1344                  */
1345                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
1346                     "destroying/freeing\n");
1347 
1348                 (void) scsi_reset_notify(ROUTE, SCSI_RESET_CANCEL,
1349                     st_reset_notification, (caddr_t)un);
1350                 cv_destroy(&un->un_clscv);
1351                 cv_destroy(&un->un_sbuf_cv);
1352                 cv_destroy(&un->un_queue_cv);
1353                 cv_destroy(&un->un_suspend_cv);
1354                 cv_destroy(&un->un_tape_busy_cv);
1355                 cv_destroy(&un->un_recov_buf_cv);
1356 
1357                 if (un->un_recov_taskq) {
1358                         ddi_taskq_destroy(un->un_recov_taskq);
1359                 }
1360 
1361                 if (un->un_hib_tid) {
1362                         (void) untimeout(un->un_hib_tid);
1363                         un->un_hib_tid = 0;
1364                 }
1365 
1366                 if (un->un_delay_tid) {
1367                         (void) untimeout(un->un_delay_tid);
1368                         un->un_delay_tid = 0;
1369                 }
1370                 cv_destroy(&un->un_state_cv);
1371 
1372 #ifdef  __x86
1373                 cv_destroy(&un->un_contig_mem_cv);
1374 
1375                 if (un->un_contig_mem_hdl != NULL) {
1376                         ddi_dma_free_handle(&un->un_contig_mem_hdl);
1377                 }
1378 #endif
1379                 if (un->un_sbufp) {
1380                         freerbuf(un->un_sbufp);
1381                 }
1382                 if (un->un_recov_buf) {
1383                         freerbuf(un->un_recov_buf);
1384                 }
1385                 if (un->un_uscsi_rqs_buf) {
1386                         kmem_free(un->un_uscsi_rqs_buf, SENSE_LENGTH);
1387                 }
1388                 if (un->un_mspl) {
1389                         i_ddi_mem_free((caddr_t)un->un_mspl, NULL);
1390                 }
1391                 if (un->un_rqs) {
1392                         scsi_destroy_pkt(un->un_rqs);
1393                         scsi_free_consistent_buf(un->un_rqs_bp);
1394                 }
1395                 if (un->un_mkr_pkt) {
1396                         scsi_destroy_pkt(un->un_mkr_pkt);
1397                 }
1398                 if (un->un_arq_enabled) {
1399                         (void) scsi_ifsetcap(ROUTE, "auto-rqsense", 0, 1);
1400                 }
1401                 if (un->un_dp_size) {
1402                         kmem_free(un->un_dp, un->un_dp_size);
1403                 }
1404                 if (un->un_stats) {
1405                         kstat_delete(un->un_stats);
1406                         un->un_stats = (kstat_t *)0;
1407                 }
1408                 if (un->un_errstats) {
1409                         kstat_delete(un->un_errstats);
1410                         un->un_errstats = (kstat_t *)0;
1411                 }
1412                 if (un->un_media_id_len) {
1413                         kmem_free(un->un_media_id, un->un_media_id_len);
1414                 }
1415                 devp = ST_SCSI_DEVP;
1416                 ddi_soft_state_free(st_state, instance);
1417                 devp->sd_private = NULL;
1418                 devp->sd_sense = NULL;
1419                 scsi_unprobe(devp);
1420                 ddi_prop_remove_all(devi);
1421                 ddi_remove_minor_node(devi, NULL);
1422                 ST_DEBUG(0, st_label, SCSI_DEBUG, "st_detach done\n");
1423                 return (DDI_SUCCESS);
1424 
1425         case DDI_SUSPEND:
1426 
1427                 /*
1428                  * Suspend/Resume
1429                  *
1430                  * To process DDI_SUSPEND, we must do the following:
1431                  *
1432                  *  - check ddi_removing_power to see if power will be turned
1433                  *    off. if so, return DDI_FAILURE
1434                  *  - check if we are already suspended,
1435                  *    if so, return DDI_FAILURE
1436                  *  - check if device state is CLOSED,
1437                  *    if not, return DDI_FAILURE.
1438                  *  - wait until outstanding operations complete
1439                  *  - save tape state
1440                  *  - block new operations
1441                  *  - cancel pending timeouts
1442                  *
1443                  */
1444 
1445                 if (ddi_removing_power(devi)) {
1446                         return (DDI_FAILURE);
1447                 }
1448 
1449                 if (un->un_dev == 0)
1450                         un->un_dev = MTMINOR(instance);
1451 
1452                 mutex_enter(ST_MUTEX);
1453 
1454                 /*
1455                  * Shouldn't already be suspended, if so return failure
1456                  */
1457                 if (un->un_pwr_mgmt == ST_PWR_SUSPENDED) {
1458                         mutex_exit(ST_MUTEX);
1459                         return (DDI_FAILURE);
1460                 }
1461                 if (un->un_state != ST_STATE_CLOSED) {
1462                         mutex_exit(ST_MUTEX);
1463                         return (DDI_FAILURE);
1464                 }
1465 
1466                 /*
1467                  * Wait for all outstanding I/O's to complete
1468                  *
1469                  * we wait on both ncmds and the wait queue for times
1470                  * when we are flushing after persistent errors are
1471                  * flagged, which is when ncmds can be 0, and the
1472                  * queue can still have I/O's.  This way we preserve
1473                  * order of biodone's.
1474                  */
1475                 wait_cmds_complete = ddi_get_lbolt();
1476                 wait_cmds_complete +=
1477                     st_wait_cmds_complete * drv_usectohz(1000000);
1478                 while (un->un_ncmds || un->un_quef ||
1479                     (un->un_state == ST_STATE_RESOURCE_WAIT)) {
1480 
1481                         if (cv_timedwait(&un->un_tape_busy_cv, ST_MUTEX,
1482                             wait_cmds_complete) == -1) {
1483                                 /*
1484                                  * Time expired then cancel the command
1485                                  */
1486                                 if (st_reset(un, RESET_LUN) == 0) {
1487                                         if (un->un_last_throttle) {
1488                                                 un->un_throttle =
1489                                                     un->un_last_throttle;
1490                                         }
1491                                         mutex_exit(ST_MUTEX);
1492                                         return (DDI_FAILURE);
1493                                 } else {
1494                                         break;
1495                                 }
1496                         }
1497                 }
1498 
1499                 /*
1500                  * DDI_SUSPEND says that the system "may" power down, we
1501                  * remember the file and block number before rewinding.
1502                  * we also need to save state before issuing
1503                  * any WRITE_FILE_MARK command.
1504                  */
1505                 (void) st_update_block_pos(un, st_cmd, 0);
1506                 COPY_POS(&un->un_suspend_pos, &un->un_pos);
1507 
1508 
1509                 /*
1510                  * Issue a zero write file fmk command to tell the drive to
1511                  * flush any buffered tape marks
1512                  */
1513                 (void) st_cmd(un, SCMD_WRITE_FILE_MARK, 0, SYNC_CMD);
1514 
1515                 /*
1516                  * Because not all tape drives correctly implement buffer
1517                  * flushing with the zero write file fmk command, issue a
1518                  * synchronous rewind command to force data flushing.
1519                  * st_validate_tapemarks() will do a rewind during DDI_RESUME
1520                  * anyway.
1521                  */
1522                 (void) st_cmd(un, SCMD_REWIND, 0, SYNC_CMD);
1523 
1524                 /* stop any new operations */
1525                 un->un_pwr_mgmt = ST_PWR_SUSPENDED;
1526                 un->un_throttle = 0;
1527 
1528                 /*
1529                  * cancel any outstanding timeouts
1530                  */
1531                 if (un->un_delay_tid) {
1532                         timeout_id_t temp_id = un->un_delay_tid;
1533                         un->un_delay_tid = 0;
1534                         un->un_tids_at_suspend |= ST_DELAY_TID;
1535                         mutex_exit(ST_MUTEX);
1536                         (void) untimeout(temp_id);
1537                         mutex_enter(ST_MUTEX);
1538                 }
1539 
1540                 if (un->un_hib_tid) {
1541                         timeout_id_t temp_id = un->un_hib_tid;
1542                         un->un_hib_tid = 0;
1543                         un->un_tids_at_suspend |= ST_HIB_TID;
1544                         mutex_exit(ST_MUTEX);
1545                         (void) untimeout(temp_id);
1546                         mutex_enter(ST_MUTEX);
1547                 }
1548 
1549                 /*
1550                  * Suspend the scsi_watch_thread
1551                  */
1552                 if (un->un_swr_token) {
1553                         opaque_t temp_token = un->un_swr_token;
1554                         mutex_exit(ST_MUTEX);
1555                         scsi_watch_suspend(temp_token);
1556                 } else {
1557                         mutex_exit(ST_MUTEX);
1558                 }
1559 
1560                 return (DDI_SUCCESS);
1561 
1562         default:
1563                 ST_DEBUG(0, st_label, SCSI_DEBUG, "st_detach failed\n");
1564                 return (DDI_FAILURE);
1565         }
1566 }
1567 
1568 
1569 /* ARGSUSED */
1570 static int
1571 st_info(dev_info_t *dip, ddi_info_cmd_t infocmd, void *arg, void **result)
1572 {
1573         dev_t dev;
1574         struct scsi_tape *un;
1575         int instance, error;
1576 
1577         ST_ENTR(dip, st_info);
1578 
1579         switch (infocmd) {
1580         case DDI_INFO_DEVT2DEVINFO:
1581                 dev = (dev_t)arg;
1582                 instance = MTUNIT(dev);
1583                 if ((un = ddi_get_soft_state(st_state, instance)) == NULL)
1584                         return (DDI_FAILURE);
1585                 *result = (void *) ST_DEVINFO;
1586                 error = DDI_SUCCESS;
1587                 break;
1588         case DDI_INFO_DEVT2INSTANCE:
1589                 dev = (dev_t)arg;
1590                 instance = MTUNIT(dev);
1591                 *result = (void *)(uintptr_t)instance;
1592                 error = DDI_SUCCESS;
1593                 break;
1594         default:
1595                 error = DDI_FAILURE;
1596         }
1597         return (error);
1598 }
1599 
1600 static int
1601 st_doattach(struct scsi_device *devp, int (*canwait)())
1602 {
1603         struct scsi_tape *un = NULL;
1604         recov_info *ri;
1605         int km_flags = (canwait != NULL_FUNC) ? KM_SLEEP : KM_NOSLEEP;
1606         int instance;
1607         size_t rlen;
1608 
1609         ST_FUNC(devp->sd_dev, st_doattach);
1610         /*
1611          * Call the routine scsi_probe to do some of the dirty work.
1612          * If the INQUIRY command succeeds, the field sd_inq in the
1613          * device structure will be filled in.
1614          */
1615         ST_DEBUG(devp->sd_dev, st_label, SCSI_DEBUG,
1616             "st_doattach(): probing\n");
1617 
1618         if (scsi_probe(devp, canwait) == SCSIPROBE_EXISTS) {
1619 
1620                 /*
1621                  * In checking the whole inq_dtype byte we are looking at both
1622                  * the Peripheral Qualifier and the Peripheral Device Type.
1623                  * For this driver we are only interested in sequential devices
1624                  * that are connected or capable if connecting to this logical
1625                  * unit.
1626                  */
1627                 if (devp->sd_inq->inq_dtype ==
1628                     (DTYPE_SEQUENTIAL | DPQ_POSSIBLE)) {
1629                         ST_DEBUG(devp->sd_dev, st_label, SCSI_DEBUG,
1630                             "probe exists\n");
1631                 } else {
1632                         /* Something there but not a tape device */
1633                         scsi_unprobe(devp);
1634                         return (DDI_FAILURE);
1635                 }
1636         } else {
1637                 /* Nothing there */
1638                 ST_DEBUG(devp->sd_dev, st_label, SCSI_DEBUG,
1639                     "probe failure: nothing there\n");
1640                 scsi_unprobe(devp);
1641                 return (DDI_FAILURE);
1642         }
1643 
1644 
1645         /*
1646          * The actual unit is present.
1647          * Now is the time to fill in the rest of our info..
1648          */
1649         instance = ddi_get_instance(devp->sd_dev);
1650 
1651         if (ddi_soft_state_zalloc(st_state, instance) != DDI_SUCCESS) {
1652                 goto error;
1653         }
1654         un = ddi_get_soft_state(st_state, instance);
1655 
1656         ASSERT(un != NULL);
1657 
1658         un->un_rqs_bp = scsi_alloc_consistent_buf(&devp->sd_address, NULL,
1659             MAX_SENSE_LENGTH, B_READ, canwait, NULL);
1660         if (un->un_rqs_bp == NULL) {
1661                 goto error;
1662         }
1663         un->un_rqs = scsi_init_pkt(&devp->sd_address, NULL, un->un_rqs_bp,
1664             CDB_GROUP0, 1, st_recov_sz, PKT_CONSISTENT, canwait, NULL);
1665         if (!un->un_rqs) {
1666                 goto error;
1667         }
1668         ASSERT(un->un_rqs->pkt_resid == 0);
1669         devp->sd_sense =
1670             (struct scsi_extended_sense *)un->un_rqs_bp->b_un.b_addr;
1671         ASSERT(geterror(un->un_rqs_bp) == NULL);
1672 
1673         (void) scsi_setup_cdb((union scsi_cdb *)un->un_rqs->pkt_cdbp,
1674             SCMD_REQUEST_SENSE, 0, MAX_SENSE_LENGTH, 0);
1675         FILL_SCSI1_LUN(devp, un->un_rqs);
1676         un->un_rqs->pkt_flags |= (FLAG_SENSING | FLAG_HEAD | FLAG_NODISCON);
1677         un->un_rqs->pkt_time = st_io_time;
1678         un->un_rqs->pkt_comp = st_intr;
1679         ri = (recov_info *)un->un_rqs->pkt_private;
1680         if (st_recov_sz == sizeof (recov_info)) {
1681                 ri->privatelen = sizeof (recov_info);
1682         } else {
1683                 ri->privatelen = sizeof (pkt_info);
1684         }
1685 
1686         un->un_sbufp = getrbuf(km_flags);
1687         un->un_recov_buf = getrbuf(km_flags);
1688 
1689         un->un_uscsi_rqs_buf = kmem_alloc(SENSE_LENGTH, KM_SLEEP);
1690 
1691         /*
1692          * use i_ddi_mem_alloc() for now until we have an interface to allocate
1693          * memory for DMA which doesn't require a DMA handle.
1694          */
1695         (void) i_ddi_mem_alloc(devp->sd_dev, &st_alloc_attr,
1696             sizeof (struct seq_mode), ((km_flags == KM_SLEEP) ? 1 : 0), 0,
1697             NULL, (caddr_t *)&un->un_mspl, &rlen, NULL);
1698 
1699         (void) i_ddi_mem_alloc(devp->sd_dev, &st_alloc_attr,
1700             sizeof (read_pos_data_t), ((km_flags == KM_SLEEP) ? 1 : 0), 0,
1701             NULL, (caddr_t *)&un->un_read_pos_data, &rlen, NULL);
1702 
1703         if (!un->un_sbufp || !un->un_mspl || !un->un_read_pos_data) {
1704                 ST_DEBUG6(devp->sd_dev, st_label, SCSI_DEBUG,
1705                     "probe partial failure: no space\n");
1706                 goto error;
1707         }
1708 
1709         bzero(un->un_mspl, sizeof (struct seq_mode));
1710 
1711         cv_init(&un->un_sbuf_cv, NULL, CV_DRIVER, NULL);
1712         cv_init(&un->un_queue_cv, NULL, CV_DRIVER, NULL);
1713         cv_init(&un->un_clscv, NULL, CV_DRIVER, NULL);
1714         cv_init(&un->un_state_cv, NULL, CV_DRIVER, NULL);
1715 #ifdef  __x86
1716         cv_init(&un->un_contig_mem_cv, NULL, CV_DRIVER, NULL);
1717 #endif
1718 
1719         /* Initialize power managemnet condition variable */
1720         cv_init(&un->un_suspend_cv, NULL, CV_DRIVER, NULL);
1721         cv_init(&un->un_tape_busy_cv, NULL, CV_DRIVER, NULL);
1722         cv_init(&un->un_recov_buf_cv, NULL, CV_DRIVER, NULL);
1723 
1724         un->un_recov_taskq = ddi_taskq_create(devp->sd_dev,
1725             "un_recov_taskq", 1, TASKQ_DEFAULTPRI, km_flags);
1726 
1727         ASSERT(un->un_recov_taskq != NULL);
1728 
1729         un->un_pos.pmode = invalid;
1730         un->un_sd    = devp;
1731         un->un_swr_token = (opaque_t)NULL;
1732         un->un_comp_page = ST_DEV_DATACOMP_PAGE | ST_DEV_CONFIG_PAGE;
1733         un->un_wormable = st_is_drive_worm;
1734         un->un_media_id_method = st_get_media_identification;
1735         /*
1736          * setting long a initial as it contains logical file info.
1737          * support for long format is mandatory but many drive don't do it.
1738          */
1739         un->un_read_pos_type = LONG_POS;
1740 
1741         un->un_suspend_pos.pmode = invalid;
1742 
1743         st_add_recovery_info_to_pkt(un, un->un_rqs_bp, un->un_rqs);
1744 
1745 #ifdef  __x86
1746         if (ddi_dma_alloc_handle(ST_DEVINFO, &st_contig_mem_dma_attr,
1747             DDI_DMA_SLEEP, NULL, &un->un_contig_mem_hdl) != DDI_SUCCESS) {
1748                 ST_DEBUG6(devp->sd_dev, st_label, SCSI_DEBUG,
1749                     "allocation of contiguous memory dma handle failed!");
1750                 un->un_contig_mem_hdl = NULL;
1751                 goto error;
1752         }
1753 #endif
1754 
1755         /*
1756          * Since this driver manages devices with "remote" hardware,
1757          * i.e. the devices themselves have no "reg" properties,
1758          * the SUSPEND/RESUME commands in detach/attach will not be
1759          * called by the power management framework unless we request
1760          * it by creating a "pm-hardware-state" property and setting it
1761          * to value "needs-suspend-resume".
1762          */
1763         if (ddi_prop_update_string(DDI_DEV_T_NONE, devp->sd_dev,
1764             "pm-hardware-state", "needs-suspend-resume") !=
1765             DDI_PROP_SUCCESS) {
1766 
1767                 ST_DEBUG(devp->sd_dev, st_label, SCSI_DEBUG,
1768                     "ddi_prop_update(\"pm-hardware-state\") failed\n");
1769                 goto error;
1770         }
1771 
1772         if (ddi_prop_create(DDI_DEV_T_NONE, devp->sd_dev, DDI_PROP_CANSLEEP,
1773             "no-involuntary-power-cycles", NULL, 0) != DDI_PROP_SUCCESS) {
1774 
1775                 ST_DEBUG(devp->sd_dev, st_label, SCSI_DEBUG,
1776                     "ddi_prop_create(\"no-involuntary-power-cycles\") "
1777                     "failed\n");
1778                 goto error;
1779         }
1780 
1781         (void) scsi_reset_notify(ROUTE, SCSI_RESET_NOTIFY,
1782             st_reset_notification, (caddr_t)un);
1783 
1784         ST_DEBUG6(devp->sd_dev, st_label, SCSI_DEBUG, "attach success\n");
1785         return (DDI_SUCCESS);
1786 
1787 error:
1788         devp->sd_sense = NULL;
1789 
1790         ddi_remove_minor_node(devp->sd_dev, NULL);
1791         if (un) {
1792                 if (un->un_mspl) {
1793                         i_ddi_mem_free((caddr_t)un->un_mspl, NULL);
1794                 }
1795                 if (un->un_read_pos_data) {
1796                         i_ddi_mem_free((caddr_t)un->un_read_pos_data, 0);
1797                 }
1798                 if (un->un_sbufp) {
1799                         freerbuf(un->un_sbufp);
1800                 }
1801                 if (un->un_recov_buf) {
1802                         freerbuf(un->un_recov_buf);
1803                 }
1804                 if (un->un_uscsi_rqs_buf) {
1805                         kmem_free(un->un_uscsi_rqs_buf, SENSE_LENGTH);
1806                 }
1807 #ifdef  __x86
1808                 if (un->un_contig_mem_hdl != NULL) {
1809                         ddi_dma_free_handle(&un->un_contig_mem_hdl);
1810                 }
1811 #endif
1812                 if (un->un_rqs) {
1813                         scsi_destroy_pkt(un->un_rqs);
1814                 }
1815 
1816                 if (un->un_rqs_bp) {
1817                         scsi_free_consistent_buf(un->un_rqs_bp);
1818                 }
1819 
1820                 ddi_soft_state_free(st_state, instance);
1821                 devp->sd_private = NULL;
1822         }
1823 
1824         if (devp->sd_inq) {
1825                 scsi_unprobe(devp);
1826         }
1827         return (DDI_FAILURE);
1828 }
1829 
1830 typedef int
1831 (*cfg_functp)(struct scsi_tape *, char *vidpid, struct st_drivetype *);
1832 
1833 static cfg_functp config_functs[] = {
1834         st_get_conf_from_st_dot_conf,
1835         st_get_conf_from_st_conf_dot_c,
1836         st_get_conf_from_tape_drive,
1837         st_get_default_conf
1838 };
1839 
1840 
1841 /*
1842  * determine tape type, using tape-config-list or built-in table or
1843  * use a generic tape config entry
1844  */
1845 static void
1846 st_known_tape_type(struct scsi_tape *un)
1847 {
1848         struct st_drivetype *dp;
1849         cfg_functp *config_funct;
1850         uchar_t reserved;
1851 
1852         ST_FUNC(ST_DEVINFO, st_known_tape_type);
1853 
1854         reserved = (un->un_rsvd_status & ST_RESERVE) ? ST_RESERVE
1855             : ST_RELEASE;
1856 
1857         /*
1858          * XXX:  Emulex MT-02 (and emulators) predates SCSI-1 and has
1859          *       no vid & pid inquiry data.  So, we provide one.
1860          */
1861         if (ST_INQUIRY->inq_len == 0 ||
1862             (bcmp("\0\0\0\0\0\0\0\0", ST_INQUIRY->inq_vid, 8) == 0)) {
1863                 (void) strcpy((char *)ST_INQUIRY->inq_vid, ST_MT02_NAME);
1864         }
1865 
1866         if (un->un_dp_size == 0) {
1867                 un->un_dp_size = sizeof (struct st_drivetype);
1868                 dp = kmem_zalloc((size_t)un->un_dp_size, KM_SLEEP);
1869                 un->un_dp = dp;
1870         } else {
1871                 dp = un->un_dp;
1872         }
1873 
1874         un->un_dp->non_motion_timeout = st_io_time;
1875         /*
1876          * Loop through the configuration methods till one works.
1877          */
1878         for (config_funct = &config_functs[0]; ; config_funct++) {
1879                 if ((*config_funct)(un, ST_INQUIRY->inq_vid, dp)) {
1880                         break;
1881                 }
1882         }
1883 
1884         /*
1885          * If we didn't just make up this configuration and
1886          * all the density codes are the same..
1887          * Set Auto Density over ride.
1888          */
1889         if (*config_funct != st_get_default_conf) {
1890                 /*
1891                  * If this device is one that is configured and all
1892                  * densities are the same, This saves doing gets and set
1893                  * that yield nothing.
1894                  */
1895                 if ((dp->densities[0]) == (dp->densities[1]) &&
1896                     (dp->densities[0]) == (dp->densities[2]) &&
1897                     (dp->densities[0]) == (dp->densities[3])) {
1898 
1899                         dp->options |= ST_AUTODEN_OVERRIDE;
1900                 }
1901         }
1902 
1903 
1904         /*
1905          * Store tape drive characteristics.
1906          */
1907         un->un_status = 0;
1908         un->un_attached = 1;
1909         un->un_init_options = dp->options;
1910 
1911         /* setup operation time-outs based on options */
1912         st_calculate_timeouts(un);
1913 
1914         /* TLR support */
1915         if (un->un_dp->type != ST_TYPE_INVALID) {
1916                 int result;
1917 
1918                 /* try and enable TLR */
1919                 un->un_tlr_flag = TLR_SAS_ONE_DEVICE;
1920                 result = st_set_target_TLR_mode(un, st_uscsi_cmd);
1921                 if (result == EACCES) {
1922                         /*
1923                          * From attach command failed.
1924                          * Set dp type so is run again on open.
1925                          */
1926                         un->un_dp->type = ST_TYPE_INVALID;
1927                         un->un_tlr_flag = TLR_NOT_KNOWN;
1928                 } else if (result == 0) {
1929                         if (scsi_ifgetcap(&un->un_sd->sd_address,
1930                             "tran-layer-retries", 1) == -1) {
1931                                 un->un_tlr_flag = TLR_NOT_SUPPORTED;
1932                                 (void) st_set_target_TLR_mode(un, st_uscsi_cmd);
1933                         } else {
1934                                 un->un_tlr_flag = TLR_SAS_ONE_DEVICE;
1935                         }
1936                 } else {
1937                         un->un_tlr_flag = TLR_NOT_SUPPORTED;
1938                 }
1939         }
1940 
1941         /* make sure if we are supposed to be variable, make it variable */
1942         if (dp->options & ST_VARIABLE) {
1943                 dp->bsize = 0;
1944         }
1945 
1946         if (reserved != ((un->un_rsvd_status & ST_RESERVE) ? ST_RESERVE
1947             : ST_RELEASE)) {
1948                 (void) st_reserve_release(un, reserved, st_uscsi_cmd);
1949         }
1950 
1951         un->un_unit_attention_flags |= 1;
1952 
1953         scsi_log(ST_DEVINFO, st_label, CE_NOTE, "?<%s>\n", dp->name);
1954 
1955 }
1956 
1957 
1958 typedef struct {
1959         int mask;
1960         int bottom;
1961         int top;
1962         char *name;
1963 } conf_limit;
1964 
1965 static const conf_limit conf_limits[] = {
1966 
1967         { -1,           1,              2,              "conf version" },
1968         { -1,           MT_ISTS,        ST_LAST_TYPE,   "drive type" },
1969         { -1,           0,              0xffffff,       "block size" },
1970         { ST_VALID_OPTS, 0,             ST_VALID_OPTS,  "options" },
1971         { -1,           0,              4,              "number of densities" },
1972         { -1,           0,              UINT8_MAX,      "density code" },
1973         { -1,           0,              3,              "default density" },
1974         { -1,           0,              UINT16_MAX,     "non motion timeout" },
1975         { -1,           0,              UINT16_MAX,     "I/O timeout" },
1976         { -1,           0,              UINT16_MAX,     "space timeout" },
1977         { -1,           0,              UINT16_MAX,     "load timeout" },
1978         { -1,           0,              UINT16_MAX,     "unload timeout" },
1979         { -1,           0,              UINT16_MAX,     "erase timeout" },
1980         { 0,            0,              0,              NULL }
1981 };
1982 
1983 static int
1984 st_validate_conf_data(struct scsi_tape *un, int *list, int list_len,
1985     const char *conf_name)
1986 {
1987         int dens;
1988         int ndens;
1989         int value;
1990         int type;
1991         int count;
1992         const conf_limit *limit = &conf_limits[0];
1993 
1994         ST_FUNC(ST_DEVINFO, st_validate_conf_data);
1995 
1996         ST_DEBUG3(ST_DEVINFO, st_label, CE_NOTE,
1997             "Checking %d entrys total with %d densities\n", list_len, list[4]);
1998 
1999         count = list_len;
2000         type = *list;
2001         for (;  count && limit->name; count--, list++, limit++) {
2002 
2003                 value = *list;
2004                 if (value & ~limit->mask) {
2005                         scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2006                             "%s %s value invalid bits set: 0x%X\n",
2007                             conf_name, limit->name, value & ~limit->mask);
2008                         *list &= limit->mask;
2009                 } else if (value < limit->bottom) {
2010                         scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2011                             "%s %s value too low: value = %d limit %d\n",
2012                             conf_name, limit->name, value, limit->bottom);
2013                 } else if (value > limit->top) {
2014                         scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2015                             "%s %s value too high: value = %d limit %d\n",
2016                             conf_name, limit->name, value, limit->top);
2017                 } else {
2018                         ST_DEBUG3(ST_DEVINFO, st_label, CE_CONT,
2019                             "%s %s value = 0x%X\n",
2020                             conf_name, limit->name, value);
2021                 }
2022 
2023                 /* If not the number of densities continue */
2024                 if (limit != &conf_limits[4]) {
2025                         continue;
2026                 }
2027 
2028                 /* If number of densities is not in range can't use config */
2029                 if (value < limit->bottom || value > limit->top) {
2030                         return (-1);
2031                 }
2032 
2033                 ndens = min(value, NDENSITIES);
2034                 if ((type == 1) && (list_len - ndens) != 6) {
2035                         scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2036                             "%s conf version 1 with %d densities has %d items"
2037                             " should have %d",
2038                             conf_name, ndens, list_len, 6 + ndens);
2039                 } else if ((type == 2) && (list_len - ndens) != 13) {
2040                         scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2041                             "%s conf version 2 with %d densities has %d items"
2042                             " should have %d",
2043                             conf_name, ndens, list_len, 13 + ndens);
2044                 }
2045 
2046                 limit++;
2047                 for (dens = 0; dens < ndens && count; dens++) {
2048                         count--;
2049                         list++;
2050                         value = *list;
2051                         if (value < limit->bottom) {
2052                                 scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2053                                     "%s density[%d] value too low: value ="
2054                                     " 0x%X limit 0x%X\n",
2055                                     conf_name, dens, value, limit->bottom);
2056                         } else if (value > limit->top) {
2057                                 scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2058                                     "%s density[%d] value too high: value ="
2059                                     " 0x%X limit 0x%X\n",
2060                                     conf_name, dens, value, limit->top);
2061                         } else {
2062                                 ST_DEBUG3(ST_DEVINFO, st_label, CE_CONT,
2063                                     "%s density[%d] value = 0x%X\n",
2064                                     conf_name, dens, value);
2065                         }
2066                 }
2067         }
2068 
2069         return (0);
2070 }
2071 
2072 static int
2073 st_get_conf_from_st_dot_conf(struct scsi_tape *un, char *vidpid,
2074     struct st_drivetype *dp)
2075 {
2076         caddr_t config_list = NULL;
2077         caddr_t data_list = NULL;
2078         int     *data_ptr;
2079         caddr_t vidptr, prettyptr, datanameptr;
2080         size_t  vidlen, prettylen, datanamelen, tripletlen = 0;
2081         int config_list_len, data_list_len, len, i;
2082         int version;
2083         int found = 0;
2084 
2085         ST_FUNC(ST_DEVINFO, st_get_conf_from_st_dot_conf);
2086 
2087         /*
2088          * Determine type of tape controller. Type is determined by
2089          * checking the vendor ids of the earlier inquiry command and
2090          * comparing those with vids in tape-config-list defined in st.conf
2091          */
2092         if (ddi_getlongprop(DDI_DEV_T_ANY, ST_DEVINFO, DDI_PROP_DONTPASS,
2093             "tape-config-list", (caddr_t)&config_list, &config_list_len)
2094             != DDI_PROP_SUCCESS) {
2095                 return (found);
2096         }
2097 
2098         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
2099             "st_get_conf_from_st_dot_conf(): st.conf has tape-config-list\n");
2100 
2101         /*
2102          * Compare vids in each triplet - if it matches, get value for
2103          * data_name and contruct a st_drivetype struct
2104          * tripletlen is not set yet!
2105          */
2106         for (len = config_list_len, vidptr = config_list;
2107             len > 0;
2108             vidptr += tripletlen, len -= tripletlen) {
2109 
2110                 vidlen = strlen(vidptr);
2111                 prettyptr = vidptr + vidlen + 1;
2112                 prettylen = strlen(prettyptr);
2113                 datanameptr = prettyptr + prettylen + 1;
2114                 datanamelen = strlen(datanameptr);
2115                 tripletlen = vidlen + prettylen + datanamelen + 3;
2116 
2117                 if (vidlen == 0) {
2118                         continue;
2119                 }
2120 
2121                 /*
2122                  * If inquiry vid dosen't match this triplets vid,
2123                  * try the next.
2124                  */
2125                 if (strncasecmp(vidpid, vidptr, vidlen)) {
2126                         continue;
2127                 }
2128 
2129                 /*
2130                  * if prettylen is zero then use the vid string
2131                  */
2132                 if (prettylen == 0) {
2133                         prettyptr = vidptr;
2134                         prettylen = vidlen;
2135                 }
2136 
2137                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
2138                     "vid = %s, pretty=%s, dataname = %s\n",
2139                     vidptr, prettyptr, datanameptr);
2140 
2141                 /*
2142                  * get the data list
2143                  */
2144                 if (ddi_getlongprop(DDI_DEV_T_ANY, ST_DEVINFO, 0,
2145                     datanameptr, (caddr_t)&data_list,
2146                     &data_list_len) != DDI_PROP_SUCCESS) {
2147                         /*
2148                          * Error in getting property value
2149                          * print warning!
2150                          */
2151                         scsi_log(ST_DEVINFO, st_label, CE_WARN,
2152                             "data property (%s) has no value\n",
2153                             datanameptr);
2154                         continue;
2155                 }
2156 
2157                 /*
2158                  * now initialize the st_drivetype struct
2159                  */
2160                 (void) strncpy(dp->name, prettyptr, ST_NAMESIZE - 1);
2161                 dp->length = (int)min(vidlen, (VIDPIDLEN - 1));
2162                 (void) strncpy(dp->vid, vidptr, dp->length);
2163                 data_ptr = (int *)data_list;
2164                 /*
2165                  * check if data is enough for version, type,
2166                  * bsize, options, # of densities, density1,
2167                  * density2, ..., default_density
2168                  */
2169                 if ((data_list_len < 5 * sizeof (int)) ||
2170                     (data_list_len < 6 * sizeof (int) +
2171                     *(data_ptr + 4) * sizeof (int))) {
2172                         /*
2173                          * print warning and skip to next triplet.
2174                          */
2175                         scsi_log(ST_DEVINFO, st_label, CE_WARN,
2176                             "data property (%s) incomplete\n",
2177                             datanameptr);
2178                         kmem_free(data_list, data_list_len);
2179                         continue;
2180                 }
2181 
2182                 if (st_validate_conf_data(un, data_ptr,
2183                     data_list_len / sizeof (int), datanameptr)) {
2184                         kmem_free(data_list, data_list_len);
2185                         scsi_log(ST_DEVINFO, st_label, CE_WARN,
2186                             "data property (%s) rejected\n",
2187                             datanameptr);
2188                         continue;
2189                 }
2190 
2191                 /*
2192                  * check version
2193                  */
2194                 version = *data_ptr++;
2195                 if (version != 1 && version != 2) {
2196                         /* print warning but accept it */
2197                         scsi_log(ST_DEVINFO, st_label, CE_WARN,
2198                             "Version # for data property (%s) "
2199                             "not set to 1 or 2\n", datanameptr);
2200                 }
2201 
2202                 dp->type    = *data_ptr++;
2203                 dp->bsize   = *data_ptr++;
2204                 dp->options = *data_ptr++;
2205                 dp->options |= ST_DYNAMIC;
2206                 len = *data_ptr++;
2207                 for (i = 0; i < NDENSITIES; i++) {
2208                         if (i < len) {
2209                                 dp->densities[i] = *data_ptr++;
2210                         }
2211                 }
2212                 dp->default_density = *data_ptr << 3;
2213                 if (version == 2 &&
2214                     data_list_len >= (13 + len) * sizeof (int)) {
2215                         data_ptr++;
2216                         dp->non_motion_timeout       = *data_ptr++;
2217                         dp->io_timeout               = *data_ptr++;
2218                         dp->rewind_timeout   = *data_ptr++;
2219                         dp->space_timeout    = *data_ptr++;
2220                         dp->load_timeout     = *data_ptr++;
2221                         dp->unload_timeout   = *data_ptr++;
2222                         dp->erase_timeout    = *data_ptr++;
2223                 }
2224                 kmem_free(data_list, data_list_len);
2225                 found = 1;
2226                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
2227                     "found in st.conf: vid = %s, pretty=%s\n",
2228                     dp->vid, dp->name);
2229                 break;
2230         }
2231 
2232         /*
2233          * free up the memory allocated by ddi_getlongprop
2234          */
2235         if (config_list) {
2236                 kmem_free(config_list, config_list_len);
2237         }
2238         return (found);
2239 }
2240 
2241 static int
2242 st_get_conf_from_st_conf_dot_c(struct scsi_tape *un, char *vidpid,
2243     struct st_drivetype *dp)
2244 {
2245         int i;
2246 
2247         ST_FUNC(ST_DEVINFO, st_get_conf_from_st_conf_dot_c);
2248         /*
2249          * Determine type of tape controller.  Type is determined by
2250          * checking the result of the earlier inquiry command and
2251          * comparing vendor ids with strings in a table declared in st_conf.c.
2252          */
2253         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2254             "st_get_conf_from_st_conf_dot_c(): looking at st_drivetypes\n");
2255 
2256         for (i = 0; i < st_ndrivetypes; i++) {
2257                 if (st_drivetypes[i].length == 0) {
2258                         continue;
2259                 }
2260                 if (strncasecmp(vidpid, st_drivetypes[i].vid,
2261                     st_drivetypes[i].length)) {
2262                         continue;
2263                 }
2264                 bcopy(&st_drivetypes[i], dp, sizeof (st_drivetypes[i]));
2265                 return (1);
2266         }
2267         return (0);
2268 }
2269 
2270 static int
2271 st_get_conf_from_tape_drive(struct scsi_tape *un, char *vidpid,
2272     struct st_drivetype *dp)
2273 {
2274         int bsize;
2275         ulong_t maxbsize;
2276         caddr_t buf;
2277         struct st_drivetype *tem_dp;
2278         struct read_blklim *blklim;
2279         int rval;
2280         int i;
2281 
2282         ST_FUNC(ST_DEVINFO, st_get_conf_from_tape_drive);
2283 
2284         /*
2285          * Determine the type of tape controller. Type is determined by
2286          * sending SCSI commands to tape drive and deriving the type from
2287          * the returned data.
2288          */
2289         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2290             "st_get_conf_from_tape_drive(): asking tape drive\n");
2291 
2292         tem_dp = kmem_zalloc(sizeof (struct st_drivetype), KM_SLEEP);
2293 
2294         /*
2295          * Make up a name
2296          */
2297         bcopy(vidpid, tem_dp->name, VIDPIDLEN);
2298         tem_dp->name[VIDPIDLEN] = '\0';
2299         tem_dp->length = min(strlen(ST_INQUIRY->inq_vid), (VIDPIDLEN - 1));
2300         (void) strncpy(tem_dp->vid, ST_INQUIRY->inq_vid, tem_dp->length);
2301         /*
2302          * 'clean' vendor and product strings of non-printing chars
2303          */
2304         for (i = 0; i < VIDPIDLEN - 1; i ++) {
2305                 if (tem_dp->name[i] < ' ' || tem_dp->name[i] > '~') {
2306                         tem_dp->name[i] = '.';
2307                 }
2308         }
2309 
2310         /*
2311          * MODE SENSE to determine block size.
2312          */
2313         un->un_dp->options |= ST_MODE_SEL_COMP | ST_UNLOADABLE;
2314         rval = st_modesense(un);
2315         if (rval) {
2316                 if (rval == EACCES) {
2317                         un->un_dp->type = ST_TYPE_INVALID;
2318                         rval = 1;
2319                 } else {
2320                         un->un_dp->options &= ~ST_MODE_SEL_COMP;
2321                         rval = 0;
2322                 }
2323                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2324                     "st_get_conf_from_tape_drive(): fail to mode sense\n");
2325                 goto exit;
2326         }
2327 
2328         /* Can mode sense page 0x10 or 0xf */
2329         tem_dp->options |= ST_MODE_SEL_COMP;
2330         bsize = (un->un_mspl->high_bl << 16)        |
2331             (un->un_mspl->mid_bl << 8)              |
2332             (un->un_mspl->low_bl);
2333 
2334         if (bsize == 0) {
2335                 tem_dp->options |= ST_VARIABLE;
2336                 tem_dp->bsize = 0;
2337         } else if (bsize > ST_MAXRECSIZE_FIXED) {
2338                 rval = st_change_block_size(un, 0);
2339                 if (rval) {
2340                         if (rval == EACCES) {
2341                                 un->un_dp->type = ST_TYPE_INVALID;
2342                                 rval = 1;
2343                         } else {
2344                                 rval = 0;
2345                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2346                                     "st_get_conf_from_tape_drive(): "
2347                                     "Fixed record size is too large and"
2348                                     "cannot switch to variable record size");
2349                         }
2350                         goto exit;
2351                 }
2352                 tem_dp->options |= ST_VARIABLE;
2353         } else {
2354                 rval = st_change_block_size(un, 0);
2355                 if (rval == 0) {
2356                         tem_dp->options |= ST_VARIABLE;
2357                         tem_dp->bsize = 0;
2358                 } else if (rval != EACCES) {
2359                         tem_dp->bsize = bsize;
2360                 } else {
2361                         un->un_dp->type = ST_TYPE_INVALID;
2362                         rval = 1;
2363                         goto exit;
2364                 }
2365         }
2366 
2367         /*
2368          * If READ BLOCk LIMITS works and upper block size limit is
2369          * more than 64K, ST_NO_RECSIZE_LIMIT is supported.
2370          */
2371         blklim = kmem_zalloc(sizeof (struct read_blklim), KM_SLEEP);
2372         rval = st_read_block_limits(un, blklim);
2373         if (rval) {
2374                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2375                     "st_get_conf_from_tape_drive(): "
2376                     "fail to read block limits.\n");
2377                 rval = 0;
2378                 kmem_free(blklim, sizeof (struct read_blklim));
2379                 goto exit;
2380         }
2381         maxbsize = (blklim->max_hi << 16) +
2382             (blklim->max_mid << 8) + blklim->max_lo;
2383         if (maxbsize > ST_MAXRECSIZE_VARIABLE) {
2384                 tem_dp->options |= ST_NO_RECSIZE_LIMIT;
2385         }
2386         kmem_free(blklim, sizeof (struct read_blklim));
2387 
2388         /*
2389          * Inquiry VPD page 0xb0 to see if the tape drive supports WORM
2390          */
2391         buf = kmem_zalloc(6, KM_SLEEP);
2392         rval = st_get_special_inquiry(un, 6, buf, 0xb0);
2393         if (rval) {
2394                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2395                     "st_get_conf_from_tape_drive(): "
2396                     "fail to read vitial inquiry.\n");
2397                 rval = 0;
2398                 kmem_free(buf, 6);
2399                 goto exit;
2400         }
2401         if (buf[4] & 1) {
2402                 tem_dp->options |= ST_WORMABLE;
2403         }
2404         kmem_free(buf, 6);
2405 
2406         /* Assume BSD BSR KNOWS_EOD */
2407         tem_dp->options |= ST_BSF | ST_BSR | ST_KNOWS_EOD | ST_UNLOADABLE;
2408         tem_dp->max_rretries = -1;
2409         tem_dp->max_wretries = -1;
2410 
2411         /*
2412          * Decide the densities supported by tape drive by sending
2413          * REPORT DENSITY SUPPORT command.
2414          */
2415         if (st_get_densities_from_tape_drive(un, tem_dp) == 0) {
2416                 goto exit;
2417         }
2418 
2419         /*
2420          * Decide the timeout values for several commands by sending
2421          * REPORT SUPPORTED OPERATION CODES command.
2422          */
2423         rval = st_get_timeout_values_from_tape_drive(un, tem_dp);
2424         if (rval == 0 || ((rval == 1) && (tem_dp->type == ST_TYPE_INVALID))) {
2425                 goto exit;
2426         }
2427 
2428         bcopy(tem_dp, dp, sizeof (struct st_drivetype));
2429         rval = 1;
2430 
2431 exit:
2432         un->un_status = KEY_NO_SENSE;
2433         kmem_free(tem_dp, sizeof (struct st_drivetype));
2434         return (rval);
2435 }
2436 
2437 static int
2438 st_get_densities_from_tape_drive(struct scsi_tape *un,
2439     struct st_drivetype *dp)
2440 {
2441         int i, p;
2442         size_t buflen;
2443         ushort_t des_len;
2444         uchar_t *den_header;
2445         uchar_t num_den;
2446         uchar_t den[NDENSITIES];
2447         uchar_t deflt[NDENSITIES];
2448         struct report_density_desc *den_desc;
2449 
2450         ST_FUNC(ST_DEVINFO, st_get_densities_from_type_drive);
2451 
2452         /*
2453          * Since we have no idea how many densitiy support entries
2454          * will be returned, we send the command firstly assuming
2455          * there is only one. Then we can decide the number of
2456          * entries by available density support length. If multiple
2457          * entries exist, we will resend the command with enough
2458          * buffer size.
2459          */
2460         buflen = sizeof (struct report_density_header) +
2461             sizeof (struct report_density_desc);
2462         den_header = kmem_zalloc(buflen, KM_SLEEP);
2463         if (st_report_density_support(un, den_header, buflen) != 0) {
2464                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2465                     "st_get_conf_from_tape_drive(): fail to report density.\n");
2466                 kmem_free(den_header, buflen);
2467                 return (0);
2468         }
2469         des_len =
2470             BE_16(((struct report_density_header *)den_header)->ava_dens_len);
2471         num_den = (des_len - 2) / sizeof (struct report_density_desc);
2472 
2473         if (num_den > 1) {
2474                 kmem_free(den_header, buflen);
2475                 buflen = sizeof (struct report_density_header) +
2476                     sizeof (struct report_density_desc) * num_den;
2477                 den_header = kmem_zalloc(buflen, KM_SLEEP);
2478                 if (st_report_density_support(un, den_header, buflen) != 0) {
2479                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2480                             "st_get_conf_from_tape_drive(): "
2481                             "fail to report density.\n");
2482                         kmem_free(den_header, buflen);
2483                         return (0);
2484                 }
2485         }
2486 
2487         den_desc = (struct report_density_desc *)(den_header
2488             + sizeof (struct report_density_header));
2489 
2490         /*
2491          * Decide the drive type by assigning organization
2492          */
2493         for (i = 0; i < ST_NUM_MEMBERS(st_vid_dt); i ++) {
2494                 if (strncmp(st_vid_dt[i].vid, (char *)(den_desc->ass_org),
2495                     8) == 0) {
2496                         dp->type = st_vid_dt[i].type;
2497                         break;
2498                 }
2499         }
2500         if (i == ST_NUM_MEMBERS(st_vid_dt)) {
2501                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2502                     "st_get_conf_from_tape_drive(): "
2503                     "can't find match of assigned ort.\n");
2504                 kmem_free(den_header, buflen);
2505                 return (0);
2506         }
2507 
2508         /*
2509          * The tape drive may support many tape formats, but the st driver
2510          * supports only the four highest densities. Since density code
2511          * values are returned by ascending sequence, we start from the
2512          * last entry of density support data block descriptor.
2513          */
2514         p = 0;
2515         den_desc += num_den - 1;
2516         for (i = 0; i < num_den && p < NDENSITIES; i ++, den_desc --) {
2517                 if ((den_desc->pri_den != 0) && (den_desc->wrtok)) {
2518                         if (p != 0) {
2519                                 if (den_desc->pri_den >= den[p - 1]) {
2520                                         continue;
2521                                 }
2522                         }
2523                         den[p] = den_desc->pri_den;
2524                         deflt[p] = den_desc->deflt;
2525                         p ++;
2526                 }
2527         }
2528 
2529         switch (p) {
2530         case 0:
2531                 bzero(dp->densities, NDENSITIES);
2532                 dp->options |= ST_AUTODEN_OVERRIDE;
2533                 dp->default_density = MT_DENSITY4;
2534                 break;
2535 
2536         case 1:
2537                 (void) memset(dp->densities, den[0], NDENSITIES);
2538                 dp->options |= ST_AUTODEN_OVERRIDE;
2539                 dp->default_density = MT_DENSITY4;
2540                 break;
2541 
2542         case 2:
2543                 dp->densities[0] = den[1];
2544                 dp->densities[1] = den[1];
2545                 dp->densities[2] = den[0];
2546                 dp->densities[3] = den[0];
2547                 if (deflt[0]) {
2548                         dp->default_density = MT_DENSITY4;
2549                 } else {
2550                         dp->default_density = MT_DENSITY2;
2551                 }
2552                 break;
2553 
2554         case 3:
2555                 dp->densities[0] = den[2];
2556                 dp->densities[1] = den[1];
2557                 dp->densities[2] = den[0];
2558                 dp->densities[3] = den[0];
2559                 if (deflt[0]) {
2560                         dp->default_density = MT_DENSITY4;
2561                 } else if (deflt[1]) {
2562                         dp->default_density = MT_DENSITY2;
2563                 } else {
2564                         dp->default_density = MT_DENSITY1;
2565                 }
2566                 break;
2567 
2568         default:
2569                 for (i = p; i > p - NDENSITIES; i --) {
2570                         dp->densities[i - 1] = den[p - i];
2571                 }
2572                 if (deflt[0]) {
2573                         dp->default_density = MT_DENSITY4;
2574                 } else if (deflt[1]) {
2575                         dp->default_density = MT_DENSITY3;
2576                 } else if (deflt[2]) {
2577                         dp->default_density = MT_DENSITY2;
2578                 } else {
2579                         dp->default_density = MT_DENSITY1;
2580                 }
2581                 break;
2582         }
2583 
2584         bzero(dp->mediatype, NDENSITIES);
2585 
2586         kmem_free(den_header, buflen);
2587         return (1);
2588 }
2589 
2590 static int
2591 st_get_timeout_values_from_tape_drive(struct scsi_tape *un,
2592     struct st_drivetype *dp)
2593 {
2594         ushort_t timeout;
2595         int rval;
2596 
2597         ST_FUNC(ST_DEVINFO, st_get_timeout_values_from_type_drive);
2598 
2599         rval = st_get_timeouts_value(un, SCMD_ERASE, &timeout, 0);
2600         if (rval) {
2601                 if (rval == EACCES) {
2602                         un->un_dp->type = ST_TYPE_INVALID;
2603                         dp->type = ST_TYPE_INVALID;
2604                         return (1);
2605                 }
2606                 return (0);
2607         }
2608         dp->erase_timeout = timeout;
2609 
2610         rval = st_get_timeouts_value(un, SCMD_READ, &timeout, 0);
2611         if (rval) {
2612                 if (rval == EACCES) {
2613                         un->un_dp->type = ST_TYPE_INVALID;
2614                         dp->type = ST_TYPE_INVALID;
2615                         return (1);
2616                 }
2617                 return (0);
2618         }
2619         dp->io_timeout = timeout;
2620 
2621         rval = st_get_timeouts_value(un, SCMD_WRITE, &timeout, 0);
2622         if (rval) {
2623                 if (rval == EACCES) {
2624                         un->un_dp->type = ST_TYPE_INVALID;
2625                         dp->type = ST_TYPE_INVALID;
2626                         return (1);
2627                 }
2628                 return (0);
2629         }
2630         dp->io_timeout = max(dp->io_timeout, timeout);
2631 
2632         rval = st_get_timeouts_value(un, SCMD_SPACE, &timeout, 0);
2633         if (rval) {
2634                 if (rval == EACCES) {
2635                         un->un_dp->type = ST_TYPE_INVALID;
2636                         dp->type = ST_TYPE_INVALID;
2637                         return (1);
2638                 }
2639                 return (0);
2640         }
2641         dp->space_timeout = timeout;
2642 
2643         rval = st_get_timeouts_value(un, SCMD_LOAD, &timeout, 0);
2644         if (rval) {
2645                 if (rval == EACCES) {
2646                         un->un_dp->type = ST_TYPE_INVALID;
2647                         dp->type = ST_TYPE_INVALID;
2648                         return (1);
2649                 }
2650                 return (0);
2651         }
2652         dp->load_timeout = timeout;
2653         dp->unload_timeout = timeout;
2654 
2655         rval = st_get_timeouts_value(un, SCMD_REWIND, &timeout, 0);
2656         if (rval) {
2657                 if (rval == EACCES) {
2658                         un->un_dp->type = ST_TYPE_INVALID;
2659                         dp->type = ST_TYPE_INVALID;
2660                         return (1);
2661                 }
2662                 return (0);
2663         }
2664         dp->rewind_timeout = timeout;
2665 
2666         rval = st_get_timeouts_value(un, SCMD_INQUIRY, &timeout, 0);
2667         if (rval) {
2668                 if (rval == EACCES) {
2669                         un->un_dp->type = ST_TYPE_INVALID;
2670                         dp->type = ST_TYPE_INVALID;
2671                         return (1);
2672                 }
2673                 return (0);
2674         }
2675         dp->non_motion_timeout = timeout;
2676 
2677         return (1);
2678 }
2679 
2680 static int
2681 st_get_timeouts_value(struct scsi_tape *un, uchar_t option_code,
2682     ushort_t *timeout_value, ushort_t service_action)
2683 {
2684         uchar_t *timeouts;
2685         uchar_t *oper;
2686         uchar_t support;
2687         uchar_t cdbsize;
2688         uchar_t ctdp;
2689         size_t buflen;
2690         int rval;
2691 
2692         ST_FUNC(ST_DEVINFO, st_get_timeouts_value);
2693 
2694         buflen = sizeof (struct one_com_des) +
2695             sizeof (struct com_timeout_des);
2696         oper = kmem_zalloc(buflen, KM_SLEEP);
2697         rval = st_report_supported_operation(un, oper, option_code,
2698             service_action);
2699 
2700         if (rval) {
2701                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2702                     "st_get_timeouts_value(): "
2703                     "fail to timeouts value for command %d.\n", option_code);
2704                 kmem_free(oper, buflen);
2705                 return (rval);
2706         }
2707 
2708         support = ((struct one_com_des *)oper)->support;
2709         if ((support != SUPPORT_VALUES_SUPPORT_SCSI) &&
2710             (support != SUPPORT_VALUES_SUPPORT_VENDOR)) {
2711                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2712                     "st_get_timeouts_value(): "
2713                     "command %d is not supported.\n", option_code);
2714                 kmem_free(oper, buflen);
2715                 return (ENOTSUP);
2716         }
2717 
2718         ctdp = ((struct one_com_des *)oper)->ctdp;
2719         if (!ctdp) {
2720                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2721                     "st_get_timeouts_value(): "
2722                     "command timeout is not included.\n");
2723                 kmem_free(oper, buflen);
2724                 return (ENOTSUP);
2725         }
2726 
2727         cdbsize = BE_16(((struct one_com_des *)oper)->cdb_size);
2728         timeouts = (uchar_t *)(oper + cdbsize + 4);
2729 
2730         /*
2731          * Timeout value in seconds is 4 bytes, but we only support the lower 2
2732          * bytes. If the higher 2 bytes are not zero, the timeout value is set
2733          * to 0xFFFF.
2734          */
2735         if (*(timeouts + 8) != 0 || *(timeouts + 9) != 0) {
2736                 *timeout_value = USHRT_MAX;
2737         } else {
2738                 *timeout_value = ((*(timeouts + 10)) << 8) |
2739                     (*(timeouts + 11));
2740         }
2741 
2742         kmem_free(oper, buflen);
2743         return (0);
2744 }
2745 
2746 static int
2747 st_get_default_conf(struct scsi_tape *un, char *vidpid, struct st_drivetype *dp)
2748 {
2749         int i;
2750 
2751         ST_FUNC(ST_DEVINFO, st_get_default_conf);
2752 
2753         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
2754             "st_get_default_conf(): making drivetype from INQ cmd\n");
2755 
2756         /*
2757          * Make up a name
2758          */
2759         bcopy("Vendor '", dp->name, 8);
2760         bcopy(vidpid, &dp->name[8], VIDLEN);
2761         bcopy("' Product '", &dp->name[16], 11);
2762         bcopy(&vidpid[8], &dp->name[27], PIDLEN);
2763         dp->name[ST_NAMESIZE - 2] = '\'';
2764         dp->name[ST_NAMESIZE - 1] = '\0';
2765         dp->length = min(strlen(ST_INQUIRY->inq_vid), (VIDPIDLEN - 1));
2766         (void) strncpy(dp->vid, ST_INQUIRY->inq_vid, dp->length);
2767         /*
2768          * 'clean' vendor and product strings of non-printing chars
2769          */
2770         for (i = 0; i < ST_NAMESIZE - 2; i++) {
2771                 if (dp->name[i] < ' ' || dp->name[i] > '~') {
2772                         dp->name[i] = '.';
2773                 }
2774         }
2775         dp->type = ST_TYPE_INVALID;
2776         dp->options |= (ST_DYNAMIC | ST_UNLOADABLE | ST_MODE_SEL_COMP);
2777 
2778         return (1); /* Can Not Fail */
2779 }
2780 
2781 /*
2782  * Regular Unix Entry points
2783  */
2784 
2785 
2786 
2787 /* ARGSUSED */
2788 static int
2789 st_open(dev_t *dev_p, int flag, int otyp, cred_t *cred_p)
2790 {
2791         dev_t dev = *dev_p;
2792         int rval = 0;
2793 
2794         GET_SOFT_STATE(dev);
2795 
2796         ST_ENTR(ST_DEVINFO, st_open);
2797 
2798         /*
2799          * validate that we are addressing a sensible unit
2800          */
2801         mutex_enter(ST_MUTEX);
2802 
2803         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
2804             "st_open(node = %s dev = 0x%lx, flag = %d, otyp = %d)\n",
2805             st_dev_name(dev), *dev_p, flag, otyp);
2806 
2807         /*
2808          * All device accesss go thru st_strategy() where we check
2809          * suspend status
2810          */
2811 
2812         if (!un->un_attached) {
2813                 st_known_tape_type(un);
2814                 if (!un->un_attached) {
2815                         rval = ENXIO;
2816                         goto exit;
2817                 }
2818 
2819         }
2820 
2821         /*
2822          * Check for the case of the tape in the middle of closing.
2823          * This isn't simply a check of the current state, because
2824          * we could be in state of sensing with the previous state
2825          * that of closing.
2826          *
2827          * And don't allow multiple opens.
2828          */
2829         if (!(flag & (FNDELAY | FNONBLOCK)) && IS_CLOSING(un)) {
2830                 un->un_laststate = un->un_state;
2831                 un->un_state = ST_STATE_CLOSE_PENDING_OPEN;
2832                 while (IS_CLOSING(un) ||
2833                     un->un_state == ST_STATE_CLOSE_PENDING_OPEN) {
2834                         if (cv_wait_sig(&un->un_clscv, ST_MUTEX) == 0) {
2835                                 rval = EINTR;
2836                                 un->un_state = un->un_laststate;
2837                                 goto exit;
2838                         }
2839                 }
2840         } else if (un->un_state != ST_STATE_CLOSED) {
2841                 rval = EBUSY;
2842                 goto busy;
2843         }
2844 
2845         /*
2846          * record current dev
2847          */
2848         un->un_dev = dev;
2849         un->un_oflags = flag;        /* save for use in st_tape_init() */
2850         un->un_errno = 0;    /* no errors yet */
2851         un->un_restore_pos = 0;
2852         un->un_rqs_state = 0;
2853 
2854         /*
2855          * If we are opening O_NDELAY, or O_NONBLOCK, we don't check for
2856          * anything, leave internal states alone, if fileno >= 0
2857          */
2858         if (flag & (FNDELAY | FNONBLOCK)) {
2859                 switch (un->un_pos.pmode) {
2860 
2861                 case invalid:
2862                         un->un_state = ST_STATE_OFFLINE;
2863                         break;
2864 
2865                 case legacy:
2866                         /*
2867                          * If position is anything other than rewound.
2868                          */
2869                         if (un->un_pos.fileno != 0 || un->un_pos.blkno != 0) {
2870                                 /*
2871                                  * set un_read_only/write-protect status.
2872                                  *
2873                                  * If the tape is not bot we can assume
2874                                  * that mspl->wp_status is set properly.
2875                                  * else
2876                                  * we need to do a mode sense/Tur once
2877                                  * again to get the actual tape status.(since
2878                                  * user might have replaced the tape)
2879                                  * Hence make the st state OFFLINE so that
2880                                  * we re-intialize the tape once again.
2881                                  */
2882                                 un->un_read_only =
2883                                     (un->un_oflags & FWRITE) ? RDWR : RDONLY;
2884                                 un->un_state = ST_STATE_OPEN_PENDING_IO;
2885                         } else {
2886                                 un->un_state = ST_STATE_OFFLINE;
2887                         }
2888                         break;
2889                 case logical:
2890                         if (un->un_pos.lgclblkno == 0) {
2891                                 un->un_state = ST_STATE_OFFLINE;
2892                         } else {
2893                                 un->un_read_only =
2894                                     (un->un_oflags & FWRITE) ? RDWR : RDONLY;
2895                                 un->un_state = ST_STATE_OPEN_PENDING_IO;
2896                         }
2897                         break;
2898                 }
2899                 rval = 0;
2900         } else {
2901                 /*
2902                  * Not opening O_NDELAY.
2903                  */
2904                 un->un_state = ST_STATE_OPENING;
2905 
2906                 /*
2907                  * Clear error entry stack
2908                  */
2909                 st_empty_error_stack(un);
2910 
2911                 rval = st_tape_init(un);
2912                 if ((rval == EACCES) && (un->un_read_only & WORM)) {
2913                         un->un_state = ST_STATE_OPEN_PENDING_IO;
2914                         rval = 0; /* so open doesn't fail */
2915                 } else if (rval) {
2916                         /*
2917                          * Release the tape unit, if reserved and not
2918                          * preserve reserve.
2919                          */
2920                         if ((un->un_rsvd_status &
2921                             (ST_RESERVE | ST_PRESERVE_RESERVE)) == ST_RESERVE) {
2922                                 (void) st_reserve_release(un, ST_RELEASE,
2923                                     st_uscsi_cmd);
2924                         }
2925                 } else {
2926                         un->un_state = ST_STATE_OPEN_PENDING_IO;
2927                 }
2928         }
2929 
2930 exit:
2931         /*
2932          * we don't want any uninvited guests scrogging our data when we're
2933          * busy with something, so for successful opens or failed opens
2934          * (except for EBUSY), reset these counters and state appropriately.
2935          */
2936         if (rval != EBUSY) {
2937                 if (rval) {
2938                         un->un_state = ST_STATE_CLOSED;
2939                 }
2940                 un->un_err_resid = 0;
2941                 un->un_retry_ct = 0;
2942         }
2943 busy:
2944         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
2945             "st_open: return val = %x, state = %d\n", rval, un->un_state);
2946         mutex_exit(ST_MUTEX);
2947         return (rval);
2948 
2949 }
2950 
2951 static int
2952 st_tape_init(struct scsi_tape *un)
2953 {
2954         int err;
2955         int rval = 0;
2956 
2957         ST_FUNC(ST_DEVINFO, st_tape_init);
2958 
2959         ASSERT(mutex_owned(ST_MUTEX));
2960 
2961         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
2962             "st_tape_init(un = 0x%p, oflags = %d)\n", (void*)un, un->un_oflags);
2963 
2964         /*
2965          * Clean up after any errors left by 'last' close.
2966          * This also handles the case of the initial open.
2967          */
2968         if (un->un_state != ST_STATE_INITIALIZING) {
2969                 un->un_laststate = un->un_state;
2970                 un->un_state = ST_STATE_OPENING;
2971         }
2972 
2973         un->un_kbytes_xferred = 0;
2974 
2975         /*
2976          * do a throw away TUR to clear check condition
2977          */
2978         err = st_cmd(un, SCMD_TEST_UNIT_READY, 0, SYNC_CMD);
2979 
2980         /*
2981          * If test unit ready fails because the drive is reserved
2982          * by another host fail the open for no access.
2983          */
2984         if (err) {
2985                 if (un->un_rsvd_status & ST_RESERVATION_CONFLICT) {
2986                         un->un_state = ST_STATE_CLOSED;
2987                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
2988                             "st_tape_init: RESERVATION CONFLICT\n");
2989                         rval = EACCES;
2990                         goto exit;
2991                 } else if ((un->un_rsvd_status &
2992                     ST_APPLICATION_RESERVATIONS) != 0) {
2993                         if ((ST_RQSENSE != NULL) &&
2994                             (ST_RQSENSE->es_add_code == 0x2a &&
2995                             ST_RQSENSE->es_qual_code == 0x03)) {
2996                                 un->un_state = ST_STATE_CLOSED;
2997                                 rval = EACCES;
2998                                 goto exit;
2999                         }
3000                 }
3001         }
3002 
3003         /*
3004          * Tape self identification could fail if the tape drive is used by
3005          * another host during attach time. We try to get the tape type
3006          * again. This is also applied to any posponed configuration methods.
3007          */
3008         if (un->un_dp->type == ST_TYPE_INVALID) {
3009                 un->un_comp_page = ST_DEV_DATACOMP_PAGE | ST_DEV_CONFIG_PAGE;
3010                 st_known_tape_type(un);
3011         }
3012 
3013         /*
3014          * If the tape type is still invalid, try to determine the generic
3015          * configuration.
3016          */
3017         if (un->un_dp->type == ST_TYPE_INVALID) {
3018                 rval = st_determine_generic(un);
3019                 if (rval) {
3020                         if (rval != EACCES) {
3021                                 rval = EIO;
3022                         }
3023                         un->un_state = ST_STATE_CLOSED;
3024                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3025                             "st_tape_init: %s invalid type\n",
3026                             rval == EACCES ? "EACCES" : "EIO");
3027                         goto exit;
3028                 }
3029                 /*
3030                  * If this is a Unknown Type drive,
3031                  * Use the READ BLOCK LIMITS to determine if
3032                  * allow large xfer is approprate if not globally
3033                  * disabled with st_allow_large_xfer.
3034                  */
3035                 un->un_allow_large_xfer = (uchar_t)st_allow_large_xfer;
3036         } else {
3037 
3038                 /*
3039                  * If we allow_large_xfer (ie >64k) and have not yet found out
3040                  * the max block size supported by the drive,
3041                  * find it by issueing a READ_BLKLIM command.
3042                  * if READ_BLKLIM cmd fails, assume drive doesn't
3043                  * allow_large_xfer and min/max block sizes as 1 byte and 63k.
3044                  */
3045                 un->un_allow_large_xfer = st_allow_large_xfer &&
3046                     (un->un_dp->options & ST_NO_RECSIZE_LIMIT);
3047         }
3048         /*
3049          * if maxbsize is unknown, set the maximum block size.
3050          */
3051         if (un->un_maxbsize == MAXBSIZE_UNKNOWN) {
3052 
3053                 /*
3054                  * Get the Block limits of the tape drive.
3055                  * if un->un_allow_large_xfer = 0 , then make sure
3056                  * that maxbsize is <= ST_MAXRECSIZE_FIXED.
3057                  */
3058                 un->un_rbl = kmem_zalloc(RBLSIZE, KM_SLEEP);
3059 
3060                 err = st_cmd(un, SCMD_READ_BLKLIM, RBLSIZE, SYNC_CMD);
3061                 if (err) {
3062                         /* Retry */
3063                         err = st_cmd(un, SCMD_READ_BLKLIM, RBLSIZE, SYNC_CMD);
3064                 }
3065                 if (!err) {
3066 
3067                         /*
3068                          * if cmd successful, use limit returned
3069                          */
3070                         un->un_maxbsize = (un->un_rbl->max_hi << 16) +
3071                             (un->un_rbl->max_mid << 8) +
3072                             un->un_rbl->max_lo;
3073                         un->un_minbsize = (un->un_rbl->min_hi << 8) +
3074                             un->un_rbl->min_lo;
3075                         un->un_data_mod = 1 << un->un_rbl->granularity;
3076                         if ((un->un_maxbsize == 0) ||
3077                             (un->un_allow_large_xfer == 0 &&
3078                             un->un_maxbsize > ST_MAXRECSIZE_FIXED)) {
3079                                 un->un_maxbsize = ST_MAXRECSIZE_FIXED;
3080 
3081                         } else if (un->un_dp->type == ST_TYPE_DEFAULT) {
3082                                 /*
3083                                  * Drive is not one that is configured, But the
3084                                  * READ BLOCK LIMITS tells us it can do large
3085                                  * xfers.
3086                                  */
3087                                 if (un->un_maxbsize > ST_MAXRECSIZE_FIXED) {
3088                                         un->un_dp->options |=
3089                                             ST_NO_RECSIZE_LIMIT;
3090                                 }
3091                                 /*
3092                                  * If max and mimimum block limits are the
3093                                  * same this is a fixed block size device.
3094                                  */
3095                                 if (un->un_maxbsize == un->un_minbsize) {
3096                                         un->un_dp->options &= ~ST_VARIABLE;
3097                                 }
3098                         }
3099 
3100                         if (un->un_minbsize == 0) {
3101                                 un->un_minbsize = 1;
3102                         }
3103 
3104                 } else { /* error on read block limits */
3105 
3106                         scsi_log(ST_DEVINFO, st_label, CE_NOTE,
3107                             "!st_tape_init: Error on READ BLOCK LIMITS,"
3108                             " errno = %d un_rsvd_status = 0x%X\n",
3109                             err, un->un_rsvd_status);
3110 
3111                         /*
3112                          * since read block limits cmd failed,
3113                          * do not allow large xfers.
3114                          * use old values in st_minphys
3115                          */
3116                         if (un->un_rsvd_status & ST_RESERVATION_CONFLICT) {
3117                                 rval = EACCES;
3118                         } else {
3119                                 un->un_allow_large_xfer = 0;
3120                                 scsi_log(ST_DEVINFO, st_label, CE_NOTE,
3121                                     "!Disabling large transfers\n");
3122 
3123                                 /*
3124                                  * we guess maxbsize and minbsize
3125                                  */
3126                                 if (un->un_bsize) {
3127                                         un->un_maxbsize = un->un_minbsize =
3128                                             un->un_bsize;
3129                                 } else {
3130                                         un->un_maxbsize = ST_MAXRECSIZE_FIXED;
3131                                         un->un_minbsize = 1;
3132                                 }
3133                                 /*
3134                                  * Data Mod must be set,
3135                                  * Even if read block limits fails.
3136                                  * Prevents Divide By Zero in st_rw().
3137                                  */
3138                                 un->un_data_mod = 1;
3139                         }
3140                 }
3141                 if (un->un_rbl) {
3142                         kmem_free(un->un_rbl, RBLSIZE);
3143                         un->un_rbl = NULL;
3144                 }
3145 
3146                 if (rval) {
3147                         goto exit;
3148                 }
3149         }
3150 
3151         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
3152             "maxdma = %d, maxbsize = %d, minbsize = %d, %s large xfer\n",
3153             un->un_maxdma, un->un_maxbsize, un->un_minbsize,
3154             (un->un_allow_large_xfer ? "ALLOW": "DON'T ALLOW"));
3155 
3156         err = st_cmd(un, SCMD_TEST_UNIT_READY, 0, SYNC_CMD);
3157 
3158         if (err != 0) {
3159                 if (err == EINTR) {
3160                         un->un_laststate = un->un_state;
3161                         un->un_state = ST_STATE_CLOSED;
3162                         rval = EINTR;
3163                         goto exit;
3164                 }
3165                 /*
3166                  * Make sure the tape is ready
3167                  */
3168                 un->un_pos.pmode = invalid;
3169                 if (un->un_status != KEY_UNIT_ATTENTION) {
3170                         /*
3171                          * allow open no media.  Subsequent MTIOCSTATE
3172                          * with media present will complete the open
3173                          * logic.
3174                          */
3175                         un->un_laststate = un->un_state;
3176                         if (un->un_oflags & (FNONBLOCK|FNDELAY)) {
3177                                 un->un_mediastate = MTIO_EJECTED;
3178                                 un->un_state = ST_STATE_OFFLINE;
3179                                 rval = 0;
3180                                 goto exit;
3181                         } else {
3182                                 un->un_state = ST_STATE_CLOSED;
3183                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3184                                     "st_tape_init EIO no media, not opened "
3185                                     "O_NONBLOCK|O_EXCL\n");
3186                                 rval = EIO;
3187                                 goto exit;
3188                         }
3189                 }
3190         }
3191 
3192         /*
3193          * On each open, initialize block size from drivetype struct,
3194          * as it could have been changed by MTSRSZ ioctl.
3195          * Now, ST_VARIABLE simply means drive is capable of variable
3196          * mode. All drives are assumed to support fixed records.
3197          * Hence, un_bsize tells what mode the drive is in.
3198          *      un_bsize        = 0     - variable record length
3199          *                      = x     - fixed record length is x
3200          */
3201         un->un_bsize = un->un_dp->bsize;
3202 
3203         /*
3204          * If saved position is valid go there
3205          */
3206         if (un->un_restore_pos) {
3207                 un->un_restore_pos = 0;
3208                 un->un_pos.fileno = un->un_save_fileno;
3209                 un->un_pos.blkno = un->un_save_blkno;
3210                 rval = st_validate_tapemarks(un, st_uscsi_cmd, &un->un_pos);
3211                 if (rval != 0) {
3212                         if (rval != EACCES) {
3213                                 rval = EIO;
3214                         }
3215                         un->un_laststate = un->un_state;
3216                         un->un_state = ST_STATE_CLOSED;
3217                         goto exit;
3218                 }
3219         }
3220 
3221         if (un->un_pos.pmode == invalid) {
3222                 rval = st_loadtape(un);
3223                 if (rval) {
3224                         if (rval != EACCES) {
3225                                 rval = EIO;
3226                         }
3227                         un->un_laststate = un->un_state;
3228                         un->un_state = ST_STATE_CLOSED;
3229                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3230                             "st_tape_init: %s can't open tape\n",
3231                             rval == EACCES ? "EACCES" : "EIO");
3232                         goto exit;
3233                 }
3234         }
3235 
3236         /*
3237          * do a mode sense to pick up state of current write-protect,
3238          * Could cause reserve and fail due to conflict.
3239          */
3240         if (un->un_unit_attention_flags) {
3241                 rval = st_modesense(un);
3242                 if (rval == EACCES) {
3243                         goto exit;
3244                 }
3245         }
3246 
3247         /*
3248          * If we are opening the tape for writing, check
3249          * to make sure that the tape can be written.
3250          */
3251         if (un->un_oflags & FWRITE) {
3252                 err = 0;
3253                 if (un->un_mspl->wp) {
3254                         un->un_status = KEY_WRITE_PROTECT;
3255                         un->un_laststate = un->un_state;
3256                         un->un_state = ST_STATE_CLOSED;
3257                         rval = EACCES;
3258                         /*
3259                          * STK sets the wp bit if volsafe tape is loaded.
3260                          */
3261                         if ((un->un_dp->type == MT_ISSTK9840) &&
3262                             (un->un_dp->options & ST_WORMABLE)) {
3263                                 un->un_read_only = RDONLY;
3264                         } else {
3265                                 goto exit;
3266                         }
3267                 } else {
3268                         un->un_read_only = RDWR;
3269                 }
3270         } else {
3271                 un->un_read_only = RDONLY;
3272         }
3273 
3274         if (un->un_dp->options & ST_WORMABLE &&
3275             un->un_unit_attention_flags) {
3276                 un->un_read_only |= un->un_wormable(un);
3277 
3278                 if (((un->un_read_only == WORM) ||
3279                     (un->un_read_only == RDWORM)) &&
3280                     ((un->un_oflags & FWRITE) == FWRITE)) {
3281                         un->un_status = KEY_DATA_PROTECT;
3282                         rval = EACCES;
3283                         ST_DEBUG4(ST_DEVINFO, st_label, CE_NOTE,
3284                             "read_only = %d eof = %d oflag = %d\n",
3285                             un->un_read_only, un->un_pos.eof, un->un_oflags);
3286                 }
3287         }
3288 
3289         /*
3290          * If we're opening the tape write-only, we need to
3291          * write 2 filemarks on the HP 1/2 inch drive, to
3292          * create a null file.
3293          */
3294         if ((un->un_read_only == RDWR) ||
3295             (un->un_read_only == WORM) && (un->un_oflags & FWRITE)) {
3296                 if (un->un_dp->options & ST_REEL) {
3297                         un->un_fmneeded = 2;
3298                 } else {
3299                         un->un_fmneeded = 1;
3300                 }
3301         } else {
3302                 un->un_fmneeded = 0;
3303         }
3304 
3305         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
3306             "fmneeded = %x\n", un->un_fmneeded);
3307 
3308         /*
3309          * Make sure the density can be selected correctly.
3310          * If WORM can only write at the append point which in most cases
3311          * isn't BOP. st_determine_density() with a B_WRITE only attempts
3312          * to set and try densities if a BOP.
3313          */
3314         if (st_determine_density(un,
3315             un->un_read_only == RDWR ? B_WRITE : B_READ)) {
3316                 un->un_status = KEY_ILLEGAL_REQUEST;
3317                 un->un_laststate = un->un_state;
3318                 un->un_state = ST_STATE_CLOSED;
3319                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
3320                     "st_tape_init: EIO can't determine density\n");
3321                 rval = EIO;
3322                 goto exit;
3323         }
3324 
3325         /*
3326          * Destroy the knowledge that we have 'determined'
3327          * density so that a later read at BOT comes along
3328          * does the right density determination.
3329          */
3330 
3331         un->un_density_known = 0;
3332 
3333 
3334         /*
3335          * Okay, the tape is loaded and either at BOT or somewhere past.
3336          * Mark the state such that any I/O or tape space operations
3337          * will get/set the right density, etc..
3338          */
3339         un->un_laststate = un->un_state;
3340         un->un_lastop = ST_OP_NIL;
3341         un->un_mediastate = MTIO_INSERTED;
3342         cv_broadcast(&un->un_state_cv);
3343 
3344         /*
3345          *  Set test append flag if writing.
3346          *  First write must check that tape is positioned correctly.
3347          */
3348         un->un_test_append = (un->un_oflags & FWRITE);
3349 
3350         /*
3351          * if there are pending unit attention flags.
3352          * Check that the media has not changed.
3353          */
3354         if (un->un_unit_attention_flags) {
3355                 rval = st_get_media_identification(un, st_uscsi_cmd);
3356                 if (rval != 0 && rval != EACCES) {
3357                         rval = EIO;
3358                 }
3359                 un->un_unit_attention_flags = 0;
3360         }
3361 
3362 exit:
3363         un->un_err_resid = 0;
3364         un->un_last_resid = 0;
3365         un->un_last_count = 0;
3366 
3367         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
3368             "st_tape_init: return val = %x\n", rval);
3369         return (rval);
3370 
3371 }
3372 
3373 
3374 
3375 /* ARGSUSED */
3376 static int
3377 st_close(dev_t dev, int flag, int otyp, cred_t *cred_p)
3378 {
3379         int err = 0;
3380         int count, last_state;
3381         minor_t minor = getminor(dev);
3382 #ifdef  __x86
3383         struct contig_mem *cp, *cp_temp;
3384 #endif
3385 
3386         GET_SOFT_STATE(dev);
3387 
3388         ST_ENTR(ST_DEVINFO, st_close);
3389 
3390         /*
3391          * wait till all cmds in the pipeline have been completed
3392          */
3393         mutex_enter(ST_MUTEX);
3394 
3395         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
3396             "st_close(dev = 0x%lx, flag = %d, otyp = %d)\n", dev, flag, otyp);
3397 
3398         st_wait_for_io(un);
3399 
3400         /* turn off persistent errors on close, as we want close to succeed */
3401         st_turn_pe_off(un);
3402 
3403         /*
3404          * set state to indicate that we are in process of closing
3405          */
3406         last_state = un->un_laststate = un->un_state;
3407         un->un_state = ST_STATE_CLOSING;
3408 
3409         ST_POS(ST_DEVINFO, "st_close1:", &un->un_pos);
3410 
3411         /*
3412          * BSD behavior:
3413          * a close always causes a silent span to the next file if we've hit
3414          * an EOF (but not yet read across it).
3415          */
3416         if ((minor & MT_BSD) && (un->un_pos.eof == ST_EOF)) {
3417                 if (un->un_pos.pmode != invalid) {
3418                         un->un_pos.fileno++;
3419                         un->un_pos.blkno = 0;
3420                 }
3421                 un->un_pos.eof = ST_NO_EOF;
3422         }
3423 
3424         /*
3425          * SVR4 behavior for skipping to next file:
3426          *
3427          * If we have not seen a filemark, space to the next file
3428          *
3429          * If we have already seen the filemark we are physically in the next
3430          * file and we only increment the filenumber
3431          */
3432         if (((minor & (MT_BSD | MT_NOREWIND)) == MT_NOREWIND) &&
3433             (flag & FREAD) &&               /* reading or at least asked to */
3434             (un->un_mediastate == MTIO_INSERTED) &&  /* tape loaded */
3435             (un->un_pos.pmode != invalid) &&         /* XXX position known */
3436             ((un->un_pos.blkno != 0) &&              /* inside a file */
3437             (un->un_lastop != ST_OP_WRITE) &&                /* Didn't just write */
3438             (un->un_lastop != ST_OP_WEOF))) {                /* or write filemarks */
3439                 switch (un->un_pos.eof) {
3440                 case ST_NO_EOF:
3441                         /*
3442                          * if we were reading and did not read the complete file
3443                          * skip to the next file, leaving the tape correctly
3444                          * positioned to read the first record of the next file
3445                          * Check first for REEL if we are at EOT by trying to
3446                          * read a block
3447                          */
3448                         if ((un->un_dp->options & ST_REEL) &&
3449                             (!(un->un_dp->options & ST_READ_IGNORE_EOFS)) &&
3450                             (un->un_pos.blkno == 0)) {
3451                                 if (st_cmd(un, SCMD_SPACE, Blk(1), SYNC_CMD)) {
3452                                         ST_DEBUG2(ST_DEVINFO, st_label,
3453                                             SCSI_DEBUG,
3454                                             "st_close : EIO can't space\n");
3455                                         err = EIO;
3456                                         goto error_out;
3457                                 }
3458                                 if (un->un_pos.eof >= ST_EOF_PENDING) {
3459                                         un->un_pos.eof = ST_EOT_PENDING;
3460                                         un->un_pos.fileno += 1;
3461                                         un->un_pos.blkno   = 0;
3462                                         break;
3463                                 }
3464                         }
3465                         if (st_cmd(un, SCMD_SPACE, Fmk(1), SYNC_CMD)) {
3466                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3467                                     "st_close: EIO can't space #2\n");
3468                                 err = EIO;
3469                                 goto error_out;
3470                         } else {
3471                                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
3472                                     "st_close2: fileno=%x,blkno=%x,eof=%x\n",
3473                                     un->un_pos.fileno, un->un_pos.blkno,
3474                                     un->un_pos.eof);
3475                                 un->un_pos.eof = ST_NO_EOF;
3476                         }
3477                         break;
3478 
3479                 case ST_EOF_PENDING:
3480                 case ST_EOF:
3481                         un->un_pos.fileno += 1;
3482                         un->un_pos.lgclblkno += 1;
3483                         un->un_pos.blkno   = 0;
3484                         un->un_pos.eof = ST_NO_EOF;
3485                         break;
3486 
3487                 case ST_EOT:
3488                 case ST_EOT_PENDING:
3489                 case ST_EOM:
3490                         /* nothing to do */
3491                         break;
3492                 default:
3493                         ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
3494                             "Undefined state 0x%x", un->un_pos.eof);
3495 
3496                 }
3497         }
3498 
3499 
3500         /*
3501          * For performance reasons (HP 88780), the driver should
3502          * postpone writing the second tape mark until just before a file
3503          * positioning ioctl is issued (e.g., rewind).  This means that
3504          * the user must not manually rewind the tape because the tape will
3505          * be missing the second tape mark which marks EOM.
3506          * However, this small performance improvement is not worth the risk.
3507          */
3508 
3509         /*
3510          * We need to back up over the filemark we inadvertently popped
3511          * over doing a read in between the two filemarks that constitute
3512          * logical eot for 1/2" tapes. Note that ST_EOT_PENDING is only
3513          * set while reading.
3514          *
3515          * If we happen to be at physical eot (ST_EOM) (writing case),
3516          * the writing of filemark(s) will clear the ST_EOM state, which
3517          * we don't want, so we save this state and restore it later.
3518          */
3519 
3520         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
3521             "flag=%x, fmneeded=%x, lastop=%x, eof=%x\n",
3522             flag, un->un_fmneeded, un->un_lastop, un->un_pos.eof);
3523 
3524         if (un->un_pos.eof == ST_EOT_PENDING) {
3525                 if (minor & MT_NOREWIND) {
3526                         if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD)) {
3527                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3528                                     "st_close: EIO can't space #3\n");
3529                                 err = EIO;
3530                                 goto error_out;
3531                         } else {
3532                                 un->un_pos.blkno = 0;
3533                                 un->un_pos.eof = ST_EOT;
3534                         }
3535                 } else {
3536                         un->un_pos.eof = ST_NO_EOF;
3537                 }
3538 
3539         /*
3540          * Do we need to write a file mark?
3541          *
3542          * only write filemarks if there are fmks to be written and
3543          *   - open for write (possibly read/write)
3544          *   - the last operation was a write
3545          * or:
3546          *   -  opened for wronly
3547          *   -  no data was written
3548          */
3549         } else if ((un->un_pos.pmode != invalid) &&
3550             (un->un_fmneeded > 0) &&
3551             (((flag & FWRITE) &&
3552             ((un->un_lastop == ST_OP_WRITE)||(un->un_lastop == ST_OP_WEOF))) ||
3553             ((flag == FWRITE) && (un->un_lastop == ST_OP_NIL)))) {
3554 
3555                 /* save ST_EOM state */
3556                 int was_at_eom = (un->un_pos.eof == ST_EOM) ? 1 : 0;
3557 
3558                 /*
3559                  * Note that we will write a filemark if we had opened
3560                  * the tape write only and no data was written, thus
3561                  * creating a null file.
3562                  *
3563                  * If the user already wrote one, we only have to write 1 more.
3564                  * If they wrote two, we don't have to write any.
3565                  */
3566 
3567                 count = un->un_fmneeded;
3568                 if (count > 0) {
3569                         if (st_cmd(un, SCMD_WRITE_FILE_MARK, count, SYNC_CMD)) {
3570                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3571                                     "st_close : EIO can't wfm\n");
3572                                 err = EIO;
3573                                 goto error_out;
3574                         }
3575                         if ((un->un_dp->options & ST_REEL) &&
3576                             (minor & MT_NOREWIND)) {
3577                                 if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD)) {
3578                                         ST_DEBUG2(ST_DEVINFO, st_label,
3579                                             SCSI_DEBUG,
3580                                             "st_close : EIO space fmk(-1)\n");
3581                                         err = EIO;
3582                                         goto error_out;
3583                                 }
3584                                 un->un_pos.eof = ST_NO_EOF;
3585                                 /* fix up block number */
3586                                 un->un_pos.blkno = 0;
3587                         }
3588                 }
3589 
3590                 /*
3591                  * If we aren't going to be rewinding, and we were at
3592                  * physical eot, restore the state that indicates we
3593                  * are at physical eot. Once you have reached physical
3594                  * eot, and you close the tape, the only thing you can
3595                  * do on the next open is to rewind. Access to trailer
3596                  * records is only allowed without closing the device.
3597                  */
3598                 if ((minor & MT_NOREWIND) == 0 && was_at_eom) {
3599                         un->un_pos.eof = ST_EOM;
3600                 }
3601         }
3602 
3603         /*
3604          * report soft errors if enabled and available, if we never accessed
3605          * the drive, don't get errors. This will prevent some DAT error
3606          * messages upon LOG SENSE.
3607          */
3608         if (st_report_soft_errors_on_close &&
3609             (un->un_dp->options & ST_SOFT_ERROR_REPORTING) &&
3610             (last_state != ST_STATE_OFFLINE)) {
3611                 if (st_report_soft_errors(dev, flag)) {
3612                         err = EIO;
3613                         goto error_out;
3614                 }
3615         }
3616 
3617 
3618         /*
3619          * Do we need to rewind? Can we rewind?
3620          */
3621         if ((minor & MT_NOREWIND) == 0 &&
3622             un->un_pos.pmode != invalid && err == 0) {
3623                 /*
3624                  * We'd like to rewind with the
3625                  * 'immediate' bit set, but this
3626                  * causes problems on some drives
3627                  * where subsequent opens get a
3628                  * 'NOT READY' error condition
3629                  * back while the tape is rewinding,
3630                  * which is impossible to distinguish
3631                  * from the condition of 'no tape loaded'.
3632                  *
3633                  * Also, for some targets, if you disconnect
3634                  * with the 'immediate' bit set, you don't
3635                  * actually return right away, i.e., the
3636                  * target ignores your request for immediate
3637                  * return.
3638                  *
3639                  * Instead, we'll fire off an async rewind
3640                  * command. We'll mark the device as closed,
3641                  * and any subsequent open will stall on
3642                  * the first TEST_UNIT_READY until the rewind
3643                  * completes.
3644                  */
3645 
3646                 /*
3647                  * Used to be if reserve was not supported we'd send an
3648                  * asynchronious rewind. Comments above may be slightly invalid
3649                  * as the immediate bit was never set. Doing an immedate rewind
3650                  * makes sense, I think fixes to not ready status might handle
3651                  * the problems described above.
3652                  */
3653                 if (un->un_sd->sd_inq->inq_ansi < 2) {
3654                         if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD)) {
3655                                 err = EIO;
3656                         }
3657                 } else {
3658                         /* flush data for older drives per scsi spec. */
3659                         if (st_cmd(un, SCMD_WRITE_FILE_MARK, 0, SYNC_CMD)) {
3660                                 err = EIO;
3661                         } else {
3662                                 /* release the drive before rewind immediate */
3663                                 if ((un->un_rsvd_status &
3664                                     (ST_RESERVE | ST_PRESERVE_RESERVE)) ==
3665                                     ST_RESERVE) {
3666                                         if (st_reserve_release(un, ST_RELEASE,
3667                                             st_uscsi_cmd)) {
3668                                                 err = EIO;
3669                                         }
3670                                 }
3671 
3672                                 /* send rewind with immediate bit set */
3673                                 if (st_cmd(un, SCMD_REWIND, 1, ASYNC_CMD)) {
3674                                         err = EIO;
3675                                 }
3676                         }
3677                 }
3678                 /*
3679                  * Setting positions invalid in case the rewind doesn't
3680                  * happen. Drives don't like to rewind if resets happen
3681                  * they will tend to move back to where the rewind was
3682                  * issued if a reset or something happens so that if a
3683                  * write happens the data doesn't get clobbered.
3684                  *
3685                  * Not a big deal if the position is invalid when the
3686                  * open occures it will do a read position.
3687                  */
3688                 un->un_pos.pmode = invalid;
3689                 un->un_running.pmode = invalid;
3690 
3691                 if (err == EIO) {
3692                         goto error_out;
3693                 }
3694         }
3695 
3696         /*
3697          * eject tape if necessary
3698          */
3699         if (un->un_eject_tape_on_failure) {
3700                 un->un_eject_tape_on_failure = 0;
3701                 if (st_cmd(un, SCMD_LOAD, LD_UNLOAD, SYNC_CMD)) {
3702                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3703                             "st_close : can't unload tape\n");
3704                         err = EIO;
3705                         goto error_out;
3706                 } else {
3707                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3708                             "st_close : tape unloaded \n");
3709                         un->un_pos.eof = ST_NO_EOF;
3710                         un->un_mediastate = MTIO_EJECTED;
3711                 }
3712         }
3713         /*
3714          * Release the tape unit, if default reserve/release
3715          * behaviour.
3716          */
3717         if ((un->un_rsvd_status &
3718             (ST_RESERVE | ST_PRESERVE_RESERVE |
3719             ST_APPLICATION_RESERVATIONS)) == ST_RESERVE) {
3720                 (void) st_reserve_release(un, ST_RELEASE, st_uscsi_cmd);
3721         }
3722 error_out:
3723         /*
3724          * clear up state
3725          */
3726         un->un_laststate = un->un_state;
3727         un->un_state = ST_STATE_CLOSED;
3728         un->un_lastop = ST_OP_NIL;
3729         un->un_throttle = 1; /* assume one request at time, for now */
3730         un->un_retry_ct = 0;
3731         un->un_errno = 0;
3732         un->un_swr_token = (opaque_t)NULL;
3733         un->un_rsvd_status &= ~(ST_INIT_RESERVE);
3734 
3735         /* Restore the options to the init time settings */
3736         if (un->un_init_options & ST_READ_IGNORE_ILI) {
3737                 un->un_dp->options |= ST_READ_IGNORE_ILI;
3738         } else {
3739                 un->un_dp->options &= ~ST_READ_IGNORE_ILI;
3740         }
3741 
3742         if (un->un_init_options & ST_READ_IGNORE_EOFS) {
3743                 un->un_dp->options |= ST_READ_IGNORE_EOFS;
3744         } else {
3745                 un->un_dp->options &= ~ST_READ_IGNORE_EOFS;
3746         }
3747 
3748         if (un->un_init_options & ST_SHORT_FILEMARKS) {
3749                 un->un_dp->options |= ST_SHORT_FILEMARKS;
3750         } else {
3751                 un->un_dp->options &= ~ST_SHORT_FILEMARKS;
3752         }
3753 
3754         ASSERT(mutex_owned(ST_MUTEX));
3755 
3756         /*
3757          * Signal anyone awaiting a close operation to complete.
3758          */
3759         cv_signal(&un->un_clscv);
3760 
3761         /*
3762          * any kind of error on closing causes all state to be tossed
3763          */
3764         if (err && un->un_status != KEY_ILLEGAL_REQUEST) {
3765                 /*
3766                  * note that st_intr has already set
3767                  * un_pos.pmode to invalid.
3768                  */
3769                 un->un_density_known = 0;
3770         }
3771 
3772 #ifdef  __x86
3773         /*
3774          * free any contiguous mem alloc'ed for big block I/O
3775          */
3776         cp = un->un_contig_mem;
3777         while (cp) {
3778                 if (cp->cm_addr) {
3779                         ddi_dma_mem_free(&cp->cm_acc_hdl);
3780                 }
3781                 cp_temp = cp;
3782                 cp = cp->cm_next;
3783                 kmem_free(cp_temp,
3784                     sizeof (struct contig_mem) + biosize());
3785         }
3786         un->un_contig_mem_total_num = 0;
3787         un->un_contig_mem_available_num = 0;
3788         un->un_contig_mem = NULL;
3789         un->un_max_contig_mem_len = 0;
3790 #endif
3791 
3792         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
3793             "st_close3: return val = %x, fileno=%x, blkno=%x, eof=%x\n",
3794             err, un->un_pos.fileno, un->un_pos.blkno, un->un_pos.eof);
3795 
3796         mutex_exit(ST_MUTEX);
3797         return (err);
3798 }
3799 
3800 /*
3801  * These routines perform raw i/o operations.
3802  */
3803 
3804 /* ARGSUSED2 */
3805 static int
3806 st_aread(dev_t dev, struct aio_req *aio, cred_t *cred_p)
3807 {
3808 #ifdef STDEBUG
3809         GET_SOFT_STATE(dev);
3810         ST_ENTR(ST_DEVINFO, st_aread);
3811 #endif
3812         return (st_arw(dev, aio, B_READ));
3813 }
3814 
3815 
3816 /* ARGSUSED2 */
3817 static int
3818 st_awrite(dev_t dev, struct aio_req *aio, cred_t *cred_p)
3819 {
3820 #ifdef STDEBUG
3821         GET_SOFT_STATE(dev);
3822         ST_ENTR(ST_DEVINFO, st_awrite);
3823 #endif
3824         return (st_arw(dev, aio, B_WRITE));
3825 }
3826 
3827 
3828 
3829 /* ARGSUSED */
3830 static int
3831 st_read(dev_t dev, struct uio *uiop, cred_t *cred_p)
3832 {
3833 #ifdef STDEBUG
3834         GET_SOFT_STATE(dev);
3835         ST_ENTR(ST_DEVINFO, st_read);
3836 #endif
3837         return (st_rw(dev, uiop, B_READ));
3838 }
3839 
3840 /* ARGSUSED */
3841 static int
3842 st_write(dev_t dev, struct uio *uiop, cred_t *cred_p)
3843 {
3844 #ifdef STDEBUG
3845         GET_SOFT_STATE(dev);
3846         ST_ENTR(ST_DEVINFO, st_write);
3847 #endif
3848         return (st_rw(dev, uiop, B_WRITE));
3849 }
3850 
3851 /*
3852  * Due to historical reasons, old limits are: For variable-length devices:
3853  * if greater than 64KB - 1 (ST_MAXRECSIZE_VARIABLE), block into 64 KB - 2
3854  * ST_MAXRECSIZE_VARIABLE_LIMIT) requests; otherwise,
3855  * (let it through unmodified. For fixed-length record devices:
3856  * 63K (ST_MAXRECSIZE_FIXED) is max (default minphys).
3857  *
3858  * The new limits used are un_maxdma (retrieved using scsi_ifgetcap()
3859  * from the HBA) and un_maxbsize (retrieved by sending SCMD_READ_BLKLIM
3860  * command to the drive).
3861  *
3862  */
3863 static void
3864 st_minphys(struct buf *bp)
3865 {
3866         struct scsi_tape *un;
3867 
3868         un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
3869 
3870         ST_FUNC(ST_DEVINFO, st_minphys);
3871 
3872         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
3873             "st_minphys(bp = 0x%p): b_bcount = 0x%lx\n", (void *)bp,
3874             bp->b_bcount);
3875 
3876         if (un->un_allow_large_xfer) {
3877 
3878                 /*
3879                  * check un_maxbsize for variable length devices only
3880                  */
3881                 if (un->un_bsize == 0 && bp->b_bcount > un->un_maxbsize) {
3882                         bp->b_bcount = un->un_maxbsize;
3883                 }
3884                 /*
3885                  * can't go more that HBA maxdma limit in either fixed-length
3886                  * or variable-length tape drives.
3887                  */
3888                 if (bp->b_bcount > un->un_maxdma) {
3889                         bp->b_bcount = un->un_maxdma;
3890                 }
3891         } else {
3892 
3893                 /*
3894                  *  use old fixed limits
3895                  */
3896                 if (un->un_bsize == 0) {
3897                         if (bp->b_bcount > ST_MAXRECSIZE_VARIABLE) {
3898                                 bp->b_bcount = ST_MAXRECSIZE_VARIABLE_LIMIT;
3899                         }
3900                 } else {
3901                         if (bp->b_bcount > ST_MAXRECSIZE_FIXED) {
3902                                 bp->b_bcount = ST_MAXRECSIZE_FIXED;
3903                         }
3904                 }
3905         }
3906 
3907         /*
3908          * For regular raw I/O and Fixed Block length devices, make sure
3909          * the adjusted block count is a whole multiple of the device
3910          * block size.
3911          */
3912         if (bp != un->un_sbufp && un->un_bsize) {
3913                 bp->b_bcount -= (bp->b_bcount % un->un_bsize);
3914         }
3915 }
3916 
3917 static int
3918 st_rw(dev_t dev, struct uio *uio, int flag)
3919 {
3920         int rval = 0;
3921         long len;
3922 
3923         GET_SOFT_STATE(dev);
3924 
3925         ST_FUNC(ST_DEVINFO, st_rw);
3926 
3927         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
3928             "st_rw(dev = 0x%lx, flag = %s)\n", dev,
3929             (flag == B_READ ? rd_str: wr_str));
3930 
3931         /* get local copy of transfer length */
3932         len = uio->uio_iov->iov_len;
3933 
3934         mutex_enter(ST_MUTEX);
3935 
3936         /*
3937          * Clear error entry stack
3938          */
3939         st_empty_error_stack(un);
3940 
3941         /*
3942          * If in fixed block size mode and requested read or write
3943          * is not an even multiple of that block size.
3944          */
3945         if ((un->un_bsize != 0) && (len % un->un_bsize != 0)) {
3946                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
3947                     "%s: not modulo %d block size\n",
3948                     (flag == B_WRITE) ? wr_str : rd_str, un->un_bsize);
3949                 rval = EINVAL;
3950         }
3951 
3952         /* If device has set granularity in the READ_BLKLIM we honor it. */
3953         if ((un->un_data_mod != 0) && (len % un->un_data_mod != 0)) {
3954                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
3955                     "%s: not modulo %d device granularity\n",
3956                     (flag == B_WRITE) ? wr_str : rd_str, un->un_data_mod);
3957                 rval = EINVAL;
3958         }
3959 
3960         if (st_recov_sz != sizeof (recov_info) && un->un_multipath) {
3961                 scsi_log(ST_DEVINFO, st_label, CE_WARN, mp_misconf);
3962                 rval = EFAULT;
3963         }
3964 
3965         if (rval != 0) {
3966                 un->un_errno = rval;
3967                 mutex_exit(ST_MUTEX);
3968                 return (rval);
3969         }
3970 
3971         /*
3972          * Reset this so it can be set if Berkeley and read over a filemark.
3973          */
3974         un->un_silent_skip = 0;
3975         mutex_exit(ST_MUTEX);
3976 
3977         len = uio->uio_resid;
3978 
3979         rval = physio(st_queued_strategy, (struct buf *)NULL,
3980             dev, flag, st_minphys, uio);
3981         /*
3982          * if we have hit logical EOT during this xfer and there is not a
3983          * full residue, then set eof back  to ST_EOM to make sure that
3984          * the user will see at least one zero write
3985          * after this short write
3986          */
3987         mutex_enter(ST_MUTEX);
3988         if (un->un_pos.eof > ST_NO_EOF) {
3989                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
3990                 "eof=%d resid=%lx\n", un->un_pos.eof, uio->uio_resid);
3991         }
3992         if (un->un_pos.eof >= ST_EOM && (flag == B_WRITE)) {
3993                 if ((uio->uio_resid != len) && (uio->uio_resid != 0)) {
3994                         un->un_pos.eof = ST_EOM;
3995                 } else if (uio->uio_resid == len) {
3996                         un->un_pos.eof = ST_NO_EOF;
3997                 }
3998         }
3999 
4000         if (un->un_silent_skip && uio->uio_resid != len) {
4001                 un->un_pos.eof = ST_EOF;
4002                 un->un_pos.blkno = un->un_save_blkno;
4003                 un->un_pos.fileno--;
4004         }
4005 
4006         un->un_errno = rval;
4007 
4008         mutex_exit(ST_MUTEX);
4009 
4010         return (rval);
4011 }
4012 
4013 static int
4014 st_arw(dev_t dev, struct aio_req *aio, int flag)
4015 {
4016         struct uio *uio = aio->aio_uio;
4017         int rval = 0;
4018         long len;
4019 
4020         GET_SOFT_STATE(dev);
4021 
4022         ST_FUNC(ST_DEVINFO, st_arw);
4023 
4024         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4025             "st_arw(dev = 0x%lx, flag = %s)\n", dev,
4026             (flag == B_READ ? rd_str: wr_str));
4027 
4028         /* get local copy of transfer length */
4029         len = uio->uio_iov->iov_len;
4030 
4031         mutex_enter(ST_MUTEX);
4032 
4033         /*
4034          * If in fixed block size mode and requested read or write
4035          * is not an even multiple of that block size.
4036          */
4037         if ((un->un_bsize != 0) && (len % un->un_bsize != 0)) {
4038                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
4039                     "%s: not modulo %d block size\n",
4040                     (flag == B_WRITE) ? wr_str : rd_str, un->un_bsize);
4041                 rval = EINVAL;
4042         }
4043 
4044         /* If device has set granularity in the READ_BLKLIM we honor it. */
4045         if ((un->un_data_mod != 0) && (len % un->un_data_mod != 0)) {
4046                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
4047                     "%s: not modulo %d device granularity\n",
4048                     (flag == B_WRITE) ? wr_str : rd_str, un->un_data_mod);
4049                 rval = EINVAL;
4050         }
4051 
4052         if (st_recov_sz != sizeof (recov_info) && un->un_multipath) {
4053                 scsi_log(ST_DEVINFO, st_label, CE_WARN, mp_misconf);
4054                 rval = EFAULT;
4055         }
4056 
4057         if (rval != 0) {
4058                 un->un_errno = rval;
4059                 mutex_exit(ST_MUTEX);
4060                 return (rval);
4061         }
4062 
4063         mutex_exit(ST_MUTEX);
4064 
4065         len = uio->uio_resid;
4066 
4067         rval =
4068             aphysio(st_queued_strategy, anocancel, dev, flag, st_minphys, aio);
4069 
4070         /*
4071          * if we have hit logical EOT during this xfer and there is not a
4072          * full residue, then set eof back  to ST_EOM to make sure that
4073          * the user will see at least one zero write
4074          * after this short write
4075          *
4076          * we keep this here just in case the application is not using
4077          * persistent errors
4078          */
4079         mutex_enter(ST_MUTEX);
4080         if (un->un_pos.eof > ST_NO_EOF) {
4081                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4082                     "eof=%d resid=%lx\n", un->un_pos.eof, uio->uio_resid);
4083         }
4084         if (un->un_pos.eof >= ST_EOM && (flag == B_WRITE)) {
4085                 if ((uio->uio_resid != len) && (uio->uio_resid != 0)) {
4086                         un->un_pos.eof = ST_EOM;
4087                 } else if (uio->uio_resid == len &&
4088                     !(un->un_persistence && un->un_persist_errors)) {
4089                         un->un_pos.eof = ST_NO_EOF;
4090                 }
4091         }
4092         un->un_errno = rval;
4093         mutex_exit(ST_MUTEX);
4094 
4095         return (rval);
4096 }
4097 
4098 
4099 
4100 static int
4101 st_queued_strategy(buf_t *bp)
4102 {
4103         struct scsi_tape *un;
4104         char reading = bp->b_flags & B_READ;
4105         int wasopening = 0;
4106 
4107         /*
4108          * validate arguments
4109          */
4110         un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
4111         if (un == NULL) {
4112                 bp->b_resid = bp->b_bcount;
4113                 bioerror(bp, ENXIO);
4114                 ST_DEBUG6(NULL, st_label, SCSI_DEBUG,
4115                     "st_queued_strategy: ENXIO error exit\n");
4116                 biodone(bp);
4117                 return (0);
4118         }
4119 
4120         ST_ENTR(ST_DEVINFO, st_queued_strategy);
4121 
4122         mutex_enter(ST_MUTEX);
4123 
4124         while (un->un_pwr_mgmt == ST_PWR_SUSPENDED) {
4125                 cv_wait(&un->un_suspend_cv, ST_MUTEX);
4126         }
4127 
4128         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4129             "st_queued_strategy(): bcount=0x%lx, fileno=%d, blkno=%x, eof=%d\n",
4130             bp->b_bcount, un->un_pos.fileno, un->un_pos.blkno, un->un_pos.eof);
4131 
4132         /*
4133          * If persistent errors have been flagged, just nix this one. We wait
4134          * for any outstanding I/O's below, so we will be in order.
4135          */
4136         if (un->un_persistence && un->un_persist_errors) {
4137                 goto exit;
4138         }
4139 
4140         /*
4141          * If last command was non queued, wait till it finishes.
4142          */
4143         while (un->un_sbuf_busy) {
4144                 cv_wait(&un->un_sbuf_cv, ST_MUTEX);
4145                 /* woke up because of an error */
4146                 if (un->un_persistence && un->un_persist_errors) {
4147                         goto exit;
4148                 }
4149         }
4150 
4151         /*
4152          * s_buf and recovery commands shouldn't come here.
4153          */
4154         ASSERT(bp != un->un_recov_buf);
4155         ASSERT(bp != un->un_sbufp);
4156 
4157         /*
4158          * If we haven't done/checked reservation on the tape unit
4159          * do it now.
4160          */
4161         if ((un->un_rsvd_status &
4162             (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) == 0) {
4163                 if ((un->un_dp->options & ST_NO_RESERVE_RELEASE) == 0) {
4164                         if (st_reserve_release(un, ST_RESERVE, st_uscsi_cmd)) {
4165                                 st_bioerror(bp, un->un_errno);
4166                                 goto exit;
4167                         }
4168                 } else if (un->un_state == ST_STATE_OPEN_PENDING_IO) {
4169                         /*
4170                          * Enter here to restore position for possible
4171                          * resets when the device was closed and opened
4172                          * in O_NDELAY mode subsequently
4173                          */
4174                         un->un_state = ST_STATE_INITIALIZING;
4175                         (void) st_cmd(un, SCMD_TEST_UNIT_READY,
4176                             0, SYNC_CMD);
4177                         un->un_state = ST_STATE_OPEN_PENDING_IO;
4178                 }
4179                 un->un_rsvd_status |= ST_INIT_RESERVE;
4180         }
4181 
4182         /*
4183          * If we are offline, we have to initialize everything first.
4184          * This is to handle either when opened with O_NDELAY, or
4185          * we just got a new tape in the drive, after an offline.
4186          * We don't observe O_NDELAY past the open,
4187          * as it will not make sense for tapes.
4188          */
4189         if (un->un_state == ST_STATE_OFFLINE || un->un_restore_pos) {
4190                 /*
4191                  * reset state to avoid recursion
4192                  */
4193                 un->un_laststate = un->un_state;
4194                 un->un_state = ST_STATE_INITIALIZING;
4195                 if (st_tape_init(un)) {
4196                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4197                             "stioctl : OFFLINE init failure ");
4198                         un->un_state = ST_STATE_OFFLINE;
4199                         un->un_pos.pmode = invalid;
4200                         goto b_done_err;
4201                 }
4202                 /* un_restore_pos make invalid */
4203                 un->un_state = ST_STATE_OPEN_PENDING_IO;
4204                 un->un_restore_pos = 0;
4205         }
4206         /*
4207          * Check for legal operations
4208          */
4209         if (un->un_pos.pmode == invalid) {
4210                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4211                     "strategy with un->un_pos.pmode invalid\n");
4212                 goto b_done_err;
4213         }
4214 
4215         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4216             "st_queued_strategy(): regular io\n");
4217 
4218         /*
4219          * Process this first. If we were reading, and we're pending
4220          * logical eot, that means we've bumped one file mark too far.
4221          */
4222 
4223         /*
4224          * Recursion warning: st_cmd will route back through here.
4225          * Not anymore st_cmd will go through st_strategy()!
4226          */
4227         if (un->un_pos.eof == ST_EOT_PENDING) {
4228                 if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD)) {
4229                         un->un_pos.pmode = invalid;
4230                         un->un_density_known = 0;
4231                         goto b_done_err;
4232                 }
4233                 un->un_pos.blkno = 0; /* fix up block number.. */
4234                 un->un_pos.eof = ST_EOT;
4235         }
4236 
4237         /*
4238          * If we are in the process of opening, we may have to
4239          * determine/set the correct density. We also may have
4240          * to do a test_append (if QIC) to see whether we are
4241          * in a position to append to the end of the tape.
4242          *
4243          * If we're already at logical eot, we transition
4244          * to ST_NO_EOF. If we're at physical eot, we punt
4245          * to the switch statement below to handle.
4246          */
4247         if ((un->un_state == ST_STATE_OPEN_PENDING_IO) ||
4248             (un->un_test_append && (un->un_dp->options & ST_QIC))) {
4249 
4250                 if (un->un_state == ST_STATE_OPEN_PENDING_IO) {
4251                         if (st_determine_density(un, (int)reading)) {
4252                                 goto b_done_err;
4253                         }
4254                 }
4255 
4256                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4257                     "pending_io@fileno %d rw %d qic %d eof %d\n",
4258                     un->un_pos.fileno, (int)reading,
4259                     (un->un_dp->options & ST_QIC) ? 1 : 0,
4260                     un->un_pos.eof);
4261 
4262                 if (!reading && un->un_pos.eof != ST_EOM) {
4263                         if (un->un_pos.eof == ST_EOT) {
4264                                 un->un_pos.eof = ST_NO_EOF;
4265                         } else if (un->un_pos.pmode != invalid &&
4266                             (un->un_dp->options & ST_QIC)) {
4267                                 /*
4268                                  * st_test_append() will do it all
4269                                  */
4270                                 st_test_append(bp);
4271                                 mutex_exit(ST_MUTEX);
4272                                 return (0);
4273                         }
4274                 }
4275                 if (un->un_state == ST_STATE_OPEN_PENDING_IO) {
4276                         wasopening = 1;
4277                 }
4278                 un->un_laststate = un->un_state;
4279                 un->un_state = ST_STATE_OPEN;
4280         }
4281 
4282 
4283         /*
4284          * Process rest of END OF FILE and END OF TAPE conditions
4285          */
4286 
4287         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4288             "eof=%x, wasopening=%x\n",
4289             un->un_pos.eof, wasopening);
4290 
4291         switch (un->un_pos.eof) {
4292         case ST_EOM:
4293                 /*
4294                  * This allows writes to proceed past physical
4295                  * eot. We'll *really* be in trouble if the
4296                  * user continues blindly writing data too
4297                  * much past this point (unwind the tape).
4298                  * Physical eot really means 'early warning
4299                  * eot' in this context.
4300                  *
4301                  * Every other write from now on will succeed
4302                  * (if sufficient  tape left).
4303                  * This write will return with resid == count
4304                  * but the next one should be successful
4305                  *
4306                  * Note that we only transition to logical EOT
4307                  * if the last state wasn't the OPENING state.
4308                  * We explicitly prohibit running up to physical
4309                  * eot, closing the device, and then re-opening
4310                  * to proceed. Trailer records may only be gotten
4311                  * at by keeping the tape open after hitting eot.
4312                  *
4313                  * Also note that ST_EOM cannot be set by reading-
4314                  * this can only be set during writing. Reading
4315                  * up to the end of the tape gets a blank check
4316                  * or a double-filemark indication (ST_EOT_PENDING),
4317                  * and we prohibit reading after that point.
4318                  *
4319                  */
4320                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "EOM\n");
4321                 if (wasopening == 0) {
4322                         /*
4323                          * this allows st_rw() to reset it back to
4324                          * will see a zero write
4325                          */
4326                         un->un_pos.eof = ST_WRITE_AFTER_EOM;
4327                 }
4328                 un->un_status = SUN_KEY_EOT;
4329                 goto b_done;
4330 
4331         case ST_WRITE_AFTER_EOM:
4332         case ST_EOT:
4333                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "EOT\n");
4334                 un->un_status = SUN_KEY_EOT;
4335                 if (SVR4_BEHAVIOR && reading) {
4336                         goto b_done_err;
4337                 }
4338 
4339                 if (reading) {
4340                         goto b_done;
4341                 }
4342                 un->un_pos.eof = ST_NO_EOF;
4343                 break;
4344 
4345         case ST_EOF_PENDING:
4346                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4347                     "EOF PENDING\n");
4348                 un->un_status = SUN_KEY_EOF;
4349                 if (SVR4_BEHAVIOR) {
4350                         un->un_pos.eof = ST_EOF;
4351                         goto b_done;
4352                 }
4353                 /* FALLTHROUGH */
4354         case ST_EOF:
4355                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "EOF\n");
4356                 un->un_status = SUN_KEY_EOF;
4357                 if (SVR4_BEHAVIOR) {
4358                         goto b_done_err;
4359                 }
4360 
4361                 if (BSD_BEHAVIOR) {
4362                         un->un_pos.eof = ST_NO_EOF;
4363                         un->un_pos.fileno += 1;
4364                         un->un_pos.blkno   = 0;
4365                 }
4366 
4367                 if (reading) {
4368                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4369                             "now file %d (read)\n",
4370                             un->un_pos.fileno);
4371                         goto b_done;
4372                 }
4373                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4374                     "now file %d (write)\n", un->un_pos.fileno);
4375                 break;
4376         default:
4377                 un->un_status = 0;
4378                 break;
4379         }
4380 
4381         bp->b_flags &= ~(B_DONE);
4382         st_bioerror(bp, 0);
4383         bp->av_forw = NULL;
4384         bp->b_resid = 0;
4385         SET_BP_PKT(bp, 0);
4386 
4387 
4388         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4389             "st_queued_strategy: cmd=0x%p  count=%ld  resid=%ld flags=0x%x"
4390             " pkt=0x%p\n",
4391             (void *)bp->b_forw, bp->b_bcount,
4392             bp->b_resid, bp->b_flags, (void *)BP_PKT(bp));
4393 
4394 #ifdef  __x86
4395         /*
4396          * We will replace bp with a new bp that can do big blk xfer
4397          * if the requested xfer size is bigger than un->un_maxdma_arch
4398          *
4399          * Also, we need to make sure that we're handling real I/O
4400          * by checking group 0/1 SCSI I/O commands, if needed
4401          */
4402         if (bp->b_bcount > un->un_maxdma_arch &&
4403             ((uchar_t)(uintptr_t)bp->b_forw == SCMD_READ ||
4404             (uchar_t)(uintptr_t)bp->b_forw == SCMD_READ_G4 ||
4405             (uchar_t)(uintptr_t)bp->b_forw == SCMD_WRITE ||
4406             (uchar_t)(uintptr_t)bp->b_forw == SCMD_WRITE_G4)) {
4407                 mutex_exit(ST_MUTEX);
4408                 bp = st_get_bigblk_bp(bp);
4409                 mutex_enter(ST_MUTEX);
4410         }
4411 #endif
4412 
4413         /* put on wait queue */
4414         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4415             "st_queued_strategy: un->un_quef = 0x%p, bp = 0x%p\n",
4416             (void *)un->un_quef, (void *)bp);
4417 
4418         st_add_to_queue(&un->un_quef, &un->un_quel, un->un_quel, bp);
4419 
4420         ST_DO_KSTATS(bp, kstat_waitq_enter);
4421 
4422         st_start(un);
4423 
4424         mutex_exit(ST_MUTEX);
4425         return (0);
4426 
4427 b_done_err:
4428         st_bioerror(bp, EIO);
4429         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4430             "st_queued_strategy : EIO b_done_err\n");
4431 
4432 b_done:
4433         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4434             "st_queued_strategy: b_done\n");
4435 
4436 exit:
4437         /*
4438          * make sure no commands are outstanding or waiting before closing,
4439          * so we can guarantee order
4440          */
4441         st_wait_for_io(un);
4442         un->un_err_resid = bp->b_resid = bp->b_bcount;
4443 
4444         /* override errno here, if persistent errors were flagged */
4445         if (un->un_persistence && un->un_persist_errors)
4446                 bioerror(bp, un->un_errno);
4447 
4448         mutex_exit(ST_MUTEX);
4449 
4450         biodone(bp);
4451         ASSERT(mutex_owned(ST_MUTEX) == 0);
4452         return (0);
4453 }
4454 
4455 
4456 static int
4457 st_strategy(struct buf *bp)
4458 {
4459         struct scsi_tape *un;
4460 
4461         /*
4462          * validate arguments
4463          */
4464         un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
4465         if (un == NULL) {
4466                 bp->b_resid = bp->b_bcount;
4467                 bioerror(bp, ENXIO);
4468                 ST_DEBUG6(NULL, st_label, SCSI_DEBUG,
4469                     "st_strategy: ENXIO error exit\n");
4470 
4471                 biodone(bp);
4472                 return (0);
4473 
4474         }
4475 
4476         ST_ENTR(ST_DEVINFO, st_strategy);
4477 
4478         mutex_enter(ST_MUTEX);
4479 
4480         while (un->un_pwr_mgmt == ST_PWR_SUSPENDED) {
4481                 cv_wait(&un->un_suspend_cv, ST_MUTEX);
4482         }
4483 
4484         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4485             "st_strategy(): bcount=0x%lx, fileno=%d, blkno=%x, eof=%d\n",
4486             bp->b_bcount, un->un_pos.fileno, un->un_pos.blkno, un->un_pos.eof);
4487 
4488         ASSERT((bp == un->un_recov_buf) || (bp == un->un_sbufp));
4489 
4490         bp->b_flags &= ~(B_DONE);
4491         st_bioerror(bp, 0);
4492         bp->av_forw = NULL;
4493         bp->b_resid = 0;
4494         SET_BP_PKT(bp, 0);
4495 
4496 
4497         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4498             "st_strategy: cmd=0x%x  count=%ld  resid=%ld flags=0x%x"
4499             " pkt=0x%p\n",
4500             (unsigned char)(uintptr_t)bp->b_forw, bp->b_bcount,
4501             bp->b_resid, bp->b_flags, (void *)BP_PKT(bp));
4502         ST_DO_KSTATS(bp, kstat_waitq_enter);
4503 
4504         st_start(un);
4505 
4506         mutex_exit(ST_MUTEX);
4507         return (0);
4508 }
4509 
4510 /*
4511  * this routine spaces forward over filemarks
4512  */
4513 static int
4514 st_space_fmks(struct scsi_tape *un, int64_t count)
4515 {
4516         int rval = 0;
4517 
4518         ST_FUNC(ST_DEVINFO, st_space_fmks);
4519 
4520         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4521             "st_space_fmks(dev = 0x%lx, count = %"PRIx64")\n",
4522             un->un_dev, count);
4523 
4524         ASSERT(mutex_owned(ST_MUTEX));
4525 
4526         /*
4527          * the risk with doing only one space operation is that we
4528          * may accidentily jump in old data
4529          * the exabyte 8500 reading 8200 tapes cannot use KNOWS_EOD
4530          * because the 8200 does not append a marker; in order not to
4531          * sacrifice the fast file skip, we do a slow skip if the low
4532          * density device has been opened
4533          */
4534 
4535         if ((un->un_dp->options & ST_KNOWS_EOD) &&
4536             !((un->un_dp->type == ST_TYPE_EXB8500 &&
4537             MT_DENSITY(un->un_dev) == 0))) {
4538                 if (st_cmd(un, SCMD_SPACE, Fmk(count), SYNC_CMD)) {
4539                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4540                             "space_fmks : EIO can't do space cmd #1\n");
4541                         rval = EIO;
4542                 }
4543         } else {
4544                 while (count > 0) {
4545                         if (st_cmd(un, SCMD_SPACE, Fmk(1), SYNC_CMD)) {
4546                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4547                                     "space_fmks : EIO can't do space cmd #2\n");
4548                                 rval = EIO;
4549                                 break;
4550                         }
4551                         count -= 1;
4552                         /*
4553                          * read a block to see if we have reached
4554                          * end of medium (double filemark for reel or
4555                          * medium error for others)
4556                          */
4557                         if (count > 0) {
4558                                 if (st_cmd(un, SCMD_SPACE, Blk(1), SYNC_CMD)) {
4559                                         ST_DEBUG2(ST_DEVINFO, st_label,
4560                                             SCSI_DEBUG,
4561                                             "space_fmks : EIO can't do "
4562                                             "space cmd #3\n");
4563                                         rval = EIO;
4564                                         break;
4565                                 }
4566                                 if ((un->un_pos.eof >= ST_EOF_PENDING) &&
4567                                     (un->un_dp->options & ST_REEL)) {
4568                                         un->un_status = SUN_KEY_EOT;
4569                                         ST_DEBUG2(ST_DEVINFO, st_label,
4570                                             SCSI_DEBUG,
4571                                             "space_fmks : EIO ST_REEL\n");
4572                                         rval = EIO;
4573                                         break;
4574                                 } else if (IN_EOF(un->un_pos)) {
4575                                         un->un_pos.eof = ST_NO_EOF;
4576                                         un->un_pos.fileno++;
4577                                         un->un_pos.blkno = 0;
4578                                         count--;
4579                                 } else if (un->un_pos.eof > ST_EOF) {
4580                                         ST_DEBUG2(ST_DEVINFO, st_label,
4581                                             SCSI_DEBUG,
4582                                             "space_fmks, EIO > ST_EOF\n");
4583                                         rval = EIO;
4584                                         break;
4585                                 }
4586 
4587                         }
4588                 }
4589                 un->un_err_resid = count;
4590                 COPY_POS(&un->un_pos, &un->un_err_pos);
4591         }
4592         ASSERT(mutex_owned(ST_MUTEX));
4593         return (rval);
4594 }
4595 
4596 /*
4597  * this routine spaces to EOD
4598  *
4599  * it keeps track of the current filenumber and returns the filenumber after
4600  * the last successful space operation, we keep the number high because as
4601  * tapes are getting larger, the possibility of more and more files exist,
4602  * 0x100000 (1 Meg of files) probably will never have to be changed any time
4603  * soon
4604  */
4605 #define MAX_SKIP        0x100000 /* somewhat arbitrary */
4606 
4607 static int
4608 st_find_eod(struct scsi_tape *un)
4609 {
4610         tapepos_t savepos;
4611         int64_t sp_type;
4612         int result;
4613 
4614         if (un == NULL) {
4615                 return (-1);
4616         }
4617 
4618         ST_FUNC(ST_DEVINFO, st_find_eod);
4619 
4620         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4621             "st_find_eod(dev = 0x%lx): fileno = %d\n", un->un_dev,
4622             un->un_pos.fileno);
4623 
4624         ASSERT(mutex_owned(ST_MUTEX));
4625 
4626         COPY_POS(&savepos, &un->un_pos);
4627 
4628         /*
4629          * see if the drive is smart enough to do the skips in
4630          * one operation; 1/2" use two filemarks
4631          * the exabyte 8500 reading 8200 tapes cannot use KNOWS_EOD
4632          * because the 8200 does not append a marker; in order not to
4633          * sacrifice the fast file skip, we do a slow skip if the low
4634          * density device has been opened
4635          */
4636         if ((un->un_dp->options & ST_KNOWS_EOD) != 0) {
4637                 if ((un->un_dp->type == ST_TYPE_EXB8500) &&
4638                     (MT_DENSITY(un->un_dev) == 0)) {
4639                         sp_type = Fmk(1);
4640                 } else if (un->un_pos.pmode == logical) {
4641                         sp_type = SPACE(SP_EOD, 0);
4642                 } else {
4643                         sp_type = Fmk(MAX_SKIP);
4644                 }
4645         } else {
4646                 sp_type = Fmk(1);
4647         }
4648 
4649         for (;;) {
4650                 result = st_cmd(un, SCMD_SPACE, sp_type, SYNC_CMD);
4651 
4652                 if (result == 0) {
4653                         COPY_POS(&savepos, &un->un_pos);
4654                 }
4655 
4656                 if (sp_type == SPACE(SP_EOD, 0)) {
4657                         if (result != 0) {
4658                                 sp_type = Fmk(MAX_SKIP);
4659                                 continue;
4660                         }
4661 
4662                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4663                             "st_find_eod: 0x%"PRIx64"\n",
4664                             savepos.lgclblkno);
4665                         /*
4666                          * What we return will become the current file position.
4667                          * After completing the space command with the position
4668                          * mode that is not invalid a read position command will
4669                          * be automaticly issued. If the drive support the long
4670                          * read position format a valid file position can be
4671                          * returned.
4672                          */
4673                         return (un->un_pos.fileno);
4674                 }
4675 
4676                 if (result != 0) {
4677                         break;
4678                 }
4679 
4680                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4681                     "count=%"PRIx64", eof=%x, status=%x\n",
4682                     SPACE_CNT(sp_type),  un->un_pos.eof, un->un_status);
4683 
4684                 /*
4685                  * If we're not EOM smart,  space a record
4686                  * to see whether we're now in the slot between
4687                  * the two sequential filemarks that logical
4688                  * EOM consists of (REEL) or hit nowhere land
4689                  * (8mm).
4690                  */
4691                 if (sp_type == Fmk(1)) {
4692                         /*
4693                          * no fast skipping, check a record
4694                          */
4695                         if (st_cmd(un, SCMD_SPACE, Blk((1)), SYNC_CMD)) {
4696                                 break;
4697                         }
4698                         if ((un->un_pos.eof >= ST_EOF_PENDING) &&
4699                             (un->un_dp->options & ST_REEL)) {
4700                                 un->un_status = KEY_BLANK_CHECK;
4701                                 un->un_pos.fileno++;
4702                                 un->un_pos.blkno = 0;
4703                                 break;
4704                         }
4705                         if (IN_EOF(un->un_pos)) {
4706                                 un->un_pos.eof = ST_NO_EOF;
4707                                 un->un_pos.fileno++;
4708                                 un->un_pos.blkno = 0;
4709                         }
4710                         if (un->un_pos.eof > ST_EOF) {
4711                                 break;
4712                         }
4713                 } else {
4714                         if (un->un_pos.eof > ST_EOF) {
4715                                 break;
4716                         }
4717                 }
4718         }
4719 
4720         if (un->un_dp->options & ST_KNOWS_EOD) {
4721                 COPY_POS(&savepos, &un->un_pos);
4722         }
4723 
4724         ASSERT(mutex_owned(ST_MUTEX));
4725 
4726         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4727             "st_find_eod: %x\n", savepos.fileno);
4728         return (savepos.fileno);
4729 }
4730 
4731 
4732 /*
4733  * this routine is frequently used in ioctls below;
4734  * it determines whether we know the density and if not will
4735  * determine it
4736  * if we have written the tape before, one or more filemarks are written
4737  *
4738  * depending on the stepflag, the head is repositioned to where it was before
4739  * the filemarks were written in order not to confuse step counts
4740  */
4741 #define STEPBACK    0
4742 #define NO_STEPBACK 1
4743 
4744 static int
4745 st_check_density_or_wfm(dev_t dev, int wfm, int mode, int stepflag)
4746 {
4747 
4748         GET_SOFT_STATE(dev);
4749 
4750         ST_FUNC(ST_DEVINFO, st_check_density_or_wfm);
4751 
4752         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4753             "st_check_density_or_wfm(dev= 0x%lx, wfm= %d, mode= %d, stpflg= %d)"
4754             "\n", dev, wfm, mode, stepflag);
4755 
4756         ASSERT(mutex_owned(ST_MUTEX));
4757 
4758         /*
4759          * If we don't yet know the density of the tape we have inserted,
4760          * we have to either unconditionally set it (if we're 'writing'),
4761          * or we have to determine it. As side effects, check for any
4762          * write-protect errors, and for the need to put out any file-marks
4763          * before positioning a tape.
4764          *
4765          * If we are going to be spacing forward, and we haven't determined
4766          * the tape density yet, we have to do so now...
4767          */
4768         if (un->un_state == ST_STATE_OPEN_PENDING_IO) {
4769                 if (st_determine_density(un, mode)) {
4770                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4771                             "check_density_or_wfm : EIO can't determine "
4772                             "density\n");
4773                         un->un_errno = EIO;
4774                         return (EIO);
4775                 }
4776                 /*
4777                  * Presumably we are at BOT. If we attempt to write, it will
4778                  * either work okay, or bomb. We don't do a st_test_append
4779                  * unless we're past BOT.
4780                  */
4781                 un->un_laststate = un->un_state;
4782                 un->un_state = ST_STATE_OPEN;
4783 
4784         } else if (un->un_pos.pmode != invalid && un->un_fmneeded > 0 &&
4785             ((un->un_lastop == ST_OP_WEOF && wfm) ||
4786             (un->un_lastop == ST_OP_WRITE && wfm))) {
4787 
4788                 tapepos_t spos;
4789 
4790                 COPY_POS(&spos, &un->un_pos);
4791 
4792                 /*
4793                  * We need to write one or two filemarks.
4794                  * In the case of the HP, we need to
4795                  * position the head between the two
4796                  * marks.
4797                  */
4798                 if ((un->un_fmneeded > 0) || (un->un_lastop == ST_OP_WEOF)) {
4799                         wfm = un->un_fmneeded;
4800                         un->un_fmneeded = 0;
4801                 }
4802 
4803                 if (st_write_fm(dev, wfm)) {
4804                         un->un_pos.pmode = invalid;
4805                         un->un_density_known = 0;
4806                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4807                             "check_density_or_wfm : EIO can't write fm\n");
4808                         un->un_errno = EIO;
4809                         return (EIO);
4810                 }
4811 
4812                 if (stepflag == STEPBACK) {
4813                         if (st_cmd(un, SCMD_SPACE, Fmk(-wfm), SYNC_CMD)) {
4814                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4815                                     "check_density_or_wfm : EIO can't space "
4816                                     "(-wfm)\n");
4817                                 un->un_errno = EIO;
4818                                 return (EIO);
4819                         }
4820                         COPY_POS(&un->un_pos, &spos);
4821                 }
4822         }
4823 
4824         /*
4825          * Whatever we do at this point clears the state of the eof flag.
4826          */
4827 
4828         un->un_pos.eof = ST_NO_EOF;
4829 
4830         /*
4831          * If writing, let's check that we're positioned correctly
4832          * at the end of tape before issuing the next write.
4833          */
4834         if (un->un_read_only == RDWR) {
4835                 un->un_test_append = 1;
4836         }
4837 
4838         ASSERT(mutex_owned(ST_MUTEX));
4839         return (0);
4840 }
4841 
4842 
4843 /*
4844  * Wait for all outstaning I/O's to complete
4845  *
4846  * we wait on both ncmds and the wait queue for times when we are flushing
4847  * after persistent errors are flagged, which is when ncmds can be 0, and the
4848  * queue can still have I/O's.  This way we preserve order of biodone's.
4849  */
4850 static void
4851 st_wait_for_io(struct scsi_tape *un)
4852 {
4853         ST_FUNC(ST_DEVINFO, st_wait_for_io);
4854         ASSERT(mutex_owned(ST_MUTEX));
4855         while ((un->un_ncmds) || (un->un_quef) || (un->un_runqf)) {
4856                 cv_wait(&un->un_queue_cv, ST_MUTEX);
4857         }
4858 }
4859 
4860 /*
4861  * This routine implements the ioctl calls.  It is called
4862  * from the device switch at normal priority.
4863  */
4864 /*ARGSUSED*/
4865 static int
4866 st_ioctl(dev_t dev, int cmd, intptr_t arg, int flag, cred_t *cred_p,
4867     int *rval_p)
4868 {
4869         int tmp, rval = 0;
4870 
4871         GET_SOFT_STATE(dev);
4872 
4873         ST_ENTR(ST_DEVINFO, st_ioctl);
4874 
4875         mutex_enter(ST_MUTEX);
4876 
4877         ASSERT(un->un_recov_buf_busy == 0);
4878 
4879         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4880             "st_ioctl(): fileno=%x, blkno=%x, eof=%x, state = %d, "
4881             "pe_flag = %d\n",
4882             un->un_pos.fileno, un->un_pos.blkno, un->un_pos.eof, un->un_state,
4883             un->un_persistence && un->un_persist_errors);
4884 
4885         /*
4886          * We don't want to block on these, so let them through
4887          * and we don't care about setting driver states here.
4888          */
4889         if ((cmd == MTIOCGETDRIVETYPE) ||
4890             (cmd == MTIOCGUARANTEEDORDER) ||
4891             (cmd == MTIOCPERSISTENTSTATUS)) {
4892                 goto check_commands;
4893         }
4894 
4895         /*
4896          * We clear error entry stack except command
4897          * MTIOCGETERROR and MTIOCGET
4898          */
4899         if ((cmd != MTIOCGETERROR) &&
4900             (cmd != MTIOCGET)) {
4901                 st_empty_error_stack(un);
4902         }
4903 
4904         /*
4905          * wait for all outstanding commands to complete, or be dequeued.
4906          * And because ioctl's are synchronous commands, any return value
4907          * after this,  will be in order
4908          */
4909         st_wait_for_io(un);
4910 
4911         /*
4912          * allow only a through clear errors and persistent status, and
4913          * status
4914          */
4915         if (un->un_persistence && un->un_persist_errors) {
4916                 if ((cmd == MTIOCLRERR) ||
4917                     (cmd == MTIOCPERSISTENT) ||
4918                     (cmd == MTIOCGET)) {
4919                         goto check_commands;
4920                 } else {
4921                         rval = un->un_errno;
4922                         goto exit;
4923                 }
4924         }
4925 
4926         ASSERT(un->un_throttle != 0);
4927         un->un_throttle = 1; /* > 1 will never happen here */
4928         un->un_errno = 0;    /* start clean from here */
4929 
4930         /*
4931          * first and foremost, handle any ST_EOT_PENDING cases.
4932          * That is, if a logical eot is pending notice, notice it.
4933          */
4934         if (un->un_pos.eof == ST_EOT_PENDING) {
4935                 int resid = un->un_err_resid;
4936                 uchar_t status = un->un_status;
4937                 uchar_t lastop = un->un_lastop;
4938 
4939                 if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD)) {
4940                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4941                             "stioctl : EIO can't space fmk(-1)\n");
4942                         rval = EIO;
4943                         goto exit;
4944                 }
4945                 un->un_lastop = lastop; /* restore last operation */
4946                 if (status == SUN_KEY_EOF) {
4947                         un->un_status = SUN_KEY_EOT;
4948                 } else {
4949                         un->un_status = status;
4950                 }
4951                 un->un_err_resid  = resid;
4952                 /* fix up block number */
4953                 un->un_err_pos.blkno = un->un_pos.blkno = 0;
4954                 /* now we're at logical eot */
4955                 un->un_pos.eof = ST_EOT;
4956         }
4957 
4958         /*
4959          * now, handle the rest of the situations
4960          */
4961 check_commands:
4962         switch (cmd) {
4963         case MTIOCGET:
4964         {
4965 #ifdef _MULTI_DATAMODEL
4966                 /*
4967                  * For use when a 32 bit app makes a call into a
4968                  * 64 bit ioctl
4969                  */
4970                 struct mtget32          mtg_local32;
4971                 struct mtget32          *mtget_32 = &mtg_local32;
4972 #endif /* _MULTI_DATAMODEL */
4973 
4974                         /* Get tape status */
4975                 struct mtget mtg_local;
4976                 struct mtget *mtget = &mtg_local;
4977                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
4978                     "st_ioctl: MTIOCGET\n");
4979 
4980                 bzero((caddr_t)mtget, sizeof (struct mtget));
4981                 mtget->mt_erreg = un->un_status;
4982                 mtget->mt_resid = un->un_err_resid;
4983                 mtget->mt_dsreg = un->un_retry_ct;
4984                 if (un->un_err_pos.pmode == legacy) {
4985                         mtget->mt_fileno = un->un_err_pos.fileno;
4986                 } else {
4987                         mtget->mt_fileno = -1;
4988                 }
4989                 /*
4990                  * If the value is positive fine.
4991                  * If its negative we need to return a value based on the
4992                  * old way if counting backwards from INF (1,000,000,000).
4993                  */
4994                 if (un->un_err_pos.blkno >= 0) {
4995                         mtget->mt_blkno = un->un_err_pos.blkno;
4996                 } else {
4997                         mtget->mt_blkno = INF + 1 - (-un->un_err_pos.blkno);
4998                 }
4999                 mtget->mt_type = un->un_dp->type;
5000                 mtget->mt_flags = MTF_SCSI | MTF_ASF;
5001                 if (un->un_read_pos_type != NO_POS) {
5002                         mtget->mt_flags |= MTF_LOGICAL_BLOCK;
5003                 }
5004                 if (un->un_dp->options & ST_REEL) {
5005                         mtget->mt_flags |= MTF_REEL;
5006                         mtget->mt_bf = 20;
5007                 } else {                /* 1/4" cartridges */
5008                         switch (mtget->mt_type) {
5009                         /* Emulex cartridge tape */
5010                         case MT_ISMT02:
5011                                 mtget->mt_bf = 40;
5012                                 break;
5013                         default:
5014                                 mtget->mt_bf = 126;
5015                                 break;
5016                         }
5017                 }
5018 
5019                 /*
5020                  * If large transfers are allowed and drive options
5021                  * has no record size limit set. Calculate blocking
5022                  * factor from the lesser of maxbsize and maxdma.
5023                  */
5024                 if ((un->un_allow_large_xfer) &&
5025                     (un->un_dp->options & ST_NO_RECSIZE_LIMIT)) {
5026                         mtget->mt_bf = min(un->un_maxbsize,
5027                             un->un_maxdma) / SECSIZE;
5028                 }
5029 
5030                 if (un->un_read_only == WORM ||
5031                     un->un_read_only == RDWORM) {
5032                         mtget->mt_flags |= MTF_WORM_MEDIA;
5033                 }
5034 
5035                 /*
5036                  * In persistent error mode sending a non-queued can hang
5037                  * because this ioctl gets to be run without turning off
5038                  * persistense. Fake the answer based on previous info.
5039                  */
5040                 if (un->un_persistence) {
5041                         rval = 0;
5042                 } else {
5043                         rval = st_check_clean_bit(un);
5044                 }
5045                 if (rval == 0) {
5046                         /*
5047                          * If zero is returned or in persistent mode,
5048                          * use the old data.
5049                          */
5050                         if ((un->un_HeadClean & (TAPE_ALERT_SUPPORTED |
5051                             TAPE_SEQUENTIAL_SUPPORTED|TAPE_ALERT_NOT_SUPPORTED))
5052                             != TAPE_ALERT_NOT_SUPPORTED) {
5053                                 mtget->mt_flags |= MTF_TAPE_CLN_SUPPORTED;
5054                         }
5055                         if (un->un_HeadClean & (TAPE_PREVIOUSLY_DIRTY |
5056                             TAPE_ALERT_STILL_DIRTY)) {
5057                                 mtget->mt_flags |= MTF_TAPE_HEAD_DIRTY;
5058                         }
5059                 } else {
5060                         mtget->mt_flags |= (ushort_t)rval;
5061                         rval = 0;
5062                 }
5063 
5064                 un->un_status = 0;           /* Reset status */
5065                 un->un_err_resid = 0;
5066                 tmp = sizeof (struct mtget);
5067 
5068 #ifdef _MULTI_DATAMODEL
5069 
5070                 switch (ddi_model_convert_from(flag & FMODELS)) {
5071                 case DDI_MODEL_ILP32:
5072                         /*
5073                          * Convert 64 bit back to 32 bit before doing
5074                          * copyout. This is what the ILP32 app expects.
5075                          */
5076                         mtget_32->mt_erreg =         mtget->mt_erreg;
5077                         mtget_32->mt_resid =         mtget->mt_resid;
5078                         mtget_32->mt_dsreg =         mtget->mt_dsreg;
5079                         mtget_32->mt_fileno =        (daddr32_t)mtget->mt_fileno;
5080                         mtget_32->mt_blkno =         (daddr32_t)mtget->mt_blkno;
5081                         mtget_32->mt_type =          mtget->mt_type;
5082                         mtget_32->mt_flags =         mtget->mt_flags;
5083                         mtget_32->mt_bf =    mtget->mt_bf;
5084 
5085                         if (ddi_copyout(mtget_32, (void *)arg,
5086                             sizeof (struct mtget32), flag)) {
5087                                 rval = EFAULT;
5088                         }
5089                         break;
5090 
5091                 case DDI_MODEL_NONE:
5092                         if (ddi_copyout(mtget, (void *)arg, tmp, flag)) {
5093                                 rval = EFAULT;
5094                         }
5095                         break;
5096                 }
5097 #else /* ! _MULTI_DATAMODE */
5098                 if (ddi_copyout(mtget, (void *)arg, tmp, flag)) {
5099                         rval = EFAULT;
5100                 }
5101 #endif /* _MULTI_DATAMODE */
5102 
5103                 break;
5104         }
5105         case MTIOCGETERROR:
5106                         /*
5107                          * get error entry from error stack
5108                          */
5109                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5110                             "st_ioctl: MTIOCGETERROR\n");
5111 
5112                         rval = st_get_error_entry(un, arg, flag);
5113 
5114                         break;
5115 
5116         case MTIOCSTATE:
5117                 {
5118                         /*
5119                          * return when media presence matches state
5120                          */
5121                         enum mtio_state state;
5122 
5123                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5124                             "st_ioctl: MTIOCSTATE\n");
5125 
5126                         if (ddi_copyin((void *)arg, &state, sizeof (int), flag))
5127                                 rval = EFAULT;
5128 
5129                         mutex_exit(ST_MUTEX);
5130 
5131                         rval = st_check_media(dev, state);
5132 
5133                         mutex_enter(ST_MUTEX);
5134 
5135                         if (rval != 0) {
5136                                 break;
5137                         }
5138 
5139                         if (ddi_copyout(&un->un_mediastate, (void *)arg,
5140                             sizeof (int), flag))
5141                                 rval = EFAULT;
5142                         break;
5143 
5144                 }
5145 
5146         case MTIOCGETDRIVETYPE:
5147                 {
5148 #ifdef _MULTI_DATAMODEL
5149                 /*
5150                  * For use when a 32 bit app makes a call into a
5151                  * 64 bit ioctl
5152                  */
5153                 struct mtdrivetype_request32    mtdtrq32;
5154 #endif /* _MULTI_DATAMODEL */
5155 
5156                         /*
5157                          * return mtdrivetype
5158                          */
5159                         struct mtdrivetype_request mtdtrq;
5160                         struct mtdrivetype mtdrtyp;
5161                         struct mtdrivetype *mtdt = &mtdrtyp;
5162                         struct st_drivetype *stdt = un->un_dp;
5163 
5164                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5165                             "st_ioctl: MTIOCGETDRIVETYPE\n");
5166 
5167 #ifdef _MULTI_DATAMODEL
5168                 switch (ddi_model_convert_from(flag & FMODELS)) {
5169                 case DDI_MODEL_ILP32:
5170                 {
5171                         if (ddi_copyin((void *)arg, &mtdtrq32,
5172                             sizeof (struct mtdrivetype_request32), flag)) {
5173                                 rval = EFAULT;
5174                                 break;
5175                         }
5176                         mtdtrq.size = mtdtrq32.size;
5177                         mtdtrq.mtdtp =
5178                             (struct  mtdrivetype *)(uintptr_t)mtdtrq32.mtdtp;
5179                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5180                             "st_ioctl: size 0x%x\n", mtdtrq.size);
5181                         break;
5182                 }
5183                 case DDI_MODEL_NONE:
5184                         if (ddi_copyin((void *)arg, &mtdtrq,
5185                             sizeof (struct mtdrivetype_request), flag)) {
5186                                 rval = EFAULT;
5187                                 break;
5188                         }
5189                         break;
5190                 }
5191 
5192 #else /* ! _MULTI_DATAMODEL */
5193                 if (ddi_copyin((void *)arg, &mtdtrq,
5194                     sizeof (struct mtdrivetype_request), flag)) {
5195                         rval = EFAULT;
5196                         break;
5197                 }
5198 #endif /* _MULTI_DATAMODEL */
5199 
5200                         /*
5201                          * if requested size is < 0 then return
5202                          * error.
5203                          */
5204                         if (mtdtrq.size < 0) {
5205                                 rval = EINVAL;
5206                                 break;
5207                         }
5208                         bzero(mtdt, sizeof (struct mtdrivetype));
5209                         (void) strncpy(mtdt->name, stdt->name, ST_NAMESIZE);
5210                         (void) strncpy(mtdt->vid, stdt->vid, VIDPIDLEN - 1);
5211                         mtdt->type = stdt->type;
5212                         mtdt->bsize = stdt->bsize;
5213                         mtdt->options = stdt->options;
5214                         mtdt->max_rretries = stdt->max_rretries;
5215                         mtdt->max_wretries = stdt->max_wretries;
5216                         for (tmp = 0; tmp < NDENSITIES; tmp++) {
5217                                 mtdt->densities[tmp] = stdt->densities[tmp];
5218                         }
5219                         mtdt->default_density = stdt->default_density;
5220                         /*
5221                          * Speed hasn't been used since the hayday of reel tape.
5222                          * For all drives not setting the option ST_KNOWS_MEDIA
5223                          * the speed member renamed to mediatype are zeros.
5224                          * Those drives that have ST_KNOWS_MEDIA set use the
5225                          * new mediatype member which is used to figure the
5226                          * type of media loaded.
5227                          *
5228                          * So as to not break applications speed in the
5229                          * mtdrivetype structure is not renamed.
5230                          */
5231                         for (tmp = 0; tmp < NDENSITIES; tmp++) {
5232                                 mtdt->speeds[tmp] = stdt->mediatype[tmp];
5233                         }
5234                         mtdt->non_motion_timeout = stdt->non_motion_timeout;
5235                         mtdt->io_timeout = stdt->io_timeout;
5236                         mtdt->rewind_timeout = stdt->rewind_timeout;
5237                         mtdt->space_timeout = stdt->space_timeout;
5238                         mtdt->load_timeout = stdt->load_timeout;
5239                         mtdt->unload_timeout = stdt->unload_timeout;
5240                         mtdt->erase_timeout = stdt->erase_timeout;
5241 
5242                         /*
5243                          * Limit the maximum length of the result to
5244                          * sizeof (struct mtdrivetype).
5245                          */
5246                         tmp = sizeof (struct mtdrivetype);
5247                         if (mtdtrq.size < tmp)
5248                                 tmp = mtdtrq.size;
5249                         if (ddi_copyout(mtdt, mtdtrq.mtdtp, tmp, flag)) {
5250                                 rval = EFAULT;
5251                         }
5252                         break;
5253                 }
5254         case MTIOCPERSISTENT:
5255 
5256                 if (ddi_copyin((void *)arg, &tmp, sizeof (tmp), flag)) {
5257                         rval = EFAULT;
5258                         break;
5259                 }
5260 
5261                 if (tmp) {
5262                         st_turn_pe_on(un);
5263                 } else {
5264                         st_turn_pe_off(un);
5265                 }
5266 
5267                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5268                     "st_ioctl: MTIOCPERSISTENT : persistence = %d\n",
5269                     un->un_persistence);
5270 
5271                 break;
5272 
5273         case MTIOCPERSISTENTSTATUS:
5274                 tmp = (int)un->un_persistence;
5275 
5276                 if (ddi_copyout(&tmp, (void *)arg, sizeof (tmp), flag)) {
5277                         rval = EFAULT;
5278                 }
5279                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5280                     "st_ioctl: MTIOCPERSISTENTSTATUS:persistence = %d\n",
5281                     un->un_persistence);
5282 
5283                 break;
5284 
5285         case MTIOCLRERR:
5286                 {
5287                         /* clear persistent errors */
5288 
5289                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5290                             "st_ioctl: MTIOCLRERR\n");
5291 
5292                         st_clear_pe(un);
5293 
5294                         break;
5295                 }
5296 
5297         case MTIOCGUARANTEEDORDER:
5298                 {
5299                         /*
5300                          * this is just a holder to make a valid ioctl and
5301                          * it won't be in any earlier release
5302                          */
5303                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5304                             "st_ioctl: MTIOCGUARANTEEDORDER\n");
5305 
5306                         break;
5307                 }
5308 
5309         case MTIOCRESERVE:
5310                 {
5311                         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
5312                             "st_ioctl: MTIOCRESERVE\n");
5313 
5314                         /*
5315                          * Check if Reserve/Release is supported.
5316                          */
5317                         if (un->un_dp->options & ST_NO_RESERVE_RELEASE) {
5318                                 rval = ENOTTY;
5319                                 break;
5320                         }
5321 
5322                         rval = st_reserve_release(un, ST_RESERVE, st_uscsi_cmd);
5323 
5324                         if (rval == 0) {
5325                                 un->un_rsvd_status |= ST_PRESERVE_RESERVE;
5326                         }
5327                         break;
5328                 }
5329 
5330         case MTIOCRELEASE:
5331                 {
5332                         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
5333                             "st_ioctl: MTIOCRELEASE\n");
5334 
5335                         /*
5336                          * Check if Reserve/Release is supported.
5337                          */
5338                         if (un->un_dp->options & ST_NO_RESERVE_RELEASE) {
5339                                 rval = ENOTTY;
5340                                 break;
5341                         }
5342 
5343                         /*
5344                          * Used to just clear ST_PRESERVE_RESERVE which
5345                          * made the reservation release at next close.
5346                          * As the user may have opened and then done a
5347                          * persistant reservation we now need to drop
5348                          * the reservation without closing if the user
5349                          * attempts to do this.
5350                          */
5351                         rval = st_reserve_release(un, ST_RELEASE, st_uscsi_cmd);
5352 
5353                         un->un_rsvd_status &= ~ST_PRESERVE_RESERVE;
5354 
5355                         break;
5356                 }
5357 
5358         case MTIOCFORCERESERVE:
5359         {
5360                 ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
5361                     "st_ioctl: MTIOCFORCERESERVE\n");
5362 
5363                 /*
5364                  * Check if Reserve/Release is supported.
5365                  */
5366                 if (un->un_dp->options & ST_NO_RESERVE_RELEASE) {
5367                         rval = ENOTTY;
5368                         break;
5369                 }
5370                 /*
5371                  * allow only super user to run this.
5372                  */
5373                 if (drv_priv(cred_p) != 0) {
5374                         rval = EPERM;
5375                         break;
5376                 }
5377                 /*
5378                  * Throw away reserve,
5379                  * not using test-unit-ready
5380                  * since reserve can succeed without tape being
5381                  * present in the drive.
5382                  */
5383                 (void) st_reserve_release(un, ST_RESERVE, st_uscsi_cmd);
5384 
5385                 rval = st_take_ownership(un, st_uscsi_cmd);
5386 
5387                 break;
5388         }
5389 
5390         case USCSICMD:
5391         {
5392                 cred_t  *cr;
5393 
5394                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5395                     "st_ioctl: USCSICMD\n");
5396 
5397                 cr = ddi_get_cred();
5398                 if ((drv_priv(cred_p) != 0) && (drv_priv(cr) != 0)) {
5399                         rval = EPERM;
5400                 } else {
5401                         rval = st_uscsi_cmd(un, (struct uscsi_cmd *)arg, flag);
5402                 }
5403                 break;
5404         }
5405         case MTIOCTOP:
5406                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5407                     "st_ioctl: MTIOCTOP\n");
5408                 rval = st_mtioctop(un, arg, flag);
5409                 break;
5410 
5411         case MTIOCLTOP:
5412                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5413                     "st_ioctl: MTIOLCTOP\n");
5414                 rval = st_mtiocltop(un, arg, flag);
5415                 break;
5416 
5417         case MTIOCREADIGNOREILI:
5418                 {
5419                         int set_ili;
5420 
5421                         if (ddi_copyin((void *)arg, &set_ili,
5422                             sizeof (set_ili), flag)) {
5423                                 rval = EFAULT;
5424                                 break;
5425                         }
5426 
5427                         if (un->un_bsize) {
5428                                 rval = ENOTTY;
5429                                 break;
5430                         }
5431 
5432                         switch (set_ili) {
5433                         case 0:
5434                                 un->un_dp->options &= ~ST_READ_IGNORE_ILI;
5435                                 break;
5436 
5437                         case 1:
5438                                 un->un_dp->options |= ST_READ_IGNORE_ILI;
5439                                 break;
5440 
5441                         default:
5442                                 rval = EINVAL;
5443                                 break;
5444                         }
5445                         break;
5446                 }
5447 
5448         case MTIOCREADIGNOREEOFS:
5449                 {
5450                         int ignore_eof;
5451 
5452                         if (ddi_copyin((void *)arg, &ignore_eof,
5453                             sizeof (ignore_eof), flag)) {
5454                                 rval = EFAULT;
5455                                 break;
5456                         }
5457 
5458                         if (!(un->un_dp->options & ST_REEL)) {
5459                                 rval = ENOTTY;
5460                                 break;
5461                         }
5462 
5463                         switch (ignore_eof) {
5464                         case 0:
5465                                 un->un_dp->options &= ~ST_READ_IGNORE_EOFS;
5466                                 break;
5467 
5468                         case 1:
5469                                 un->un_dp->options |= ST_READ_IGNORE_EOFS;
5470                                 break;
5471 
5472                         default:
5473                                 rval = EINVAL;
5474                                 break;
5475                         }
5476                         break;
5477                 }
5478 
5479         case MTIOCSHORTFMK:
5480         {
5481                 int short_fmk;
5482 
5483                 if (ddi_copyin((void *)arg, &short_fmk,
5484                     sizeof (short_fmk), flag)) {
5485                         rval = EFAULT;
5486                         break;
5487                 }
5488 
5489                 switch (un->un_dp->type) {
5490                 case ST_TYPE_EXB8500:
5491                 case ST_TYPE_EXABYTE:
5492                         if (!short_fmk) {
5493                                 un->un_dp->options &= ~ST_SHORT_FILEMARKS;
5494                         } else if (short_fmk == 1) {
5495                                 un->un_dp->options |= ST_SHORT_FILEMARKS;
5496                         } else {
5497                                 rval = EINVAL;
5498                         }
5499                         break;
5500 
5501                 default:
5502                         rval = ENOTTY;
5503                         break;
5504                 }
5505                 break;
5506         }
5507 
5508         case MTIOCGETPOS:
5509                 rval = st_update_block_pos(un, st_cmd, 0);
5510                 if (rval == 0) {
5511                         if (ddi_copyout((void *)&un->un_pos, (void *)arg,
5512                             sizeof (tapepos_t), flag)) {
5513                                 scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
5514                                     "MTIOCGETPOS copy out failed\n");
5515                                 rval = EFAULT;
5516                         }
5517                 }
5518                 break;
5519 
5520         case MTIOCRESTPOS:
5521         {
5522                 tapepos_t dest;
5523 
5524                 if (ddi_copyin((void *)arg, &dest, sizeof (tapepos_t),
5525                     flag) != 0) {
5526                         scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
5527                             "MTIOCRESTPOS copy in failed\n");
5528                         rval = EFAULT;
5529                         break;
5530                 }
5531                 rval = st_validate_tapemarks(un, st_uscsi_cmd, &dest);
5532                 if (rval != 0) {
5533                         rval = EIO;
5534                 }
5535                 break;
5536         }
5537         default:
5538                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5539                     "st_ioctl: unknown ioctl\n");
5540                 rval = ENOTTY;
5541         }
5542 
5543 exit:
5544         if (!(un->un_persistence && un->un_persist_errors)) {
5545                 un->un_errno = rval;
5546         }
5547 
5548         mutex_exit(ST_MUTEX);
5549 
5550         return (rval);
5551 }
5552 
5553 
5554 /*
5555  * do some MTIOCTOP tape operations
5556  */
5557 static int
5558 st_mtioctop(struct scsi_tape *un, intptr_t arg, int flag)
5559 {
5560 #ifdef _MULTI_DATAMODEL
5561         /*
5562          * For use when a 32 bit app makes a call into a
5563          * 64 bit ioctl
5564          */
5565         struct mtop32   mtop_32_for_64;
5566 #endif /* _MULTI_DATAMODEL */
5567         struct mtop passed;
5568         struct mtlop local;
5569         int rval = 0;
5570 
5571         ST_FUNC(ST_DEVINFO, st_mtioctop);
5572 
5573         ASSERT(mutex_owned(ST_MUTEX));
5574 
5575 #ifdef _MULTI_DATAMODEL
5576         switch (ddi_model_convert_from(flag & FMODELS)) {
5577         case DDI_MODEL_ILP32:
5578                 if (ddi_copyin((void *)arg, &mtop_32_for_64,
5579                     sizeof (struct mtop32), flag)) {
5580                         return (EFAULT);
5581                 }
5582                 local.mt_op = mtop_32_for_64.mt_op;
5583                 local.mt_count =  (int64_t)mtop_32_for_64.mt_count;
5584                 break;
5585 
5586         case DDI_MODEL_NONE:
5587                 if (ddi_copyin((void *)arg, &passed, sizeof (passed), flag)) {
5588                         return (EFAULT);
5589                 }
5590                 local.mt_op = passed.mt_op;
5591                 /* prevent sign extention */
5592                 local.mt_count = (UINT32_MAX & passed.mt_count);
5593                 break;
5594         }
5595 
5596 #else /* ! _MULTI_DATAMODEL */
5597         if (ddi_copyin((void *)arg, &passed, sizeof (passed), flag)) {
5598                 return (EFAULT);
5599         }
5600         local.mt_op = passed.mt_op;
5601         /* prevent sign extention */
5602         local.mt_count = (UINT32_MAX & passed.mt_count);
5603 #endif /* _MULTI_DATAMODEL */
5604 
5605         rval = st_do_mtioctop(un, &local);
5606 
5607 #ifdef _MULTI_DATAMODEL
5608         switch (ddi_model_convert_from(flag & FMODELS)) {
5609         case DDI_MODEL_ILP32:
5610                 if (((uint64_t)local.mt_count) > UINT32_MAX) {
5611                         rval = ERANGE;
5612                         break;
5613                 }
5614                 /*
5615                  * Convert 64 bit back to 32 bit before doing
5616                  * copyout. This is what the ILP32 app expects.
5617                  */
5618                 mtop_32_for_64.mt_op = local.mt_op;
5619                 mtop_32_for_64.mt_count = local.mt_count;
5620 
5621                 if (ddi_copyout(&mtop_32_for_64, (void *)arg,
5622                     sizeof (struct mtop32), flag)) {
5623                         rval = EFAULT;
5624                 }
5625                 break;
5626 
5627         case DDI_MODEL_NONE:
5628                 passed.mt_count = local.mt_count;
5629                 passed.mt_op = local.mt_op;
5630                 if (ddi_copyout(&passed, (void *)arg, sizeof (passed), flag)) {
5631                         rval = EFAULT;
5632                 }
5633                 break;
5634         }
5635 #else /* ! _MULTI_DATAMODE */
5636         if (((uint64_t)local.mt_count) > UINT32_MAX) {
5637                 rval = ERANGE;
5638         } else {
5639                 passed.mt_op = local.mt_op;
5640                 passed.mt_count = local.mt_count;
5641                 if (ddi_copyout(&passed, (void *)arg, sizeof (passed), flag)) {
5642                         rval = EFAULT;
5643                 }
5644         }
5645 #endif /* _MULTI_DATAMODE */
5646 
5647 
5648         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
5649             "st_ioctl: fileno=%x, blkno=%x, eof=%x\n", un->un_pos.fileno,
5650             un->un_pos.blkno, un->un_pos.eof);
5651 
5652         if (un->un_pos.pmode == invalid) {
5653                 un->un_density_known = 0;
5654         }
5655 
5656         ASSERT(mutex_owned(ST_MUTEX));
5657         return (rval);
5658 }
5659 
5660 static int
5661 st_mtiocltop(struct scsi_tape *un, intptr_t arg, int flag)
5662 {
5663         struct mtlop local;
5664         int rval;
5665 
5666         ST_FUNC(ST_DEVINFO, st_mtiocltop);
5667         if (ddi_copyin((void *)arg, &local, sizeof (local), flag)) {
5668                 return (EFAULT);
5669         }
5670 
5671         rval = st_do_mtioctop(un, &local);
5672 
5673         if (ddi_copyout(&local, (void *)arg, sizeof (local), flag)) {
5674                 rval = EFAULT;
5675         }
5676         return (rval);
5677 }
5678 
5679 
5680 static int
5681 st_do_mtioctop(struct scsi_tape *un, struct mtlop *mtop)
5682 {
5683         dev_t dev = un->un_dev;
5684         int savefile;
5685         int rval = 0;
5686 
5687         ST_FUNC(ST_DEVINFO, st_do_mtioctop);
5688 
5689         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
5690             "st_do_mtioctop(): mt_op=%x\n", mtop->mt_op);
5691         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
5692             "fileno=%x, blkno=%x, eof=%x\n",
5693             un->un_pos.fileno, un->un_pos.blkno, un->un_pos.eof);
5694 
5695         un->un_status = 0;
5696 
5697         /*
5698          * if we are going to mess with a tape, we have to make sure we have
5699          * one and are not offline (i.e. no tape is initialized).  We let
5700          * commands pass here that don't actually touch the tape, except for
5701          * loading and initialization (rewinding).
5702          */
5703         if (un->un_state == ST_STATE_OFFLINE) {
5704                 switch (mtop->mt_op) {
5705                 case MTLOAD:
5706                 case MTNOP:
5707                         /*
5708                          * We don't want strategy calling st_tape_init here,
5709                          * so, change state
5710                          */
5711                         un->un_state = ST_STATE_INITIALIZING;
5712                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5713                             "st_do_mtioctop : OFFLINE state = %d\n",
5714                             un->un_state);
5715                         break;
5716                 default:
5717                         /*
5718                          * reinitialize by normal means
5719                          */
5720                         rval = st_tape_init(un);
5721                         if (rval) {
5722                                 un->un_state = ST_STATE_INITIALIZING;
5723                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5724                                     "st_do_mtioctop : OFFLINE init failure ");
5725                                 un->un_state = ST_STATE_OFFLINE;
5726                                 un->un_pos.pmode = invalid;
5727                                 if (rval != EACCES) {
5728                                         rval = EIO;
5729                                 }
5730                                 return (rval);
5731                         }
5732                         un->un_state = ST_STATE_OPEN_PENDING_IO;
5733                         break;
5734                 }
5735         }
5736 
5737         /*
5738          * If the file position is invalid, allow only those
5739          * commands that properly position the tape and fail
5740          * the rest with EIO
5741          */
5742         if (un->un_pos.pmode == invalid) {
5743                 switch (mtop->mt_op) {
5744                 case MTWEOF:
5745                 case MTRETEN:
5746                 case MTERASE:
5747                 case MTEOM:
5748                 case MTFSF:
5749                 case MTFSR:
5750                 case MTBSF:
5751                 case MTNBSF:
5752                 case MTBSR:
5753                 case MTSRSZ:
5754                 case MTGRSZ:
5755                 case MTSEEK:
5756                 case MTBSSF:
5757                 case MTFSSF:
5758                         return (EIO);
5759                         /* NOTREACHED */
5760                 case MTREW:
5761                 case MTLOAD:
5762                 case MTOFFL:
5763                 case MTNOP:
5764                 case MTTELL:
5765                 case MTLOCK:
5766                 case MTUNLOCK:
5767                         break;
5768 
5769                 default:
5770                         return (ENOTTY);
5771                         /* NOTREACHED */
5772                 }
5773         }
5774 
5775         switch (mtop->mt_op) {
5776         case MTERASE:
5777                 /*
5778                  * MTERASE rewinds the tape, erase it completely, and returns
5779                  * to the beginning of the tape
5780                  */
5781                 if (un->un_mspl->wp || un->un_read_only & WORM) {
5782                         un->un_status = KEY_WRITE_PROTECT;
5783                         un->un_err_resid = mtop->mt_count;
5784                         COPY_POS(&un->un_err_pos, &un->un_pos);
5785                         return (EACCES);
5786                 }
5787                 if (un->un_dp->options & ST_REEL) {
5788                         un->un_fmneeded = 2;
5789                 } else {
5790                         un->un_fmneeded = 1;
5791                 }
5792                 mtop->mt_count = mtop->mt_count ? 1 : 0;
5793                 if (st_check_density_or_wfm(dev, 1, B_WRITE, NO_STEPBACK) ||
5794                     st_cmd(un, SCMD_REWIND, 0, SYNC_CMD) ||
5795                     st_cmd(un, SCMD_ERASE, mtop->mt_count, SYNC_CMD)) {
5796                         un->un_pos.pmode = invalid;
5797                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5798                             "st_do_mtioctop : EIO space or erase or "
5799                             "check den)\n");
5800                         rval = EIO;
5801                 } else {
5802                         /* QIC and helical scan rewind after erase */
5803                         if (un->un_dp->options & ST_REEL) {
5804                                 (void) st_cmd(un, SCMD_REWIND, 0, ASYNC_CMD);
5805                         }
5806                 }
5807                 break;
5808 
5809         case MTWEOF:
5810                 /*
5811                  * write an end-of-file record
5812                  */
5813                 if (un->un_mspl->wp || un->un_read_only & RDONLY) {
5814                         un->un_status = KEY_WRITE_PROTECT;
5815                         un->un_err_resid = mtop->mt_count;
5816                         COPY_POS(&un->un_err_pos, &un->un_pos);
5817                         return (EACCES);
5818                 }
5819 
5820                 /*
5821                  * zero count means just flush buffers
5822                  * negative count is not permitted
5823                  */
5824                 if (mtop->mt_count < 0) {
5825                         return (EINVAL);
5826                 }
5827 
5828                 /* Not on worm */
5829                 if (un->un_read_only == RDWR) {
5830                         un->un_test_append = 1;
5831                 }
5832 
5833                 if (un->un_state == ST_STATE_OPEN_PENDING_IO) {
5834                         if (st_determine_density(un, B_WRITE)) {
5835                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5836                                     "st_do_mtioctop : EIO : MTWEOF can't "
5837                                     "determine density");
5838                                 return (EIO);
5839                         }
5840                 }
5841 
5842                 rval = st_write_fm(dev, (int)mtop->mt_count);
5843                 if ((rval != 0) && (rval != EACCES)) {
5844                         /*
5845                          * Failure due to something other than illegal
5846                          * request results in loss of state (st_intr).
5847                          */
5848                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5849                             "st_do_mtioctop : EIO : MTWEOF can't write "
5850                             "file mark");
5851                         rval = EIO;
5852                 }
5853                 break;
5854 
5855         case MTRETEN:
5856                 /*
5857                  * retension the tape
5858                  */
5859                 if (st_check_density_or_wfm(dev, 1, 0, NO_STEPBACK) ||
5860                     st_cmd(un, SCMD_LOAD, LD_LOAD | LD_RETEN, SYNC_CMD)) {
5861                         un->un_pos.pmode = invalid;
5862                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5863                             "st_do_mtioctop : EIO : MTRETEN ");
5864                         rval = EIO;
5865                 }
5866                 break;
5867 
5868         case MTREW:
5869                 /*
5870                  * rewind  the tape
5871                  */
5872                 if (st_check_density_or_wfm(dev, 1, 0, NO_STEPBACK)) {
5873                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5874                             "st_do_mtioctop : EIO:MTREW check "
5875                             "density/wfm failed");
5876                         return (EIO);
5877                 }
5878                 if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD)) {
5879                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5880                             "st_do_mtioctop : EIO : MTREW ");
5881                         rval = EIO;
5882                 }
5883                 break;
5884 
5885         case MTOFFL:
5886                 /*
5887                  * rewinds, and, if appropriate, takes the device offline by
5888                  * unloading the tape
5889                  */
5890                 if (st_check_density_or_wfm(dev, 1, 0, NO_STEPBACK)) {
5891                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5892                             "st_do_mtioctop :EIO:MTOFFL check "
5893                             "density/wfm failed");
5894                         return (EIO);
5895                 }
5896                 (void) st_cmd(un, SCMD_REWIND, 0, SYNC_CMD);
5897                 if (st_cmd(un, SCMD_LOAD, LD_UNLOAD, SYNC_CMD)) {
5898                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5899                             "st_do_mtioctop : EIO : MTOFFL");
5900                         return (EIO);
5901                 }
5902                 un->un_pos.eof = ST_NO_EOF;
5903                 un->un_laststate = un->un_state;
5904                 un->un_state = ST_STATE_OFFLINE;
5905                 un->un_mediastate = MTIO_EJECTED;
5906                 break;
5907 
5908         case MTLOAD:
5909                 /*
5910                  * This is to load a tape into the drive
5911                  * Note that if the tape is not loaded, the device will have
5912                  * to be opened via O_NDELAY or O_NONBLOCK.
5913                  */
5914                 /*
5915                  * Let's try and clean things up, if we are not
5916                  * initializing, and then send in the load command, no
5917                  * matter what.
5918                  *
5919                  * load after a media change by the user.
5920                  */
5921 
5922                 if (un->un_state > ST_STATE_INITIALIZING) {
5923                         (void) st_check_density_or_wfm(dev, 1, 0, NO_STEPBACK);
5924                 }
5925                 rval = st_cmd(un, SCMD_LOAD, LD_LOAD, SYNC_CMD);
5926                 /* Load command to a drive that doesn't support load */
5927                 if ((rval == EIO) &&
5928                     ((un->un_status == KEY_NOT_READY) &&
5929                         /* Medium not present */
5930                     (un->un_uscsi_rqs_buf->es_add_code == 0x3a) ||
5931                     ((un->un_status == KEY_ILLEGAL_REQUEST) &&
5932                     (un->un_dp->type == MT_ISSTK9840) &&
5933                         /* CSL not present */
5934                     (un->un_uscsi_rqs_buf->es_add_code == 0x80)))) {
5935                         rval = ENOTTY;
5936                         break;
5937                 } else if (rval != EACCES && rval != 0) {
5938                         rval = EIO;
5939                 }
5940                 if (rval) {
5941                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5942                             "st_do_mtioctop : %s : MTLOAD\n",
5943                             rval == EACCES ? "EACCES" : "EIO");
5944                         /*
5945                          * If load tape fails, who knows what happened...
5946                          */
5947                         un->un_pos.pmode = invalid;
5948                         break;
5949                 }
5950 
5951                 /*
5952                  * reset all counters appropriately using rewind, as if LOAD
5953                  * succeeds, we are at BOT
5954                  */
5955                 un->un_state = ST_STATE_INITIALIZING;
5956 
5957                 rval = st_tape_init(un);
5958                 if ((rval == EACCES) && (un->un_read_only & WORM)) {
5959                         rval = 0;
5960                         break;
5961                 }
5962 
5963                 if (rval != 0) {
5964                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5965                             "st_do_mtioctop : EIO : MTLOAD calls "
5966                             "st_tape_init\n");
5967                         rval = EIO;
5968                         un->un_state = ST_STATE_OFFLINE;
5969                 }
5970 
5971                 break;
5972 
5973         case MTNOP:
5974                 un->un_status = 0;           /* Reset status */
5975                 un->un_err_resid = 0;
5976                 mtop->mt_count = MTUNIT(dev);
5977                 break;
5978 
5979         case MTEOM:
5980                 /*
5981                  * positions the tape at a location just after the last file
5982                  * written on the tape. For cartridge and 8 mm, this after
5983                  * the last file mark; for reel, this is inbetween the two
5984                  * last 2 file marks
5985                  */
5986                 if ((un->un_pos.pmode == legacy && un->un_pos.eof >= ST_EOT) ||
5987                     (un->un_lastop == ST_OP_WRITE) ||
5988                     (un->un_lastop == ST_OP_WEOF)) {
5989                         /*
5990                          * If the command wants to move to logical end
5991                          * of media, and we're already there, we're done.
5992                          * If we were at logical eot, we reset the state
5993                          * to be *not* at logical eot.
5994                          *
5995                          * If we're at physical or logical eot, we prohibit
5996                          * forward space operations (unconditionally).
5997                          *
5998                          * Also if the last operation was a write of any
5999                          * kind the tape is at EOD.
6000                          */
6001                         return (0);
6002                 }
6003                 /*
6004                  * physical tape position may not be what we've been
6005                  * telling the user; adjust the request accordingly
6006                  */
6007                 if (IN_EOF(un->un_pos)) {
6008                         un->un_pos.fileno++;
6009                         un->un_pos.blkno = 0;
6010                 }
6011 
6012                 if (st_check_density_or_wfm(dev, 1, B_READ, NO_STEPBACK)) {
6013                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6014                             "st_do_mtioctop : EIO:MTEOM check density/wfm "
6015                             " failed");
6016                         return (EIO);
6017                 }
6018 
6019                 /*
6020                  * st_find_eod() returns the last fileno we knew about;
6021                  */
6022                 savefile = st_find_eod(un);
6023 
6024                 if ((un->un_status != KEY_BLANK_CHECK) &&
6025                     (un->un_status != SUN_KEY_EOT)) {
6026                         un->un_pos.pmode = invalid;
6027                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6028                             "st_do_mtioctop : EIO : MTEOM status check failed");
6029                         rval = EIO;
6030                 } else {
6031                         /*
6032                          * For 1/2" reel tapes assume logical EOT marked
6033                          * by two file marks or we don't care that we may
6034                          * be extending the last file on the tape.
6035                          */
6036                         if (un->un_dp->options & ST_REEL) {
6037                                 if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD)) {
6038                                         un->un_pos.pmode = invalid;
6039                                         ST_DEBUG2(ST_DEVINFO, st_label,
6040                                             SCSI_DEBUG,
6041                                             "st_do_mtioctop : EIO : MTEOM space"
6042                                             " cmd failed");
6043                                         rval = EIO;
6044                                         break;
6045                                 }
6046                                 /*
6047                                  * Fix up the block number.
6048                                  */
6049                                 un->un_pos.blkno = 0;
6050                                 un->un_err_pos.blkno = 0;
6051                         }
6052                         un->un_err_resid = 0;
6053                         un->un_pos.fileno = savefile;
6054                         un->un_pos.eof = ST_EOT;
6055                 }
6056                 un->un_status = 0;
6057                 break;
6058 
6059         case MTFSF:
6060                 MAX_SPACE_CNT(mtop->mt_count);
6061                 rval = st_mtfsf_ioctl(un, mtop->mt_count);
6062                 break;
6063 
6064         case MTFSR:
6065                 MAX_SPACE_CNT(mtop->mt_count);
6066                 rval = st_mtfsr_ioctl(un, mtop->mt_count);
6067                 break;
6068 
6069         case MTBSF:
6070                 MAX_SPACE_CNT(mtop->mt_count);
6071                 rval = st_mtbsf_ioctl(un, mtop->mt_count);
6072                 break;
6073 
6074         case MTNBSF:
6075                 MAX_SPACE_CNT(mtop->mt_count);
6076                 rval = st_mtnbsf_ioctl(un, mtop->mt_count);
6077                 break;
6078 
6079         case MTBSR:
6080                 MAX_SPACE_CNT(mtop->mt_count);
6081                 rval = st_mtbsr_ioctl(un, mtop->mt_count);
6082                 break;
6083 
6084         case MTBSSF:
6085                 MAX_SPACE_CNT(mtop->mt_count);
6086                 rval = st_mtbsfm_ioctl(un, mtop->mt_count);
6087                 break;
6088 
6089         case MTFSSF:
6090                 MAX_SPACE_CNT(mtop->mt_count);
6091                 rval = st_mtfsfm_ioctl(un, mtop->mt_count);
6092                 break;
6093 
6094         case MTSRSZ:
6095 
6096                 /*
6097                  * Set record-size to that sent by user
6098                  * Check to see if there is reason that the requested
6099                  * block size should not be set.
6100                  */
6101 
6102                 /* If requesting variable block size is it ok? */
6103                 if ((mtop->mt_count == 0) &&
6104                     ((un->un_dp->options & ST_VARIABLE) == 0)) {
6105                         return (ENOTTY);
6106                 }
6107 
6108                 /*
6109                  * If requested block size is not variable "0",
6110                  * is it less then minimum.
6111                  */
6112                 if ((mtop->mt_count != 0) &&
6113                     (mtop->mt_count < un->un_minbsize)) {
6114                         return (EINVAL);
6115                 }
6116 
6117                 /* Is the requested block size more then maximum */
6118                 if ((mtop->mt_count > min(un->un_maxbsize, un->un_maxdma)) &&
6119                     (un->un_maxbsize != 0)) {
6120                         return (EINVAL);
6121                 }
6122 
6123                 /* Is requested block size a modulus the device likes */
6124                 if ((mtop->mt_count % un->un_data_mod) != 0) {
6125                         return (EINVAL);
6126                 }
6127 
6128                 if (st_change_block_size(un, (uint32_t)mtop->mt_count) != 0) {
6129                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6130                             "st_ioctl : MTSRSZ : EIO : cant set block size");
6131                         return (EIO);
6132                 }
6133 
6134                 return (0);
6135 
6136         case MTGRSZ:
6137                 /*
6138                  * Get record-size to the user
6139                  */
6140                 mtop->mt_count = un->un_bsize;
6141                 rval = 0;
6142                 break;
6143 
6144         case MTTELL:
6145                 rval = st_update_block_pos(un, st_cmd, 0);
6146                 mtop->mt_count = un->un_pos.lgclblkno;
6147                 break;
6148 
6149         case MTSEEK:
6150                 rval = st_logical_block_locate(un, st_uscsi_cmd, &un->un_pos,
6151                     (uint64_t)mtop->mt_count, un->un_pos.partition);
6152                 /*
6153                  * This bit of magic make mt print the actual position if
6154                  * the resulting position was not what was asked for.
6155                  */
6156                 if (rval == ESPIPE) {
6157                         rval = EIO;
6158                         if ((uint64_t)mtop->mt_count != un->un_pos.lgclblkno) {
6159                                 mtop->mt_op = MTTELL;
6160                                 mtop->mt_count = un->un_pos.lgclblkno;
6161                         }
6162                 }
6163                 break;
6164 
6165         case MTLOCK:
6166                 if (st_cmd(un, SCMD_DOORLOCK, MR_LOCK, SYNC_CMD)) {
6167                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6168                             "st_do_mtioctop : EIO : MTLOCK");
6169                         rval = EIO;
6170                 }
6171                 break;
6172 
6173         case MTUNLOCK:
6174                 if (st_cmd(un, SCMD_DOORLOCK, MR_UNLOCK, SYNC_CMD)) {
6175                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6176                             "st_do_mtioctop : EIO : MTUNLOCK");
6177                         rval = EIO;
6178                 }
6179                 break;
6180 
6181         default:
6182                 rval = ENOTTY;
6183         }
6184 
6185         return (rval);
6186 }
6187 
6188 
6189 /*
6190  * Run a command for uscsi ioctl.
6191  */
6192 static int
6193 st_uscsi_cmd(struct scsi_tape *un, struct uscsi_cmd *ucmd, int flag)
6194 {
6195         struct uscsi_cmd        *uscmd;
6196         struct buf      *bp;
6197         enum uio_seg    uioseg;
6198         int     offline_state = 0;
6199         int     err = 0;
6200         dev_t dev = un->un_dev;
6201 
6202         ST_FUNC(ST_DEVINFO, st_uscsi_cmd);
6203 
6204         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
6205             "st_uscsi_cmd(dev = 0x%lx)\n", un->un_dev);
6206 
6207         ASSERT(mutex_owned(ST_MUTEX));
6208 
6209         /*
6210          * We really don't know what commands are coming in here and
6211          * we don't want to limit the commands coming in.
6212          *
6213          * If st_tape_init() gets called from st_strategy(), then we
6214          * will hang the process waiting for un->un_sbuf_busy to be cleared,
6215          * which it never will, as we set it below.  To prevent
6216          * st_tape_init() from getting called, we have to set state to other
6217          * than ST_STATE_OFFLINE, so we choose ST_STATE_INITIALIZING, which
6218          * achieves this purpose already.
6219          *
6220          * We use offline_state to preserve the OFFLINE state, if it exists,
6221          * so other entry points to the driver might have the chance to call
6222          * st_tape_init().
6223          */
6224         if (un->un_state == ST_STATE_OFFLINE) {
6225                 un->un_laststate = ST_STATE_OFFLINE;
6226                 un->un_state = ST_STATE_INITIALIZING;
6227                 offline_state = 1;
6228         }
6229 
6230         mutex_exit(ST_MUTEX);
6231         err = scsi_uscsi_alloc_and_copyin((intptr_t)ucmd, flag, ROUTE, &uscmd);
6232         mutex_enter(ST_MUTEX);
6233         if (err != 0) {
6234                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6235                     "st_uscsi_cmd: scsi_uscsi_alloc_and_copyin failed\n");
6236                 goto exit;
6237         }
6238 
6239         uioseg = (flag & FKIOCTL) ? UIO_SYSSPACE : UIO_USERSPACE;
6240 
6241         /* check to see if this command requires the drive to be reserved */
6242         if (uscmd->uscsi_cdb != NULL) {
6243                 err = st_check_cdb_for_need_to_reserve(un,
6244                     (uchar_t *)uscmd->uscsi_cdb);
6245                 if (err) {
6246                         goto exit_free;
6247                 }
6248                 /*
6249                  * If this is a space command we need to save the starting
6250                  * point so we can retry from there if the command fails.
6251                  */
6252                 if ((uscmd->uscsi_cdb[0] == SCMD_SPACE) ||
6253                     (uscmd->uscsi_cdb[0] == (char)SCMD_SPACE_G4)) {
6254                         (void) st_update_block_pos(un, st_cmd, 0);
6255                 }
6256         }
6257 
6258         /*
6259          * Forground should not be doing anything while recovery is active.
6260          */
6261         ASSERT(un->un_recov_buf_busy == 0);
6262 
6263         /*
6264          * Get buffer resources...
6265          */
6266         while (un->un_sbuf_busy)
6267                 cv_wait(&un->un_sbuf_cv, ST_MUTEX);
6268         un->un_sbuf_busy = 1;
6269 
6270 #ifdef STDEBUG
6271         if ((uscmd->uscsi_cdb != NULL) && (st_debug & 0x7) > 6) {
6272                 int rw = (uscmd->uscsi_flags & USCSI_READ) ? B_READ : B_WRITE;
6273                 st_print_cdb(ST_DEVINFO, st_label, SCSI_DEBUG,
6274                     "uscsi cdb", uscmd->uscsi_cdb);
6275                 if (uscmd->uscsi_buflen) {
6276                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
6277                             "uscsi %s of %ld bytes %s %s space\n",
6278                             (rw == B_READ) ? rd_str : wr_str,
6279                             uscmd->uscsi_buflen,
6280                             (rw == B_READ) ? "to" : "from",
6281                             (uioseg == UIO_SYSSPACE) ? "system" : "user");
6282                 }
6283         }
6284 #endif /* STDEBUG */
6285 
6286         /*
6287          * Although st_uscsi_cmd() never makes use of these
6288          * now, we are just being safe and consistent.
6289          */
6290         uscmd->uscsi_flags &= ~(USCSI_NOINTR | USCSI_NOPARITY |
6291             USCSI_OTAG | USCSI_HTAG | USCSI_HEAD);
6292 
6293         un->un_srqbufp = uscmd->uscsi_rqbuf;
6294         bp = un->un_sbufp;
6295         bzero(bp, sizeof (buf_t));
6296         if (uscmd->uscsi_cdb != NULL) {
6297                 bp->b_forw = (struct buf *)(uintptr_t)uscmd->uscsi_cdb[0];
6298         }
6299         bp->b_back = (struct buf *)uscmd;
6300 
6301         mutex_exit(ST_MUTEX);
6302         err = scsi_uscsi_handle_cmd(dev, uioseg, uscmd, st_strategy, bp, NULL);
6303         mutex_enter(ST_MUTEX);
6304 
6305         /*
6306          * If scsi reset successful, don't write any filemarks.
6307          */
6308         if ((err == 0) && (uscmd->uscsi_flags &
6309             (USCSI_RESET_LUN | USCSI_RESET_TARGET | USCSI_RESET_ALL))) {
6310                 un->un_fmneeded = 0;
6311         }
6312 
6313 exit_free:
6314         /*
6315          * Free resources
6316          */
6317         un->un_sbuf_busy = 0;
6318         un->un_srqbufp = NULL;
6319 
6320         /*
6321          * If was a space command need to update logical block position.
6322          * If the command failed such that positioning is invalid, Don't
6323          * update the position as the user must do this to validate the
6324          * position for data protection.
6325          */
6326         if ((uscmd->uscsi_cdb != NULL) &&
6327             ((uscmd->uscsi_cdb[0] == SCMD_SPACE) ||
6328             (uscmd->uscsi_cdb[0] == (char)SCMD_SPACE_G4)) &&
6329             (un->un_pos.pmode != invalid)) {
6330                 un->un_running.pmode = invalid;
6331                 (void) st_update_block_pos(un, st_cmd, 1);
6332                 /*
6333                  * Set running position to invalid so it updates on the
6334                  * next command.
6335                  */
6336                 un->un_running.pmode = invalid;
6337         }
6338         cv_signal(&un->un_sbuf_cv);
6339         mutex_exit(ST_MUTEX);
6340         (void) scsi_uscsi_copyout_and_free((intptr_t)ucmd, uscmd);
6341         mutex_enter(ST_MUTEX);
6342         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
6343             "st_uscsi_cmd returns 0x%x\n", err);
6344 
6345 exit:
6346         /* don't lose offline state */
6347         if (offline_state) {
6348                 un->un_state = ST_STATE_OFFLINE;
6349         }
6350 
6351         ASSERT(mutex_owned(ST_MUTEX));
6352         return (err);
6353 }
6354 
6355 static int
6356 st_write_fm(dev_t dev, int wfm)
6357 {
6358         int i;
6359         int rval;
6360 
6361         GET_SOFT_STATE(dev);
6362 
6363         ST_FUNC(ST_DEVINFO, st_write_fm);
6364 
6365         ASSERT(mutex_owned(ST_MUTEX));
6366 
6367         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
6368             "st_write_fm(dev = 0x%lx, wfm = %d)\n", dev, wfm);
6369 
6370         /*
6371          * write one filemark at the time after EOT
6372          */
6373         if (un->un_pos.eof >= ST_EOT) {
6374                 for (i = 0; i < wfm; i++) {
6375                         rval = st_cmd(un, SCMD_WRITE_FILE_MARK, 1, SYNC_CMD);
6376                         if (rval == EACCES) {
6377                                 return (rval);
6378                         }
6379                         if (rval != 0) {
6380                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6381                                     "st_write_fm : EIO : write EOT file mark");
6382                                 return (EIO);
6383                         }
6384                 }
6385         } else {
6386                 rval = st_cmd(un, SCMD_WRITE_FILE_MARK, wfm, SYNC_CMD);
6387                 if (rval == EACCES) {
6388                         return (rval);
6389                 }
6390                 if (rval) {
6391                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6392                             "st_write_fm : EIO : write file mark");
6393                         return (EIO);
6394                 }
6395         }
6396 
6397         ASSERT(mutex_owned(ST_MUTEX));
6398         return (0);
6399 }
6400 
6401 #ifdef STDEBUG
6402 static void
6403 st_start_dump(struct scsi_tape *un, struct buf *bp)
6404 {
6405         struct scsi_pkt *pkt = BP_PKT(bp);
6406         uchar_t *cdbp = (uchar_t *)pkt->pkt_cdbp;
6407 
6408         ST_FUNC(ST_DEVINFO, st_start_dump);
6409 
6410         if ((st_debug & 0x7) < 6)
6411                 return;
6412         scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
6413             "st_start: cmd=0x%p count=%ld resid=%ld flags=0x%x pkt=0x%p\n",
6414             (void *)bp->b_forw, bp->b_bcount,
6415             bp->b_resid, bp->b_flags, (void *)BP_PKT(bp));
6416         st_print_cdb(ST_DEVINFO, st_label, SCSI_DEBUG,
6417             "st_start: cdb",  (caddr_t)cdbp);
6418         scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
6419             "st_start: fileno=%d, blk=%d\n",
6420             un->un_pos.fileno, un->un_pos.blkno);
6421 }
6422 #endif
6423 
6424 
6425 /*
6426  * Command start && done functions
6427  */
6428 
6429 /*
6430  * st_start()
6431  *
6432  * Called from:
6433  *  st_strategy() to start a command.
6434  *  st_runout() to retry when scsi_pkt allocation fails on previous attempt(s).
6435  *  st_attach() when resuming from power down state.
6436  *  st_start_restart() to retry transport when device was previously busy.
6437  *  st_done_and_mutex_exit() to start the next command when previous is done.
6438  *
6439  * On entry:
6440  *  scsi_pkt may or may not be allocated.
6441  *
6442  */
6443 static void
6444 st_start(struct scsi_tape *un)
6445 {
6446         struct buf *bp;
6447         int status;
6448         int queued;
6449 
6450         ST_FUNC(ST_DEVINFO, st_start);
6451         ASSERT(mutex_owned(ST_MUTEX));
6452 
6453         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
6454             "st_start(): dev = 0x%lx\n", un->un_dev);
6455 
6456         if (un->un_recov_buf_busy) {
6457                 /* recovery commands can happen anytime */
6458                 bp = un->un_recov_buf;
6459                 queued = 0;
6460         } else if (un->un_sbuf_busy) {
6461                 /* sbuf commands should only happen with an empty queue. */
6462                 ASSERT(un->un_quef == NULL);
6463                 ASSERT(un->un_runqf == NULL);
6464                 bp = un->un_sbufp;
6465                 queued = 0;
6466         } else if (un->un_quef != NULL) {
6467                 if (un->un_persistence && un->un_persist_errors) {
6468                         return;
6469                 }
6470                 bp = un->un_quef;
6471                 queued = 1;
6472         } else {
6473                 scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
6474                     "st_start() returning no buf found\n");
6475                 return;
6476         }
6477 
6478         ASSERT((bp->b_flags & B_DONE) == 0);
6479 
6480         /*
6481          * Don't send more than un_throttle commands to the HBA
6482          */
6483         if ((un->un_throttle <= 0) || (un->un_ncmds >= un->un_throttle)) {
6484                 /*
6485                  * if doing recovery we know there is outstanding commands.
6486                  */
6487                 if (bp != un->un_recov_buf) {
6488                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6489                             "st_start returning throttle = %d or ncmds = %d\n",
6490                             un->un_throttle, un->un_ncmds);
6491                         if (un->un_ncmds == 0) {
6492                                 typedef void (*func)();
6493                                 func fnc = (func)st_runout;
6494 
6495                                 scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
6496                                     "Sending delayed start to st_runout()\n");
6497                                 mutex_exit(ST_MUTEX);
6498                                 (void) timeout(fnc, un, drv_usectohz(1000000));
6499                                 mutex_enter(ST_MUTEX);
6500                         }
6501                         return;
6502                 }
6503         }
6504 
6505         /*
6506          * If the buf has no scsi_pkt call st_make_cmd() to get one and
6507          * build the command.
6508          */
6509         if (BP_PKT(bp) == NULL) {
6510                 ASSERT((bp->b_flags & B_DONE) == 0);
6511                 st_make_cmd(un, bp, st_runout);
6512                 ASSERT((bp->b_flags & B_DONE) == 0);
6513                 status = geterror(bp);
6514 
6515                 /*
6516                  * Some HBA's don't call bioerror() to set an error.
6517                  * And geterror() returns zero if B_ERROR is not set.
6518                  * So if we get zero we must check b_error.
6519                  */
6520                 if (status == 0 && bp->b_error != 0) {
6521                         status = bp->b_error;
6522                         bioerror(bp, status);
6523                 }
6524 
6525                 /*
6526                  * Some HBA's convert DDI_DMA_NORESOURCES into ENOMEM.
6527                  * In tape ENOMEM has special meaning so we'll change it.
6528                  */
6529                 if (status == ENOMEM) {
6530                         status = 0;
6531                         bioerror(bp, status);
6532                 }
6533 
6534                 /*
6535                  * Did it fail and is it retryable?
6536                  * If so return and wait for the callback through st_runout.
6537                  * Also looks like scsi_init_pkt() will setup a callback even
6538                  * if it isn't retryable.
6539                  */
6540                 if (BP_PKT(bp) == NULL) {
6541                         if (status == 0) {
6542                                 /*
6543                                  * If first attempt save state.
6544                                  */
6545                                 if (un->un_state != ST_STATE_RESOURCE_WAIT) {
6546                                         un->un_laststate = un->un_state;
6547                                         un->un_state = ST_STATE_RESOURCE_WAIT;
6548                                 }
6549                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6550                                     "temp no resources for pkt\n");
6551                         } else if (status == EINVAL) {
6552                                 scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
6553                                     "scsi_init_pkt rejected pkt as too big\n");
6554                                 if (un->un_persistence) {
6555                                         st_set_pe_flag(un);
6556                                 }
6557                         } else {
6558                                 /*
6559                                  * Unlikely that it would be retryable then not.
6560                                  */
6561                                 if (un->un_state == ST_STATE_RESOURCE_WAIT) {
6562                                         un->un_state = un->un_laststate;
6563                                 }
6564                                 scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
6565                                     "perm no resources for pkt errno = 0x%x\n",
6566                                     status);
6567                         }
6568                         return;
6569                 }
6570                 /*
6571                  * Worked this time set the state back.
6572                  */
6573                 if (un->un_state == ST_STATE_RESOURCE_WAIT) {
6574                         un->un_state = un->un_laststate;
6575                 }
6576         }
6577 
6578         if (queued) {
6579                 /*
6580                  * move from waitq to runq
6581                  */
6582                 (void) st_remove_from_queue(&un->un_quef, &un->un_quel, bp);
6583                 st_add_to_queue(&un->un_runqf, &un->un_runql, un->un_runql, bp);
6584         }
6585 
6586 
6587 #ifdef STDEBUG
6588         st_start_dump(un, bp);
6589 #endif
6590 
6591         /* could not get here if throttle was zero */
6592         un->un_last_throttle = un->un_throttle;
6593         un->un_throttle = 0; /* so nothing else will come in here */
6594         un->un_ncmds++;
6595 
6596         ST_DO_KSTATS(bp, kstat_waitq_to_runq);
6597 
6598         status = st_transport(un, BP_PKT(bp));
6599 
6600         if (un->un_last_throttle) {
6601                 un->un_throttle = un->un_last_throttle;
6602         }
6603 
6604         if (status != TRAN_ACCEPT) {
6605                 ST_DO_KSTATS(bp, kstat_runq_back_to_waitq);
6606                 ST_DEBUG(ST_DEVINFO, st_label, CE_WARN,
6607                     "Unhappy transport packet status 0x%x\n", status);
6608 
6609                 if (status == TRAN_BUSY) {
6610                         pkt_info *pkti = BP_PKT(bp)->pkt_private;
6611 
6612                         /*
6613                          * If command recovery is enabled and this isn't
6614                          * a recovery command try command recovery.
6615                          */
6616                         if (pkti->privatelen == sizeof (recov_info) &&
6617                             bp != un->un_recov_buf) {
6618                                 ST_RECOV(ST_DEVINFO, st_label, CE_WARN,
6619                                     "Command Recovery called on busy send\n");
6620                                 if (st_command_recovery(un, BP_PKT(bp),
6621                                     ATTEMPT_RETRY) == JUST_RETURN) {
6622                                         return;
6623                                 }
6624                         } else {
6625                                 mutex_exit(ST_MUTEX);
6626                                 if (st_handle_start_busy(un, bp,
6627                                     ST_TRAN_BUSY_TIMEOUT, queued) == 0) {
6628                                         mutex_enter(ST_MUTEX);
6629                                         return;
6630                                 }
6631                                 /*
6632                                  * if too many retries, fail the transport
6633                                  */
6634                                 mutex_enter(ST_MUTEX);
6635                         }
6636                 }
6637                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
6638                     "transport rejected %d\n", status);
6639                 bp->b_resid = bp->b_bcount;
6640 
6641                 ST_DO_KSTATS(bp, kstat_waitq_exit);
6642                 ST_DO_ERRSTATS(un, st_transerrs);
6643                 if ((bp == un->un_recov_buf) && (status == TRAN_BUSY)) {
6644                         st_bioerror(bp, EBUSY);
6645                 } else {
6646                         st_bioerror(bp, EIO);
6647                         st_set_pe_flag(un);
6648                 }
6649                 st_done_and_mutex_exit(un, bp);
6650                 mutex_enter(ST_MUTEX);
6651         }
6652 
6653         ASSERT(mutex_owned(ST_MUTEX));
6654 }
6655 
6656 /*
6657  * if the transport is busy, then put this bp back on the waitq
6658  */
6659 static int
6660 st_handle_start_busy(struct scsi_tape *un, struct buf *bp,
6661     clock_t timeout_interval, int queued)
6662 {
6663 
6664         pkt_info *pktinfo = BP_PKT(bp)->pkt_private;
6665 
6666         ST_FUNC(ST_DEVINFO, st_handle_start_busy);
6667 
6668         mutex_enter(ST_MUTEX);
6669 
6670         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
6671             "st_handle_start_busy()\n");
6672 
6673         /*
6674          * Check to see if we hit the retry timeout and one last check for
6675          * making sure this is the last on the runq, if it is not, we have
6676          * to fail
6677          */
6678         if ((pktinfo->str_retry_cnt++ > st_retry_count) ||
6679             ((queued) && (un->un_runql != bp))) {
6680                 mutex_exit(ST_MUTEX);
6681                 return (-1);
6682         }
6683 
6684         if (queued) {
6685                 /* put the bp back on the waitq */
6686                 st_add_to_queue(&un->un_quef, &un->un_quel, un->un_quef, bp);
6687         }
6688 
6689         /*
6690          * Decrement un_ncmds so that this
6691          * gets thru' st_start() again.
6692          */
6693         un->un_ncmds--;
6694 
6695         if (queued) {
6696                 /*
6697                  * since this is an error case, we won't have to do this list
6698                  * walking much. We've already made sure this bp was the
6699                  * last on the runq
6700                  */
6701                 (void) st_remove_from_queue(&un->un_runqf, &un->un_runql, bp);
6702 
6703                 /*
6704                  * send a marker pkt, if appropriate
6705                  */
6706                 st_hba_unflush(un);
6707 
6708         }
6709         /*
6710          * all queues are aligned, we are just waiting to
6711          * transport, don't alloc any more buf p's, when
6712          * st_start is reentered.
6713          */
6714         (void) timeout(st_start_restart, un, timeout_interval);
6715 
6716         mutex_exit(ST_MUTEX);
6717         return (0);
6718 }
6719 
6720 
6721 /*
6722  * st_runout a callback that is called what a resource allocatation failed
6723  */
6724 static int
6725 st_runout(caddr_t arg)
6726 {
6727         struct scsi_tape *un = (struct scsi_tape *)arg;
6728         struct buf *bp;
6729         int queued;
6730 
6731         ASSERT(un != NULL);
6732 
6733         ST_FUNC(ST_DEVINFO, st_runout);
6734 
6735         mutex_enter(ST_MUTEX);
6736 
6737         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_runout()\n");
6738 
6739         if (un->un_recov_buf_busy != 0) {
6740                 bp = un->un_recov_buf;
6741                 queued = 0;
6742         } else if (un->un_sbuf_busy != 0) {
6743                 /* sbuf commands should only happen with an empty queue. */
6744                 ASSERT(un->un_quef == NULL);
6745                 ASSERT(un->un_runqf == NULL);
6746                 bp = un->un_sbufp;
6747                 queued = 0;
6748         } else if (un->un_quef != NULL) {
6749                 bp = un->un_quef;
6750                 if (un->un_persistence && un->un_persist_errors) {
6751                         mutex_exit(ST_MUTEX);
6752                         bp->b_resid = bp->b_bcount;
6753                         biodone(bp);
6754                         return (1);
6755                 }
6756                 queued = 1;
6757         } else {
6758                 ASSERT(1 == 0);
6759                 mutex_exit(ST_MUTEX);
6760                 return (1);
6761         }
6762 
6763         /*
6764          * failed scsi_init_pkt(). If errno is zero its retryable.
6765          */
6766         if ((bp != NULL) && (geterror(bp) != 0)) {
6767 
6768                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
6769                     "errors after pkt alloc (b_flags=0x%x, b_error=0x%x)\n",
6770                     bp->b_flags, geterror(bp));
6771                 ASSERT((bp->b_flags & B_DONE) == 0);
6772 
6773                 if (queued) {
6774                         (void) st_remove_from_queue(&un->un_quef, &un->un_quel,
6775                             bp);
6776                 }
6777                 mutex_exit(ST_MUTEX);
6778 
6779                 ASSERT((bp->b_flags & B_DONE) == 0);
6780 
6781                 /*
6782                  * Set resid, Error already set, then unblock calling thread.
6783                  */
6784                 bp->b_resid = bp->b_bcount;
6785                 biodone(bp);
6786         } else {
6787                 /*
6788                  * Try Again
6789                  */
6790                 st_start(un);
6791                 mutex_exit(ST_MUTEX);
6792         }
6793 
6794         /*
6795          * Comments courtesy of sd.c
6796          * The scsi_init_pkt routine allows for the callback function to
6797          * return a 0 indicating the callback should be rescheduled or a 1
6798          * indicating not to reschedule. This routine always returns 1
6799          * because the driver always provides a callback function to
6800          * scsi_init_pkt. This results in a callback always being scheduled
6801          * (via the scsi_init_pkt callback implementation) if a resource
6802          * failure occurs.
6803          */
6804 
6805         return (1);
6806 }
6807 
6808 /*
6809  * st_done_and_mutex_exit()
6810  *      - remove bp from runq
6811  *      - start up the next request
6812  *      - if this was an asynch bp, clean up
6813  *      - exit with released mutex
6814  */
6815 static void
6816 st_done_and_mutex_exit(struct scsi_tape *un, struct buf *bp)
6817 {
6818         int pe_flagged = 0;
6819         struct scsi_pkt *pkt = BP_PKT(bp);
6820         pkt_info *pktinfo = pkt->pkt_private;
6821 
6822         ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
6823 #if !defined(lint)
6824         _NOTE(LOCK_RELEASED_AS_SIDE_EFFECT(&un->un_sd->sd_mutex))
6825 #endif
6826 
6827         ST_FUNC(ST_DEVINFO, st_done_and_mutex_exit);
6828 
6829         ASSERT(mutex_owned(ST_MUTEX));
6830 
6831         (void) st_remove_from_queue(&un->un_runqf, &un->un_runql, bp);
6832 
6833         un->un_ncmds--;
6834         cv_signal(&un->un_queue_cv);
6835 
6836         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
6837             "st_done_and_mutex_exit(): cmd=0x%x count=%ld resid=%ld  flags="
6838             "0x%x\n", pkt->pkt_cdbp[0], bp->b_bcount,
6839             bp->b_resid, bp->b_flags);
6840 
6841 
6842         /*
6843          * update kstats with transfer count info
6844          */
6845         if (un->un_stats && (bp != un->un_sbufp) && IS_RW(bp)) {
6846                 uint32_t n_done =  bp->b_bcount - bp->b_resid;
6847                 if (bp->b_flags & B_READ) {
6848                         IOSP->reads++;
6849                         IOSP->nread += n_done;
6850                 } else {
6851                         IOSP->writes++;
6852                         IOSP->nwritten += n_done;
6853                 }
6854         }
6855 
6856         /*
6857          * Start the next one before releasing resources on this one, if
6858          * there is something on the queue and persistent errors has not been
6859          * flagged
6860          */
6861 
6862         if ((pe_flagged = (un->un_persistence && un->un_persist_errors)) != 0) {
6863                 un->un_last_resid = bp->b_resid;
6864                 un->un_last_count = bp->b_bcount;
6865         }
6866 
6867         if (un->un_pwr_mgmt == ST_PWR_SUSPENDED) {
6868                 cv_broadcast(&un->un_tape_busy_cv);
6869         } else if (un->un_quef && un->un_throttle && !pe_flagged &&
6870             (bp != un->un_recov_buf)) {
6871                 st_start(un);
6872         }
6873 
6874         un->un_retry_ct = max(pktinfo->pkt_retry_cnt, pktinfo->str_retry_cnt);
6875 
6876         if (bp == un->un_sbufp && (bp->b_flags & B_ASYNC)) {
6877                 /*
6878                  * Since we marked this ourselves as ASYNC,
6879                  * there isn't anybody around waiting for
6880                  * completion any more.
6881                  */
6882                 uchar_t *cmd = pkt->pkt_cdbp;
6883                 if (*cmd == SCMD_READ || *cmd == SCMD_WRITE) {
6884                         bp->b_un.b_addr = (caddr_t)0;
6885                 }
6886                 ST_DEBUG(ST_DEVINFO, st_label, CE_NOTE,
6887                     "st_done_and_mutex_exit(async): freeing pkt\n");
6888                 st_print_cdb(ST_DEVINFO, st_label, CE_NOTE,
6889                     "CDB sent with B_ASYNC",  (caddr_t)cmd);
6890                 if (pkt) {
6891                         scsi_destroy_pkt(pkt);
6892                 }
6893                 un->un_sbuf_busy = 0;
6894                 cv_signal(&un->un_sbuf_cv);
6895                 mutex_exit(ST_MUTEX);
6896                 return;
6897         }
6898 
6899         if (bp == un->un_sbufp && BP_UCMD(bp)) {
6900                 /*
6901                  * Copy status from scsi_pkt to uscsi_cmd
6902                  * since st_uscsi_cmd needs it
6903                  */
6904                 BP_UCMD(bp)->uscsi_status = SCBP_C(BP_PKT(bp));
6905         }
6906 
6907 
6908 #ifdef STDEBUG
6909         if (((st_debug & 0x7) >= 4) &&
6910             (((un->un_pos.blkno % 100) == 0) ||
6911             (un->un_persistence && un->un_persist_errors))) {
6912 
6913                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
6914                     "st_d_a_m_exit(): ncmds = %d, thr = %d, "
6915                     "un_errno = %d, un_pe = %d\n",
6916                     un->un_ncmds, un->un_throttle, un->un_errno,
6917                     un->un_persist_errors);
6918         }
6919 
6920 #endif
6921 
6922         mutex_exit(ST_MUTEX);
6923         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
6924             "st_done_and_mutex_exit: freeing pkt\n");
6925 
6926         if (pkt) {
6927                 scsi_destroy_pkt(pkt);
6928         }
6929 
6930         biodone(bp);
6931 
6932         /*
6933          * now that we biodoned that command, if persistent errors have been
6934          * flagged, flush the waitq
6935          */
6936         if (pe_flagged)
6937                 st_flush(un);
6938 }
6939 
6940 
6941 /*
6942  * Tape error, flush tape driver queue.
6943  */
6944 static void
6945 st_flush(struct scsi_tape *un)
6946 {
6947         struct buf *bp;
6948 
6949         ST_FUNC(ST_DEVINFO, st_flush);
6950 
6951         mutex_enter(ST_MUTEX);
6952 
6953         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
6954             "st_flush(), ncmds = %d, quef = 0x%p\n",
6955             un->un_ncmds, (void *)un->un_quef);
6956 
6957         /*
6958          * if we still have commands outstanding, wait for them to come in
6959          * before flushing the queue, and make sure there is a queue
6960          */
6961         if (un->un_ncmds || !un->un_quef)
6962                 goto exit;
6963 
6964         /*
6965          * we have no more commands outstanding, so let's deal with special
6966          * cases in the queue for EOM and FM. If we are here, and un_errno
6967          * is 0, then we know there was no error and we return a 0 read or
6968          * write before showing errors
6969          */
6970 
6971         /* Flush the wait queue. */
6972         while ((bp = un->un_quef) != NULL) {
6973                 un->un_quef = bp->b_actf;
6974 
6975                 bp->b_resid = bp->b_bcount;
6976 
6977                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
6978                     "st_flush() : blkno=%d, err=%d, b_bcount=%ld\n",
6979                     un->un_pos.blkno, un->un_errno, bp->b_bcount);
6980 
6981                 st_set_pe_errno(un);
6982 
6983                 bioerror(bp, un->un_errno);
6984 
6985                 mutex_exit(ST_MUTEX);
6986                 /* it should have one, but check anyway */
6987                 if (BP_PKT(bp)) {
6988                         scsi_destroy_pkt(BP_PKT(bp));
6989                 }
6990                 biodone(bp);
6991                 mutex_enter(ST_MUTEX);
6992         }
6993 
6994         /*
6995          * It's not a bad practice to reset the
6996          * waitq tail pointer to NULL.
6997          */
6998         un->un_quel = NULL;
6999 
7000 exit:
7001         /* we mucked with the queue, so let others know about it */
7002         cv_signal(&un->un_queue_cv);
7003         mutex_exit(ST_MUTEX);
7004 }
7005 
7006 
7007 /*
7008  * Utility functions
7009  */
7010 static int
7011 st_determine_generic(struct scsi_tape *un)
7012 {
7013         int bsize;
7014         static char *cart = "0.25 inch cartridge";
7015         char *sizestr;
7016 
7017         ST_FUNC(ST_DEVINFO, st_determine_generic);
7018 
7019         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7020             "st_determine_generic(un = 0x%p)\n", (void*)un);
7021 
7022         ASSERT(mutex_owned(ST_MUTEX));
7023 
7024         if (st_modesense(un)) {
7025                 return (-1);
7026         }
7027 
7028         bsize = (un->un_mspl->high_bl << 16)        |
7029             (un->un_mspl->mid_bl << 8)      |
7030             (un->un_mspl->low_bl);
7031 
7032         if (bsize == 0) {
7033                 un->un_dp->options |= ST_VARIABLE;
7034                 un->un_dp->bsize = 0;
7035                 un->un_bsize = 0;
7036         } else if (bsize > ST_MAXRECSIZE_FIXED) {
7037                 /*
7038                  * record size of this device too big.
7039                  * try and convert it to variable record length.
7040                  *
7041                  */
7042                 un->un_dp->options |= ST_VARIABLE;
7043                 if (st_change_block_size(un, 0) != 0) {
7044                         ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
7045                             "Fixed Record Size %d is too large\n", bsize);
7046                         ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
7047                             "Cannot switch to variable record size\n");
7048                         un->un_dp->options &= ~ST_VARIABLE;
7049                         return (-1);
7050                 }
7051         } else if (st_change_block_size(un, 0) == 0) {
7052                 /*
7053                  * If the drive was set to a non zero block size,
7054                  * See if it can be set to a zero block size.
7055                  * If it works, ST_VARIABLE so user can set it as they want.
7056                  */
7057                 un->un_dp->options |= ST_VARIABLE;
7058                 un->un_dp->bsize = 0;
7059                 un->un_bsize = 0;
7060         } else {
7061                 un->un_dp->bsize = bsize;
7062                 un->un_bsize = bsize;
7063         }
7064 
7065 
7066         switch (un->un_mspl->density) {
7067         default:
7068         case 0x0:
7069                 /*
7070                  * default density, cannot determine any other
7071                  * information.
7072                  */
7073                 sizestr = "Unknown type- assuming 0.25 inch cartridge";
7074                 un->un_dp->type = ST_TYPE_DEFAULT;
7075                 un->un_dp->options |= (ST_AUTODEN_OVERRIDE|ST_QIC);
7076                 break;
7077         case 0x1:
7078         case 0x2:
7079         case 0x3:
7080         case 0x6:
7081                 /*
7082                  * 1/2" reel
7083                  */
7084                 sizestr = "0.50 inch reel";
7085                 un->un_dp->type = ST_TYPE_REEL;
7086                 un->un_dp->options |= ST_REEL;
7087                 un->un_dp->densities[0] = 0x1;
7088                 un->un_dp->densities[1] = 0x2;
7089                 un->un_dp->densities[2] = 0x6;
7090                 un->un_dp->densities[3] = 0x3;
7091                 break;
7092         case 0x4:
7093         case 0x5:
7094         case 0x7:
7095         case 0x0b:
7096 
7097                 /*
7098                  * Quarter inch.
7099                  */
7100                 sizestr = cart;
7101                 un->un_dp->type = ST_TYPE_DEFAULT;
7102                 un->un_dp->options |= ST_QIC;
7103 
7104                 un->un_dp->densities[1] = 0x4;
7105                 un->un_dp->densities[2] = 0x5;
7106                 un->un_dp->densities[3] = 0x7;
7107                 un->un_dp->densities[0] = 0x0b;
7108                 break;
7109 
7110         case 0x0f:
7111         case 0x10:
7112         case 0x11:
7113         case 0x12:
7114                 /*
7115                  * QIC-120, QIC-150, QIC-320, QIC-600
7116                  */
7117                 sizestr = cart;
7118                 un->un_dp->type = ST_TYPE_DEFAULT;
7119                 un->un_dp->options |= ST_QIC;
7120                 un->un_dp->densities[0] = 0x0f;
7121                 un->un_dp->densities[1] = 0x10;
7122                 un->un_dp->densities[2] = 0x11;
7123                 un->un_dp->densities[3] = 0x12;
7124                 break;
7125 
7126         case 0x09:
7127         case 0x0a:
7128         case 0x0c:
7129         case 0x0d:
7130                 /*
7131                  * 1/2" cartridge tapes. Include HI-TC.
7132                  */
7133                 sizestr = cart;
7134                 sizestr[2] = '5';
7135                 sizestr[3] = '0';
7136                 un->un_dp->type = ST_TYPE_HIC;
7137                 un->un_dp->densities[0] = 0x09;
7138                 un->un_dp->densities[1] = 0x0a;
7139                 un->un_dp->densities[2] = 0x0c;
7140                 un->un_dp->densities[3] = 0x0d;
7141                 break;
7142 
7143         case 0x13:
7144                         /* DDS-2/DDS-3 scsi spec densities */
7145         case 0x24:
7146         case 0x25:
7147         case 0x26:
7148                 sizestr = "DAT Data Storage (DDS)";
7149                 un->un_dp->type = ST_TYPE_DAT;
7150                 un->un_dp->options |= ST_AUTODEN_OVERRIDE;
7151                 break;
7152 
7153         case 0x14:
7154                 /*
7155                  * Helical Scan (Exabyte) devices
7156                  */
7157                 sizestr = "8mm helical scan cartridge";
7158                 un->un_dp->type = ST_TYPE_EXABYTE;
7159                 un->un_dp->options |= ST_AUTODEN_OVERRIDE;
7160                 break;
7161         }
7162 
7163         /*
7164          * Assume LONG ERASE, BSF and BSR
7165          */
7166 
7167         un->un_dp->options |=
7168             (ST_LONG_ERASE | ST_UNLOADABLE | ST_BSF | ST_BSR | ST_KNOWS_EOD);
7169 
7170         /*
7171          * Only if mode sense data says no buffered write, set NOBUF
7172          */
7173         if (un->un_mspl->bufm == 0)
7174                 un->un_dp->options |= ST_NOBUF;
7175 
7176         /*
7177          * set up large read and write retry counts
7178          */
7179 
7180         un->un_dp->max_rretries = un->un_dp->max_wretries = 1000;
7181 
7182         /*
7183          * If this is a 0.50 inch reel tape, and
7184          * it is *not* variable mode, try and
7185          * set it to variable record length
7186          * mode.
7187          */
7188         if ((un->un_dp->options & ST_REEL) && un->un_bsize != 0 &&
7189             (un->un_dp->options & ST_VARIABLE)) {
7190                 if (st_change_block_size(un, 0) == 0) {
7191                         un->un_dp->bsize = 0;
7192                         un->un_mspl->high_bl = un->un_mspl->mid_bl =
7193                             un->un_mspl->low_bl = 0;
7194                 }
7195         }
7196 
7197         /*
7198          * Write to console about type of device found
7199          */
7200         ST_DEBUG6(ST_DEVINFO, st_label, CE_NOTE,
7201             "Generic Drive, Vendor=%s\n\t%s", un->un_dp->name,
7202             sizestr);
7203         if (un->un_dp->options & ST_VARIABLE) {
7204                 scsi_log(ST_DEVINFO, st_label, CE_NOTE,
7205                     "!Variable record length I/O\n");
7206         } else {
7207                 scsi_log(ST_DEVINFO, st_label, CE_NOTE,
7208                     "!Fixed record length (%d byte blocks) I/O\n",
7209                     un->un_dp->bsize);
7210         }
7211         ASSERT(mutex_owned(ST_MUTEX));
7212         return (0);
7213 }
7214 
7215 static int
7216 st_determine_density(struct scsi_tape *un, int rw)
7217 {
7218         int rval = 0;
7219 
7220         ST_FUNC(ST_DEVINFO, st_determine_density);
7221 
7222         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7223             "st_determine_density(un = 0x%p, rw = %s)\n",
7224             (void*)un, (rw == B_WRITE ? wr_str: rd_str));
7225 
7226         ASSERT(mutex_owned(ST_MUTEX));
7227 
7228         /*
7229          * If we're past BOT, density is determined already.
7230          */
7231         if (un->un_pos.pmode == logical) {
7232                 if (un->un_pos.lgclblkno != 0) {
7233                         goto exit;
7234                 }
7235         } else if (un->un_pos.pmode == legacy) {
7236                 if ((un->un_pos.fileno != 0) || (un->un_pos.blkno != 0)) {
7237                         /*
7238                          * XXX: put in a bitch message about attempting to
7239                          * XXX: change density past BOT.
7240                          */
7241                         goto exit;
7242                 }
7243         } else {
7244                 goto exit;
7245         }
7246         if ((un->un_pos.pmode == logical) &&
7247             (un->un_pos.lgclblkno != 0)) {
7248                 goto exit;
7249         }
7250 
7251 
7252         /*
7253          * If we're going to be writing, we set the density
7254          */
7255         if (rw == 0 || rw == B_WRITE) {
7256                 /* un_curdens is used as an index into densities table */
7257                 un->un_curdens = MT_DENSITY(un->un_dev);
7258                 if (st_set_density(un)) {
7259                         rval = -1;
7260                 }
7261                 goto exit;
7262         }
7263 
7264         /*
7265          * If density is known already,
7266          * we don't have to get it again.(?)
7267          */
7268         if (!un->un_density_known) {
7269                 if (st_get_density(un)) {
7270                         rval = -1;
7271                 }
7272         }
7273 
7274 exit:
7275         ASSERT(mutex_owned(ST_MUTEX));
7276         return (rval);
7277 }
7278 
7279 
7280 /*
7281  * Try to determine density. We do this by attempting to read the
7282  * first record off the tape, cycling through the available density
7283  * codes as we go.
7284  */
7285 
7286 static int
7287 st_get_density(struct scsi_tape *un)
7288 {
7289         int succes = 0, rval = -1, i;
7290         uint_t size;
7291         uchar_t dens, olddens;
7292 
7293         ST_FUNC(ST_DEVINFO, st_get_density);
7294 
7295         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7296             "st_get_density(un = 0x%p)\n", (void*)un);
7297 
7298         ASSERT(mutex_owned(ST_MUTEX));
7299 
7300         /*
7301          * If Auto Density override is enabled The drive has
7302          * only one density and there is no point in attempting
7303          * find the correct one.
7304          *
7305          * Since most modern drives auto detect the density
7306          * and format of the recorded media before they come
7307          * ready. What this function does is a legacy behavior
7308          * and modern drives not only don't need it, The backup
7309          * utilities that do positioning via uscsi find the un-
7310          * expected rewinds problematic.
7311          *
7312          * The drives that need this are old reel to reel devices.
7313          * I took a swag and said they must be scsi-1 or older.
7314          * I don't beleave there will any of the newer devices
7315          * that need this. There will be some scsi-1 devices that
7316          * don't need this but I don't think they will be using the
7317          * BIG aftermarket backup and restore utilitys.
7318          */
7319         if ((un->un_dp->options & ST_AUTODEN_OVERRIDE) ||
7320             (un->un_sd->sd_inq->inq_ansi > 1)) {
7321                 un->un_density_known = 1;
7322                 rval = 0;
7323                 goto exit;
7324         }
7325 
7326         /*
7327          * This will only work on variable record length tapes
7328          * if and only if all variable record length tapes autodensity
7329          * select.
7330          */
7331         size = (unsigned)(un->un_dp->bsize ? un->un_dp->bsize : SECSIZE);
7332         un->un_tmpbuf = kmem_alloc(size, KM_SLEEP);
7333 
7334         /*
7335          * Start at the specified density
7336          */
7337 
7338         dens = olddens = un->un_curdens = MT_DENSITY(un->un_dev);
7339 
7340         for (i = 0; i < NDENSITIES; i++, ((un->un_curdens == NDENSITIES - 1) ?
7341             (un->un_curdens = 0) : (un->un_curdens += 1))) {
7342                 /*
7343                  * If we've done this density before,
7344                  * don't bother to do it again.
7345                  */
7346                 dens = un->un_dp->densities[un->un_curdens];
7347                 if (i > 0 && dens == olddens)
7348                         continue;
7349                 olddens = dens;
7350                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7351                     "trying density 0x%x\n", dens);
7352                 if (st_set_density(un)) {
7353                         continue;
7354                 }
7355 
7356                 /*
7357                  * XXX - the creates lots of headaches and slowdowns - must
7358                  * fix.
7359                  */
7360                 succes = (st_cmd(un, SCMD_READ, (int)size, SYNC_CMD) == 0);
7361                 if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD)) {
7362                         break;
7363                 }
7364                 if (succes) {
7365                         st_init(un);
7366                         rval = 0;
7367                         un->un_density_known = 1;
7368                         break;
7369                 }
7370         }
7371         kmem_free(un->un_tmpbuf, size);
7372         un->un_tmpbuf = 0;
7373 
7374 exit:
7375         ASSERT(mutex_owned(ST_MUTEX));
7376         return (rval);
7377 }
7378 
7379 static int
7380 st_set_density(struct scsi_tape *un)
7381 {
7382         int rval = 0;
7383 
7384         ST_FUNC(ST_DEVINFO, st_set_density);
7385 
7386         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7387             "st_set_density(un = 0x%p): density = 0x%x\n", (void*)un,
7388             un->un_dp->densities[un->un_curdens]);
7389 
7390         ASSERT(mutex_owned(ST_MUTEX));
7391 
7392         un->un_mspl->density = un->un_dp->densities[un->un_curdens];
7393 
7394         if ((un->un_dp->options & ST_AUTODEN_OVERRIDE) == 0) {
7395                 /*
7396                  * If auto density override is not set, Use mode select
7397                  * to set density and compression.
7398                  */
7399                 if (st_modeselect(un)) {
7400                         rval = -1;
7401                 }
7402         } else if ((un->un_dp->options & ST_MODE_SEL_COMP) != 0) {
7403                 /*
7404                  * If auto density and mode select compression are set,
7405                  * This is a drive with one density code but compression
7406                  * can be enabled or disabled.
7407                  * Set compression but no need to set density.
7408                  */
7409                 rval = st_set_compression(un);
7410                 if ((rval != 0) && (rval != EALREADY)) {
7411                         rval = -1;
7412                 } else {
7413                         rval = 0;
7414                 }
7415         }
7416 
7417         /* If sucessful set density and/or compression, mark density known */
7418         if (rval == 0) {
7419                 un->un_density_known = 1;
7420         }
7421 
7422         ASSERT(mutex_owned(ST_MUTEX));
7423         return (rval);
7424 }
7425 
7426 static int
7427 st_loadtape(struct scsi_tape *un)
7428 {
7429         int rval;
7430 
7431         ST_FUNC(ST_DEVINFO, st_loadtape);
7432 
7433         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7434             "st_loadtape(un = 0x%p)\n", (void*) un);
7435 
7436         ASSERT(mutex_owned(ST_MUTEX));
7437 
7438         rval = st_update_block_pos(un, st_cmd, 0);
7439         if (rval == EACCES) {
7440                 return (rval);
7441         }
7442 
7443         /*
7444          * 'LOAD' the tape to BOT by rewinding
7445          */
7446         rval = st_cmd(un, SCMD_REWIND, 1, SYNC_CMD);
7447         if (rval == 0) {
7448                 st_init(un);
7449                 un->un_density_known = 0;
7450         }
7451 
7452         ASSERT(mutex_owned(ST_MUTEX));
7453         return (rval);
7454 }
7455 
7456 
7457 /*
7458  * Note: QIC devices aren't so smart.  If you try to append
7459  * after EOM, the write can fail because the device doesn't know
7460  * it's at EOM.  In that case, issue a read.  The read should fail
7461  * because there's no data, but the device knows it's at EOM,
7462  * so a subsequent write should succeed.  To further confuse matters,
7463  * the target returns the same error if the tape is positioned
7464  * such that a write would overwrite existing data.  That's why
7465  * we have to do the append test.  A read in the middle of
7466  * recorded data would succeed, thus indicating we're attempting
7467  * something illegal.
7468  */
7469 
7470 
7471 static void
7472 st_test_append(struct buf *bp)
7473 {
7474         dev_t dev = bp->b_edev;
7475         struct scsi_tape *un;
7476         uchar_t status;
7477         unsigned bcount;
7478 
7479         un = ddi_get_soft_state(st_state, MTUNIT(dev));
7480 
7481         ST_FUNC(ST_DEVINFO, st_test_append);
7482 
7483         ASSERT(mutex_owned(ST_MUTEX));
7484 
7485         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7486             "st_test_append(): fileno %d\n", un->un_pos.fileno);
7487 
7488         un->un_laststate = un->un_state;
7489         un->un_state = ST_STATE_APPEND_TESTING;
7490         un->un_test_append = 0;
7491 
7492         /*
7493          * first, map in the buffer, because we're doing a double write --
7494          * first into the kernel, then onto the tape.
7495          */
7496         bp_mapin(bp);
7497 
7498         /*
7499          * get a copy of the data....
7500          */
7501         un->un_tmpbuf = kmem_alloc((unsigned)bp->b_bcount, KM_SLEEP);
7502         bcopy(bp->b_un.b_addr, un->un_tmpbuf, (uint_t)bp->b_bcount);
7503 
7504         /*
7505          * attempt the write..
7506          */
7507 
7508         if (st_cmd(un, (int)SCMD_WRITE, (int)bp->b_bcount, SYNC_CMD) == 0) {
7509 success:
7510                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7511                     "append write succeeded\n");
7512                 bp->b_resid = un->un_sbufp->b_resid;
7513                 mutex_exit(ST_MUTEX);
7514                 bcount = (unsigned)bp->b_bcount;
7515                 biodone(bp);
7516                 mutex_enter(ST_MUTEX);
7517                 un->un_laststate = un->un_state;
7518                 un->un_state = ST_STATE_OPEN;
7519                 kmem_free(un->un_tmpbuf, bcount);
7520                 un->un_tmpbuf = NULL;
7521                 return;
7522         }
7523 
7524         /*
7525          * The append failed. Do a short read. If that fails,  we are at EOM
7526          * so we can retry the write command. If that succeeds, than we're
7527          * all screwed up (the controller reported a real error).
7528          *
7529          * XXX: should the dummy read be > SECSIZE? should it be the device's
7530          * XXX: block size?
7531          *
7532          */
7533         status = un->un_status;
7534         un->un_status = 0;
7535         (void) st_cmd(un, SCMD_READ, SECSIZE, SYNC_CMD);
7536         if (un->un_status == KEY_BLANK_CHECK) {
7537                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7538                     "append at EOM\n");
7539                 /*
7540                  * Okay- the read failed. We should actually have confused
7541                  * the controller enough to allow writing. In any case, the
7542                  * i/o is on its own from here on out.
7543                  */
7544                 un->un_laststate = un->un_state;
7545                 un->un_state = ST_STATE_OPEN;
7546                 bcopy(bp->b_un.b_addr, un->un_tmpbuf, (uint_t)bp->b_bcount);
7547                 if (st_cmd(un, (int)SCMD_WRITE, (int)bp->b_bcount,
7548                     SYNC_CMD) == 0) {
7549                         goto success;
7550                 }
7551         }
7552 
7553         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7554             "append write failed- not at EOM\n");
7555         bp->b_resid = bp->b_bcount;
7556         st_bioerror(bp, EIO);
7557 
7558         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
7559             "st_test_append : EIO : append write failed - not at EOM");
7560 
7561         /*
7562          * backspace one record to get back to where we were
7563          */
7564         if (st_cmd(un, SCMD_SPACE, Blk(-1), SYNC_CMD)) {
7565                 un->un_pos.pmode = invalid;
7566         }
7567 
7568         un->un_err_resid = bp->b_resid;
7569         un->un_status = status;
7570 
7571         /*
7572          * Note: biodone will do a bp_mapout()
7573          */
7574         mutex_exit(ST_MUTEX);
7575         bcount = (unsigned)bp->b_bcount;
7576         biodone(bp);
7577         mutex_enter(ST_MUTEX);
7578         un->un_laststate = un->un_state;
7579         un->un_state = ST_STATE_OPEN_PENDING_IO;
7580         kmem_free(un->un_tmpbuf, bcount);
7581         un->un_tmpbuf = NULL;
7582 }
7583 
7584 /*
7585  * Special command handler
7586  */
7587 
7588 /*
7589  * common st_cmd code. The fourth parameter states
7590  * whether the caller wishes to await the results
7591  * Note the release of the mutex during most of the function
7592  */
7593 static int
7594 st_cmd(struct scsi_tape *un, int com, int64_t count, int wait)
7595 {
7596         struct buf *bp;
7597         int err;
7598         uint_t last_err_resid;
7599 
7600         ST_FUNC(ST_DEVINFO, st_cmd);
7601 
7602         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7603             "st_cmd(dev = 0x%lx, com = 0x%x, count = %"PRIx64", wait = %d)\n",
7604             un->un_dev, com, count, wait);
7605 
7606         ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
7607         ASSERT(mutex_owned(ST_MUTEX));
7608 
7609 #ifdef STDEBUG
7610         if ((st_debug & 0x7)) {
7611                 st_debug_cmds(un, com, count, wait);
7612         }
7613 #endif
7614 
7615         st_wait_for_io(un);
7616 
7617         /* check to see if this command requires the drive to be reserved */
7618         err = st_check_cmd_for_need_to_reserve(un, com, count);
7619 
7620         if (err) {
7621                 return (err);
7622         }
7623 
7624         /*
7625          * A space command is not recoverable if we don't know were we
7626          * were when it was issued.
7627          */
7628         if ((com == SCMD_SPACE) || (com == SCMD_SPACE_G4)) {
7629                 (void) st_update_block_pos(un, st_cmd, 0);
7630         }
7631 
7632         /*
7633          * Forground should not be doing anything while recovery is active.
7634          */
7635         ASSERT(un->un_recov_buf_busy == 0);
7636 
7637         while (un->un_sbuf_busy)
7638                 cv_wait(&un->un_sbuf_cv, ST_MUTEX);
7639         un->un_sbuf_busy = 1;
7640 
7641         bp = un->un_sbufp;
7642         bzero(bp, sizeof (buf_t));
7643 
7644         bp->b_flags = (wait) ? B_BUSY : B_BUSY|B_ASYNC;
7645 
7646         err = st_setup_cmd(un, bp, com, count);
7647 
7648         un->un_sbuf_busy = 0;
7649 
7650         /*
7651          * If was a space command need to update logical block position.
7652          * Only do this if the command was sucessful or it will mask the fact
7653          * that the space command failed by promoting the pmode to logical.
7654          */
7655         if (((com == SCMD_SPACE) || (com == SCMD_SPACE_G4)) &&
7656             (un->un_pos.pmode != invalid)) {
7657                 un->un_running.pmode = invalid;
7658                 last_err_resid = un->un_err_resid;
7659                 (void) st_update_block_pos(un, st_cmd, 1);
7660                 /*
7661                  * Set running position to invalid so it updates on the
7662                  * next command.
7663                  */
7664                 un->un_running.pmode = invalid;
7665                 un->un_err_resid = last_err_resid;
7666         }
7667 
7668         cv_signal(&un->un_sbuf_cv);
7669 
7670         return (err);
7671 }
7672 
7673 static int
7674 st_setup_cmd(struct scsi_tape *un, buf_t *bp, int com, int64_t count)
7675 {
7676         int err;
7677         dev_t dev = un->un_dev;
7678 
7679         ST_FUNC(ST_DEVINFO, st_setup_cmd);
7680         /*
7681          * Set count to the actual size of the data tranfer.
7682          * For commands with no data transfer, set bp->b_bcount
7683          * to the value to be used when constructing the
7684          * cdb in st_make_cmd().
7685          */
7686         switch (com) {
7687         case SCMD_READ:
7688                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7689                     "special read %"PRId64"\n", count);
7690                 bp->b_flags |= B_READ;
7691                 bp->b_un.b_addr = un->un_tmpbuf;
7692                 break;
7693 
7694         case SCMD_WRITE:
7695                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7696                     "special write %"PRId64"\n", count);
7697                 bp->b_un.b_addr = un->un_tmpbuf;
7698                 break;
7699 
7700         case SCMD_WRITE_FILE_MARK:
7701                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7702                     "write %"PRId64" file marks\n", count);
7703                 bp->b_bcount = count;
7704                 count = 0;
7705                 break;
7706 
7707         case SCMD_REWIND:
7708                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "rewind\n");
7709                 bp->b_bcount = count;
7710                 count = 0;
7711                 break;
7712 
7713         case SCMD_SPACE:
7714                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "space\n");
7715                 /*
7716                  * If the user could have entered a number that will
7717                  * not fit in the 12 bit count field of space(8),
7718                  * use space(16).
7719                  */
7720                 if (((int64_t)SPACE_CNT(count) > 0x7fffff) ||
7721                     ((int64_t)SPACE_CNT(count) < -(0x7fffff))) {
7722                         com = SCMD_SPACE_G4;
7723                 }
7724                 bp->b_bcount = count;
7725                 count = 0;
7726                 break;
7727 
7728         case SCMD_RESERVE:
7729                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "reserve");
7730                 bp->b_bcount = 0;
7731                 count = 0;
7732                 break;
7733 
7734         case SCMD_RELEASE:
7735                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "release");
7736                 bp->b_bcount = 0;
7737                 count = 0;
7738                 break;
7739 
7740         case SCMD_LOAD:
7741                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7742                     "%s tape\n", (count & LD_LOAD) ? "load" : "unload");
7743                 bp->b_bcount = count;
7744                 count = 0;
7745                 break;
7746 
7747         case SCMD_ERASE:
7748                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7749                     "erase tape\n");
7750                 bp->b_bcount = count;
7751                 count = 0;
7752                 break;
7753 
7754         case SCMD_MODE_SENSE:
7755                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7756                     "mode sense\n");
7757                 bp->b_flags |= B_READ;
7758                 bp->b_un.b_addr = (caddr_t)(un->un_mspl);
7759                 break;
7760 
7761         case SCMD_MODE_SELECT:
7762                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7763                     "mode select\n");
7764                 bp->b_un.b_addr = (caddr_t)(un->un_mspl);
7765                 break;
7766 
7767         case SCMD_READ_BLKLIM:
7768                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7769                     "read block limits\n");
7770                 bp->b_bcount = count;
7771                 bp->b_flags |= B_READ;
7772                 bp->b_un.b_addr = (caddr_t)(un->un_rbl);
7773                 break;
7774 
7775         case SCMD_TEST_UNIT_READY:
7776                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7777                     "test unit ready\n");
7778                 bp->b_bcount = 0;
7779                 count = 0;
7780                 break;
7781 
7782         case SCMD_DOORLOCK:
7783                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7784                     "%s tape\n", (count & MR_LOCK) ? "lock" : "unlock");
7785                 bp->b_bcount = count = 0;
7786                 break;
7787 
7788         case SCMD_READ_POSITION:
7789                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7790                     "read position\n");
7791                 switch (un->un_read_pos_type) {
7792                 case LONG_POS:
7793                         count = sizeof (tape_position_long_t);
7794                         break;
7795                 case EXT_POS:
7796                         count = min(count, sizeof (tape_position_ext_t));
7797                         break;
7798                 case SHORT_POS:
7799                         count = sizeof (tape_position_t);
7800                         break;
7801                 default:
7802                         ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
7803                             "Unknown read position type 0x%x in "
7804                             "st_make_cmd()\n", un->un_read_pos_type);
7805                 }
7806                 bp->b_bcount = count;
7807                 bp->b_flags |= B_READ;
7808                 bp->b_un.b_addr = (caddr_t)un->un_read_pos_data;
7809                 break;
7810 
7811         default:
7812                 ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
7813                     "Unhandled scsi command 0x%x in st_setup_cmd()\n", com);
7814         }
7815 
7816         mutex_exit(ST_MUTEX);
7817 
7818         if (count > 0) {
7819                 int flg = (bp->b_flags & B_READ) ? B_READ : B_WRITE;
7820                 /*
7821                  * We're going to do actual I/O.
7822                  * Set things up for physio.
7823                  */
7824                 struct iovec aiov;
7825                 struct uio auio;
7826                 struct uio *uio = &auio;
7827 
7828                 bzero(&auio, sizeof (struct uio));
7829                 bzero(&aiov, sizeof (struct iovec));
7830                 aiov.iov_base = bp->b_un.b_addr;
7831                 aiov.iov_len = count;
7832 
7833                 uio->uio_iov = &aiov;
7834                 uio->uio_iovcnt = 1;
7835                 uio->uio_resid = aiov.iov_len;
7836                 uio->uio_segflg = UIO_SYSSPACE;
7837 
7838                 /*
7839                  * Let physio do the rest...
7840                  */
7841                 bp->b_forw = (struct buf *)(uintptr_t)com;
7842                 bp->b_back = NULL;
7843                 err = physio(st_strategy, bp, dev, flg, st_minphys, uio);
7844                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7845                     "st_setup_cmd: physio returns %d\n", err);
7846         } else {
7847                 /*
7848                  * Mimic physio
7849                  */
7850                 bp->b_forw = (struct buf *)(uintptr_t)com;
7851                 bp->b_back = NULL;
7852                 bp->b_edev = dev;
7853                 bp->b_dev = cmpdev(dev);
7854                 bp->b_blkno = 0;
7855                 bp->b_resid = 0;
7856                 (void) st_strategy(bp);
7857                 if (bp->b_flags & B_ASYNC) {
7858                         /*
7859                          * This is an async command- the caller won't wait
7860                          * and doesn't care about errors.
7861                          */
7862                         mutex_enter(ST_MUTEX);
7863                         return (0);
7864                 }
7865 
7866                 /*
7867                  * BugTraq #4260046
7868                  * ----------------
7869                  * Restore Solaris 2.5.1 behavior, namely call biowait
7870                  * unconditionally. The old comment said...
7871                  *
7872                  * "if strategy was flagged with  persistent errors, we would
7873                  *  have an error here, and the bp would never be sent, so we
7874                  *  don't want to wait on a bp that was never sent...or hang"
7875                  *
7876                  * The new rationale, courtesy of Chitrank...
7877                  *
7878                  * "we should unconditionally biowait() here because
7879                  *  st_strategy() will do a biodone() in the persistent error
7880                  *  case and the following biowait() will return immediately.
7881                  *  If not, in the case of "errors after pkt alloc" in
7882                  *  st_start(), we will not biowait here which will cause the
7883                  *  next biowait() to return immediately which will cause
7884                  *  us to send out the next command. In the case where both of
7885                  *  these use the sbuf, when the first command completes we'll
7886                  *  free the packet attached to sbuf and the same pkt will
7887                  *  get freed again when we complete the second command.
7888                  *  see esc 518987.  BTW, it is necessary to do biodone() in
7889                  *  st_start() for the pkt alloc failure case because physio()
7890                  *  does biowait() and will hang if we don't do biodone()"
7891                  */
7892 
7893                 err = biowait(bp);
7894                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7895                     "st_setup_cmd: biowait returns %d\n", err);
7896         }
7897 
7898         mutex_enter(ST_MUTEX);
7899 
7900         return (err);
7901 }
7902 
7903 static int
7904 st_set_compression(struct scsi_tape *un)
7905 {
7906         int rval;
7907         int turn_compression_on;
7908         minor_t minor;
7909 
7910         ST_FUNC(ST_DEVINFO, st_set_compression);
7911 
7912         /*
7913          * Drive either dosn't have compression or it is controlled with
7914          * special density codes. Return ENOTTY so caller
7915          * knows nothing was done.
7916          */
7917         if ((un->un_dp->options & ST_MODE_SEL_COMP) == 0) {
7918                 un->un_comp_page = 0;
7919                 return (ENOTTY);
7920         }
7921 
7922         /* set compression based on minor node opened */
7923         minor = MT_DENSITY(un->un_dev);
7924 
7925         /*
7926          * If this the compression density or
7927          * the drive has two densities and uses mode select for
7928          * control of compression turn on compression for MT_DENSITY2
7929          * as well.
7930          */
7931         if ((minor == ST_COMPRESSION_DENSITY) ||
7932             (minor == MT_DENSITY(MT_DENSITY2)) &&
7933             (un->un_dp->densities[0] == un->un_dp->densities[1]) &&
7934             (un->un_dp->densities[2] == un->un_dp->densities[3]) &&
7935             (un->un_dp->densities[0] != un->un_dp->densities[2])) {
7936 
7937                 turn_compression_on = 1;
7938         } else {
7939                 turn_compression_on = 0;
7940         }
7941 
7942         un->un_mspl->high_bl = (uchar_t)(un->un_bsize >> 16);
7943         un->un_mspl->mid_bl  = (uchar_t)(un->un_bsize >> 8);
7944         un->un_mspl->low_bl  = (uchar_t)(un->un_bsize);
7945 
7946         /*
7947          * Need to determine which page does the device use for compression.
7948          * First try the data compression page. If this fails try the device
7949          * configuration page
7950          */
7951 
7952         if ((un->un_comp_page & ST_DEV_DATACOMP_PAGE) == ST_DEV_DATACOMP_PAGE) {
7953                 rval = st_set_datacomp_page(un, turn_compression_on);
7954                 if (rval == EALREADY) {
7955                         return (rval);
7956                 }
7957                 if (rval != 0) {
7958                         if (un->un_status == KEY_ILLEGAL_REQUEST) {
7959                                 /*
7960                                  * This device does not support data
7961                                  * compression page
7962                                  */
7963                                 un->un_comp_page = ST_DEV_CONFIG_PAGE;
7964                         } else if (un->un_state >= ST_STATE_OPEN) {
7965                                 un->un_pos.pmode = invalid;
7966                                 rval = EIO;
7967                         } else {
7968                                 rval = -1;
7969                         }
7970                 } else {
7971                         un->un_comp_page = ST_DEV_DATACOMP_PAGE;
7972                 }
7973         }
7974 
7975         if ((un->un_comp_page & ST_DEV_CONFIG_PAGE) == ST_DEV_CONFIG_PAGE) {
7976                 rval = st_set_devconfig_page(un, turn_compression_on);
7977                 if (rval == EALREADY) {
7978                         return (rval);
7979                 }
7980                 if (rval != 0) {
7981                         if (un->un_status == KEY_ILLEGAL_REQUEST) {
7982                                 /*
7983                                  * This device does not support
7984                                  * compression at all advice the
7985                                  * user and unset ST_MODE_SEL_COMP
7986                                  */
7987                                 un->un_dp->options &= ~ST_MODE_SEL_COMP;
7988                                 un->un_comp_page = 0;
7989                                 scsi_log(ST_DEVINFO, st_label, CE_NOTE,
7990                                     "Device Does Not Support Compression\n");
7991                         } else if (un->un_state >= ST_STATE_OPEN) {
7992                                 un->un_pos.pmode = invalid;
7993                                 rval = EIO;
7994                         } else {
7995                                 rval = -1;
7996                         }
7997                 }
7998         }
7999 
8000         return (rval);
8001 }
8002 
8003 /*
8004  * set or unset compression thru device configuration page.
8005  */
8006 static int
8007 st_set_devconfig_page(struct scsi_tape *un, int compression_on)
8008 {
8009         unsigned char cflag;
8010         int rval = 0;
8011 
8012 
8013         ST_FUNC(ST_DEVINFO, st_set_devconfig_page);
8014 
8015         ASSERT(mutex_owned(ST_MUTEX));
8016 
8017         /*
8018          * if the mode sense page is not the correct one, load the correct one.
8019          */
8020         if (un->un_mspl->page_code != ST_DEV_CONFIG_PAGE) {
8021                 rval = st_gen_mode_sense(un, st_uscsi_cmd, ST_DEV_CONFIG_PAGE,
8022                     un->un_mspl, sizeof (struct seq_mode));
8023                 if (rval)
8024                         return (rval);
8025         }
8026 
8027         /*
8028          * Figure what to set compression flag to.
8029          */
8030         if (compression_on) {
8031                 /* They have selected a compression node */
8032                 if (un->un_dp->type == ST_TYPE_FUJI) {
8033                         cflag = 0x84;   /* use EDRC */
8034                 } else {
8035                         cflag = ST_DEV_CONFIG_DEF_COMP;
8036                 }
8037         } else {
8038                 cflag = ST_DEV_CONFIG_NO_COMP;
8039         }
8040 
8041         /*
8042          * If compression is already set the way it was requested.
8043          * And if this not the first time we has tried.
8044          */
8045         if ((cflag == un->un_mspl->page.dev.comp_alg) &&
8046             (un->un_comp_page == ST_DEV_CONFIG_PAGE)) {
8047                 return (EALREADY);
8048         }
8049 
8050         un->un_mspl->page.dev.comp_alg = cflag;
8051         /*
8052          * need to send mode select even if correct compression is
8053          * already set since need to set density code
8054          */
8055 
8056 #ifdef STDEBUG
8057         if ((st_debug & 0x7) >= 6) {
8058                 st_clean_print(ST_DEVINFO, st_label, SCSI_DEBUG,
8059                     "st_set_devconfig_page: sense data for mode select",
8060                     (char *)un->un_mspl, sizeof (struct seq_mode));
8061         }
8062 #endif
8063         rval = st_gen_mode_select(un, st_uscsi_cmd, un->un_mspl,
8064             sizeof (struct seq_mode));
8065 
8066         return (rval);
8067 }
8068 
8069 /*
8070  * set/reset compression bit thru data compression page
8071  */
8072 static int
8073 st_set_datacomp_page(struct scsi_tape *un, int compression_on)
8074 {
8075         int compression_on_already;
8076         int rval = 0;
8077 
8078 
8079         ST_FUNC(ST_DEVINFO, st_set_datacomp_page);
8080 
8081         ASSERT(mutex_owned(ST_MUTEX));
8082 
8083         /*
8084          * if the mode sense page is not the correct one, load the correct one.
8085          */
8086         if (un->un_mspl->page_code != ST_DEV_DATACOMP_PAGE) {
8087                 rval = st_gen_mode_sense(un, st_uscsi_cmd, ST_DEV_DATACOMP_PAGE,
8088                     un->un_mspl, sizeof (struct seq_mode));
8089                 if (rval)
8090                         return (rval);
8091         }
8092 
8093         /*
8094          * If drive is not capable of compression (at this time)
8095          * return EALREADY so caller doesn't think that this page
8096          * is not supported. This check is for drives that can
8097          * disable compression from the front panel or configuration.
8098          * I doubt that a drive that supports this page is not really
8099          * capable of compression.
8100          */
8101         if (un->un_mspl->page.comp.dcc == 0) {
8102                 return (EALREADY);
8103         }
8104 
8105         /* See if compression currently turned on */
8106         if (un->un_mspl->page.comp.dce) {
8107                 compression_on_already = 1;
8108         } else {
8109                 compression_on_already = 0;
8110         }
8111 
8112         /*
8113          * If compression is already set the way it was requested.
8114          * And if this not the first time we has tried.
8115          */
8116         if ((compression_on == compression_on_already) &&
8117             (un->un_comp_page == ST_DEV_DATACOMP_PAGE)) {
8118                 return (EALREADY);
8119         }
8120 
8121         /*
8122          * if we are already set to the appropriate compression
8123          * mode, don't set it again
8124          */
8125         if (compression_on) {
8126                 /* compression selected */
8127                 un->un_mspl->page.comp.dce = 1;
8128         } else {
8129                 un->un_mspl->page.comp.dce = 0;
8130         }
8131 
8132 
8133 #ifdef STDEBUG
8134         if ((st_debug & 0x7) >= 6) {
8135                 st_clean_print(ST_DEVINFO, st_label, SCSI_DEBUG,
8136                     "st_set_datacomp_page: sense data for mode select",
8137                     (char *)un->un_mspl, sizeof (struct seq_mode));
8138         }
8139 #endif
8140         rval = st_gen_mode_select(un, st_uscsi_cmd, un->un_mspl,
8141             sizeof (struct seq_mode));
8142 
8143         return (rval);
8144 }
8145 
8146 static int
8147 st_modesense(struct scsi_tape *un)
8148 {
8149         int rval;
8150         uchar_t page;
8151 
8152         ST_FUNC(ST_DEVINFO, st_modesense);
8153 
8154         page = un->un_comp_page;
8155 
8156         switch (page) {
8157         case ST_DEV_DATACOMP_PAGE:
8158         case ST_DEV_CONFIG_PAGE: /* FALLTHROUGH */
8159                 rval = st_gen_mode_sense(un, st_uscsi_cmd, page, un->un_mspl,
8160                     sizeof (struct seq_mode));
8161                 break;
8162 
8163         case ST_DEV_DATACOMP_PAGE | ST_DEV_CONFIG_PAGE:
8164                 if (un->un_dp->options & ST_MODE_SEL_COMP) {
8165                         page = ST_DEV_DATACOMP_PAGE;
8166                         rval = st_gen_mode_sense(un, st_uscsi_cmd, page,
8167                             un->un_mspl, sizeof (struct seq_mode));
8168                         if (rval == 0 && un->un_mspl->page_code == page) {
8169                                 un->un_comp_page = page;
8170                                 break;
8171                         }
8172                         page = ST_DEV_CONFIG_PAGE;
8173                         rval = st_gen_mode_sense(un, st_uscsi_cmd, page,
8174                             un->un_mspl, sizeof (struct seq_mode));
8175                         if (rval == 0 && un->un_mspl->page_code == page) {
8176                                 un->un_comp_page = page;
8177                                 break;
8178                         }
8179                         un->un_dp->options &= ~ST_MODE_SEL_COMP;
8180                         un->un_comp_page = 0;
8181                 } else {
8182                         un->un_comp_page = 0;
8183                 }
8184 
8185         default:        /* FALLTHROUGH */
8186                 rval = st_cmd(un, SCMD_MODE_SENSE, MSIZE, SYNC_CMD);
8187         }
8188         return (rval);
8189 }
8190 
8191 static int
8192 st_modeselect(struct scsi_tape *un)
8193 {
8194         int rval = 0;
8195         int ix;
8196 
8197         ST_FUNC(ST_DEVINFO, st_modeselect);
8198 
8199         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
8200             "st_modeselect(dev = 0x%lx): density = 0x%x\n",
8201             un->un_dev, un->un_mspl->density);
8202 
8203         ASSERT(mutex_owned(ST_MUTEX));
8204 
8205         /*
8206          * The parameter list should be the same for all of the
8207          * cases that follow so set them here
8208          *
8209          * Try mode select first if if fails set fields manually
8210          */
8211         rval = st_modesense(un);
8212         if (rval != 0) {
8213                 ST_DEBUG3(ST_DEVINFO, st_label, CE_WARN,
8214                     "st_modeselect: First mode sense failed\n");
8215                 un->un_mspl->bd_len  = 8;
8216                 un->un_mspl->high_nb = 0;
8217                 un->un_mspl->mid_nb  = 0;
8218                 un->un_mspl->low_nb  = 0;
8219         }
8220         un->un_mspl->high_bl = (uchar_t)(un->un_bsize >> 16);
8221         un->un_mspl->mid_bl  = (uchar_t)(un->un_bsize >> 8);
8222         un->un_mspl->low_bl  = (uchar_t)(un->un_bsize);
8223 
8224 
8225         /*
8226          * If configured to use a specific density code for a media type.
8227          * curdens is previously set by the minor node opened.
8228          * If the media type doesn't match the minor node we change it so it
8229          * looks like the correct one was opened.
8230          */
8231         if (un->un_dp->options & ST_KNOWS_MEDIA) {
8232                 uchar_t best;
8233 
8234                 for (best = 0xff, ix = 0; ix < NDENSITIES; ix++) {
8235                         if (un->un_mspl->media_type ==
8236                             un->un_dp->mediatype[ix]) {
8237                                 best = ix;
8238                                 /*
8239                                  * It matches but it might not be the only one.
8240                                  * Use the highest matching media type but not
8241                                  * to exceed the density selected by the open.
8242                                  */
8243                                 if (ix < un->un_curdens) {
8244                                         continue;
8245                                 }
8246                                 un->un_curdens = ix;
8247                                 break;
8248                         }
8249                 }
8250                 /* If a match was found best will not be 0xff any more */
8251                 if (best < NDENSITIES) {
8252                         ST_DEBUG3(ST_DEVINFO, st_label, CE_WARN,
8253                             "found media 0x%X using density 0x%X\n",
8254                             un->un_mspl->media_type,
8255                             un->un_dp->densities[best]);
8256                         un->un_mspl->density = un->un_dp->densities[best];
8257                 } else {
8258                         /* Otherwise set density based on minor node opened */
8259                         un->un_mspl->density =
8260                             un->un_dp->densities[un->un_curdens];
8261                 }
8262         } else {
8263                 un->un_mspl->density = un->un_dp->densities[un->un_curdens];
8264         }
8265 
8266         if (un->un_dp->options & ST_NOBUF) {
8267                 un->un_mspl->bufm = 0;
8268         } else {
8269                 un->un_mspl->bufm = 1;
8270         }
8271 
8272         rval = st_set_compression(un);
8273 
8274         /*
8275          * If st_set_compression returned invalid or already it
8276          * found no need to do the mode select.
8277          * So do it here.
8278          */
8279         if ((rval == ENOTTY) || (rval == EALREADY)) {
8280 
8281                 /* Zero non-writeable fields */
8282                 un->un_mspl->data_len = 0;
8283                 un->un_mspl->media_type = 0;
8284                 un->un_mspl->wp = 0;
8285 
8286                 /* need to set the density code */
8287                 rval = st_cmd(un, SCMD_MODE_SELECT, MSIZE, SYNC_CMD);
8288                 if (rval != 0) {
8289                         if (un->un_state >= ST_STATE_OPEN) {
8290                                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
8291                                     "unable to set tape mode\n");
8292                                 un->un_pos.pmode = invalid;
8293                                 rval = EIO;
8294                         } else {
8295                                 rval = -1;
8296                         }
8297                 }
8298         }
8299 
8300         /*
8301          * The spec recommends to send a mode sense after a mode select
8302          */
8303         (void) st_modesense(un);
8304 
8305         ASSERT(mutex_owned(ST_MUTEX));
8306 
8307         return (rval);
8308 }
8309 
8310 /*
8311  * st_gen_mode_sense
8312  *
8313  * generic mode sense.. it allows for any page
8314  */
8315 static int
8316 st_gen_mode_sense(struct scsi_tape *un, ubufunc_t ubf, int page,
8317     struct seq_mode *page_data, int page_size)
8318 {
8319 
8320         int r;
8321         char    cdb[CDB_GROUP0];
8322         struct uscsi_cmd *com;
8323         struct scsi_arq_status status;
8324 
8325         ST_FUNC(ST_DEVINFO, st_gen_mode_sense);
8326 
8327         com = kmem_zalloc(sizeof (*com), KM_SLEEP);
8328 
8329         bzero(cdb, CDB_GROUP0);
8330         cdb[0] = SCMD_MODE_SENSE;
8331         cdb[2] = (char)page;
8332         cdb[4] = (char)page_size;
8333 
8334         com->uscsi_cdb = cdb;
8335         com->uscsi_cdblen = CDB_GROUP0;
8336         com->uscsi_bufaddr = (caddr_t)page_data;
8337         com->uscsi_buflen = page_size;
8338         com->uscsi_rqlen = sizeof (status);
8339         com->uscsi_rqbuf = (caddr_t)&status;
8340         com->uscsi_timeout = un->un_dp->non_motion_timeout;
8341         com->uscsi_flags = USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
8342 
8343         r = ubf(un, com, FKIOCTL);
8344         kmem_free(com, sizeof (*com));
8345         return (r);
8346 }
8347 
8348 /*
8349  * st_gen_mode_select
8350  *
8351  * generic mode select.. it allows for any page
8352  */
8353 static int
8354 st_gen_mode_select(struct scsi_tape *un, ubufunc_t ubf,
8355     struct seq_mode *page_data, int page_size)
8356 {
8357 
8358         int r;
8359         char cdb[CDB_GROUP0];
8360         struct uscsi_cmd *com;
8361         struct scsi_arq_status status;
8362 
8363         ST_FUNC(ST_DEVINFO, st_gen_mode_select);
8364 
8365         /* Zero non-writeable fields */
8366         page_data->data_len = 0;
8367         page_data->media_type = 0;
8368         page_data->wp = 0;
8369 
8370         /*
8371          * If mode select has any page data, zero the ps (Page Savable) bit.
8372          */
8373         if (page_size > MSIZE) {
8374                 page_data->ps = 0;
8375         }
8376 
8377 
8378         com = kmem_zalloc(sizeof (*com), KM_SLEEP);
8379 
8380         /*
8381          * then, do a mode select to set what ever info
8382          */
8383         bzero(cdb, CDB_GROUP0);
8384         cdb[0] = SCMD_MODE_SELECT;
8385         cdb[1] = 0x10;          /* set PF bit for many third party drives */
8386         cdb[4] = (char)page_size;
8387 
8388         com->uscsi_cdb = cdb;
8389         com->uscsi_cdblen = CDB_GROUP0;
8390         com->uscsi_bufaddr = (caddr_t)page_data;
8391         com->uscsi_buflen = page_size;
8392         com->uscsi_rqlen = sizeof (status);
8393         com->uscsi_rqbuf = (caddr_t)&status;
8394         com->uscsi_timeout = un->un_dp->non_motion_timeout;
8395         com->uscsi_flags = USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_WRITE;
8396 
8397         r = ubf(un, com, FKIOCTL);
8398 
8399         kmem_free(com, sizeof (*com));
8400         return (r);
8401 }
8402 
8403 static int
8404 st_read_block_limits(struct scsi_tape *un, struct read_blklim *read_blk)
8405 {
8406         int rval;
8407         char cdb[CDB_GROUP0];
8408         struct uscsi_cmd *com;
8409         struct scsi_arq_status status;
8410 
8411         ST_FUNC(ST_DEVINFO, st_read_block_limits);
8412 
8413         com = kmem_zalloc(sizeof (*com), KM_SLEEP);
8414 
8415         bzero(cdb, CDB_GROUP0);
8416         cdb[0] = SCMD_READ_BLKLIM;
8417 
8418         com->uscsi_cdb = cdb;
8419         com->uscsi_cdblen = CDB_GROUP0;
8420         com->uscsi_bufaddr = (caddr_t)read_blk;
8421         com->uscsi_buflen = sizeof (struct read_blklim);
8422         com->uscsi_rqlen = sizeof (status);
8423         com->uscsi_rqbuf = (caddr_t)&status;
8424         com->uscsi_timeout = un->un_dp->non_motion_timeout;
8425         com->uscsi_flags = USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
8426 
8427         rval = st_uscsi_cmd(un, com, FKIOCTL);
8428         if (com->uscsi_status || com->uscsi_resid) {
8429                 rval = -1;
8430         }
8431 
8432         kmem_free(com, sizeof (*com));
8433         return (rval);
8434 }
8435 
8436 static int
8437 st_report_density_support(struct scsi_tape *un, uchar_t *density_data,
8438     size_t buflen)
8439 {
8440         int rval;
8441         char cdb[CDB_GROUP1];
8442         struct uscsi_cmd *com;
8443         struct scsi_arq_status status;
8444 
8445         ST_FUNC(ST_DEVINFO, st_report_density_support);
8446 
8447         com = kmem_zalloc(sizeof (*com), KM_SLEEP);
8448 
8449         bzero(cdb, CDB_GROUP1);
8450         cdb[0] = SCMD_REPORT_DENSITIES;
8451         cdb[7] = (buflen & 0xff00) >> 8;
8452         cdb[8] = buflen & 0xff;
8453 
8454         com->uscsi_cdb = cdb;
8455         com->uscsi_cdblen = CDB_GROUP1;
8456         com->uscsi_bufaddr = (caddr_t)density_data;
8457         com->uscsi_buflen = buflen;
8458         com->uscsi_rqlen = sizeof (status);
8459         com->uscsi_rqbuf = (caddr_t)&status;
8460         com->uscsi_timeout = un->un_dp->non_motion_timeout;
8461         com->uscsi_flags = USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
8462 
8463         rval = st_uscsi_cmd(un, com, FKIOCTL);
8464         if (com->uscsi_status || com->uscsi_resid) {
8465                 rval = -1;
8466         }
8467 
8468         kmem_free(com, sizeof (*com));
8469         return (rval);
8470 }
8471 
8472 static int
8473 st_report_supported_operation(struct scsi_tape *un, uchar_t *oper_data,
8474     uchar_t option_code, ushort_t service_action)
8475 {
8476         int rval;
8477         char cdb[CDB_GROUP5];
8478         struct uscsi_cmd *com;
8479         struct scsi_arq_status status;
8480         uint32_t allo_length;
8481 
8482         ST_FUNC(ST_DEVINFO, st_report_supported_operation);
8483 
8484         allo_length = sizeof (struct one_com_des) +
8485             sizeof (struct com_timeout_des);
8486         com = kmem_zalloc(sizeof (*com), KM_SLEEP);
8487 
8488         bzero(cdb, CDB_GROUP5);
8489         cdb[0] = (char)SCMD_MAINTENANCE_IN;
8490         cdb[1] = SSVC_ACTION_GET_SUPPORTED_OPERATIONS;
8491         if (service_action) {
8492                 cdb[2] = (char)(ONE_COMMAND_DATA_FORMAT | 0x80); /* RCTD */
8493                 cdb[4] = (service_action & 0xff00) >> 8;
8494                 cdb[5] = service_action & 0xff;
8495         } else {
8496                 cdb[2] = (char)(ONE_COMMAND_NO_SERVICE_DATA_FORMAT |
8497                     0x80); /* RCTD */
8498         }
8499         cdb[3] = option_code;
8500         cdb[6] = (allo_length & 0xff000000) >> 24;
8501         cdb[7] = (allo_length & 0xff0000) >> 16;
8502         cdb[8] = (allo_length & 0xff00) >> 8;
8503         cdb[9] = allo_length & 0xff;
8504 
8505         com->uscsi_cdb = cdb;
8506         com->uscsi_cdblen = CDB_GROUP5;
8507         com->uscsi_bufaddr = (caddr_t)oper_data;
8508         com->uscsi_buflen = allo_length;
8509         com->uscsi_rqlen = sizeof (status);
8510         com->uscsi_rqbuf = (caddr_t)&status;
8511         com->uscsi_timeout = un->un_dp->non_motion_timeout;
8512         com->uscsi_flags = USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
8513 
8514         rval = st_uscsi_cmd(un, com, FKIOCTL);
8515         if (com->uscsi_status) {
8516                 rval = -1;
8517         }
8518 
8519         kmem_free(com, sizeof (*com));
8520         return (rval);
8521 }
8522 
8523 /*
8524  * Changes devices blocksize and bsize to requested blocksize nblksz.
8525  * Returns returned value from first failed call or zero on success.
8526  */
8527 static int
8528 st_change_block_size(struct scsi_tape *un, uint32_t nblksz)
8529 {
8530         struct seq_mode *current;
8531         int rval;
8532         uint32_t oldblksz;
8533 
8534         ST_FUNC(ST_DEVINFO, st_change_block_size);
8535 
8536         current = kmem_zalloc(MSIZE, KM_SLEEP);
8537 
8538         /*
8539          * If we haven't got the compression page yet, do that first.
8540          */
8541         if (un->un_comp_page == (ST_DEV_DATACOMP_PAGE | ST_DEV_CONFIG_PAGE)) {
8542                 (void) st_modesense(un);
8543         }
8544 
8545         /* Read current settings */
8546         rval = st_gen_mode_sense(un, st_uscsi_cmd, 0, current, MSIZE);
8547         if (rval != 0) {
8548                 scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
8549                     "mode sense for change block size failed: rval = %d", rval);
8550                 goto finish;
8551         }
8552 
8553         /* Figure the current block size */
8554         oldblksz =
8555             (current->high_bl << 16) |
8556             (current->mid_bl << 8) |
8557             (current->low_bl);
8558 
8559         /* If current block size is the same as requested were done */
8560         if (oldblksz == nblksz) {
8561                 un->un_bsize = nblksz;
8562                 rval = 0;
8563                 goto finish;
8564         }
8565 
8566         /* Change to requested block size */
8567         current->high_bl = (uchar_t)(nblksz >> 16);
8568         current->mid_bl  = (uchar_t)(nblksz >> 8);
8569         current->low_bl  = (uchar_t)(nblksz);
8570 
8571         /* Attempt to change block size */
8572         rval = st_gen_mode_select(un, st_uscsi_cmd, current, MSIZE);
8573         if (rval != 0) {
8574                 scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
8575                     "Set new block size failed: rval = %d", rval);
8576                 goto finish;
8577         }
8578 
8579         /* Read back and verify setting */
8580         rval = st_modesense(un);
8581         if (rval == 0) {
8582                 un->un_bsize =
8583                     (un->un_mspl->high_bl << 16) |
8584                     (un->un_mspl->mid_bl << 8) |
8585                     (un->un_mspl->low_bl);
8586 
8587                 if (un->un_bsize != nblksz) {
8588                         scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
8589                             "Blocksize set does not equal requested blocksize"
8590                             "(read: %u requested: %u)\n", nblksz, un->un_bsize);
8591                         rval = EIO;
8592                 }
8593         }
8594 finish:
8595         kmem_free(current, MSIZE);
8596         return (rval);
8597 }
8598 
8599 
8600 static void
8601 st_init(struct scsi_tape *un)
8602 {
8603         ST_FUNC(ST_DEVINFO, st_init);
8604 
8605         ASSERT(mutex_owned(ST_MUTEX));
8606 
8607         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
8608             "st_init(): dev = 0x%lx, will reset fileno, blkno, eof\n",
8609             un->un_dev);
8610 
8611         un->un_pos.blkno = 0;
8612         un->un_pos.fileno = 0;
8613         un->un_lastop = ST_OP_NIL;
8614         un->un_pos.eof = ST_NO_EOF;
8615         un->un_pwr_mgmt = ST_PWR_NORMAL;
8616         if (st_error_level != SCSI_ERR_ALL) {
8617                 if (DEBUGGING) {
8618                         st_error_level = SCSI_ERR_ALL;
8619                 } else {
8620                         st_error_level = SCSI_ERR_RETRYABLE;
8621                 }
8622         }
8623 }
8624 
8625 
8626 static void
8627 st_make_cmd(struct scsi_tape *un, struct buf *bp, int (*func)(caddr_t))
8628 {
8629         struct scsi_pkt *pkt;
8630         struct uscsi_cmd *ucmd;
8631         recov_info *ri;
8632         int tval = 0;
8633         int64_t count;
8634         uint32_t additional = 0;
8635         uint32_t address = 0;
8636         union scsi_cdb *ucdb;
8637         int flags = 0;
8638         int cdb_len = CDB_GROUP0; /* default */
8639         uchar_t com;
8640         char fixbit;
8641         char short_fm = 0;
8642         optype prev_op = un->un_lastop;
8643         int stat_size =
8644             (un->un_arq_enabled ? sizeof (struct scsi_arq_status) : 1);
8645 
8646         ST_FUNC(ST_DEVINFO, st_make_cmd);
8647 
8648         ASSERT(mutex_owned(ST_MUTEX));
8649 
8650         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
8651             "st_make_cmd(): dev = 0x%lx\n", un->un_dev);
8652 
8653 
8654         /*
8655          * fixbit is for setting the Fixed Mode and Suppress Incorrect
8656          * Length Indicator bits on read/write commands, for setting
8657          * the Long bit on erase commands, and for setting the Code
8658          * Field bits on space commands.
8659          */
8660 
8661         /* regular raw I/O */
8662         if ((bp != un->un_sbufp) && (bp != un->un_recov_buf)) {
8663                 pkt = scsi_init_pkt(ROUTE, NULL, bp,
8664                     CDB_GROUP0, stat_size, st_recov_sz, 0, func,
8665                     (caddr_t)un);
8666                 if (pkt == NULL) {
8667                         scsi_log(ST_DEVINFO, st_label, CE_NOTE,
8668                             "Read Write scsi_init_pkt() failure\n");
8669                         goto exit;
8670                 }
8671                 ASSERT(pkt->pkt_resid == 0);
8672 #ifdef STDEBUG
8673                 bzero(pkt->pkt_private, st_recov_sz);
8674                 bzero(pkt->pkt_scbp, stat_size);
8675 #endif
8676                 ri = (recov_info *)pkt->pkt_private;
8677                 ri->privatelen = st_recov_sz;
8678                 if (un->un_bsize == 0) {
8679                         count = bp->b_bcount;
8680                         fixbit = 0;
8681                 } else {
8682                         count = bp->b_bcount / un->un_bsize;
8683                         fixbit = 1;
8684                 }
8685                 if (bp->b_flags & B_READ) {
8686                         com = SCMD_READ;
8687                         un->un_lastop = ST_OP_READ;
8688                         if ((un->un_bsize == 0) && /* Not Fixed Block */
8689                             (un->un_dp->options & ST_READ_IGNORE_ILI)) {
8690                                 fixbit = 2;
8691                         }
8692                 } else {
8693                         com = SCMD_WRITE;
8694                         un->un_lastop = ST_OP_WRITE;
8695                 }
8696                 tval = un->un_dp->io_timeout;
8697 
8698                 /*
8699                  * For really large xfers, increase timeout
8700                  */
8701                 if (bp->b_bcount > (10 * ONE_MEG))
8702                         tval *= bp->b_bcount/(10 * ONE_MEG);
8703 
8704                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8705                     "%s %d amt 0x%lx\n", (com == SCMD_WRITE) ?
8706                     wr_str: rd_str, un->un_pos.blkno, bp->b_bcount);
8707 
8708         } else if ((ucmd = BP_UCMD(bp)) != NULL) {
8709                 /*
8710                  * uscsi - build command, allocate scsi resources
8711                  */
8712                 st_make_uscsi_cmd(un, ucmd, bp, func);
8713                 goto exit;
8714 
8715         } else {                                /* special I/O */
8716                 struct buf *allocbp = NULL;
8717                 com = (uchar_t)(uintptr_t)bp->b_forw;
8718                 count = bp->b_bcount;
8719 
8720                 switch (com) {
8721                 case SCMD_READ:
8722                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8723                             "special read %"PRId64"\n", count);
8724                         if (un->un_bsize == 0) {
8725                                 fixbit = 2;     /* suppress SILI */
8726                         } else {
8727                                 fixbit = 1;     /* Fixed Block Mode */
8728                                 count /= un->un_bsize;
8729                         }
8730                         allocbp = bp;
8731                         un->un_lastop = ST_OP_READ;
8732                         tval = un->un_dp->io_timeout;
8733                         break;
8734 
8735                 case SCMD_WRITE:
8736                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8737                             "special write %"PRId64"\n", count);
8738                         if (un->un_bsize != 0) {
8739                                 fixbit = 1;     /* Fixed Block Mode */
8740                                 count /= un->un_bsize;
8741                         } else {
8742                                 fixbit = 0;
8743                         }
8744                         allocbp = bp;
8745                         un->un_lastop = ST_OP_WRITE;
8746                         tval = un->un_dp->io_timeout;
8747                         break;
8748 
8749                 case SCMD_WRITE_FILE_MARK:
8750                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8751                             "write %"PRId64" file marks\n", count);
8752                         un->un_lastop = ST_OP_WEOF;
8753                         fixbit = 0;
8754                         tval = un->un_dp->io_timeout;
8755                         /*
8756                          * If ST_SHORT_FILEMARKS bit is ON for EXABYTE
8757                          * device, set the Vendor Unique bit to
8758                          * write Short File Mark.
8759                          */
8760                         if ((un->un_dp->options & ST_SHORT_FILEMARKS) &&
8761                             ((un->un_dp->type == ST_TYPE_EXB8500) ||
8762                             (un->un_dp->type == ST_TYPE_EXABYTE))) {
8763                                 /*
8764                                  * Now the Vendor Unique bit 7 in Byte 5 of CDB
8765                                  * is set to to write Short File Mark
8766                                  */
8767                                 short_fm = 1;
8768                         }
8769                         break;
8770 
8771                 case SCMD_REWIND:
8772                         /*
8773                          * In the case of rewind we're gona do the rewind with
8774                          * the immediate bit set so status will be retured when
8775                          * the command is accepted by the device. We clear the
8776                          * B_ASYNC flag so we wait for that acceptance.
8777                          */
8778                         fixbit = 0;
8779                         if (bp->b_flags & B_ASYNC) {
8780                                 allocbp = bp;
8781                                 if (count) {
8782                                         fixbit = 1;
8783                                         bp->b_flags &= ~B_ASYNC;
8784                                 }
8785                         }
8786                         count = 0;
8787                         bp->b_bcount = 0;
8788                         un->un_lastop = ST_OP_CTL;
8789                         tval = un->un_dp->rewind_timeout;
8790                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8791                             "rewind\n");
8792                         break;
8793 
8794                 case SCMD_SPACE_G4:
8795                         cdb_len = CDB_GROUP4;
8796                         fixbit = SPACE_TYPE(bp->b_bcount);
8797                         count = SPACE_CNT(bp->b_bcount);
8798                         ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
8799                             " %s space %s %"PRId64" from file %d blk %d\n",
8800                             bp->b_bcount & SP_BACKSP ? "backward" : "forward",
8801                             space_strs[fixbit & 7], count,
8802                             un->un_pos.fileno, un->un_pos.blkno);
8803                         address = (count >> 48) & 0x1fff;
8804                         additional = (count >> 16) & 0xffffffff;
8805                         count &= 0xffff;
8806                         count <<= 16;
8807                         un->un_lastop = ST_OP_CTL;
8808                         tval = un->un_dp->space_timeout;
8809                         break;
8810 
8811                 case SCMD_SPACE:
8812                         fixbit = SPACE_TYPE(bp->b_bcount);
8813                         count = SPACE_CNT(bp->b_bcount);
8814                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8815                             " %s space %s %"PRId64" from file %d blk %d\n",
8816                             bp->b_bcount & SP_BACKSP ? "backward" : "forward",
8817                             space_strs[fixbit & 7], count,
8818                             un->un_pos.fileno, un->un_pos.blkno);
8819                         count &= 0xffffffff;
8820                         un->un_lastop = ST_OP_CTL;
8821                         tval = un->un_dp->space_timeout;
8822                         break;
8823 
8824                 case SCMD_LOAD:
8825                         ASSERT(count < 10);
8826                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8827                             "%s tape\n", load_strs[count]);
8828                         fixbit = 0;
8829 
8830                         /* Loading or Unloading */
8831                         if (count & LD_LOAD) {
8832                                 tval = un->un_dp->load_timeout;
8833                         } else {
8834                                 tval = un->un_dp->unload_timeout;
8835                         }
8836                         /* Is Retension requested */
8837                         if (count & LD_RETEN) {
8838                                 tval += un->un_dp->rewind_timeout;
8839                         }
8840                         un->un_lastop = ST_OP_CTL;
8841                         break;
8842 
8843                 case SCMD_ERASE:
8844                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8845                             "erase tape\n");
8846                         ASSERT(count == 1); /* mt sets this */
8847                         if (count == 1) {
8848                                 /*
8849                                  * do long erase
8850                                  */
8851                                 fixbit = 1; /* Long */
8852 
8853                                 /* Drive might not honor immidiate bit */
8854                                 tval = un->un_dp->erase_timeout;
8855                         } else {
8856                                 /* Short Erase */
8857                                 tval = un->un_dp->erase_timeout;
8858                                 fixbit = 0;
8859                         }
8860                         un->un_lastop = ST_OP_CTL;
8861                         count = 0;
8862                         break;
8863 
8864                 case SCMD_MODE_SENSE:
8865                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8866                             "mode sense\n");
8867                         allocbp = bp;
8868                         fixbit = 0;
8869                         tval = un->un_dp->non_motion_timeout;
8870                         un->un_lastop = ST_OP_CTL;
8871                         break;
8872 
8873                 case SCMD_MODE_SELECT:
8874                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8875                             "mode select\n");
8876                         allocbp = bp;
8877                         fixbit = 0;
8878                         tval = un->un_dp->non_motion_timeout;
8879                         un->un_lastop = ST_OP_CTL;
8880                         break;
8881 
8882                 case SCMD_RESERVE:
8883                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8884                             "reserve\n");
8885                         fixbit = 0;
8886                         tval = un->un_dp->non_motion_timeout;
8887                         un->un_lastop = ST_OP_CTL;
8888                         break;
8889 
8890                 case SCMD_RELEASE:
8891                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8892                             "release\n");
8893                         fixbit = 0;
8894                         tval = un->un_dp->non_motion_timeout;
8895                         un->un_lastop = ST_OP_CTL;
8896                         break;
8897 
8898                 case SCMD_READ_BLKLIM:
8899                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8900                             "read block limits\n");
8901                         allocbp = bp;
8902                         fixbit = count = 0;
8903                         tval = un->un_dp->non_motion_timeout;
8904                         un->un_lastop = ST_OP_CTL;
8905                         break;
8906 
8907                 case SCMD_TEST_UNIT_READY:
8908                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8909                             "test unit ready\n");
8910                         fixbit = 0;
8911                         tval = un->un_dp->non_motion_timeout;
8912                         un->un_lastop = ST_OP_CTL;
8913                         break;
8914 
8915                 case SCMD_DOORLOCK:
8916                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8917                             "prevent/allow media removal\n");
8918                         fixbit = 0;
8919                         tval = un->un_dp->non_motion_timeout;
8920                         un->un_lastop = ST_OP_CTL;
8921                         break;
8922 
8923                 case SCMD_READ_POSITION:
8924                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8925                             "read position\n");
8926                         fixbit = un->un_read_pos_type;
8927                         cdb_len = CDB_GROUP1;
8928                         tval = un->un_dp->non_motion_timeout;
8929                         allocbp = bp;
8930                         un->un_lastop = ST_OP_CTL;
8931                         switch (un->un_read_pos_type) {
8932                         case LONG_POS:
8933                                 count = 0;
8934                                 break;
8935                         case EXT_POS:
8936                                 count = sizeof (tape_position_ext_t);
8937                                 break;
8938                         case SHORT_POS:
8939                                 count = 0;
8940                                 break;
8941                         default:
8942                                 ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
8943                                     "Unknown read position type 0x%x in "
8944                                     " st_make_cmd()\n", un->un_read_pos_type);
8945                         }
8946                         break;
8947 
8948                 default:
8949                         ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
8950                             "Unhandled scsi command 0x%x in st_make_cmd()\n",
8951                             com);
8952                 }
8953 
8954                 pkt = scsi_init_pkt(ROUTE, NULL, allocbp, cdb_len, stat_size,
8955                     st_recov_sz, 0, func, (caddr_t)un);
8956                 if (pkt == NULL) {
8957                         scsi_log(ST_DEVINFO, st_label, CE_NOTE,
8958                             "generic command scsi_init_pkt() failure\n");
8959                         goto exit;
8960                 }
8961 
8962                 ASSERT(pkt->pkt_resid == 0);
8963 #ifdef STDEBUG
8964                 bzero(pkt->pkt_private, st_recov_sz);
8965                 bzero(pkt->pkt_scbp, stat_size);
8966 #endif
8967                 ri = (recov_info *)pkt->pkt_private;
8968                 ri->privatelen = st_recov_sz;
8969                 if (allocbp) {
8970                         ASSERT(geterror(allocbp) == 0);
8971                 }
8972 
8973         }
8974 
8975         ucdb = (union scsi_cdb *)pkt->pkt_cdbp;
8976 
8977         (void) scsi_setup_cdb(ucdb, com, address, (uint_t)count, additional);
8978         FILL_SCSI1_LUN(un->un_sd, pkt);
8979         /*
8980          * Initialize the SILI/Fixed bits of the byte 1 of cdb.
8981          */
8982         ucdb->t_code = fixbit;
8983         ucdb->g0_vu_1 = short_fm;
8984         pkt->pkt_flags = flags;
8985 
8986         ASSERT(tval);
8987         pkt->pkt_time = tval;
8988         if (bp == un->un_recov_buf) {
8989                 pkt->pkt_comp = st_recov_cb;
8990         } else {
8991                 pkt->pkt_comp = st_intr;
8992         }
8993 
8994         st_add_recovery_info_to_pkt(un, bp, pkt);
8995 
8996         /*
8997          * If we just write data to tape and did a command that doesn't
8998          * change position, we still need to write a filemark.
8999          */
9000         if ((prev_op == ST_OP_WRITE) || (prev_op == ST_OP_WEOF)) {
9001                 recov_info *rcvi = pkt->pkt_private;
9002                 cmd_attribute const *atrib;
9003 
9004                 if (rcvi->privatelen == sizeof (recov_info)) {
9005                         atrib = rcvi->cmd_attrib;
9006                 } else {
9007                         atrib = st_lookup_cmd_attribute(com);
9008                 }
9009                 if (atrib->chg_tape_direction == DIR_NONE) {
9010                         un->un_lastop = prev_op;
9011                 }
9012         }
9013 
9014 exit:
9015         ASSERT(mutex_owned(ST_MUTEX));
9016 }
9017 
9018 
9019 /*
9020  * Build a command based on a uscsi command;
9021  */
9022 static void
9023 st_make_uscsi_cmd(struct scsi_tape *un, struct uscsi_cmd *ucmd,
9024     struct buf *bp, int (*func)(caddr_t))
9025 {
9026         struct scsi_pkt *pkt;
9027         recov_info *ri;
9028         caddr_t cdb;
9029         int     cdblen;
9030         int     stat_size = 1;
9031         int     flags = 0;
9032 
9033         ST_FUNC(ST_DEVINFO, st_make_uscsi_cmd);
9034 
9035         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
9036             "st_make_uscsi_cmd(): dev = 0x%lx\n", un->un_dev);
9037 
9038         if (ucmd->uscsi_flags & USCSI_RQENABLE) {
9039                 if (un->un_arq_enabled) {
9040                         if (ucmd->uscsi_rqlen > SENSE_LENGTH) {
9041                                 stat_size = (int)(ucmd->uscsi_rqlen) +
9042                                     sizeof (struct scsi_arq_status) -
9043                                     sizeof (struct scsi_extended_sense);
9044                                 flags = PKT_XARQ;
9045                         } else {
9046                                 stat_size = sizeof (struct scsi_arq_status);
9047                         }
9048                 }
9049         }
9050 
9051         ASSERT(mutex_owned(ST_MUTEX));
9052 
9053         cdb = ucmd->uscsi_cdb;
9054         cdblen = ucmd->uscsi_cdblen;
9055 
9056         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
9057             "st_make_uscsi_cmd: buflen=%ld bcount=%ld\n",
9058             ucmd->uscsi_buflen, bp->b_bcount);
9059         pkt = scsi_init_pkt(ROUTE, NULL,
9060             (bp->b_bcount > 0) ? bp : NULL,
9061             cdblen, stat_size, st_recov_sz, flags, func, (caddr_t)un);
9062         if (pkt == NULL) {
9063                 scsi_log(ST_DEVINFO, st_label, CE_NOTE,
9064                     "uscsi command scsi_init_pkt() failure\n");
9065                 goto exit;
9066         }
9067 
9068         ASSERT(pkt->pkt_resid == 0);
9069 #ifdef STDEBUG
9070         bzero(pkt->pkt_private, st_recov_sz);
9071         bzero(pkt->pkt_scbp, stat_size);
9072 #endif
9073         ri = (recov_info *)pkt->pkt_private;
9074         ri->privatelen = st_recov_sz;
9075 
9076         bcopy(cdb, pkt->pkt_cdbp, (uint_t)cdblen);
9077 
9078 #ifdef STDEBUG
9079         if ((st_debug & 0x7) >= 6) {
9080                 st_clean_print(ST_DEVINFO, st_label, SCSI_DEBUG,
9081                     "pkt_cdbp", (char *)cdb, cdblen);
9082         }
9083 #endif
9084 
9085         if (ucmd->uscsi_flags & USCSI_SILENT) {
9086                 pkt->pkt_flags |= FLAG_SILENT;
9087         }
9088 
9089         (void) scsi_uscsi_pktinit(ucmd, pkt);
9090 
9091         pkt->pkt_time = ucmd->uscsi_timeout;
9092         if (bp == un->un_recov_buf) {
9093                 pkt->pkt_comp = st_recov_cb;
9094         } else {
9095                 pkt->pkt_comp = st_intr;
9096         }
9097 
9098         st_add_recovery_info_to_pkt(un, bp, pkt);
9099 exit:
9100         ASSERT(mutex_owned(ST_MUTEX));
9101 }
9102 
9103 
9104 /*
9105  * restart cmd currently at the head of the runq
9106  *
9107  * If scsi_transport() succeeds or the retries
9108  * count exhausted, restore the throttle that was
9109  * zeroed out in st_handle_intr_busy().
9110  *
9111  */
9112 static void
9113 st_intr_restart(void *arg)
9114 {
9115         struct scsi_tape *un = arg;
9116         struct buf *bp;
9117         int queued;
9118         int status = TRAN_ACCEPT;
9119 
9120         mutex_enter(ST_MUTEX);
9121 
9122         ST_FUNC(ST_DEVINFO, st_intr_restart);
9123 
9124         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
9125             "st_intr_restart(), un = 0x%p\n", (void *)un);
9126 
9127         un->un_hib_tid = 0;
9128 
9129         if (un->un_recov_buf_busy != 0) {
9130                 bp = un->un_recov_buf;
9131                 queued = 0;
9132         } else if (un->un_sbuf_busy != 0) {
9133                 bp = un->un_sbufp;
9134                 queued = 0;
9135         } else if (un->un_quef != NULL) {
9136                 bp = un->un_quef;
9137                 queued = 1;
9138         } else {
9139                 mutex_exit(ST_MUTEX);
9140                 return;
9141         }
9142 
9143         /*
9144          * Here we know :
9145          *      throttle = 0, via st_handle_intr_busy
9146          */
9147 
9148         if (queued) {
9149                 /*
9150                  * move from waitq to runq, if there is anything on the waitq
9151                  */
9152                 (void) st_remove_from_queue(&un->un_quef, &un->un_quef, bp);
9153 
9154                 if (un->un_runqf) {
9155                         /*
9156                          * not good, we don't want to requeue something after
9157                          * another.
9158                          */
9159                         goto done_error;
9160                 } else {
9161                         un->un_runqf = bp;
9162                         un->un_runql = bp;
9163                 }
9164         }
9165 
9166         ST_CDB(ST_DEVINFO, "Interrupt restart CDB",
9167             (char *)BP_PKT(bp)->pkt_cdbp);
9168 
9169         ST_DO_KSTATS(bp, kstat_waitq_to_runq);
9170 
9171         status = st_transport(un, BP_PKT(bp));
9172 
9173         if (status != TRAN_ACCEPT) {
9174                 ST_DO_KSTATS(bp, kstat_runq_back_to_waitq);
9175 
9176                 if (status == TRAN_BUSY) {
9177                         pkt_info *pkti = BP_PKT(bp)->pkt_private;
9178 
9179                         if (pkti->privatelen == sizeof (recov_info) &&
9180                             un->un_unit_attention_flags &&
9181                             bp != un->un_recov_buf) {
9182                         un->un_unit_attention_flags = 0;
9183                                 ST_RECOV(ST_DEVINFO, st_label, CE_WARN,
9184                                     "Command Recovery called on busy resend\n");
9185                                 if (st_command_recovery(un, BP_PKT(bp),
9186                                     ATTEMPT_RETRY) == JUST_RETURN) {
9187                                         mutex_exit(ST_MUTEX);
9188                                         return;
9189                                 }
9190                         }
9191                         mutex_exit(ST_MUTEX);
9192                         if (st_handle_intr_busy(un, bp,
9193                             ST_TRAN_BUSY_TIMEOUT) == 0)
9194                                 return; /* timeout is setup again */
9195                         mutex_enter(ST_MUTEX);
9196                 }
9197 
9198 done_error:
9199                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
9200                     "restart transport rejected\n");
9201                 bp->b_resid = bp->b_bcount;
9202 
9203                 if (un->un_last_throttle) {
9204                         un->un_throttle = un->un_last_throttle;
9205                 }
9206                 if (status != TRAN_ACCEPT) {
9207                         ST_DO_ERRSTATS(un, st_transerrs);
9208                 }
9209                 ST_DO_KSTATS(bp, kstat_waitq_exit);
9210                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
9211                     "busy restart aborted\n");
9212                 st_set_pe_flag(un);
9213                 st_bioerror(bp, EIO);
9214                 st_done_and_mutex_exit(un, bp);
9215         } else {
9216                 if (un->un_last_throttle) {
9217                         un->un_throttle = un->un_last_throttle;
9218                 }
9219                 mutex_exit(ST_MUTEX);
9220         }
9221 }
9222 
9223 /*
9224  * st_check_media():
9225  * Periodically check the media state using scsi_watch service;
9226  * this service calls back after TUR and possibly request sense
9227  * the callback handler (st_media_watch_cb()) decodes the request sense
9228  * data (if any)
9229  */
9230 
9231 static int
9232 st_check_media(dev_t dev, enum mtio_state state)
9233 {
9234         int rval = 0;
9235         enum mtio_state prev_state;
9236         opaque_t token = NULL;
9237 
9238         GET_SOFT_STATE(dev);
9239 
9240         ST_FUNC(ST_DEVINFO, st_check_media);
9241 
9242         mutex_enter(ST_MUTEX);
9243 
9244         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9245             "st_check_media:state=%x, mediastate=%x\n",
9246             state, un->un_mediastate);
9247 
9248         prev_state = un->un_mediastate;
9249 
9250         /*
9251          * is there anything to do?
9252          */
9253 retry:
9254         if (state == un->un_mediastate || un->un_mediastate == MTIO_NONE) {
9255                 /*
9256                  * submit the request to the scsi_watch service;
9257                  * scsi_media_watch_cb() does the real work
9258                  */
9259                 mutex_exit(ST_MUTEX);
9260                 token = scsi_watch_request_submit(ST_SCSI_DEVP,
9261                     st_check_media_time, SENSE_LENGTH,
9262                     st_media_watch_cb, (caddr_t)dev);
9263                 if (token == NULL) {
9264                         rval = EAGAIN;
9265                         goto done;
9266                 }
9267                 mutex_enter(ST_MUTEX);
9268 
9269                 un->un_swr_token = token;
9270                 un->un_specified_mediastate = state;
9271 
9272                 /*
9273                  * now wait for media change
9274                  * we will not be signalled unless mediastate == state but it
9275                  * still better to test for this condition, since there
9276                  * is a 5 sec cv_broadcast delay when
9277                  *  mediastate == MTIO_INSERTED
9278                  */
9279                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9280                     "st_check_media:waiting for media state change\n");
9281                 while (un->un_mediastate == state) {
9282                         if (cv_wait_sig(&un->un_state_cv, ST_MUTEX) == 0) {
9283                                 mutex_exit(ST_MUTEX);
9284                                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9285                                     "st_check_media:waiting for media state "
9286                                     "was interrupted\n");
9287                                 rval = EINTR;
9288                                 goto done;
9289                         }
9290                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9291                             "st_check_media:received signal, state=%x\n",
9292                             un->un_mediastate);
9293                 }
9294         }
9295 
9296         /*
9297          * if we transitioned to MTIO_INSERTED, media has really been
9298          * inserted.  If TUR fails, it is probably a exabyte slow spin up.
9299          * Reset and retry the state change.  If everything is ok, replay
9300          * the open() logic.
9301          */
9302         if ((un->un_mediastate == MTIO_INSERTED) &&
9303             (un->un_state == ST_STATE_OFFLINE)) {
9304                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9305                     "st_check_media: calling st_cmd to confirm inserted\n");
9306 
9307                 /*
9308                  * set this early so that TUR will make it through strategy
9309                  * without triggering a st_tape_init().  We needed it set
9310                  * before calling st_tape_init() ourselves anyway.  If TUR
9311                  * fails, set it back
9312                  */
9313                 un->un_state = ST_STATE_INITIALIZING;
9314 
9315                 /*
9316                  * If not reserved fail as getting reservation conflict
9317                  * will make this hang forever.
9318                  */
9319                 if ((un->un_rsvd_status &
9320                     (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) == 0) {
9321                         mutex_exit(ST_MUTEX);
9322                         rval = EACCES;
9323                         goto done;
9324                 }
9325                 rval = st_cmd(un, SCMD_TEST_UNIT_READY, 0, SYNC_CMD);
9326                 if (rval == EACCES) {
9327                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9328                             "st_check_media: TUR got Reservation Conflict\n");
9329                         mutex_exit(ST_MUTEX);
9330                         goto done;
9331                 }
9332                 if (rval) {
9333                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9334                             "st_check_media: TUR failed, going to retry\n");
9335                         un->un_mediastate = prev_state;
9336                         un->un_state = ST_STATE_OFFLINE;
9337                         goto retry;
9338                 }
9339                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9340                     "st_check_media: media inserted\n");
9341 
9342                 /* this also rewinds the tape */
9343                 rval = st_tape_init(un);
9344                 if (rval != 0) {
9345                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9346                             "st_check_media : OFFLINE init failure ");
9347                         un->un_state = ST_STATE_OFFLINE;
9348                         un->un_pos.pmode = invalid;
9349                 } else {
9350                         un->un_state = ST_STATE_OPEN_PENDING_IO;
9351                 }
9352         } else if ((un->un_mediastate == MTIO_EJECTED) &&
9353             (un->un_state != ST_STATE_OFFLINE)) {
9354                 /*
9355                  * supported devices must be rewound before ejection
9356                  * rewind resets fileno & blkno
9357                  */
9358                 un->un_laststate = un->un_state;
9359                 un->un_state = ST_STATE_OFFLINE;
9360         }
9361         mutex_exit(ST_MUTEX);
9362 done:
9363         if (token) {
9364                 (void) scsi_watch_request_terminate(token,
9365                     SCSI_WATCH_TERMINATE_WAIT);
9366                 mutex_enter(ST_MUTEX);
9367                 un->un_swr_token = (opaque_t)NULL;
9368                 mutex_exit(ST_MUTEX);
9369         }
9370 
9371         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG, "st_check_media: done\n");
9372 
9373         return (rval);
9374 }
9375 
9376 /*
9377  * st_media_watch_cb() is called by scsi_watch_thread for
9378  * verifying the request sense data (if any)
9379  */
9380 static int
9381 st_media_watch_cb(caddr_t arg, struct scsi_watch_result *resultp)
9382 {
9383         struct scsi_status *statusp = resultp->statusp;
9384         struct scsi_extended_sense *sensep = resultp->sensep;
9385         uchar_t actual_sense_length = resultp->actual_sense_length;
9386         struct scsi_tape *un;
9387         enum mtio_state state = MTIO_NONE;
9388         int instance;
9389         dev_t dev = (dev_t)arg;
9390 
9391         instance = MTUNIT(dev);
9392         if ((un = ddi_get_soft_state(st_state, instance)) == NULL) {
9393                 return (-1);
9394         }
9395 
9396         mutex_enter(ST_MUTEX);
9397         ST_FUNC(ST_DEVINFO, st_media_watch_cb);
9398         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
9399             "st_media_watch_cb: status=%x, sensep=%p, len=%x\n",
9400             *((char *)statusp), (void *)sensep,
9401             actual_sense_length);
9402 
9403 
9404         /*
9405          * if there was a check condition then sensep points to valid
9406          * sense data
9407          * if status was not a check condition but a reservation or busy
9408          * status then the new state is MTIO_NONE
9409          */
9410         if (sensep) {
9411                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9412                     "st_media_watch_cb: KEY=%x, ASC=%x, ASCQ=%x\n",
9413                     sensep->es_key, sensep->es_add_code, sensep->es_qual_code);
9414 
9415                 switch (un->un_dp->type) {
9416                 default:
9417                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9418                             "st_media_watch_cb: unknown drive type %d, "
9419                             "default to ST_TYPE_HP\n", un->un_dp->type);
9420                 /* FALLTHROUGH */
9421 
9422                 case ST_TYPE_STC3490:   /* STK 4220 1/2" cartridge */
9423                 case ST_TYPE_FUJI:      /* 1/2" cartridge */
9424                 case ST_TYPE_HP:        /* HP 88780 1/2" reel */
9425                         if (un->un_dp->type == ST_TYPE_FUJI) {
9426                                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9427                                     "st_media_watch_cb: ST_TYPE_FUJI\n");
9428                         } else {
9429                                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9430                                     "st_media_watch_cb: ST_TYPE_HP\n");
9431                         }
9432                         switch (sensep->es_key) {
9433                         case KEY_UNIT_ATTENTION:
9434                                 /* not ready to ready transition */
9435                                 /* hp/es_qual_code == 80 on>off>on */
9436                                 /* hp/es_qual_code == 0 on>off>unld>ld>on */
9437                                 if (sensep->es_add_code == 0x28) {
9438                                         state = MTIO_INSERTED;
9439                                 }
9440                                 break;
9441                         case KEY_NOT_READY:
9442                                 /* in process, rewinding or loading */
9443                                 if ((sensep->es_add_code == 0x04) &&
9444                                     (sensep->es_qual_code == 0x00)) {
9445                                         state = MTIO_EJECTED;
9446                                 }
9447                                 break;
9448                         }
9449                         break;
9450 
9451                 case ST_TYPE_EXB8500:   /* Exabyte 8500 */
9452                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9453                             "st_media_watch_cb: ST_TYPE_EXB8500\n");
9454                         switch (sensep->es_key) {
9455                         case KEY_UNIT_ATTENTION:
9456                                 /* operator medium removal request */
9457                                 if ((sensep->es_add_code == 0x5a) &&
9458                                     (sensep->es_qual_code == 0x01)) {
9459                                         state = MTIO_EJECTED;
9460                                 /* not ready to ready transition */
9461                                 } else if ((sensep->es_add_code == 0x28) &&
9462                                     (sensep->es_qual_code == 0x00)) {
9463                                         state = MTIO_INSERTED;
9464                                 }
9465                                 break;
9466                         case KEY_NOT_READY:
9467                                 /* medium not present */
9468                                 if (sensep->es_add_code == 0x3a) {
9469                                         state = MTIO_EJECTED;
9470                                 }
9471                                 break;
9472                         }
9473                         break;
9474                 case ST_TYPE_EXABYTE:   /* Exabyte 8200 */
9475                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9476                             "st_media_watch_cb: ST_TYPE_EXABYTE\n");
9477                         switch (sensep->es_key) {
9478                         case KEY_NOT_READY:
9479                                 if ((sensep->es_add_code == 0x04) &&
9480                                     (sensep->es_qual_code == 0x00)) {
9481                                         /* volume not mounted? */
9482                                         state = MTIO_EJECTED;
9483                                 } else if (sensep->es_add_code == 0x3a) {
9484                                         state = MTIO_EJECTED;
9485                                 }
9486                                 break;
9487                         case KEY_UNIT_ATTENTION:
9488                                 state = MTIO_EJECTED;
9489                                 break;
9490                         }
9491                         break;
9492 
9493                 case ST_TYPE_DLT:               /* quantum DLT4xxx */
9494                         switch (sensep->es_key) {
9495                         case KEY_UNIT_ATTENTION:
9496                                 if (sensep->es_add_code == 0x28) {
9497                                         state = MTIO_INSERTED;
9498                                 }
9499                                 break;
9500                         case KEY_NOT_READY:
9501                                 if (sensep->es_add_code == 0x04) {
9502                                         /* in transition but could be either */
9503                                         state = un->un_specified_mediastate;
9504                                 } else if ((sensep->es_add_code == 0x3a) &&
9505                                     (sensep->es_qual_code == 0x00)) {
9506                                         state = MTIO_EJECTED;
9507                                 }
9508                                 break;
9509                         }
9510                         break;
9511                 }
9512         } else if (*((char *)statusp) == STATUS_GOOD) {
9513                 state = MTIO_INSERTED;
9514         }
9515 
9516         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9517             "st_media_watch_cb:state=%x, specified=%x\n",
9518             state, un->un_specified_mediastate);
9519 
9520         /*
9521          * now signal the waiting thread if this is *not* the specified state;
9522          * delay the signal if the state is MTIO_INSERTED
9523          * to allow the target to recover
9524          */
9525         if (state != un->un_specified_mediastate) {
9526                 un->un_mediastate = state;
9527                 if (state == MTIO_INSERTED) {
9528                         /*
9529                          * delay the signal to give the drive a chance
9530                          * to do what it apparently needs to do
9531                          */
9532                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9533                             "st_media_watch_cb:delayed cv_broadcast\n");
9534                         un->un_delay_tid = timeout(st_delayed_cv_broadcast,
9535                             un, drv_usectohz((clock_t)MEDIA_ACCESS_DELAY));
9536                 } else {
9537                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9538                             "st_media_watch_cb:immediate cv_broadcast\n");
9539                         cv_broadcast(&un->un_state_cv);
9540                 }
9541         }
9542         mutex_exit(ST_MUTEX);
9543         return (0);
9544 }
9545 
9546 /*
9547  * delayed cv_broadcast to allow for target to recover
9548  * from media insertion
9549  */
9550 static void
9551 st_delayed_cv_broadcast(void *arg)
9552 {
9553         struct scsi_tape *un = arg;
9554 
9555         ST_FUNC(ST_DEVINFO, st_delayed_cv_broadcast);
9556 
9557         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
9558             "st_delayed_cv_broadcast:delayed cv_broadcast\n");
9559 
9560         mutex_enter(ST_MUTEX);
9561         cv_broadcast(&un->un_state_cv);
9562         mutex_exit(ST_MUTEX);
9563 }
9564 
9565 /*
9566  * restart cmd currently at the start of the waitq
9567  */
9568 static void
9569 st_start_restart(void *arg)
9570 {
9571         struct scsi_tape *un = arg;
9572 
9573         ST_FUNC(ST_DEVINFO, st_start_restart);
9574 
9575         ASSERT(un != NULL);
9576 
9577         mutex_enter(ST_MUTEX);
9578 
9579         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_tran_restart()\n");
9580 
9581         st_start(un);
9582 
9583         mutex_exit(ST_MUTEX);
9584 }
9585 
9586 
9587 /*
9588  * Command completion processing
9589  *
9590  */
9591 static void
9592 st_intr(struct scsi_pkt *pkt)
9593 {
9594         recov_info *rcv = pkt->pkt_private;
9595         struct buf *bp = rcv->cmd_bp;
9596         struct scsi_tape *un;
9597         errstate action = COMMAND_DONE;
9598         clock_t timout;
9599         int     status;
9600 
9601         un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
9602 
9603         ST_FUNC(ST_DEVINFO, st_intr);
9604 
9605         ASSERT(un != NULL);
9606 
9607         mutex_enter(ST_MUTEX);
9608 
9609         ASSERT(bp != un->un_recov_buf);
9610 
9611         un->un_rqs_state &= ~(ST_RQS_ERROR);
9612 
9613         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_intr()\n");
9614 
9615         if (pkt->pkt_reason != CMD_CMPLT) {
9616                 ST_DEBUG(ST_DEVINFO, st_label, CE_WARN,
9617                     "Unhappy packet status reason = %s statistics = 0x%x\n",
9618                     scsi_rname(pkt->pkt_reason), pkt->pkt_statistics);
9619 
9620                 /* If device has gone away not much else to do */
9621                 if (pkt->pkt_reason == CMD_DEV_GONE) {
9622                         action = COMMAND_DONE_ERROR;
9623                 } else if ((pkt == un->un_rqs) ||
9624                     (un->un_state == ST_STATE_SENSING)) {
9625                         ASSERT(pkt == un->un_rqs);
9626                         ASSERT(un->un_state == ST_STATE_SENSING);
9627                         un->un_state = un->un_laststate;
9628                         rcv->cmd_bp = un->un_rqs_bp;
9629                         ST_DO_ERRSTATS(un, st_transerrs);
9630                         action = COMMAND_DONE_ERROR;
9631                 } else {
9632                         action = st_handle_incomplete(un, bp);
9633                 }
9634         /*
9635          * At this point we know that the command was successfully
9636          * completed. Now what?
9637          */
9638         } else if ((pkt == un->un_rqs) || (un->un_state == ST_STATE_SENSING)) {
9639                 /*
9640                  * okay. We were running a REQUEST SENSE. Find
9641                  * out what to do next.
9642                  */
9643                 ASSERT(pkt == un->un_rqs);
9644                 ASSERT(un->un_state == ST_STATE_SENSING);
9645                 scsi_sync_pkt(pkt);
9646                 action = st_handle_sense(un, bp, &un->un_pos);
9647                 /*
9648                  * Make rqs isn't going to be retied.
9649                  */
9650                 if (action != QUE_BUSY_COMMAND && action != QUE_COMMAND) {
9651                         /*
9652                          * set pkt back to original packet in case we will have
9653                          * to requeue it
9654                          */
9655                         pkt = BP_PKT(bp);
9656                         rcv->cmd_bp = un->un_rqs_bp;
9657                         /*
9658                          * some actions are based on un_state, hence
9659                          * restore the state st was in before ST_STATE_SENSING.
9660                          */
9661                         un->un_state = un->un_laststate;
9662                 }
9663 
9664         } else if (un->un_arq_enabled && (pkt->pkt_state & STATE_ARQ_DONE)) {
9665                 /*
9666                  * the transport layer successfully completed an autorqsense
9667                  */
9668                 action = st_handle_autosense(un, bp, &un->un_pos);
9669 
9670         } else  if ((SCBP(pkt)->sts_busy) ||
9671             (SCBP(pkt)->sts_chk) ||
9672             (SCBP(pkt)->sts_vu7)) {
9673                 /*
9674                  * Okay, we weren't running a REQUEST SENSE. Call a routine
9675                  * to see if the status bits we're okay. If a request sense
9676                  * is to be run, that will happen.
9677                  */
9678                 action = st_check_error(un, pkt);
9679         }
9680 
9681         if (un->un_pwr_mgmt == ST_PWR_SUSPENDED) {
9682                 switch (action) {
9683                         case QUE_COMMAND:
9684                                 /*
9685                                  * return cmd to head to the queue
9686                                  * since we are suspending so that
9687                                  * it gets restarted during resume
9688                                  */
9689                                 st_add_to_queue(&un->un_runqf, &un->un_runql,
9690                                     un->un_runqf, bp);
9691 
9692                                 action = JUST_RETURN;
9693                                 break;
9694 
9695                         case QUE_SENSE:
9696                                 action = COMMAND_DONE_ERROR;
9697                                 break;
9698 
9699                         default:
9700                                 break;
9701                 }
9702         }
9703 
9704         /*
9705          * check for undetected path failover.
9706          */
9707         if (un->un_multipath) {
9708 
9709                 struct uscsi_cmd *ucmd = BP_UCMD(bp);
9710                 int pkt_valid = 0;
9711 
9712                 if (ucmd) {
9713                         /*
9714                          * Also copies path instance to the uscsi structure.
9715                          */
9716                         pkt_valid = scsi_uscsi_pktfini(pkt, ucmd);
9717 
9718                         /*
9719                          * scsi_uscsi_pktfini() zeros pkt_path_instance.
9720                          */
9721                         pkt->pkt_path_instance = ucmd->uscsi_path_instance;
9722                 } else {
9723                         pkt_valid = scsi_pkt_allocated_correctly(pkt);
9724                 }
9725 
9726                 /*
9727                  * If the scsi_pkt was not allocated correctly the
9728                  * pkt_path_instance is not even there.
9729                  */
9730                 if ((pkt_valid != 0) &&
9731                     (un->un_last_path_instance != pkt->pkt_path_instance)) {
9732                         /*
9733                          * Don't recover the path change if it was done
9734                          * intentionally or if the device has not completely
9735                          * opened yet.
9736                          */
9737                         if (((pkt->pkt_flags & FLAG_PKT_PATH_INSTANCE) == 0) &&
9738                             (un->un_state > ST_STATE_OPENING)) {
9739                                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
9740                                     "Failover detected, action is %s\n",
9741                                     errstatenames[action]);
9742                                 if (action == COMMAND_DONE) {
9743                                         action = PATH_FAILED;
9744                                 }
9745                         }
9746                         un->un_last_path_instance = pkt->pkt_path_instance;
9747                 }
9748         }
9749 
9750         /*
9751          * Restore old state if we were sensing.
9752          */
9753         if (un->un_state == ST_STATE_SENSING && action != QUE_SENSE) {
9754                 un->un_state = un->un_laststate;
9755         }
9756 
9757         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
9758             "st_intr: pkt=%p, bp=%p, action=%s, status=%x\n",
9759             (void *)pkt, (void *)bp, errstatenames[action], SCBP_C(pkt));
9760 
9761 again:
9762         switch (action) {
9763         case COMMAND_DONE_EACCES:
9764                 /* this is to report a reservation conflict */
9765                 st_bioerror(bp, EACCES);
9766                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9767                     "Reservation Conflict \n");
9768                 un->un_pos.pmode = invalid;
9769 
9770                 /*FALLTHROUGH*/
9771         case COMMAND_DONE_ERROR:
9772                 if (un->un_pos.eof < ST_EOT_PENDING &&
9773                     un->un_state >= ST_STATE_OPEN) {
9774                         /*
9775                          * all errors set state of the tape to 'unknown'
9776                          * unless we're at EOT or are doing append testing.
9777                          * If sense key was illegal request, preserve state.
9778                          */
9779                         if (un->un_status != KEY_ILLEGAL_REQUEST) {
9780                                 un->un_pos.pmode = invalid;
9781                         }
9782                 }
9783 
9784                 un->un_err_resid = bp->b_resid = bp->b_bcount;
9785                 /*
9786                  * since we have an error (COMMAND_DONE_ERROR), we want to
9787                  * make sure an error ocurrs, so make sure at least EIO is
9788                  * returned
9789                  */
9790                 if (geterror(bp) == 0)
9791                         st_bioerror(bp, EIO);
9792 
9793                 st_set_pe_flag(un);
9794                 if (!(un->un_rqs_state & ST_RQS_ERROR) &&
9795                     (un->un_errno == EIO)) {
9796                         un->un_rqs_state &= ~(ST_RQS_VALID);
9797                 }
9798                 break;
9799 
9800         case COMMAND_DONE_ERROR_RECOVERED:
9801                 un->un_err_resid = bp->b_resid = bp->b_bcount;
9802                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
9803                     "st_intr(): COMMAND_DONE_ERROR_RECOVERED");
9804                 if (geterror(bp) == 0) {
9805                         st_bioerror(bp, EIO);
9806                 }
9807                 st_set_pe_flag(un);
9808                 if (!(un->un_rqs_state & ST_RQS_ERROR) &&
9809                     (un->un_errno == EIO)) {
9810                         un->un_rqs_state &= ~(ST_RQS_VALID);
9811                 }
9812                 /*FALLTHROUGH*/
9813         case COMMAND_DONE:
9814                 st_set_state(un, bp);
9815                 break;
9816 
9817         case QUE_SENSE:
9818                 if ((un->un_ncmds > 1) && !un->un_flush_on_errors)
9819                         goto sense_error;
9820 
9821                 if (un->un_state != ST_STATE_SENSING) {
9822                         un->un_laststate = un->un_state;
9823                         un->un_state = ST_STATE_SENSING;
9824                 }
9825 
9826                 /*
9827                  * zero the sense data.
9828                  */
9829                 bzero(un->un_rqs->pkt_scbp, SENSE_LENGTH);
9830 
9831                 /*
9832                  * If this is not a retry on QUE_SENSE point to the original
9833                  * bp of the command that got us here.
9834                  */
9835                 if (pkt != un->un_rqs) {
9836                         ((recov_info *)un->un_rqs->pkt_private)->cmd_bp = bp;
9837                 }
9838 
9839                 if (un->un_throttle) {
9840                         un->un_last_throttle = un->un_throttle;
9841                         un->un_throttle = 0;
9842                 }
9843 
9844                 ST_CDB(ST_DEVINFO, "Queue sense CDB",
9845                     (char *)BP_PKT(bp)->pkt_cdbp);
9846 
9847                 /*
9848                  * never retry this, some other command will have nuked the
9849                  * sense, anyway
9850                  */
9851                 status = st_transport(un, un->un_rqs);
9852 
9853                 if (un->un_last_throttle) {
9854                         un->un_throttle = un->un_last_throttle;
9855                 }
9856 
9857                 if (status == TRAN_ACCEPT) {
9858                         mutex_exit(ST_MUTEX);
9859                         return;
9860                 }
9861                 if (status != TRAN_BUSY)
9862                         ST_DO_ERRSTATS(un, st_transerrs);
9863 sense_error:
9864                 un->un_pos.pmode = invalid;
9865                 st_bioerror(bp, EIO);
9866                 st_set_pe_flag(un);
9867                 break;
9868 
9869         case QUE_BUSY_COMMAND:
9870                 /* longish timeout */
9871                 timout = ST_STATUS_BUSY_TIMEOUT;
9872                 goto que_it_up;
9873 
9874         case QUE_COMMAND:
9875                 /* short timeout */
9876                 timout = ST_TRAN_BUSY_TIMEOUT;
9877 que_it_up:
9878                 /*
9879                  * let st_handle_intr_busy put this bp back on waitq and make
9880                  * checks to see if it is ok to requeue the command.
9881                  */
9882                 ST_DO_KSTATS(bp, kstat_runq_back_to_waitq);
9883 
9884                 /*
9885                  * Save the throttle before setting up the timeout
9886                  */
9887                 if (un->un_throttle) {
9888                         un->un_last_throttle = un->un_throttle;
9889                 }
9890                 mutex_exit(ST_MUTEX);
9891                 if (st_handle_intr_busy(un, bp, timout) == 0)
9892                         return;         /* timeout is setup again */
9893 
9894                 mutex_enter(ST_MUTEX);
9895                 un->un_pos.pmode = invalid;
9896                 un->un_err_resid = bp->b_resid = bp->b_bcount;
9897                 st_bioerror(bp, EIO);
9898                 st_set_pe_flag(un);
9899                 break;
9900 
9901         case QUE_LAST_COMMAND:
9902 
9903                 if ((un->un_ncmds > 1) && !un->un_flush_on_errors) {
9904                         scsi_log(ST_DEVINFO, st_label, CE_CONT,
9905                             "un_ncmds: %d can't retry cmd \n", un->un_ncmds);
9906                         goto last_command_error;
9907                 }
9908                 mutex_exit(ST_MUTEX);
9909                 if (st_handle_intr_retry_lcmd(un, bp) == 0)
9910                         return;
9911                 mutex_enter(ST_MUTEX);
9912 last_command_error:
9913                 un->un_err_resid = bp->b_resid = bp->b_bcount;
9914                 un->un_pos.pmode = invalid;
9915                 st_bioerror(bp, EIO);
9916                 st_set_pe_flag(un);
9917                 break;
9918 
9919         case COMMAND_TIMEOUT:
9920         case DEVICE_RESET:
9921         case DEVICE_TAMPER:
9922         case ATTEMPT_RETRY:
9923         case PATH_FAILED:
9924                 ST_RECOV(ST_DEVINFO, st_label, CE_WARN,
9925                     "Command Recovery called on %s status\n",
9926                     errstatenames[action]);
9927                 action = st_command_recovery(un, pkt, action);
9928                 goto again;
9929 
9930         default:
9931                 ASSERT(0);
9932                 /* FALLTHRU */
9933         case JUST_RETURN:
9934                 ST_DO_KSTATS(bp, kstat_runq_back_to_waitq);
9935                 mutex_exit(ST_MUTEX);
9936                 return;
9937         }
9938 
9939         ST_DO_KSTATS(bp, kstat_runq_exit);
9940         st_done_and_mutex_exit(un, bp);
9941 }
9942 
9943 static errstate
9944 st_handle_incomplete(struct scsi_tape *un, struct buf *bp)
9945 {
9946         static char *fail = "SCSI transport failed: reason '%s': %s\n";
9947         recov_info *rinfo;
9948         errstate rval = COMMAND_DONE_ERROR;
9949         struct scsi_pkt *pkt = (un->un_state == ST_STATE_SENSING) ?
9950             un->un_rqs : BP_PKT(bp);
9951         int result;
9952 
9953         ST_FUNC(ST_DEVINFO, st_handle_incomplete);
9954 
9955         rinfo = (recov_info *)pkt->pkt_private;
9956 
9957         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
9958             "st_handle_incomplete(): dev = 0x%lx\n", un->un_dev);
9959 
9960         ASSERT(mutex_owned(ST_MUTEX));
9961 
9962         /* prevent infinite number of retries */
9963         if (rinfo->pkt_retry_cnt++ > st_retry_count) {
9964                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
9965                     "Recovery stopped for incomplete %s command, "
9966                     "retries exhausted",
9967                     st_print_scsi_cmd(pkt->pkt_cdbp[0]));
9968                 return (COMMAND_DONE_ERROR);
9969         }
9970 
9971         switch (pkt->pkt_reason) {
9972         case CMD_INCOMPLETE:    /* tran stopped with not normal state */
9973                 /*
9974                  * this occurs when accessing a powered down drive, no
9975                  * need to complain; just fail the open
9976                  */
9977                 ST_CDB(ST_DEVINFO, "Incomplete CDB", (char *)pkt->pkt_cdbp);
9978 
9979                 /*
9980                  * if we have commands outstanding in HBA, and a command
9981                  * comes back incomplete, we're hosed, so reset target
9982                  * If we have the bus, but cmd_incomplete, we probably just
9983                  * have a failed selection, so don't reset the target, just
9984                  * requeue the command and try again
9985                  */
9986                 if ((un->un_ncmds > 1) || (pkt->pkt_state != STATE_GOT_BUS)) {
9987                         goto reset_target;
9988                 }
9989 
9990                 /*
9991                  * Retry selection a couple more times if we're
9992                  * open.  If opening, we only try just once to
9993                  * reduce probe time for nonexistant devices.
9994                  */
9995                 if ((un->un_laststate > ST_STATE_OPENING) &&
9996                     (rinfo->pkt_retry_cnt < st_selection_retry_count)) {
9997                         /* XXX check retriable? */
9998                         rval = QUE_COMMAND;
9999                 }
10000                 ST_DO_ERRSTATS(un, st_transerrs);
10001                 break;
10002 
10003         case CMD_ABORTED:
10004                 /*
10005                  * most likely this is caused by flush-on-error support. If
10006                  * it was not there, the we're in trouble.
10007                  */
10008                 if (!un->un_flush_on_errors) {
10009                         un->un_status = SUN_KEY_FATAL;
10010                         goto reset_target;
10011                 }
10012 
10013                 st_set_pe_errno(un);
10014                 bioerror(bp, un->un_errno);
10015                 if (un->un_errno)
10016                         return (COMMAND_DONE_ERROR);
10017                 else
10018                         return (COMMAND_DONE);
10019 
10020         case CMD_TIMEOUT:       /* Command timed out */
10021                 un->un_status = SUN_KEY_TIMEOUT;
10022                 return (COMMAND_TIMEOUT);
10023 
10024         case CMD_TRAN_ERR:
10025         case CMD_RESET:
10026                 if (pkt->pkt_statistics & (STAT_BUS_RESET | STAT_DEV_RESET)) {
10027                         if ((un->un_rsvd_status &
10028                             (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) ==
10029                             ST_RESERVE) {
10030                                 un->un_rsvd_status |= ST_LOST_RESERVE;
10031                                 ST_DEBUG3(ST_DEVINFO, st_label, CE_WARN,
10032                                     "Lost Reservation\n");
10033                         }
10034                         rval = DEVICE_RESET;
10035                         return (rval);
10036                 }
10037                 if (pkt->pkt_statistics & (STAT_ABORTED | STAT_TERMINATED)) {
10038                         rval = DEVICE_RESET;
10039                         return (rval);
10040                 }
10041                 /*FALLTHROUGH*/
10042         default:
10043                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
10044                     "Unhandled packet status reason = %s statistics = 0x%x\n",
10045                     scsi_rname(pkt->pkt_reason), pkt->pkt_statistics);
10046 reset_target:
10047 
10048                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10049                     "transport completed with %s\n",
10050                     scsi_rname(pkt->pkt_reason));
10051                 ST_DO_ERRSTATS(un, st_transerrs);
10052                 if ((pkt->pkt_state & STATE_GOT_TARGET) &&
10053                     ((pkt->pkt_statistics & (STAT_BUS_RESET | STAT_DEV_RESET |
10054                     STAT_ABORTED)) == 0)) {
10055 
10056                         /*
10057                          * If we haven't reserved the drive don't reset it.
10058                          */
10059                         if ((un->un_rsvd_status &
10060                             (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) == 0) {
10061                                 return (rval);
10062                         }
10063 
10064                         /*
10065                          * if we aren't lost yet we will be soon.
10066                          */
10067                         un->un_pos.pmode = invalid;
10068 
10069                         result = st_reset(un, RESET_LUN);
10070 
10071                         if ((result == 0) && (un->un_state >= ST_STATE_OPEN)) {
10072                                 /* no hope left to recover */
10073                                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
10074                                     "recovery by resets failed\n");
10075                                 return (rval);
10076                         }
10077                 }
10078         }
10079 
10080 
10081         if (un->un_pwr_mgmt == ST_PWR_SUSPENDED) {
10082                 rval = QUE_COMMAND;
10083         } else if (bp == un->un_sbufp) {
10084                 if (rinfo->privatelen == sizeof (recov_info)) {
10085                         if (rinfo->cmd_attrib->retriable) {
10086                                 /*
10087                                  * These commands can be rerun
10088                                  * with impunity
10089                                  */
10090                                 rval = QUE_COMMAND;
10091                         }
10092                 } else {
10093                         cmd_attribute const *attrib;
10094                         attrib = st_lookup_cmd_attribute(pkt->pkt_cdbp[0]);
10095                         if (attrib->retriable) {
10096                                 rval = QUE_COMMAND;
10097                         }
10098                 }
10099         }
10100 
10101         if (un->un_state >= ST_STATE_OPEN) {
10102                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
10103                     fail, scsi_rname(pkt->pkt_reason),
10104                     (rval == COMMAND_DONE_ERROR)?
10105                     "giving up" : "retrying command");
10106         }
10107         return (rval);
10108 }
10109 
10110 /*
10111  * if the device is busy, then put this bp back on the waitq, on the
10112  * interrupt thread, where we want the head of the queue and not the
10113  * end
10114  *
10115  * The callers of this routine should take measures to save the
10116  * un_throttle in un_last_throttle which will be restored in
10117  * st_intr_restart(). The only exception should be st_intr_restart()
10118  * calling this routine for which the saving is already done.
10119  */
10120 static int
10121 st_handle_intr_busy(struct scsi_tape *un, struct buf *bp,
10122         clock_t timeout_interval)
10123 {
10124 
10125         int queued;
10126         int rval = 0;
10127         pkt_info *pktinfo = BP_PKT(bp)->pkt_private;
10128 
10129         mutex_enter(ST_MUTEX);
10130 
10131         ST_FUNC(ST_DEVINFO, st_handle_intr_busy);
10132 
10133         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10134             "st_handle_intr_busy(), un = 0x%p\n", (void *)un);
10135 
10136         if ((bp != un->un_sbufp) && (bp != un->un_recov_buf)) {
10137                 queued = 1;
10138         } else {
10139                 queued = 0;
10140         }
10141 
10142         /*
10143          * Check to see if we hit the retry timeout. We check to make sure
10144          * this is the first one on the runq and make sure we have not
10145          * queued up any more, so this one has to be the last on the list
10146          * also. If it is not, we have to fail.  If it is not the first, but
10147          * is the last we are in trouble anyway, as we are in the interrupt
10148          * context here.
10149          */
10150         if ((pktinfo->str_retry_cnt++ > st_retry_count) ||
10151             ((un->un_runqf != bp) && (un->un_runql != bp) && (queued))) {
10152                 rval = -1;
10153                 goto exit;
10154         }
10155 
10156         /* put the bp back on the waitq */
10157         if (queued) {
10158                 (void) st_remove_from_queue(&un->un_runqf, &un->un_runql, bp);
10159                 st_add_to_queue(&un->un_quef, &un->un_quel, un->un_quef, bp);
10160         }
10161 
10162         /*
10163          * We don't want any other commands being started in the mean time.
10164          * If start had just released mutex after putting something on the
10165          * runq, we won't even get here.
10166          */
10167         un->un_throttle = 0;
10168 
10169         /*
10170          * send a marker pkt, if appropriate
10171          */
10172         st_hba_unflush(un);
10173 
10174         /*
10175          * all queues are aligned, we are just waiting to
10176          * transport
10177          */
10178         un->un_hib_tid = timeout(st_intr_restart, un, timeout_interval);
10179 
10180 exit:
10181         mutex_exit(ST_MUTEX);
10182         return (rval);
10183 }
10184 
10185 /*
10186  * To get one error entry from error stack
10187  */
10188 static int
10189 st_get_error_entry(struct scsi_tape *un, intptr_t arg, int flag)
10190 {
10191 #ifdef _MULTI_DATAMODEL
10192         /*
10193          * For use when a 32 bit app makes a call into a
10194          * 64 bit ioctl
10195          */
10196         struct mterror_entry32 err_entry32;
10197 #endif /* _MULTI_DATAMODEL */
10198 
10199         int rval = 0;
10200         struct mterror_entry err_entry;
10201         struct mterror_entry_stack *err_link_entry_p;
10202         size_t arq_status_len_in, arq_status_len_kr;
10203 
10204         ST_FUNC(ST_DEVINFO, st_get_error_entry);
10205 
10206         ASSERT(mutex_owned(ST_MUTEX));
10207 
10208         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10209             "st_get_error_entry()\n");
10210 
10211         /*
10212          * if error record stack empty, return ENXIO
10213          */
10214         if (un->un_error_entry_stk == NULL) {
10215                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10216                     "st_get_error_entry: Error Entry Stack Empty!\n");
10217                 rval = ENXIO;
10218                 goto ret;
10219         }
10220 
10221         /*
10222          * get the top entry from stack
10223          */
10224         err_link_entry_p = un->un_error_entry_stk;
10225         arq_status_len_kr =
10226             err_link_entry_p->mtees_entry.mtee_arq_status_len;
10227 
10228 #ifdef _MULTI_DATAMODEL
10229         switch (ddi_model_convert_from(flag & FMODELS)) {
10230         case DDI_MODEL_ILP32:
10231                 if (ddi_copyin((void *)arg, &err_entry32,
10232                     MTERROR_ENTRY_SIZE_32, flag)) {
10233                         rval = EFAULT;
10234                         goto ret;
10235                 }
10236 
10237                 arq_status_len_in =
10238                     (size_t)err_entry32.mtee_arq_status_len;
10239 
10240                 err_entry32.mtee_cdb_len =
10241                     (size32_t)err_link_entry_p->mtees_entry.mtee_cdb_len;
10242 
10243                 if (arq_status_len_in > arq_status_len_kr)
10244                         err_entry32.mtee_arq_status_len =
10245                             (size32_t)arq_status_len_kr;
10246 
10247                 if (ddi_copyout(
10248                     err_link_entry_p->mtees_entry.mtee_cdb_buf,
10249                     (void *)(uintptr_t)err_entry32.mtee_cdb_buf,
10250                     err_entry32.mtee_cdb_len, flag)) {
10251                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10252                             "st_get_error_entry: Copy cdb buffer error!");
10253                         rval = EFAULT;
10254                 }
10255 
10256                 if (ddi_copyout(
10257                     err_link_entry_p->mtees_entry.mtee_arq_status,
10258                     (void *)(uintptr_t)err_entry32.mtee_arq_status,
10259                     err_entry32.mtee_arq_status_len, flag)) {
10260                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10261                             "st_get_error_entry: copy arq status error!");
10262                         rval = EFAULT;
10263                 }
10264 
10265                 if (ddi_copyout(&err_entry32, (void *)arg,
10266                     MTERROR_ENTRY_SIZE_32, flag)) {
10267                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10268                             "st_get_error_entry: copy arq status out error!");
10269                         rval = EFAULT;
10270                 }
10271                 break;
10272 
10273         case DDI_MODEL_NONE:
10274                 if (ddi_copyin((void *)arg, &err_entry,
10275                     MTERROR_ENTRY_SIZE_64, flag)) {
10276                         rval = EFAULT;
10277                         goto ret;
10278                 }
10279                 arq_status_len_in = err_entry.mtee_arq_status_len;
10280 
10281                 err_entry.mtee_cdb_len =
10282                     err_link_entry_p->mtees_entry.mtee_cdb_len;
10283 
10284                 if (arq_status_len_in > arq_status_len_kr)
10285                         err_entry.mtee_arq_status_len =
10286                             arq_status_len_kr;
10287 
10288                 if (ddi_copyout(
10289                     err_link_entry_p->mtees_entry.mtee_cdb_buf,
10290                     err_entry.mtee_cdb_buf,
10291                     err_entry.mtee_cdb_len, flag)) {
10292                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10293                             "st_get_error_entry: Copy cdb buffer error!");
10294                         rval = EFAULT;
10295                 }
10296 
10297                 if (ddi_copyout(
10298                     err_link_entry_p->mtees_entry.mtee_arq_status,
10299                     err_entry.mtee_arq_status,
10300                     err_entry.mtee_arq_status_len, flag)) {
10301                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10302                             "st_get_error_entry: copy arq status error!");
10303                         rval = EFAULT;
10304                 }
10305 
10306                 if (ddi_copyout(&err_entry, (void *)arg,
10307                     MTERROR_ENTRY_SIZE_64, flag)) {
10308                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10309                             "st_get_error_entry: copy arq status out error!");
10310                         rval = EFAULT;
10311                 }
10312                 break;
10313         }
10314 #else /* _MULTI_DATAMODEL */
10315         if (ddi_copyin((void *)arg, &err_entry,
10316             MTERROR_ENTRY_SIZE_64, flag)) {
10317                 rval = EFAULT;
10318                 goto ret;
10319         }
10320         arq_status_len_in = err_entry.mtee_arq_status_len;
10321 
10322         err_entry.mtee_cdb_len =
10323             err_link_entry_p->mtees_entry.mtee_cdb_len;
10324 
10325         if (arq_status_len_in > arq_status_len_kr)
10326                 err_entry.mtee_arq_status_len =
10327                     arq_status_len_kr;
10328 
10329         if (ddi_copyout(
10330             err_link_entry_p->mtees_entry.mtee_cdb_buf,
10331             err_entry.mtee_cdb_buf,
10332             err_entry.mtee_cdb_len, flag)) {
10333                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10334                     "st_get_error_entry: Copy cdb buffer error!");
10335                 rval = EFAULT;
10336         }
10337 
10338         if (ddi_copyout(
10339             err_link_entry_p->mtees_entry.mtee_arq_status,
10340             err_entry.mtee_arq_status,
10341             err_entry.mtee_arq_status_len, flag)) {
10342                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10343                     "st_get_error_entry: copy arq status buffer error!");
10344                 rval = EFAULT;
10345         }
10346 
10347         if (ddi_copyout(&err_entry, (void *)arg,
10348             MTERROR_ENTRY_SIZE_64, flag)) {
10349                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10350                     "st_get_error_entry: copy arq status out error!");
10351                 rval = EFAULT;
10352         }
10353 #endif /* _MULTI_DATAMODEL */
10354 
10355         /*
10356          * update stack
10357          */
10358         un->un_error_entry_stk = err_link_entry_p->mtees_nextp;
10359 
10360         kmem_free(err_link_entry_p->mtees_entry.mtee_cdb_buf,
10361             err_link_entry_p->mtees_entry.mtee_cdb_len);
10362         err_link_entry_p->mtees_entry.mtee_cdb_buf = NULL;
10363 
10364         kmem_free(err_link_entry_p->mtees_entry.mtee_arq_status,
10365             SECMDS_STATUS_SIZE);
10366         err_link_entry_p->mtees_entry.mtee_arq_status = NULL;
10367 
10368         kmem_free(err_link_entry_p, MTERROR_LINK_ENTRY_SIZE);
10369         err_link_entry_p = NULL;
10370 ret:
10371         return (rval);
10372 }
10373 
10374 /*
10375  * MTIOCGETERROR ioctl needs to retrieve the current sense data along with
10376  * the scsi CDB command which causes the error and generates sense data and
10377  * the scsi status.
10378  *
10379  *      error-record stack
10380  *
10381  *
10382  *             TOP                                     BOTTOM
10383  *              ------------------------------------------
10384  *              |   0   |   1   |   2   |   ...  |   n   |
10385  *              ------------------------------------------
10386  *                  ^
10387  *                  |
10388  *       pointer to error entry
10389  *
10390  * when st driver generates one sense data record, it creates a error-entry
10391  * and pushes it onto the stack.
10392  *
10393  */
10394 
10395 static void
10396 st_update_error_stack(struct scsi_tape *un,
10397                         struct scsi_pkt *pkt,
10398                         struct scsi_arq_status *cmd)
10399 {
10400         struct mterror_entry_stack *err_entry_tmp;
10401         uchar_t *cdbp = (uchar_t *)pkt->pkt_cdbp;
10402         size_t cdblen = scsi_cdb_size[CDB_GROUPID(cdbp[0])];
10403 
10404         ST_FUNC(ST_DEVINFO, st_update_error_stack);
10405 
10406         ASSERT(mutex_owned(ST_MUTEX));
10407 
10408         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10409             "st_update_error_stack()\n");
10410 
10411         ASSERT(cmd);
10412         ASSERT(cdbp);
10413         if (cdblen == 0) {
10414                 ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10415                     "st_update_error_stack: CDB length error!\n");
10416                 return;
10417         }
10418 
10419         err_entry_tmp = kmem_alloc(MTERROR_LINK_ENTRY_SIZE, KM_SLEEP);
10420         ASSERT(err_entry_tmp != NULL);
10421 
10422         err_entry_tmp->mtees_entry.mtee_cdb_buf =
10423             kmem_alloc(cdblen, KM_SLEEP);
10424         ASSERT(err_entry_tmp->mtees_entry.mtee_cdb_buf != NULL);
10425 
10426         err_entry_tmp->mtees_entry.mtee_arq_status =
10427             kmem_alloc(SECMDS_STATUS_SIZE, KM_SLEEP);
10428         ASSERT(err_entry_tmp->mtees_entry.mtee_arq_status != NULL);
10429 
10430         /*
10431          * copy cdb command & length to current error entry
10432          */
10433         err_entry_tmp->mtees_entry.mtee_cdb_len = cdblen;
10434         bcopy(cdbp, err_entry_tmp->mtees_entry.mtee_cdb_buf, cdblen);
10435 
10436         /*
10437          * copy scsi status length to current error entry
10438          */
10439         err_entry_tmp->mtees_entry.mtee_arq_status_len =
10440             SECMDS_STATUS_SIZE;
10441 
10442         /*
10443          * copy sense data and scsi status to current error entry
10444          */
10445         bcopy(cmd, err_entry_tmp->mtees_entry.mtee_arq_status,
10446             SECMDS_STATUS_SIZE);
10447 
10448         err_entry_tmp->mtees_nextp = un->un_error_entry_stk;
10449         un->un_error_entry_stk = err_entry_tmp;
10450 
10451 }
10452 
10453 /*
10454  * Empty all the error entry in stack
10455  */
10456 static void
10457 st_empty_error_stack(struct scsi_tape *un)
10458 {
10459         struct mterror_entry_stack *linkp;
10460 
10461         ST_FUNC(ST_DEVINFO, st_empty_error_stack);
10462 
10463         ASSERT(mutex_owned(ST_MUTEX));
10464 
10465         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10466             "st_empty_entry_stack()\n");
10467 
10468         while (un->un_error_entry_stk != NULL) {
10469                 linkp = un->un_error_entry_stk;
10470                 un->un_error_entry_stk =
10471                     un->un_error_entry_stk->mtees_nextp;
10472 
10473                 if (linkp->mtees_entry.mtee_cdb_buf != NULL)
10474                         kmem_free(linkp->mtees_entry.mtee_cdb_buf,
10475                             linkp->mtees_entry.mtee_cdb_len);
10476 
10477                 if (linkp->mtees_entry.mtee_arq_status != NULL)
10478                         kmem_free(linkp->mtees_entry.mtee_arq_status,
10479                             linkp->mtees_entry.mtee_arq_status_len);
10480 
10481                 kmem_free(linkp, MTERROR_LINK_ENTRY_SIZE);
10482                 linkp = NULL;
10483         }
10484 }
10485 
10486 static errstate
10487 st_handle_sense(struct scsi_tape *un, struct buf *bp, tapepos_t *pos)
10488 {
10489         struct scsi_pkt *pkt = BP_PKT(bp);
10490         struct scsi_pkt *rqpkt = un->un_rqs;
10491         struct scsi_arq_status arqstat;
10492         recov_info *rcif = pkt->pkt_private;
10493 
10494         errstate rval = COMMAND_DONE_ERROR;
10495         int amt;
10496 
10497         ST_FUNC(ST_DEVINFO, st_handle_sense);
10498 
10499         ASSERT(mutex_owned(ST_MUTEX));
10500 
10501         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10502             "st_handle_sense()\n");
10503 
10504         if (SCBP(rqpkt)->sts_busy) {
10505                 if (rcif->privatelen == sizeof (recov_info)) {
10506                         ST_RECOV(ST_DEVINFO, st_label, CE_WARN,
10507                             "Attempt recovery of busy unit on request sense\n");
10508                         rval = ATTEMPT_RETRY;
10509                 } else if (rcif->pkt_retry_cnt++ < st_retry_count) {
10510                         ST_DEBUG4(ST_DEVINFO, st_label, CE_WARN,
10511                             "Retry busy unit on request sense\n");
10512                         rval = QUE_BUSY_COMMAND;
10513                 }
10514                 return (rval);
10515         } else if (SCBP(rqpkt)->sts_chk) {
10516                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10517                     "Check Condition on REQUEST SENSE\n");
10518                 return (rval);
10519         }
10520 
10521         /*
10522          * Make sure there is sense data to look at.
10523          */
10524         if ((rqpkt->pkt_state & (STATE_GOT_BUS | STATE_GOT_TARGET |
10525             STATE_SENT_CMD | STATE_GOT_STATUS)) != (STATE_GOT_BUS |
10526             STATE_GOT_TARGET | STATE_SENT_CMD | STATE_GOT_STATUS)) {
10527                 return (rval);
10528         }
10529 
10530         /* was there enough data? */
10531         amt = (int)MAX_SENSE_LENGTH - rqpkt->pkt_resid;
10532         if ((rqpkt->pkt_state & STATE_XFERRED_DATA) == 0 ||
10533             (amt < SUN_MIN_SENSE_LENGTH)) {
10534                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10535                     "REQUEST SENSE couldn't get sense data\n");
10536                 return (rval);
10537         }
10538 
10539         bcopy(SCBP(pkt), &arqstat.sts_status,
10540             sizeof (struct scsi_status));
10541         bcopy(SCBP(rqpkt), &arqstat.sts_rqpkt_status,
10542             sizeof (struct scsi_status));
10543         arqstat.sts_rqpkt_reason = rqpkt->pkt_reason;
10544         arqstat.sts_rqpkt_resid = rqpkt->pkt_resid;
10545         arqstat.sts_rqpkt_state = rqpkt->pkt_state;
10546         arqstat.sts_rqpkt_statistics = rqpkt->pkt_statistics;
10547         bcopy(ST_RQSENSE, &arqstat.sts_sensedata, SENSE_LENGTH);
10548 
10549         /*
10550          * copy one arqstat entry in the sense data buffer
10551          */
10552         st_update_error_stack(un, pkt, &arqstat);
10553         return (st_decode_sense(un, bp, amt, &arqstat, pos));
10554 }
10555 
10556 static errstate
10557 st_handle_autosense(struct scsi_tape *un, struct buf *bp, tapepos_t *pos)
10558 {
10559         struct scsi_pkt *pkt = BP_PKT(bp);
10560         struct scsi_arq_status *arqstat =
10561             (struct scsi_arq_status *)pkt->pkt_scbp;
10562         errstate rval = COMMAND_DONE_ERROR;
10563         int amt;
10564 
10565         ST_FUNC(ST_DEVINFO, st_handle_autosense);
10566 
10567         ASSERT(mutex_owned(ST_MUTEX));
10568 
10569         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10570             "st_handle_autosense()\n");
10571 
10572         if (arqstat->sts_rqpkt_status.sts_busy) {
10573                 ST_DEBUG4(ST_DEVINFO, st_label, CE_WARN,
10574                     "busy unit on request sense\n");
10575                 /*
10576                  * we return QUE_SENSE so st_intr will setup the SENSE cmd.
10577                  * the disadvantage is that we do not have any delay for the
10578                  * second retry of rqsense and we have to keep a packet around
10579                  */
10580                 return (QUE_SENSE);
10581 
10582         } else if (arqstat->sts_rqpkt_reason != CMD_CMPLT) {
10583                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10584                     "transport error on REQUEST SENSE\n");
10585                 if ((arqstat->sts_rqpkt_state & STATE_GOT_TARGET) &&
10586                     ((arqstat->sts_rqpkt_statistics &
10587                     (STAT_BUS_RESET | STAT_DEV_RESET | STAT_ABORTED)) == 0)) {
10588                         if (st_reset(un, RESET_LUN) == 0) {
10589                                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10590                                     "recovery by resets failed\n");
10591                         }
10592                 }
10593                 return (rval);
10594 
10595         } else if (arqstat->sts_rqpkt_status.sts_chk) {
10596                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10597                     "Check Condition on REQUEST SENSE\n");
10598                 return (rval);
10599         }
10600 
10601 
10602         /* was there enough data? */
10603         if (pkt->pkt_state & STATE_XARQ_DONE) {
10604                 amt = (int)MAX_SENSE_LENGTH - arqstat->sts_rqpkt_resid;
10605         } else {
10606                 if (arqstat->sts_rqpkt_resid > SENSE_LENGTH) {
10607                         amt = (int)MAX_SENSE_LENGTH - arqstat->sts_rqpkt_resid;
10608                 } else {
10609                         amt = (int)SENSE_LENGTH - arqstat->sts_rqpkt_resid;
10610                 }
10611         }
10612         if ((arqstat->sts_rqpkt_state & STATE_XFERRED_DATA) == 0 ||
10613             (amt < SUN_MIN_SENSE_LENGTH)) {
10614                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10615                     "REQUEST SENSE couldn't get sense data\n");
10616                 return (rval);
10617         }
10618 
10619         if (pkt->pkt_state & STATE_XARQ_DONE) {
10620                 bcopy(&arqstat->sts_sensedata, ST_RQSENSE, MAX_SENSE_LENGTH);
10621         } else {
10622                 bcopy(&arqstat->sts_sensedata, ST_RQSENSE, SENSE_LENGTH);
10623         }
10624 
10625         /*
10626          * copy one arqstat entry in the sense data buffer
10627          */
10628         st_update_error_stack(un, pkt, arqstat);
10629 
10630         return (st_decode_sense(un, bp, amt, arqstat, pos));
10631 }
10632 
10633 static errstate
10634 st_decode_sense(struct scsi_tape *un, struct buf *bp, int amt,
10635     struct scsi_arq_status *statusp, tapepos_t *pos)
10636 {
10637         struct scsi_pkt *pkt = BP_PKT(bp);
10638         recov_info *ri = pkt->pkt_private;
10639         errstate rval = COMMAND_DONE_ERROR;
10640         cmd_attribute const *attrib;
10641         long resid;
10642         struct scsi_extended_sense *sensep = ST_RQSENSE;
10643         int severity;
10644         int get_error;
10645 
10646         ST_FUNC(ST_DEVINFO, st_decode_sense);
10647 
10648         ASSERT(mutex_owned(ST_MUTEX));
10649         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10650             "st_decode_sense()\n");
10651 
10652         /*
10653          * For uscsi commands, squirrel away a copy of the
10654          * results of the Request Sense.
10655          */
10656         if (USCSI_CMD(bp)) {
10657                 struct uscsi_cmd *ucmd = BP_UCMD(bp);
10658                 ucmd->uscsi_rqstatus = *(uchar_t *)statusp;
10659                 if (ucmd->uscsi_rqlen && un->un_srqbufp) {
10660                         uchar_t rqlen = min((uchar_t)amt, ucmd->uscsi_rqlen);
10661                         ucmd->uscsi_rqresid = ucmd->uscsi_rqlen - rqlen;
10662                         bcopy(ST_RQSENSE, un->un_srqbufp, rqlen);
10663                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10664                             "st_decode_sense: stat=0x%x resid=0x%x\n",
10665                             ucmd->uscsi_rqstatus, ucmd->uscsi_rqresid);
10666                 }
10667         }
10668 
10669         if (ri->privatelen == sizeof (recov_info)) {
10670                 attrib = ri->cmd_attrib;
10671         } else {
10672                 attrib = st_lookup_cmd_attribute(pkt->pkt_cdbp[0]);
10673         }
10674 
10675         /*
10676          * If the drive is an MT-02, reposition the
10677          * secondary error code into the proper place.
10678          *
10679          * XXX  MT-02 is non-CCS tape, so secondary error code
10680          * is in byte 8.  However, in SCSI-2, tape has CCS definition
10681          * so it's in byte 12.
10682          */
10683         if (un->un_dp->type == ST_TYPE_EMULEX) {
10684                 sensep->es_code = sensep->es_add_info[0];
10685         }
10686 
10687         ST_CDB(ST_DEVINFO, "st_decode_sense failed CDB",
10688             (caddr_t)&CDBP(pkt)->scc_cmd);
10689 
10690         ST_SENSE(ST_DEVINFO, "st_decode_sense sense data", (caddr_t)statusp,
10691             sizeof (*statusp));
10692 
10693         /* for normal I/O check extract the resid values. */
10694         if (bp != un->un_sbufp && bp != un->un_recov_buf) {
10695                 if (sensep->es_valid) {
10696                         resid =
10697                             (sensep->es_info_1 << 24) |
10698                             (sensep->es_info_2 << 16) |
10699                             (sensep->es_info_3 << 8)  |
10700                             (sensep->es_info_4);
10701                         /* If fixed block */
10702                         if (un->un_bsize) {
10703                                 resid *= un->un_bsize;
10704                         }
10705                 } else if (pkt->pkt_state & STATE_XFERRED_DATA) {
10706                         resid = pkt->pkt_resid;
10707                 } else {
10708                         resid = bp->b_bcount;
10709                 }
10710                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10711                     "st_decode_sense (rw): xferred bit = %d, resid=%ld (%d), "
10712                     "pkt_resid=%ld\n", pkt->pkt_state & STATE_XFERRED_DATA,
10713                     resid,
10714                     (sensep->es_info_1 << 24) |
10715                     (sensep->es_info_2 << 16) |
10716                     (sensep->es_info_3 << 8)  |
10717                     (sensep->es_info_4),
10718                     pkt->pkt_resid);
10719                 /*
10720                  * The problem is, what should we believe?
10721                  */
10722                 if (resid && (pkt->pkt_resid == 0)) {
10723                         pkt->pkt_resid = resid;
10724                 }
10725         } else {
10726                 /*
10727                  * If the command is SCMD_SPACE, we need to get the
10728                  * residual as returned in the sense data, to adjust
10729                  * our idea of current tape position correctly
10730                  */
10731                 if ((sensep->es_valid) &&
10732                     (CDBP(pkt)->scc_cmd == SCMD_LOCATE) ||
10733                     (CDBP(pkt)->scc_cmd == SCMD_LOCATE_G4) ||
10734                     (CDBP(pkt)->scc_cmd == SCMD_SPACE) ||
10735                     (CDBP(pkt)->scc_cmd == SCMD_SPACE_G4) ||
10736                     (CDBP(pkt)->scc_cmd == SCMD_WRITE_FILE_MARK)) {
10737                         resid =
10738                             (sensep->es_info_1 << 24) |
10739                             (sensep->es_info_2 << 16) |
10740                             (sensep->es_info_3 << 8)  |
10741                             (sensep->es_info_4);
10742                         bp->b_resid = resid;
10743                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10744                             "st_decode_sense(other):    resid=%ld\n", resid);
10745                 } else {
10746                         /*
10747                          * If the special command is SCMD_READ,
10748                          * the correct resid will be set later.
10749                          */
10750                         if (attrib->get_cnt != NULL) {
10751                                 resid = attrib->get_cnt(pkt->pkt_cdbp);
10752                         } else {
10753                                 resid = bp->b_bcount;
10754                         }
10755                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10756                             "st_decode_sense(special read):  resid=%ld\n",
10757                             resid);
10758                 }
10759         }
10760 
10761         if ((un->un_state >= ST_STATE_OPEN) &&
10762             (DEBUGGING || st_error_level == SCSI_ERR_ALL)) {
10763                 st_print_cdb(ST_DEVINFO, st_label, CE_NOTE,
10764                     "Failed CDB", (char *)pkt->pkt_cdbp);
10765                 st_clean_print(ST_DEVINFO, st_label, CE_CONT,
10766                     "sense data", (char *)sensep, amt);
10767                 scsi_log(ST_DEVINFO, st_label, CE_CONT,
10768                     "count 0x%lx resid 0x%lx pktresid 0x%lx\n",
10769                     bp->b_bcount, resid, pkt->pkt_resid);
10770         }
10771 
10772         switch (un->un_status = sensep->es_key) {
10773         case KEY_NO_SENSE:
10774                 severity = SCSI_ERR_INFO;
10775 
10776                 /*
10777                  * Erase, locate or rewind operation in progress, retry
10778                  * ASC  ASCQ
10779                  *  00   18    Erase operation in progress
10780                  *  00   19    Locate operation in progress
10781                  *  00   1A    Rewind operation in progress
10782                  */
10783                 if (sensep->es_add_code == 0 &&
10784                     ((sensep->es_qual_code == 0x18) ||
10785                     (sensep->es_qual_code == 0x19) ||
10786                     (sensep->es_qual_code == 0x1a))) {
10787                         rval = QUE_BUSY_COMMAND;
10788                         break;
10789                 }
10790 
10791                 goto common;
10792 
10793         case KEY_RECOVERABLE_ERROR:
10794                 severity = SCSI_ERR_RECOVERED;
10795                 if ((sensep->es_class == CLASS_EXTENDED_SENSE) &&
10796                     (sensep->es_code == ST_DEFERRED_ERROR)) {
10797                         if (un->un_dp->options &
10798                             ST_RETRY_ON_RECOVERED_DEFERRED_ERROR) {
10799                                 rval = QUE_LAST_COMMAND;
10800                                 scsi_errmsg(ST_SCSI_DEVP, pkt, st_label,
10801                                     severity, pos->lgclblkno,
10802                                     un->un_err_pos.lgclblkno, scsi_cmds,
10803                                     sensep);
10804                                 scsi_log(ST_DEVINFO, st_label, CE_CONT,
10805                                     "Command will be retried\n");
10806                         } else {
10807                                 severity = SCSI_ERR_FATAL;
10808                                 rval = COMMAND_DONE_ERROR_RECOVERED;
10809                                 ST_DO_ERRSTATS(un, st_softerrs);
10810                                 scsi_errmsg(ST_SCSI_DEVP, pkt, st_label,
10811                                     severity, pos->lgclblkno,
10812                                     un->un_err_pos.lgclblkno, scsi_cmds,
10813                                     sensep);
10814                         }
10815                         break;
10816                 }
10817 common:
10818                 /*
10819                  * XXX only want reads to be stopped by filemarks.
10820                  * Don't want them to be stopped by EOT.  EOT matters
10821                  * only on write.
10822                  */
10823                 if (sensep->es_filmk && !sensep->es_eom) {
10824                         rval = COMMAND_DONE;
10825                 } else if (sensep->es_eom) {
10826                         rval = COMMAND_DONE;
10827                 } else if (sensep->es_ili) {
10828                         /*
10829                          * Fun with variable length record devices:
10830                          * for specifying larger blocks sizes than the
10831                          * actual physical record size.
10832                          */
10833                         if (un->un_bsize == 0 && resid > 0) {
10834                                 /*
10835                                  * XXX! Ugly.
10836                                  * The requested blocksize is > tape blocksize,
10837                                  * so this is ok, so we just return the
10838                                  * actual size xferred.
10839                                  */
10840                                 pkt->pkt_resid = resid;
10841                                 rval = COMMAND_DONE;
10842                         } else if (un->un_bsize == 0 && resid < 0) {
10843                                 /*
10844                                  * The requested blocksize is < tape blocksize,
10845                                  * so this is not ok, so we err with ENOMEM
10846                                  */
10847                                 rval = COMMAND_DONE_ERROR_RECOVERED;
10848                                 st_bioerror(bp, ENOMEM);
10849                         } else {
10850                                 ST_DO_ERRSTATS(un, st_softerrs);
10851                                 severity = SCSI_ERR_FATAL;
10852                                 rval = COMMAND_DONE_ERROR;
10853                                 st_bioerror(bp, EINVAL);
10854                                 un->un_running.pmode = invalid;
10855                         }
10856                 } else {
10857                         /*
10858                          * we hope and pray for this just being
10859                          * something we can ignore (ie. a
10860                          * truly recoverable soft error)
10861                          */
10862                         rval = COMMAND_DONE;
10863                 }
10864                 if (sensep->es_filmk) {
10865                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10866                             "filemark\n");
10867                         un->un_status = SUN_KEY_EOF;
10868                         pos->eof = ST_EOF_PENDING;
10869                         st_set_pe_flag(un);
10870                 }
10871 
10872                 /*
10873                  * ignore eom when reading, a fmk should terminate reading
10874                  */
10875                 if ((sensep->es_eom) &&
10876                     (CDBP(pkt)->scc_cmd != SCMD_READ)) {
10877                         if ((sensep->es_add_code == 0) &&
10878                             (sensep->es_qual_code == 4)) {
10879                                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10880                                     "bot\n");
10881                                 un->un_status = SUN_KEY_BOT;
10882                                 pos->eof = ST_NO_EOF;
10883                                 pos->lgclblkno = 0;
10884                                 pos->fileno = 0;
10885                                 pos->blkno = 0;
10886                                 if (pos->pmode != legacy)
10887                                         pos->pmode = legacy;
10888                         } else {
10889                                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10890                                     "eom\n");
10891                                 un->un_status = SUN_KEY_EOT;
10892                                 pos->eof = ST_EOM;
10893                         }
10894                         st_set_pe_flag(un);
10895                 }
10896 
10897                 break;
10898 
10899         case KEY_ILLEGAL_REQUEST:
10900 
10901                 if (un->un_laststate >= ST_STATE_OPEN) {
10902                         ST_DO_ERRSTATS(un, st_softerrs);
10903                         severity = SCSI_ERR_FATAL;
10904                 } else {
10905                         severity = SCSI_ERR_INFO;
10906                 }
10907                 break;
10908 
10909         case KEY_MEDIUM_ERROR:
10910                 ST_DO_ERRSTATS(un, st_harderrs);
10911                 severity = SCSI_ERR_FATAL;
10912                 un->un_pos.pmode = invalid;
10913                 un->un_running.pmode = invalid;
10914 check_keys:
10915                 /*
10916                  * attempt to process the keys in the presence of
10917                  * other errors
10918                  */
10919                 if (sensep->es_ili && rval != COMMAND_DONE_ERROR) {
10920                         /*
10921                          * Fun with variable length record devices:
10922                          * for specifying larger blocks sizes than the
10923                          * actual physical record size.
10924                          */
10925                         if (un->un_bsize == 0 && resid > 0) {
10926                                 /*
10927                                  * XXX! Ugly
10928                                  */
10929                                 pkt->pkt_resid = resid;
10930                         } else if (un->un_bsize == 0 && resid < 0) {
10931                                 st_bioerror(bp, EINVAL);
10932                         } else {
10933                                 severity = SCSI_ERR_FATAL;
10934                                 rval = COMMAND_DONE_ERROR;
10935                                 st_bioerror(bp, EINVAL);
10936                         }
10937                 }
10938                 if (sensep->es_filmk) {
10939                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10940                             "filemark\n");
10941                         un->un_status = SUN_KEY_EOF;
10942                         pos->eof = ST_EOF_PENDING;
10943                         st_set_pe_flag(un);
10944                 }
10945 
10946                 /*
10947                  * ignore eom when reading, a fmk should terminate reading
10948                  */
10949                 if ((sensep->es_eom) &&
10950                     (CDBP(pkt)->scc_cmd != SCMD_READ)) {
10951                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "eom\n");
10952                         un->un_status = SUN_KEY_EOT;
10953                         pos->eof = ST_EOM;
10954                         st_set_pe_flag(un);
10955                 }
10956 
10957                 break;
10958 
10959         case KEY_VOLUME_OVERFLOW:
10960                 ST_DO_ERRSTATS(un, st_softerrs);
10961                 pos->eof = ST_EOM;
10962                 severity = SCSI_ERR_FATAL;
10963                 rval = COMMAND_DONE_ERROR;
10964                 goto check_keys;
10965 
10966         case KEY_HARDWARE_ERROR:
10967                 ST_DO_ERRSTATS(un, st_harderrs);
10968                 severity = SCSI_ERR_FATAL;
10969                 rval = COMMAND_DONE_ERROR;
10970                 if (un->un_dp->options & ST_EJECT_ON_CHANGER_FAILURE)
10971                         un->un_eject_tape_on_failure = st_check_asc_ascq(un);
10972                 break;
10973 
10974         case KEY_BLANK_CHECK:
10975                 ST_DO_ERRSTATS(un, st_softerrs);
10976                 severity = SCSI_ERR_INFO;
10977 
10978                 /*
10979                  * if not a special request and some data was xferred then it
10980                  * it is not an error yet
10981                  */
10982                 if (bp != un->un_sbufp && (bp->b_flags & B_READ)) {
10983                         /*
10984                          * no error for read with or without data xferred
10985                          */
10986                         un->un_status = SUN_KEY_EOT;
10987                         pos->eof = ST_EOT;
10988                         rval = COMMAND_DONE_ERROR;
10989                         un->un_running.pmode = invalid;
10990                         st_set_pe_flag(un);
10991                         goto check_keys;
10992                 } else if (bp != un->un_sbufp &&
10993                     (pkt->pkt_state & STATE_XFERRED_DATA)) {
10994                         rval = COMMAND_DONE;
10995                 } else {
10996                         rval = COMMAND_DONE_ERROR_RECOVERED;
10997                 }
10998 
10999                 if (un->un_laststate >= ST_STATE_OPEN) {
11000                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
11001                             "blank check\n");
11002                         pos->eof = ST_EOM;
11003                 }
11004                 if ((CDBP(pkt)->scc_cmd == SCMD_LOCATE) ||
11005                     (CDBP(pkt)->scc_cmd == SCMD_LOCATE_G4) ||
11006                     (CDBP(pkt)->scc_cmd == SCMD_SPACE) &&
11007                     (un->un_dp->options & ST_KNOWS_EOD)) {
11008                         /*
11009                          * we were doing a fast forward by skipping
11010                          * multiple fmk at the time
11011                          */
11012                         st_bioerror(bp, EIO);
11013                         severity = SCSI_ERR_RECOVERED;
11014                         rval     = COMMAND_DONE;
11015                 }
11016                 st_set_pe_flag(un);
11017                 goto check_keys;
11018 
11019         case KEY_WRITE_PROTECT:
11020                 if (st_wrongtapetype(un)) {
11021                         un->un_status = SUN_KEY_WRONGMEDIA;
11022                         ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11023                             "wrong tape for writing- use DC6150 tape "
11024                             "(or equivalent)\n");
11025                         severity = SCSI_ERR_UNKNOWN;
11026                 } else {
11027                         severity = SCSI_ERR_FATAL;
11028                 }
11029                 ST_DO_ERRSTATS(un, st_harderrs);
11030                 rval = COMMAND_DONE_ERROR;
11031                 st_bioerror(bp, EACCES);
11032                 break;
11033 
11034         case KEY_UNIT_ATTENTION:
11035                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11036                     "KEY_UNIT_ATTENTION : un_state = %d\n", un->un_state);
11037 
11038                 un->un_unit_attention_flags |= 1;
11039                 /*
11040                  * If we have detected a Bus Reset and the tape
11041                  * drive has been reserved.
11042                  */
11043                 if (ST_RQSENSE->es_add_code == 0x29) {
11044                         rval = DEVICE_RESET;
11045                         if ((un->un_rsvd_status &
11046                             (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) ==
11047                             ST_RESERVE) {
11048                                 un->un_rsvd_status |= ST_LOST_RESERVE;
11049                                 ST_DEBUG(ST_DEVINFO, st_label, CE_WARN,
11050                                     "st_decode_sense: Lost Reservation\n");
11051                         }
11052                 }
11053 
11054                 /*
11055                  * If this is a recovery command and retrable, retry.
11056                  */
11057                 if (bp == un->un_recov_buf) {
11058                         severity = SCSI_ERR_INFO;
11059                         if (attrib->retriable &&
11060                             ri->pkt_retry_cnt++ < st_retry_count) {
11061                                 rval = QUE_COMMAND;
11062                         } else {
11063                                 rval = COMMAND_DONE_ERROR;
11064                         }
11065                         break; /* Don't set position invalid */
11066                 }
11067 
11068                 /*
11069                  * If ST_APPLICATION_RESERVATIONS is set,
11070                  * If the asc/ascq indicates that the reservation
11071                  * has been cleared just allow the write to continue
11072                  * which would force a scsi 2 reserve.
11073                  * If preempted that persistent reservation
11074                  * the scsi 2 reserve would get a reservation conflict.
11075                  */
11076                 if ((un->un_rsvd_status &
11077                     ST_APPLICATION_RESERVATIONS) != 0) {
11078                         /*
11079                          * RESERVATIONS PREEMPTED
11080                          * With MPxIO this could be a fail over? XXX
11081                          */
11082                         if (ST_RQSENSE->es_add_code == 0x2a &&
11083                             ST_RQSENSE->es_qual_code == 0x03) {
11084                                 severity = SCSI_ERR_INFO;
11085                                 rval = COMMAND_DONE_ERROR;
11086                                 pos->pmode = invalid;
11087                                 break;
11088                         /*
11089                          * RESERVATIONS RELEASED
11090                          */
11091                         } else if (ST_RQSENSE->es_add_code == 0x2a &&
11092                             ST_RQSENSE->es_qual_code == 0x04) {
11093                                 severity = SCSI_ERR_INFO;
11094                                 rval = COMMAND_DONE;
11095                                 break;
11096                         }
11097                 }
11098 
11099                 if (un->un_state <= ST_STATE_OPENING) {
11100                         /*
11101                          * Look, the tape isn't open yet, now determine
11102                          * if the cause is a BUS RESET, Save the file
11103                          * and Block positions for the callers to
11104                          * recover from the loss of position.
11105                          */
11106                         severity = SCSI_ERR_INFO;
11107                         if ((pos->pmode != invalid) &&
11108                             (rval == DEVICE_RESET) &&
11109                             (un->un_restore_pos != 1)) {
11110                                 un->un_save_fileno = pos->fileno;
11111                                 un->un_save_blkno = pos->blkno;
11112                                 un->un_restore_pos = 1;
11113                         }
11114 
11115                         if (attrib->retriable &&
11116                             ri->pkt_retry_cnt++ < st_retry_count) {
11117                                 rval = QUE_COMMAND;
11118                         } else if (rval == DEVICE_RESET) {
11119                                 break;
11120                         } else {
11121                                 rval = COMMAND_DONE_ERROR;
11122                         }
11123                 /*
11124                  * Means it thinks the mode parameters have changed.
11125                  * This is the result of a reset clearing settings or
11126                  * another initiator changing what we set.
11127                  */
11128                 }
11129                 if (ST_RQSENSE->es_add_code == 0x2a) {
11130                         if (ST_RQSENSE->es_qual_code == 0x1) {
11131                                 /* Error recovery will modeselect and retry. */
11132                                 rval = DEVICE_TAMPER;
11133                                 severity = SCSI_ERR_INFO;
11134                                 break; /* don't set position invalid */
11135                         }
11136                         if (ST_RQSENSE->es_qual_code == 0x0 ||
11137                             ST_RQSENSE->es_qual_code == 0x2 ||
11138                             ST_RQSENSE->es_qual_code == 0x3 ||
11139                             ST_RQSENSE->es_qual_code == 0x4 ||
11140                             ST_RQSENSE->es_qual_code == 0x5 ||
11141                             ST_RQSENSE->es_qual_code == 0x6 ||
11142                             ST_RQSENSE->es_qual_code == 0x7) {
11143                                 rval = DEVICE_TAMPER;
11144                                 severity = SCSI_ERR_INFO;
11145                         }
11146                 } else if (ST_RQSENSE->es_add_code == 0x28 &&
11147                     ((ST_RQSENSE->es_qual_code == 0x0) ||
11148                     ST_RQSENSE->es_qual_code == 0x5)) {
11149                         /*
11150                          * Not Ready to Ready change, Media may have changed.
11151                          */
11152                         rval = DEVICE_TAMPER;
11153                         severity = SCSI_ERR_RETRYABLE;
11154                 } else {
11155                         if (rval != DEVICE_RESET) {
11156                                 rval = COMMAND_DONE_ERROR;
11157                         } else {
11158                                 /*
11159                                  * Returning DEVICE_RESET will call
11160                                  * error recovery.
11161                                  */
11162                                 severity = SCSI_ERR_INFO;
11163                                 break; /* don't set position invalid */
11164                         }
11165                         /*
11166                          * Check if it is an Unexpected Unit Attention.
11167                          * If state is >= ST_STATE_OPEN, we have
11168                          * already done the initialization .
11169                          * In this case it is Fatal Error
11170                          * since no further reading/writing
11171                          * can be done with fileno set to < 0.
11172                          */
11173                         if (un->un_state >= ST_STATE_OPEN) {
11174                                 ST_DO_ERRSTATS(un, st_harderrs);
11175                                 severity = SCSI_ERR_FATAL;
11176                         } else {
11177                                 severity = SCSI_ERR_INFO;
11178                         }
11179                 }
11180 
11181                 pos->pmode = invalid;
11182 
11183                 break;
11184 
11185         case KEY_NOT_READY:
11186                 /*
11187                  * If in process of getting ready retry.
11188                  */
11189                 if (sensep->es_add_code == 0x04) {
11190                         switch (sensep->es_qual_code) {
11191                         case 0x07:
11192                                 /*
11193                                  * We get here when the tape is rewinding.
11194                                  * QUE_BUSY_COMMAND retries every 10 seconds.
11195                                  */
11196                                 if (ri->pkt_retry_cnt++ <
11197                                     (un->un_dp->rewind_timeout / 10)) {
11198                                         rval = QUE_BUSY_COMMAND;
11199                                         severity = SCSI_ERR_INFO;
11200                                 } else {
11201                                         /* give up */
11202                                         rval = COMMAND_DONE_ERROR;
11203                                         severity = SCSI_ERR_FATAL;
11204                                 }
11205                                 break;
11206                         case 0x01:
11207                                 if (ri->pkt_retry_cnt++ < st_retry_count) {
11208                                         rval = QUE_COMMAND;
11209                                         severity = SCSI_ERR_INFO;
11210                                         break;
11211                                 }
11212                         default: /* FALLTHRU */
11213                                 /* give up */
11214                                 rval = COMMAND_DONE_ERROR;
11215                                 severity = SCSI_ERR_FATAL;
11216                         }
11217                 } else {
11218                         /* give up */
11219                         rval = COMMAND_DONE_ERROR;
11220                         severity = SCSI_ERR_FATAL;
11221                 }
11222 
11223                 /*
11224                  * If this was an error and after device opened
11225                  * do error stats.
11226                  */
11227                 if (rval == COMMAND_DONE_ERROR &&
11228                     un->un_state > ST_STATE_OPENING) {
11229                         ST_DO_ERRSTATS(un, st_harderrs);
11230                 }
11231 
11232                 if (ST_RQSENSE->es_add_code == 0x3a) {
11233                         if (st_error_level >= SCSI_ERR_FATAL)
11234                                 scsi_log(ST_DEVINFO, st_label, CE_NOTE,
11235                                     "Tape not inserted in drive\n");
11236                         un->un_mediastate = MTIO_EJECTED;
11237                         cv_broadcast(&un->un_state_cv);
11238                 }
11239                 if ((un->un_dp->options & ST_EJECT_ON_CHANGER_FAILURE) &&
11240                     (rval != QUE_COMMAND))
11241                         un->un_eject_tape_on_failure = st_check_asc_ascq(un);
11242                 break;
11243 
11244         case KEY_ABORTED_COMMAND:
11245                 /* XXX Do drives return this when they see a lost light? */
11246                 /* Testing would say yes */
11247 
11248                 if (ri->pkt_retry_cnt++ < st_retry_count) {
11249                         rval = ATTEMPT_RETRY;
11250                         severity = SCSI_ERR_RETRYABLE;
11251                         goto check_keys;
11252                 }
11253                 /*
11254                  * Probably a parity error...
11255                  * if we retry here then this may cause data to be
11256                  * written twice or data skipped during reading
11257                  */
11258                 ST_DO_ERRSTATS(un, st_harderrs);
11259                 severity = SCSI_ERR_FATAL;
11260                 rval = COMMAND_DONE_ERROR;
11261                 goto check_keys;
11262 
11263         default:
11264                 /*
11265                  * Undecoded sense key.  Try retries and hope
11266                  * that will fix the problem.  Otherwise, we're
11267                  * dead.
11268                  */
11269                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11270                     "Unhandled Sense Key '%s'\n",
11271                     sense_keys[un->un_status]);
11272                 ST_DO_ERRSTATS(un, st_harderrs);
11273                 severity = SCSI_ERR_FATAL;
11274                 rval = COMMAND_DONE_ERROR;
11275                 goto check_keys;
11276         }
11277 
11278         if ((!(pkt->pkt_flags & FLAG_SILENT) &&
11279             un->un_state >= ST_STATE_OPEN) && (DEBUGGING ||
11280             (un->un_laststate > ST_STATE_OPENING) &&
11281             (severity >= st_error_level))) {
11282 
11283                 scsi_errmsg(ST_SCSI_DEVP, pkt, st_label, severity,
11284                     pos->lgclblkno, un->un_err_pos.lgclblkno,
11285                     scsi_cmds, sensep);
11286                 if (sensep->es_filmk) {
11287                         scsi_log(ST_DEVINFO, st_label, CE_CONT,
11288                             "File Mark Detected\n");
11289                 }
11290                 if (sensep->es_eom) {
11291                         scsi_log(ST_DEVINFO, st_label, CE_CONT,
11292                             "End-of-Media Detected\n");
11293                 }
11294                 if (sensep->es_ili) {
11295                         scsi_log(ST_DEVINFO, st_label, CE_CONT,
11296                             "Incorrect Length Indicator Set\n");
11297                 }
11298         }
11299         get_error = geterror(bp);
11300         if (((rval == COMMAND_DONE_ERROR) ||
11301             (rval == COMMAND_DONE_ERROR_RECOVERED)) &&
11302             ((get_error == EIO) || (get_error == 0))) {
11303                 un->un_rqs_state |= (ST_RQS_ERROR | ST_RQS_VALID);
11304                 bcopy(ST_RQSENSE, un->un_uscsi_rqs_buf, SENSE_LENGTH);
11305                 if (un->un_rqs_state & ST_RQS_READ) {
11306                         un->un_rqs_state &= ~(ST_RQS_READ);
11307                 } else {
11308                         un->un_rqs_state |= ST_RQS_OVR;
11309                 }
11310         }
11311 
11312         return (rval);
11313 }
11314 
11315 
11316 static int
11317 st_handle_intr_retry_lcmd(struct scsi_tape *un, struct buf *bp)
11318 {
11319         int status = TRAN_ACCEPT;
11320         pkt_info *pktinfo = BP_PKT(bp)->pkt_private;
11321 
11322         mutex_enter(ST_MUTEX);
11323 
11324         ST_FUNC(ST_DEVINFO, st_handle_intr_retry_lcmd);
11325 
11326         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
11327             "st_handle_intr_rtr_lcmd(), un = 0x%p\n", (void *)un);
11328 
11329         /*
11330          * Check to see if we hit the retry timeout. We check to make sure
11331          * this is the first one on the runq and make sure we have not
11332          * queued up any more, so this one has to be the last on the list
11333          * also. If it is not, we have to fail.  If it is not the first, but
11334          * is the last we are in trouble anyway, as we are in the interrupt
11335          * context here.
11336          */
11337         if ((pktinfo->pkt_retry_cnt > st_retry_count) ||
11338             ((un->un_runqf != bp) && (un->un_runql != bp))) {
11339                 goto exit;
11340         }
11341 
11342         if (un->un_throttle) {
11343                 un->un_last_throttle = un->un_throttle;
11344                 un->un_throttle = 0;
11345         }
11346 
11347         /*
11348          * Here we know : bp is the first and last one on the runq
11349          * it is not necessary to put it back on the head of the
11350          * waitq and then move from waitq to runq. Save this queuing
11351          * and call scsi_transport.
11352          */
11353         ST_CDB(ST_DEVINFO, "Retry lcmd CDB", (char *)BP_PKT(bp)->pkt_cdbp);
11354 
11355         status = st_transport(un, BP_PKT(bp));
11356 
11357         if (status == TRAN_ACCEPT) {
11358                 if (un->un_last_throttle) {
11359                         un->un_throttle = un->un_last_throttle;
11360                 }
11361                 mutex_exit(ST_MUTEX);
11362 
11363                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11364                     "restart transport \n");
11365                 return (0);
11366         }
11367 
11368         ST_DO_KSTATS(bp, kstat_runq_back_to_waitq);
11369         mutex_exit(ST_MUTEX);
11370 
11371         if (status == TRAN_BUSY) {
11372                 if (st_handle_intr_busy(un, bp, ST_TRAN_BUSY_TIMEOUT) == 0) {
11373                         return (0);
11374                 }
11375         }
11376         ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11377             "restart transport rejected\n");
11378         mutex_enter(ST_MUTEX);
11379         ST_DO_ERRSTATS(un, st_transerrs);
11380         if (un->un_last_throttle) {
11381                 un->un_throttle = un->un_last_throttle;
11382         }
11383 exit:
11384         mutex_exit(ST_MUTEX);
11385         return (-1);
11386 }
11387 
11388 static int
11389 st_wrongtapetype(struct scsi_tape *un)
11390 {
11391 
11392         ST_FUNC(ST_DEVINFO, st_wrongtapetype);
11393 
11394         ASSERT(mutex_owned(ST_MUTEX));
11395 
11396         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_wrongtapetype()\n");
11397 
11398         /*
11399          * Hack to handle  600A, 600XTD, 6150 && 660 vs. 300XL tapes...
11400          */
11401         if (un->un_dp && (un->un_dp->options & ST_QIC) && un->un_mspl) {
11402                 switch (un->un_dp->type) {
11403                 case ST_TYPE_WANGTEK:
11404                 case ST_TYPE_ARCHIVE:
11405                         /*
11406                          * If this really worked, we could go off of
11407                          * the density codes set in the modesense
11408                          * page. For this drive, 0x10 == QIC-120,
11409                          * 0xf == QIC-150, and 0x5 should be for
11410                          * both QIC-24 and, maybe, QIC-11. However,
11411                          * the h/w doesn't do what the manual says
11412                          * that it should, so we'll key off of
11413                          * getting a WRITE PROTECT error AND wp *not*
11414                          * set in the mode sense information.
11415                          */
11416                         /*
11417                          * XXX but we already know that status is
11418                          * write protect, so don't check it again.
11419                          */
11420 
11421                         if (un->un_status == KEY_WRITE_PROTECT &&
11422                             un->un_mspl->wp == 0) {
11423                                 return (1);
11424                         }
11425                         break;
11426                 default:
11427                         break;
11428                 }
11429         }
11430         return (0);
11431 }
11432 
11433 static errstate
11434 st_check_error(struct scsi_tape *un, struct scsi_pkt *pkt)
11435 {
11436         errstate action;
11437         recov_info *rcvi = pkt->pkt_private;
11438         buf_t *bp = rcvi->cmd_bp;
11439         struct scsi_arq_status *stat = (struct scsi_arq_status *)pkt->pkt_scbp;
11440 
11441         ST_FUNC(ST_DEVINFO, st_check_error);
11442 
11443         ASSERT(mutex_owned(ST_MUTEX));
11444 
11445         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_check_error()\n");
11446 
11447         switch (SCBP_C(pkt)) {
11448         case STATUS_RESERVATION_CONFLICT:
11449                 /*
11450                  * Command recovery is enabled, not just opening,
11451                  * we had the drive reserved and we thing its ours.
11452                  * Call recovery to attempt to take it back.
11453                  */
11454                 if ((rcvi->privatelen == sizeof (recov_info)) &&
11455                     (bp != un->un_recov_buf) &&
11456                     (un->un_state > ST_STATE_OPEN_PENDING_IO) &&
11457                     ((un->un_rsvd_status & (ST_RESERVE |
11458                     ST_APPLICATION_RESERVATIONS)) != 0)) {
11459                         action = ATTEMPT_RETRY;
11460                         un->un_rsvd_status |= ST_LOST_RESERVE;
11461                 } else {
11462                         action = COMMAND_DONE_EACCES;
11463                         un->un_rsvd_status |= ST_RESERVATION_CONFLICT;
11464                 }
11465                 break;
11466 
11467         case STATUS_BUSY:
11468                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG, "unit busy\n");
11469                 if (rcvi->privatelen == sizeof (recov_info) &&
11470                     un->un_multipath && (pkt->pkt_state == (STATE_GOT_BUS |
11471                     STATE_GOT_TARGET | STATE_SENT_CMD | STATE_GOT_STATUS))) {
11472                         /*
11473                          * Status returned by scsi_vhci indicating path
11474                          * has failed over.
11475                          */
11476                         action = PATH_FAILED;
11477                         break;
11478                 }
11479                 /* FALLTHRU */
11480         case STATUS_QFULL:
11481                 if (rcvi->privatelen == sizeof (recov_info)) {
11482                         /*
11483                          * If recovery is inabled use it instead of
11484                          * blind reties.
11485                          */
11486                         action = ATTEMPT_RETRY;
11487                 } else if (rcvi->pkt_retry_cnt++ < st_retry_count) {
11488                         action = QUE_BUSY_COMMAND;
11489                 } else if ((un->un_rsvd_status &
11490                     (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) == 0) {
11491                         /*
11492                          * If this is a command done before reserve is done
11493                          * don't reset.
11494                          */
11495                         action = COMMAND_DONE_ERROR;
11496                 } else {
11497                         ST_DEBUG2(ST_DEVINFO, st_label, CE_WARN,
11498                             "unit busy too long\n");
11499                         (void) st_reset(un, RESET_ALL);
11500                         action = COMMAND_DONE_ERROR;
11501                 }
11502                 break;
11503 
11504         case STATUS_CHECK:
11505         case STATUS_TERMINATED:
11506                 /*
11507                  * we should only get here if the auto rqsense failed
11508                  * thru a uscsi cmd without autorequest sense
11509                  * so we just try again
11510                  */
11511                 if (un->un_arq_enabled &&
11512                     stat->sts_rqpkt_reason == CMD_CMPLT &&
11513                     (stat->sts_rqpkt_state & (STATE_GOT_BUS |
11514                     STATE_GOT_TARGET | STATE_SENT_CMD | STATE_GOT_STATUS)) ==
11515                     (STATE_GOT_BUS | STATE_GOT_TARGET | STATE_SENT_CMD |
11516                     STATE_GOT_STATUS)) {
11517 
11518                         ST_DEBUG2(ST_DEVINFO, st_label, CE_WARN,
11519                             "Really got sense data\n");
11520                         action = st_decode_sense(un, bp, MAX_SENSE_LENGTH -
11521                             pkt->pkt_resid, stat, &un->un_pos);
11522                 } else {
11523                         ST_DEBUG2(ST_DEVINFO, st_label, CE_WARN,
11524                             "Trying to queue sense command\n");
11525                         action = QUE_SENSE;
11526                 }
11527                 break;
11528 
11529         case STATUS_TASK_ABORT:
11530                 /*
11531                  * This is an aborted task. This can be a reset on the other
11532                  * port of a multiport drive. Lets try and recover it.
11533                  */
11534                 action = DEVICE_RESET;
11535                 break;
11536 
11537         default:
11538                 action = COMMAND_DONE;
11539                 ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
11540                     "Unexpected scsi status byte 0x%x\n", SCBP_C(pkt));
11541         }
11542         return (action);
11543 }
11544 
11545 static void
11546 st_calc_bnum(struct scsi_tape *un, struct buf *bp, struct scsi_pkt *pkt)
11547 {
11548         int nblks;
11549         int nfiles;
11550         long count;
11551         recov_info *ri = pkt->pkt_private;
11552         cmd_attribute const *attrib;
11553 
11554         ST_FUNC(ST_DEVINFO, st_calc_bnum);
11555 
11556         ASSERT(mutex_owned(ST_MUTEX));
11557 
11558         if (ri->privatelen == sizeof (recov_info)) {
11559                 attrib = ri->cmd_attrib;
11560                 ASSERT(attrib->recov_pos_type == POS_EXPECTED);
11561                 ASSERT(attrib->chg_tape_pos);
11562         } else {
11563                 ri = NULL;
11564                 attrib = st_lookup_cmd_attribute(pkt->pkt_cdbp[0]);
11565         }
11566 
11567         count = bp->b_bcount - bp->b_resid;
11568 
11569         /* Command reads or writes data */
11570         if (attrib->transfers_data != TRAN_NONE) {
11571                 if (count == 0) {
11572                         if (attrib->transfers_data == TRAN_WRTE) {
11573                                 ASSERT(un->un_pos.eof == ST_EOM);
11574                                 nblks = 0;
11575                                 nfiles = 0;
11576                         } else {
11577                                 ASSERT(un->un_pos.eof == ST_EOF_PENDING);
11578                                 nblks = 0;
11579                                 nfiles = 1;
11580                         }
11581                 } else if (un->un_bsize == 0) {
11582                         /*
11583                          * If variable block mode.
11584                          * Fixed bit in CBD should be zero.
11585                          */
11586                         ASSERT((pkt->pkt_cdbp[1] & 1) == 0);
11587                         nblks = 1;
11588                         un->un_kbytes_xferred += (count / ONE_K);
11589                         nfiles = 0;
11590                 } else {
11591                         /*
11592                          * If fixed block mode.
11593                          * Fixed bit in CBD should be one.
11594                          */
11595                         ASSERT((pkt->pkt_cdbp[1] & 1) == 1);
11596                         nblks = (count / un->un_bsize);
11597                         un->un_kbytes_xferred += (nblks * un->un_bsize) / ONE_K;
11598                         nfiles = 0;
11599                 }
11600                 /*
11601                  * So its possable to read some blocks and hit a filemark.
11602                  * Example reading in fixed block mode where more then one
11603                  * block at a time is requested. In this case because the
11604                  * filemark is hit something less then the requesed number
11605                  * of blocks is read.
11606                  */
11607                 if (un->un_pos.eof == ST_EOF_PENDING && bp->b_resid) {
11608                         nfiles = 1;
11609                 }
11610         } else {
11611                 nblks = 0;
11612                 nfiles = count;
11613         }
11614 
11615         /*
11616          * If some command failed after this one started and it seems
11617          * to have finshed without error count the position.
11618          */
11619         if (un->un_persistence && un->un_persist_errors) {
11620                 ASSERT(un->un_pos.pmode != invalid);
11621         }
11622 
11623         if (attrib->chg_tape_direction == DIR_FORW) {
11624                 un->un_pos.blkno += nblks;
11625                 un->un_pos.lgclblkno += nblks;
11626                 un->un_pos.lgclblkno += nfiles;
11627         } else if (attrib->chg_tape_direction == DIR_REVC) {
11628                 un->un_pos.blkno -= nblks;
11629                 un->un_pos.lgclblkno -= nblks;
11630                 un->un_pos.lgclblkno -= nfiles;
11631         } else {
11632                 ASSERT(0);
11633         }
11634 
11635         /* recovery disabled */
11636         if (ri == NULL) {
11637                 un->un_running.pmode = invalid;
11638                 return;
11639         }
11640 
11641         /*
11642          * If we didn't just read a filemark.
11643          */
11644         if (un->un_pos.eof != ST_EOF_PENDING) {
11645                 ASSERT(nblks != 0 && nfiles == 0);
11646                 /*
11647                  * If Previously calulated expected position does not match
11648                  * debug the expected position.
11649                  */
11650                 if ((ri->pos.pmode != invalid) && nblks &&
11651                     ((un->un_pos.blkno != ri->pos.blkno) ||
11652                     (un->un_pos.lgclblkno != ri->pos.lgclblkno))) {
11653 #ifdef STDEBUG
11654                         st_print_position(ST_DEVINFO, st_label, CE_NOTE,
11655                             "Expected", &ri->pos);
11656                         st_print_position(ST_DEVINFO, st_label, CE_NOTE,
11657                             "But Got", &un->un_pos);
11658 #endif
11659                         un->un_running.pmode = invalid;
11660                 }
11661         } else {
11662                 ASSERT(nfiles != 0);
11663                 if (un->un_running.pmode != invalid) {
11664                         /*
11665                          * blkno and lgclblkno already counted in
11666                          * st_add_recovery_info_to_pkt(). Since a block was not
11667                          * read and a filemark was.
11668                          */
11669                         if (attrib->chg_tape_direction == DIR_FORW) {
11670                                 un->un_running.fileno++;
11671                                 un->un_running.blkno = 0;
11672                         } else if (attrib->chg_tape_direction == DIR_REVC) {
11673                                 un->un_running.fileno--;
11674                                 un->un_running.blkno = LASTBLK;
11675                         }
11676                 }
11677         }
11678 }
11679 
11680 static void
11681 st_set_state(struct scsi_tape *un, struct buf *bp)
11682 {
11683         struct scsi_pkt *sp = BP_PKT(bp);
11684         struct uscsi_cmd *ucmd;
11685 
11686         ST_FUNC(ST_DEVINFO, st_set_state);
11687 
11688         ASSERT(mutex_owned(ST_MUTEX));
11689         ASSERT(bp != un->un_recov_buf);
11690 
11691         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
11692             "st_set_state(): eof=%x     fmneeded=%x  pkt_resid=0x%lx (%ld)\n",
11693             un->un_pos.eof, un->un_fmneeded, sp->pkt_resid, sp->pkt_resid);
11694 
11695         if (bp != un->un_sbufp) {
11696 #ifdef STDEBUG
11697                 if (DEBUGGING && sp->pkt_resid) {
11698                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
11699                             "pkt_resid %ld bcount %ld\n",
11700                             sp->pkt_resid, bp->b_bcount);
11701                 }
11702 #endif
11703                 bp->b_resid = sp->pkt_resid;
11704                 if (geterror(bp) != EIO) {
11705                         st_calc_bnum(un, bp, sp);
11706                 }
11707                 if (bp->b_flags & B_READ) {
11708                         un->un_lastop = ST_OP_READ;
11709                         un->un_fmneeded = 0;
11710                 } else {
11711                         un->un_lastop = ST_OP_WRITE;
11712                         if (un->un_dp->options & ST_REEL) {
11713                                 un->un_fmneeded = 2;
11714                         } else {
11715                                 un->un_fmneeded = 1;
11716                         }
11717                 }
11718                 /*
11719                  * all is honky dory at this point, so let's
11720                  * readjust the throttle, to increase speed, if we
11721                  * have not throttled down.
11722                  */
11723                 if (un->un_throttle) {
11724                         un->un_throttle = un->un_max_throttle;
11725                 }
11726         } else {
11727                 optype new_lastop = ST_OP_NIL;
11728                 uchar_t cmd = (uchar_t)(intptr_t)bp->b_forw;
11729 
11730                 switch (cmd) {
11731                 case SCMD_WRITE:
11732                 case SCMD_WRITE_G4:
11733                         bp->b_resid = sp->pkt_resid;
11734                         new_lastop = ST_OP_WRITE;
11735                         if (geterror(bp) == EIO) {
11736                                 break;
11737                         }
11738                         st_calc_bnum(un, bp, sp);
11739                         if (un->un_dp->options & ST_REEL) {
11740                                 un->un_fmneeded = 2;
11741                         } else {
11742                                 un->un_fmneeded = 1;
11743                         }
11744                         break;
11745                 case SCMD_READ:
11746                 case SCMD_READ_G4:
11747                         bp->b_resid = sp->pkt_resid;
11748                         new_lastop = ST_OP_READ;
11749                         un->un_lastop = ST_OP_READ;
11750                         if (geterror(bp) == EIO) {
11751                                 break;
11752                         }
11753                         st_calc_bnum(un, bp, sp);
11754                         un->un_fmneeded = 0;
11755                         break;
11756                 case SCMD_WRITE_FILE_MARK_G4:
11757                 case SCMD_WRITE_FILE_MARK:
11758                 {
11759                         int fmdone;
11760 
11761                         if (un->un_pos.eof != ST_EOM) {
11762                                 un->un_pos.eof = ST_NO_EOF;
11763                         }
11764                         fmdone = (bp->b_bcount - bp->b_resid);
11765                         if (fmdone > 0) {
11766                                 un->un_lastop = new_lastop = ST_OP_WEOF;
11767                                 un->un_pos.lgclblkno += fmdone;
11768                                 un->un_pos.fileno += fmdone;
11769                                 un->un_pos.blkno = 0;
11770                         } else {
11771                                 new_lastop = ST_OP_CTL;
11772                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
11773                                     "Flushed buffer\n");
11774                         }
11775                         if (fmdone > un->un_fmneeded) {
11776                                 un->un_fmneeded = 0;
11777                         } else {
11778                                 un->un_fmneeded -= fmdone;
11779                         }
11780                         break;
11781                 }
11782                 case SCMD_REWIND:
11783                         un->un_pos.eof = ST_NO_EOF;
11784                         un->un_pos.fileno = 0;
11785                         un->un_pos.blkno = 0;
11786                         un->un_pos.lgclblkno = 0;
11787                         if (un->un_pos.pmode != legacy)
11788                                 un->un_pos.pmode = legacy;
11789                         new_lastop = ST_OP_CTL;
11790                         un->un_restore_pos = 0;
11791                         break;
11792 
11793                 case SCMD_SPACE:
11794                 case SCMD_SPACE_G4:
11795                 {
11796                         int64_t count;
11797                         int64_t resid;
11798                         int64_t done;
11799                         cmd_attribute const *attrib;
11800                         recov_info *ri = sp->pkt_private;
11801 
11802                         if (ri->privatelen == sizeof (recov_info)) {
11803                                 attrib = ri->cmd_attrib;
11804                         } else {
11805                                 attrib =
11806                                     st_lookup_cmd_attribute(sp->pkt_cdbp[0]);
11807                         }
11808 
11809                         resid = (int64_t)SPACE_CNT(bp->b_resid);
11810                         count = (int64_t)attrib->get_cnt(sp->pkt_cdbp);
11811 
11812                         if (count >= 0) {
11813                                 done = (count - resid);
11814                         } else {
11815                                 done = ((-count) - resid);
11816                         }
11817                         if (done > 0) {
11818                                 un->un_lastop = new_lastop = ST_OP_CTL;
11819                         } else {
11820                                 new_lastop = ST_OP_CTL;
11821                         }
11822 
11823                         ST_SPAC(ST_DEVINFO, st_label, CE_WARN,
11824                             "space cmd: cdb[1] = %s\n"
11825                             "space data:       = 0x%lx\n"
11826                             "space count:      = %"PRId64"\n"
11827                             "space resid:      = %"PRId64"\n"
11828                             "spaces done:      = %"PRId64"\n"
11829                             "fileno before     = %d\n"
11830                             "blkno before      = %d\n",
11831                             space_strs[sp->pkt_cdbp[1] & 7],
11832                             bp->b_bcount,
11833                             count, resid, done,
11834                             un->un_pos.fileno, un->un_pos.blkno);
11835 
11836                         switch (sp->pkt_cdbp[1]) {
11837                         case SPACE_TYPE(SP_FLM):
11838                                 /* Space file forward */
11839                                 if (count >= 0) {
11840                                         if (un->un_pos.eof <= ST_EOF) {
11841                                                 un->un_pos.eof = ST_NO_EOF;
11842                                         }
11843                                         un->un_pos.fileno += done;
11844                                         un->un_pos.blkno = 0;
11845                                         break;
11846                                 }
11847                                 /* Space file backward */
11848                                 if (done > un->un_pos.fileno) {
11849                                         un->un_pos.fileno = 0;
11850                                         un->un_pos.blkno = 0;
11851                                 } else {
11852                                         un->un_pos.fileno -= done;
11853                                         un->un_pos.blkno = LASTBLK;
11854                                         un->un_running.pmode = invalid;
11855                                 }
11856                                 break;
11857                         case SPACE_TYPE(SP_BLK):
11858                                 /* Space block forward */
11859                                 if (count >= 0) {
11860                                         un->un_pos.blkno += done;
11861                                         break;
11862                                 }
11863                                 /* Space block backward */
11864                                 if (un->un_pos.eof >= ST_EOF_PENDING) {
11865                                 /*
11866                                  * we stepped back into
11867                                  * a previous file; we are not
11868                                  * making an effort to pretend that
11869                                  * we are still in the current file
11870                                  * ie. logical == physical position
11871                                  * and leave it to st_ioctl to correct
11872                                  */
11873                                         if (done > un->un_pos.blkno) {
11874                                                 un->un_pos.blkno = 0;
11875                                         } else {
11876                                                 un->un_pos.fileno--;
11877                                                 un->un_pos.blkno = LASTBLK;
11878                                                 un->un_running.pmode = invalid;
11879                                         }
11880                                 } else {
11881                                         un->un_pos.blkno -= done;
11882                                 }
11883                                 break;
11884                         case SPACE_TYPE(SP_SQFLM):
11885                                 un->un_pos.pmode = logical;
11886                                 un->un_pos.blkno = 0;
11887                                 un->un_lastop = new_lastop = ST_OP_CTL;
11888                                 break;
11889                         case SPACE_TYPE(SP_EOD):
11890                                 un->un_pos.pmode = logical;
11891                                 un->un_pos.eof = ST_EOM;
11892                                 un->un_status = KEY_BLANK_CHECK;
11893                                 break;
11894                         default:
11895                                 un->un_pos.pmode = invalid;
11896                                 scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
11897                                     "Unsupported space cmd: %s\n",
11898                                     space_strs[sp->pkt_cdbp[1] & 7]);
11899 
11900                                 un->un_lastop = new_lastop = ST_OP_CTL;
11901                         }
11902 
11903                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
11904                             "after_space rs %"PRId64" fil %d blk %d\n",
11905                             resid, un->un_pos.fileno, un->un_pos.blkno);
11906 
11907                         break;
11908                 }
11909                 case SCMD_LOAD:
11910                         if ((bp->b_bcount & (LD_LOAD | LD_EOT)) == LD_LOAD) {
11911                                 un->un_pos.fileno = 0;
11912                                 if (un->un_pos.pmode != legacy)
11913                                         un->un_pos.pmode = legacy;
11914                         } else {
11915                                 un->un_state = ST_STATE_OFFLINE;
11916                                 un->un_pos.pmode = invalid;
11917 
11918                         }
11919                         /*
11920                          * If we are loading or unloading we expect the media id
11921                          * to change. Lets make it unknown.
11922                          */
11923                         if (un->un_media_id != bogusID && un->un_media_id_len) {
11924                                 kmem_free(un->un_media_id, un->un_media_id_len);
11925                                 un->un_media_id = NULL;
11926                                 un->un_media_id_len = 0;
11927                         }
11928                         un->un_density_known = 0;
11929                         un->un_pos.eof = ST_NO_EOF;
11930                         un->un_pos.blkno = 0;
11931                         un->un_lastop = new_lastop = ST_OP_CTL;
11932                         break;
11933                 case SCMD_ERASE:
11934                         un->un_pos.eof = ST_NO_EOF;
11935                         un->un_pos.blkno = 0;
11936                         un->un_pos.fileno = 0;
11937                         un->un_pos.lgclblkno = 0;
11938                         if (un->un_pos.pmode != legacy)
11939                                 un->un_pos.pmode = legacy;
11940                         new_lastop = ST_OP_CTL;
11941                         break;
11942                 case SCMD_RESERVE:
11943                         un->un_rsvd_status |= ST_RESERVE;
11944                         un->un_rsvd_status &=
11945                             ~(ST_RELEASE | ST_LOST_RESERVE |
11946                             ST_RESERVATION_CONFLICT | ST_INITIATED_RESET);
11947                         new_lastop = ST_OP_CTL;
11948                         break;
11949                 case SCMD_RELEASE:
11950                         un->un_rsvd_status |= ST_RELEASE;
11951                         un->un_rsvd_status &=
11952                             ~(ST_RESERVE | ST_LOST_RESERVE |
11953                             ST_RESERVATION_CONFLICT | ST_INITIATED_RESET);
11954                         new_lastop = ST_OP_CTL;
11955                         break;
11956                 case SCMD_PERSISTENT_RESERVE_IN:
11957                         ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11958                             "PGR_IN command\n");
11959                         new_lastop = ST_OP_CTL;
11960                         break;
11961                 case SCMD_PERSISTENT_RESERVE_OUT:
11962                         switch (sp->pkt_cdbp[1] & ST_SA_MASK) {
11963                         case ST_SA_SCSI3_RESERVE:
11964                         case ST_SA_SCSI3_PREEMPT:
11965                         case ST_SA_SCSI3_PREEMPTANDABORT:
11966                                 un->un_rsvd_status |=
11967                                     (ST_APPLICATION_RESERVATIONS | ST_RESERVE);
11968                                 un->un_rsvd_status &= ~(ST_RELEASE |
11969                                     ST_LOST_RESERVE | ST_RESERVATION_CONFLICT |
11970                                     ST_INITIATED_RESET);
11971                                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11972                                     "PGR Reserve and set: entering"
11973                                     " ST_APPLICATION_RESERVATIONS mode");
11974                                 break;
11975                         case ST_SA_SCSI3_REGISTER:
11976                                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11977                                     "PGR Reserve register key");
11978                                 un->un_rsvd_status |= ST_INIT_RESERVE;
11979                                 break;
11980                         case ST_SA_SCSI3_CLEAR:
11981                                 un->un_rsvd_status &= ~ST_INIT_RESERVE;
11982                                 /* FALLTHROUGH */
11983                         case ST_SA_SCSI3_RELEASE:
11984                                 un->un_rsvd_status &=
11985                                     ~(ST_APPLICATION_RESERVATIONS | ST_RESERVE |
11986                                     ST_LOST_RESERVE | ST_RESERVATION_CONFLICT |
11987                                     ST_INITIATED_RESET);
11988                                 un->un_rsvd_status |= ST_RELEASE;
11989                                 ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11990                                     "PGR Release and reset: exiting"
11991                                     " ST_APPLICATION_RESERVATIONS mode");
11992                                 break;
11993                         }
11994                         new_lastop = ST_OP_CTL;
11995                         break;
11996                 case SCMD_TEST_UNIT_READY:
11997                 case SCMD_READ_BLKLIM:
11998                 case SCMD_REQUEST_SENSE:
11999                 case SCMD_INQUIRY:
12000                 case SCMD_RECOVER_BUF:
12001                 case SCMD_MODE_SELECT:
12002                 case SCMD_MODE_SENSE:
12003                 case SCMD_DOORLOCK:
12004                 case SCMD_READ_BUFFER:
12005                 case SCMD_REPORT_DENSITIES:
12006                 case SCMD_LOG_SELECT_G1:
12007                 case SCMD_LOG_SENSE_G1:
12008                 case SCMD_REPORT_LUNS:
12009                 case SCMD_READ_ATTRIBUTE:
12010                 case SCMD_WRITE_ATTRIBUTE:
12011                 case SCMD_SVC_ACTION_IN_G5:
12012                 case SCMD_SECURITY_PROTO_IN:
12013                 case SCMD_SECURITY_PROTO_OUT:
12014                         new_lastop = ST_OP_CTL;
12015                         break;
12016                 case SCMD_READ_POSITION:
12017                         new_lastop = ST_OP_CTL;
12018                         /*
12019                          * Only if the buf used was un_sbufp.
12020                          * Among other things the prevents read positions used
12021                          * as part of error recovery from messing up our
12022                          * current position as they will use un_recov_buf.
12023                          */
12024                         if (USCSI_CMD(bp)) {
12025                                 (void) st_get_read_pos(un, bp);
12026                         }
12027                         break;
12028                 case SCMD_LOCATE:
12029                 case SCMD_LOCATE_G4:
12030                         /* Locate makes position mode no longer legacy */
12031                         un->un_lastop = new_lastop = ST_OP_CTL;
12032                         break;
12033                 case SCMD_MAINTENANCE_IN:
12034                         switch (sp->pkt_cdbp[1]) {
12035                         case SSVC_ACTION_GET_SUPPORTED_OPERATIONS:
12036                         case SSVC_ACTION_SET_TARGET_PORT_GROUPS:
12037                                 new_lastop = ST_OP_CTL;
12038                                 break;
12039                         }
12040                         if (new_lastop != ST_OP_NIL) {
12041                                 break;
12042                         }
12043                 default:
12044                         /*
12045                          * Unknown command, If was USCSI and USCSI_SILENT
12046                          * flag was not set, set position to unknown.
12047                          */
12048                         if ((((ucmd = BP_UCMD(bp)) != NULL) &&
12049                             (ucmd->uscsi_flags & USCSI_SILENT) == 0)) {
12050                                 ST_DEBUG2(ST_DEVINFO, st_label, CE_WARN,
12051                                     "unknown cmd 0x%X caused loss of state\n",
12052                                     cmd);
12053                         } else {
12054                                 /*
12055                                  * keep the old agreement to allow unknown
12056                                  * commands with the USCSI_SILENT set.
12057                                  * This prevents ASSERT below.
12058                                  */
12059                                 new_lastop = ST_OP_CTL;
12060                                 break;
12061                         }
12062                         /* FALLTHROUGH */
12063                 case SCMD_WRITE_BUFFER: /* Writes new firmware to device */
12064                         un->un_pos.pmode = invalid;
12065                         un->un_lastop = new_lastop = ST_OP_CTL;
12066                         break;
12067                 }
12068 
12069                 /* new_lastop should have been changed */
12070                 ASSERT(new_lastop != ST_OP_NIL);
12071 
12072                 /* If un_lastop should copy new_lastop  */
12073                 if (((un->un_lastop == ST_OP_WRITE) ||
12074                     (un->un_lastop == ST_OP_WEOF)) &&
12075                     new_lastop != ST_OP_CTL) {
12076                         un->un_lastop = new_lastop;
12077                 }
12078         }
12079 
12080         /*
12081          * In the st driver we have a logical and physical file position.
12082          * Under BSD behavior, when you get a zero read, the logical position
12083          * is before the filemark but after the last record of the file.
12084          * The physical position is after the filemark. MTIOCGET should always
12085          * return the logical file position.
12086          *
12087          * The next read gives a silent skip to the next file.
12088          * Under SVR4, the logical file position remains before the filemark
12089          * until the file is closed or a space operation is performed.
12090          * Hence set err_resid and err_file before changing fileno if case
12091          * BSD Behaviour.
12092          */
12093         un->un_err_resid = bp->b_resid;
12094         COPY_POS(&un->un_err_pos, &un->un_pos);
12095 
12096 
12097         /*
12098          * If we've seen a filemark via the last read operation
12099          * advance the file counter, but mark things such that
12100          * the next read operation gets a zero count. We have
12101          * to put this here to handle the case of sitting right
12102          * at the end of a tape file having seen the file mark,
12103          * but the tape is closed and then re-opened without
12104          * any further i/o. That is, the position information
12105          * must be updated before a close.
12106          */
12107 
12108         if (un->un_lastop == ST_OP_READ && un->un_pos.eof == ST_EOF_PENDING) {
12109                 /*
12110                  * If we're a 1/2" tape, and we get a filemark
12111                  * right on block 0, *AND* we were not in the
12112                  * first file on the tape, and we've hit logical EOM.
12113                  * We'll mark the state so that later we do the
12114                  * right thing (in st_close(), st_strategy() or
12115                  * st_ioctl()).
12116                  *
12117                  */
12118                 if ((un->un_dp->options & ST_REEL) &&
12119                     !(un->un_dp->options & ST_READ_IGNORE_EOFS) &&
12120                     un->un_pos.blkno == 0 && un->un_pos.fileno > 0) {
12121                         un->un_pos.eof = ST_EOT_PENDING;
12122                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
12123                             "eot pending\n");
12124                         un->un_pos.fileno++;
12125                         un->un_pos.blkno = 0;
12126                 } else if (BP_UCMD(bp)) {
12127                         /*
12128                          * Uscsi reads have no concept of Berkley ver System IV.
12129                          * Counts here must match raw device.
12130                          * A non-full resid implies fix block mode where an
12131                          * attempt to read X blocks resulted in less then X.
12132                          */
12133                         if (bp->b_resid != bp->b_bcount) {
12134                                 un->un_pos.eof = ST_EOF;
12135                         } else {
12136                                 /* Read over a file mark */
12137                                 un->un_pos.fileno++;
12138                                 /* logical block is counted up elsewhere */
12139                                 /* we're before the first block in next file */
12140                                 un->un_pos.blkno = 0;
12141                                 /* EOF is no longer pending */
12142                                 un->un_pos.eof = ST_NO_EOF;
12143                         }
12144                 } else if (BSD_BEHAVIOR) {
12145                         /*
12146                          * If the read of the filemark was a side effect
12147                          * of reading some blocks (i.e., data was actually
12148                          * read), then the EOF mark is pending and the
12149                          * bump into the next file awaits the next read
12150                          * operation (which will return a zero count), or
12151                          * a close or a space operation, else the bump
12152                          * into the next file occurs now.
12153                          */
12154                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
12155                             "resid=%lx, bcount=%lx\n",
12156                             bp->b_resid, bp->b_bcount);
12157 
12158                         if (bp->b_resid != bp->b_bcount) {
12159                                 un->un_pos.eof = ST_EOF;
12160                         } else {
12161                                 un->un_silent_skip = 1;
12162                                 un->un_pos.eof = ST_NO_EOF;
12163                                 un->un_pos.fileno++;
12164                                 un->un_pos.lgclblkno++;
12165                                 un->un_save_blkno = un->un_pos.blkno;
12166                                 un->un_pos.blkno = 0;
12167                         }
12168                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
12169                             "eof of file %d, eof=%d\n",
12170                             un->un_pos.fileno, un->un_pos.eof);
12171                 } else if (SVR4_BEHAVIOR) {
12172                         /*
12173                          * If the read of the filemark was a side effect
12174                          * of reading some blocks (i.e., data was actually
12175                          * read), then the next read should return 0
12176                          */
12177                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
12178                             "resid=%lx, bcount=%lx\n",
12179                             bp->b_resid, bp->b_bcount);
12180                         if (bp->b_resid == bp->b_bcount) {
12181                                 un->un_pos.eof = ST_EOF;
12182                         }
12183                         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
12184                             "eof of file=%d, eof=%d\n",
12185                             un->un_pos.fileno, un->un_pos.eof);
12186                 }
12187         }
12188 }
12189 
12190 /*
12191  * set the correct un_errno, to take corner cases into consideration
12192  */
12193 static void
12194 st_set_pe_errno(struct scsi_tape *un)
12195 {
12196         ST_FUNC(ST_DEVINFO, st_set_pe_errno);
12197 
12198         ASSERT(mutex_owned(ST_MUTEX));
12199 
12200         /* if errno is already set, don't reset it */
12201         if (un->un_errno)
12202                 return;
12203 
12204         /* here un_errno == 0 */
12205         /*
12206          * if the last transfer before flushing all the
12207          * waiting I/O's, was 0 (resid = count), then we
12208          * want to give the user an error on all the rest,
12209          * so here.  If there was a transfer, we set the
12210          * resid and counts to 0, and let it drop through,
12211          * giving a zero return.  the next I/O will then
12212          * give an error.
12213          */
12214         if (un->un_last_resid == un->un_last_count) {
12215                 switch (un->un_pos.eof) {
12216                 case ST_EOM:
12217                         un->un_errno = ENOMEM;
12218                         break;
12219                 case ST_EOT:
12220                 case ST_EOF:
12221                         un->un_errno = EIO;
12222                         break;
12223                 }
12224         } else {
12225                 /*
12226                  * we know they did not have a zero, so make
12227                  * sure they get one
12228                  */
12229                 un->un_last_resid = un->un_last_count = 0;
12230         }
12231 }
12232 
12233 
12234 /*
12235  * send in a marker pkt to terminate flushing of commands by BBA (via
12236  * flush-on-errors) property.  The HBA will always return TRAN_ACCEPT
12237  */
12238 static void
12239 st_hba_unflush(struct scsi_tape *un)
12240 {
12241         ST_FUNC(ST_DEVINFO, st_hba_unflush);
12242 
12243         ASSERT(mutex_owned(ST_MUTEX));
12244 
12245         if (!un->un_flush_on_errors)
12246                 return;
12247 
12248 #ifdef FLUSH_ON_ERRORS
12249 
12250         if (!un->un_mkr_pkt) {
12251                 un->un_mkr_pkt = scsi_init_pkt(ROUTE, NULL, (struct buf *)NULL,
12252                     NULL, 0, 0, 0, SLEEP_FUNC, NULL);
12253 
12254                 /* we slept, so it must be there */
12255                 pkt->pkt_flags |= FLAG_FLUSH_MARKER;
12256         }
12257 
12258         st_transport(un, un->un_mkr_pkt);
12259 #endif
12260 }
12261 
12262 static char *
12263 st_print_scsi_cmd(char cmd)
12264 {
12265         char tmp[64];
12266         char *cpnt;
12267 
12268         cpnt = scsi_cmd_name(cmd, scsi_cmds, tmp);
12269         /* tmp goes out of scope on return and caller sees garbage */
12270         if (cpnt == tmp) {
12271                 cpnt = "Unknown Command";
12272         }
12273         return (cpnt);
12274 }
12275 
12276 static void
12277 st_print_cdb(dev_info_t *dip, char *label, uint_t level,
12278     char *title, char *cdb)
12279 {
12280         int len = scsi_cdb_size[CDB_GROUPID(cdb[0])];
12281         char buf[256];
12282         struct scsi_tape *un;
12283         int instance = ddi_get_instance(dip);
12284 
12285         un = ddi_get_soft_state(st_state, instance);
12286 
12287         ST_FUNC(dip, st_print_cdb);
12288 
12289         /* force one line output so repeated commands are printed once */
12290         if ((st_debug & 0x180) == 0x100) {
12291                 scsi_log(dip, label, level, "node %s cmd %s\n",
12292                     st_dev_name(un->un_dev), st_print_scsi_cmd(*cdb));
12293                 return;
12294         }
12295 
12296         /* force one line output so repeated CDB's are printed once */
12297         if ((st_debug & 0x180) == 0x80) {
12298                 st_clean_print(dip, label, level, NULL, cdb, len);
12299         } else {
12300                 (void) sprintf(buf, "%s for cmd(%s)", title,
12301                     st_print_scsi_cmd(*cdb));
12302                 st_clean_print(dip, label, level, buf, cdb, len);
12303         }
12304 }
12305 
12306 static void
12307 st_clean_print(dev_info_t *dev, char *label, uint_t level,
12308     char *title, char *data, int len)
12309 {
12310         int     i;
12311         int     c;
12312         char    *format;
12313         char    buf[256];
12314         uchar_t byte;
12315 
12316         ST_FUNC(dev, st_clean_print);
12317 
12318 
12319         if (title) {
12320                 (void) sprintf(buf, "%s:\n", title);
12321                 scsi_log(dev, label, level, "%s", buf);
12322                 level = CE_CONT;
12323         }
12324 
12325         for (i = 0; i < len; ) {
12326                 buf[0] = 0;
12327                 for (c = 0; c < 8 && i < len; c++, i++) {
12328                         byte = (uchar_t)data[i];
12329                         if (byte < 0x10)
12330                                 format = "0x0%x ";
12331                         else
12332                                 format = "0x%x ";
12333                         (void) sprintf(&buf[(int)strlen(buf)], format, byte);
12334                 }
12335                 (void) sprintf(&buf[(int)strlen(buf)], "\n");
12336 
12337                 scsi_log(dev, label, level, "%s\n", buf);
12338                 level = CE_CONT;
12339         }
12340 }
12341 
12342 /*
12343  * Conditionally enabled debugging
12344  */
12345 #ifdef  STDEBUG
12346 static void
12347 st_debug_cmds(struct scsi_tape *un, int com, int count, int wait)
12348 {
12349         char tmpbuf[64];
12350 
12351         ST_FUNC(ST_DEVINFO, st_debug_cmds);
12352 
12353         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
12354             "cmd=%s count=0x%x (%d)      %ssync\n",
12355             scsi_cmd_name(com, scsi_cmds, tmpbuf),
12356             count, count,
12357             wait == ASYNC_CMD ? "a" : "");
12358 }
12359 #endif  /* STDEBUG */
12360 
12361 /*
12362  * Returns pointer to name of minor node name of device 'dev'.
12363  */
12364 static char *
12365 st_dev_name(dev_t dev)
12366 {
12367         struct scsi_tape *un;
12368         const char density[] = { 'l', 'm', 'h', 'c' };
12369         static char name[32];
12370         minor_t minor;
12371         int instance;
12372         int nprt = 0;
12373 
12374         minor = getminor(dev);
12375         instance = ((minor & 0xff80) >> 5) | (minor & 3);
12376         un = ddi_get_soft_state(st_state, instance);
12377         if (un) {
12378                 ST_FUNC(ST_DEVINFO, st_dev_name);
12379         }
12380 
12381         name[nprt] = density[(minor & MT_DENSITY_MASK) >> 3];
12382 
12383         if (minor & MT_BSD) {
12384                 name[++nprt] = 'b';
12385         }
12386 
12387         if (minor & MT_NOREWIND) {
12388                 name[++nprt] = 'n';
12389         }
12390 
12391         /* NULL terminator */
12392         name[++nprt] = 0;
12393 
12394         return (name);
12395 }
12396 
12397 /*
12398  * Soft error reporting, so far unique to each drive
12399  *
12400  * Currently supported: exabyte and DAT soft error reporting
12401  */
12402 static int
12403 st_report_exabyte_soft_errors(dev_t dev, int flag)
12404 {
12405         uchar_t *sensep;
12406         int amt;
12407         int rval = 0;
12408         char cdb[CDB_GROUP0], *c = cdb;
12409         struct uscsi_cmd *com;
12410 
12411         GET_SOFT_STATE(dev);
12412 
12413         ST_FUNC(ST_DEVINFO, st_report_exabyte_soft_errors);
12414 
12415         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
12416             "st_report_exabyte_soft_errors(dev = 0x%lx, flag = %d)\n",
12417             dev, flag);
12418 
12419         ASSERT(mutex_owned(ST_MUTEX));
12420 
12421         com = kmem_zalloc(sizeof (*com), KM_SLEEP);
12422         sensep = kmem_zalloc(TAPE_SENSE_LENGTH, KM_SLEEP);
12423 
12424         *c++ = SCMD_REQUEST_SENSE;
12425         *c++ = 0;
12426         *c++ = 0;
12427         *c++ = 0;
12428         *c++ = TAPE_SENSE_LENGTH;
12429         /*
12430          * set CLRCNT (byte 5, bit 7 which clears the error counts)
12431          */
12432         *c   = (char)0x80;
12433 
12434         com->uscsi_cdb = cdb;
12435         com->uscsi_cdblen = CDB_GROUP0;
12436         com->uscsi_bufaddr = (caddr_t)sensep;
12437         com->uscsi_buflen = TAPE_SENSE_LENGTH;
12438         com->uscsi_flags = USCSI_DIAGNOSE | USCSI_SILENT | USCSI_READ;
12439         com->uscsi_timeout = un->un_dp->non_motion_timeout;
12440 
12441         rval = st_uscsi_cmd(un, com, FKIOCTL);
12442         if (rval || com->uscsi_status) {
12443                 goto done;
12444         }
12445 
12446         /*
12447          * was there enough data?
12448          */
12449         amt = (int)TAPE_SENSE_LENGTH - com->uscsi_resid;
12450 
12451         if ((amt >= 19) && un->un_kbytes_xferred) {
12452                 uint_t count, error_rate;
12453                 uint_t rate;
12454 
12455                 if (sensep[21] & CLN) {
12456                         scsi_log(ST_DEVINFO, st_label, CE_WARN,
12457                             "Periodic head cleaning required");
12458                 }
12459                 if (un->un_kbytes_xferred < (EXABYTE_MIN_TRANSFER/ONE_K)) {
12460                         goto done;
12461                 }
12462                 /*
12463                  * check if soft error reporting needs to be done.
12464                  */
12465                 count = sensep[16] << 16 | sensep[17] << 8 | sensep[18];
12466                 count &= 0xffffff;
12467                 error_rate = (count * 100)/un->un_kbytes_xferred;
12468 
12469 #ifdef  STDEBUG
12470                 if (st_soft_error_report_debug) {
12471                         scsi_log(ST_DEVINFO, st_label, CE_NOTE,
12472                             "Exabyte Soft Error Report:\n");
12473                         scsi_log(ST_DEVINFO, st_label, CE_CONT,
12474                             "read/write error counter: %d\n", count);
12475                         scsi_log(ST_DEVINFO, st_label, CE_CONT,
12476                             "number of bytes transferred: %dK\n",
12477                             un->un_kbytes_xferred);
12478                         scsi_log(ST_DEVINFO, st_label, CE_CONT,
12479                             "error_rate: %d%%\n", error_rate);
12480 
12481                         if (amt >= 22) {
12482                                 scsi_log(ST_DEVINFO, st_label, CE_CONT,
12483                                     "unit sense: 0x%b 0x%b 0x%b\n",
12484                                     sensep[19], SENSE_19_BITS,
12485                                     sensep[20], SENSE_20_BITS,
12486                                     sensep[21], SENSE_21_BITS);
12487                         }
12488                         if (amt >= 27) {
12489                                 scsi_log(ST_DEVINFO, st_label, CE_CONT,
12490                                     "tracking retry counter: %d\n",
12491                                     sensep[26]);
12492                                 scsi_log(ST_DEVINFO, st_label, CE_CONT,
12493                                     "read/write retry counter: %d\n",
12494                                     sensep[27]);
12495                         }
12496                 }
12497 #endif
12498 
12499                 if (flag & FWRITE) {
12500                         rate = EXABYTE_WRITE_ERROR_THRESHOLD;
12501                 } else {
12502                         rate = EXABYTE_READ_ERROR_THRESHOLD;
12503                 }
12504                 if (error_rate >= rate) {
12505                         scsi_log(ST_DEVINFO, st_label, CE_WARN,
12506                             "Soft error rate (%d%%) during %s was too high",
12507                             error_rate,
12508                             ((flag & FWRITE) ? wrg_str : rdg_str));
12509                         scsi_log(ST_DEVINFO, st_label, CE_CONT,
12510                             "Please, replace tape cartridge\n");
12511                 }
12512         }
12513 
12514 done:
12515         kmem_free(com, sizeof (*com));
12516         kmem_free(sensep, TAPE_SENSE_LENGTH);
12517 
12518         if (rval != 0) {
12519                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
12520                     "exabyte soft error reporting failed\n");
12521         }
12522         return (rval);
12523 }
12524 
12525 /*
12526  * this is very specific to Archive 4mm dat
12527  */
12528 #define ONE_GIG (ONE_K * ONE_K * ONE_K)
12529 
12530 static int
12531 st_report_dat_soft_errors(dev_t dev, int flag)
12532 {
12533         uchar_t *sensep;
12534         int amt, i;
12535         int rval = 0;
12536         char cdb[CDB_GROUP1], *c = cdb;
12537         struct uscsi_cmd *com;
12538         struct scsi_arq_status status;
12539 
12540         GET_SOFT_STATE(dev);
12541 
12542         ST_FUNC(ST_DEVINFO, st_report_dat_soft_errors);
12543 
12544         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
12545             "st_report_dat_soft_errors(dev = 0x%lx, flag = %d)\n", dev, flag);
12546 
12547         ASSERT(mutex_owned(ST_MUTEX));
12548 
12549         com = kmem_zalloc(sizeof (*com), KM_SLEEP);
12550         sensep = kmem_zalloc(LOG_SENSE_LENGTH, KM_SLEEP);
12551 
12552         *c++ = SCMD_LOG_SENSE_G1;
12553         *c++ = 0;
12554         *c++ = (flag & FWRITE) ? 0x42 : 0x43;
12555         *c++ = 0;
12556         *c++ = 0;
12557         *c++ = 0;
12558         *c++ = 2;
12559         *c++ = 0;
12560         *c++ = (char)LOG_SENSE_LENGTH;
12561         *c   = 0;
12562         com->uscsi_cdb    = cdb;
12563         com->uscsi_cdblen  = CDB_GROUP1;
12564         com->uscsi_bufaddr = (caddr_t)sensep;
12565         com->uscsi_buflen  = LOG_SENSE_LENGTH;
12566         com->uscsi_rqlen = sizeof (status);
12567         com->uscsi_rqbuf = (caddr_t)&status;
12568         com->uscsi_flags   = USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
12569         com->uscsi_timeout = un->un_dp->non_motion_timeout;
12570         rval = st_uscsi_cmd(un, com, FKIOCTL);
12571         if (rval) {
12572                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
12573                     "DAT soft error reporting failed\n");
12574         }
12575         if (rval || com->uscsi_status) {
12576                 goto done;
12577         }
12578 
12579         /*
12580          * was there enough data?
12581          */
12582         amt = (int)LOG_SENSE_LENGTH - com->uscsi_resid;
12583 
12584         if ((amt >= MIN_LOG_SENSE_LENGTH) && un->un_kbytes_xferred) {
12585                 int total, retries, param_code;
12586 
12587                 total = -1;
12588                 retries = -1;
12589                 amt = sensep[3] + 4;
12590 
12591 
12592 #ifdef STDEBUG
12593                 if (st_soft_error_report_debug) {
12594                         (void) printf("logsense:");
12595                         for (i = 0; i < MIN_LOG_SENSE_LENGTH; i++) {
12596                                 if (i % 16 == 0) {
12597                                         (void) printf("\t\n");
12598                                 }
12599                                 (void) printf(" %x", sensep[i]);
12600                         }
12601                         (void) printf("\n");
12602                 }
12603 #endif
12604 
12605                 /*
12606                  * parse the param_codes
12607                  */
12608                 if (sensep[0] == 2 || sensep[0] == 3) {
12609                         for (i = 4; i < amt; i++) {
12610                                 param_code = (sensep[i++] << 8);
12611                                 param_code += sensep[i++];
12612                                 i++; /* skip control byte */
12613                                 if (param_code == 5) {
12614                                         if (sensep[i++] == 4) {
12615                                                 total = (sensep[i++] << 24);
12616                                                 total += (sensep[i++] << 16);
12617                                                 total += (sensep[i++] << 8);
12618                                                 total += sensep[i];
12619                                         }
12620                                 } else if (param_code == 0x8007) {
12621                                         if (sensep[i++] == 2) {
12622                                                 retries = sensep[i++] << 8;
12623                                                 retries += sensep[i];
12624                                         }
12625                                 } else {
12626                                         i += sensep[i];
12627                                 }
12628                         }
12629                 }
12630 
12631                 /*
12632                  * if the log sense returned valid numbers then determine
12633                  * the read and write error thresholds based on the amount of
12634                  * data transferred
12635                  */
12636 
12637                 if (total > 0 && retries > 0) {
12638                         short normal_retries = 0;
12639                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
12640                             "total xferred (%s) =%x, retries=%x\n",
12641                             ((flag & FWRITE) ? wrg_str : rdg_str),
12642                             total, retries);
12643 
12644                         if (flag & FWRITE) {
12645                                 if (total <=
12646                                     WRITE_SOFT_ERROR_WARNING_THRESHOLD) {
12647                                         normal_retries =
12648                                             DAT_SMALL_WRITE_ERROR_THRESHOLD;
12649                                 } else {
12650                                         normal_retries =
12651                                             DAT_LARGE_WRITE_ERROR_THRESHOLD;
12652                                 }
12653                         } else {
12654                                 if (total <=
12655                                     READ_SOFT_ERROR_WARNING_THRESHOLD) {
12656                                         normal_retries =
12657                                             DAT_SMALL_READ_ERROR_THRESHOLD;
12658                                 } else {
12659                                         normal_retries =
12660                                             DAT_LARGE_READ_ERROR_THRESHOLD;
12661                                 }
12662                         }
12663 
12664                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
12665                         "normal retries=%d\n", normal_retries);
12666 
12667                         if (retries >= normal_retries) {
12668                                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
12669                                     "Soft error rate (retries = %d) during "
12670                                     "%s was too high",  retries,
12671                                     ((flag & FWRITE) ? wrg_str : rdg_str));
12672                                 scsi_log(ST_DEVINFO, st_label, CE_CONT,
12673                                     "Periodic head cleaning required "
12674                                     "and/or replace tape cartridge\n");
12675                         }
12676 
12677                 } else if (total == -1 || retries == -1) {
12678                         scsi_log(ST_DEVINFO, st_label, CE_WARN,
12679                             "log sense parameter code does not make sense\n");
12680                 }
12681         }
12682 
12683         /*
12684          * reset all values
12685          */
12686         c = cdb;
12687         *c++ = SCMD_LOG_SELECT_G1;
12688         *c++ = 2;       /* this resets all values */
12689         *c++ = (char)0xc0;
12690         *c++ = 0;
12691         *c++ = 0;
12692         *c++ = 0;
12693         *c++ = 0;
12694         *c++ = 0;
12695         *c++ = 0;
12696         *c   = 0;
12697         com->uscsi_bufaddr = NULL;
12698         com->uscsi_buflen  = 0;
12699         com->uscsi_flags   = USCSI_DIAGNOSE | USCSI_SILENT;
12700         rval = st_uscsi_cmd(un, com, FKIOCTL);
12701         if (rval) {
12702                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
12703                     "DAT soft error reset failed\n");
12704         }
12705 done:
12706         kmem_free(com, sizeof (*com));
12707         kmem_free(sensep, LOG_SENSE_LENGTH);
12708         return (rval);
12709 }
12710 
12711 static int
12712 st_report_soft_errors(dev_t dev, int flag)
12713 {
12714         GET_SOFT_STATE(dev);
12715 
12716         ST_FUNC(ST_DEVINFO, st_report_soft_errors);
12717 
12718         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
12719             "st_report_soft_errors(dev = 0x%lx, flag = %d)\n", dev, flag);
12720 
12721         ASSERT(mutex_owned(ST_MUTEX));
12722 
12723         switch (un->un_dp->type) {
12724         case ST_TYPE_EXB8500:
12725         case ST_TYPE_EXABYTE:
12726                 return (st_report_exabyte_soft_errors(dev, flag));
12727                 /*NOTREACHED*/
12728         case ST_TYPE_PYTHON:
12729                 return (st_report_dat_soft_errors(dev, flag));
12730                 /*NOTREACHED*/
12731         default:
12732                 un->un_dp->options &= ~ST_SOFT_ERROR_REPORTING;
12733                 return (-1);
12734         }
12735 }
12736 
12737 /*
12738  * persistent error routines
12739  */
12740 
12741 /*
12742  * enable persistent errors, and set the throttle appropriately, checking
12743  * for flush-on-errors capability
12744  */
12745 static void
12746 st_turn_pe_on(struct scsi_tape *un)
12747 {
12748         ST_FUNC(ST_DEVINFO, st_turn_pe_on);
12749 
12750         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_pe_on\n");
12751         ASSERT(mutex_owned(ST_MUTEX));
12752 
12753         un->un_persistence = 1;
12754 
12755         /*
12756          * only use flush-on-errors if auto-request-sense and untagged-qing are
12757          * enabled.  This will simplify the error handling for request senses
12758          */
12759 
12760         if (un->un_arq_enabled && un->un_untagged_qing) {
12761                 uchar_t f_o_e;
12762 
12763                 mutex_exit(ST_MUTEX);
12764                 f_o_e = (scsi_ifsetcap(ROUTE, "flush-on-errors", 1, 1) == 1) ?
12765                     1 : 0;
12766                 mutex_enter(ST_MUTEX);
12767 
12768                 un->un_flush_on_errors = f_o_e;
12769         } else {
12770                 un->un_flush_on_errors = 0;
12771         }
12772 
12773         if (un->un_flush_on_errors)
12774                 un->un_max_throttle = (uchar_t)st_max_throttle;
12775         else
12776                 un->un_max_throttle = 1;
12777 
12778         if (un->un_dp->options & ST_RETRY_ON_RECOVERED_DEFERRED_ERROR)
12779                 un->un_max_throttle = 1;
12780 
12781         /* this will send a marker pkt */
12782         st_clear_pe(un);
12783 }
12784 
12785 /*
12786  * This turns persistent errors permanently off
12787  */
12788 static void
12789 st_turn_pe_off(struct scsi_tape *un)
12790 {
12791         ST_FUNC(ST_DEVINFO, st_turn_pe_off);
12792         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_pe_off\n");
12793         ASSERT(mutex_owned(ST_MUTEX));
12794 
12795         /* turn it off for good */
12796         un->un_persistence = 0;
12797 
12798         /* this will send a marker pkt */
12799         st_clear_pe(un);
12800 
12801         /* turn off flush on error capability, if enabled */
12802         if (un->un_flush_on_errors) {
12803                 mutex_exit(ST_MUTEX);
12804                 (void) scsi_ifsetcap(ROUTE, "flush-on-errors", 0, 1);
12805                 mutex_enter(ST_MUTEX);
12806         }
12807 
12808 
12809         un->un_flush_on_errors = 0;
12810 }
12811 
12812 /*
12813  * This clear persistent errors, allowing more commands through, and also
12814  * sending a marker packet.
12815  */
12816 static void
12817 st_clear_pe(struct scsi_tape *un)
12818 {
12819         ST_FUNC(ST_DEVINFO, st_clear_pe);
12820         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_pe_clear\n");
12821         ASSERT(mutex_owned(ST_MUTEX));
12822 
12823         un->un_persist_errors = 0;
12824         un->un_throttle = un->un_last_throttle = 1;
12825         un->un_errno = 0;
12826         st_hba_unflush(un);
12827 }
12828 
12829 /*
12830  * This will flag persistent errors, shutting everything down, if the
12831  * application had enabled persistent errors via MTIOCPERSISTENT
12832  */
12833 static void
12834 st_set_pe_flag(struct scsi_tape *un)
12835 {
12836         ST_FUNC(ST_DEVINFO, st_set_pe_flag);
12837         ASSERT(mutex_owned(ST_MUTEX));
12838 
12839         if (un->un_persistence) {
12840                 ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_pe_flag\n");
12841                 un->un_persist_errors = 1;
12842                 un->un_throttle = un->un_last_throttle = 0;
12843                 cv_broadcast(&un->un_sbuf_cv);
12844         }
12845 }
12846 
12847 static int
12848 st_do_reserve(struct scsi_tape *un)
12849 {
12850         int rval;
12851         int was_lost = un->un_rsvd_status & ST_LOST_RESERVE;
12852 
12853         ST_FUNC(ST_DEVINFO, st_do_reserve);
12854 
12855         /*
12856          * Issue a Throw-Away reserve command to clear the
12857          * check condition.
12858          * If the current behaviour of reserve/release is to
12859          * hold reservation across opens , and if a Bus reset
12860          * has been issued between opens then this command
12861          * would set the ST_LOST_RESERVE flags in rsvd_status.
12862          * In this case return an EACCES so that user knows that
12863          * reservation has been lost in between opens.
12864          * If this error is not returned and we continue with
12865          * successful open , then user may think position of the
12866          * tape is still the same but inreality we would rewind the
12867          * tape and continue from BOT.
12868          */
12869         rval = st_reserve_release(un, ST_RESERVE, st_uscsi_cmd);
12870         if (rval) {
12871                 if ((un->un_rsvd_status & ST_LOST_RESERVE_BETWEEN_OPENS) ==
12872                     ST_LOST_RESERVE_BETWEEN_OPENS) {
12873                         un->un_rsvd_status &= ~(ST_LOST_RESERVE | ST_RESERVE);
12874                         un->un_errno = EACCES;
12875                         return (EACCES);
12876                 }
12877                 rval = st_reserve_release(un, ST_RESERVE, st_uscsi_cmd);
12878         }
12879         if (rval == 0) {
12880                 un->un_rsvd_status |= ST_INIT_RESERVE;
12881         }
12882         if (was_lost) {
12883                 un->un_running.pmode = invalid;
12884         }
12885 
12886         return (rval);
12887 }
12888 
12889 static int
12890 st_check_cdb_for_need_to_reserve(struct scsi_tape *un, uchar_t *cdb)
12891 {
12892         int rval;
12893         cmd_attribute const *attrib;
12894 
12895         ST_FUNC(ST_DEVINFO, st_check_cdb_for_need_to_reserve);
12896 
12897         /*
12898          * If already reserved no need to do it again.
12899          * Also if Reserve and Release are disabled Just return.
12900          */
12901         if ((un->un_rsvd_status & (ST_APPLICATION_RESERVATIONS)) ||
12902             ((un->un_rsvd_status & (ST_RESERVE | ST_LOST_RESERVE)) ==
12903             ST_RESERVE) || (un->un_dp->options & ST_NO_RESERVE_RELEASE)) {
12904                 ST_DEBUG6(ST_DEVINFO, st_label, CE_NOTE,
12905                     "st_check_cdb_for_need_to_reserve() reserve unneeded %s",
12906                     st_print_scsi_cmd((uchar_t)cdb[0]));
12907                 return (0);
12908         }
12909 
12910         /* See if command is on the list */
12911         attrib = st_lookup_cmd_attribute(cdb[0]);
12912 
12913         if (attrib == NULL) {
12914                 rval = 1; /* Not found, when in doubt reserve */
12915         } else if ((attrib->requires_reserve) != 0) {
12916                 rval = 1;
12917         } else if ((attrib->reserve_byte) != 0) {
12918                 /*
12919                  * cmd is on list.
12920                  * if byte is zero always allowed.
12921                  */
12922                 rval = 1;
12923         } else if (((cdb[attrib->reserve_byte]) &
12924             (attrib->reserve_mask)) != 0) {
12925                 rval = 1;
12926         } else {
12927                 rval = 0;
12928         }
12929 
12930         if (rval) {
12931                 ST_DEBUG6(ST_DEVINFO, st_label, CE_NOTE,
12932                     "Command %s requires reservation",
12933                     st_print_scsi_cmd(cdb[0]));
12934 
12935                 rval = st_do_reserve(un);
12936         }
12937 
12938         return (rval);
12939 }
12940 
12941 static int
12942 st_check_cmd_for_need_to_reserve(struct scsi_tape *un, uchar_t cmd, int cnt)
12943 {
12944         int rval;
12945         cmd_attribute const *attrib;
12946 
12947         ST_FUNC(ST_DEVINFO, st_check_cmd_for_need_to_reserve);
12948 
12949         /*
12950          * Do not reserve when already reserved, when not supported or when
12951          * auto-rewinding on device closure.
12952          */
12953         if ((un->un_rsvd_status & (ST_APPLICATION_RESERVATIONS)) ||
12954             ((un->un_rsvd_status & (ST_RESERVE | ST_LOST_RESERVE)) ==
12955             ST_RESERVE) || (un->un_dp->options & ST_NO_RESERVE_RELEASE) ||
12956             ((un->un_state == ST_STATE_CLOSING) && (cmd == SCMD_REWIND))) {
12957                 ST_DEBUG6(ST_DEVINFO, st_label, CE_NOTE,
12958                     "st_check_cmd_for_need_to_reserve() reserve unneeded %s",
12959                     st_print_scsi_cmd(cmd));
12960                 return (0);
12961         }
12962 
12963         /* search for this command on the list */
12964         attrib = st_lookup_cmd_attribute(cmd);
12965 
12966         if (attrib == NULL) {
12967                 rval = 1; /* Not found, when in doubt reserve */
12968         } else if ((attrib->requires_reserve) != 0) {
12969                 rval = 1;
12970         } else if ((attrib->reserve_byte) != 0) {
12971                 /*
12972                  * cmd is on list.
12973                  * if byte is zero always allowed.
12974                  */
12975                 rval = 1;
12976         } else if (((attrib->reserve_mask) & cnt) != 0) {
12977                 rval = 1;
12978         } else {
12979                 rval = 0;
12980         }
12981 
12982         if (rval) {
12983                 ST_DEBUG6(ST_DEVINFO, st_label, CE_NOTE,
12984                     "Cmd %s requires reservation", st_print_scsi_cmd(cmd));
12985 
12986                 rval = st_do_reserve(un);
12987         }
12988 
12989         return (rval);
12990 }
12991 
12992 static int
12993 st_reserve_release(struct scsi_tape *un, int cmd, ubufunc_t ubf)
12994 {
12995         struct uscsi_cmd        uscsi_cmd;
12996         int                     rval;
12997         char                    cdb[CDB_GROUP0];
12998         struct scsi_arq_status  stat;
12999 
13000 
13001 
13002         ST_FUNC(ST_DEVINFO, st_reserve_release);
13003 
13004         ASSERT(mutex_owned(ST_MUTEX));
13005 
13006         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
13007             "st_reserve_release: %s \n",
13008             (cmd == ST_RELEASE)?  "Releasing":"Reserving");
13009 
13010         bzero(&cdb, CDB_GROUP0);
13011         if (cmd == ST_RELEASE) {
13012                 cdb[0] = SCMD_RELEASE;
13013         } else {
13014                 cdb[0] = SCMD_RESERVE;
13015         }
13016         bzero(&uscsi_cmd, sizeof (struct uscsi_cmd));
13017         uscsi_cmd.uscsi_flags = USCSI_WRITE | USCSI_RQENABLE;
13018         uscsi_cmd.uscsi_cdb = cdb;
13019         uscsi_cmd.uscsi_cdblen = CDB_GROUP0;
13020         uscsi_cmd.uscsi_timeout = un->un_dp->non_motion_timeout;
13021         uscsi_cmd.uscsi_rqbuf = (caddr_t)&stat;
13022         uscsi_cmd.uscsi_rqlen = sizeof (stat);
13023 
13024         rval = ubf(un, &uscsi_cmd, FKIOCTL);
13025 
13026         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
13027             "st_reserve_release: rval(1)=%d\n", rval);
13028 
13029         if (rval) {
13030                 if (uscsi_cmd.uscsi_status == STATUS_RESERVATION_CONFLICT) {
13031                         rval = EACCES;
13032                 }
13033                 /*
13034                  * dynamically turn off reserve/release support
13035                  * in case of drives which do not support
13036                  * reserve/release command(ATAPI drives).
13037                  */
13038                 if (un->un_status == KEY_ILLEGAL_REQUEST) {
13039                         if ((un->un_dp->options & ST_NO_RESERVE_RELEASE) == 0) {
13040                                 un->un_dp->options |= ST_NO_RESERVE_RELEASE;
13041                                 ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
13042                                     "Tape unit does not support "
13043                                     "reserve/release \n");
13044                         }
13045                         rval = 0;
13046                 }
13047         }
13048         return (rval);
13049 }
13050 
13051 static int
13052 st_take_ownership(struct scsi_tape *un, ubufunc_t ubf)
13053 {
13054         int rval;
13055 
13056         ST_FUNC(ST_DEVINFO, st_take_ownership);
13057 
13058         ASSERT(mutex_owned(ST_MUTEX));
13059 
13060         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
13061             "st_take_ownership: Entering ...\n");
13062 
13063 
13064         rval = st_reserve_release(un, ST_RESERVE, ubf);
13065         /*
13066          * XXX -> Should reset be done only if we get EACCES.
13067          * .
13068          */
13069         if (rval) {
13070                 if (st_reset(un, RESET_LUN) == 0) {
13071                         return (EIO);
13072                 }
13073                 un->un_rsvd_status &=
13074                     ~(ST_LOST_RESERVE | ST_RESERVATION_CONFLICT);
13075 
13076                 mutex_exit(ST_MUTEX);
13077                 delay(drv_usectohz(ST_RESERVATION_DELAY));
13078                 mutex_enter(ST_MUTEX);
13079                 /*
13080                  * remove the check condition.
13081                  */
13082                 (void) st_reserve_release(un, ST_RESERVE, ubf);
13083                 rval = st_reserve_release(un, ST_RESERVE, ubf);
13084                 if (rval != 0) {
13085                         if ((st_reserve_release(un, ST_RESERVE, ubf))
13086                             != 0) {
13087                                 rval = (un->un_rsvd_status &
13088                                     ST_RESERVATION_CONFLICT) ? EACCES : EIO;
13089                                 return (rval);
13090                         }
13091                 }
13092                 /*
13093                  * Set tape state to ST_STATE_OFFLINE , in case if
13094                  * the user wants to continue and start using
13095                  * the tape.
13096                  */
13097                 un->un_state = ST_STATE_OFFLINE;
13098                 un->un_rsvd_status |= ST_INIT_RESERVE;
13099         }
13100         return (rval);
13101 }
13102 
13103 static int
13104 st_create_errstats(struct scsi_tape *un, int instance)
13105 {
13106         char    kstatname[KSTAT_STRLEN];
13107 
13108         ST_FUNC(ST_DEVINFO, st_create_errstats);
13109 
13110         /*
13111          * Create device error kstats
13112          */
13113 
13114         if (un->un_errstats == (kstat_t *)0) {
13115                 (void) sprintf(kstatname, "st%d,err", instance);
13116                 un->un_errstats = kstat_create("sterr", instance, kstatname,
13117                     "device_error", KSTAT_TYPE_NAMED,
13118                     sizeof (struct st_errstats) / sizeof (kstat_named_t),
13119                     KSTAT_FLAG_PERSISTENT);
13120 
13121                 if (un->un_errstats) {
13122                         struct st_errstats      *stp;
13123 
13124                         stp = (struct st_errstats *)un->un_errstats->ks_data;
13125                         kstat_named_init(&stp->st_softerrs, "Soft Errors",
13126                             KSTAT_DATA_ULONG);
13127                         kstat_named_init(&stp->st_harderrs, "Hard Errors",
13128                             KSTAT_DATA_ULONG);
13129                         kstat_named_init(&stp->st_transerrs, "Transport Errors",
13130                             KSTAT_DATA_ULONG);
13131                         kstat_named_init(&stp->st_vid, "Vendor",
13132                             KSTAT_DATA_CHAR);
13133                         kstat_named_init(&stp->st_pid, "Product",
13134                             KSTAT_DATA_CHAR);
13135                         kstat_named_init(&stp->st_revision, "Revision",
13136                             KSTAT_DATA_CHAR);
13137                         kstat_named_init(&stp->st_serial, "Serial No",
13138                             KSTAT_DATA_CHAR);
13139                         un->un_errstats->ks_private = un;
13140                         un->un_errstats->ks_update = nulldev;
13141                         kstat_install(un->un_errstats);
13142                         /*
13143                          * Fill in the static data
13144                          */
13145                         (void) strncpy(&stp->st_vid.value.c[0],
13146                             ST_INQUIRY->inq_vid, 8);
13147                         /*
13148                          * XXX:  Emulex MT-02 (and emulators) predates
13149                          *       SCSI-1 and has no vid & pid inquiry data.
13150                          */
13151                         if (ST_INQUIRY->inq_len != 0) {
13152                                 (void) strncpy(&stp->st_pid.value.c[0],
13153                                     ST_INQUIRY->inq_pid, 16);
13154                                 (void) strncpy(&stp->st_revision.value.c[0],
13155                                     ST_INQUIRY->inq_revision, 4);
13156                         }
13157                 }
13158         }
13159         return (0);
13160 }
13161 
13162 static int
13163 st_validate_tapemarks(struct scsi_tape *un, ubufunc_t ubf, tapepos_t *pos)
13164 {
13165         int rval;
13166         bufunc_t bf = (ubf == st_uscsi_rcmd) ? st_rcmd : st_cmd;
13167 
13168         ST_FUNC(ST_DEVINFO, st_validate_tapemarks);
13169 
13170         ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
13171         ASSERT(mutex_owned(ST_MUTEX));
13172 
13173         /* Can't restore an invalid position */
13174         if (pos->pmode == invalid) {
13175                 return (4);
13176         }
13177 
13178         /*
13179          * Assumtions:
13180          *      If a position was read and is in logical position mode.
13181          *      If a drive supports read position it supports locate.
13182          *      If the read position type is not NO_POS. even though
13183          *         a read position make not have been attemped yet.
13184          *
13185          *      The drive can locate to the position.
13186          */
13187         if (pos->pmode == logical || un->un_read_pos_type != NO_POS) {
13188                 /*
13189                  * If position mode is logical or legacy mode try
13190                  * to locate there as it is faster.
13191                  * If it fails try the old way.
13192                  */
13193                 scsi_log(ST_DEVINFO, st_label, CE_NOTE,
13194                     "Restoring tape position to lgclblkbo=0x%"PRIx64"....",
13195                     pos->lgclblkno);
13196 
13197                 if (st_logical_block_locate(un, st_uscsi_cmd, &un->un_pos,
13198                     pos->lgclblkno, pos->partition) == 0) {
13199                         /* Assume we are there copy rest of position back */
13200                         if (un->un_pos.lgclblkno == pos->lgclblkno) {
13201                                 COPY_POS(&un->un_pos, pos);
13202                         }
13203                         return (0);
13204                 }
13205 
13206                 /*
13207                  * If logical block locate failed to restore a logical
13208                  * position, can't recover.
13209                  */
13210                 if (pos->pmode == logical) {
13211                         return (-1);
13212                 }
13213         }
13214 
13215 
13216         scsi_log(ST_DEVINFO, st_label, CE_NOTE,
13217             "Restoring tape position at fileno=%x, blkno=%x....",
13218             pos->fileno, pos->blkno);
13219 
13220         /*
13221          * Rewind ? Oh yeah, Fidelity has got the STK F/W changed
13222          * so as not to rewind tape on RESETS: Gee, Has life ever
13223          * been simple in tape land ?
13224          */
13225         rval = bf(un, SCMD_REWIND, 0, SYNC_CMD);
13226         if (rval) {
13227                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
13228                     "Failed to restore the last file and block position: In"
13229                     " this state, Tape will be loaded at BOT during next open");
13230                 un->un_pos.pmode = invalid;
13231                 return (rval);
13232         }
13233 
13234         /* If the position was as the result of back space file */
13235         if (pos->blkno > (INF / 2)) {
13236                 /* Go one extra file forward */
13237                 pos->fileno++;
13238                 /* Figure how many blocks to back into the previous file */
13239                 pos->blkno = -(INF - pos->blkno);
13240         }
13241 
13242         /* Go to requested fileno */
13243         if (pos->fileno) {
13244                 rval = st_cmd(un, SCMD_SPACE, Fmk(pos->fileno), SYNC_CMD);
13245                 if (rval) {
13246                         scsi_log(ST_DEVINFO, st_label, CE_WARN,
13247                             "Failed to restore the last file position: In this "
13248                             " state, Tape will be loaded at BOT during next"
13249                             " open %d", __LINE__);
13250                         un->un_pos.pmode = invalid;
13251                         pos->pmode = invalid;
13252                         return (rval);
13253                 }
13254         }
13255 
13256         /*
13257          * If backing into a file we already did an extra file forward.
13258          * Now we have to back over the filemark to get to the end of
13259          * the previous file. The blkno has been ajusted to a negative
13260          * value so we will get to the expected location.
13261          */
13262         if (pos->blkno) {
13263                 rval = bf(un, SCMD_SPACE, Fmk(-1), SYNC_CMD);
13264                 if (rval) {
13265                         scsi_log(ST_DEVINFO, st_label, CE_WARN,
13266                             "Failed to restore the last file position: In this "
13267                             " state, Tape will be loaded at BOT during next"
13268                             " open %d", __LINE__);
13269                         un->un_pos.pmode = invalid;
13270                         pos->pmode = invalid;
13271                         return (rval);
13272                 }
13273         }
13274 
13275         /*
13276          * The position mode, block and fileno should be correct,
13277          * This updates eof and logical position information.
13278          */
13279         un->un_pos.eof = pos->eof;
13280         un->un_pos.lgclblkno = pos->lgclblkno;
13281 
13282         return (0);
13283 }
13284 
13285 /*
13286  * check sense key, ASC, ASCQ in order to determine if the tape needs
13287  * to be ejected
13288  */
13289 
13290 static int
13291 st_check_asc_ascq(struct scsi_tape *un)
13292 {
13293         struct scsi_extended_sense *sensep = ST_RQSENSE;
13294         struct tape_failure_code   *code;
13295 
13296         ST_FUNC(ST_DEVINFO, st_check_asc_ascq);
13297 
13298         for (code = st_tape_failure_code; code->key != 0xff; code++) {
13299                 if ((code->key  == sensep->es_key) &&
13300                     (code->add_code  == sensep->es_add_code) &&
13301                     (code->qual_code == sensep->es_qual_code))
13302                         return (1);
13303         }
13304         return (0);
13305 }
13306 
13307 /*
13308  * st_logpage_supported() sends a Log Sense command with
13309  * page code = 0 = Supported Log Pages Page to the device,
13310  * to see whether the page 'page' is supported.
13311  * Return values are:
13312  * -1 if the Log Sense command fails
13313  * 0 if page is not supported
13314  * 1 if page is supported
13315  */
13316 
13317 static int
13318 st_logpage_supported(struct scsi_tape *un, uchar_t page)
13319 {
13320         uchar_t *sp, *sensep;
13321         unsigned length;
13322         struct uscsi_cmd *com;
13323         struct scsi_arq_status status;
13324         int rval;
13325         char cdb[CDB_GROUP1] = {
13326                 SCMD_LOG_SENSE_G1,
13327                 0,
13328                 SUPPORTED_LOG_PAGES_PAGE,
13329                 0,
13330                 0,
13331                 0,
13332                 0,
13333                 0,
13334                 (char)LOG_SENSE_LENGTH,
13335                 0
13336         };
13337 
13338         ST_FUNC(ST_DEVINFO, st_logpage_supported);
13339 
13340         ASSERT(mutex_owned(ST_MUTEX));
13341 
13342         com = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
13343         sensep = kmem_zalloc(LOG_SENSE_LENGTH, KM_SLEEP);
13344 
13345         com->uscsi_cdb = cdb;
13346         com->uscsi_cdblen = CDB_GROUP1;
13347         com->uscsi_bufaddr = (caddr_t)sensep;
13348         com->uscsi_buflen = LOG_SENSE_LENGTH;
13349         com->uscsi_rqlen = sizeof (status);
13350         com->uscsi_rqbuf = (caddr_t)&status;
13351         com->uscsi_flags =
13352             USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
13353         com->uscsi_timeout = un->un_dp->non_motion_timeout;
13354         rval = st_uscsi_cmd(un, com, FKIOCTL);
13355         if (rval || com->uscsi_status) {
13356                 /* uscsi-command failed */
13357                 rval = -1;
13358         } else {
13359 
13360                 sp = sensep + 3;
13361 
13362                 for (length = *sp++; length > 0; length--, sp++) {
13363 
13364                         if (*sp == page) {
13365                                 rval = 1;
13366                                 break;
13367                         }
13368                 }
13369         }
13370         kmem_free(com, sizeof (struct uscsi_cmd));
13371         kmem_free(sensep, LOG_SENSE_LENGTH);
13372         return (rval);
13373 }
13374 
13375 
13376 /*
13377  * st_check_clean_bit() gets the status of the tape's cleaning bit.
13378  *
13379  * If the device does support the TapeAlert log page, then the cleaning bit
13380  * information will be read from this page. Otherwise we will see if one of
13381  * ST_CLN_TYPE_1, ST_CLN_TYPE_2 or ST_CLN_TYPE_3 is set in the properties of
13382  * the device, which means, that we can get the cleaning bit information via
13383  * a RequestSense command.
13384  * If both methods of getting cleaning bit information are not supported
13385  * st_check_clean_bit() will return with 0. Otherwise st_check_clean_bit()
13386  * returns with
13387  * - MTF_TAPE_CLN_SUPPORTED if cleaning bit is not set or
13388  * - MTF_TAPE_CLN_SUPPORTED | MTF_TAPE_HEAD_DIRTY if cleaning bit is set.
13389  * If the call to st_uscsi_cmd() to do the Log Sense or the Request Sense
13390  * command fails, or if the amount of Request Sense data is not enough, then
13391  *  st_check_clean_bit() returns with -1.
13392  */
13393 
13394 static int
13395 st_check_clean_bit(struct scsi_tape *un)
13396 {
13397         int rval = 0;
13398 
13399         ST_FUNC(ST_DEVINFO, st_check_clean_bit);
13400 
13401         ASSERT(mutex_owned(ST_MUTEX));
13402 
13403         if (un->un_HeadClean & TAPE_ALERT_NOT_SUPPORTED) {
13404                 return (rval);
13405         }
13406 
13407         if (un->un_HeadClean == TAPE_ALERT_SUPPORT_UNKNOWN) {
13408 
13409                 rval = st_logpage_supported(un, TAPE_SEQUENTIAL_PAGE);
13410                 if (rval == -1) {
13411                         return (0);
13412                 }
13413                 if (rval == 1) {
13414 
13415                         un->un_HeadClean |= TAPE_SEQUENTIAL_SUPPORTED;
13416                 }
13417 
13418                 rval = st_logpage_supported(un, TAPE_ALERT_PAGE);
13419                 if (rval == -1) {
13420                         return (0);
13421                 }
13422                 if (rval == 1) {
13423 
13424                         un->un_HeadClean |= TAPE_ALERT_SUPPORTED;
13425                 }
13426 
13427                 if (un->un_HeadClean == TAPE_ALERT_SUPPORT_UNKNOWN) {
13428 
13429                         un->un_HeadClean = TAPE_ALERT_NOT_SUPPORTED;
13430                 }
13431         }
13432 
13433         rval = 0;
13434 
13435         if (un->un_HeadClean & TAPE_SEQUENTIAL_SUPPORTED) {
13436 
13437                 rval = st_check_sequential_clean_bit(un);
13438                 if (rval == -1) {
13439                         return (0);
13440                 }
13441         }
13442 
13443         if ((rval == 0) && (un->un_HeadClean & TAPE_ALERT_SUPPORTED)) {
13444 
13445                 rval = st_check_alert_flags(un);
13446                 if (rval == -1) {
13447                         return (0);
13448                 }
13449         }
13450 
13451         if ((rval == 0) && (un->un_dp->options & ST_CLN_MASK)) {
13452 
13453                 rval = st_check_sense_clean_bit(un);
13454                 if (rval == -1) {
13455                         return (0);
13456                 }
13457         }
13458 
13459         /*
13460          * If found a supported means to check need to clean.
13461          */
13462         if (rval & MTF_TAPE_CLN_SUPPORTED) {
13463 
13464                 /*
13465                  * head needs to be cleaned.
13466                  */
13467                 if (rval & MTF_TAPE_HEAD_DIRTY) {
13468 
13469                         /*
13470                          * Print log message only first time
13471                          * found needing cleaned.
13472                          */
13473                         if ((un->un_HeadClean & TAPE_PREVIOUSLY_DIRTY) == 0) {
13474 
13475                                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
13476                                     "Periodic head cleaning required");
13477 
13478                                 un->un_HeadClean |= TAPE_PREVIOUSLY_DIRTY;
13479                         }
13480 
13481                 } else {
13482 
13483                         un->un_HeadClean &= ~TAPE_PREVIOUSLY_DIRTY;
13484                 }
13485         }
13486 
13487         return (rval);
13488 }
13489 
13490 
13491 static int
13492 st_check_sequential_clean_bit(struct scsi_tape *un)
13493 {
13494         int rval;
13495         int ix;
13496         ushort_t parameter;
13497         struct uscsi_cmd *cmd;
13498         struct log_sequential_page *sp;
13499         struct log_sequential_page_parameter *prm;
13500         struct scsi_arq_status status;
13501         char cdb[CDB_GROUP1] = {
13502                 SCMD_LOG_SENSE_G1,
13503                 0,
13504                 TAPE_SEQUENTIAL_PAGE | CURRENT_CUMULATIVE_VALUES,
13505                 0,
13506                 0,
13507                 0,
13508                 0,
13509                 (char)(sizeof (struct log_sequential_page) >> 8),
13510                 (char)(sizeof (struct log_sequential_page)),
13511                 0
13512         };
13513 
13514         ST_FUNC(ST_DEVINFO, st_check_sequential_clean_bit);
13515 
13516         cmd = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
13517         sp  = kmem_zalloc(sizeof (struct log_sequential_page), KM_SLEEP);
13518 
13519         cmd->uscsi_flags   =
13520             USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
13521         cmd->uscsi_timeout = un->un_dp->non_motion_timeout;
13522         cmd->uscsi_cdb          = cdb;
13523         cmd->uscsi_cdblen  = CDB_GROUP1;
13524         cmd->uscsi_bufaddr = (caddr_t)sp;
13525         cmd->uscsi_buflen  = sizeof (struct log_sequential_page);
13526         cmd->uscsi_rqlen   = sizeof (status);
13527         cmd->uscsi_rqbuf   = (caddr_t)&status;
13528 
13529         rval = st_uscsi_cmd(un, cmd, FKIOCTL);
13530 
13531         if (rval || cmd->uscsi_status || cmd->uscsi_resid) {
13532 
13533                 rval = -1;
13534 
13535         } else if (sp->log_page.code != TAPE_SEQUENTIAL_PAGE) {
13536 
13537                 rval = -1;
13538         }
13539 
13540         prm = &sp->param[0];
13541 
13542         for (ix = 0; rval == 0 && ix < TAPE_SEQUENTIAL_PAGE_PARA; ix++) {
13543 
13544                 if (prm->log_param.length == 0) {
13545                         break;
13546                 }
13547 
13548                 parameter = (((prm->log_param.pc_hi << 8) & 0xff00) +
13549                     (prm->log_param.pc_lo & 0xff));
13550 
13551                 if (parameter == SEQUENTIAL_NEED_CLN) {
13552 
13553                         rval = MTF_TAPE_CLN_SUPPORTED;
13554                         if (prm->param_value[prm->log_param.length - 1]) {
13555 
13556                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13557                                     "sequential log says head dirty\n");
13558                                 rval |= MTF_TAPE_HEAD_DIRTY;
13559                         }
13560                 }
13561                 prm = (struct log_sequential_page_parameter *)
13562                     &prm->param_value[prm->log_param.length];
13563         }
13564 
13565         kmem_free(cmd, sizeof (struct uscsi_cmd));
13566         kmem_free(sp,  sizeof (struct log_sequential_page));
13567 
13568         return (rval);
13569 }
13570 
13571 
13572 static int
13573 st_check_alert_flags(struct scsi_tape *un)
13574 {
13575         struct st_tape_alert *ta;
13576         struct uscsi_cmd *com;
13577         struct scsi_arq_status status;
13578         unsigned ix, length;
13579         int rval;
13580         tape_alert_flags flag;
13581         char cdb[CDB_GROUP1] = {
13582                 SCMD_LOG_SENSE_G1,
13583                 0,
13584                 TAPE_ALERT_PAGE | CURRENT_THRESHOLD_VALUES,
13585                 0,
13586                 0,
13587                 0,
13588                 0,
13589                 (char)(sizeof (struct st_tape_alert) >> 8),
13590                 (char)(sizeof (struct st_tape_alert)),
13591                 0
13592         };
13593 
13594         ST_FUNC(ST_DEVINFO, st_check_alert_clean_bit);
13595 
13596         com = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
13597         ta  = kmem_zalloc(sizeof (struct st_tape_alert), KM_SLEEP);
13598 
13599         com->uscsi_cdb = cdb;
13600         com->uscsi_cdblen = CDB_GROUP1;
13601         com->uscsi_bufaddr = (caddr_t)ta;
13602         com->uscsi_buflen = sizeof (struct st_tape_alert);
13603         com->uscsi_rqlen = sizeof (status);
13604         com->uscsi_rqbuf = (caddr_t)&status;
13605         com->uscsi_flags =
13606             USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
13607         com->uscsi_timeout = un->un_dp->non_motion_timeout;
13608 
13609         rval = st_uscsi_cmd(un, com, FKIOCTL);
13610 
13611         if (rval || com->uscsi_status || com->uscsi_resid) {
13612 
13613                 rval = -1; /* uscsi-command failed */
13614 
13615         } else if (ta->log_page.code != TAPE_ALERT_PAGE) {
13616 
13617                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13618                 "Not Alert Log Page returned 0x%X\n", ta->log_page.code);
13619                 rval = -1;
13620         }
13621 
13622         length = (ta->log_page.length_hi << 8) + ta->log_page.length_lo;
13623 
13624 
13625         if (length != TAPE_ALERT_PARAMETER_LENGTH) {
13626 
13627                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13628                     "TapeAlert length %d\n", length);
13629         }
13630 
13631 
13632         for (ix = 0; ix < TAPE_ALERT_MAX_PARA; ix++) {
13633 
13634                 /*
13635                  * if rval is bad before the first pass don't bother
13636                  */
13637                 if (ix == 0 && rval != 0) {
13638 
13639                         break;
13640                 }
13641 
13642                 flag = ((ta->param[ix].log_param.pc_hi << 8) +
13643                     ta->param[ix].log_param.pc_lo);
13644 
13645                 if ((ta->param[ix].param_value & 1) == 0) {
13646                         continue;
13647                 }
13648                 /*
13649                  * check to see if current parameter is of interest.
13650                  * CLEAN_FOR_ERRORS is vendor specific to 9840 9940 stk's.
13651                  */
13652                 if ((flag == TAF_CLEAN_NOW) ||
13653                     (flag == TAF_CLEAN_PERIODIC) ||
13654                     ((flag == CLEAN_FOR_ERRORS) &&
13655                     (un->un_dp->type == ST_TYPE_STK9840))) {
13656 
13657                         rval = MTF_TAPE_CLN_SUPPORTED;
13658 
13659 
13660                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13661                             "alert_page drive needs clean %d\n", flag);
13662                         un->un_HeadClean |= TAPE_ALERT_STILL_DIRTY;
13663                         rval |= MTF_TAPE_HEAD_DIRTY;
13664 
13665                 } else if (flag == TAF_CLEANING_MEDIA) {
13666 
13667                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13668                             "alert_page drive was cleaned\n");
13669                         un->un_HeadClean &= ~TAPE_ALERT_STILL_DIRTY;
13670                 }
13671 
13672         }
13673 
13674         /*
13675          * Report it as dirty till we see it cleaned
13676          */
13677         if (un->un_HeadClean & TAPE_ALERT_STILL_DIRTY) {
13678 
13679                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13680                     "alert_page still dirty\n");
13681                 rval |= MTF_TAPE_HEAD_DIRTY;
13682         }
13683 
13684         kmem_free(com, sizeof (struct uscsi_cmd));
13685         kmem_free(ta,  sizeof (struct st_tape_alert));
13686 
13687         return (rval);
13688 }
13689 
13690 
13691 static int
13692 st_check_sense_clean_bit(struct scsi_tape *un)
13693 {
13694         uchar_t *sensep;
13695         char cdb[CDB_GROUP0];
13696         struct uscsi_cmd *com;
13697         ushort_t byte_pos;
13698         uchar_t bit_mask;
13699         unsigned length;
13700         int index;
13701         int rval;
13702 
13703         ST_FUNC(ST_DEVINFO, st_check_sense_clean_bit);
13704 
13705         /*
13706          * Since this tape does not support Tape Alert,
13707          * we now try to get the cleanbit status via
13708          * Request Sense.
13709          */
13710 
13711         if ((un->un_dp->options & ST_CLN_MASK) == ST_CLN_TYPE_1) {
13712 
13713                 index = 0;
13714 
13715         } else if ((un->un_dp->options & ST_CLN_MASK) == ST_CLN_TYPE_2) {
13716 
13717                 index = 1;
13718 
13719         } else if ((un->un_dp->options & ST_CLN_MASK) == ST_CLN_TYPE_3) {
13720 
13721                 index = 2;
13722 
13723         } else {
13724 
13725                 return (-1);
13726         }
13727 
13728         byte_pos  = st_cln_bit_position[index].cln_bit_byte;
13729         bit_mask  = st_cln_bit_position[index].cln_bit_mask;
13730         length = byte_pos + 1;
13731 
13732         com    = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
13733         sensep = kmem_zalloc(length, KM_SLEEP);
13734 
13735         cdb[0] = SCMD_REQUEST_SENSE;
13736         cdb[1] = 0;
13737         cdb[2] = 0;
13738         cdb[3] = 0;
13739         cdb[4] = (char)length;
13740         cdb[5] = 0;
13741 
13742         com->uscsi_cdb = cdb;
13743         com->uscsi_cdblen = CDB_GROUP0;
13744         com->uscsi_bufaddr = (caddr_t)sensep;
13745         com->uscsi_buflen = length;
13746         com->uscsi_flags =
13747             USCSI_DIAGNOSE | USCSI_SILENT | USCSI_READ;
13748         com->uscsi_timeout = un->un_dp->non_motion_timeout;
13749 
13750         rval = st_uscsi_cmd(un, com, FKIOCTL);
13751 
13752         if (rval || com->uscsi_status || com->uscsi_resid) {
13753 
13754                 rval = -1;
13755 
13756         } else {
13757 
13758                 rval = MTF_TAPE_CLN_SUPPORTED;
13759                 if ((sensep[byte_pos] & bit_mask) == bit_mask) {
13760 
13761                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13762                             "sense data says head dirty\n");
13763                         rval |= MTF_TAPE_HEAD_DIRTY;
13764                 }
13765         }
13766 
13767         kmem_free(com, sizeof (struct uscsi_cmd));
13768         kmem_free(sensep, length);
13769         return (rval);
13770 }
13771 
13772 /*
13773  * st_clear_unit_attention
13774  *
13775  *      run test unit ready's to clear out outstanding
13776  *      unit attentions.
13777  *      returns zero for SUCCESS or the errno from st_cmd call
13778  */
13779 static int
13780 st_clear_unit_attentions(dev_t dev_instance, int max_trys)
13781 {
13782         int     i    = 0;
13783         int     rval;
13784 
13785         GET_SOFT_STATE(dev_instance);
13786         ST_FUNC(ST_DEVINFO, st_clear_unit_attentions);
13787 
13788         do {
13789                 rval = st_cmd(un, SCMD_TEST_UNIT_READY, 0, SYNC_CMD);
13790         } while ((rval != 0) && (rval != ENXIO) && (++i < max_trys));
13791         return (rval);
13792 }
13793 
13794 static void
13795 st_calculate_timeouts(struct scsi_tape *un)
13796 {
13797         ST_FUNC(ST_DEVINFO, st_calculate_timeouts);
13798 
13799         if (un->un_dp->non_motion_timeout == 0) {
13800                 if (un->un_dp->options & ST_LONG_TIMEOUTS) {
13801                         un->un_dp->non_motion_timeout =
13802                             st_io_time * st_long_timeout_x;
13803                 } else {
13804                         un->un_dp->non_motion_timeout = (ushort_t)st_io_time;
13805                 }
13806         }
13807 
13808         if (un->un_dp->io_timeout == 0) {
13809                 if (un->un_dp->options & ST_LONG_TIMEOUTS) {
13810                         un->un_dp->io_timeout = st_io_time * st_long_timeout_x;
13811                 } else {
13812                         un->un_dp->io_timeout = (ushort_t)st_io_time;
13813                 }
13814         }
13815 
13816         if (un->un_dp->rewind_timeout == 0) {
13817                 if (un->un_dp->options & ST_LONG_TIMEOUTS) {
13818                         un->un_dp->rewind_timeout =
13819                             st_space_time * st_long_timeout_x;
13820                 } else {
13821                         un->un_dp->rewind_timeout = (ushort_t)st_space_time;
13822                 }
13823         }
13824 
13825         if (un->un_dp->space_timeout == 0) {
13826                 if (un->un_dp->options & ST_LONG_TIMEOUTS) {
13827                         un->un_dp->space_timeout =
13828                             st_space_time * st_long_timeout_x;
13829                 } else {
13830                         un->un_dp->space_timeout = (ushort_t)st_space_time;
13831                 }
13832         }
13833 
13834         if (un->un_dp->load_timeout == 0) {
13835                 if (un->un_dp->options & ST_LONG_TIMEOUTS) {
13836                         un->un_dp->load_timeout =
13837                             st_space_time * st_long_timeout_x;
13838                 } else {
13839                         un->un_dp->load_timeout = (ushort_t)st_space_time;
13840                 }
13841         }
13842 
13843         if (un->un_dp->unload_timeout == 0) {
13844                 if (un->un_dp->options & ST_LONG_TIMEOUTS) {
13845                         un->un_dp->unload_timeout =
13846                             st_space_time * st_long_timeout_x;
13847                 } else {
13848                         un->un_dp->unload_timeout = (ushort_t)st_space_time;
13849                 }
13850         }
13851 
13852         if (un->un_dp->erase_timeout == 0) {
13853                 if (un->un_dp->options & ST_LONG_ERASE) {
13854                         un->un_dp->erase_timeout =
13855                             st_space_time * st_long_space_time_x;
13856                 } else {
13857                         un->un_dp->erase_timeout = (ushort_t)st_space_time;
13858                 }
13859         }
13860 }
13861 
13862 
13863 static writablity
13864 st_is_not_wormable(struct scsi_tape *un)
13865 {
13866         ST_FUNC(ST_DEVINFO, st_is_not_wormable);
13867         return (RDWR);
13868 }
13869 
13870 static writablity
13871 st_is_hp_dat_tape_worm(struct scsi_tape *un)
13872 {
13873         writablity wrt;
13874 
13875         ST_FUNC(ST_DEVINFO, st_is_hp_dat_tape_worm);
13876 
13877         /* Mode sense should be current */
13878         if (un->un_mspl->media_type == 1) {
13879                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13880                     "Drive has WORM media loaded\n");
13881                 wrt = WORM;
13882         } else {
13883                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13884                     "Drive has non WORM media loaded\n");
13885                 wrt = RDWR;
13886         }
13887         return (wrt);
13888 }
13889 
13890 #define HP_DAT_INQUIRY 0x4A
13891 static writablity
13892 st_is_hp_dat_worm(struct scsi_tape *un)
13893 {
13894         char *buf;
13895         int result;
13896         writablity wrt;
13897 
13898         ST_FUNC(ST_DEVINFO, st_is_hp_dat_worm);
13899 
13900         buf = kmem_zalloc(HP_DAT_INQUIRY, KM_SLEEP);
13901 
13902         result = st_get_special_inquiry(un, HP_DAT_INQUIRY, buf, 0);
13903 
13904         if (result != 0) {
13905                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13906                     "Read Standard Inquiry for WORM support failed");
13907                 wrt = FAILED;
13908         } else if ((buf[40] & 1) == 0) {
13909                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13910                     "Drive is NOT WORMable\n");
13911                 /* This drive doesn't support it so don't check again */
13912                 un->un_dp->options &= ~ST_WORMABLE;
13913                 wrt = RDWR;
13914                 un->un_wormable = st_is_not_wormable;
13915         } else {
13916                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13917                     "Drive supports WORM version %d\n", buf[40] >> 1);
13918                 un->un_wormable = st_is_hp_dat_tape_worm;
13919                 wrt = un->un_wormable(un);
13920         }
13921 
13922         kmem_free(buf, HP_DAT_INQUIRY);
13923 
13924         /*
13925          * If drive doesn't support it no point in checking further.
13926          */
13927         return (wrt);
13928 }
13929 
13930 static writablity
13931 st_is_hp_lto_tape_worm(struct scsi_tape *un)
13932 {
13933         writablity wrt;
13934 
13935         ST_FUNC(ST_DEVINFO, st_is_hp_lto_tape_worm);
13936 
13937         /* Mode sense should be current */
13938         switch (un->un_mspl->media_type) {
13939         case 0x00:
13940                 switch (un->un_mspl->density) {
13941                 case 0x40:
13942                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13943                             "Drive has standard Gen I media loaded\n");
13944                         break;
13945                 case 0x42:
13946                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13947                             "Drive has standard Gen II media loaded\n");
13948                         break;
13949                 case 0x44:
13950                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13951                             "Drive has standard Gen III media loaded\n");
13952                         break;
13953                 case 0x46:
13954                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13955                             "Drive has standard Gen IV media loaded\n");
13956                         break;
13957                 default:
13958                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13959                             "Drive has standard unknown 0x%X media loaded\n",
13960                             un->un_mspl->density);
13961                 }
13962                 wrt = RDWR;
13963                 break;
13964         case 0x01:
13965                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13966                     "Drive has WORM medium loaded\n");
13967                 wrt = WORM;
13968                 break;
13969         case 0x80:
13970                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13971                     "Drive has CD-ROM emulation medium loaded\n");
13972                 wrt = WORM;
13973                 break;
13974         default:
13975                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13976                     "Drive has an unexpected medium type 0x%X loaded\n",
13977                     un->un_mspl->media_type);
13978                 wrt = RDWR;
13979         }
13980 
13981         return (wrt);
13982 }
13983 
13984 #define LTO_REQ_INQUIRY 44
13985 static writablity
13986 st_is_hp_lto_worm(struct scsi_tape *un)
13987 {
13988         char *buf;
13989         int result;
13990         writablity wrt;
13991 
13992         ST_FUNC(ST_DEVINFO, st_is_hp_lto_worm);
13993 
13994         buf = kmem_zalloc(LTO_REQ_INQUIRY, KM_SLEEP);
13995 
13996         result = st_get_special_inquiry(un, LTO_REQ_INQUIRY, buf, 0);
13997 
13998         if (result != 0) {
13999                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14000                     "Read Standard Inquiry for WORM support failed");
14001                 wrt = FAILED;
14002         } else if ((buf[40] & 1) == 0) {
14003                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14004                     "Drive is NOT WORMable\n");
14005                 /* This drive doesn't support it so don't check again */
14006                 un->un_dp->options &= ~ST_WORMABLE;
14007                 wrt = RDWR;
14008                 un->un_wormable = st_is_not_wormable;
14009         } else {
14010                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14011                     "Drive supports WORM version %d\n", buf[40] >> 1);
14012                 un->un_wormable = st_is_hp_lto_tape_worm;
14013                 wrt = un->un_wormable(un);
14014         }
14015 
14016         kmem_free(buf, LTO_REQ_INQUIRY);
14017 
14018         /*
14019          * If drive doesn't support it no point in checking further.
14020          */
14021         return (wrt);
14022 }
14023 
14024 static writablity
14025 st_is_t10_worm_device(struct scsi_tape *un)
14026 {
14027         writablity wrt;
14028 
14029         ST_FUNC(ST_DEVINFO, st_is_t10_worm_device);
14030 
14031         if (un->un_mspl->media_type == 0x3c) {
14032                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14033                     "Drive has WORM media loaded\n");
14034                 wrt = WORM;
14035         } else {
14036                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14037                     "Drive has non WORM media loaded\n");
14038                 wrt = RDWR;
14039         }
14040         return (wrt);
14041 }
14042 
14043 #define SEQ_CAP_PAGE    (char)0xb0
14044 static writablity
14045 st_is_t10_worm(struct scsi_tape *un)
14046 {
14047         char *buf;
14048         int result;
14049         writablity wrt;
14050 
14051         ST_FUNC(ST_DEVINFO, st_is_t10_worm);
14052 
14053         buf = kmem_zalloc(6, KM_SLEEP);
14054 
14055         result = st_get_special_inquiry(un, 6, buf, SEQ_CAP_PAGE);
14056 
14057         if (result != 0) {
14058                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14059                     "Read Vitial Inquiry for Sequental Capability"
14060                     " WORM support failed %x", result);
14061                 wrt = FAILED;
14062         } else if ((buf[4] & 1) == 0) {
14063                 ASSERT(buf[1] == SEQ_CAP_PAGE);
14064                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14065                     "Drive is NOT WORMable\n");
14066                 /* This drive doesn't support it so don't check again */
14067                 un->un_dp->options &= ~ST_WORMABLE;
14068                 wrt = RDWR;
14069                 un->un_wormable = st_is_not_wormable;
14070         } else {
14071                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14072                     "Drive supports WORM\n");
14073                 un->un_wormable = st_is_t10_worm_device;
14074                 wrt = un->un_wormable(un);
14075         }
14076 
14077         kmem_free(buf, 6);
14078 
14079         return (wrt);
14080 }
14081 
14082 
14083 #define STK_REQ_SENSE 26
14084 
14085 static writablity
14086 st_is_stk_worm(struct scsi_tape *un)
14087 {
14088         char cdb[CDB_GROUP0] = {SCMD_REQUEST_SENSE, 0, 0, 0, STK_REQ_SENSE, 0};
14089         struct scsi_extended_sense *sense;
14090         struct uscsi_cmd *cmd;
14091         char *buf;
14092         int result;
14093         writablity wrt;
14094 
14095         ST_FUNC(ST_DEVINFO, st_is_stk_worm);
14096 
14097         cmd = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
14098         buf = kmem_alloc(STK_REQ_SENSE, KM_SLEEP);
14099         sense = (struct scsi_extended_sense *)buf;
14100 
14101         cmd->uscsi_flags = USCSI_READ;
14102         cmd->uscsi_timeout = un->un_dp->non_motion_timeout;
14103         cmd->uscsi_cdb = &cdb[0];
14104         cmd->uscsi_bufaddr = buf;
14105         cmd->uscsi_buflen = STK_REQ_SENSE;
14106         cmd->uscsi_cdblen = CDB_GROUP0;
14107         cmd->uscsi_rqlen = 0;
14108         cmd->uscsi_rqbuf = NULL;
14109 
14110         result = st_uscsi_cmd(un, cmd, FKIOCTL);
14111 
14112         if (result != 0 || cmd->uscsi_status != 0) {
14113                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14114                     "Request Sense for WORM failed");
14115                 wrt = RDWR;
14116         } else if (sense->es_add_len + 8 < 24) {
14117                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14118                     "Drive didn't send enough sense data for WORM byte %d\n",
14119                     sense->es_add_len + 8);
14120                 wrt = RDWR;
14121                 un->un_wormable = st_is_not_wormable;
14122         } else if ((buf[24]) & 0x02) {
14123                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14124                     "Drive has WORM tape loaded\n");
14125                 wrt = WORM;
14126                 un->un_wormable = st_is_stk_worm;
14127         } else {
14128                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14129                     "Drive has normal tape loaded\n");
14130                 wrt = RDWR;
14131                 un->un_wormable = st_is_stk_worm;
14132         }
14133 
14134         kmem_free(buf, STK_REQ_SENSE);
14135         kmem_free(cmd, sizeof (struct uscsi_cmd));
14136         return (wrt);
14137 }
14138 
14139 #define DLT_INQ_SZ 44
14140 
14141 static writablity
14142 st_is_dlt_tape_worm(struct scsi_tape *un)
14143 {
14144         caddr_t buf;
14145         int result;
14146         writablity wrt;
14147 
14148         ST_FUNC(ST_DEVINFO, st_is_dlt_tape_worm);
14149 
14150         buf = kmem_alloc(DLT_INQ_SZ, KM_SLEEP);
14151 
14152         /* Read Attribute Media Type */
14153 
14154         result = st_read_attributes(un, 0x0408, buf, 10, st_uscsi_cmd);
14155 
14156         /*
14157          * If this quantum drive is attached via an HBA that cannot
14158          * support thr read attributes command return error in the
14159          * hope that someday they will support the t10 method.
14160          */
14161         if (result == EINVAL && un->un_max_cdb_sz < CDB_GROUP4) {
14162                 scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
14163                     "Read Attribute Command for WORM Media detection is not "
14164                     "supported on the HBA that this drive is attached to.");
14165                 wrt = RDWR;
14166                 un->un_wormable = st_is_not_wormable;
14167                 goto out;
14168         }
14169 
14170         if (result != 0) {
14171                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14172                     "Read Attribute Command for WORM Media returned 0x%x",
14173                     result);
14174                 wrt = RDWR;
14175                 un->un_dp->options &= ~ST_WORMABLE;
14176                 goto out;
14177         }
14178 
14179         if ((uchar_t)buf[9] == 0x80) {
14180                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14181                     "Drive media is WORM\n");
14182                 wrt = WORM;
14183         } else {
14184                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14185                     "Drive media is not WORM Media 0x%x\n", (uchar_t)buf[9]);
14186                 wrt = RDWR;
14187         }
14188 
14189 out:
14190         kmem_free(buf, DLT_INQ_SZ);
14191         return (wrt);
14192 }
14193 
14194 static writablity
14195 st_is_dlt_worm(struct scsi_tape *un)
14196 {
14197         caddr_t buf;
14198         int result;
14199         writablity wrt;
14200 
14201         ST_FUNC(ST_DEVINFO, st_is_dlt_worm);
14202 
14203         buf = kmem_alloc(DLT_INQ_SZ, KM_SLEEP);
14204 
14205         result = st_get_special_inquiry(un, DLT_INQ_SZ, buf, 0xC0);
14206 
14207         if (result != 0) {
14208                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14209                     "Read Vendor Specific Inquiry for WORM support failed");
14210                 wrt = RDWR;
14211                 goto out;
14212         }
14213 
14214         if ((buf[2] & 1) == 0) {
14215                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14216                     "Drive is not WORMable\n");
14217                 wrt = RDWR;
14218                 un->un_dp->options &= ~ST_WORMABLE;
14219                 un->un_wormable = st_is_not_wormable;
14220                 goto out;
14221         } else {
14222                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14223                     "Drive is WORMable\n");
14224                 un->un_wormable = st_is_dlt_tape_worm;
14225                 wrt = un->un_wormable(un);
14226         }
14227 out:
14228         kmem_free(buf, DLT_INQ_SZ);
14229 
14230         return (wrt);
14231 }
14232 
14233 typedef struct {
14234         struct modeheader_seq header;
14235 #if defined(_BIT_FIELDS_LTOH) /* X86 */
14236         uchar_t pagecode        :6,
14237                                 :2;
14238         uchar_t page_len;
14239         uchar_t syslogalive     :2,
14240                 device          :1,
14241                 abs             :1,
14242                 ulpbot          :1,
14243                 prth            :1,
14244                 ponej           :1,
14245                 ait             :1;
14246         uchar_t span;
14247 
14248         uchar_t                 :6,
14249                 worm            :1,
14250                 mic             :1;
14251         uchar_t worm_cap        :1,
14252                                 :7;
14253         uint32_t                :32;
14254 #else /* SPARC */
14255         uchar_t                 :2,
14256                 pagecode        :6;
14257         uchar_t page_len;
14258         uchar_t ait             :1,
14259                 device          :1,
14260                 abs             :1,
14261                 ulpbot          :1,
14262                 prth            :1,
14263                 ponej           :1,
14264                 syslogalive     :2;
14265         uchar_t span;
14266         uchar_t mic             :1,
14267                 worm            :1,
14268                                 :6;
14269         uchar_t                 :7,
14270                 worm_cap        :1;
14271         uint32_t                :32;
14272 #endif
14273 }ait_dev_con;
14274 
14275 #define AIT_DEV_PAGE 0x31
14276 static writablity
14277 st_is_sony_worm(struct scsi_tape *un)
14278 {
14279         int result;
14280         writablity wrt;
14281         ait_dev_con *ait_conf;
14282 
14283         ST_FUNC(ST_DEVINFO, st_is_sony_worm);
14284 
14285         ait_conf = kmem_zalloc(sizeof (ait_dev_con), KM_SLEEP);
14286 
14287         result = st_gen_mode_sense(un, st_uscsi_cmd, AIT_DEV_PAGE,
14288             (struct seq_mode *)ait_conf, sizeof (ait_dev_con));
14289 
14290         if (result == 0) {
14291 
14292                 if (ait_conf->pagecode != AIT_DEV_PAGE) {
14293                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14294                             "returned page 0x%x not 0x%x AIT_DEV_PAGE\n",
14295                             ait_conf->pagecode, AIT_DEV_PAGE);
14296                         wrt = RDWR;
14297                         un->un_wormable = st_is_not_wormable;
14298 
14299                 } else if (ait_conf->worm_cap) {
14300 
14301                         un->un_wormable = st_is_sony_worm;
14302 
14303                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14304                             "Drives is WORMable\n");
14305                         if (ait_conf->worm) {
14306                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14307                                     "Media is WORM\n");
14308                                 wrt = WORM;
14309                         } else {
14310                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14311                                     "Media is not WORM\n");
14312                                 wrt = RDWR;
14313                         }
14314 
14315                 } else {
14316                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14317                             "Drives not is WORMable\n");
14318                         wrt = RDWR;
14319                         /* No further checking required */
14320                         un->un_dp->options &= ~ST_WORMABLE;
14321                 }
14322 
14323         } else {
14324 
14325                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14326                     "AIT device config mode sense page read command failed"
14327                     " result = %d ", result);
14328                 wrt = FAILED;
14329                 un->un_wormable = st_is_not_wormable;
14330         }
14331 
14332         kmem_free(ait_conf, sizeof (ait_dev_con));
14333         return (wrt);
14334 }
14335 
14336 static writablity
14337 st_is_drive_worm(struct scsi_tape *un)
14338 {
14339         writablity wrt;
14340 
14341         ST_FUNC(ST_DEVINFO, st_is_sony_worm);
14342 
14343         switch (un->un_dp->type) {
14344         case MT_ISDLT:
14345                 wrt = st_is_dlt_worm(un);
14346                 break;
14347 
14348         case MT_ISSTK9840:
14349                 wrt = st_is_stk_worm(un);
14350                 break;
14351 
14352         case MT_IS8MM:
14353         case MT_ISAIT:
14354                 wrt = st_is_sony_worm(un);
14355                 break;
14356 
14357         case MT_LTO:
14358                 if (strncmp("HP ", un->un_dp->vid, 3) == 0) {
14359                         wrt = st_is_hp_lto_worm(un);
14360                 } else {
14361                         wrt = st_is_t10_worm(un);
14362                 }
14363                 break;
14364 
14365         case MT_ISDAT:
14366                 if (strncmp("HP ", un->un_dp->vid, 3) == 0) {
14367                         wrt = st_is_hp_dat_worm(un);
14368                 } else {
14369                         wrt = st_is_t10_worm(un);
14370                 }
14371                 break;
14372 
14373         default:
14374                 wrt = FAILED;
14375                 break;
14376         }
14377 
14378         /*
14379          * If any of the above failed try the t10 standard method.
14380          */
14381         if (wrt == FAILED) {
14382                 wrt = st_is_t10_worm(un);
14383         }
14384 
14385         /*
14386          * Unknown method for detecting WORM media.
14387          */
14388         if (wrt == FAILED) {
14389                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14390                     "Unknown method for WORM media detection\n");
14391                 wrt = RDWR;
14392                 un->un_dp->options &= ~ST_WORMABLE;
14393         }
14394 
14395         return (wrt);
14396 }
14397 
14398 static int
14399 st_read_attributes(struct scsi_tape *un, uint16_t attribute, void *pnt,
14400     size_t size, ubufunc_t bufunc)
14401 {
14402         char cdb[CDB_GROUP4];
14403         int result;
14404         struct uscsi_cmd *cmd;
14405         struct scsi_arq_status status;
14406 
14407         caddr_t buf = (caddr_t)pnt;
14408 
14409         ST_FUNC(ST_DEVINFO, st_read_attributes);
14410 
14411         if (un->un_sd->sd_inq->inq_ansi < 3) {
14412                 return (ENOTTY);
14413         }
14414 
14415         cmd = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
14416 
14417         cdb[0] = (char)SCMD_READ_ATTRIBUTE;
14418         cdb[1] = 0;
14419         cdb[2] = 0;
14420         cdb[3] = 0;
14421         cdb[4] = 0;
14422         cdb[5] = 0;
14423         cdb[6] = 0;
14424         cdb[7] = 0;
14425         cdb[8] = (char)(attribute >> 8);
14426         cdb[9] = (char)(attribute);
14427         cdb[10] = (char)(size >> 24);
14428         cdb[11] = (char)(size >> 16);
14429         cdb[12] = (char)(size >> 8);
14430         cdb[13] = (char)(size);
14431         cdb[14] = 0;
14432         cdb[15] = 0;
14433 
14434 
14435         cmd->uscsi_flags = USCSI_READ | USCSI_RQENABLE | USCSI_DIAGNOSE;
14436         cmd->uscsi_timeout = un->un_dp->non_motion_timeout;
14437         cmd->uscsi_cdb = &cdb[0];
14438         cmd->uscsi_bufaddr = (caddr_t)buf;
14439         cmd->uscsi_buflen = size;
14440         cmd->uscsi_cdblen = sizeof (cdb);
14441         cmd->uscsi_rqlen = sizeof (status);
14442         cmd->uscsi_rqbuf = (caddr_t)&status;
14443 
14444         result = bufunc(un, cmd, FKIOCTL);
14445 
14446         if (result != 0 || cmd->uscsi_status != 0) {
14447                 ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
14448                     "st_read_attribute failed: result %d status %d\n",
14449                     result, cmd->uscsi_status);
14450                 /*
14451                  * If this returns invalid operation code don't try again.
14452                  */
14453                 if (un->un_sd->sd_sense->es_key == KEY_ILLEGAL_REQUEST &&
14454                     un->un_sd->sd_sense->es_add_code == 0x20) {
14455                         result = ENOTTY;
14456                 } else if (result == 0) {
14457                         result = EIO;
14458                 }
14459 
14460         } else {
14461 
14462                 /*
14463                  * The attribute retured should match the attribute requested.
14464                  */
14465                 if (buf[4] != cdb[8] || buf[5] != cdb[9]) {
14466                         scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
14467                             "st_read_attribute got wrong data back expected "
14468                             "0x%x got 0x%x\n", attribute, buf[6] << 8 | buf[7]);
14469                         st_clean_print(ST_DEVINFO, st_label, SCSI_DEBUG,
14470                             "bad? data", buf, size);
14471                         result = EIO;
14472                 }
14473         }
14474 
14475         kmem_free(cmd, sizeof (struct uscsi_cmd));
14476 
14477         return (result);
14478 }
14479 
14480 static int
14481 st_get_special_inquiry(struct scsi_tape *un, uchar_t size, caddr_t dest,
14482     uchar_t page)
14483 {
14484         char cdb[CDB_GROUP0];
14485         struct scsi_extended_sense *sense;
14486         struct uscsi_cmd *cmd;
14487         int result;
14488 
14489         ST_FUNC(ST_DEVINFO, st_get_special_inquiry);
14490 
14491         cdb[0] = SCMD_INQUIRY;
14492         cdb[1] = page ? 1 : 0;
14493         cdb[2] = page;
14494         cdb[3] = 0;
14495         cdb[4] = size;
14496         cdb[5] = 0;
14497 
14498         cmd = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
14499         sense = kmem_alloc(sizeof (struct scsi_extended_sense), KM_SLEEP);
14500 
14501         cmd->uscsi_flags = USCSI_READ | USCSI_RQENABLE;
14502         cmd->uscsi_timeout = un->un_dp->non_motion_timeout;
14503         cmd->uscsi_cdb = &cdb[0];
14504         cmd->uscsi_bufaddr = dest;
14505         cmd->uscsi_buflen = size;
14506         cmd->uscsi_cdblen = CDB_GROUP0;
14507         cmd->uscsi_rqlen = sizeof (struct scsi_extended_sense);
14508         cmd->uscsi_rqbuf = (caddr_t)sense;
14509 
14510         result = st_uscsi_cmd(un, cmd, FKIOCTL);
14511 
14512         if (result != 0 || cmd->uscsi_status != 0) {
14513                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14514                     "st_get_special_inquiry() failed for page %x", page);
14515                 if (result == 0) {
14516                         result = EIO;
14517                 }
14518         }
14519 
14520         kmem_free(sense, sizeof (struct scsi_extended_sense));
14521         kmem_free(cmd, sizeof (struct uscsi_cmd));
14522 
14523         return (result);
14524 }
14525 
14526 
14527 static int
14528 st_update_block_pos(struct scsi_tape *un, bufunc_t bf, int post_space)
14529 {
14530         int rval = ENOTTY;
14531         uchar_t status = un->un_status;
14532         posmode previous_pmode = un->un_running.pmode;
14533 
14534         ST_FUNC(ST_DEVINFO, st_update_block_pos);
14535 
14536         while (un->un_read_pos_type != NO_POS) {
14537                 rval = bf(un, SCMD_READ_POSITION, 32, SYNC_CMD);
14538 
14539                 /*
14540                  * If read position command returned good status
14541                  * Parse the data to see if the position can be interpreted.
14542                  */
14543                 if ((rval == 0) &&
14544                     ((rval = st_interpret_read_pos(un, &un->un_pos,
14545                     un->un_read_pos_type, 32, (caddr_t)un->un_read_pos_data,
14546                     post_space)) == 0)) {
14547                         /*
14548                          * Update the running position as well if un_pos was
14549                          * ok. But only if recovery is enabled.
14550                          */
14551                         if (st_recov_sz != sizeof (recov_info)) {
14552                                 break;
14553                         }
14554                         rval = st_interpret_read_pos(un, &un->un_running,
14555                             un->un_read_pos_type, 32,
14556                             (caddr_t)un->un_read_pos_data, post_space);
14557                         un->un_status = status;
14558                         break;
14559                 } else if (un->un_status == KEY_UNIT_ATTENTION) {
14560                         un->un_running.pmode = previous_pmode;
14561                         continue;
14562                 } else if (un->un_status != KEY_ILLEGAL_REQUEST) {
14563                         scsi_log(ST_DEVINFO, st_label, CE_NOTE,
14564                             "st_update_block_pos() read position cmd 0x%x"
14565                             " returned 0x%x un_status = %d",
14566                             un->un_read_pos_type, rval, un->un_status);
14567                         /* ENOTTY means it read garbage. try something else. */
14568                         if (rval == ENOTTY) {
14569                                 rval = EIO; /* so ENOTTY is not final rval */
14570                         } else {
14571                                 break;
14572                         }
14573                 } else {
14574                         ST_DEBUG4(ST_DEVINFO, st_label, CE_NOTE,
14575                             "st_update_block_pos() read position cmd %x"
14576                             " returned %x", un->un_read_pos_type, rval);
14577                         un->un_running.pmode = previous_pmode;
14578                 }
14579 
14580                 switch (un->un_read_pos_type) {
14581                 case SHORT_POS:
14582                         un->un_read_pos_type = NO_POS;
14583                         break;
14584 
14585                 case LONG_POS:
14586                         un->un_read_pos_type = EXT_POS;
14587                         break;
14588 
14589                 case EXT_POS:
14590                         un->un_read_pos_type = SHORT_POS;
14591                         break;
14592 
14593                 default:
14594                         ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
14595                             "Unexpected read position type 0x%x",
14596                             un->un_read_pos_type);
14597                 }
14598                 un->un_status = KEY_NO_SENSE;
14599         }
14600 
14601         return (rval);
14602 }
14603 
14604 static int
14605 st_get_read_pos(struct scsi_tape *un, buf_t *bp)
14606 {
14607         int result;
14608         size_t d_sz;
14609         caddr_t pos_info;
14610         struct uscsi_cmd *cmd = (struct uscsi_cmd *)bp->b_back;
14611 
14612         ST_FUNC(ST_DEVINFO, st_get_read_pos);
14613 
14614         if (cmd->uscsi_bufaddr == NULL || cmd->uscsi_buflen <= 0) {
14615                 return (0);
14616         }
14617 
14618         if (bp_mapin_common(bp, VM_NOSLEEP) == NULL) {
14619 
14620                 scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
14621                     "bp_mapin_common() failed");
14622 
14623                 return (EIO);
14624         }
14625 
14626         d_sz = bp->b_bcount - bp->b_resid;
14627         if (d_sz == 0) {
14628                 bp_mapout(bp);
14629                 return (EIO);
14630         }
14631 
14632         /*
14633          * Copy the buf to a double-word aligned memory that can hold the
14634          * tape_position_t data structure.
14635          */
14636         if ((pos_info = kmem_alloc(d_sz, KM_NOSLEEP)) == NULL) {
14637                 scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
14638                     "kmem_alloc() failed");
14639                 bp_mapout(bp);
14640                 return (EIO);
14641         }
14642         bcopy(bp->b_un.b_addr, pos_info, d_sz);
14643 
14644 #ifdef STDEBUG
14645         if ((st_debug & 0x7) > 2) {
14646                 st_clean_print(ST_DEVINFO, st_label, SCSI_DEBUG,
14647                     "st_get_read_pos() position info",
14648                     pos_info, bp->b_bcount);
14649         }
14650 #endif
14651 
14652         result = st_interpret_read_pos(un, &un->un_pos, cmd->uscsi_cdb[1],
14653             d_sz, pos_info, 0);
14654 
14655         COPY_POS(&un->un_running, &un->un_pos);
14656 
14657         kmem_free(pos_info, d_sz);
14658         bp_mapout(bp);
14659 
14660         return (result);
14661 }
14662 
14663 #if defined(_BIG_ENDIAN)
14664 
14665 #define FIX_ENDIAN16(x)
14666 #define FIX_ENDIAN32(x)
14667 #define FIX_ENDIAN64(x)
14668 
14669 #elif defined(_LITTLE_ENDIAN)
14670 
14671 static void
14672 st_swap16(uint16_t *val)
14673 {
14674         uint16_t tmp;
14675 
14676         tmp = (*val >>  8) & 0xff;
14677         tmp |= (*val <<  8) & 0xff00;
14678 
14679         *val = tmp;
14680 }
14681 
14682 static void
14683 st_swap32(uint32_t *val)
14684 {
14685         uint32_t tmp;
14686 
14687         tmp =  (*val >> 24) & 0xff;
14688         tmp |= (*val >>  8) & 0xff00;
14689         tmp |= (*val <<  8) & 0xff0000;
14690         tmp |= (*val << 24) & 0xff000000;
14691 
14692         *val = tmp;
14693 }
14694 
14695 static void
14696 st_swap64(uint64_t *val)
14697 {
14698         uint32_t low;
14699         uint32_t high;
14700 
14701         low =  (uint32_t)(*val);
14702         high = (uint32_t)(*val >> 32);
14703 
14704         st_swap32(&low);
14705         st_swap32(&high);
14706 
14707         *val =  high;
14708         *val |= ((uint64_t)low << 32);
14709 }
14710 
14711 #define FIX_ENDIAN16(x) st_swap16(x)
14712 #define FIX_ENDIAN32(x) st_swap32(x)
14713 #define FIX_ENDIAN64(x) st_swap64(x)
14714 #endif
14715 
14716 /*
14717  * st_interpret_read_pos()
14718  *
14719  * Returns:
14720  *      0       If secsessful.
14721  *      EIO     If read postion responce data was unuseable or invalid.
14722  *      ERANGE  If the position of the drive is too large for the read_p_type.
14723  *      ENOTTY  If the responce data looks invalid for the read position type.
14724  */
14725 
14726 static int
14727 st_interpret_read_pos(struct scsi_tape const *un, tapepos_t *dest,
14728     read_p_types type, size_t data_sz, const caddr_t responce, int post_space)
14729 {
14730         int rval = 0;
14731         int flag = 0;
14732         tapepos_t org;
14733 
14734         ST_FUNC(ST_DEVINFO, st_interpret_read_pos);
14735 
14736         /*
14737          * We expect the position value to change after a space command.
14738          * So if post_space is set we don't print out what has changed.
14739          */
14740         if ((dest != &un->un_pos) && (post_space == 0) &&
14741             (st_recov_sz == sizeof (recov_info))) {
14742                 COPY_POS(&org, dest);
14743                 flag = 1;
14744         }
14745 
14746         /*
14747          * See what kind of read position was requested.
14748          */
14749         switch (type) {
14750 
14751         case SHORT_POS: /* Short data format */
14752         {
14753                 tape_position_t *pos_info = (tape_position_t *)responce;
14754                 uint32_t value;
14755 
14756                 /* If reserved fields are non zero don't use the data */
14757                 if (pos_info->reserved0 || pos_info->reserved1 ||
14758                     pos_info->reserved2[0] || pos_info->reserved2[1] ||
14759                     pos_info->reserved3) {
14760                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14761                             "Invalid Read Short Position Data returned\n");
14762                         rval = EIO;
14763                         break;
14764                 }
14765                 /*
14766                  * Position is to large to use this type of read position.
14767                  */
14768                 if (pos_info->posi_err == 1) {
14769                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14770                             "Drive reported position error\n");
14771                         rval = ERANGE;
14772                         break;
14773                 }
14774                 /*
14775                  * If your at the begining of partition and end at the same
14776                  * time it's very small partition or bad data.
14777                  */
14778                 if (pos_info->begin_of_part && pos_info->end_of_part) {
14779                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14780                             "SHORT_POS returned begin and end of"
14781                             " partition\n");
14782                         rval = EIO;
14783                         break;
14784                 }
14785 
14786                 if (pos_info->blk_posi_unkwn == 0) {
14787 
14788                         value = pos_info->host_block;
14789                         FIX_ENDIAN32(&value);
14790 
14791                         /*
14792                          * If the tape is rewound the host blcok should be 0.
14793                          */
14794                         if ((pos_info->begin_of_part == 1) &&
14795                             (value != 0)) {
14796                                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14797                                     "SHORT_POS returned begin of partition"
14798                                     " but host block was 0x%x\n", value);
14799                                 rval = EIO;
14800                                 break;
14801                         }
14802 
14803                         if (dest->lgclblkno != value) {
14804                                 if (flag)
14805                                         flag++;
14806                                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14807                                     "SHORT_POS current logical 0x%"PRIx64" read"
14808                                     " 0x%x\n", dest->lgclblkno, value);
14809                         }
14810 
14811                         dest->lgclblkno = (uint64_t)value;
14812 
14813                         /*
14814                          * If the begining of partition is true and the
14815                          * block number is zero we will beleive that it is
14816                          * rewound. Promote the pmode to legacy.
14817                          */
14818                         if ((pos_info->begin_of_part == 1) &&
14819                             (value == 0)) {
14820                                 dest->blkno = 0;
14821                                 dest->fileno = 0;
14822                                 if (dest->pmode != legacy)
14823                                         dest->pmode = legacy;
14824                         /*
14825                          * otherwise if the pmode was invalid,
14826                          * promote it to logical.
14827                          */
14828                         } else if (dest->pmode == invalid) {
14829                                 dest->pmode = logical;
14830                         }
14831 
14832                         if (dest->partition != pos_info->partition_number) {
14833                                 if (flag)
14834                                         flag++;
14835                                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14836                                     "SHORT_POS current partition %d read %d\n",
14837                                     dest->partition,
14838                                     pos_info->partition_number);
14839                         }
14840 
14841                         dest->partition = pos_info->partition_number;
14842 
14843                 } else {
14844                         dest->pmode = invalid;
14845                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14846                             "Tape drive reported block position as unknown\n");
14847                 }
14848                 break;
14849         }
14850 
14851         case LONG_POS: /* Long data format */
14852         {
14853                 uint64_t value;
14854                 tape_position_long_t *long_pos_info =
14855                     (tape_position_long_t *)responce;
14856 
14857                 /* If reserved fields are non zero don't use the data */
14858                 if ((long_pos_info->reserved0) ||
14859                     (long_pos_info->reserved1) ||
14860                     (long_pos_info->reserved2)) {
14861                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14862                             "Invalid Read Long Position Data returned\n");
14863                         rval = ENOTTY;
14864                         break;
14865                 }
14866 
14867                 /* Is position Valid */
14868                 if (long_pos_info->blk_posi_unkwn == 0) {
14869                         uint32_t part;
14870 
14871                         value = long_pos_info->block_number;
14872                         FIX_ENDIAN64(&value);
14873 
14874                         /*
14875                          * If it says we are at the begining of partition
14876                          * the block value better be 0.
14877                          */
14878                         if ((long_pos_info->begin_of_part == 1) &&
14879                             (value != 0)) {
14880                                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14881                                     "LONG_POS returned begin of partition but"
14882                                     " block number was 0x%"PRIx64"\n", value);
14883                                 rval = ENOTTY;
14884                                 break;
14885                         }
14886                         /*
14887                          * Can't be at the start and the end of the partition
14888                          * at the same time if the partition is larger the 0.
14889                          */
14890                         if (long_pos_info->begin_of_part &&
14891                             long_pos_info->end_of_part) {
14892                                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14893                                     "LONG_POS returned begin and end of"
14894                                     " partition\n");
14895                                 rval = ENOTTY;
14896                                 break;
14897                         }
14898 
14899                         /*
14900                          * If the logical block number is not what we expected.
14901                          */
14902                         if (dest->lgclblkno != value) {
14903                                 if (flag)
14904                                         flag++;
14905                                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14906                                     "LONG_POS current logical 0x%"PRIx64
14907                                     " read 0x%"PRIx64"\n",
14908                                     dest->lgclblkno, value);
14909                         }
14910                         dest->lgclblkno = value;
14911 
14912                         /*
14913                          * If the begining of partition is true and the
14914                          * block number is zero we will beleive that it is
14915                          * rewound. Promote the pmode to legacy.
14916                          */
14917                         if ((long_pos_info->begin_of_part == 1) &&
14918                             (long_pos_info->block_number == 0)) {
14919                                 dest->blkno = 0;
14920                                 dest->fileno = 0;
14921                                 if (dest->pmode != legacy)
14922                                         dest->pmode = legacy;
14923                         /*
14924                          * otherwise if the pmode was invalid,
14925                          * promote it to logical.
14926                          */
14927                         } else if (dest->pmode == invalid) {
14928                                 dest->pmode = logical;
14929                         }
14930 
14931                         part = long_pos_info->partition;
14932                         FIX_ENDIAN32(&part);
14933                         if (dest->partition != part) {
14934                                 if (flag)
14935                                         flag++;
14936                                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14937                                     "LONG_POS current partition %d"
14938                                     " read %d\n", dest->partition, part);
14939                         }
14940                         dest->partition = part;
14941                 } else {
14942                         /*
14943                          * If the drive doesn't know location,
14944                          * we don't either.
14945                          */
14946                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14947                             "Tape drive reported block position as unknown\n");
14948                         dest->pmode = invalid;
14949                 }
14950 
14951                 /* Is file position valid */
14952                 if (long_pos_info->mrk_posi_unkwn == 0) {
14953                         value = long_pos_info->file_number;
14954                         FIX_ENDIAN64(&value);
14955                         /*
14956                          * If it says we are at the begining of partition
14957                          * the block value better be 0.
14958                          */
14959                         if ((long_pos_info->begin_of_part == 1) &&
14960                             (value != 0)) {
14961                                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14962                                     "LONG_POS returned begin of partition but"
14963                                     " block number was 0x%"PRIx64"\n", value);
14964                                 rval = ENOTTY;
14965                                 break;
14966                         }
14967                         if (((dest->pmode == legacy) ||
14968                             (dest->pmode == logical)) &&
14969                             (dest->fileno != value)) {
14970                                 if (flag)
14971                                         flag++;
14972                                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14973                                     "LONG_POS fileno 0x%"PRIx64
14974                                     " not un_pos %x\n", value,
14975                                     dest->fileno);
14976                         } else if (dest->pmode == invalid) {
14977                                 dest->pmode = logical;
14978                         }
14979                         dest->fileno = (int32_t)value;
14980                 }
14981 
14982                 if (dest->pmode != invalid && long_pos_info->end_of_part) {
14983                         dest->eof = ST_EOT;
14984                 }
14985 
14986                 break;
14987         }
14988 
14989         case EXT_POS: /* Extended data format */
14990         {
14991                 uint64_t value;
14992                 uint16_t len;
14993                 tape_position_ext_t *ext_pos_info =
14994                     (tape_position_ext_t *)responce;
14995 
14996                 /* Make sure that there is enough data there */
14997                 if (data_sz < 16) {
14998                         break;
14999                 }
15000 
15001                 /* If reserved fields are non zero don't use the data */
15002                 if (ext_pos_info->reserved0 || ext_pos_info->reserved1) {
15003                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
15004                             "EXT_POS reserved fields not zero\n");
15005                         rval = ENOTTY;
15006                         break;
15007                 }
15008 
15009                 /*
15010                  * In the unlikely event of overflowing 64 bits of position.
15011                  */
15012                 if (ext_pos_info->posi_err != 0) {
15013                         rval = ERANGE;
15014                         break;
15015                 }
15016 
15017                 len = ext_pos_info->parameter_len;
15018                 FIX_ENDIAN16(&len);
15019 
15020                 if (len != 0x1c) {
15021                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
15022                             "EXT_POS parameter_len should be 0x1c was 0x%x\n",
15023                             len);
15024                         rval = ENOTTY;
15025                         break;
15026                 }
15027 
15028                 /* Is block position information valid */
15029                 if (ext_pos_info->blk_posi_unkwn == 0) {
15030 
15031                         value = ext_pos_info->host_block;
15032                         FIX_ENDIAN64(&value);
15033                         if ((ext_pos_info->begin_of_part == 1) &&
15034                             (value != 0)) {
15035                                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
15036                                     "EXT_POS returned begining of partition but"
15037                                     " the host block was 0x%"PRIx64"\n", value);
15038                                 rval = ENOTTY;
15039                                 break;
15040                         }
15041 
15042                         if (dest->lgclblkno != value) {
15043                                 if (flag)
15044                                         flag++;
15045                                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
15046                                     "EXT_POS current logical 0x%"PRIx64
15047                                     " read 0x%"PRIx64"\n",
15048                                     dest->lgclblkno, value);
15049                         }
15050                         dest->lgclblkno = value;
15051 
15052                         /*
15053                          * If the begining of partition is true and the
15054                          * block number is zero we will beleive that it is
15055                          * rewound. Promote the pmode to legacy.
15056                          */
15057                         if ((ext_pos_info->begin_of_part == 1) &&
15058                             (ext_pos_info->host_block == 0)) {
15059                                 dest->blkno = 0;
15060                                 dest->fileno = 0;
15061                                 if (dest->pmode != legacy) {
15062                                         dest->pmode = legacy;
15063                                 }
15064                         /*
15065                          * otherwise if the pmode was invalid,
15066                          * promote it to logical.
15067                          */
15068                         } else if (dest->pmode == invalid) {
15069                                 dest->pmode = logical;
15070                         }
15071 
15072                         if (dest->partition != ext_pos_info->partition) {
15073                                 if (flag)
15074                                         flag++;
15075                                 ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
15076                                     "EXT_POS current partition %d read %d\n",
15077                                     dest->partition,
15078                                     ext_pos_info->partition);
15079                         }
15080                         dest->partition = ext_pos_info->partition;
15081 
15082                 } else {
15083                         dest->pmode = invalid;
15084                 }
15085                 break;
15086         }
15087 
15088         default:
15089                 ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
15090                     "Got unexpected SCMD_READ_POSITION type %d\n", type);
15091                 rval = EIO;
15092         }
15093 
15094         if ((flag > 1) && (rval == 0) && (org.pmode != invalid)) {
15095                 st_print_position(ST_DEVINFO, st_label, CE_NOTE,
15096                     "position read in", &org);
15097                 st_print_position(ST_DEVINFO, st_label, CE_NOTE,
15098                     "position read out", dest);
15099         }
15100 
15101         return (rval);
15102 }
15103 
15104 static int
15105 st_logical_block_locate(struct scsi_tape *un, ubufunc_t ubf, tapepos_t *pos,
15106     uint64_t lblk, uchar_t partition)
15107 {
15108         int rval;
15109         char cdb[CDB_GROUP4];
15110         struct uscsi_cmd *cmd;
15111         struct scsi_extended_sense sense;
15112         bufunc_t bf = (ubf == st_uscsi_cmd) ? st_cmd : st_rcmd;
15113 
15114         ST_FUNC(ST_DEVINFO, st_logical_block_locate);
15115         /*
15116          * Not sure what to do when doing recovery and not wanting
15117          * to update un_pos
15118          */
15119 
15120         cmd = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
15121 
15122         if (lblk <= INT32_MAX) {
15123                 cmd->uscsi_cdblen = CDB_GROUP1;
15124                 cdb[0] = SCMD_LOCATE;
15125                 cdb[1] = pos->partition == partition ? 0 : 2;
15126                 cdb[2] = 0;
15127                 cdb[3] = (char)(lblk >> 24);
15128                 cdb[4] = (char)(lblk >> 16);
15129                 cdb[5] = (char)(lblk >> 8);
15130                 cdb[6] = (char)(lblk);
15131                 cdb[7] = 0;
15132                 cdb[8] = partition;
15133                 cdb[9] = 0;
15134         } else {
15135                 /*
15136                  * If the drive doesn't give a 64 bit read position data
15137                  * it is unlikely it will accept 64 bit locates.
15138                  */
15139                 if (un->un_read_pos_type != LONG_POS) {
15140                         kmem_free(cmd, sizeof (struct uscsi_cmd));
15141                         return (ERANGE);
15142                 }
15143                 cmd->uscsi_cdblen = CDB_GROUP4;
15144                 cdb[0] = (char)SCMD_LOCATE_G4;
15145                 cdb[1] = pos->partition == partition ? 0 : 2;
15146                 cdb[2] = 0;
15147                 cdb[3] = partition;
15148                 cdb[4] = (char)(lblk >> 56);
15149                 cdb[5] = (char)(lblk >> 48);
15150                 cdb[6] = (char)(lblk >> 40);
15151                 cdb[7] = (char)(lblk >> 32);
15152                 cdb[8] = (char)(lblk >> 24);
15153                 cdb[9] = (char)(lblk >> 16);
15154                 cdb[10] = (char)(lblk >> 8);
15155                 cdb[11] = (char)(lblk);
15156                 cdb[12] = 0;
15157                 cdb[13] = 0;
15158                 cdb[14] = 0;
15159                 cdb[15] = 0;
15160         }
15161 
15162 
15163         cmd->uscsi_flags = USCSI_WRITE | USCSI_DIAGNOSE | USCSI_RQENABLE;
15164         cmd->uscsi_rqbuf = (caddr_t)&sense;
15165         cmd->uscsi_rqlen = sizeof (sense);
15166         cmd->uscsi_timeout = un->un_dp->space_timeout;
15167         cmd->uscsi_cdb = cdb;
15168 
15169         rval = ubf(un, cmd, FKIOCTL);
15170 
15171         pos->pmode = logical;
15172         pos->eof = ST_NO_EOF;
15173 
15174         if (lblk > INT32_MAX) {
15175                 /*
15176                  * XXX This is a work around till we handle Descriptor format
15177                  * sense data. Since we are sending a command where the standard
15178                  * sense data can not correctly represent a correct residual in
15179                  * 4 bytes.
15180                  */
15181                 if (un->un_status == KEY_ILLEGAL_REQUEST) {
15182                         scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
15183                             "Big LOCATE ILLEGAL_REQUEST: rval = %d\n", rval);
15184                         /* Doesn't like big locate command */
15185                         un->un_status = 0;
15186                         rval = ERANGE;
15187                 } else if ((un->un_pos.pmode == invalid) || (rval != 0)) {
15188                         /* Aborted big locate command */
15189                         scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
15190                             "Big LOCATE resulted in invalid pos: rval = %d\n",
15191                             rval);
15192                         un->un_status = 0;
15193                         rval = EIO;
15194                 } else if (st_update_block_pos(un, bf, 1)) {
15195                         /* read position failed */
15196                         scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
15197                             "Big LOCATE and read pos: rval = %d\n", rval);
15198                         rval = EIO;
15199                 } else if (lblk > un->un_pos.lgclblkno) {
15200                         /* read position worked but position was not expected */
15201                         scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
15202                             "Big LOCATE and recover read less then desired 0x%"
15203                             PRIx64"\n", un->un_pos.lgclblkno);
15204                         un->un_err_resid = lblk - un->un_pos.lgclblkno;
15205                         un->un_status = KEY_BLANK_CHECK;
15206                         rval = ESPIPE;
15207                 } else if (lblk == un->un_pos.lgclblkno) {
15208                         /* read position was what was expected */
15209                         scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
15210                             "Big LOCATE and recover seems to have worked\n");
15211                         un->un_err_resid = 0;
15212                         rval = 0;
15213                 } else {
15214                         ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
15215                             "BIGLOCATE end up going backwards");
15216                         un->un_err_resid = lblk;
15217                         rval = EIO;
15218                 }
15219 
15220         } else if (rval == 0) {
15221                 /* Worked as requested */
15222                 pos->lgclblkno = lblk;
15223 
15224         } else if (((cmd->uscsi_status & ST_STATUS_MASK) == STATUS_CHECK) &&
15225             (cmd->uscsi_resid != 0)) {
15226                 /* Got part way there but wasn't enough blocks on tape */
15227                 pos->lgclblkno = lblk - cmd->uscsi_resid;
15228                 un->un_err_resid = cmd->uscsi_resid;
15229                 un->un_status = KEY_BLANK_CHECK;
15230                 rval = ESPIPE;
15231 
15232         } else if (st_update_block_pos(un, bf, 1) == 0) {
15233                 /* Got part way there but drive didn't tell what we missed by */
15234                 un->un_err_resid = lblk - pos->lgclblkno;
15235                 un->un_status = KEY_BLANK_CHECK;
15236                 rval = ESPIPE;
15237 
15238         } else {
15239                 scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
15240                     "Failed LOCATE and recover pos: rval = %d status = %d\n",
15241                     rval, cmd->uscsi_status);
15242                 un->un_err_resid = lblk;
15243                 un->un_status = KEY_ILLEGAL_REQUEST;
15244                 pos->pmode = invalid;
15245                 rval = EIO;
15246         }
15247 
15248         kmem_free(cmd, sizeof (struct uscsi_cmd));
15249 
15250         return (rval);
15251 }
15252 
15253 static int
15254 st_mtfsf_ioctl(struct scsi_tape *un, int64_t files)
15255 {
15256         int rval;
15257 
15258         ST_FUNC(ST_DEVINFO, st_mtfsf_ioctl);
15259 
15260 
15261         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15262             "st_mtfsf_ioctl: count=%"PRIx64", eof=%x\n", files, un->un_pos.eof);
15263 #if 0
15264         if ((IN_EOF(un->un_pos)) && (files == 1)) {
15265                 un->un_pos.fileno++;
15266                 un->un_pos.blkno = 0;
15267                 return (0);
15268         }
15269 #endif
15270         /* pmode == invalid already handled */
15271         if (un->un_pos.pmode == legacy) {
15272                 /*
15273                  * forward space over filemark
15274                  *
15275                  * For ASF we allow a count of 0 on fsf which means
15276                  * we just want to go to beginning of current file.
15277                  * Equivalent to "nbsf(0)" or "bsf(1) + fsf".
15278                  * Allow stepping over double fmk with reel
15279                  */
15280                 if ((un->un_pos.eof >= ST_EOT) &&
15281                     (files > 0) &&
15282                     ((un->un_dp->options & ST_REEL) == 0)) {
15283                         /* we're at EOM */
15284                         un->un_err_resid = files;
15285                         un->un_status = KEY_BLANK_CHECK;
15286                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15287                             "st_mtfsf_ioctl: EIO : MTFSF at EOM");
15288                         return (EIO);
15289                 }
15290 
15291                 /*
15292                  * physical tape position may not be what we've been
15293                  * telling the user; adjust the request accordingly
15294                  */
15295                 if (IN_EOF(un->un_pos)) {
15296                         un->un_pos.fileno++;
15297                         un->un_pos.blkno = 0;
15298                         /*
15299                          * For positive direction case, we're now covered.
15300                          * For zero or negative direction, we're covered
15301                          * (almost)
15302                          */
15303                         files--;
15304                 }
15305 
15306         }
15307 
15308         if (st_check_density_or_wfm(un->un_dev, 1, B_READ, STEPBACK)) {
15309                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15310                     "st_mtfsf_ioctl: EIO : MTFSF density/wfm failed");
15311                 return (EIO);
15312         }
15313 
15314 
15315         /*
15316          * Forward space file marks.
15317          * We leave ourselves at block zero
15318          * of the target file number.
15319          */
15320         if (files < 0) {
15321                 rval = st_backward_space_files(un, -files, 0);
15322         } else {
15323                 rval = st_forward_space_files(un, files);
15324         }
15325 
15326         return (rval);
15327 }
15328 
15329 static int
15330 st_forward_space_files(struct scsi_tape *un, int64_t count)
15331 {
15332         int rval;
15333 
15334         ST_FUNC(ST_DEVINFO, st_forward_space_files);
15335 
15336         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15337             "fspace: count=%"PRIx64", eof=%x\n", count, un->un_pos.eof);
15338 
15339         ASSERT(count >= 0);
15340         ASSERT(un->un_pos.pmode != invalid);
15341 
15342         /*
15343          * A space with a count of zero means take me to the start of file.
15344          */
15345         if (count == 0) {
15346 
15347                 /* Hay look were already there */
15348                 if (un->un_pos.pmode == legacy && un->un_pos.blkno == 0) {
15349                         un->un_err_resid = 0;
15350                         COPY_POS(&un->un_err_pos, &un->un_pos);
15351                         return (0);
15352                 }
15353 
15354                 /*
15355                  * Well we are in the first file.
15356                  * A rewind will get to the start.
15357                  */
15358                 if (un->un_pos.pmode == legacy && un->un_pos.fileno == 0) {
15359                         rval = st_cmd(un, SCMD_REWIND, 0, SYNC_CMD);
15360 
15361                 /*
15362                  * Can we backspace to get there?
15363                  * This should work in logical mode.
15364                  */
15365                 } else if (un->un_dp->options & ST_BSF) {
15366                         rval = st_space_to_begining_of_file(un);
15367 
15368                 /*
15369                  * Can't back space but current file number is known,
15370                  * So rewind and space from the begining of the partition.
15371                  */
15372                 } else if (un->un_pos.pmode == legacy) {
15373                         rval = st_scenic_route_to_begining_of_file(un,
15374                             un->un_pos.fileno);
15375 
15376                 /*
15377                  * pmode is logical and ST_BSF is not set.
15378                  * The LONG_POS read position contains the fileno.
15379                  * If the read position works, rewind and space.
15380                  */
15381                 } else if (un->un_read_pos_type == LONG_POS) {
15382                         rval = st_cmd(un, SCMD_READ_POSITION, 0, SYNC_CMD);
15383                         if (rval) {
15384                                 /*
15385                                  * We didn't get the file position from the
15386                                  * read position command.
15387                                  * We are going to trust the drive to backspace
15388                                  * and then position after the filemark.
15389                                  */
15390                                 rval = st_space_to_begining_of_file(un);
15391                         }
15392                         rval = st_interpret_read_pos(un, &un->un_pos, LONG_POS,
15393                             32, (caddr_t)un->un_read_pos_data, 0);
15394                         if ((rval) && (un->un_pos.pmode == invalid)) {
15395                                 rval = st_space_to_begining_of_file(un);
15396                         } else {
15397                                 rval = st_scenic_route_to_begining_of_file(un,
15398                                     un->un_pos.fileno);
15399                         }
15400                 } else {
15401                         rval = EIO;
15402                 }
15403                 /*
15404                  * If something didn't work we are lost
15405                  */
15406                 if (rval != 0) {
15407                         un->un_pos.pmode = invalid;
15408                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15409                             "st_mtioctop : EIO : fspace pmode invalid");
15410 
15411                         rval = EIO;
15412                 }
15413 
15414         } else {
15415                 rval = st_space_fmks(un, count);
15416         }
15417 
15418         if (rval != EIO && count < 0) {
15419                 /*
15420                  * we came here with a count < 0; we now need
15421                  * to skip back to end up before the filemark
15422                  */
15423                 rval = st_backward_space_files(un, 1, 1);
15424         }
15425 
15426         return (rval);
15427 }
15428 
15429 static int
15430 st_scenic_route_to_begining_of_file(struct scsi_tape *un, int32_t fileno)
15431 {
15432         int rval;
15433 
15434         ST_FUNC(ST_DEVINFO, st_scenic_route_to_begining_of_file);
15435 
15436         if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD)) {
15437                 rval = EIO;
15438         } else if (st_cmd(un, SCMD_SPACE, Fmk(fileno), SYNC_CMD)) {
15439                 rval = EIO;
15440         }
15441 
15442         return (rval);
15443 }
15444 
15445 static int
15446 st_space_to_begining_of_file(struct scsi_tape *un)
15447 {
15448         int rval;
15449 
15450         ST_FUNC(ST_DEVINFO, st_space_to_begining_of_file);
15451 
15452         /*
15453          * Back space of the file at the begining of the file.
15454          */
15455         rval = st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD);
15456         if (rval) {
15457                 rval = EIO;
15458                 return (rval);
15459         }
15460 
15461         /*
15462          * Other interesting answers might be crashed BOT which isn't bad.
15463          */
15464         if (un->un_status == SUN_KEY_BOT) {
15465                 return (rval);
15466         }
15467 
15468         un->un_running.pmode = invalid;
15469 
15470         /*
15471          * Now we are on the BOP side of the filemark. Forward space to
15472          * the EOM side and we are at the begining of the file.
15473          */
15474         rval = st_cmd(un, SCMD_SPACE, Fmk(1), SYNC_CMD);
15475         if (rval) {
15476                 rval = EIO;
15477         }
15478 
15479         return (rval);
15480 }
15481 
15482 static int
15483 st_mtfsr_ioctl(struct scsi_tape *un, int64_t count)
15484 {
15485 
15486         ST_FUNC(ST_DEVINFO, st_mtfsr_ioctl);
15487 
15488         /*
15489          * forward space to inter-record gap
15490          *
15491          */
15492 
15493         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15494             "st_ioctl_fsr: count=%"PRIx64", eof=%x\n", count, un->un_pos.eof);
15495 
15496         if (un->un_pos.pmode == legacy) {
15497                 /*
15498                  * If were are at end of tape and count is forward.
15499                  * Return blank check.
15500                  */
15501                 if ((un->un_pos.eof >= ST_EOT) && (count > 0)) {
15502                         /* we're at EOM */
15503                         un->un_err_resid = count;
15504                         un->un_status = KEY_BLANK_CHECK;
15505                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15506                             "st_mtfsr_ioctl: EIO : MTFSR eof > ST_EOT");
15507                         return (EIO);
15508                 }
15509 
15510                 /*
15511                  * If count is zero there is nothing to do.
15512                  */
15513                 if (count == 0) {
15514                         un->un_err_pos.fileno = un->un_pos.fileno;
15515                         un->un_err_pos.blkno = un->un_pos.blkno;
15516                         un->un_err_resid = 0;
15517                         if (IN_EOF(un->un_pos) && SVR4_BEHAVIOR) {
15518                                 un->un_status = SUN_KEY_EOF;
15519                         }
15520                         return (0);
15521                 }
15522 
15523                 /*
15524                  * physical tape position may not be what we've been
15525                  * telling the user; adjust the position accordingly
15526                  */
15527                 if (IN_EOF(un->un_pos)) {
15528                         daddr_t blkno = un->un_pos.blkno;
15529                         int fileno = un->un_pos.fileno;
15530 
15531                         optype lastop = un->un_lastop;
15532                         if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD)
15533                             == -1) {
15534                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15535                                     "st_mtfsr_ioctl:EIO:MTFSR count && IN_EOF");
15536                                 return (EIO);
15537                         }
15538 
15539                         un->un_pos.blkno = blkno;
15540                         un->un_pos.fileno = fileno;
15541                         un->un_lastop = lastop;
15542                 }
15543         }
15544 
15545         if (st_check_density_or_wfm(un->un_dev, 1, B_READ, STEPBACK)) {
15546                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15547                     "st_mtfsr_ioctl: EIO : MTFSR st_check_den");
15548                 return (EIO);
15549         }
15550 
15551         return (st_space_records(un, count));
15552 }
15553 
15554 static int
15555 st_space_records(struct scsi_tape *un, int64_t count)
15556 {
15557         int64_t dblk;
15558         int rval = 0;
15559 
15560         ST_FUNC(ST_DEVINFO, st_space_records);
15561 
15562         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15563             "st_space_records: count=%"PRIx64", eof=%x\n",
15564             count, un->un_pos.eof);
15565 
15566         if (un->un_pos.pmode == logical) {
15567                 rval = st_cmd(un, SCMD_SPACE, Blk(count), SYNC_CMD);
15568                 if (rval != 0) {
15569                         rval = EIO;
15570                 }
15571                 return (rval);
15572         }
15573 
15574         dblk = count + un->un_pos.blkno;
15575 
15576         /* Already there */
15577         if (dblk == un->un_pos.blkno) {
15578                 un->un_err_resid = 0;
15579                 COPY_POS(&un->un_err_pos, &un->un_pos);
15580                 return (0);
15581         }
15582 
15583         /*
15584          * If the destination block is forward
15585          * or the drive will backspace records.
15586          */
15587         if (un->un_pos.blkno < dblk || (un->un_dp->options & ST_BSR)) {
15588                 /*
15589                  * If we're spacing forward, or the device can
15590                  * backspace records, we can just use the SPACE
15591                  * command.
15592                  */
15593                 dblk -= un->un_pos.blkno;
15594                 if (st_cmd(un, SCMD_SPACE, Blk(dblk), SYNC_CMD)) {
15595                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15596                             "st_space_records:EIO:space_records can't spc");
15597                         rval = EIO;
15598                 } else if (un->un_pos.eof >= ST_EOF_PENDING) {
15599                         /*
15600                          * check if we hit BOT/EOT
15601                          */
15602                         if (dblk < 0 && un->un_pos.eof == ST_EOM) {
15603                                 un->un_status = SUN_KEY_BOT;
15604                                 un->un_pos.eof = ST_NO_EOF;
15605                         } else if (dblk < 0 &&
15606                             un->un_pos.eof == ST_EOF_PENDING) {
15607                                 int residue = un->un_err_resid;
15608                                 /*
15609                                  * we skipped over a filemark
15610                                  * and need to go forward again
15611                                  */
15612                                 if (st_cmd(un, SCMD_SPACE, Fmk(1), SYNC_CMD)) {
15613                                         ST_DEBUG2(ST_DEVINFO, st_label,
15614                                             SCSI_DEBUG, "st_space_records: EIO"
15615                                             " : can't space #2");
15616                                         rval = EIO;
15617                                 }
15618                                 un->un_err_resid = residue;
15619                         }
15620                         if (rval == 0) {
15621                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15622                                     "st_space_records: EIO : space_rec rval"
15623                                     " == 0");
15624                                 rval = EIO;
15625                         }
15626                 }
15627         } else {
15628                 /*
15629                  * else we rewind, space forward across filemarks to
15630                  * the desired file, and then space records to the
15631                  * desired block.
15632                  */
15633 
15634                 int dfile = un->un_pos.fileno;       /* save current file */
15635 
15636                 if (dblk < 0) {
15637                         /*
15638                          * Wups - we're backing up over a filemark
15639                          */
15640                         if (un->un_pos.blkno != 0 &&
15641                             (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD) ||
15642                             st_cmd(un, SCMD_SPACE, Fmk(dfile), SYNC_CMD))) {
15643                                 un->un_pos.pmode = invalid;
15644                         }
15645                         un->un_err_resid = -dblk;
15646                         if (un->un_pos.fileno == 0 && un->un_pos.blkno == 0) {
15647                                 un->un_status = SUN_KEY_BOT;
15648                                 un->un_pos.eof = ST_NO_EOF;
15649                         } else if (un->un_pos.fileno > 0) {
15650                                 un->un_status = SUN_KEY_EOF;
15651                                 un->un_pos.eof = ST_NO_EOF;
15652                         }
15653                         COPY_POS(&un->un_err_pos, &un->un_pos);
15654                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15655                             "st_space_records:EIO:space_records : dblk < 0");
15656                         rval = EIO;
15657                 } else if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD) ||
15658                     st_cmd(un, SCMD_SPACE, Fmk(dfile), SYNC_CMD) ||
15659                     st_cmd(un, SCMD_SPACE, Blk(dblk), SYNC_CMD)) {
15660                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15661                             "st_space_records: EIO :space_records : rewind "
15662                             "and space failed");
15663                         un->un_pos.pmode = invalid;
15664                         rval = EIO;
15665                 }
15666         }
15667 
15668         return (rval);
15669 }
15670 
15671 static int
15672 st_mtbsf_ioctl(struct scsi_tape *un, int64_t files)
15673 {
15674         ST_FUNC(ST_DEVINFO, st_mtbsf_ioctl);
15675 
15676         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15677             "st_mtbsf_ioctl: count=%"PRIx64", eof=%x\n", files, un->un_pos.eof);
15678         /*
15679          * backward space of file filemark (1/2" and 8mm)
15680          * tape position will end on the beginning of tape side
15681          * of the desired file mark
15682          */
15683         if ((un->un_dp->options & ST_BSF) == 0) {
15684                 return (ENOTTY);
15685         }
15686 
15687         if (un->un_pos.pmode == legacy) {
15688 
15689                 /*
15690                  * If a negative count (which implies a forward space op)
15691                  * is specified, and we're at logical or physical eot,
15692                  * bounce the request.
15693                  */
15694 
15695                 if (un->un_pos.eof >= ST_EOT && files < 0) {
15696                         un->un_err_resid = files;
15697                         un->un_status = SUN_KEY_EOT;
15698                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15699                             "st_ioctl_mt_bsf : EIO : MTBSF : eof > ST_EOF");
15700                         return (EIO);
15701                 }
15702                 /*
15703                  * physical tape position may not be what we've been
15704                  * telling the user; adjust the request accordingly
15705                  */
15706                 if (IN_EOF(un->un_pos)) {
15707                         un->un_pos.fileno++;
15708                         un->un_pos.blkno = 0;
15709                         files++;
15710                         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15711                             "st_mtbsf_ioctl in eof: count=%"PRIx64", op=%x\n",
15712                             files, MTBSF);
15713 
15714                 }
15715         }
15716 
15717         if (st_check_density_or_wfm(un->un_dev, 1, 0, STEPBACK)) {
15718                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15719                     "st_ioctl : EIO : MTBSF : check den wfm");
15720                 return (EIO);
15721         }
15722 
15723         if (files <= 0) {
15724                 /*
15725                  * for a negative count, we need to step forward
15726                  * first and then step back again
15727                  */
15728                 files = -files + 1;
15729                 return (st_forward_space_files(un, files));
15730         }
15731         return (st_backward_space_files(un, files, 1));
15732 }
15733 
15734 static int
15735 st_backward_space_files(struct scsi_tape *un, int64_t count, int infront)
15736 {
15737         int64_t end_fileno;
15738         int64_t skip_cnt;
15739         int rval = 0;
15740 
15741         ST_FUNC(ST_DEVINFO, st_backward_space_files);
15742 
15743         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15744             "st_backward_space_files: count=%"PRIx64" eof=%x\n",
15745             count, un->un_pos.eof);
15746         /*
15747          * Backspace files (MTNBSF): infront == 0
15748          *
15749          *      For tapes that can backspace, backspace
15750          *      count+1 filemarks and then run forward over
15751          *      a filemark
15752          *
15753          *      For tapes that can't backspace,
15754          *              calculate desired filenumber
15755          *              (un->un_pos.fileno - count), rewind,
15756          *              and then space forward this amount
15757          *
15758          * Backspace filemarks (MTBSF) infront == 1
15759          *
15760          *      For tapes that can backspace, backspace count
15761          *      filemarks
15762          *
15763          *      For tapes that can't backspace, calculate
15764          *      desired filenumber (un->un_pos.fileno - count),
15765          *      add 1, rewind, space forward this amount,
15766          *      and mark state as ST_EOF_PENDING appropriately.
15767          */
15768 
15769         if (un->un_pos.pmode == logical) {
15770 
15771                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15772                     "st_backward_space_files: mt_op=%x count=%"PRIx64
15773                     "lgclblkno=%"PRIx64"\n", infront?MTBSF:MTNBSF, count,
15774                     un->un_pos.lgclblkno);
15775 
15776 
15777                 /* In case a drive that won't back space gets in logical mode */
15778                 if ((un->un_dp->options & ST_BSF) == 0) {
15779                         rval = EIO;
15780                         return (rval);
15781                 }
15782                 if ((infront == 1) &&
15783                     (st_cmd(un, SCMD_SPACE, Fmk(-count), SYNC_CMD))) {
15784                         rval = EIO;
15785                         return (rval);
15786                 } else if ((infront == 0) &&
15787                     (st_cmd(un, SCMD_SPACE, Fmk((-count)-1), SYNC_CMD)) &&
15788                     (st_cmd(un, SCMD_SPACE, Fmk(1), SYNC_CMD))) {
15789                         rval = EIO;
15790                         return (rval);
15791                 }
15792                 return (rval);
15793         }
15794 
15795         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15796             "st_backward_space_files: mt_op=%x count=%"PRIx64
15797             "fileno=%x blkno=%x\n",
15798             infront?MTBSF:MTNBSF, count, un->un_pos.fileno, un->un_pos.blkno);
15799 
15800 
15801 
15802         /*
15803          * Handle the simple case of BOT
15804          * playing a role in these cmds.
15805          * We do this by calculating the
15806          * ending file number. If the ending
15807          * file is < BOT, rewind and set an
15808          * error and mark resid appropriately.
15809          * If we're backspacing a file (not a
15810          * filemark) and the target file is
15811          * the first file on the tape, just
15812          * rewind.
15813          */
15814 
15815         /* figure expected destination of this SPACE command */
15816         end_fileno = un->un_pos.fileno - count;
15817 
15818         /*
15819          * Would the end effect of this SPACE be the same as rewinding?
15820          * If so just rewind instead.
15821          */
15822         if ((infront != 0) && (end_fileno < 0) ||
15823             (infront == 0) && (end_fileno <= 0)) {
15824                 if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD)) {
15825                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15826                             "st_backward_space_files: EIO : "
15827                             "rewind in lou of BSF failed\n");
15828                         rval = EIO;
15829                 }
15830                 if (end_fileno < 0) {
15831                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15832                             "st_backward_space_files: EIO : "
15833                             "back space file greater then fileno\n");
15834                         rval = EIO;
15835                         un->un_err_resid = -end_fileno;
15836                         un->un_status = SUN_KEY_BOT;
15837                 }
15838                 return (rval);
15839         }
15840 
15841         if (un->un_dp->options & ST_BSF) {
15842                 skip_cnt = 1 - infront;
15843                 /*
15844                  * If we are going to end up at the beginning
15845                  * of the file, we have to space one extra file
15846                  * first, and then space forward later.
15847                  */
15848                 end_fileno = -(count + skip_cnt);
15849                 ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
15850                     "skip_cnt=%"PRIx64", tmp=%"PRIx64"\n",
15851                     skip_cnt, end_fileno);
15852                 if (st_cmd(un, SCMD_SPACE, Fmk(end_fileno), SYNC_CMD)) {
15853                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15854                             "st_backward_space_files:EIO:back space fm failed");
15855                         rval = EIO;
15856                 }
15857         } else {
15858                 if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD)) {
15859                         rval = EIO;
15860                 } else {
15861                         skip_cnt = end_fileno + infront;
15862                 }
15863         }
15864 
15865         /*
15866          * If we have to space forward, do so...
15867          */
15868         ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
15869             "space forward skip_cnt=%"PRIx64", rval=%x\n", skip_cnt, rval);
15870 
15871         if (rval == 0 && skip_cnt) {
15872                 if (st_cmd(un, SCMD_SPACE, Fmk(skip_cnt), SYNC_CMD)) {
15873                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15874                             "st_backward_space_files:EIO:space fm skip count");
15875                         rval = EIO;
15876                 } else if (infront) {
15877                         /*
15878                          * If we had to space forward, and we're
15879                          * not a tape that can backspace, mark state
15880                          * as if we'd just seen a filemark during a
15881                          * a read.
15882                          */
15883                         if ((un->un_dp->options & ST_BSF) == 0) {
15884                                 un->un_pos.eof = ST_EOF_PENDING;
15885                                 un->un_pos.fileno -= 1;
15886                                 un->un_pos.blkno = LASTBLK;
15887                                 un->un_running.pmode = invalid;
15888                         }
15889                 }
15890         }
15891 
15892         if (rval != 0) {
15893                 un->un_pos.pmode = invalid;
15894         }
15895 
15896         return (rval);
15897 }
15898 
15899 static int
15900 st_mtnbsf_ioctl(struct scsi_tape *un, int64_t count)
15901 {
15902         int rval;
15903 
15904         ST_FUNC(ST_DEVINFO, st_mtnbsf_ioctl);
15905 
15906         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15907             "nbsf: count=%"PRIx64", eof=%x\n", count, un->un_pos.eof);
15908 
15909         if (un->un_pos.pmode == legacy) {
15910                 /*
15911                  * backward space file to beginning of file
15912                  *
15913                  * If a negative count (which implies a forward space op)
15914                  * is specified, and we're at logical or physical eot,
15915                  * bounce the request.
15916                  */
15917 
15918                 if (un->un_pos.eof >= ST_EOT && count < 0) {
15919                         un->un_err_resid = count;
15920                         un->un_status = SUN_KEY_EOT;
15921                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15922                             "st_ioctl : EIO : > EOT and count < 0");
15923                         return (EIO);
15924                 }
15925                 /*
15926                  * physical tape position may not be what we've been
15927                  * telling the user; adjust the request accordingly
15928                  */
15929                 if (IN_EOF(un->un_pos)) {
15930                         un->un_pos.fileno++;
15931                         un->un_pos.blkno = 0;
15932                         count++;
15933                 }
15934         }
15935 
15936         if (st_check_density_or_wfm(un->un_dev, 1, 0, STEPBACK)) {
15937                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15938                     "st_ioctl : EIO : MTNBSF check den and wfm");
15939                 return (EIO);
15940         }
15941 
15942         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15943             "mtnbsf: count=%"PRIx64", eof=%x\n", count, un->un_pos.eof);
15944 
15945         if (count <= 0) {
15946                 rval = st_forward_space_files(un, -count);
15947         } else {
15948                 rval = st_backward_space_files(un, count, 0);
15949         }
15950         return (rval);
15951 }
15952 
15953 static int
15954 st_mtbsr_ioctl(struct scsi_tape *un, int64_t num)
15955 {
15956         ST_FUNC(ST_DEVINFO, st_mtbsr_ioctl);
15957 
15958         ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15959             "bsr: count=%"PRIx64", eof=%x\n", num, un->un_pos.eof);
15960 
15961         if (un->un_pos.pmode == legacy) {
15962                 /*
15963                  * backward space into inter-record gap
15964                  *
15965                  * If a negative count (which implies a forward space op)
15966                  * is specified, and we're at logical or physical eot,
15967                  * bounce the request.
15968                  */
15969                 if (un->un_pos.eof >= ST_EOT && num < 0) {
15970                         un->un_err_resid = num;
15971                         un->un_status = SUN_KEY_EOT;
15972                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15973                             "st_ioctl : EIO : MTBSR > EOT");
15974                         return (EIO);
15975                 }
15976 
15977                 if (num == 0) {
15978                         COPY_POS(&un->un_err_pos, &un->un_pos);
15979                         un->un_err_resid = 0;
15980                         if (IN_EOF(un->un_pos) && SVR4_BEHAVIOR) {
15981                                 un->un_status = SUN_KEY_EOF;
15982                         }
15983                         return (0);
15984                 }
15985 
15986                 /*
15987                  * physical tape position may not be what we've been
15988                  * telling the user; adjust the position accordingly.
15989                  * bsr can not skip filemarks and continue to skip records
15990                  * therefore if we are logically before the filemark but
15991                  * physically at the EOT side of the filemark, we need to step
15992                  * back; this allows fsr N where N > number of blocks in file
15993                  * followed by bsr 1 to position at the beginning of last block
15994                  */
15995                 if (IN_EOF(un->un_pos)) {
15996                         tapepos_t save;
15997                         optype lastop = un->un_lastop;
15998 
15999                         COPY_POS(&save, &un->un_pos);
16000                         if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD) == -1) {
16001                                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
16002                                     "st_mtbsr_ioctl: EIO : MTBSR can't space");
16003                                 return (EIO);
16004                         }
16005 
16006                         COPY_POS(&un->un_pos, &save);
16007                         un->un_lastop = lastop;
16008                 }
16009         }
16010 
16011         un->un_pos.eof = ST_NO_EOF;
16012 
16013         if (st_check_density_or_wfm(un->un_dev, 1, 0, STEPBACK)) {
16014                 ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
16015                     "st_ioctl : EIO : MTBSR : can't set density or wfm");
16016                 return (EIO);
16017         }
16018 
16019         num = -num;
16020         return (st_space_records(un, num));
16021 }
16022 
16023 static int
16024 st_mtfsfm_ioctl(struct scsi_tape *un, int64_t cnt)
16025 {
16026         int rval;
16027 
16028         ST_FUNC(ST_DEVINFO, st_mtfsfm_ioctl);
16029 
16030         rval = st_cmd(un, SCMD_SPACE, SPACE(SP_SQFLM, cnt), SYNC_CMD);
16031         if (rval == 0) {
16032                 un->un_pos.pmode = logical;
16033         } else if ((un->un_status == KEY_ILLEGAL_REQUEST) &&
16034             (un->un_sd->sd_sense->es_add_code == 0x24)) {
16035                 /*
16036                  * Drive says invalid field in cdb.
16037                  * Doesn't like space multiple. Position isn't lost.
16038                  */
16039                 un->un_err_resid = cnt;
16040                 un->un_status = 0;
16041                 rval = ENOTTY;
16042         } else {
16043                 un->un_err_resid = cnt;
16044                 un->un_pos.pmode = invalid;
16045         }
16046         return (rval);
16047 }
16048 
16049 static int
16050 st_mtbsfm_ioctl(struct scsi_tape *un, int64_t cnt)
16051 {
16052         int rval;
16053 
16054         ST_FUNC(ST_DEVINFO, st_mtbsfm_ioctl);
16055 
16056         rval = st_cmd(un, SCMD_SPACE, SPACE(SP_SQFLM, -cnt), SYNC_CMD);
16057         if (rval == 0) {
16058                 un->un_pos.pmode = logical;
16059         } else if ((un->un_status == KEY_ILLEGAL_REQUEST) &&
16060             (un->un_sd->sd_sense->es_add_code == 0x24)) {
16061                 /*
16062                  * Drive says invalid field in cdb.
16063                  * Doesn't like space multiple. Position isn't lost.
16064                  */
16065                 un->un_err_resid = cnt;
16066                 un->un_status = 0;
16067                 rval = ENOTTY;
16068         } else {
16069                 un->un_err_resid = cnt;
16070                 un->un_pos.pmode = invalid;
16071         }
16072         return (rval);
16073 }
16074 
16075 #ifdef  __x86
16076 
16077 /*
16078  * release contig_mem and wake up waiting thread, if any
16079  */
16080 static void
16081 st_release_contig_mem(struct scsi_tape *un, struct contig_mem *cp)
16082 {
16083         mutex_enter(ST_MUTEX);
16084 
16085         ST_FUNC(ST_DEVINFO, st_release_contig_mem);
16086 
16087         cp->cm_next = un->un_contig_mem;
16088         un->un_contig_mem = cp;
16089         un->un_contig_mem_available_num++;
16090         cv_broadcast(&un->un_contig_mem_cv);
16091 
16092         mutex_exit(ST_MUTEX);
16093 }
16094 
16095 /*
16096  * St_get_contig_mem will return a contig_mem if there is one available
16097  * in current system. Otherwise, it will try to alloc one, if the total
16098  * number of contig_mem is within st_max_contig_mem_num.
16099  * It will sleep, if allowed by caller or return NULL, if no contig_mem
16100  * is available for now.
16101  */
16102 static struct contig_mem *
16103 st_get_contig_mem(struct scsi_tape *un, size_t len, int alloc_flags)
16104 {
16105         size_t rlen;
16106         struct contig_mem *cp = NULL;
16107         ddi_acc_handle_t acc_hdl;
16108         caddr_t addr;
16109         int big_enough = 0;
16110         int (*dma_alloc_cb)() = (alloc_flags == KM_SLEEP) ?
16111             DDI_DMA_SLEEP : DDI_DMA_DONTWAIT;
16112 
16113         /* Try to get one available contig_mem */
16114         mutex_enter(ST_MUTEX);
16115 
16116         ST_FUNC(ST_DEVINFO, st_get_contig_mem);
16117 
16118         if (un->un_contig_mem_available_num > 0) {
16119                 ST_GET_CONTIG_MEM_HEAD(un, cp, len, big_enough);
16120         } else if (un->un_contig_mem_total_num < st_max_contig_mem_num) {
16121                 /*
16122                  * we failed to get one. we're going to
16123                  * alloc one more contig_mem for this I/O
16124                  */
16125                 mutex_exit(ST_MUTEX);
16126                 cp = (struct contig_mem *)kmem_zalloc(
16127                     sizeof (struct contig_mem) + biosize(),
16128                     alloc_flags);
16129                 if (cp == NULL) {
16130                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
16131                             "alloc contig_mem failure\n");
16132                         return (NULL); /* cannot get one */
16133                 }
16134                 cp->cm_bp = (struct buf *)
16135                     (((caddr_t)cp) + sizeof (struct contig_mem));
16136                 bioinit(cp->cm_bp);
16137                 mutex_enter(ST_MUTEX);
16138                 un->un_contig_mem_total_num++; /* one more available */
16139         } else {
16140                 /*
16141                  * we failed to get one and we're NOT allowed to
16142                  * alloc more contig_mem
16143                  */
16144                 if (alloc_flags == KM_SLEEP) {
16145                         while (un->un_contig_mem_available_num <= 0) {
16146                                 cv_wait(&un->un_contig_mem_cv, ST_MUTEX);
16147                         }
16148                         ST_GET_CONTIG_MEM_HEAD(un, cp, len, big_enough);
16149                 } else {
16150                         mutex_exit(ST_MUTEX);
16151                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
16152                             "alloc contig_mem failure\n");
16153                         return (NULL); /* cannot get one */
16154                 }
16155         }
16156         mutex_exit(ST_MUTEX);
16157 
16158         /* We need to check if this block of mem is big enough for this I/O */
16159         if (cp->cm_len < len) {
16160                 /* not big enough, need to alloc a new one */
16161                 if (ddi_dma_mem_alloc(un->un_contig_mem_hdl, len, &st_acc_attr,
16162                     DDI_DMA_STREAMING, dma_alloc_cb, NULL,
16163                     &addr, &rlen, &acc_hdl) != DDI_SUCCESS) {
16164                         ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
16165                             "alloc contig_mem failure: not enough mem\n");
16166                         st_release_contig_mem(un, cp);
16167                         cp = NULL;
16168                 } else {
16169                         if (cp->cm_addr) {
16170                                 /* release previous one before attach new one */
16171                                 ddi_dma_mem_free(&cp->cm_acc_hdl);
16172                         }
16173                         mutex_enter(ST_MUTEX);
16174                         un->un_max_contig_mem_len =
16175                             un->un_max_contig_mem_len >= len ?
16176                             un->un_max_contig_mem_len : len;
16177                         mutex_exit(ST_MUTEX);
16178 
16179                         /* attach new mem to this cp */
16180                         cp->cm_addr = addr;
16181                         cp->cm_acc_hdl = acc_hdl;
16182                         cp->cm_len = len;
16183 
16184                         goto alloc_ok; /* get one usable cp */
16185                 }
16186         } else {
16187                 goto alloc_ok; /* get one usable cp */
16188         }
16189 
16190         /* cannot find/alloc a usable cp, when we get here */
16191 
16192         mutex_enter(ST_MUTEX);
16193         if ((un->un_max_contig_mem_len < len) ||
16194             (alloc_flags != KM_SLEEP)) {
16195                 mutex_exit(ST_MUTEX);
16196                 return (NULL);
16197         }
16198 
16199         /*
16200          * we're allowed to sleep, and there is one big enough
16201          * contig mem in the system, which is currently in use,
16202          * wait for it...
16203          */
16204         big_enough = 1;
16205         do {
16206                 cv_wait(&un->un_contig_mem_cv, ST_MUTEX);
16207                 ST_GET_CONTIG_MEM_HEAD(un, cp, len, big_enough);
16208         } while (cp == NULL);
16209         mutex_exit(ST_MUTEX);
16210 
16211         /* we get the big enough contig mem, finally */
16212 
16213 alloc_ok:
16214         /* init bp attached to this cp */
16215         bioreset(cp->cm_bp);
16216         cp->cm_bp->b_un.b_addr = cp->cm_addr;
16217         cp->cm_bp->b_private = (void *)cp;
16218 
16219         return (cp);
16220 }
16221 
16222 /*
16223  * this is the biodone func for the bp used in big block I/O
16224  */
16225 static int
16226 st_bigblk_xfer_done(struct buf *bp)
16227 {
16228         struct contig_mem *cp;
16229         struct buf *orig_bp;
16230         int ioerr;
16231         struct scsi_tape *un;
16232 
16233         /* sanity check */
16234         if (bp == NULL) {
16235                 return (DDI_FAILURE);
16236         }
16237 
16238         un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
16239         if (un == NULL) {
16240                 return (DDI_FAILURE);
16241         }
16242 
16243         ST_FUNC(ST_DEVINFO, st_bigblk_xfer_done);
16244 
16245         cp = (struct contig_mem *)bp->b_private;
16246         orig_bp = cp->cm_bp; /* get back the bp we have replaced */
16247         cp->cm_bp = bp;
16248 
16249         /* special handling for special I/O */
16250         if (cp->cm_use_sbuf) {
16251 #ifndef __lock_lint
16252                 ASSERT(un->un_sbuf_busy);
16253 #endif
16254                 un->un_sbufp = orig_bp;
16255                 cp->cm_use_sbuf = 0;
16256         }
16257 
16258         orig_bp->b_resid = bp->b_resid;
16259         ioerr = geterror(bp);
16260         if (ioerr != 0) {
16261                 bioerror(orig_bp, ioerr);
16262         } else if (orig_bp->b_flags & B_READ) {
16263                 /* copy data back to original bp */
16264                 (void) bp_copyout(bp->b_un.b_addr, orig_bp, 0,
16265                     bp->b_bcount - bp->b_resid);
16266         }
16267 
16268         st_release_contig_mem(un, cp);
16269 
16270         biodone(orig_bp);
16271 
16272         return (DDI_SUCCESS);
16273 }
16274 
16275 /*
16276  * We use this func to replace original bp that may not be able to do I/O
16277  * in big block size with one that can
16278  */
16279 static struct buf *
16280 st_get_bigblk_bp(struct buf *bp)
16281 {
16282         struct contig_mem *cp;
16283         struct scsi_tape *un;
16284         struct buf *cont_bp;
16285 
16286         un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
16287         if (un == NULL) {
16288                 return (bp);
16289         }
16290 
16291         ST_FUNC(ST_DEVINFO, st_get_bigblk_bp);
16292 
16293         /* try to get one contig_mem */
16294         cp = st_get_contig_mem(un, bp->b_bcount, KM_SLEEP);
16295         if (!cp) {
16296                 scsi_log(ST_DEVINFO, st_label, CE_WARN,
16297                     "Cannot alloc contig buf for I/O for %lu blk size",
16298                     bp->b_bcount);
16299                 return (bp);
16300         }
16301         cont_bp = cp->cm_bp;
16302         cp->cm_bp = bp;
16303 
16304         /* make sure that we "are" using un_sbufp for special I/O */
16305         if (bp == un->un_sbufp) {
16306 #ifndef __lock_lint
16307                 ASSERT(un->un_sbuf_busy);
16308 #endif
16309                 un->un_sbufp = cont_bp;
16310                 cp->cm_use_sbuf = 1;
16311         }
16312 
16313         /* clone bp */
16314         cont_bp->b_bcount = bp->b_bcount;
16315         cont_bp->b_resid = bp->b_resid;
16316         cont_bp->b_iodone = st_bigblk_xfer_done;
16317         cont_bp->b_file = bp->b_file;
16318         cont_bp->b_offset = bp->b_offset;
16319         cont_bp->b_dip = bp->b_dip;
16320         cont_bp->b_error = 0;
16321         cont_bp->b_proc = NULL;
16322         cont_bp->b_flags = bp->b_flags & ~(B_PAGEIO | B_PHYS | B_SHADOW);
16323         cont_bp->b_shadow = NULL;
16324         cont_bp->b_pages = NULL;
16325         cont_bp->b_edev = bp->b_edev;
16326         cont_bp->b_dev = bp->b_dev;
16327         cont_bp->b_lblkno = bp->b_lblkno;
16328         cont_bp->b_forw = bp->b_forw;
16329         cont_bp->b_back = bp->b_back;
16330         cont_bp->av_forw = bp->av_forw;
16331         cont_bp->av_back = bp->av_back;
16332         cont_bp->b_bufsize = bp->b_bufsize;
16333 
16334         /* get data in original bp */
16335         if (bp->b_flags & B_WRITE) {
16336                 (void) bp_copyin(bp, cont_bp->b_un.b_addr, 0, bp->b_bcount);
16337         }
16338 
16339         return (cont_bp);
16340 }
16341 #else
16342 #ifdef __lock_lint
16343 static int
16344 st_bigblk_xfer_done(struct buf *bp)
16345 {
16346         return (0);
16347 }
16348 #endif
16349 #endif
16350 
16351 static const char *eof_status[] =
16352 {
16353         "NO_EOF",
16354         "EOF_PENDING",
16355         "EOF",
16356         "EOT_PENDING",
16357         "EOT",
16358         "EOM",
16359         "AFTER_EOM"
16360 };
16361 static const char *mode[] = {
16362         "invalid",
16363         "legacy",
16364         "logical"
16365 };
16366 
16367 static void
16368 st_print_position(dev_info_t *dev, char *label, uint_t level,
16369 const char *comment, tapepos_t *pos)
16370 {
16371         ST_FUNC(dev, st_print_position);
16372 
16373         scsi_log(dev, label, level,
16374             "%s Position data:\n", comment);
16375         scsi_log(dev, label, CE_CONT,
16376             "Positioning mode = %s", mode[pos->pmode]);
16377         scsi_log(dev, label, CE_CONT,
16378             "End Of File/Tape = %s", eof_status[pos->eof]);
16379         scsi_log(dev, label, CE_CONT,
16380             "File Number      = 0x%x", pos->fileno);
16381         scsi_log(dev, label, CE_CONT,
16382             "Block Number     = 0x%x", pos->blkno);
16383         scsi_log(dev, label, CE_CONT,
16384             "Logical Block    = 0x%"PRIx64, pos->lgclblkno);
16385         scsi_log(dev, label, CE_CONT,
16386             "Partition Number = 0x%x", pos->partition);
16387 }
16388 static int
16389 st_check_if_media_changed(struct scsi_tape *un, caddr_t data, int size)
16390 {
16391 
16392         int result = 0;
16393         int i;
16394         ST_FUNC(ST_DEVINFO, st_check_if_media_changed);
16395 
16396         /*
16397          * find non alpha numeric working from the end.
16398          */
16399         for (i = size - 1; i >= 0; i--) {
16400                 if (ISALNUM(data[i]) == 0 || data[i] == ' ') {
16401                         data[i] = 0;
16402                         size = i;
16403                 }
16404         }
16405 
16406         if (size == 1) {
16407                 /*
16408                  * Drive seems to think its returning useful data
16409                  * but it looks like all junk
16410                  */
16411                 return (result);
16412         }
16413 
16414         size++;
16415 
16416         /*
16417          * Actually got a valid serial number.
16418          * If never stored one before alloc space for it.
16419          */
16420         if (un->un_media_id_len == 0) {
16421                 un->un_media_id = kmem_zalloc(size, KM_SLEEP);
16422                 un->un_media_id_len = size;
16423                 (void) strncpy(un->un_media_id, data, min(size, strlen(data)));
16424                 un->un_media_id[min(size, strlen(data))] = 0;
16425                 ST_DEBUG1(ST_DEVINFO, st_label, SCSI_DEBUG,
16426                     "Found Media Id %s length = %d\n", un->un_media_id, size);
16427         } else if (size > un->un_media_id_len) {
16428                 if (strncmp(un->un_media_id, data, size) != 0) {
16429                         result = ESPIPE;
16430                 }
16431                 ST_DEBUG1(ST_DEVINFO, st_label, SCSI_DEBUG,
16432                     "Longer Media Id old ID:%s new ID:%s\n",
16433                     un->un_media_id, data);
16434                 kmem_free(un->un_media_id, un->un_media_id_len);
16435                 un->un_media_id = kmem_zalloc(size, KM_SLEEP);
16436                 un->un_media_id_len = size;
16437                 (void) strncpy(un->un_media_id, data, size);
16438                 un->un_media_id[size] = 0;
16439         } else if (strncmp(data, un->un_media_id,
16440             min(size, un->un_media_id_len)) != 0) {
16441                 ST_DEBUG1(ST_DEVINFO, st_label, SCSI_DEBUG,
16442                     "Old Media Id %s length = %d New %s length = %d\n",
16443                     un->un_media_id, un->un_media_id_len, data, size);
16444                 bzero(un->un_media_id, un->un_media_id_len);
16445                 (void) strncpy(un->un_media_id, data, min(size, strlen(data)));
16446                 un->un_media_id[min(size, strlen(data))] = 0;
16447                 result = ESPIPE;
16448         } else {
16449                 ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
16450                     "Media Id still %s\n", un->un_media_id);
16451         }
16452 
16453         ASSERT(strlen(un->un_media_id) <= size);
16454 
16455         return (result);
16456 }
16457 #define ID_SIZE 32
16458 typedef struct
16459 {
16460         uchar_t avilable_data0;
16461         uchar_t avilable_data1;
16462         uchar_t avilable_data2;
16463         uchar_t avilable_data3;
16464         uchar_t attribute_msb;
16465         uchar_t attribute_lsb;
16466 #ifdef _BIT_FIELDS_LTOH
16467         uchar_t format          : 2,
16468                                 : 5,
16469                 read_only       : 1;
16470 #else
16471         uchar_t read_only       : 1,
16472                                 : 5,
16473                 format          : 2;
16474 #endif
16475         uchar_t attribute_len_msb;
16476         uchar_t attribute_len_lsb;
16477 }attribute_header;
16478 
16479 typedef struct {
16480         attribute_header header;
16481         char data[1];
16482 }mam_attribute;
16483 
16484 static int
16485 st_handle_hex_media_id(struct scsi_tape *un, void *pnt, int size)
16486 {
16487         int result;
16488         int newsize = (size << 1) + 3; /* extra for leading 0x and null term */
16489         int i;
16490         uchar_t byte;
16491         char *format;
16492         uchar_t *data = (uchar_t *)pnt;
16493         char *buf = kmem_alloc(newsize, KM_SLEEP);
16494 
16495         ST_FUNC(ST_DEVINFO, st_handle_hex_media_id);
16496 
16497         (void) sprintf(buf, "0x");
16498         for (i = 0; i < size; i++) {
16499                 byte = data[i];
16500                 if (byte < 0x10)
16501                         format = "0%x";
16502                 else
16503                         format = "%x";
16504                 (void) sprintf(&buf[(int)strlen(buf)], format, byte);
16505         }
16506         result = st_check_if_media_changed(un, buf, newsize);
16507 
16508         kmem_free(buf, newsize);
16509 
16510         return (result);
16511 }
16512 
16513 
16514 static int
16515 st_get_media_id_via_read_attribute(struct scsi_tape *un, ubufunc_t bufunc)
16516 {
16517         int result;
16518         mam_attribute *buffer;
16519         int size;
16520         int newsize;
16521 
16522         ST_FUNC(ST_DEVINFO, st_get_media_id_via_read_attribute);
16523         size = sizeof (attribute_header) + max(un->un_media_id_len, ID_SIZE);
16524 again:
16525         buffer = kmem_zalloc(size, KM_SLEEP);
16526         result = st_read_attributes(un, 0x0401, buffer, size, bufunc);
16527         if (result == 0) {
16528 
16529                 newsize = (buffer->header.attribute_len_msb << 8) |
16530                     buffer->header.attribute_len_lsb;
16531 
16532                 if (newsize + sizeof (attribute_header) > size) {
16533                         ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
16534                             "resizing read attribute data from %d to %d format"
16535                             " %d\n", size, (int)sizeof (attribute_header) +
16536                             newsize, buffer->header.format);
16537                         kmem_free(buffer, size);
16538                         size = newsize + sizeof (attribute_header);
16539                         goto again;
16540                 }
16541 
16542                 un->un_media_id_method = st_get_media_id_via_read_attribute;
16543                 if (buffer->header.format == 0) {
16544                         result =
16545                             st_handle_hex_media_id(un, buffer->data, newsize);
16546                 } else {
16547                         result = st_check_if_media_changed(un, buffer->data,
16548                             newsize);
16549                 }
16550         } else if (result == EINVAL && un->un_max_cdb_sz < CDB_GROUP4) {
16551                 scsi_log(ST_DEVINFO, st_label, CE_NOTE,
16552                     "Read Attribute Command for Media Identification is not "
16553                     "supported on the HBA that this drive is attached to.");
16554                 result = ENOTTY;
16555         }
16556 
16557         kmem_free(buffer, size);
16558         un->un_status = 0;
16559 
16560         return (result);
16561 }
16562 
16563 
16564 static int
16565 st_get_media_id_via_media_serial_cmd(struct scsi_tape *un, ubufunc_t bufunc)
16566 {
16567         char cdb[CDB_GROUP5];
16568         struct uscsi_cmd *ucmd;
16569         struct scsi_extended_sense sense;
16570         int rval;
16571         int size = max(un->un_media_id_len, ID_SIZE);
16572         caddr_t buf;
16573 
16574         ST_FUNC(ST_DEVINFO, st_get_media_id_via_media_serial_cmd);
16575 
16576         if (un->un_sd->sd_inq->inq_ansi < 3) {
16577                 return (ENOTTY);
16578         }
16579 
16580         ucmd = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
16581 upsize:
16582         buf = kmem_alloc(size, KM_SLEEP);
16583 
16584         cdb[0] = (char)SCMD_SVC_ACTION_IN_G5;
16585         cdb[1] = SSVC_ACTION_READ_MEDIA_SERIAL;
16586         cdb[2] = 0;
16587         cdb[3] = 0;
16588         cdb[4] = 0;
16589         cdb[5] = 0;
16590         cdb[6] = (char)(size >> 24);
16591         cdb[7] = (char)(size >> 16);
16592         cdb[8] = (char)(size >> 8);
16593         cdb[9] = (char)(size);
16594         cdb[10] = 0;
16595         cdb[11] = 0;
16596 
16597         ucmd->uscsi_flags = USCSI_READ | USCSI_RQENABLE;
16598         ucmd->uscsi_timeout = un->un_dp->non_motion_timeout;
16599         ucmd->uscsi_cdb = &cdb[0];
16600         ucmd->uscsi_cdblen = sizeof (cdb);
16601         ucmd->uscsi_bufaddr = buf;
16602         ucmd->uscsi_buflen = size;
16603         ucmd->uscsi_rqbuf = (caddr_t)&sense;
16604         ucmd->uscsi_rqlen = sizeof (sense);
16605 
16606         rval = bufunc(un, ucmd, FKIOCTL);
16607 
16608         if (rval || ucmd->uscsi_status != 0) {
16609                 ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
16610                     "media serial command returned %d scsi_status %d"
16611                     " rqstatus %d", rval, ucmd->uscsi_status,
16612                     ucmd->uscsi_rqstatus);
16613                 /*
16614                  * If this returns invalid operation code don't try again.
16615                  */
16616                 if (sense.es_key == KEY_ILLEGAL_REQUEST &&
16617                     sense.es_add_code == 0x20) {
16618                         rval = ENOTTY;
16619                 } else if (rval == 0) {
16620                         rval = EIO;
16621                 }
16622                 un->un_status = 0;
16623         } else {
16624                 int act_size;
16625 
16626                 /*
16627                  * get reported size.
16628                  */
16629                 act_size = (int)buf[3] | (int)(buf[2] << 8) |
16630                     (int)(buf[1] << 16) | (int)(buf[0] << 24);
16631 
16632                 /* documentation says mod 4. */
16633                 while (act_size & 3) {
16634                         act_size++;
16635                 }
16636 
16637                 /*
16638                  * If reported size is larger that we our buffer.
16639                  * Free the old one and allocate one that is larger
16640                  * enough and re-issuse the command.
16641                  */
16642                 if (act_size + 4 > size) {
16643                         kmem_free(buf, size);
16644                         size = act_size + 4;
16645                         goto upsize;
16646                 }
16647 
16648                 if (act_size == 0) {
16649                         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
16650                             "media serial number is not available");
16651                         un->un_status = 0;
16652                         rval = 0;
16653                 } else {
16654                         /*
16655                          * set data pointer to point to the start
16656                          * of that serial number.
16657                          */
16658                         un->un_media_id_method =
16659                             st_get_media_id_via_media_serial_cmd;
16660                         rval =
16661                             st_check_if_media_changed(un, &buf[4], act_size);
16662                 }
16663         }
16664 
16665         kmem_free(ucmd, sizeof (struct uscsi_cmd));
16666         kmem_free(buf, size);
16667 
16668         return (rval);
16669 }
16670 
16671 
16672 /* ARGSUSED */
16673 static int
16674 st_bogus_media_id(struct scsi_tape *un, ubufunc_t bufunc)
16675 {
16676         ST_FUNC(ST_DEVINFO, st_bogus_media_id);
16677 
16678         ASSERT(un->un_media_id == NULL || un->un_media_id == bogusID);
16679         ASSERT(un->un_media_id_len == 0);
16680         un->un_media_id = (char *)bogusID;
16681         un->un_media_id_len = 0;
16682         return (0);
16683 }
16684 
16685 typedef int (*media_chk_function)(struct scsi_tape *, ubufunc_t bufunc);
16686 
16687 media_chk_function media_chk_functions[] = {
16688         st_get_media_id_via_media_serial_cmd,
16689         st_get_media_id_via_read_attribute,
16690         st_bogus_media_id
16691 };
16692 
16693 static int
16694 st_get_media_identification(struct scsi_tape *un, ubufunc_t bufunc)
16695 {
16696         int result = 0;
16697         int i;
16698 
16699         ST_FUNC(ST_DEVINFO, st_get_media_identification);
16700 
16701         for (i = 0; i < ST_NUM_MEMBERS(media_chk_functions); i++) {
16702                 if (result == ENOTTY) {
16703                         /*
16704                          * Last operation type not supported by this device.
16705                          * Make so next time it doesn`t do that again.
16706                          */
16707                         un->un_media_id_method = media_chk_functions[i];
16708                 } else if (un->un_media_id_method != media_chk_functions[i] &&
16709                     un->un_media_id_method != st_get_media_identification) {
16710                         continue;
16711                 }
16712                 result = media_chk_functions[i](un, bufunc);
16713                 /*
16714                  * If result indicates the function was successful or
16715                  * that the media is not the same as last known, break.
16716                  */
16717                 if (result == 0 || result == ESPIPE) {
16718                         break;
16719                 }
16720         }
16721 
16722         return (result);
16723 }
16724 
16725 static errstate
16726 st_command_recovery(struct scsi_tape *un, struct scsi_pkt *pkt,
16727     errstate onentry)
16728 {
16729 
16730         int ret;
16731         st_err_info *errinfo;
16732         recov_info *ri = (recov_info *)pkt->pkt_private;
16733 
16734         ST_FUNC(ST_DEVINFO, st_command_recovery);
16735 
16736         ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
16737 
16738         ASSERT(un->un_recov_buf_busy == 0);
16739 
16740         /*
16741          * Don't try and recover a reset that this device sent.
16742          */
16743         if (un->un_rsvd_status & ST_INITIATED_RESET &&
16744             onentry == DEVICE_RESET) {
16745                 return (COMMAND_DONE_ERROR);
16746         }
16747 
16748         /*
16749          * See if expected position was passed with scsi_pkt.
16750          */
16751         if (ri->privatelen == sizeof (recov_info)) {
16752 
16753                 /*
16754                  * Not for this command.
16755                  */
16756                 if (ri->cmd_attrib->do_not_recover) {
16757                         return (COMMAND_DONE_ERROR);
16758                 }
16759 
16760                 /*
16761                  * Create structure to hold all error state info.
16762                  */
16763                 errinfo = kmem_zalloc(ST_ERR_INFO_SIZE, KM_SLEEP);
16764                 errinfo->ei_error_type = onentry;
16765                 errinfo->ei_failing_bp = ri->cmd_bp;
16766                 COPY_POS(&errinfo->ei_expected_pos, &ri->pos);
16767         } else {
16768                 /* disabled */
16769                 return (COMMAND_DONE_ERROR);
16770         }
16771 
16772         bcopy(pkt, &errinfo->ei_failed_pkt, scsi_pkt_size());
16773         bcopy(pkt->pkt_scbp, &errinfo->ei_failing_status, SECMDS_STATUS_SIZE);
16774         ret = ddi_taskq_dispatch(un->un_recov_taskq, st_recover, errinfo,
16775             DDI_NOSLEEP);
16776         ASSERT(ret == DDI_SUCCESS);
16777         if (ret != DDI_SUCCESS) {
16778                 kmem_free(errinfo, ST_ERR_INFO_SIZE);
16779                 return (COMMAND_DONE_ERROR);
16780         }
16781         return (JUST_RETURN); /* release calling thread */
16782 }
16783 
16784 
16785 static void
16786 st_recov_ret(struct scsi_tape *un, st_err_info *errinfo, errstate err)
16787 {
16788         int error_number;
16789         buf_t *bp;
16790 
16791 
16792         ST_FUNC(ST_DEVINFO, st_recov_ret);
16793 
16794         ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
16795 #if !defined(lint)
16796         _NOTE(LOCK_RELEASED_AS_SIDE_EFFECT(&un->un_sd->sd_mutex))
16797 #endif
16798 
16799         bp = errinfo->ei_failing_bp;
16800         kmem_free(errinfo, ST_ERR_INFO_SIZE);
16801 
16802         switch (err) {
16803         case JUST_RETURN:
16804                 mutex_exit(&un->un_sd->sd_mutex);
16805                 return;
16806 
16807         case COMMAND_DONE:
16808         case COMMAND_DONE_ERROR_RECOVERED:
16809                 ST_DO_KSTATS(bp, kstat_runq_exit);
16810                 error_number = 0;
16811                 break;
16812 
16813         default:
16814                 ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
16815                     "st_recov_ret with unhandled errstat %d\n", err);
16816                 /* FALLTHROUGH */
16817         case COMMAND_DONE_ERROR:
16818                 un->un_pos.pmode = invalid;
16819                 un->un_running.pmode = invalid;
16820                 /* FALLTHROUGH */
16821         case COMMAND_DONE_EACCES:
16822                 ST_DO_KSTATS(bp, kstat_waitq_exit);
16823                 ST_DO_ERRSTATS(un, st_transerrs);
16824                 error_number = EIO;
16825                 st_set_pe_flag(un);
16826                 break;
16827 
16828         }
16829 
16830         st_bioerror(bp, error_number);
16831         st_done_and_mutex_exit(un, bp);
16832 }
16833 
16834 
16835 static void
16836 st_recover(void *arg)
16837 {
16838         st_err_info *const errinfo = (st_err_info *)arg;
16839         uchar_t com = errinfo->ei_failed_pkt.pkt_cdbp[0];
16840         struct scsi_tape *un;
16841         tapepos_t cur_pos;
16842         int rval;
16843         errstate status = COMMAND_DONE_ERROR;
16844         recov_info *rcv;
16845         buf_t *bp;
16846 
16847 
16848         rcv = errinfo->ei_failed_pkt.pkt_private;
16849         ASSERT(rcv->privatelen == sizeof (recov_info));
16850         bp = rcv->cmd_bp;
16851 
16852         un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
16853 
16854         ASSERT(un != NULL);
16855 
16856         mutex_enter(ST_MUTEX);
16857 
16858         ST_FUNC(ST_DEVINFO, st_recover);
16859 
16860         ST_CDB(ST_DEVINFO, "Recovering command",
16861             (caddr_t)errinfo->ei_failed_pkt.pkt_cdbp);
16862         ST_SENSE(ST_DEVINFO, "sense status for failed command",
16863             (caddr_t)&errinfo->ei_failing_status,
16864             sizeof (struct scsi_arq_status));
16865         ST_POS(ST_DEVINFO, rcv->cmd_attrib->recov_pos_type == POS_STARTING ?
16866             "starting position for recovery command" :
16867             "expected position for recovery command",
16868             &errinfo->ei_expected_pos);
16869 
16870         rval = st_test_path_to_device(un);
16871 
16872         ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
16873             "st_recover called with %s, TUR returned %d\n",
16874             errstatenames[errinfo->ei_error_type], rval);
16875         /*
16876          * If the drive responed to the TUR lets try and get it to sync
16877          * any data it might have in the buffer.
16878          */
16879         if (rval == 0 && rcv->cmd_attrib->chg_tape_data) {
16880                 rval = st_rcmd(un, SCMD_WRITE_FILE_MARK, 0, SYNC_CMD);
16881                 if (rval) {
16882                         ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
16883                             "st_recover failed to flush, returned %d\n", rval);
16884                         st_recov_ret(un, errinfo, COMMAND_DONE_ERROR);
16885                         return;
16886                 }
16887         }
16888         switch (errinfo->ei_error_type) {
16889         case ATTEMPT_RETRY:
16890         case COMMAND_TIMEOUT:
16891         case DEVICE_RESET:
16892         case PATH_FAILED:
16893                 /*
16894                  * For now if we can't talk to the device we are done.
16895                  * If the drive is reserved we can try to get it back.
16896                  */
16897                 if (rval != 0 && rval != EACCES) {
16898                         st_recov_ret(un, errinfo, COMMAND_DONE_ERROR);
16899                         return;
16900                 }
16901 
16902                 /*
16903                  * If reservation conflict and do a preempt, fail it.
16904                  */
16905                 if ((un->un_rsvd_status &
16906                     (ST_APPLICATION_RESERVATIONS | ST_RESERVE)) != 0) {
16907                         if ((errinfo->ei_failed_pkt.pkt_cdbp[0] ==
16908                             SCMD_PERSISTENT_RESERVE_OUT) &&
16909                             (errinfo->ei_failed_pkt.pkt_cdbp[1] ==
16910                             ST_SA_SCSI3_PREEMPT) &&
16911                             (SCBP_C(&errinfo->ei_failed_pkt) ==
16912                             STATUS_RESERVATION_CONFLICT)) {
16913                                 st_recov_ret(un, errinfo, COMMAND_DONE_ERROR);
16914                                 return;
16915                         }
16916                 }
16917 
16918                 /*
16919                  * If we have already set a scsi II reserve and get a
16920                  * conflict on a scsi III type reserve fail without
16921                  * any attempt to recover.
16922                  */
16923                 if ((un->un_rsvd_status & ST_RESERVE | ST_PRESERVE_RESERVE) &&
16924                     (errinfo->ei_failed_pkt.pkt_cdbp[0] ==
16925                     SCMD_PERSISTENT_RESERVE_OUT) ||
16926                     (errinfo->ei_failed_pkt.pkt_cdbp[0] ==
16927                     SCMD_PERSISTENT_RESERVE_IN)) {
16928                         st_recov_ret(un, errinfo, COMMAND_DONE_EACCES);
16929                         return;
16930                 }
16931 
16932                 /*
16933                  * If scsi II lost reserve try and get it back.
16934                  */
16935                 if ((((un->un_rsvd_status &
16936                     (ST_LOST_RESERVE | ST_APPLICATION_RESERVATIONS)) ==
16937                     ST_LOST_RESERVE)) &&
16938                     (errinfo->ei_failed_pkt.pkt_cdbp[0] != SCMD_RELEASE)) {
16939                         rval = st_reserve_release(un, ST_RESERVE,
16940                             st_uscsi_rcmd);
16941                         if (rval != 0) {
16942                                 if (st_take_ownership(un, st_uscsi_rcmd) != 0) {
16943                                         st_recov_ret(un, errinfo,
16944                                             COMMAND_DONE_EACCES);
16945                                         return;
16946                                 }
16947                         }
16948                         un->un_rsvd_status |= ST_RESERVE;
16949                         un->un_rsvd_status &= ~(ST_RELEASE | ST_LOST_RESERVE |
16950                             ST_RESERVATION_CONFLICT | ST_INITIATED_RESET);
16951                 }
16952                 rval = st_make_sure_mode_data_is_correct(un, st_uscsi_rcmd);
16953                 if (rval) {
16954                         st_recov_ret(un, errinfo, COMMAND_DONE_ERROR);
16955                         return;
16956                 }
16957                 break;
16958         case DEVICE_TAMPER:
16959                 /*
16960                  * Check if the ASC/ASCQ says mode data has changed.
16961                  */
16962                 if ((errinfo->ei_failing_status.sts_sensedata.es_add_code ==
16963                     0x2a) &&
16964                     (errinfo->ei_failing_status.sts_sensedata.es_qual_code ==
16965                     0x01)) {
16966                         /*
16967                          * See if mode sense changed.
16968                          */
16969                         rval = st_make_sure_mode_data_is_correct(un,
16970                             st_uscsi_rcmd);
16971                         if (rval) {
16972                                 st_recov_ret(un, errinfo, COMMAND_DONE_ERROR);
16973                                 return;
16974                         }
16975                 }
16976                 /*
16977                  * if we have a media id and its not bogus.
16978                  * Check to see if it the same.
16979                  */
16980                 if (un->un_media_id != NULL && un->un_media_id != bogusID) {
16981                         rval = st_get_media_identification(un, st_uscsi_rcmd);
16982                         if (rval == ESPIPE) {
16983                                 st_recov_ret(un, errinfo, COMMAND_DONE_EACCES);
16984                                 return;
16985                         }
16986                 }
16987                 break;
16988         default:
16989                 ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
16990                     "Unhandled error type %s in st_recover() 0x%x\n",
16991                     errstatenames[errinfo->ei_error_type], com);
16992         }
16993 
16994         /*
16995          * if command is retriable retry it.
16996          * Special case here. The command attribute for SCMD_REQUEST_SENSE
16997          * does not say that it is retriable. That because if you reissue a
16998          * request sense and the target responds the sense data will have
16999          * been consumed and no long be valid. If we get a busy status on
17000          * request sense while the state is ST_STATE_SENSING this will
17001          * reissue that pkt.
17002          *
17003          * XXX If this request sense gets sent to a different port then
17004          * the original command that failed was sent on it will not get
17005          * valid sense data for that command.
17006          */
17007         if (rcv->cmd_attrib->retriable || un->un_rqs_bp == bp) {
17008                 status = st_recover_reissue_pkt(un, &errinfo->ei_failed_pkt);
17009 
17010         /*
17011          * if drive doesn't support read position we are done
17012          */
17013         } else if (un->un_read_pos_type == NO_POS) {
17014                 status = COMMAND_DONE_ERROR;
17015         /*
17016          * If this command results in a changed tape position,
17017          * lets see where we are.
17018          */
17019         } else if (rcv->cmd_attrib->chg_tape_pos) {
17020                 /*
17021                  * XXX May be a reason to choose a different type here.
17022                  * Long format has file position information.
17023                  * Short and Extended have information about whats
17024                  * in the buffer. St's positioning assumes in the buffer
17025                  * to be the same as on tape.
17026                  */
17027                 rval = st_compare_expected_position(un, errinfo,
17028                     rcv->cmd_attrib, &cur_pos);
17029                 if (rval == 0) {
17030                         status = COMMAND_DONE;
17031                 } else if (rval == EAGAIN) {
17032                         status = st_recover_reissue_pkt(un,
17033                             &errinfo->ei_failed_pkt);
17034                 } else {
17035                         status = COMMAND_DONE_ERROR;
17036                 }
17037         } else {
17038                 ASSERT(0);
17039         }
17040 
17041         st_recov_ret(un, errinfo, status);
17042 }
17043 
17044 static void
17045 st_recov_cb(struct scsi_pkt *pkt)
17046 {
17047         struct scsi_tape *un;
17048         struct buf *bp;
17049         recov_info *rcv;
17050         errstate action = COMMAND_DONE_ERROR;
17051         int timout = ST_TRAN_BUSY_TIMEOUT; /* short (default) timeout */
17052 
17053         /*
17054          * Get the buf from the packet.
17055          */
17056         rcv = pkt->pkt_private;
17057         ASSERT(rcv->privatelen == sizeof (recov_info));
17058         bp = rcv->cmd_bp;
17059 
17060         /*
17061          * get the unit from the buf.
17062          */
17063         un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
17064         ASSERT(un != NULL);
17065 
17066         ST_FUNC(ST_DEVINFO, st_recov_cb);
17067 
17068         mutex_enter(ST_MUTEX);
17069 
17070         ASSERT(bp == un->un_recov_buf);
17071 
17072 
17073         switch (pkt->pkt_reason) {
17074         case CMD_CMPLT:
17075                 if (un->un_arq_enabled && pkt->pkt_state & STATE_ARQ_DONE) {
17076                         action = st_handle_autosense(un, bp, &rcv->pos);
17077                 } else  if ((SCBP(pkt)->sts_busy) ||
17078                     (SCBP(pkt)->sts_chk) ||
17079                     (SCBP(pkt)->sts_vu7)) {
17080                         action = st_check_error(un, pkt);
17081                 } else {
17082                         action = COMMAND_DONE;
17083                 }
17084                 break;
17085         case CMD_TIMEOUT:
17086                 action = COMMAND_TIMEOUT;
17087                 break;
17088         case CMD_TRAN_ERR:
17089                 action = QUE_COMMAND;
17090                 break;
17091         case CMD_DEV_GONE:
17092                 if (un->un_multipath)
17093                         action = PATH_FAILED;
17094                 else
17095                         action = COMMAND_DONE_ERROR;
17096                 break;
17097         default:
17098                 ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
17099                     "pkt_reason not handled yet %s",
17100                     scsi_rname(pkt->pkt_reason));
17101                 action = COMMAND_DONE_ERROR;
17102         }
17103 
17104         /*
17105          * check for undetected path failover.
17106          */
17107         if (un->un_multipath) {
17108                 if (scsi_pkt_allocated_correctly(pkt) &&
17109                     (un->un_last_path_instance != pkt->pkt_path_instance)) {
17110                         if (un->un_state > ST_STATE_OPENING) {
17111                                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17112                                     "Failover detected in recovery, action is "
17113                                     "%s\n", errstatenames[action]);
17114                         }
17115                         un->un_last_path_instance = pkt->pkt_path_instance;
17116                 }
17117         }
17118 
17119         ST_RECOV(ST_DEVINFO, st_label, CE_WARN,
17120             "Recovery call back got %s status on %s\n",
17121             errstatenames[action], st_print_scsi_cmd(pkt->pkt_cdbp[0]));
17122 
17123         switch (action) {
17124         case COMMAND_DONE:
17125                 break;
17126 
17127         case COMMAND_DONE_EACCES:
17128                 bioerror(bp, EACCES);
17129                 break;
17130 
17131         case COMMAND_DONE_ERROR_RECOVERED: /* XXX maybe wrong */
17132                 ASSERT(0);
17133                 break;
17134 
17135         case COMMAND_TIMEOUT:
17136         case COMMAND_DONE_ERROR:
17137                 bioerror(bp, EIO);
17138                 break;
17139 
17140         case DEVICE_RESET:
17141         case QUE_BUSY_COMMAND:
17142         case PATH_FAILED:
17143                 /* longish timeout */
17144                 timout = ST_STATUS_BUSY_TIMEOUT;
17145                 /* FALLTHRU */
17146         case QUE_COMMAND:
17147         case DEVICE_TAMPER:
17148         case ATTEMPT_RETRY:
17149                 /*
17150                  * let st_handle_intr_busy put this bp back on waitq and make
17151                  * checks to see if it is ok to requeue the command.
17152                  */
17153                 ST_DO_KSTATS(bp, kstat_runq_back_to_waitq);
17154 
17155                 /*
17156                  * Save the throttle before setting up the timeout
17157                  */
17158                 if (un->un_throttle) {
17159                         un->un_last_throttle = un->un_throttle;
17160                 }
17161                 mutex_exit(ST_MUTEX);
17162                 if (st_handle_intr_busy(un, bp, timout) == 0) {
17163                         return;         /* timeout is setup again */
17164                 }
17165                 mutex_enter(ST_MUTEX);
17166                 un->un_pos.pmode = invalid;
17167                 un->un_err_resid = bp->b_resid = bp->b_bcount;
17168                 st_bioerror(bp, EIO);
17169                 st_set_pe_flag(un);
17170                 break;
17171 
17172         default:
17173                 ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
17174                     "Unhandled recovery state 0x%x\n", action);
17175                 un->un_pos.pmode = invalid;
17176                 un->un_err_resid = bp->b_resid = bp->b_bcount;
17177                 st_bioerror(bp, EIO);
17178                 st_set_pe_flag(un);
17179                 break;
17180         }
17181 
17182         st_done_and_mutex_exit(un, bp);
17183 }
17184 
17185 static int
17186 st_rcmd(struct scsi_tape *un, int com, int64_t count, int wait)
17187 {
17188         struct buf *bp;
17189         int err;
17190 
17191         ST_FUNC(ST_DEVINFO, st_rcmd);
17192 
17193         ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
17194             "st_rcmd(un = 0x%p, com = 0x%x, count = %"PRIx64", wait = %d)\n",
17195             (void *)un, com, count, wait);
17196 
17197         ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
17198         ASSERT(mutex_owned(ST_MUTEX));
17199 
17200 #ifdef STDEBUG
17201         if ((st_debug & 0x7)) {
17202                 st_debug_cmds(un, com, count, wait);
17203         }
17204 #endif
17205 
17206         while (un->un_recov_buf_busy)
17207                 cv_wait(&un->un_recov_buf_cv, ST_MUTEX);
17208         un->un_recov_buf_busy = 1;
17209 
17210         bp = un->un_recov_buf;
17211         bzero(bp, sizeof (buf_t));
17212 
17213         bp->b_flags = (wait) ? B_BUSY : B_BUSY|B_ASYNC;
17214 
17215         err = st_setup_cmd(un, bp, com, count);
17216 
17217         un->un_recov_buf_busy = 0;
17218 
17219         cv_signal(&un->un_recov_buf_cv);
17220 
17221         return (err);
17222 }
17223 
17224 /* args used */
17225 static int
17226 st_uscsi_rcmd(struct scsi_tape *un, struct uscsi_cmd *ucmd, int flag)
17227 {
17228         int rval;
17229         buf_t *bp;
17230 
17231         ST_FUNC(ST_DEVINFO, st_uscsi_rcmd);
17232         ASSERT(flag == FKIOCTL);
17233 
17234         /*
17235          * Get buffer resources...
17236          */
17237         while (un->un_recov_buf_busy)
17238                 cv_wait(&un->un_recov_buf_cv, ST_MUTEX);
17239         un->un_recov_buf_busy = 1;
17240 
17241         bp = un->un_recov_buf;
17242         bzero(bp, sizeof (buf_t));
17243 
17244         bp->b_forw = (struct buf *)(uintptr_t)ucmd->uscsi_cdb[0];
17245         bp->b_back = (struct buf *)ucmd;
17246 
17247         mutex_exit(ST_MUTEX);
17248         rval = scsi_uscsi_handle_cmd(un->un_dev, UIO_SYSSPACE, ucmd,
17249             st_strategy, bp, NULL);
17250         mutex_enter(ST_MUTEX);
17251 
17252         ucmd->uscsi_resid = bp->b_resid;
17253 
17254         /*
17255          * Free resources
17256          */
17257         un->un_recov_buf_busy = 0;
17258         cv_signal(&un->un_recov_buf_cv);
17259 
17260         return (rval);
17261 }
17262 
17263 /*
17264  * Add data to scsi_pkt to help know what to do if the command fails.
17265  */
17266 static void
17267 st_add_recovery_info_to_pkt(struct scsi_tape *un, buf_t *bp,
17268     struct scsi_pkt *pkt)
17269 {
17270         uint64_t count;
17271         recov_info *rinfo = (recov_info *)pkt->pkt_private;
17272 
17273         ST_FUNC(ST_DEVINFO, st_add_recovery_info_to_pkt);
17274 
17275         ASSERT(rinfo->privatelen == sizeof (pkt_info) ||
17276             rinfo->privatelen == sizeof (recov_info));
17277 
17278         SET_BP_PKT(bp, pkt);
17279         rinfo->cmd_bp = bp;
17280 
17281         if (rinfo->privatelen != sizeof (recov_info)) {
17282                 return;
17283         }
17284 
17285         rinfo->cmd_bp = bp;
17286 
17287         rinfo->cmd_attrib = NULL;
17288 
17289         /*
17290          * lookup the command attributes and add them to the recovery info.
17291          */
17292         rinfo->cmd_attrib = st_lookup_cmd_attribute(pkt->pkt_cdbp[0]);
17293 
17294         ASSERT(rinfo->cmd_attrib);
17295 
17296         /*
17297          * For commands that there is no way to figure the expected position
17298          * once completed, we save the position the command was started from
17299          * so that if they fail we can position back and try again.
17300          * This has already been done in st_cmd() or st_iscsi_cmd().
17301          */
17302         if (rinfo->cmd_attrib->recov_pos_type == POS_STARTING) {
17303                 /* save current position as the starting position. */
17304                 COPY_POS(&rinfo->pos, &un->un_pos);
17305                 un->un_running.pmode = invalid;
17306                 return;
17307         }
17308 
17309         /*
17310          * Don't want to update the running position for recovery.
17311          */
17312         if (bp == un->un_recov_buf) {
17313                 rinfo->pos.pmode = un->un_running.pmode;
17314                 return;
17315         }
17316         /*
17317          * If running position is invalid copy the current position.
17318          * Running being set invalid means we are not in a read, write
17319          * or write filemark sequence.
17320          * We'll copy the current position and start from there.
17321          */
17322         if (un->un_running.pmode == invalid) {
17323                 COPY_POS(&un->un_running, &un->un_pos);
17324                 COPY_POS(&rinfo->pos, &un->un_running);
17325         } else {
17326                 COPY_POS(&rinfo->pos, &un->un_running);
17327                 if (rinfo->pos.pmode == legacy) {
17328                         /*
17329                          * Always should be more logical blocks then
17330                          * data blocks and files marks.
17331                          */
17332                         ASSERT((rinfo->pos.blkno >= 0) ?
17333                             rinfo->pos.lgclblkno >=
17334                             (rinfo->pos.blkno + rinfo->pos.fileno) : 1);
17335                 }
17336         }
17337 
17338         /*
17339          * If the command is not expected to change the drive position
17340          * then the running position should be the expected position.
17341          */
17342         if (rinfo->cmd_attrib->chg_tape_pos == 0) {
17343                 ASSERT(rinfo->cmd_attrib->chg_tape_direction == DIR_NONE);
17344                 return;
17345         }
17346 
17347         if (rinfo->cmd_attrib->explicit_cmd_set) {
17348                 ASSERT(rinfo->pos.pmode != invalid);
17349                 ASSERT(rinfo->cmd_attrib->get_cnt);
17350                 count = rinfo->cmd_attrib->get_cnt(pkt->pkt_cdbp);
17351                 /*
17352                  * This is a user generated CDB.
17353                  */
17354                 if (bp == un->un_sbufp) {
17355                         uint64_t lbn;
17356 
17357                         lbn = rinfo->cmd_attrib->get_lba(pkt->pkt_cdbp);
17358 
17359                         /*
17360                          * See if this CDB will generate a locate or change
17361                          * partition.
17362                          */
17363                         if ((lbn != un->un_running.lgclblkno) ||
17364                             (pkt->pkt_cdbp[3] != un->un_running.partition)) {
17365                                 rinfo->pos.partition = pkt->pkt_cdbp[3];
17366                                 rinfo->pos.pmode = logical;
17367                                 rinfo->pos.lgclblkno = lbn;
17368                                 un->un_running.partition = pkt->pkt_cdbp[3];
17369                                 un->un_running.pmode = logical;
17370                                 un->un_running.lgclblkno = lbn;
17371                         }
17372                 } else {
17373                         uint64_t lbn = un->un_running.lgclblkno;
17374 
17375                         pkt->pkt_cdbp[3]  = (uchar_t)un->un_running.partition;
17376 
17377                         pkt->pkt_cdbp[4]  = (uchar_t)(lbn >> 56);
17378                         pkt->pkt_cdbp[5]  = (uchar_t)(lbn >> 48);
17379                         pkt->pkt_cdbp[6]  = (uchar_t)(lbn >> 40);
17380                         pkt->pkt_cdbp[7]  = (uchar_t)(lbn >> 32);
17381                         pkt->pkt_cdbp[8]  = (uchar_t)(lbn >> 24);
17382                         pkt->pkt_cdbp[9]  = (uchar_t)(lbn >> 16);
17383                         pkt->pkt_cdbp[10] = (uchar_t)(lbn >> 8);
17384                         pkt->pkt_cdbp[11] = (uchar_t)(lbn);
17385                 }
17386                 rinfo->pos.lgclblkno += count;
17387                 rinfo->pos.blkno += count;
17388                 un->un_running.lgclblkno += count;
17389                 return;
17390         }
17391 
17392         if (rinfo->cmd_attrib->chg_tape_pos) {
17393 
17394                 /* should not have got an invalid position from running. */
17395                 if (un->un_mediastate == MTIO_INSERTED) {
17396                         ASSERT(rinfo->pos.pmode != invalid);
17397                 }
17398 
17399                 /* should have either a get count or or get lba function */
17400                 ASSERT(rinfo->cmd_attrib->get_cnt != NULL ||
17401                     rinfo->cmd_attrib->get_lba != NULL);
17402 
17403                 /* only explicit commands have both and they're handled above */
17404                 ASSERT(!(rinfo->cmd_attrib->get_cnt != NULL &&
17405                     rinfo->cmd_attrib->get_lba != NULL));
17406 
17407                 /* if it has a get count function */
17408                 if (rinfo->cmd_attrib->get_cnt != NULL) {
17409                         count = rinfo->cmd_attrib->get_cnt(pkt->pkt_cdbp);
17410                         if (count == 0) {
17411                                 return;
17412                         }
17413                         /*
17414                          * Changes position but doesn't transfer data.
17415                          * i.e. rewind, write_file_mark and load.
17416                          */
17417                         if (rinfo->cmd_attrib->transfers_data == TRAN_NONE) {
17418                                 switch (rinfo->cmd_attrib->chg_tape_direction) {
17419                                 case DIR_NONE: /* Erase */
17420                                         ASSERT(rinfo->cmd_attrib->cmd ==
17421                                             SCMD_ERASE);
17422                                         break;
17423                                 case DIR_FORW: /* write_file_mark */
17424                                         rinfo->pos.fileno += count;
17425                                         rinfo->pos.lgclblkno += count;
17426                                         rinfo->pos.blkno = 0;
17427                                         un->un_running.fileno += count;
17428                                         un->un_running.lgclblkno += count;
17429                                         un->un_running.blkno = 0;
17430                                         break;
17431                                 case DIR_REVC: /* rewind */
17432                                         rinfo->pos.fileno = 0;
17433                                         rinfo->pos.lgclblkno = 0;
17434                                         rinfo->pos.blkno = 0;
17435                                         rinfo->pos.eof = ST_NO_EOF;
17436                                         rinfo->pos.pmode = legacy;
17437                                         un->un_running.fileno = 0;
17438                                         un->un_running.lgclblkno = 0;
17439                                         un->un_running.blkno = 0;
17440                                         un->un_running.eof = ST_NO_EOF;
17441                                         if (un->un_running.pmode != legacy)
17442                                                 un->un_running.pmode = legacy;
17443                                         break;
17444                                 case DIR_EITH: /* Load unload */
17445                                         ASSERT(rinfo->cmd_attrib->cmd ==
17446                                             SCMD_LOAD);
17447                                         switch (count & (LD_LOAD | LD_RETEN |
17448                                             LD_RETEN | LD_HOLD)) {
17449                                         case LD_UNLOAD:
17450                                         case LD_RETEN:
17451                                         case LD_HOLD:
17452                                         case LD_LOAD | LD_HOLD:
17453                                         case LD_EOT | LD_HOLD:
17454                                         case LD_RETEN | LD_HOLD:
17455                                                 rinfo->pos.pmode = invalid;
17456                                                 un->un_running.pmode = invalid;
17457                                                 break;
17458                                         case LD_EOT:
17459                                         case LD_LOAD | LD_EOT:
17460                                                 rinfo->pos.eof = ST_EOT;
17461                                                 rinfo->pos.pmode = invalid;
17462                                                 un->un_running.eof = ST_EOT;
17463                                                 un->un_running.pmode = invalid;
17464                                                 break;
17465                                         case LD_LOAD:
17466                                         case LD_RETEN | LD_LOAD:
17467                                                 rinfo->pos.fileno = 0;
17468                                                 rinfo->pos.lgclblkno = 0;
17469                                                 rinfo->pos.blkno = 0;
17470                                                 rinfo->pos.eof = ST_NO_EOF;
17471                                                 rinfo->pos.pmode = legacy;
17472                                                 un->un_running.fileno = 0;
17473                                                 un->un_running.lgclblkno = 0;
17474                                                 un->un_running.blkno = 0;
17475                                                 un->un_running.eof = ST_NO_EOF;
17476                                                 break;
17477                                         default:
17478                                                 ASSERT(0);
17479                                         }
17480                                         break;
17481                                 default:
17482                                         ASSERT(0);
17483                                         break;
17484                                 }
17485                         } else {
17486                                 /*
17487                                  * Changes position and does transfer data.
17488                                  * i.e. read or write.
17489                                  */
17490                                 switch (rinfo->cmd_attrib->chg_tape_direction) {
17491                                 case DIR_FORW:
17492                                         rinfo->pos.lgclblkno += count;
17493                                         rinfo->pos.blkno += count;
17494                                         un->un_running.lgclblkno += count;
17495                                         un->un_running.blkno += count;
17496                                         break;
17497                                 case DIR_REVC:
17498                                         rinfo->pos.lgclblkno -= count;
17499                                         rinfo->pos.blkno -= count;
17500                                         un->un_running.lgclblkno -= count;
17501                                         un->un_running.blkno -= count;
17502                                         break;
17503                                 default:
17504                                         ASSERT(0);
17505                                         break;
17506                                 }
17507                         }
17508                 } else if (rinfo->cmd_attrib->get_lba != NULL) {
17509                         /* Have a get LBA fuction. i.e. Locate */
17510                         ASSERT(rinfo->cmd_attrib->chg_tape_direction ==
17511                             DIR_EITH);
17512                         count = rinfo->cmd_attrib->get_lba(pkt->pkt_cdbp);
17513                         un->un_running.lgclblkno = count;
17514                         un->un_running.blkno = 0;
17515                         un->un_running.fileno = 0;
17516                         un->un_running.pmode = logical;
17517                         rinfo->pos.lgclblkno = count;
17518                         rinfo->pos.pmode = invalid;
17519                 } else {
17520                         ASSERT(0);
17521                 }
17522                 return;
17523         }
17524 
17525         ST_CDB(ST_DEVINFO, "Unhanded CDB for position prediction",
17526             (char *)pkt->pkt_cdbp);
17527 
17528 }
17529 
17530 static int
17531 st_make_sure_mode_data_is_correct(struct scsi_tape *un, ubufunc_t ubf)
17532 {
17533         int rval;
17534 
17535         ST_FUNC(ST_DEVINFO, st_make_sure_mode_data_is_correct);
17536 
17537         /*
17538          * check to see if mode data has changed.
17539          */
17540         rval = st_check_mode_for_change(un, ubf);
17541         if (rval) {
17542                 rval = st_gen_mode_select(un, ubf, un->un_mspl,
17543                     sizeof (struct seq_mode));
17544         }
17545         if (un->un_tlr_flag != TLR_NOT_SUPPORTED) {
17546                 rval |= st_set_target_TLR_mode(un, ubf);
17547         }
17548         return (rval);
17549 }
17550 
17551 static int
17552 st_check_mode_for_change(struct scsi_tape *un, ubufunc_t ubf)
17553 {
17554         struct seq_mode *current;
17555         int rval;
17556         int i;
17557         caddr_t this;
17558         caddr_t that;
17559 
17560         ST_FUNC(ST_DEVINFO, st_check_mode_for_change);
17561 
17562         /* recovery called with mode tamper before mode selection */
17563         if (un->un_comp_page == (ST_DEV_DATACOMP_PAGE | ST_DEV_CONFIG_PAGE)) {
17564                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17565                     "Mode Select not done yet");
17566                 return (0);
17567         }
17568 
17569         current = kmem_zalloc(sizeof (struct seq_mode), KM_SLEEP);
17570 
17571         rval = st_gen_mode_sense(un, ubf, un->un_comp_page, current,
17572             sizeof (struct seq_mode));
17573         if (rval != 0) {
17574                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17575                     "Mode Sense for mode verification failed");
17576                 kmem_free(current, sizeof (struct seq_mode));
17577                 return (rval);
17578         }
17579 
17580         this = (caddr_t)current;
17581         that = (caddr_t)un->un_mspl;
17582 
17583         rval = bcmp(this, that, sizeof (struct seq_mode));
17584         if (rval == 0) {
17585                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17586                     "Found no changes in mode data");
17587         }
17588 #ifdef STDEBUG
17589         else {
17590                 for (i = 1; i < sizeof (struct seq_mode); i++) {
17591                         if (this[i] != that[i]) {
17592                                 ST_RECOV(ST_DEVINFO, st_label, CE_CONT,
17593                                     "sense data changed at byte %d was "
17594                                     "0x%x now 0x%x", i,
17595                                     (uchar_t)that[i], (uchar_t)this[i]);
17596                         }
17597                 }
17598         }
17599 #endif
17600         kmem_free(current, sizeof (struct seq_mode));
17601 
17602         return (rval);
17603 }
17604 
17605 static int
17606 st_test_path_to_device(struct scsi_tape *un)
17607 {
17608         int rval = 0;
17609         int limit = st_retry_count;
17610 
17611         ST_FUNC(ST_DEVINFO, st_test_path_to_device);
17612 
17613         /*
17614          * XXX Newer drives may not RESEVATION CONFLICT a TUR.
17615          */
17616         do {
17617                 if (rval != 0) {
17618                         mutex_exit(ST_MUTEX);
17619                         delay(drv_usectohz(1000000));
17620                         mutex_enter(ST_MUTEX);
17621                 }
17622                 rval = st_rcmd(un, SCMD_TEST_UNIT_READY, 0, SYNC_CMD);
17623                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17624                     "ping TUR returned 0x%x", rval);
17625                 limit--;
17626         } while (((rval == EACCES) || (rval == EBUSY)) && limit);
17627 
17628         if (un->un_status == KEY_NOT_READY || un->un_mediastate == MTIO_EJECTED)
17629                 rval = 0;
17630 
17631         return (rval);
17632 }
17633 
17634 /*
17635  * Does read position using recov_buf and doesn't update un_pos.
17636  * Does what ever kind of read position you want.
17637  */
17638 static int
17639 st_recovery_read_pos(struct scsi_tape *un, read_p_types type,
17640     read_pos_data_t *raw)
17641 {
17642         int rval;
17643         struct uscsi_cmd cmd;
17644         struct scsi_arq_status status;
17645         char cdb[CDB_GROUP1];
17646 
17647         ST_FUNC(ST_DEVINFO, st_recovery_read_pos);
17648         bzero(&cmd, sizeof (cmd));
17649 
17650         cdb[0] = SCMD_READ_POSITION;
17651         cdb[1] = type;
17652         cdb[2] = 0;
17653         cdb[3] = 0;
17654         cdb[4] = 0;
17655         cdb[5] = 0;
17656         cdb[6] = 0;
17657         cdb[7] = 0;
17658         cdb[8] = (type == EXT_POS) ? 28 : 0;
17659         cdb[9] = 0;
17660 
17661         cmd.uscsi_flags = USCSI_READ | USCSI_RQENABLE;
17662         cmd.uscsi_timeout = un->un_dp->non_motion_timeout;
17663         cmd.uscsi_cdb = cdb;
17664         cmd.uscsi_cdblen = sizeof (cdb);
17665         cmd.uscsi_rqlen = sizeof (status);
17666         cmd.uscsi_rqbuf = (caddr_t)&status;
17667         cmd.uscsi_bufaddr = (caddr_t)raw;
17668         switch (type) {
17669         case SHORT_POS:
17670                 cmd.uscsi_buflen = sizeof (tape_position_t);
17671                 break;
17672         case LONG_POS:
17673                 cmd.uscsi_buflen = sizeof (tape_position_long_t);
17674                 break;
17675         case EXT_POS:
17676                 cmd.uscsi_buflen = sizeof (tape_position_ext_t);
17677                 break;
17678         default:
17679                 ASSERT(0);
17680         }
17681 
17682         rval = st_uscsi_rcmd(un, &cmd, FKIOCTL);
17683         if (cmd.uscsi_status) {
17684                 rval = EIO;
17685         }
17686         return (rval);
17687 }
17688 
17689 static int
17690 st_recovery_get_position(struct scsi_tape *un, tapepos_t *read,
17691     read_pos_data_t *raw)
17692 {
17693         int rval;
17694         read_p_types type = un->un_read_pos_type;
17695 
17696         ST_FUNC(ST_DEVINFO, st_recovery_get_position);
17697 
17698         do {
17699                 rval = st_recovery_read_pos(un, type, raw);
17700                 if (rval != 0) {
17701                         switch (type) {
17702                         case SHORT_POS:
17703                                 type = NO_POS;
17704                                 break;
17705 
17706                         case LONG_POS:
17707                                 type = EXT_POS;
17708                                 break;
17709 
17710                         case EXT_POS:
17711                                 type = SHORT_POS;
17712                                 break;
17713 
17714                         default:
17715                                 type = LONG_POS;
17716                                 break;
17717 
17718                         }
17719                 } else {
17720                         if (type != un->un_read_pos_type) {
17721                                 un->un_read_pos_type = type;
17722                         }
17723                         break;
17724                 }
17725         } while (type != NO_POS);
17726 
17727         if (rval == 0) {
17728                 rval = st_interpret_read_pos(un, read, type,
17729                     sizeof (read_pos_data_t), (caddr_t)raw, 1);
17730         }
17731         return (rval);
17732 }
17733 
17734 /*
17735  * based on the command do we retry, continue or give up?
17736  * possable return values?
17737  *      zero do nothing looks fine.
17738  *      EAGAIN retry.
17739  *      EIO failed makes no sense.
17740  */
17741 static int
17742 st_compare_expected_position(struct scsi_tape *un, st_err_info *ei,
17743     cmd_attribute const * cmd_att, tapepos_t *read)
17744 {
17745         int rval;
17746         read_pos_data_t *readp_datap;
17747 
17748         ST_FUNC(ST_DEVINFO, st_compare_expected_position);
17749 
17750         ASSERT(un != NULL);
17751         ASSERT(ei != NULL);
17752         ASSERT(read != NULL);
17753         ASSERT(cmd_att->chg_tape_pos);
17754 
17755         COPY_POS(read, &ei->ei_expected_pos);
17756 
17757         readp_datap = kmem_zalloc(sizeof (read_pos_data_t), KM_SLEEP);
17758 
17759         rval = st_recovery_get_position(un, read, readp_datap);
17760 
17761         kmem_free(readp_datap, sizeof (read_pos_data_t));
17762 
17763         if (rval != 0) {
17764                 return (EIO);
17765         }
17766 
17767         ST_POS(ST_DEVINFO, "st_compare_expected_position", read);
17768 
17769         if ((read->pmode == invalid) ||
17770             (ei->ei_expected_pos.pmode == invalid)) {
17771                 return (EIO);
17772         }
17773 
17774         /*
17775          * Command that changes tape position and have an expected position
17776          * if it were to chave completed sucessfully.
17777          */
17778         if (cmd_att->recov_pos_type == POS_EXPECTED) {
17779                 uint32_t count;
17780                 int64_t difference;
17781                 uchar_t reposition = 0;
17782 
17783                 ASSERT(cmd_att->get_cnt);
17784                 count = cmd_att->get_cnt(ei->ei_failed_pkt.pkt_cdbp);
17785 
17786                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17787                     "Got count from CDB and it was %d\n", count);
17788 
17789                 /*
17790                  * At expected?
17791                  */
17792                 if (read->lgclblkno == ei->ei_expected_pos.lgclblkno) {
17793                         ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17794                             "Found drive to be at expected position\n");
17795 
17796                         /*
17797                          * If the command should move tape and it got a busy
17798                          * it shouldn't be in the expected position.
17799                          */
17800                         if (ei->ei_failing_status.sts_status.sts_busy != 0) {
17801                                 reposition = 1;
17802 
17803                         /*
17804                          * If the command doesn't transfer data should be good.
17805                          */
17806                         } else if (cmd_att->transfers_data == TRAN_NONE) {
17807                                 return (0); /* Good */
17808 
17809                         /*
17810                          * Command transfers data, should have done so.
17811                          */
17812                         } else if (ei->ei_failed_pkt.pkt_state &
17813                             STATE_XFERRED_DATA) {
17814                                 return (0); /* Good */
17815                         } else {
17816                                 reposition = 1;
17817                         }
17818                 }
17819 
17820                 if (cmd_att->chg_tape_direction == DIR_FORW) {
17821                         difference =
17822                             ei->ei_expected_pos.lgclblkno - read->lgclblkno;
17823 
17824                         ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17825                             "difference between expected and actual is %"
17826                             PRId64"\n", difference);
17827                         if (count == difference && reposition == 0) {
17828                                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17829                                     "Found failed FORW command, retrying\n");
17830                                 return (EAGAIN);
17831                         }
17832 
17833                         /*
17834                          * If rewound or somewhere between the starting position
17835                          * and the expected position (partial read or write).
17836                          * Locate to the starting position and try the whole
17837                          * thing over again.
17838                          */
17839                         if ((read->lgclblkno == 0) ||
17840                             ((difference > 0) && (difference < count))) {
17841                                 rval = st_logical_block_locate(un,
17842                                     st_uscsi_rcmd, read,
17843                                     ei->ei_expected_pos.lgclblkno - count,
17844                                     ei->ei_expected_pos.partition);
17845                                 if (rval == 0) {
17846                                         ST_RECOV(ST_DEVINFO, st_label,
17847                                             CE_NOTE, "reestablished FORW"
17848                                             " command retrying\n");
17849                                         return (EAGAIN);
17850                                 }
17851                         /*
17852                          * This handles flushed read ahead on the drive or
17853                          * an aborted read that presents as a busy and advanced
17854                          * the tape position.
17855                          */
17856                         } else if ((cmd_att->transfers_data == TRAN_READ) &&
17857                             ((difference < 0) || (reposition == 1))) {
17858                                 rval = st_logical_block_locate(un,
17859                                     st_uscsi_rcmd, read,
17860                                     ei->ei_expected_pos.lgclblkno - count,
17861                                     ei->ei_expected_pos.partition);
17862                                 if (rval == 0) {
17863                                         ST_RECOV(ST_DEVINFO, st_label,
17864                                             CE_NOTE, "reestablished FORW"
17865                                             " read command retrying\n");
17866                                         return (EAGAIN);
17867                                 }
17868                         /*
17869                          * XXX swag seeing difference of 2 on write filemark.
17870                          * If the space to the starting position works on a
17871                          * write that means the previous write made it to tape.
17872                          * If not we lost data and have to give up.
17873                          *
17874                          * The plot thickens. Now I am attempting to cover a
17875                          * count of 1 and a differance of 2 on a write.
17876                          */
17877                         } else if ((difference > count) || (reposition == 1)) {
17878                                 rval = st_logical_block_locate(un,
17879                                     st_uscsi_rcmd, read,
17880                                     ei->ei_expected_pos.lgclblkno - count,
17881                                     ei->ei_expected_pos.partition);
17882                                 if (rval == 0) {
17883                                         ST_RECOV(ST_DEVINFO, st_label,
17884                                             CE_NOTE, "reestablished FORW"
17885                                             " write command retrying\n");
17886                                         return (EAGAIN);
17887                                 }
17888                                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17889                                     "Seek to block %"PRId64" returned %d\n",
17890                                     ei->ei_expected_pos.lgclblkno - count,
17891                                     rval);
17892                         } else {
17893                                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17894                                     "Not expected transfers_data = %d "
17895                                     "difference = %"PRId64,
17896                                     cmd_att->transfers_data, difference);
17897                         }
17898 
17899                         return (EIO);
17900 
17901                 } else if (cmd_att->chg_tape_direction == DIR_REVC) {
17902                         /* Don't think we can write backwards */
17903                         ASSERT(cmd_att->transfers_data != TRAN_WRTE);
17904                         difference =
17905                             read->lgclblkno - ei->ei_expected_pos.lgclblkno;
17906                         ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17907                             "difference between expected and actual is %"
17908                             PRId64"\n", difference);
17909                         if (count == difference && reposition == 0) {
17910                                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17911                                     "Found failed REVC command, retrying\n");
17912                                 return (EAGAIN);
17913                         }
17914                         if ((read->lgclblkno == 0) ||
17915                             ((difference > 0) && (difference < count))) {
17916                                 rval = st_logical_block_locate(un,
17917                                     st_uscsi_rcmd, read,
17918                                     ei->ei_expected_pos.lgclblkno + count,
17919                                     ei->ei_expected_pos.partition);
17920                                 if (rval == 0) {
17921                                         ST_RECOV(ST_DEVINFO, st_label,
17922                                             CE_NOTE, "reestablished REVC"
17923                                             " command retrying\n");
17924                                         return (EAGAIN);
17925                                 }
17926                         /* This handles read ahead in reverse direction */
17927                         } else if ((cmd_att->transfers_data == TRAN_READ) &&
17928                             (difference < 0) || (reposition == 1)) {
17929                                 rval = st_logical_block_locate(un,
17930                                     st_uscsi_rcmd, read,
17931                                     ei->ei_expected_pos.lgclblkno - count,
17932                                     ei->ei_expected_pos.partition);
17933                                 if (rval == 0) {
17934                                         ST_RECOV(ST_DEVINFO, st_label,
17935                                             CE_NOTE, "reestablished REVC"
17936                                             " read command retrying\n");
17937                                         return (EAGAIN);
17938                                 }
17939                         } else {
17940                                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17941                                     "Not expected transfers_data = %d "
17942                                     "difference = %"PRId64,
17943                                     cmd_att->transfers_data, difference);
17944                         }
17945                         return (EIO);
17946 
17947                 } else {
17948                         /*
17949                          * Commands that change tape position either
17950                          * direction or don't change position should not
17951                          * get here.
17952                          */
17953                         ASSERT(0);
17954                 }
17955                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17956                     "Didn't find a recoverable position, Failing\n");
17957 
17958         /*
17959          * Command that changes tape position and can only be recovered
17960          * by going back to the point of origin and retrying.
17961          *
17962          * Example SCMD_SPACE.
17963          */
17964         } else if (cmd_att->recov_pos_type == POS_STARTING) {
17965                 /*
17966                  * This type of command stores the starting position.
17967                  * If the read position is the starting position,
17968                  * reissue the command.
17969                  */
17970                 if (ei->ei_expected_pos.lgclblkno == read->lgclblkno) {
17971                         ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17972                             "Found Space command at starting position, "
17973                             "Reissuing\n");
17974                         return (EAGAIN);
17975                 }
17976                 /*
17977                  * Not in the position that the command was originally issued,
17978                  * Attempt to locate to that position.
17979                  */
17980                 rval = st_logical_block_locate(un, st_uscsi_rcmd, read,
17981                     ei->ei_expected_pos.lgclblkno,
17982                     ei->ei_expected_pos.partition);
17983                 if (rval) {
17984                         ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17985                             "Found Space at an unexpected position and locate "
17986                             "back to starting position failed\n");
17987                         return (EIO);
17988                 }
17989                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17990                     "Found Space at an unexpected position and locate "
17991                     "back to starting position worked, Reissuing\n");
17992                 return (EAGAIN);
17993         }
17994         st_print_position(ST_DEVINFO, st_label, CE_NOTE,
17995             "Unhandled attribute/expected position", &ei->ei_expected_pos);
17996         st_print_position(ST_DEVINFO, st_label, CE_NOTE,
17997             "Read position above did not make sense", read);
17998         ASSERT(0);
17999         return (EIO);
18000 }
18001 
18002 static errstate
18003 st_recover_reissue_pkt(struct scsi_tape *un, struct scsi_pkt *oldpkt)
18004 {
18005         buf_t *bp;
18006         buf_t *pkt_bp;
18007         struct scsi_pkt *newpkt;
18008         cmd_attribute const *attrib;
18009         recov_info *rcv = oldpkt->pkt_private;
18010         uint_t cdblen;
18011         int queued = 0;
18012         int rval;
18013         int flags = 0;
18014         int stat_size =
18015             (un->un_arq_enabled ? sizeof (struct scsi_arq_status) : 1);
18016 
18017         ST_FUNC(ST_DEVINFO, st_recover_reissue_pkt);
18018 
18019         bp = rcv->cmd_bp;
18020 
18021         if (rcv->privatelen == sizeof (recov_info)) {
18022                 attrib = rcv->cmd_attrib;
18023         } else {
18024                 attrib = st_lookup_cmd_attribute(oldpkt->pkt_cdbp[0]);
18025         }
18026 
18027         /*
18028          * Some non-uscsi commands use the b_bcount for values that
18029          * have nothing to do with how much data is transfered.
18030          * In those cases we need to hide the buf_t from scsi_init_pkt().
18031          */
18032         if ((BP_UCMD(bp)) && (bp->b_bcount)) {
18033                 pkt_bp = bp;
18034         } else if (attrib->transfers_data == TRAN_NONE) {
18035                 pkt_bp = NULL;
18036         } else {
18037                 pkt_bp = bp;
18038         }
18039 
18040         /*
18041          * if this is a queued command make sure it the only one in the
18042          * run queue.
18043          */
18044         if (bp != un->un_sbufp && bp != un->un_recov_buf) {
18045                 ASSERT(un->un_runqf == un->un_runql);
18046                 ASSERT(un->un_runqf == bp);
18047                 queued = 1;
18048         }
18049 
18050         cdblen = scsi_cdb_size[CDB_GROUPID(oldpkt->pkt_cdbp[0])];
18051 
18052         if (pkt_bp == un->un_rqs_bp) {
18053                 flags |= PKT_CONSISTENT;
18054                 stat_size = 1;
18055         }
18056 
18057         newpkt = scsi_init_pkt(ROUTE, NULL, pkt_bp, cdblen,
18058             stat_size, rcv->privatelen, flags, NULL_FUNC, NULL);
18059         if (newpkt == NULL) {
18060                 ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
18061                     "Reissue pkt scsi_init_pkt() failure\n");
18062                 return (COMMAND_DONE_ERROR);
18063         }
18064 
18065         ASSERT(newpkt->pkt_resid == 0);
18066         bp->b_flags &= ~(B_DONE);
18067         bp->b_resid = 0;
18068         st_bioerror(bp, 0);
18069 
18070         bcopy(oldpkt->pkt_private, newpkt->pkt_private, rcv->privatelen);
18071 
18072         newpkt->pkt_comp = oldpkt->pkt_comp;
18073         newpkt->pkt_time = oldpkt->pkt_time;
18074 
18075         bzero(newpkt->pkt_scbp, stat_size);
18076         bcopy(oldpkt->pkt_cdbp, newpkt->pkt_cdbp, cdblen);
18077 
18078         newpkt->pkt_state = 0;
18079         newpkt->pkt_statistics = 0;
18080 
18081         /*
18082          * oldpkt passed in was a copy of the original.
18083          * to distroy we need the address of the original.
18084          */
18085         oldpkt = BP_PKT(bp);
18086 
18087         if (oldpkt == un->un_rqs) {
18088                 ASSERT(bp == un->un_rqs_bp);
18089                 un->un_rqs = newpkt;
18090         }
18091 
18092         SET_BP_PKT(bp, newpkt);
18093 
18094         scsi_destroy_pkt(oldpkt);
18095 
18096         rval = st_transport(un, newpkt);
18097         if (rval == TRAN_ACCEPT) {
18098                 return (JUST_RETURN);
18099         }
18100         ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
18101             "Reissue pkt st_transport(0x%x) failure\n", rval);
18102         if (rval != TRAN_BUSY) {
18103                 return (COMMAND_DONE_ERROR);
18104         }
18105         mutex_exit(ST_MUTEX);
18106         rval = st_handle_start_busy(un, bp, ST_TRAN_BUSY_TIMEOUT, queued);
18107         mutex_enter(ST_MUTEX);
18108         if (rval) {
18109                 return (COMMAND_DONE_ERROR);
18110         }
18111 
18112         return (JUST_RETURN);
18113 }
18114 
18115 static int
18116 st_transport(struct scsi_tape *un, struct scsi_pkt *pkt)
18117 {
18118         int status;
18119 
18120         ST_FUNC(ST_DEVINFO, st_transport);
18121 
18122         ST_CDB(ST_DEVINFO, "transport CDB", (caddr_t)pkt->pkt_cdbp);
18123 
18124         mutex_exit(ST_MUTEX);
18125 
18126         status = scsi_transport(pkt);
18127 
18128         mutex_enter(ST_MUTEX);
18129 
18130         return (status);
18131 }
18132 
18133 /*
18134  * Removed the buf_t bp from the queue referenced to by head and tail.
18135  * Returns the buf_t pointer if it is found in the queue.
18136  * Returns NULL if it is not found.
18137  */
18138 static buf_t *
18139 st_remove_from_queue(buf_t **head, buf_t **tail, buf_t *bp)
18140 {
18141         buf_t *runqbp;
18142         buf_t *prevbp = NULL;
18143 
18144         for (runqbp = *head; runqbp != 0; runqbp = runqbp->av_forw) {
18145                 if (runqbp == bp) {
18146                         /* found it, is it at the head? */
18147                         if (runqbp == *head) {
18148                                 *head = bp->av_forw;
18149                         } else {
18150                                 prevbp->av_forw = bp->av_forw;
18151                         }
18152                         if (*tail == bp) {
18153                                 *tail = prevbp;
18154                         }
18155                         bp->av_forw = NULL;
18156                         return (bp); /* found and removed */
18157                 }
18158                 prevbp = runqbp;
18159         }
18160         return (NULL);
18161 }
18162 
18163 /*
18164  * Adds a buf_t to the queue pointed to by head and tail.
18165  * Adds it either to the head end or the tail end based on which
18166  * the passed variable end (head or tail) points at.
18167  */
18168 static void
18169 st_add_to_queue(buf_t **head, buf_t **tail, buf_t *end, buf_t *bp)
18170 {
18171 
18172         bp->av_forw = NULL;
18173         if (*head) {
18174                 /* Queue is not empty */
18175                 if (end == *head) {
18176                         /* Add at front of queue */
18177                         bp->av_forw = *head;
18178                         *head = bp;
18179                 } else if (end == *tail) {
18180                         /* Add at end of queue */
18181                         (*tail)->av_forw = bp;
18182                         *tail = bp;
18183                 } else {
18184                         ASSERT(0);
18185                 }
18186         } else {
18187                 /* Queue is empty */
18188                 *head = bp;
18189                 *tail = bp;
18190         }
18191 }
18192 
18193 
18194 static uint64_t
18195 st_get_cdb_g0_rw_count(uchar_t *cdb)
18196 {
18197         uint64_t count;
18198 
18199         if ((cdb[1]) & 1) {
18200                 /* fixed block mode, the count is the number of blocks */
18201                 count =
18202                     cdb[2] << 16 |
18203                     cdb[3] << 8 |
18204                     cdb[4];
18205         } else {
18206                 /* variable block mode, the count is the block size */
18207                 count = 1;
18208         }
18209         return (count);
18210 }
18211 
18212 static uint64_t
18213 st_get_cdb_g0_sign_count(uchar_t *cdb)
18214 {
18215         uint64_t count;
18216 
18217         count =
18218             cdb[2] << 16 |
18219             cdb[3] << 8 |
18220             cdb[4];
18221         /*
18222          * If the sign bit of the 3 byte value is set, extended it.
18223          */
18224         if (count & 0x800000) {
18225                 count |= 0xffffffffff000000;
18226         }
18227         return (count);
18228 }
18229 
18230 static uint64_t
18231 st_get_cdb_g0_count(uchar_t *cdb)
18232 {
18233         uint64_t count;
18234 
18235         count =
18236             cdb[2] << 16 |
18237             cdb[3] << 8 |
18238             cdb[4];
18239         return (count);
18240 }
18241 
18242 static uint64_t
18243 st_get_cdb_g5_rw_cnt(uchar_t *cdb)
18244 {
18245         uint64_t count;
18246 
18247         if ((cdb[1]) & 1) {
18248                 /* fixed block mode */
18249                 count =
18250                     cdb[12] << 16 |
18251                     cdb[13] << 8 |
18252                     cdb[14];
18253         } else {
18254                 /* variable block mode */
18255                 count = 1;
18256         }
18257         return (count);
18258 }
18259 
18260 static uint64_t
18261 st_get_no_count(uchar_t *cdb)
18262 {
18263         ASSERT(cdb[0] == SCMD_REWIND);
18264         return ((uint64_t)cdb[0]);
18265 }
18266 
18267 static uint64_t
18268 st_get_load_options(uchar_t *cdb)
18269 {
18270         return ((uint64_t)(cdb[4] | (LD_HOLD << 1)));
18271 }
18272 
18273 static uint64_t
18274 st_get_erase_options(uchar_t *cdb)
18275 {
18276         return (cdb[1] | (cdb[0] << 8));
18277 }
18278 
18279 static uint64_t
18280 st_get_cdb_g1_lba(uchar_t *cdb)
18281 {
18282         uint64_t lba;
18283 
18284         lba =
18285             cdb[3] << 24 |
18286             cdb[4] << 16 |
18287             cdb[5] << 8 |
18288             cdb[6];
18289         return (lba);
18290 }
18291 
18292 static uint64_t
18293 st_get_cdb_g5_count(uchar_t *cdb)
18294 {
18295         uint64_t count =
18296             cdb[12] << 16 |
18297             cdb[13] << 8 |
18298             cdb[14];
18299 
18300         return (count);
18301 }
18302 
18303 static uint64_t
18304 st_get_cdb_g4g5_cnt(uchar_t *cdb)
18305 {
18306         uint64_t lba;
18307 
18308         lba =
18309             (uint64_t)cdb[4] << 56 |
18310             (uint64_t)cdb[5] << 48 |
18311             (uint64_t)cdb[6] << 40 |
18312             (uint64_t)cdb[7] << 32 |
18313             (uint64_t)cdb[8] << 24 |
18314             (uint64_t)cdb[9] << 16 |
18315             (uint64_t)cdb[10] << 8 |
18316             (uint64_t)cdb[11];
18317         return (lba);
18318 }
18319 
18320 static const cmd_attribute cmd_attributes[] = {
18321         { SCMD_READ,
18322             1, 0, 1, 0, 0, DIR_FORW, TRAN_READ, POS_EXPECTED,
18323             0, 0, 0, st_get_cdb_g0_rw_count },
18324         { SCMD_WRITE,
18325             1, 0, 1, 1, 0, DIR_FORW, TRAN_WRTE, POS_EXPECTED,
18326             0, 0, 0, st_get_cdb_g0_rw_count },
18327         { SCMD_TEST_UNIT_READY,
18328             0, 1, 0, 0, 0, DIR_NONE, TRAN_NONE, POS_EXPECTED,
18329             0, 0, 0 },
18330         { SCMD_REWIND,
18331             1, 1, 1, 0, 0, DIR_REVC, TRAN_NONE, POS_EXPECTED,
18332             0, 0, 0, st_get_no_count },
18333         { SCMD_REQUEST_SENSE,
18334             0, 0, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18335             0, 0, 0 },
18336         { SCMD_READ_BLKLIM,
18337             0, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18338             0, 0, 0 },
18339         { SCMD_READ_G4,
18340             1, 0, 1, 0, 1, DIR_FORW, TRAN_READ, POS_EXPECTED,
18341             0, 0, 0, st_get_cdb_g5_rw_cnt, st_get_cdb_g4g5_cnt },
18342         { SCMD_WRITE_G4,
18343             1, 0, 1, 1, 1, DIR_FORW, TRAN_WRTE, POS_EXPECTED,
18344             0, 0, 0, st_get_cdb_g5_rw_cnt, st_get_cdb_g4g5_cnt },
18345         { SCMD_READ_REVERSE,
18346             1, 0, 1, 1, 0, DIR_REVC, TRAN_READ, POS_EXPECTED,
18347             0, 0, 0, st_get_cdb_g0_rw_count },
18348         { SCMD_READ_REVERSE_G4,
18349             1, 0, 1, 1, 1, DIR_REVC, TRAN_READ, POS_EXPECTED,
18350             0, 0, 0, st_get_cdb_g5_rw_cnt, st_get_cdb_g4g5_cnt },
18351         { SCMD_WRITE_FILE_MARK,
18352             1, 0, 1, 1, 0, DIR_FORW, TRAN_NONE, POS_EXPECTED,
18353             0, 0, 0, st_get_cdb_g0_count },
18354         { SCMD_WRITE_FILE_MARK_G4,
18355             1, 0, 1, 1, 1, DIR_FORW, TRAN_NONE, POS_EXPECTED,
18356             0, 0, 0, st_get_cdb_g5_count, st_get_cdb_g4g5_cnt },
18357         { SCMD_SPACE,
18358             1, 0, 1, 0, 0, DIR_EITH, TRAN_NONE, POS_STARTING,
18359             0, 0, 0, st_get_cdb_g0_sign_count },
18360         { SCMD_SPACE_G4,
18361             1, 0, 1, 0, 0, DIR_EITH, TRAN_NONE, POS_STARTING,
18362             0, 0, 0, st_get_cdb_g4g5_cnt },
18363         { SCMD_INQUIRY,
18364             0, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18365             0, 0, 0 },
18366         { SCMD_VERIFY_G0,
18367             1, 0, 1, 0, 0, DIR_FORW, TRAN_NONE, POS_EXPECTED,
18368             0, 0, 0, st_get_cdb_g0_rw_count },
18369         { SCMD_VERIFY_G4,
18370             1, 0, 1, 0, 1, DIR_FORW, TRAN_NONE, POS_EXPECTED,
18371             0, 0, 0, st_get_cdb_g5_rw_cnt, st_get_cdb_g4g5_cnt },
18372         { SCMD_RECOVER_BUF,
18373             1, 0, 1, 1, 0, DIR_REVC, TRAN_READ, POS_EXPECTED,
18374             0, 0, 0 },
18375         { SCMD_MODE_SELECT,
18376             1, 1, 0, 0, 0, DIR_NONE, TRAN_WRTE, POS_EXPECTED,
18377             0, 0, 0 },
18378         { SCMD_RESERVE,
18379             0, 1, 0, 0, 0, DIR_NONE, TRAN_NONE, POS_EXPECTED,
18380             0, 0, 0 },
18381         { SCMD_RELEASE,
18382             0, 1, 0, 0, 0, DIR_NONE, TRAN_NONE, POS_EXPECTED,
18383             0, 0, 0 },
18384         { SCMD_ERASE,
18385             1, 0, 1, 1, 0, DIR_NONE, TRAN_NONE, POS_EXPECTED,
18386             0, 0, 0, st_get_erase_options },
18387         { SCMD_MODE_SENSE,
18388             1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18389             0, 0, 0 },
18390         { SCMD_LOAD,
18391             1, 1, 1, 0, 0, DIR_EITH, TRAN_NONE, POS_EXPECTED,
18392             0, 0, 0, st_get_load_options },
18393         { SCMD_GDIAG,
18394             1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18395             1, 0, 0 },
18396         { SCMD_SDIAG,
18397             1, 0, 1, 1, 0, DIR_EITH, TRAN_WRTE, POS_EXPECTED,
18398             1, 0, 0 },
18399         { SCMD_DOORLOCK,
18400             0, 1, 0, 0, 0, DIR_NONE, TRAN_NONE, POS_EXPECTED,
18401             0, 4, 3 },
18402         { SCMD_LOCATE,
18403             1, 1, 1, 0, 0, DIR_EITH, TRAN_NONE, POS_EXPECTED,
18404             0, 0, 0, NULL, st_get_cdb_g1_lba },
18405         { SCMD_READ_POSITION,
18406             1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18407             0, 0, 0 },
18408         { SCMD_WRITE_BUFFER,
18409             1, 0, 0, 0, 0, DIR_NONE, TRAN_WRTE, POS_EXPECTED,
18410             1, 0, 0 },
18411         { SCMD_READ_BUFFER,
18412             1, 0, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18413             1, 0, 0 },
18414         { SCMD_REPORT_DENSITIES,
18415             0, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18416             0, 0, 0 },
18417         { SCMD_LOG_SELECT_G1,
18418             1, 1, 0, 0, 0, DIR_NONE, TRAN_WRTE, POS_EXPECTED,
18419             0, 0, 0 },
18420         { SCMD_LOG_SENSE_G1,
18421             1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18422             0, 0, 0 },
18423         { SCMD_PRIN,
18424             0, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18425             0, 0, 0 },
18426         { SCMD_PROUT,
18427             0, 1, 0, 0, 0, DIR_NONE, TRAN_WRTE, POS_EXPECTED,
18428             0, 0, 0 },
18429         { SCMD_READ_ATTRIBUTE,
18430             1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18431             0, 0, 0 },
18432         { SCMD_WRITE_ATTRIBUTE,
18433             1, 1, 0, 0, 0, DIR_NONE, TRAN_WRTE, POS_EXPECTED,
18434             0, 0, 0 },
18435         { SCMD_LOCATE_G4,
18436             1, 1, 1, 0, 0, DIR_EITH, TRAN_NONE, POS_EXPECTED,
18437             0, 0, 0, NULL, st_get_cdb_g4g5_cnt },
18438         { SCMD_REPORT_LUNS,
18439             0, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18440             0, 0, 0 },
18441         { SCMD_SVC_ACTION_IN_G5,
18442             1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18443             0, 0, 0 },
18444         { SCMD_MAINTENANCE_IN,
18445             1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18446             0, 0, 0 },
18447         { SCMD_MAINTENANCE_OUT,
18448             1, 1, 0, 0, 0, DIR_NONE, TRAN_WRTE, POS_EXPECTED,
18449             0, 0, 0 },
18450         { 0xff, /* Default attribute for unsupported commands */
18451             1, 0, 0, 0, 0, DIR_NONE, TRAN_NONE, POS_STARTING,
18452             1, 0, 0, NULL, NULL }
18453 };
18454 
18455 static const cmd_attribute *
18456 st_lookup_cmd_attribute(unsigned char cmd)
18457 {
18458         int i;
18459         cmd_attribute const *attribute;
18460 
18461         for (i = 0; i < ST_NUM_MEMBERS(cmd_attributes); i++) {
18462                 attribute = &cmd_attributes[i];
18463                 if (attribute->cmd == cmd) {
18464                         return (attribute);
18465                 }
18466         }
18467         ASSERT(attribute);
18468         return (attribute);
18469 }
18470 
18471 static int
18472 st_reset(struct scsi_tape *un, int reset_type)
18473 {
18474         int rval;
18475 
18476         ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
18477 
18478         ST_FUNC(ST_DEVINFO, st_reset);
18479         un->un_rsvd_status |= ST_INITIATED_RESET;
18480         mutex_exit(ST_MUTEX);
18481         do {
18482                 rval = scsi_reset(&un->un_sd->sd_address, reset_type);
18483                 if (rval == 0) {
18484                         switch (reset_type) {
18485                         case RESET_LUN:
18486                                 ST_DEBUG3(ST_DEVINFO, st_label, CE_WARN,
18487                                     "LUN reset failed trying target reset");
18488                                 reset_type = RESET_TARGET;
18489                                 break;
18490                         case RESET_TARGET:
18491                                 ST_DEBUG3(ST_DEVINFO, st_label, CE_WARN,
18492                                     "target reset failed trying bus reset");
18493                                 reset_type = RESET_BUS;
18494                                 break;
18495                         case RESET_BUS:
18496                                 ST_DEBUG3(ST_DEVINFO, st_label, CE_WARN,
18497                                     "bus reset failed trying all reset");
18498                                 reset_type = RESET_ALL;
18499                         default:
18500                                 mutex_enter(ST_MUTEX);
18501                                 return (rval);
18502                         }
18503                 }
18504         } while (rval == 0);
18505         mutex_enter(ST_MUTEX);
18506         return (rval);
18507 }
18508 
18509 #define SAS_TLR_MOD_LEN sizeof (struct seq_mode)
18510 static int
18511 st_set_target_TLR_mode(struct scsi_tape *un, ubufunc_t ubf)
18512 {
18513         int ret;
18514         int amount = SAS_TLR_MOD_LEN;
18515         struct seq_mode *mode_data;
18516 
18517         ST_FUNC(ST_DEVINFO, st_set_target_TLR_mode);
18518 
18519         mode_data = kmem_zalloc(SAS_TLR_MOD_LEN, KM_SLEEP);
18520         ret = st_gen_mode_sense(un, ubf, 0x18, mode_data, amount);
18521         if (ret != DDI_SUCCESS) {
18522                 if (ret != EACCES)
18523                         un->un_tlr_flag = TLR_NOT_SUPPORTED;
18524                 goto out;
18525         }
18526         if (mode_data->data_len != amount + 1) {
18527                 amount = mode_data->data_len + 1;
18528         }
18529         /* Must be SAS protocol */
18530         if (mode_data->page.saslun.protocol_id != 6) {
18531                 un->un_tlr_flag = TLR_NOT_SUPPORTED;
18532                 ret = ENOTSUP;
18533                 goto out;
18534         }
18535         if (un->un_tlr_flag == TLR_SAS_ONE_DEVICE) {
18536                 if (mode_data->page.saslun.tran_layer_ret == 1)
18537                         goto out;
18538                 mode_data->page.saslun.tran_layer_ret = 1;
18539         } else {
18540                 if (mode_data->page.saslun.tran_layer_ret == 0)
18541                         goto out;
18542                 mode_data->page.saslun.tran_layer_ret = 0;
18543         }
18544         ret = st_gen_mode_select(un, ubf, mode_data, amount);
18545         if (ret != DDI_SUCCESS) {
18546                 if (ret != EACCES)
18547                         un->un_tlr_flag = TLR_NOT_SUPPORTED;
18548         } else {
18549                 if (mode_data->page.saslun.tran_layer_ret == 0)
18550                         un->un_tlr_flag = TLR_NOT_KNOWN;
18551                 else
18552                         un->un_tlr_flag = TLR_SAS_ONE_DEVICE;
18553         }
18554 #ifdef STDEBUG
18555         st_clean_print(ST_DEVINFO, st_label, SCSI_DEBUG, "TLR data sent",
18556             (char *)mode_data, amount);
18557 #endif
18558 out:
18559         kmem_free(mode_data, SAS_TLR_MOD_LEN);
18560         return (ret);
18561 }
18562 
18563 
18564 static void
18565 st_reset_notification(caddr_t arg)
18566 {
18567         struct scsi_tape *un = (struct scsi_tape *)arg;
18568 
18569         ST_FUNC(ST_DEVINFO, st_reset_notification);
18570         mutex_enter(ST_MUTEX);
18571 
18572         un->un_unit_attention_flags |= 2;
18573         if ((un->un_rsvd_status & (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) ==
18574             ST_RESERVE) {
18575                 un->un_rsvd_status |= ST_LOST_RESERVE;
18576                 ST_DEBUG2(ST_DEVINFO, st_label, CE_WARN,
18577                     "Lost Reservation notification");
18578         } else {
18579                 ST_DEBUG2(ST_DEVINFO, st_label, CE_WARN,
18580                     "reset notification");
18581         }
18582 
18583         if ((un->un_restore_pos == 0) &&
18584             (un->un_state == ST_STATE_CLOSED) ||
18585             (un->un_state == ST_STATE_OPEN_PENDING_IO) ||
18586             (un->un_state == ST_STATE_CLOSING)) {
18587                 un->un_restore_pos = 1;
18588         }
18589         ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
18590             "reset and state was %d\n", un->un_state);
18591         mutex_exit(ST_MUTEX);
18592 }