Back to home page

OSCL-LXR
 
 

     

0001 // SPDX-License-Identifier: GPL-2.0
0002 /*
0003  *    tape device discipline for 3590 tapes.
0004  *
0005  *    Copyright IBM Corp. 2001, 2009
0006  *    Author(s): Stefan Bader <shbader@de.ibm.com>
0007  *       Michael Holzheu <holzheu@de.ibm.com>
0008  *       Martin Schwidefsky <schwidefsky@de.ibm.com>
0009  */
0010 
0011 #define KMSG_COMPONENT "tape_3590"
0012 #define pr_fmt(fmt) KMSG_COMPONENT ": " fmt
0013 
0014 #include <linux/module.h>
0015 #include <linux/slab.h>
0016 #include <linux/init.h>
0017 #include <linux/bio.h>
0018 #include <asm/ebcdic.h>
0019 
0020 #define TAPE_DBF_AREA   tape_3590_dbf
0021 #define BUFSIZE 512 /* size of buffers for dynamic generated messages */
0022 
0023 #include "tape.h"
0024 #include "tape_std.h"
0025 #include "tape_3590.h"
0026 
0027 static struct workqueue_struct *tape_3590_wq;
0028 
0029 /*
0030  * Pointer to debug area.
0031  */
0032 debug_info_t *TAPE_DBF_AREA = NULL;
0033 EXPORT_SYMBOL(TAPE_DBF_AREA);
0034 
0035 /*******************************************************************
0036  * Error Recovery functions:
0037  * - Read Opposite:      implemented
0038  * - Read Device (buffered) log: BRA
0039  * - Read Library log:       BRA
0040  * - Swap Devices:       BRA
0041  * - Long Busy:          implemented
0042  * - Special Intercept:      BRA
0043  * - Read Alternate:         implemented
0044  *******************************************************************/
0045 
0046 static const char *tape_3590_msg[TAPE_3590_MAX_MSG] = {
0047     [0x00] = "",
0048     [0x10] = "Lost Sense",
0049     [0x11] = "Assigned Elsewhere",
0050     [0x12] = "Allegiance Reset",
0051     [0x13] = "Shared Access Violation",
0052     [0x20] = "Command Reject",
0053     [0x21] = "Configuration Error",
0054     [0x22] = "Protection Exception",
0055     [0x23] = "Write Protect",
0056     [0x24] = "Write Length",
0057     [0x25] = "Read-Only Format",
0058     [0x31] = "Beginning of Partition",
0059     [0x33] = "End of Partition",
0060     [0x34] = "End of Data",
0061     [0x35] = "Block not found",
0062     [0x40] = "Device Intervention",
0063     [0x41] = "Loader Intervention",
0064     [0x42] = "Library Intervention",
0065     [0x50] = "Write Error",
0066     [0x51] = "Erase Error",
0067     [0x52] = "Formatting Error",
0068     [0x53] = "Read Error",
0069     [0x54] = "Unsupported Format",
0070     [0x55] = "No Formatting",
0071     [0x56] = "Positioning lost",
0072     [0x57] = "Read Length",
0073     [0x60] = "Unsupported Medium",
0074     [0x61] = "Medium Length Error",
0075     [0x62] = "Medium removed",
0076     [0x64] = "Load Check",
0077     [0x65] = "Unload Check",
0078     [0x70] = "Equipment Check",
0079     [0x71] = "Bus out Check",
0080     [0x72] = "Protocol Error",
0081     [0x73] = "Interface Error",
0082     [0x74] = "Overrun",
0083     [0x75] = "Halt Signal",
0084     [0x90] = "Device fenced",
0085     [0x91] = "Device Path fenced",
0086     [0xa0] = "Volume misplaced",
0087     [0xa1] = "Volume inaccessible",
0088     [0xa2] = "Volume in input",
0089     [0xa3] = "Volume ejected",
0090     [0xa4] = "All categories reserved",
0091     [0xa5] = "Duplicate Volume",
0092     [0xa6] = "Library Manager Offline",
0093     [0xa7] = "Library Output Station full",
0094     [0xa8] = "Vision System non-operational",
0095     [0xa9] = "Library Manager Equipment Check",
0096     [0xaa] = "Library Equipment Check",
0097     [0xab] = "All Library Cells full",
0098     [0xac] = "No Cleaner Volumes in Library",
0099     [0xad] = "I/O Station door open",
0100     [0xae] = "Subsystem environmental alert",
0101 };
0102 
0103 static int crypt_supported(struct tape_device *device)
0104 {
0105     return TAPE390_CRYPT_SUPPORTED(TAPE_3590_CRYPT_INFO(device));
0106 }
0107 
0108 static int crypt_enabled(struct tape_device *device)
0109 {
0110     return TAPE390_CRYPT_ON(TAPE_3590_CRYPT_INFO(device));
0111 }
0112 
0113 static void ext_to_int_kekl(struct tape390_kekl *in,
0114                 struct tape3592_kekl *out)
0115 {
0116     int len;
0117 
0118     memset(out, 0, sizeof(*out));
0119     if (in->type == TAPE390_KEKL_TYPE_HASH)
0120         out->flags |= 0x40;
0121     if (in->type_on_tape == TAPE390_KEKL_TYPE_HASH)
0122         out->flags |= 0x80;
0123     len = min(sizeof(out->label), strlen(in->label));
0124     memcpy(out->label, in->label, len);
0125     memset(out->label + len, ' ', sizeof(out->label) - len);
0126     ASCEBC(out->label, sizeof(out->label));
0127 }
0128 
0129 static void int_to_ext_kekl(struct tape3592_kekl *in,
0130                 struct tape390_kekl *out)
0131 {
0132     memset(out, 0, sizeof(*out));
0133     if(in->flags & 0x40)
0134         out->type = TAPE390_KEKL_TYPE_HASH;
0135     else
0136         out->type = TAPE390_KEKL_TYPE_LABEL;
0137     if(in->flags & 0x80)
0138         out->type_on_tape = TAPE390_KEKL_TYPE_HASH;
0139     else
0140         out->type_on_tape = TAPE390_KEKL_TYPE_LABEL;
0141     memcpy(out->label, in->label, sizeof(in->label));
0142     EBCASC(out->label, sizeof(in->label));
0143     strim(out->label);
0144 }
0145 
0146 static void int_to_ext_kekl_pair(struct tape3592_kekl_pair *in,
0147                  struct tape390_kekl_pair *out)
0148 {
0149     if (in->count == 0) {
0150         out->kekl[0].type = TAPE390_KEKL_TYPE_NONE;
0151         out->kekl[0].type_on_tape = TAPE390_KEKL_TYPE_NONE;
0152         out->kekl[1].type = TAPE390_KEKL_TYPE_NONE;
0153         out->kekl[1].type_on_tape = TAPE390_KEKL_TYPE_NONE;
0154     } else if (in->count == 1) {
0155         int_to_ext_kekl(&in->kekl[0], &out->kekl[0]);
0156         out->kekl[1].type = TAPE390_KEKL_TYPE_NONE;
0157         out->kekl[1].type_on_tape = TAPE390_KEKL_TYPE_NONE;
0158     } else if (in->count == 2) {
0159         int_to_ext_kekl(&in->kekl[0], &out->kekl[0]);
0160         int_to_ext_kekl(&in->kekl[1], &out->kekl[1]);
0161     } else {
0162         printk("Invalid KEKL number: %d\n", in->count);
0163         BUG();
0164     }
0165 }
0166 
0167 static int check_ext_kekl(struct tape390_kekl *kekl)
0168 {
0169     if (kekl->type == TAPE390_KEKL_TYPE_NONE)
0170         goto invalid;
0171     if (kekl->type > TAPE390_KEKL_TYPE_HASH)
0172         goto invalid;
0173     if (kekl->type_on_tape == TAPE390_KEKL_TYPE_NONE)
0174         goto invalid;
0175     if (kekl->type_on_tape > TAPE390_KEKL_TYPE_HASH)
0176         goto invalid;
0177     if ((kekl->type == TAPE390_KEKL_TYPE_HASH) &&
0178         (kekl->type_on_tape == TAPE390_KEKL_TYPE_LABEL))
0179         goto invalid;
0180 
0181     return 0;
0182 invalid:
0183     return -EINVAL;
0184 }
0185 
0186 static int check_ext_kekl_pair(struct tape390_kekl_pair *kekls)
0187 {
0188     if (check_ext_kekl(&kekls->kekl[0]))
0189         goto invalid;
0190     if (check_ext_kekl(&kekls->kekl[1]))
0191         goto invalid;
0192 
0193     return 0;
0194 invalid:
0195     return -EINVAL;
0196 }
0197 
0198 /*
0199  * Query KEKLs
0200  */
0201 static int tape_3592_kekl_query(struct tape_device *device,
0202                 struct tape390_kekl_pair *ext_kekls)
0203 {
0204     struct tape_request *request;
0205     struct tape3592_kekl_query_order *order;
0206     struct tape3592_kekl_query_data *int_kekls;
0207     int rc;
0208 
0209     DBF_EVENT(6, "tape3592_kekl_query\n");
0210     int_kekls = kmalloc(sizeof(*int_kekls), GFP_KERNEL|GFP_DMA);
0211     if (!int_kekls)
0212         return -ENOMEM;
0213     request = tape_alloc_request(2, sizeof(*order));
0214     if (IS_ERR(request)) {
0215         rc = PTR_ERR(request);
0216         goto fail_malloc;
0217     }
0218     order = request->cpdata;
0219     memset(order,0,sizeof(*order));
0220     order->code = 0xe2;
0221     order->max_count = 2;
0222     request->op = TO_KEKL_QUERY;
0223     tape_ccw_cc(request->cpaddr, PERF_SUBSYS_FUNC, sizeof(*order), order);
0224     tape_ccw_end(request->cpaddr + 1, READ_SS_DATA, sizeof(*int_kekls),
0225              int_kekls);
0226     rc = tape_do_io(device, request);
0227     if (rc)
0228         goto fail_request;
0229     int_to_ext_kekl_pair(&int_kekls->kekls, ext_kekls);
0230 
0231     rc = 0;
0232 fail_request:
0233     tape_free_request(request);
0234 fail_malloc:
0235     kfree(int_kekls);
0236     return rc;
0237 }
0238 
0239 /*
0240  * IOCTL: Query KEKLs
0241  */
0242 static int tape_3592_ioctl_kekl_query(struct tape_device *device,
0243                       unsigned long arg)
0244 {
0245     int rc;
0246     struct tape390_kekl_pair *ext_kekls;
0247 
0248     DBF_EVENT(6, "tape_3592_ioctl_kekl_query\n");
0249     if (!crypt_supported(device))
0250         return -ENOSYS;
0251     if (!crypt_enabled(device))
0252         return -EUNATCH;
0253     ext_kekls = kmalloc(sizeof(*ext_kekls), GFP_KERNEL);
0254     if (!ext_kekls)
0255         return -ENOMEM;
0256     rc = tape_3592_kekl_query(device, ext_kekls);
0257     if (rc != 0)
0258         goto fail;
0259     if (copy_to_user((char __user *) arg, ext_kekls, sizeof(*ext_kekls))) {
0260         rc = -EFAULT;
0261         goto fail;
0262     }
0263     rc = 0;
0264 fail:
0265     kfree(ext_kekls);
0266     return rc;
0267 }
0268 
0269 static int tape_3590_mttell(struct tape_device *device, int mt_count);
0270 
0271 /*
0272  * Set KEKLs
0273  */
0274 static int tape_3592_kekl_set(struct tape_device *device,
0275                   struct tape390_kekl_pair *ext_kekls)
0276 {
0277     struct tape_request *request;
0278     struct tape3592_kekl_set_order *order;
0279 
0280     DBF_EVENT(6, "tape3592_kekl_set\n");
0281     if (check_ext_kekl_pair(ext_kekls)) {
0282         DBF_EVENT(6, "invalid kekls\n");
0283         return -EINVAL;
0284     }
0285     if (tape_3590_mttell(device, 0) != 0)
0286         return -EBADSLT;
0287     request = tape_alloc_request(1, sizeof(*order));
0288     if (IS_ERR(request))
0289         return PTR_ERR(request);
0290     order = request->cpdata;
0291     memset(order, 0, sizeof(*order));
0292     order->code = 0xe3;
0293     order->kekls.count = 2;
0294     ext_to_int_kekl(&ext_kekls->kekl[0], &order->kekls.kekl[0]);
0295     ext_to_int_kekl(&ext_kekls->kekl[1], &order->kekls.kekl[1]);
0296     request->op = TO_KEKL_SET;
0297     tape_ccw_end(request->cpaddr, PERF_SUBSYS_FUNC, sizeof(*order), order);
0298 
0299     return tape_do_io_free(device, request);
0300 }
0301 
0302 /*
0303  * IOCTL: Set KEKLs
0304  */
0305 static int tape_3592_ioctl_kekl_set(struct tape_device *device,
0306                     unsigned long arg)
0307 {
0308     int rc;
0309     struct tape390_kekl_pair *ext_kekls;
0310 
0311     DBF_EVENT(6, "tape_3592_ioctl_kekl_set\n");
0312     if (!crypt_supported(device))
0313         return -ENOSYS;
0314     if (!crypt_enabled(device))
0315         return -EUNATCH;
0316     ext_kekls = memdup_user((char __user *)arg, sizeof(*ext_kekls));
0317     if (IS_ERR(ext_kekls))
0318         return PTR_ERR(ext_kekls);
0319     rc = tape_3592_kekl_set(device, ext_kekls);
0320     kfree(ext_kekls);
0321     return rc;
0322 }
0323 
0324 /*
0325  * Enable encryption
0326  */
0327 static struct tape_request *__tape_3592_enable_crypt(struct tape_device *device)
0328 {
0329     struct tape_request *request;
0330     char *data;
0331 
0332     DBF_EVENT(6, "tape_3592_enable_crypt\n");
0333     if (!crypt_supported(device))
0334         return ERR_PTR(-ENOSYS);
0335     request = tape_alloc_request(2, 72);
0336     if (IS_ERR(request))
0337         return request;
0338     data = request->cpdata;
0339     memset(data,0,72);
0340 
0341     data[0]       = 0x05;
0342     data[36 + 0]  = 0x03;
0343     data[36 + 1]  = 0x03;
0344     data[36 + 4]  = 0x40;
0345     data[36 + 6]  = 0x01;
0346     data[36 + 14] = 0x2f;
0347     data[36 + 18] = 0xc3;
0348     data[36 + 35] = 0x72;
0349     request->op = TO_CRYPT_ON;
0350     tape_ccw_cc(request->cpaddr, MODE_SET_CB, 36, data);
0351     tape_ccw_end(request->cpaddr + 1, MODE_SET_CB, 36, data + 36);
0352     return request;
0353 }
0354 
0355 static int tape_3592_enable_crypt(struct tape_device *device)
0356 {
0357     struct tape_request *request;
0358 
0359     request = __tape_3592_enable_crypt(device);
0360     if (IS_ERR(request))
0361         return PTR_ERR(request);
0362     return tape_do_io_free(device, request);
0363 }
0364 
0365 static void tape_3592_enable_crypt_async(struct tape_device *device)
0366 {
0367     struct tape_request *request;
0368 
0369     request = __tape_3592_enable_crypt(device);
0370     if (!IS_ERR(request))
0371         tape_do_io_async_free(device, request);
0372 }
0373 
0374 /*
0375  * Disable encryption
0376  */
0377 static struct tape_request *__tape_3592_disable_crypt(struct tape_device *device)
0378 {
0379     struct tape_request *request;
0380     char *data;
0381 
0382     DBF_EVENT(6, "tape_3592_disable_crypt\n");
0383     if (!crypt_supported(device))
0384         return ERR_PTR(-ENOSYS);
0385     request = tape_alloc_request(2, 72);
0386     if (IS_ERR(request))
0387         return request;
0388     data = request->cpdata;
0389     memset(data,0,72);
0390 
0391     data[0]       = 0x05;
0392     data[36 + 0]  = 0x03;
0393     data[36 + 1]  = 0x03;
0394     data[36 + 35] = 0x32;
0395 
0396     request->op = TO_CRYPT_OFF;
0397     tape_ccw_cc(request->cpaddr, MODE_SET_CB, 36, data);
0398     tape_ccw_end(request->cpaddr + 1, MODE_SET_CB, 36, data + 36);
0399 
0400     return request;
0401 }
0402 
0403 static int tape_3592_disable_crypt(struct tape_device *device)
0404 {
0405     struct tape_request *request;
0406 
0407     request = __tape_3592_disable_crypt(device);
0408     if (IS_ERR(request))
0409         return PTR_ERR(request);
0410     return tape_do_io_free(device, request);
0411 }
0412 
0413 static void tape_3592_disable_crypt_async(struct tape_device *device)
0414 {
0415     struct tape_request *request;
0416 
0417     request = __tape_3592_disable_crypt(device);
0418     if (!IS_ERR(request))
0419         tape_do_io_async_free(device, request);
0420 }
0421 
0422 /*
0423  * IOCTL: Set encryption status
0424  */
0425 static int tape_3592_ioctl_crypt_set(struct tape_device *device,
0426                      unsigned long arg)
0427 {
0428     struct tape390_crypt_info info;
0429 
0430     DBF_EVENT(6, "tape_3592_ioctl_crypt_set\n");
0431     if (!crypt_supported(device))
0432         return -ENOSYS;
0433     if (copy_from_user(&info, (char __user *)arg, sizeof(info)))
0434         return -EFAULT;
0435     if (info.status & ~TAPE390_CRYPT_ON_MASK)
0436         return -EINVAL;
0437     if (info.status & TAPE390_CRYPT_ON_MASK)
0438         return tape_3592_enable_crypt(device);
0439     else
0440         return tape_3592_disable_crypt(device);
0441 }
0442 
0443 static int tape_3590_sense_medium(struct tape_device *device);
0444 
0445 /*
0446  * IOCTL: Query enryption status
0447  */
0448 static int tape_3592_ioctl_crypt_query(struct tape_device *device,
0449                        unsigned long arg)
0450 {
0451     DBF_EVENT(6, "tape_3592_ioctl_crypt_query\n");
0452     if (!crypt_supported(device))
0453         return -ENOSYS;
0454     tape_3590_sense_medium(device);
0455     if (copy_to_user((char __user *) arg, &TAPE_3590_CRYPT_INFO(device),
0456         sizeof(TAPE_3590_CRYPT_INFO(device))))
0457         return -EFAULT;
0458     else
0459         return 0;
0460 }
0461 
0462 /*
0463  * 3590 IOCTL Overload
0464  */
0465 static int
0466 tape_3590_ioctl(struct tape_device *device, unsigned int cmd, unsigned long arg)
0467 {
0468     switch (cmd) {
0469     case TAPE390_DISPLAY: {
0470         struct display_struct disp;
0471 
0472         if (copy_from_user(&disp, (char __user *) arg, sizeof(disp)))
0473             return -EFAULT;
0474 
0475         return tape_std_display(device, &disp);
0476     }
0477     case TAPE390_KEKL_SET:
0478         return tape_3592_ioctl_kekl_set(device, arg);
0479     case TAPE390_KEKL_QUERY:
0480         return tape_3592_ioctl_kekl_query(device, arg);
0481     case TAPE390_CRYPT_SET:
0482         return tape_3592_ioctl_crypt_set(device, arg);
0483     case TAPE390_CRYPT_QUERY:
0484         return tape_3592_ioctl_crypt_query(device, arg);
0485     default:
0486         return -EINVAL; /* no additional ioctls */
0487     }
0488 }
0489 
0490 /*
0491  * SENSE Medium: Get Sense data about medium state
0492  */
0493 static int tape_3590_sense_medium(struct tape_device *device)
0494 {
0495     struct tape_request *request;
0496 
0497     request = tape_alloc_request(1, 128);
0498     if (IS_ERR(request))
0499         return PTR_ERR(request);
0500     request->op = TO_MSEN;
0501     tape_ccw_end(request->cpaddr, MEDIUM_SENSE, 128, request->cpdata);
0502     return tape_do_io_free(device, request);
0503 }
0504 
0505 static void tape_3590_sense_medium_async(struct tape_device *device)
0506 {
0507     struct tape_request *request;
0508 
0509     request = tape_alloc_request(1, 128);
0510     if (IS_ERR(request))
0511         return;
0512     request->op = TO_MSEN;
0513     tape_ccw_end(request->cpaddr, MEDIUM_SENSE, 128, request->cpdata);
0514     tape_do_io_async_free(device, request);
0515 }
0516 
0517 /*
0518  * MTTELL: Tell block. Return the number of block relative to current file.
0519  */
0520 static int
0521 tape_3590_mttell(struct tape_device *device, int mt_count)
0522 {
0523     __u64 block_id;
0524     int rc;
0525 
0526     rc = tape_std_read_block_id(device, &block_id);
0527     if (rc)
0528         return rc;
0529     return block_id >> 32;
0530 }
0531 
0532 /*
0533  * MTSEEK: seek to the specified block.
0534  */
0535 static int
0536 tape_3590_mtseek(struct tape_device *device, int count)
0537 {
0538     struct tape_request *request;
0539 
0540     DBF_EVENT(6, "xsee id: %x\n", count);
0541     request = tape_alloc_request(3, 4);
0542     if (IS_ERR(request))
0543         return PTR_ERR(request);
0544     request->op = TO_LBL;
0545     tape_ccw_cc(request->cpaddr, MODE_SET_DB, 1, device->modeset_byte);
0546     *(__u32 *) request->cpdata = count;
0547     tape_ccw_cc(request->cpaddr + 1, LOCATE, 4, request->cpdata);
0548     tape_ccw_end(request->cpaddr + 2, NOP, 0, NULL);
0549     return tape_do_io_free(device, request);
0550 }
0551 
0552 /*
0553  * Read Opposite Error Recovery Function:
0554  * Used, when Read Forward does not work
0555  */
0556 static void
0557 tape_3590_read_opposite(struct tape_device *device,
0558             struct tape_request *request)
0559 {
0560     struct tape_3590_disc_data *data;
0561 
0562     /*
0563      * We have allocated 4 ccws in tape_std_read, so we can now
0564      * transform the request to a read backward, followed by a
0565      * forward space block.
0566      */
0567     request->op = TO_RBA;
0568     tape_ccw_cc(request->cpaddr, MODE_SET_DB, 1, device->modeset_byte);
0569     data = device->discdata;
0570     tape_ccw_cc_idal(request->cpaddr + 1, data->read_back_op,
0571              device->char_data.idal_buf);
0572     tape_ccw_cc(request->cpaddr + 2, FORSPACEBLOCK, 0, NULL);
0573     tape_ccw_end(request->cpaddr + 3, NOP, 0, NULL);
0574     DBF_EVENT(6, "xrop ccwg\n");
0575 }
0576 
0577 /*
0578  * Read Attention Msg
0579  * This should be done after an interrupt with attention bit (0x80)
0580  * in device state.
0581  *
0582  * After a "read attention message" request there are two possible
0583  * results:
0584  *
0585  * 1. A unit check is presented, when attention sense is present (e.g. when
0586  * a medium has been unloaded). The attention sense comes then
0587  * together with the unit check. The recovery action is either "retry"
0588  * (in case there is an attention message pending) or "permanent error".
0589  *
0590  * 2. The attention msg is written to the "read subsystem data" buffer.
0591  * In this case we probably should print it to the console.
0592  */
0593 static void tape_3590_read_attmsg_async(struct tape_device *device)
0594 {
0595     struct tape_request *request;
0596     char *buf;
0597 
0598     request = tape_alloc_request(3, 4096);
0599     if (IS_ERR(request))
0600         return;
0601     request->op = TO_READ_ATTMSG;
0602     buf = request->cpdata;
0603     buf[0] = PREP_RD_SS_DATA;
0604     buf[6] = RD_ATTMSG; /* read att msg */
0605     tape_ccw_cc(request->cpaddr, PERFORM_SS_FUNC, 12, buf);
0606     tape_ccw_cc(request->cpaddr + 1, READ_SS_DATA, 4096 - 12, buf + 12);
0607     tape_ccw_end(request->cpaddr + 2, NOP, 0, NULL);
0608     tape_do_io_async_free(device, request);
0609 }
0610 
0611 /*
0612  * These functions are used to schedule follow-up actions from within an
0613  * interrupt context (like unsolicited interrupts).
0614  * Note: the work handler is called by the system work queue. The tape
0615  * commands started by the handler need to be asynchrounous, otherwise
0616  * a deadlock can occur e.g. in case of a deferred cc=1 (see __tape_do_irq).
0617  */
0618 struct work_handler_data {
0619     struct tape_device *device;
0620     enum tape_op        op;
0621     struct work_struct  work;
0622 };
0623 
0624 static void
0625 tape_3590_work_handler(struct work_struct *work)
0626 {
0627     struct work_handler_data *p =
0628         container_of(work, struct work_handler_data, work);
0629 
0630     switch (p->op) {
0631     case TO_MSEN:
0632         tape_3590_sense_medium_async(p->device);
0633         break;
0634     case TO_READ_ATTMSG:
0635         tape_3590_read_attmsg_async(p->device);
0636         break;
0637     case TO_CRYPT_ON:
0638         tape_3592_enable_crypt_async(p->device);
0639         break;
0640     case TO_CRYPT_OFF:
0641         tape_3592_disable_crypt_async(p->device);
0642         break;
0643     default:
0644         DBF_EVENT(3, "T3590: work handler undefined for "
0645               "operation 0x%02x\n", p->op);
0646     }
0647     tape_put_device(p->device);
0648     kfree(p);
0649 }
0650 
0651 static int
0652 tape_3590_schedule_work(struct tape_device *device, enum tape_op op)
0653 {
0654     struct work_handler_data *p;
0655 
0656     if ((p = kzalloc(sizeof(*p), GFP_ATOMIC)) == NULL)
0657         return -ENOMEM;
0658 
0659     INIT_WORK(&p->work, tape_3590_work_handler);
0660 
0661     p->device = tape_get_device(device);
0662     p->op = op;
0663 
0664     queue_work(tape_3590_wq, &p->work);
0665     return 0;
0666 }
0667 
0668 static void tape_3590_med_state_set(struct tape_device *device,
0669                     struct tape_3590_med_sense *sense)
0670 {
0671     struct tape390_crypt_info *c_info;
0672 
0673     c_info = &TAPE_3590_CRYPT_INFO(device);
0674 
0675     DBF_EVENT(6, "medium state: %x:%x\n", sense->macst, sense->masst);
0676     switch (sense->macst) {
0677     case 0x04:
0678     case 0x05:
0679     case 0x06:
0680         tape_med_state_set(device, MS_UNLOADED);
0681         TAPE_3590_CRYPT_INFO(device).medium_status = 0;
0682         return;
0683     case 0x08:
0684     case 0x09:
0685         tape_med_state_set(device, MS_LOADED);
0686         break;
0687     default:
0688         tape_med_state_set(device, MS_UNKNOWN);
0689         return;
0690     }
0691     c_info->medium_status |= TAPE390_MEDIUM_LOADED_MASK;
0692     if (sense->flags & MSENSE_CRYPT_MASK) {
0693         DBF_EVENT(6, "Medium is encrypted (%04x)\n", sense->flags);
0694         c_info->medium_status |= TAPE390_MEDIUM_ENCRYPTED_MASK;
0695     } else  {
0696         DBF_EVENT(6, "Medium is not encrypted %04x\n", sense->flags);
0697         c_info->medium_status &= ~TAPE390_MEDIUM_ENCRYPTED_MASK;
0698     }
0699 }
0700 
0701 /*
0702  * The done handler is called at device/channel end and wakes up the sleeping
0703  * process
0704  */
0705 static int
0706 tape_3590_done(struct tape_device *device, struct tape_request *request)
0707 {
0708 
0709     DBF_EVENT(6, "%s done\n", tape_op_verbose[request->op]);
0710 
0711     switch (request->op) {
0712     case TO_BSB:
0713     case TO_BSF:
0714     case TO_DSE:
0715     case TO_FSB:
0716     case TO_FSF:
0717     case TO_LBL:
0718     case TO_RFO:
0719     case TO_RBA:
0720     case TO_REW:
0721     case TO_WRI:
0722     case TO_WTM:
0723     case TO_BLOCK:
0724     case TO_LOAD:
0725         tape_med_state_set(device, MS_LOADED);
0726         break;
0727     case TO_RUN:
0728         tape_med_state_set(device, MS_UNLOADED);
0729         tape_3590_schedule_work(device, TO_CRYPT_OFF);
0730         break;
0731     case TO_MSEN:
0732         tape_3590_med_state_set(device, request->cpdata);
0733         break;
0734     case TO_CRYPT_ON:
0735         TAPE_3590_CRYPT_INFO(device).status
0736             |= TAPE390_CRYPT_ON_MASK;
0737         *(device->modeset_byte) |= 0x03;
0738         break;
0739     case TO_CRYPT_OFF:
0740         TAPE_3590_CRYPT_INFO(device).status
0741             &= ~TAPE390_CRYPT_ON_MASK;
0742         *(device->modeset_byte) &= ~0x03;
0743         break;
0744     case TO_RBI:    /* RBI seems to succeed even without medium loaded. */
0745     case TO_NOP:    /* Same to NOP. */
0746     case TO_READ_CONFIG:
0747     case TO_READ_ATTMSG:
0748     case TO_DIS:
0749     case TO_ASSIGN:
0750     case TO_UNASSIGN:
0751     case TO_SIZE:
0752     case TO_KEKL_SET:
0753     case TO_KEKL_QUERY:
0754     case TO_RDC:
0755         break;
0756     }
0757     return TAPE_IO_SUCCESS;
0758 }
0759 
0760 /*
0761  * This function is called, when error recovery was successful
0762  */
0763 static inline int
0764 tape_3590_erp_succeeded(struct tape_device *device, struct tape_request *request)
0765 {
0766     DBF_EVENT(3, "Error Recovery successful for %s\n",
0767           tape_op_verbose[request->op]);
0768     return tape_3590_done(device, request);
0769 }
0770 
0771 /*
0772  * This function is called, when error recovery was not successful
0773  */
0774 static inline int
0775 tape_3590_erp_failed(struct tape_device *device, struct tape_request *request,
0776              struct irb *irb, int rc)
0777 {
0778     DBF_EVENT(3, "Error Recovery failed for %s\n",
0779           tape_op_verbose[request->op]);
0780     tape_dump_sense_dbf(device, request, irb);
0781     return rc;
0782 }
0783 
0784 /*
0785  * Error Recovery do retry
0786  */
0787 static inline int
0788 tape_3590_erp_retry(struct tape_device *device, struct tape_request *request,
0789             struct irb *irb)
0790 {
0791     DBF_EVENT(2, "Retry: %s\n", tape_op_verbose[request->op]);
0792     tape_dump_sense_dbf(device, request, irb);
0793     return TAPE_IO_RETRY;
0794 }
0795 
0796 /*
0797  * Handle unsolicited interrupts
0798  */
0799 static int
0800 tape_3590_unsolicited_irq(struct tape_device *device, struct irb *irb)
0801 {
0802     if (irb->scsw.cmd.dstat == DEV_STAT_CHN_END)
0803         /* Probably result of halt ssch */
0804         return TAPE_IO_PENDING;
0805     else if (irb->scsw.cmd.dstat == 0x85)
0806         /* Device Ready */
0807         DBF_EVENT(3, "unsol.irq! tape ready: %08x\n", device->cdev_id);
0808     else if (irb->scsw.cmd.dstat & DEV_STAT_ATTENTION) {
0809         tape_3590_schedule_work(device, TO_READ_ATTMSG);
0810     } else {
0811         DBF_EVENT(3, "unsol.irq! dev end: %08x\n", device->cdev_id);
0812         tape_dump_sense_dbf(device, NULL, irb);
0813     }
0814     /* check medium state */
0815     tape_3590_schedule_work(device, TO_MSEN);
0816     return TAPE_IO_SUCCESS;
0817 }
0818 
0819 /*
0820  * Basic Recovery routine
0821  */
0822 static int
0823 tape_3590_erp_basic(struct tape_device *device, struct tape_request *request,
0824             struct irb *irb, int rc)
0825 {
0826     struct tape_3590_sense *sense;
0827 
0828     sense = (struct tape_3590_sense *) irb->ecw;
0829 
0830     switch (sense->bra) {
0831     case SENSE_BRA_PER:
0832         return tape_3590_erp_failed(device, request, irb, rc);
0833     case SENSE_BRA_CONT:
0834         return tape_3590_erp_succeeded(device, request);
0835     case SENSE_BRA_RE:
0836         return tape_3590_erp_retry(device, request, irb);
0837     case SENSE_BRA_DRE:
0838         return tape_3590_erp_failed(device, request, irb, rc);
0839     default:
0840         BUG();
0841         return TAPE_IO_STOP;
0842     }
0843 }
0844 
0845 /*
0846  *  RDL: Read Device (buffered) log
0847  */
0848 static int
0849 tape_3590_erp_read_buf_log(struct tape_device *device,
0850                struct tape_request *request, struct irb *irb)
0851 {
0852     /*
0853      * We just do the basic error recovery at the moment (retry).
0854      * Perhaps in the future, we read the log and dump it somewhere...
0855      */
0856     return tape_3590_erp_basic(device, request, irb, -EIO);
0857 }
0858 
0859 /*
0860  *  SWAP: Swap Devices
0861  */
0862 static int
0863 tape_3590_erp_swap(struct tape_device *device, struct tape_request *request,
0864            struct irb *irb)
0865 {
0866     /*
0867      * This error recovery should swap the tapes
0868      * if the original has a problem. The operation
0869      * should proceed with the new tape... this
0870      * should probably be done in user space!
0871      */
0872     dev_warn (&device->cdev->dev, "The tape medium must be loaded into a "
0873         "different tape unit\n");
0874     return tape_3590_erp_basic(device, request, irb, -EIO);
0875 }
0876 
0877 /*
0878  *  LBY: Long Busy
0879  */
0880 static int
0881 tape_3590_erp_long_busy(struct tape_device *device,
0882             struct tape_request *request, struct irb *irb)
0883 {
0884     DBF_EVENT(6, "Device is busy\n");
0885     return TAPE_IO_LONG_BUSY;
0886 }
0887 
0888 /*
0889  *  SPI: Special Intercept
0890  */
0891 static int
0892 tape_3590_erp_special_interrupt(struct tape_device *device,
0893                 struct tape_request *request, struct irb *irb)
0894 {
0895     return tape_3590_erp_basic(device, request, irb, -EIO);
0896 }
0897 
0898 /*
0899  *  RDA: Read Alternate
0900  */
0901 static int
0902 tape_3590_erp_read_alternate(struct tape_device *device,
0903                  struct tape_request *request, struct irb *irb)
0904 {
0905     struct tape_3590_disc_data *data;
0906 
0907     /*
0908      * The issued Read Backward or Read Previous command is not
0909      * supported by the device
0910      * The recovery action should be to issue another command:
0911      * Read Revious: if Read Backward is not supported
0912      * Read Backward: if Read Previous is not supported
0913      */
0914     data = device->discdata;
0915     if (data->read_back_op == READ_PREVIOUS) {
0916         DBF_EVENT(2, "(%08x): No support for READ_PREVIOUS command\n",
0917               device->cdev_id);
0918         data->read_back_op = READ_BACKWARD;
0919     } else {
0920         DBF_EVENT(2, "(%08x): No support for READ_BACKWARD command\n",
0921               device->cdev_id);
0922         data->read_back_op = READ_PREVIOUS;
0923     }
0924     tape_3590_read_opposite(device, request);
0925     return tape_3590_erp_retry(device, request, irb);
0926 }
0927 
0928 /*
0929  * Error Recovery read opposite
0930  */
0931 static int
0932 tape_3590_erp_read_opposite(struct tape_device *device,
0933                 struct tape_request *request, struct irb *irb)
0934 {
0935     switch (request->op) {
0936     case TO_RFO:
0937         /*
0938          * We did read forward, but the data could not be read.
0939          * We will read backward and then skip forward again.
0940          */
0941         tape_3590_read_opposite(device, request);
0942         return tape_3590_erp_retry(device, request, irb);
0943     case TO_RBA:
0944         /* We tried to read forward and backward, but hat no success */
0945         return tape_3590_erp_failed(device, request, irb, -EIO);
0946         break;
0947     default:
0948         return tape_3590_erp_failed(device, request, irb, -EIO);
0949     }
0950 }
0951 
0952 /*
0953  * Print an MIM (Media Information  Message) (message code f0)
0954  */
0955 static void
0956 tape_3590_print_mim_msg_f0(struct tape_device *device, struct irb *irb)
0957 {
0958     struct tape_3590_sense *sense;
0959     char *exception, *service;
0960 
0961     exception = kmalloc(BUFSIZE, GFP_ATOMIC);
0962     service = kmalloc(BUFSIZE, GFP_ATOMIC);
0963 
0964     if (!exception || !service)
0965         goto out_nomem;
0966 
0967     sense = (struct tape_3590_sense *) irb->ecw;
0968     /* Exception Message */
0969     switch (sense->fmt.f70.emc) {
0970     case 0x02:
0971         snprintf(exception, BUFSIZE, "Data degraded");
0972         break;
0973     case 0x03:
0974         snprintf(exception, BUFSIZE, "Data degraded in partition %i",
0975             sense->fmt.f70.mp);
0976         break;
0977     case 0x04:
0978         snprintf(exception, BUFSIZE, "Medium degraded");
0979         break;
0980     case 0x05:
0981         snprintf(exception, BUFSIZE, "Medium degraded in partition %i",
0982             sense->fmt.f70.mp);
0983         break;
0984     case 0x06:
0985         snprintf(exception, BUFSIZE, "Block 0 Error");
0986         break;
0987     case 0x07:
0988         snprintf(exception, BUFSIZE, "Medium Exception 0x%02x",
0989             sense->fmt.f70.md);
0990         break;
0991     default:
0992         snprintf(exception, BUFSIZE, "0x%02x",
0993             sense->fmt.f70.emc);
0994         break;
0995     }
0996     /* Service Message */
0997     switch (sense->fmt.f70.smc) {
0998     case 0x02:
0999         snprintf(service, BUFSIZE, "Reference Media maintenance "
1000             "procedure %i", sense->fmt.f70.md);
1001         break;
1002     default:
1003         snprintf(service, BUFSIZE, "0x%02x",
1004             sense->fmt.f70.smc);
1005         break;
1006     }
1007 
1008     dev_warn (&device->cdev->dev, "Tape media information: exception %s, "
1009         "service %s\n", exception, service);
1010 
1011 out_nomem:
1012     kfree(exception);
1013     kfree(service);
1014 }
1015 
1016 /*
1017  * Print an I/O Subsystem Service Information Message (message code f1)
1018  */
1019 static void
1020 tape_3590_print_io_sim_msg_f1(struct tape_device *device, struct irb *irb)
1021 {
1022     struct tape_3590_sense *sense;
1023     char *exception, *service;
1024 
1025     exception = kmalloc(BUFSIZE, GFP_ATOMIC);
1026     service = kmalloc(BUFSIZE, GFP_ATOMIC);
1027 
1028     if (!exception || !service)
1029         goto out_nomem;
1030 
1031     sense = (struct tape_3590_sense *) irb->ecw;
1032     /* Exception Message */
1033     switch (sense->fmt.f71.emc) {
1034     case 0x01:
1035         snprintf(exception, BUFSIZE, "Effect of failure is unknown");
1036         break;
1037     case 0x02:
1038         snprintf(exception, BUFSIZE, "CU Exception - no performance "
1039             "impact");
1040         break;
1041     case 0x03:
1042         snprintf(exception, BUFSIZE, "CU Exception on channel "
1043             "interface 0x%02x", sense->fmt.f71.md[0]);
1044         break;
1045     case 0x04:
1046         snprintf(exception, BUFSIZE, "CU Exception on device path "
1047             "0x%02x", sense->fmt.f71.md[0]);
1048         break;
1049     case 0x05:
1050         snprintf(exception, BUFSIZE, "CU Exception on library path "
1051             "0x%02x", sense->fmt.f71.md[0]);
1052         break;
1053     case 0x06:
1054         snprintf(exception, BUFSIZE, "CU Exception on node 0x%02x",
1055             sense->fmt.f71.md[0]);
1056         break;
1057     case 0x07:
1058         snprintf(exception, BUFSIZE, "CU Exception on partition "
1059             "0x%02x", sense->fmt.f71.md[0]);
1060         break;
1061     default:
1062         snprintf(exception, BUFSIZE, "0x%02x",
1063             sense->fmt.f71.emc);
1064     }
1065     /* Service Message */
1066     switch (sense->fmt.f71.smc) {
1067     case 0x01:
1068         snprintf(service, BUFSIZE, "Repair impact is unknown");
1069         break;
1070     case 0x02:
1071         snprintf(service, BUFSIZE, "Repair will not impact cu "
1072             "performance");
1073         break;
1074     case 0x03:
1075         if (sense->fmt.f71.mdf == 0)
1076             snprintf(service, BUFSIZE, "Repair will disable node "
1077                 "0x%x on CU", sense->fmt.f71.md[1]);
1078         else
1079             snprintf(service, BUFSIZE, "Repair will disable "
1080                 "nodes (0x%x-0x%x) on CU", sense->fmt.f71.md[1],
1081                 sense->fmt.f71.md[2]);
1082         break;
1083     case 0x04:
1084         if (sense->fmt.f71.mdf == 0)
1085             snprintf(service, BUFSIZE, "Repair will disable "
1086                 "channel path 0x%x on CU",
1087                 sense->fmt.f71.md[1]);
1088         else
1089             snprintf(service, BUFSIZE, "Repair will disable channel"
1090                 " paths (0x%x-0x%x) on CU",
1091                 sense->fmt.f71.md[1], sense->fmt.f71.md[2]);
1092         break;
1093     case 0x05:
1094         if (sense->fmt.f71.mdf == 0)
1095             snprintf(service, BUFSIZE, "Repair will disable device"
1096                 " path 0x%x on CU", sense->fmt.f71.md[1]);
1097         else
1098             snprintf(service, BUFSIZE, "Repair will disable device"
1099                 " paths (0x%x-0x%x) on CU",
1100                 sense->fmt.f71.md[1], sense->fmt.f71.md[2]);
1101         break;
1102     case 0x06:
1103         if (sense->fmt.f71.mdf == 0)
1104             snprintf(service, BUFSIZE, "Repair will disable "
1105                 "library path 0x%x on CU",
1106                 sense->fmt.f71.md[1]);
1107         else
1108             snprintf(service, BUFSIZE, "Repair will disable "
1109                 "library paths (0x%x-0x%x) on CU",
1110                 sense->fmt.f71.md[1], sense->fmt.f71.md[2]);
1111         break;
1112     case 0x07:
1113         snprintf(service, BUFSIZE, "Repair will disable access to CU");
1114         break;
1115     default:
1116         snprintf(service, BUFSIZE, "0x%02x",
1117             sense->fmt.f71.smc);
1118     }
1119 
1120     dev_warn (&device->cdev->dev, "I/O subsystem information: exception"
1121         " %s, service %s\n", exception, service);
1122 out_nomem:
1123     kfree(exception);
1124     kfree(service);
1125 }
1126 
1127 /*
1128  * Print an Device Subsystem Service Information Message (message code f2)
1129  */
1130 static void
1131 tape_3590_print_dev_sim_msg_f2(struct tape_device *device, struct irb *irb)
1132 {
1133     struct tape_3590_sense *sense;
1134     char *exception, *service;
1135 
1136     exception = kmalloc(BUFSIZE, GFP_ATOMIC);
1137     service = kmalloc(BUFSIZE, GFP_ATOMIC);
1138 
1139     if (!exception || !service)
1140         goto out_nomem;
1141 
1142     sense = (struct tape_3590_sense *) irb->ecw;
1143     /* Exception Message */
1144     switch (sense->fmt.f71.emc) {
1145     case 0x01:
1146         snprintf(exception, BUFSIZE, "Effect of failure is unknown");
1147         break;
1148     case 0x02:
1149         snprintf(exception, BUFSIZE, "DV Exception - no performance"
1150             " impact");
1151         break;
1152     case 0x03:
1153         snprintf(exception, BUFSIZE, "DV Exception on channel "
1154             "interface 0x%02x", sense->fmt.f71.md[0]);
1155         break;
1156     case 0x04:
1157         snprintf(exception, BUFSIZE, "DV Exception on loader 0x%02x",
1158             sense->fmt.f71.md[0]);
1159         break;
1160     case 0x05:
1161         snprintf(exception, BUFSIZE, "DV Exception on message display"
1162             " 0x%02x", sense->fmt.f71.md[0]);
1163         break;
1164     case 0x06:
1165         snprintf(exception, BUFSIZE, "DV Exception in tape path");
1166         break;
1167     case 0x07:
1168         snprintf(exception, BUFSIZE, "DV Exception in drive");
1169         break;
1170     default:
1171         snprintf(exception, BUFSIZE, "0x%02x",
1172             sense->fmt.f71.emc);
1173     }
1174     /* Service Message */
1175     switch (sense->fmt.f71.smc) {
1176     case 0x01:
1177         snprintf(service, BUFSIZE, "Repair impact is unknown");
1178         break;
1179     case 0x02:
1180         snprintf(service, BUFSIZE, "Repair will not impact device "
1181             "performance");
1182         break;
1183     case 0x03:
1184         if (sense->fmt.f71.mdf == 0)
1185             snprintf(service, BUFSIZE, "Repair will disable "
1186                 "channel path 0x%x on DV",
1187                 sense->fmt.f71.md[1]);
1188         else
1189             snprintf(service, BUFSIZE, "Repair will disable "
1190                 "channel path (0x%x-0x%x) on DV",
1191                 sense->fmt.f71.md[1], sense->fmt.f71.md[2]);
1192         break;
1193     case 0x04:
1194         if (sense->fmt.f71.mdf == 0)
1195             snprintf(service, BUFSIZE, "Repair will disable "
1196                 "interface 0x%x on DV", sense->fmt.f71.md[1]);
1197         else
1198             snprintf(service, BUFSIZE, "Repair will disable "
1199                 "interfaces (0x%x-0x%x) on DV",
1200                 sense->fmt.f71.md[1], sense->fmt.f71.md[2]);
1201         break;
1202     case 0x05:
1203         if (sense->fmt.f71.mdf == 0)
1204             snprintf(service, BUFSIZE, "Repair will disable loader"
1205                 " 0x%x on DV", sense->fmt.f71.md[1]);
1206         else
1207             snprintf(service, BUFSIZE, "Repair will disable loader"
1208                 " (0x%x-0x%x) on DV",
1209                 sense->fmt.f71.md[1], sense->fmt.f71.md[2]);
1210         break;
1211     case 0x07:
1212         snprintf(service, BUFSIZE, "Repair will disable access to DV");
1213         break;
1214     case 0x08:
1215         if (sense->fmt.f71.mdf == 0)
1216             snprintf(service, BUFSIZE, "Repair will disable "
1217                 "message display 0x%x on DV",
1218                 sense->fmt.f71.md[1]);
1219         else
1220             snprintf(service, BUFSIZE, "Repair will disable "
1221                 "message displays (0x%x-0x%x) on DV",
1222                  sense->fmt.f71.md[1], sense->fmt.f71.md[2]);
1223         break;
1224     case 0x09:
1225         snprintf(service, BUFSIZE, "Clean DV");
1226         break;
1227     default:
1228         snprintf(service, BUFSIZE, "0x%02x",
1229             sense->fmt.f71.smc);
1230     }
1231 
1232     dev_warn (&device->cdev->dev, "Device subsystem information: exception"
1233         " %s, service %s\n", exception, service);
1234 out_nomem:
1235     kfree(exception);
1236     kfree(service);
1237 }
1238 
1239 /*
1240  * Print standard ERA Message
1241  */
1242 static void
1243 tape_3590_print_era_msg(struct tape_device *device, struct irb *irb)
1244 {
1245     struct tape_3590_sense *sense;
1246 
1247     sense = (struct tape_3590_sense *) irb->ecw;
1248     if (sense->mc == 0)
1249         return;
1250     if ((sense->mc > 0) && (sense->mc < TAPE_3590_MAX_MSG)) {
1251         if (tape_3590_msg[sense->mc] != NULL)
1252             dev_warn (&device->cdev->dev, "The tape unit has "
1253                 "issued sense message %s\n",
1254                 tape_3590_msg[sense->mc]);
1255         else
1256             dev_warn (&device->cdev->dev, "The tape unit has "
1257                 "issued an unknown sense message code 0x%x\n",
1258                 sense->mc);
1259         return;
1260     }
1261     if (sense->mc == 0xf0) {
1262         /* Standard Media Information Message */
1263         dev_warn (&device->cdev->dev, "MIM SEV=%i, MC=%02x, ES=%x/%x, "
1264             "RC=%02x-%04x-%02x\n", sense->fmt.f70.sev, sense->mc,
1265             sense->fmt.f70.emc, sense->fmt.f70.smc,
1266             sense->fmt.f70.refcode, sense->fmt.f70.mid,
1267             sense->fmt.f70.fid);
1268         tape_3590_print_mim_msg_f0(device, irb);
1269         return;
1270     }
1271     if (sense->mc == 0xf1) {
1272         /* Standard I/O Subsystem Service Information Message */
1273         dev_warn (&device->cdev->dev, "IOSIM SEV=%i, DEVTYPE=3590/%02x,"
1274             " MC=%02x, ES=%x/%x, REF=0x%04x-0x%04x-0x%04x\n",
1275             sense->fmt.f71.sev, device->cdev->id.dev_model,
1276             sense->mc, sense->fmt.f71.emc, sense->fmt.f71.smc,
1277             sense->fmt.f71.refcode1, sense->fmt.f71.refcode2,
1278             sense->fmt.f71.refcode3);
1279         tape_3590_print_io_sim_msg_f1(device, irb);
1280         return;
1281     }
1282     if (sense->mc == 0xf2) {
1283         /* Standard Device Service Information Message */
1284         dev_warn (&device->cdev->dev, "DEVSIM SEV=%i, DEVTYPE=3590/%02x"
1285             ", MC=%02x, ES=%x/%x, REF=0x%04x-0x%04x-0x%04x\n",
1286             sense->fmt.f71.sev, device->cdev->id.dev_model,
1287             sense->mc, sense->fmt.f71.emc, sense->fmt.f71.smc,
1288             sense->fmt.f71.refcode1, sense->fmt.f71.refcode2,
1289             sense->fmt.f71.refcode3);
1290         tape_3590_print_dev_sim_msg_f2(device, irb);
1291         return;
1292     }
1293     if (sense->mc == 0xf3) {
1294         /* Standard Library Service Information Message */
1295         return;
1296     }
1297     dev_warn (&device->cdev->dev, "The tape unit has issued an unknown "
1298         "sense message code %x\n", sense->mc);
1299 }
1300 
1301 static int tape_3590_crypt_error(struct tape_device *device,
1302                  struct tape_request *request, struct irb *irb)
1303 {
1304     u8 cu_rc;
1305     u16 ekm_rc2;
1306     char *sense;
1307 
1308     sense = ((struct tape_3590_sense *) irb->ecw)->fmt.data;
1309     cu_rc = sense[0];
1310     ekm_rc2 = *((u16*) &sense[10]);
1311     if ((cu_rc == 0) && (ekm_rc2 == 0xee31))
1312         /* key not defined on EKM */
1313         return tape_3590_erp_basic(device, request, irb, -EKEYREJECTED);
1314     if ((cu_rc == 1) || (cu_rc == 2))
1315         /* No connection to EKM */
1316         return tape_3590_erp_basic(device, request, irb, -ENOTCONN);
1317 
1318     dev_err (&device->cdev->dev, "The tape unit failed to obtain the "
1319         "encryption key from EKM\n");
1320 
1321     return tape_3590_erp_basic(device, request, irb, -ENOKEY);
1322 }
1323 
1324 /*
1325  *  3590 error Recovery routine:
1326  *  If possible, it tries to recover from the error. If this is not possible,
1327  *  inform the user about the problem.
1328  */
1329 static int
1330 tape_3590_unit_check(struct tape_device *device, struct tape_request *request,
1331              struct irb *irb)
1332 {
1333     struct tape_3590_sense *sense;
1334 
1335     sense = (struct tape_3590_sense *) irb->ecw;
1336 
1337     DBF_EVENT(6, "Unit Check: RQC = %x\n", sense->rc_rqc);
1338 
1339     /*
1340      * First check all RC-QRCs where we want to do something special
1341      *   - "break":     basic error recovery is done
1342      *   - "goto out:": just print error message if available
1343      */
1344     switch (sense->rc_rqc) {
1345 
1346     case 0x1110:
1347         tape_3590_print_era_msg(device, irb);
1348         return tape_3590_erp_read_buf_log(device, request, irb);
1349 
1350     case 0x2011:
1351         tape_3590_print_era_msg(device, irb);
1352         return tape_3590_erp_read_alternate(device, request, irb);
1353 
1354     case 0x2230:
1355     case 0x2231:
1356         tape_3590_print_era_msg(device, irb);
1357         return tape_3590_erp_special_interrupt(device, request, irb);
1358     case 0x2240:
1359         return tape_3590_crypt_error(device, request, irb);
1360 
1361     case 0x3010:
1362         DBF_EVENT(2, "(%08x): Backward at Beginning of Partition\n",
1363               device->cdev_id);
1364         return tape_3590_erp_basic(device, request, irb, -ENOSPC);
1365     case 0x3012:
1366         DBF_EVENT(2, "(%08x): Forward at End of Partition\n",
1367               device->cdev_id);
1368         return tape_3590_erp_basic(device, request, irb, -ENOSPC);
1369     case 0x3020:
1370         DBF_EVENT(2, "(%08x): End of Data Mark\n", device->cdev_id);
1371         return tape_3590_erp_basic(device, request, irb, -ENOSPC);
1372 
1373     case 0x3122:
1374         DBF_EVENT(2, "(%08x): Rewind Unload initiated\n",
1375               device->cdev_id);
1376         return tape_3590_erp_basic(device, request, irb, -EIO);
1377     case 0x3123:
1378         DBF_EVENT(2, "(%08x): Rewind Unload complete\n",
1379               device->cdev_id);
1380         tape_med_state_set(device, MS_UNLOADED);
1381         tape_3590_schedule_work(device, TO_CRYPT_OFF);
1382         return tape_3590_erp_basic(device, request, irb, 0);
1383 
1384     case 0x4010:
1385         /*
1386          * print additional msg since default msg
1387          * "device intervention" is not very meaningfull
1388          */
1389         tape_med_state_set(device, MS_UNLOADED);
1390         tape_3590_schedule_work(device, TO_CRYPT_OFF);
1391         return tape_3590_erp_basic(device, request, irb, -ENOMEDIUM);
1392     case 0x4012:        /* Device Long Busy */
1393         /* XXX: Also use long busy handling here? */
1394         DBF_EVENT(6, "(%08x): LONG BUSY\n", device->cdev_id);
1395         tape_3590_print_era_msg(device, irb);
1396         return tape_3590_erp_basic(device, request, irb, -EBUSY);
1397     case 0x4014:
1398         DBF_EVENT(6, "(%08x): Crypto LONG BUSY\n", device->cdev_id);
1399         return tape_3590_erp_long_busy(device, request, irb);
1400 
1401     case 0x5010:
1402         if (sense->rac == 0xd0) {
1403             /* Swap */
1404             tape_3590_print_era_msg(device, irb);
1405             return tape_3590_erp_swap(device, request, irb);
1406         }
1407         if (sense->rac == 0x26) {
1408             /* Read Opposite */
1409             tape_3590_print_era_msg(device, irb);
1410             return tape_3590_erp_read_opposite(device, request,
1411                                irb);
1412         }
1413         return tape_3590_erp_basic(device, request, irb, -EIO);
1414     case 0x5020:
1415     case 0x5021:
1416     case 0x5022:
1417     case 0x5040:
1418     case 0x5041:
1419     case 0x5042:
1420         tape_3590_print_era_msg(device, irb);
1421         return tape_3590_erp_swap(device, request, irb);
1422 
1423     case 0x5110:
1424     case 0x5111:
1425         return tape_3590_erp_basic(device, request, irb, -EMEDIUMTYPE);
1426 
1427     case 0x5120:
1428     case 0x1120:
1429         tape_med_state_set(device, MS_UNLOADED);
1430         tape_3590_schedule_work(device, TO_CRYPT_OFF);
1431         return tape_3590_erp_basic(device, request, irb, -ENOMEDIUM);
1432 
1433     case 0x6020:
1434         return tape_3590_erp_basic(device, request, irb, -EMEDIUMTYPE);
1435 
1436     case 0x8011:
1437         return tape_3590_erp_basic(device, request, irb, -EPERM);
1438     case 0x8013:
1439         dev_warn (&device->cdev->dev, "A different host has privileged"
1440             " access to the tape unit\n");
1441         return tape_3590_erp_basic(device, request, irb, -EPERM);
1442     default:
1443         return tape_3590_erp_basic(device, request, irb, -EIO);
1444     }
1445 }
1446 
1447 /*
1448  * 3590 interrupt handler:
1449  */
1450 static int
1451 tape_3590_irq(struct tape_device *device, struct tape_request *request,
1452           struct irb *irb)
1453 {
1454     if (request == NULL)
1455         return tape_3590_unsolicited_irq(device, irb);
1456 
1457     if ((irb->scsw.cmd.dstat & DEV_STAT_UNIT_EXCEP) &&
1458         (irb->scsw.cmd.dstat & DEV_STAT_DEV_END) &&
1459         (request->op == TO_WRI)) {
1460         /* Write at end of volume */
1461         DBF_EVENT(2, "End of volume\n");
1462         return tape_3590_erp_failed(device, request, irb, -ENOSPC);
1463     }
1464 
1465     if (irb->scsw.cmd.dstat & DEV_STAT_UNIT_CHECK)
1466         return tape_3590_unit_check(device, request, irb);
1467 
1468     if (irb->scsw.cmd.dstat & DEV_STAT_DEV_END) {
1469         if (irb->scsw.cmd.dstat == DEV_STAT_UNIT_EXCEP) {
1470             if (request->op == TO_FSB || request->op == TO_BSB)
1471                 request->rescnt++;
1472             else
1473                 DBF_EVENT(5, "Unit Exception!\n");
1474         }
1475 
1476         return tape_3590_done(device, request);
1477     }
1478 
1479     if (irb->scsw.cmd.dstat & DEV_STAT_CHN_END) {
1480         DBF_EVENT(2, "channel end\n");
1481         return TAPE_IO_PENDING;
1482     }
1483 
1484     if (irb->scsw.cmd.dstat & DEV_STAT_ATTENTION) {
1485         DBF_EVENT(2, "Unit Attention when busy..\n");
1486         return TAPE_IO_PENDING;
1487     }
1488 
1489     DBF_EVENT(6, "xunknownirq\n");
1490     tape_dump_sense_dbf(device, request, irb);
1491     return TAPE_IO_STOP;
1492 }
1493 
1494 
1495 static int tape_3590_read_dev_chars(struct tape_device *device,
1496                     struct tape_3590_rdc_data *rdc_data)
1497 {
1498     int rc;
1499     struct tape_request *request;
1500 
1501     request = tape_alloc_request(1, sizeof(*rdc_data));
1502     if (IS_ERR(request))
1503         return PTR_ERR(request);
1504     request->op = TO_RDC;
1505     tape_ccw_end(request->cpaddr, CCW_CMD_RDC, sizeof(*rdc_data),
1506              request->cpdata);
1507     rc = tape_do_io(device, request);
1508     if (rc == 0)
1509         memcpy(rdc_data, request->cpdata, sizeof(*rdc_data));
1510     tape_free_request(request);
1511     return rc;
1512 }
1513 
1514 /*
1515  * Setup device function
1516  */
1517 static int
1518 tape_3590_setup_device(struct tape_device *device)
1519 {
1520     int rc;
1521     struct tape_3590_disc_data *data;
1522     struct tape_3590_rdc_data *rdc_data;
1523 
1524     DBF_EVENT(6, "3590 device setup\n");
1525     data = kzalloc(sizeof(struct tape_3590_disc_data), GFP_KERNEL | GFP_DMA);
1526     if (data == NULL)
1527         return -ENOMEM;
1528     data->read_back_op = READ_PREVIOUS;
1529     device->discdata = data;
1530 
1531     rdc_data = kmalloc(sizeof(*rdc_data), GFP_KERNEL | GFP_DMA);
1532     if (!rdc_data) {
1533         rc = -ENOMEM;
1534         goto fail_kmalloc;
1535     }
1536     rc = tape_3590_read_dev_chars(device, rdc_data);
1537     if (rc) {
1538         DBF_LH(3, "Read device characteristics failed!\n");
1539         goto fail_rdc_data;
1540     }
1541     rc = tape_std_assign(device);
1542     if (rc)
1543         goto fail_rdc_data;
1544     if (rdc_data->data[31] == 0x13) {
1545         data->crypt_info.capability |= TAPE390_CRYPT_SUPPORTED_MASK;
1546         tape_3592_disable_crypt(device);
1547     } else {
1548         DBF_EVENT(6, "Device has NO crypto support\n");
1549     }
1550     /* Try to find out if medium is loaded */
1551     rc = tape_3590_sense_medium(device);
1552     if (rc) {
1553         DBF_LH(3, "3590 medium sense returned %d\n", rc);
1554         goto fail_rdc_data;
1555     }
1556     return 0;
1557 
1558 fail_rdc_data:
1559     kfree(rdc_data);
1560 fail_kmalloc:
1561     kfree(data);
1562     return rc;
1563 }
1564 
1565 /*
1566  * Cleanup device function
1567  */
1568 static void
1569 tape_3590_cleanup_device(struct tape_device *device)
1570 {
1571     flush_workqueue(tape_3590_wq);
1572     tape_std_unassign(device);
1573 
1574     kfree(device->discdata);
1575     device->discdata = NULL;
1576 }
1577 
1578 /*
1579  * List of 3590 magnetic tape commands.
1580  */
1581 static tape_mtop_fn tape_3590_mtop[TAPE_NR_MTOPS] = {
1582     [MTRESET]    = tape_std_mtreset,
1583     [MTFSF]      = tape_std_mtfsf,
1584     [MTBSF]      = tape_std_mtbsf,
1585     [MTFSR]      = tape_std_mtfsr,
1586     [MTBSR]      = tape_std_mtbsr,
1587     [MTWEOF]     = tape_std_mtweof,
1588     [MTREW]      = tape_std_mtrew,
1589     [MTOFFL]     = tape_std_mtoffl,
1590     [MTNOP]      = tape_std_mtnop,
1591     [MTRETEN]    = tape_std_mtreten,
1592     [MTBSFM]     = tape_std_mtbsfm,
1593     [MTFSFM]     = tape_std_mtfsfm,
1594     [MTEOM]      = tape_std_mteom,
1595     [MTERASE]    = tape_std_mterase,
1596     [MTRAS1]     = NULL,
1597     [MTRAS2]     = NULL,
1598     [MTRAS3]     = NULL,
1599     [MTSETBLK]   = tape_std_mtsetblk,
1600     [MTSETDENSITY]   = NULL,
1601     [MTSEEK]     = tape_3590_mtseek,
1602     [MTTELL]     = tape_3590_mttell,
1603     [MTSETDRVBUFFER] = NULL,
1604     [MTFSS]      = NULL,
1605     [MTBSS]      = NULL,
1606     [MTWSM]      = NULL,
1607     [MTLOCK]     = NULL,
1608     [MTUNLOCK]   = NULL,
1609     [MTLOAD]     = tape_std_mtload,
1610     [MTUNLOAD]   = tape_std_mtunload,
1611     [MTCOMPRESSION]  = tape_std_mtcompression,
1612     [MTSETPART]  = NULL,
1613     [MTMKPART]   = NULL
1614 };
1615 
1616 /*
1617  * Tape discipline structure for 3590.
1618  */
1619 static struct tape_discipline tape_discipline_3590 = {
1620     .owner = THIS_MODULE,
1621     .setup_device = tape_3590_setup_device,
1622     .cleanup_device = tape_3590_cleanup_device,
1623     .process_eov = tape_std_process_eov,
1624     .irq = tape_3590_irq,
1625     .read_block = tape_std_read_block,
1626     .write_block = tape_std_write_block,
1627     .ioctl_fn = tape_3590_ioctl,
1628     .mtop_array = tape_3590_mtop
1629 };
1630 
1631 static struct ccw_device_id tape_3590_ids[] = {
1632     {CCW_DEVICE_DEVTYPE(0x3590, 0, 0x3590, 0), .driver_info = tape_3590},
1633     {CCW_DEVICE_DEVTYPE(0x3592, 0, 0x3592, 0), .driver_info = tape_3592},
1634     { /* end of list */ }
1635 };
1636 
1637 static int
1638 tape_3590_online(struct ccw_device *cdev)
1639 {
1640     return tape_generic_online(dev_get_drvdata(&cdev->dev),
1641                    &tape_discipline_3590);
1642 }
1643 
1644 static struct ccw_driver tape_3590_driver = {
1645     .driver = {
1646         .name = "tape_3590",
1647         .owner = THIS_MODULE,
1648     },
1649     .ids = tape_3590_ids,
1650     .probe = tape_generic_probe,
1651     .remove = tape_generic_remove,
1652     .set_offline = tape_generic_offline,
1653     .set_online = tape_3590_online,
1654     .int_class = IRQIO_TAP,
1655 };
1656 
1657 /*
1658  * Setup discipline structure.
1659  */
1660 static int
1661 tape_3590_init(void)
1662 {
1663     int rc;
1664 
1665     TAPE_DBF_AREA = debug_register("tape_3590", 2, 2, 4 * sizeof(long));
1666     debug_register_view(TAPE_DBF_AREA, &debug_sprintf_view);
1667 #ifdef DBF_LIKE_HELL
1668     debug_set_level(TAPE_DBF_AREA, 6);
1669 #endif
1670 
1671     DBF_EVENT(3, "3590 init\n");
1672 
1673     tape_3590_wq = alloc_workqueue("tape_3590", 0, 0);
1674     if (!tape_3590_wq)
1675         return -ENOMEM;
1676 
1677     /* Register driver for 3590 tapes. */
1678     rc = ccw_driver_register(&tape_3590_driver);
1679     if (rc) {
1680         destroy_workqueue(tape_3590_wq);
1681         DBF_EVENT(3, "3590 init failed\n");
1682     } else
1683         DBF_EVENT(3, "3590 registered\n");
1684     return rc;
1685 }
1686 
1687 static void
1688 tape_3590_exit(void)
1689 {
1690     ccw_driver_unregister(&tape_3590_driver);
1691     destroy_workqueue(tape_3590_wq);
1692     debug_unregister(TAPE_DBF_AREA);
1693 }
1694 
1695 MODULE_DEVICE_TABLE(ccw, tape_3590_ids);
1696 MODULE_AUTHOR("(C) 2001,2006 IBM Corporation");
1697 MODULE_DESCRIPTION("Linux on zSeries channel attached 3590 tape device driver");
1698 MODULE_LICENSE("GPL");
1699 
1700 module_init(tape_3590_init);
1701 module_exit(tape_3590_exit);
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated by the 2.1.0 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!