1 // SPDX-License-Identifier: GPL-2.0 2 /* 3 * Driver for Future Domain TMC-16x0 and TMC-3260 SCSI host adapters 4 * Copyright 2019 Ondrej Zary 5 * 6 * Original driver by 7 * Rickard E. Faith, faith@cs.unc.edu 8 * 9 * Future Domain BIOS versions supported for autodetect: 10 * 2.0, 3.0, 3.2, 3.4 (1.0), 3.5 (2.0), 3.6, 3.61 11 * Chips supported: 12 * TMC-1800, TMC-18C50, TMC-18C30, TMC-36C70 13 * Boards supported: 14 * Future Domain TMC-1650, TMC-1660, TMC-1670, TMC-1680, TMC-1610M/MER/MEX 15 * Future Domain TMC-3260 (PCI) 16 * Quantum ISA-200S, ISA-250MG 17 * Adaptec AHA-2920A (PCI) [BUT *NOT* AHA-2920C -- use aic7xxx instead] 18 * IBM ? 19 * 20 * NOTE: 21 * 22 * The Adaptec AHA-2920C has an Adaptec AIC-7850 chip on it. 23 * Use the aic7xxx driver for this board. 24 * 25 * The Adaptec AHA-2920A has a Future Domain chip on it, so this is the right 26 * driver for that card. Unfortunately, the boxes will probably just say 27 * "2920", so you'll have to look on the card for a Future Domain logo, or a 28 * letter after the 2920. 29 * 30 * If you have a TMC-8xx or TMC-9xx board, then this is not the driver for 31 * your board. 32 * 33 * DESCRIPTION: 34 * 35 * This is the Linux low-level SCSI driver for Future Domain TMC-1660/1680 36 * TMC-1650/1670, and TMC-3260 SCSI host adapters. The 1650 and 1670 have a 37 * 25-pin external connector, whereas the 1660 and 1680 have a SCSI-2 50-pin 38 * high-density external connector. The 1670 and 1680 have floppy disk 39 * controllers built in. The TMC-3260 is a PCI bus card. 40 * 41 * Future Domain's older boards are based on the TMC-1800 chip, and this 42 * driver was originally written for a TMC-1680 board with the TMC-1800 chip. 43 * More recently, boards are being produced with the TMC-18C50 and TMC-18C30 44 * chips. 45 * 46 * Please note that the drive ordering that Future Domain implemented in BIOS 47 * versions 3.4 and 3.5 is the opposite of the order (currently) used by the 48 * rest of the SCSI industry. 49 * 50 * 51 * REFERENCES USED: 52 * 53 * "TMC-1800 SCSI Chip Specification (FDC-1800T)", Future Domain Corporation, 54 * 1990. 55 * 56 * "Technical Reference Manual: 18C50 SCSI Host Adapter Chip", Future Domain 57 * Corporation, January 1992. 58 * 59 * "LXT SCSI Products: Specifications and OEM Technical Manual (Revision 60 * B/September 1991)", Maxtor Corporation, 1991. 61 * 62 * "7213S product Manual (Revision P3)", Maxtor Corporation, 1992. 63 * 64 * "Draft Proposed American National Standard: Small Computer System 65 * Interface - 2 (SCSI-2)", Global Engineering Documents. (X3T9.2/86-109, 66 * revision 10h, October 17, 1991) 67 * 68 * Private communications, Drew Eckhardt (drew@cs.colorado.edu) and Eric 69 * Youngdale (ericy@cais.com), 1992. 70 * 71 * Private communication, Tuong Le (Future Domain Engineering department), 72 * 1994. (Disk geometry computations for Future Domain BIOS version 3.4, and 73 * TMC-18C30 detection.) 74 * 75 * Hogan, Thom. The Programmer's PC Sourcebook. Microsoft Press, 1988. Page 76 * 60 (2.39: Disk Partition Table Layout). 77 * 78 * "18C30 Technical Reference Manual", Future Domain Corporation, 1993, page 79 * 6-1. 80 */ 81 82 #include <linux/module.h> 83 #include <linux/interrupt.h> 84 #include <linux/delay.h> 85 #include <linux/pci.h> 86 #include <linux/workqueue.h> 87 #include <scsi/scsicam.h> 88 #include <scsi/scsi_cmnd.h> 89 #include <scsi/scsi_device.h> 90 #include <scsi/scsi_host.h> 91 #include "fdomain.h" 92 93 /* 94 * FIFO_COUNT: The host adapter has an 8K cache (host adapters based on the 95 * 18C30 chip have a 2k cache). When this many 512 byte blocks are filled by 96 * the SCSI device, an interrupt will be raised. Therefore, this could be as 97 * low as 0, or as high as 16. Note, however, that values which are too high 98 * or too low seem to prevent any interrupts from occurring, and thereby lock 99 * up the machine. 100 */ 101 #define FIFO_COUNT 2 /* Number of 512 byte blocks before INTR */ 102 #define PARITY_MASK ACTL_PAREN /* Parity enabled, 0 = disabled */ 103 104 enum chip_type { 105 unknown = 0x00, 106 tmc1800 = 0x01, 107 tmc18c50 = 0x02, 108 tmc18c30 = 0x03, 109 }; 110 111 struct fdomain { 112 int base; 113 struct scsi_cmnd *cur_cmd; 114 enum chip_type chip; 115 struct work_struct work; 116 }; 117 118 static struct scsi_pointer *fdomain_scsi_pointer(struct scsi_cmnd *cmd) 119 { 120 return scsi_cmd_priv(cmd); 121 } 122 123 static inline void fdomain_make_bus_idle(struct fdomain *fd) 124 { 125 outb(0, fd->base + REG_BCTL); 126 outb(0, fd->base + REG_MCTL); 127 if (fd->chip == tmc18c50 || fd->chip == tmc18c30) 128 /* Clear forced intr. */ 129 outb(ACTL_RESET | ACTL_CLRFIRQ | PARITY_MASK, 130 fd->base + REG_ACTL); 131 else 132 outb(ACTL_RESET | PARITY_MASK, fd->base + REG_ACTL); 133 } 134 135 static enum chip_type fdomain_identify(int port) 136 { 137 u16 id = inb(port + REG_ID_LSB) | inb(port + REG_ID_MSB) << 8; 138 139 switch (id) { 140 case 0x6127: 141 return tmc1800; 142 case 0x60e9: /* 18c50 or 18c30 */ 143 break; 144 default: 145 return unknown; 146 } 147 148 /* Try to toggle 32-bit mode. This only works on an 18c30 chip. */ 149 outb(CFG2_32BIT, port + REG_CFG2); 150 if ((inb(port + REG_CFG2) & CFG2_32BIT)) { 151 outb(0, port + REG_CFG2); 152 if ((inb(port + REG_CFG2) & CFG2_32BIT) == 0) 153 return tmc18c30; 154 } 155 /* If that failed, we are an 18c50. */ 156 return tmc18c50; 157 } 158 159 static int fdomain_test_loopback(int base) 160 { 161 int i; 162 163 for (i = 0; i < 255; i++) { 164 outb(i, base + REG_LOOPBACK); 165 if (inb(base + REG_LOOPBACK) != i) 166 return 1; 167 } 168 169 return 0; 170 } 171 172 static void fdomain_reset(int base) 173 { 174 outb(BCTL_RST, base + REG_BCTL); 175 mdelay(20); 176 outb(0, base + REG_BCTL); 177 mdelay(1150); 178 outb(0, base + REG_MCTL); 179 outb(PARITY_MASK, base + REG_ACTL); 180 } 181 182 static int fdomain_select(struct Scsi_Host *sh, int target) 183 { 184 int status; 185 unsigned long timeout; 186 struct fdomain *fd = shost_priv(sh); 187 188 outb(BCTL_BUSEN | BCTL_SEL, fd->base + REG_BCTL); 189 outb(BIT(sh->this_id) | BIT(target), fd->base + REG_SCSI_DATA_NOACK); 190 191 /* Stop arbitration and enable parity */ 192 outb(PARITY_MASK, fd->base + REG_ACTL); 193 194 timeout = 350; /* 350 msec */ 195 196 do { 197 status = inb(fd->base + REG_BSTAT); 198 if (status & BSTAT_BSY) { 199 /* Enable SCSI Bus */ 200 /* (on error, should make bus idle with 0) */ 201 outb(BCTL_BUSEN, fd->base + REG_BCTL); 202 return 0; 203 } 204 mdelay(1); 205 } while (--timeout); 206 fdomain_make_bus_idle(fd); 207 return 1; 208 } 209 210 static void fdomain_finish_cmd(struct fdomain *fd) 211 { 212 outb(0, fd->base + REG_ICTL); 213 fdomain_make_bus_idle(fd); 214 scsi_done(fd->cur_cmd); 215 fd->cur_cmd = NULL; 216 } 217 218 static void fdomain_read_data(struct scsi_cmnd *cmd) 219 { 220 struct fdomain *fd = shost_priv(cmd->device->host); 221 unsigned char *virt, *ptr; 222 size_t offset, len; 223 224 while ((len = inw(fd->base + REG_FIFO_COUNT)) > 0) { 225 offset = scsi_bufflen(cmd) - scsi_get_resid(cmd); 226 virt = scsi_kmap_atomic_sg(scsi_sglist(cmd), scsi_sg_count(cmd), 227 &offset, &len); 228 ptr = virt + offset; 229 if (len & 1) 230 *ptr++ = inb(fd->base + REG_FIFO); 231 if (len > 1) 232 insw(fd->base + REG_FIFO, ptr, len >> 1); 233 scsi_set_resid(cmd, scsi_get_resid(cmd) - len); 234 scsi_kunmap_atomic_sg(virt); 235 } 236 } 237 238 static void fdomain_write_data(struct scsi_cmnd *cmd) 239 { 240 struct fdomain *fd = shost_priv(cmd->device->host); 241 /* 8k FIFO for pre-tmc18c30 chips, 2k FIFO for tmc18c30 */ 242 int FIFO_Size = fd->chip == tmc18c30 ? 0x800 : 0x2000; 243 unsigned char *virt, *ptr; 244 size_t offset, len; 245 246 while ((len = FIFO_Size - inw(fd->base + REG_FIFO_COUNT)) > 512) { 247 offset = scsi_bufflen(cmd) - scsi_get_resid(cmd); 248 if (len + offset > scsi_bufflen(cmd)) { 249 len = scsi_bufflen(cmd) - offset; 250 if (len == 0) 251 break; 252 } 253 virt = scsi_kmap_atomic_sg(scsi_sglist(cmd), scsi_sg_count(cmd), 254 &offset, &len); 255 ptr = virt + offset; 256 if (len & 1) 257 outb(*ptr++, fd->base + REG_FIFO); 258 if (len > 1) 259 outsw(fd->base + REG_FIFO, ptr, len >> 1); 260 scsi_set_resid(cmd, scsi_get_resid(cmd) - len); 261 scsi_kunmap_atomic_sg(virt); 262 } 263 } 264 265 static void fdomain_work(struct work_struct *work) 266 { 267 struct fdomain *fd = container_of(work, struct fdomain, work); 268 struct Scsi_Host *sh = container_of((void *)fd, struct Scsi_Host, 269 hostdata); 270 struct scsi_cmnd *cmd = fd->cur_cmd; 271 struct scsi_pointer *scsi_pointer = fdomain_scsi_pointer(cmd); 272 unsigned long flags; 273 int status; 274 int done = 0; 275 276 spin_lock_irqsave(sh->host_lock, flags); 277 278 if (scsi_pointer->phase & in_arbitration) { 279 status = inb(fd->base + REG_ASTAT); 280 if (!(status & ASTAT_ARB)) { 281 set_host_byte(cmd, DID_BUS_BUSY); 282 fdomain_finish_cmd(fd); 283 goto out; 284 } 285 scsi_pointer->phase = in_selection; 286 287 outb(ICTL_SEL | FIFO_COUNT, fd->base + REG_ICTL); 288 outb(BCTL_BUSEN | BCTL_SEL, fd->base + REG_BCTL); 289 outb(BIT(cmd->device->host->this_id) | BIT(scmd_id(cmd)), 290 fd->base + REG_SCSI_DATA_NOACK); 291 /* Stop arbitration and enable parity */ 292 outb(ACTL_IRQEN | PARITY_MASK, fd->base + REG_ACTL); 293 goto out; 294 } else if (scsi_pointer->phase & in_selection) { 295 status = inb(fd->base + REG_BSTAT); 296 if (!(status & BSTAT_BSY)) { 297 /* Try again, for slow devices */ 298 if (fdomain_select(cmd->device->host, scmd_id(cmd))) { 299 set_host_byte(cmd, DID_NO_CONNECT); 300 fdomain_finish_cmd(fd); 301 goto out; 302 } 303 /* Stop arbitration and enable parity */ 304 outb(ACTL_IRQEN | PARITY_MASK, fd->base + REG_ACTL); 305 } 306 scsi_pointer->phase = in_other; 307 outb(ICTL_FIFO | ICTL_REQ | FIFO_COUNT, fd->base + REG_ICTL); 308 outb(BCTL_BUSEN, fd->base + REG_BCTL); 309 goto out; 310 } 311 312 /* fdomain_scsi_pointer(cur_cmd)->phase == in_other: this is the body of the routine */ 313 status = inb(fd->base + REG_BSTAT); 314 315 if (status & BSTAT_REQ) { 316 switch (status & (BSTAT_MSG | BSTAT_CMD | BSTAT_IO)) { 317 case BSTAT_CMD: /* COMMAND OUT */ 318 outb(cmd->cmnd[scsi_pointer->sent_command++], 319 fd->base + REG_SCSI_DATA); 320 break; 321 case 0: /* DATA OUT -- tmc18c50/tmc18c30 only */ 322 if (fd->chip != tmc1800 && !scsi_pointer->have_data_in) { 323 scsi_pointer->have_data_in = -1; 324 outb(ACTL_IRQEN | ACTL_FIFOWR | ACTL_FIFOEN | 325 PARITY_MASK, fd->base + REG_ACTL); 326 } 327 break; 328 case BSTAT_IO: /* DATA IN -- tmc18c50/tmc18c30 only */ 329 if (fd->chip != tmc1800 && !scsi_pointer->have_data_in) { 330 scsi_pointer->have_data_in = 1; 331 outb(ACTL_IRQEN | ACTL_FIFOEN | PARITY_MASK, 332 fd->base + REG_ACTL); 333 } 334 break; 335 case BSTAT_CMD | BSTAT_IO: /* STATUS IN */ 336 scsi_pointer->Status = inb(fd->base + REG_SCSI_DATA); 337 break; 338 case BSTAT_MSG | BSTAT_CMD: /* MESSAGE OUT */ 339 outb(MESSAGE_REJECT, fd->base + REG_SCSI_DATA); 340 break; 341 case BSTAT_MSG | BSTAT_CMD | BSTAT_IO: /* MESSAGE IN */ 342 scsi_pointer->Message = inb(fd->base + REG_SCSI_DATA); 343 if (scsi_pointer->Message == COMMAND_COMPLETE) 344 ++done; 345 break; 346 } 347 } 348 349 if (fd->chip == tmc1800 && !scsi_pointer->have_data_in && 350 scsi_pointer->sent_command >= cmd->cmd_len) { 351 if (cmd->sc_data_direction == DMA_TO_DEVICE) { 352 scsi_pointer->have_data_in = -1; 353 outb(ACTL_IRQEN | ACTL_FIFOWR | ACTL_FIFOEN | 354 PARITY_MASK, fd->base + REG_ACTL); 355 } else { 356 scsi_pointer->have_data_in = 1; 357 outb(ACTL_IRQEN | ACTL_FIFOEN | PARITY_MASK, 358 fd->base + REG_ACTL); 359 } 360 } 361 362 if (scsi_pointer->have_data_in == -1) /* DATA OUT */ 363 fdomain_write_data(cmd); 364 365 if (scsi_pointer->have_data_in == 1) /* DATA IN */ 366 fdomain_read_data(cmd); 367 368 if (done) { 369 set_status_byte(cmd, scsi_pointer->Status); 370 set_host_byte(cmd, DID_OK); 371 scsi_msg_to_host_byte(cmd, scsi_pointer->Message); 372 fdomain_finish_cmd(fd); 373 } else { 374 if (scsi_pointer->phase & disconnect) { 375 outb(ICTL_FIFO | ICTL_SEL | ICTL_REQ | FIFO_COUNT, 376 fd->base + REG_ICTL); 377 outb(0, fd->base + REG_BCTL); 378 } else 379 outb(ICTL_FIFO | ICTL_REQ | FIFO_COUNT, 380 fd->base + REG_ICTL); 381 } 382 out: 383 spin_unlock_irqrestore(sh->host_lock, flags); 384 } 385 386 static irqreturn_t fdomain_irq(int irq, void *dev_id) 387 { 388 struct fdomain *fd = dev_id; 389 390 /* Is it our IRQ? */ 391 if ((inb(fd->base + REG_ASTAT) & ASTAT_IRQ) == 0) 392 return IRQ_NONE; 393 394 outb(0, fd->base + REG_ICTL); 395 396 /* We usually have one spurious interrupt after each command. */ 397 if (!fd->cur_cmd) /* Spurious interrupt */ 398 return IRQ_NONE; 399 400 schedule_work(&fd->work); 401 402 return IRQ_HANDLED; 403 } 404 405 static enum scsi_qc_status fdomain_queue(struct Scsi_Host *sh, 406 struct scsi_cmnd *cmd) 407 { 408 struct scsi_pointer *scsi_pointer = fdomain_scsi_pointer(cmd); 409 struct fdomain *fd = shost_priv(cmd->device->host); 410 unsigned long flags; 411 412 scsi_pointer->Status = 0; 413 scsi_pointer->Message = 0; 414 scsi_pointer->have_data_in = 0; 415 scsi_pointer->sent_command = 0; 416 scsi_pointer->phase = in_arbitration; 417 scsi_set_resid(cmd, scsi_bufflen(cmd)); 418 419 spin_lock_irqsave(sh->host_lock, flags); 420 421 fd->cur_cmd = cmd; 422 423 fdomain_make_bus_idle(fd); 424 425 /* Start arbitration */ 426 outb(0, fd->base + REG_ICTL); 427 outb(0, fd->base + REG_BCTL); /* Disable data drivers */ 428 /* Set our id bit */ 429 outb(BIT(cmd->device->host->this_id), fd->base + REG_SCSI_DATA_NOACK); 430 outb(ICTL_ARB, fd->base + REG_ICTL); 431 /* Start arbitration */ 432 outb(ACTL_ARB | ACTL_IRQEN | PARITY_MASK, fd->base + REG_ACTL); 433 434 spin_unlock_irqrestore(sh->host_lock, flags); 435 436 return 0; 437 } 438 439 static int fdomain_abort(struct scsi_cmnd *cmd) 440 { 441 struct Scsi_Host *sh = cmd->device->host; 442 struct fdomain *fd = shost_priv(sh); 443 unsigned long flags; 444 445 if (!fd->cur_cmd) 446 return FAILED; 447 448 spin_lock_irqsave(sh->host_lock, flags); 449 450 fdomain_make_bus_idle(fd); 451 fdomain_scsi_pointer(fd->cur_cmd)->phase |= aborted; 452 453 /* Aborts are not done well. . . */ 454 set_host_byte(fd->cur_cmd, DID_ABORT); 455 fdomain_finish_cmd(fd); 456 spin_unlock_irqrestore(sh->host_lock, flags); 457 return SUCCESS; 458 } 459 460 static int fdomain_host_reset(struct scsi_cmnd *cmd) 461 { 462 struct Scsi_Host *sh = cmd->device->host; 463 struct fdomain *fd = shost_priv(sh); 464 unsigned long flags; 465 466 spin_lock_irqsave(sh->host_lock, flags); 467 fdomain_reset(fd->base); 468 spin_unlock_irqrestore(sh->host_lock, flags); 469 return SUCCESS; 470 } 471 472 static int fdomain_biosparam(struct scsi_device *sdev, 473 struct gendisk *disk, sector_t capacity, 474 int geom[]) 475 { 476 unsigned char *p = scsi_bios_ptable(disk); 477 478 if (p && p[65] == 0xaa && p[64] == 0x55 /* Partition table valid */ 479 && p[4]) { /* Partition type */ 480 geom[0] = p[5] + 1; /* heads */ 481 geom[1] = p[6] & 0x3f; /* sectors */ 482 } else { 483 if (capacity >= 0x7e0000) { 484 geom[0] = 255; /* heads */ 485 geom[1] = 63; /* sectors */ 486 } else if (capacity >= 0x200000) { 487 geom[0] = 128; /* heads */ 488 geom[1] = 63; /* sectors */ 489 } else { 490 geom[0] = 64; /* heads */ 491 geom[1] = 32; /* sectors */ 492 } 493 } 494 geom[2] = sector_div(capacity, geom[0] * geom[1]); 495 kfree(p); 496 497 return 0; 498 } 499 500 static const struct scsi_host_template fdomain_template = { 501 .module = THIS_MODULE, 502 .name = "Future Domain TMC-16x0", 503 .proc_name = "fdomain", 504 .queuecommand = fdomain_queue, 505 .eh_abort_handler = fdomain_abort, 506 .eh_host_reset_handler = fdomain_host_reset, 507 .bios_param = fdomain_biosparam, 508 .can_queue = 1, 509 .this_id = 7, 510 .sg_tablesize = 64, 511 .dma_boundary = PAGE_SIZE - 1, 512 .cmd_size = sizeof(struct scsi_pointer), 513 }; 514 515 struct Scsi_Host *fdomain_create(int base, int irq, int this_id, 516 struct device *dev) 517 { 518 struct Scsi_Host *sh; 519 struct fdomain *fd; 520 enum chip_type chip; 521 static const char * const chip_names[] = { 522 "Unknown", "TMC-1800", "TMC-18C50", "TMC-18C30" 523 }; 524 unsigned long irq_flags = 0; 525 526 chip = fdomain_identify(base); 527 if (!chip) 528 return NULL; 529 530 fdomain_reset(base); 531 532 if (fdomain_test_loopback(base)) 533 return NULL; 534 535 if (!irq) { 536 dev_err(dev, "card has no IRQ assigned"); 537 return NULL; 538 } 539 540 sh = scsi_host_alloc(&fdomain_template, sizeof(struct fdomain)); 541 if (!sh) 542 return NULL; 543 544 if (this_id) 545 sh->this_id = this_id & 0x07; 546 547 sh->irq = irq; 548 sh->io_port = base; 549 sh->n_io_port = FDOMAIN_REGION_SIZE; 550 551 fd = shost_priv(sh); 552 fd->base = base; 553 fd->chip = chip; 554 INIT_WORK(&fd->work, fdomain_work); 555 556 if (dev_is_pci(dev) || !strcmp(dev->bus->name, "pcmcia")) 557 irq_flags = IRQF_SHARED; 558 559 if (request_irq(irq, fdomain_irq, irq_flags, "fdomain", fd)) 560 goto fail_put; 561 562 shost_printk(KERN_INFO, sh, "%s chip at 0x%x irq %d SCSI ID %d\n", 563 dev_is_pci(dev) ? "TMC-36C70 (PCI bus)" : chip_names[chip], 564 base, irq, sh->this_id); 565 566 if (scsi_add_host(sh, dev)) 567 goto fail_free_irq; 568 569 scsi_scan_host(sh); 570 571 return sh; 572 573 fail_free_irq: 574 free_irq(irq, fd); 575 fail_put: 576 scsi_host_put(sh); 577 return NULL; 578 } 579 EXPORT_SYMBOL_GPL(fdomain_create); 580 581 int fdomain_destroy(struct Scsi_Host *sh) 582 { 583 struct fdomain *fd = shost_priv(sh); 584 585 cancel_work_sync(&fd->work); 586 scsi_remove_host(sh); 587 if (sh->irq) 588 free_irq(sh->irq, fd); 589 scsi_host_put(sh); 590 return 0; 591 } 592 EXPORT_SYMBOL_GPL(fdomain_destroy); 593 594 #ifdef CONFIG_PM_SLEEP 595 static int fdomain_resume(struct device *dev) 596 { 597 struct fdomain *fd = shost_priv(dev_get_drvdata(dev)); 598 599 fdomain_reset(fd->base); 600 return 0; 601 } 602 603 static SIMPLE_DEV_PM_OPS(fdomain_pm_ops, NULL, fdomain_resume); 604 #endif /* CONFIG_PM_SLEEP */ 605 606 MODULE_AUTHOR("Ondrej Zary, Rickard E. Faith"); 607 MODULE_DESCRIPTION("Future Domain TMC-16x0/TMC-3260 SCSI driver"); 608 MODULE_LICENSE("GPL"); 609