1 /* 2 * QEMU Parallel PORT emulation 3 * 4 * Copyright (c) 2003-2005 Fabrice Bellard 5 * Copyright (c) 2007 Marko Kohtala 6 * 7 * Permission is hereby granted, free of charge, to any person obtaining a copy 8 * of this software and associated documentation files (the "Software"), to deal 9 * in the Software without restriction, including without limitation the rights 10 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 11 * copies of the Software, and to permit persons to whom the Software is 12 * furnished to do so, subject to the following conditions: 13 * 14 * The above copyright notice and this permission notice shall be included in 15 * all copies or substantial portions of the Software. 16 * 17 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 18 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 19 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 20 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 21 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 22 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN 23 * THE SOFTWARE. 24 */ 25 #include "hw/hw.h" 26 #include "sysemu/char.h" 27 #include "hw/isa/isa.h" 28 #include "hw/i386/pc.h" 29 #include "sysemu/sysemu.h" 30 31 //#define DEBUG_PARALLEL 32 33 #ifdef DEBUG_PARALLEL 34 #define pdebug(fmt, ...) printf("pp: " fmt, ## __VA_ARGS__) 35 #else 36 #define pdebug(fmt, ...) ((void)0) 37 #endif 38 39 #define PARA_REG_DATA 0 40 #define PARA_REG_STS 1 41 #define PARA_REG_CTR 2 42 #define PARA_REG_EPP_ADDR 3 43 #define PARA_REG_EPP_DATA 4 44 45 /* 46 * These are the definitions for the Printer Status Register 47 */ 48 #define PARA_STS_BUSY 0x80 /* Busy complement */ 49 #define PARA_STS_ACK 0x40 /* Acknowledge */ 50 #define PARA_STS_PAPER 0x20 /* Out of paper */ 51 #define PARA_STS_ONLINE 0x10 /* Online */ 52 #define PARA_STS_ERROR 0x08 /* Error complement */ 53 #define PARA_STS_TMOUT 0x01 /* EPP timeout */ 54 55 /* 56 * These are the definitions for the Printer Control Register 57 */ 58 #define PARA_CTR_DIR 0x20 /* Direction (1=read, 0=write) */ 59 #define PARA_CTR_INTEN 0x10 /* IRQ Enable */ 60 #define PARA_CTR_SELECT 0x08 /* Select In complement */ 61 #define PARA_CTR_INIT 0x04 /* Initialize Printer complement */ 62 #define PARA_CTR_AUTOLF 0x02 /* Auto linefeed complement */ 63 #define PARA_CTR_STROBE 0x01 /* Strobe complement */ 64 65 #define PARA_CTR_SIGNAL (PARA_CTR_SELECT|PARA_CTR_INIT|PARA_CTR_AUTOLF|PARA_CTR_STROBE) 66 67 typedef struct ParallelState { 68 MemoryRegion iomem; 69 uint8_t dataw; 70 uint8_t datar; 71 uint8_t status; 72 uint8_t control; 73 qemu_irq irq; 74 int irq_pending; 75 CharDriverState *chr; 76 int hw_driver; 77 int epp_timeout; 78 uint32_t last_read_offset; /* For debugging */ 79 /* Memory-mapped interface */ 80 int it_shift; 81 } ParallelState; 82 83 #define TYPE_ISA_PARALLEL "isa-parallel" 84 #define ISA_PARALLEL(obj) \ 85 OBJECT_CHECK(ISAParallelState, (obj), TYPE_ISA_PARALLEL) 86 87 typedef struct ISAParallelState { 88 ISADevice parent_obj; 89 90 uint32_t index; 91 uint32_t iobase; 92 uint32_t isairq; 93 ParallelState state; 94 } ISAParallelState; 95 96 static void parallel_update_irq(ParallelState *s) 97 { 98 if (s->irq_pending) 99 qemu_irq_raise(s->irq); 100 else 101 qemu_irq_lower(s->irq); 102 } 103 104 static void 105 parallel_ioport_write_sw(void *opaque, uint32_t addr, uint32_t val) 106 { 107 ParallelState *s = opaque; 108 109 pdebug("write addr=0x%02x val=0x%02x\n", addr, val); 110 111 addr &= 7; 112 switch(addr) { 113 case PARA_REG_DATA: 114 s->dataw = val; 115 parallel_update_irq(s); 116 break; 117 case PARA_REG_CTR: 118 val |= 0xc0; 119 if ((val & PARA_CTR_INIT) == 0 ) { 120 s->status = PARA_STS_BUSY; 121 s->status |= PARA_STS_ACK; 122 s->status |= PARA_STS_ONLINE; 123 s->status |= PARA_STS_ERROR; 124 } 125 else if (val & PARA_CTR_SELECT) { 126 if (val & PARA_CTR_STROBE) { 127 s->status &= ~PARA_STS_BUSY; 128 if ((s->control & PARA_CTR_STROBE) == 0) 129 qemu_chr_fe_write(s->chr, &s->dataw, 1); 130 } else { 131 if (s->control & PARA_CTR_INTEN) { 132 s->irq_pending = 1; 133 } 134 } 135 } 136 parallel_update_irq(s); 137 s->control = val; 138 break; 139 } 140 } 141 142 static void parallel_ioport_write_hw(void *opaque, uint32_t addr, uint32_t val) 143 { 144 ParallelState *s = opaque; 145 uint8_t parm = val; 146 int dir; 147 148 /* Sometimes programs do several writes for timing purposes on old 149 HW. Take care not to waste time on writes that do nothing. */ 150 151 s->last_read_offset = ~0U; 152 153 addr &= 7; 154 switch(addr) { 155 case PARA_REG_DATA: 156 if (s->dataw == val) 157 return; 158 pdebug("wd%02x\n", val); 159 qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_WRITE_DATA, &parm); 160 s->dataw = val; 161 break; 162 case PARA_REG_STS: 163 pdebug("ws%02x\n", val); 164 if (val & PARA_STS_TMOUT) 165 s->epp_timeout = 0; 166 break; 167 case PARA_REG_CTR: 168 val |= 0xc0; 169 if (s->control == val) 170 return; 171 pdebug("wc%02x\n", val); 172 173 if ((val & PARA_CTR_DIR) != (s->control & PARA_CTR_DIR)) { 174 if (val & PARA_CTR_DIR) { 175 dir = 1; 176 } else { 177 dir = 0; 178 } 179 qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_DATA_DIR, &dir); 180 parm &= ~PARA_CTR_DIR; 181 } 182 183 qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_WRITE_CONTROL, &parm); 184 s->control = val; 185 break; 186 case PARA_REG_EPP_ADDR: 187 if ((s->control & (PARA_CTR_DIR|PARA_CTR_SIGNAL)) != PARA_CTR_INIT) 188 /* Controls not correct for EPP address cycle, so do nothing */ 189 pdebug("wa%02x s\n", val); 190 else { 191 struct ParallelIOArg ioarg = { .buffer = &parm, .count = 1 }; 192 if (qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_EPP_WRITE_ADDR, &ioarg)) { 193 s->epp_timeout = 1; 194 pdebug("wa%02x t\n", val); 195 } 196 else 197 pdebug("wa%02x\n", val); 198 } 199 break; 200 case PARA_REG_EPP_DATA: 201 if ((s->control & (PARA_CTR_DIR|PARA_CTR_SIGNAL)) != PARA_CTR_INIT) 202 /* Controls not correct for EPP data cycle, so do nothing */ 203 pdebug("we%02x s\n", val); 204 else { 205 struct ParallelIOArg ioarg = { .buffer = &parm, .count = 1 }; 206 if (qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_EPP_WRITE, &ioarg)) { 207 s->epp_timeout = 1; 208 pdebug("we%02x t\n", val); 209 } 210 else 211 pdebug("we%02x\n", val); 212 } 213 break; 214 } 215 } 216 217 static void 218 parallel_ioport_eppdata_write_hw2(void *opaque, uint32_t addr, uint32_t val) 219 { 220 ParallelState *s = opaque; 221 uint16_t eppdata = cpu_to_le16(val); 222 int err; 223 struct ParallelIOArg ioarg = { 224 .buffer = &eppdata, .count = sizeof(eppdata) 225 }; 226 if ((s->control & (PARA_CTR_DIR|PARA_CTR_SIGNAL)) != PARA_CTR_INIT) { 227 /* Controls not correct for EPP data cycle, so do nothing */ 228 pdebug("we%04x s\n", val); 229 return; 230 } 231 err = qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_EPP_WRITE, &ioarg); 232 if (err) { 233 s->epp_timeout = 1; 234 pdebug("we%04x t\n", val); 235 } 236 else 237 pdebug("we%04x\n", val); 238 } 239 240 static void 241 parallel_ioport_eppdata_write_hw4(void *opaque, uint32_t addr, uint32_t val) 242 { 243 ParallelState *s = opaque; 244 uint32_t eppdata = cpu_to_le32(val); 245 int err; 246 struct ParallelIOArg ioarg = { 247 .buffer = &eppdata, .count = sizeof(eppdata) 248 }; 249 if ((s->control & (PARA_CTR_DIR|PARA_CTR_SIGNAL)) != PARA_CTR_INIT) { 250 /* Controls not correct for EPP data cycle, so do nothing */ 251 pdebug("we%08x s\n", val); 252 return; 253 } 254 err = qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_EPP_WRITE, &ioarg); 255 if (err) { 256 s->epp_timeout = 1; 257 pdebug("we%08x t\n", val); 258 } 259 else 260 pdebug("we%08x\n", val); 261 } 262 263 static uint32_t parallel_ioport_read_sw(void *opaque, uint32_t addr) 264 { 265 ParallelState *s = opaque; 266 uint32_t ret = 0xff; 267 268 addr &= 7; 269 switch(addr) { 270 case PARA_REG_DATA: 271 if (s->control & PARA_CTR_DIR) 272 ret = s->datar; 273 else 274 ret = s->dataw; 275 break; 276 case PARA_REG_STS: 277 ret = s->status; 278 s->irq_pending = 0; 279 if ((s->status & PARA_STS_BUSY) == 0 && (s->control & PARA_CTR_STROBE) == 0) { 280 /* XXX Fixme: wait 5 microseconds */ 281 if (s->status & PARA_STS_ACK) 282 s->status &= ~PARA_STS_ACK; 283 else { 284 /* XXX Fixme: wait 5 microseconds */ 285 s->status |= PARA_STS_ACK; 286 s->status |= PARA_STS_BUSY; 287 } 288 } 289 parallel_update_irq(s); 290 break; 291 case PARA_REG_CTR: 292 ret = s->control; 293 break; 294 } 295 pdebug("read addr=0x%02x val=0x%02x\n", addr, ret); 296 return ret; 297 } 298 299 static uint32_t parallel_ioport_read_hw(void *opaque, uint32_t addr) 300 { 301 ParallelState *s = opaque; 302 uint8_t ret = 0xff; 303 addr &= 7; 304 switch(addr) { 305 case PARA_REG_DATA: 306 qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_READ_DATA, &ret); 307 if (s->last_read_offset != addr || s->datar != ret) 308 pdebug("rd%02x\n", ret); 309 s->datar = ret; 310 break; 311 case PARA_REG_STS: 312 qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_READ_STATUS, &ret); 313 ret &= ~PARA_STS_TMOUT; 314 if (s->epp_timeout) 315 ret |= PARA_STS_TMOUT; 316 if (s->last_read_offset != addr || s->status != ret) 317 pdebug("rs%02x\n", ret); 318 s->status = ret; 319 break; 320 case PARA_REG_CTR: 321 /* s->control has some bits fixed to 1. It is zero only when 322 it has not been yet written to. */ 323 if (s->control == 0) { 324 qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_READ_CONTROL, &ret); 325 if (s->last_read_offset != addr) 326 pdebug("rc%02x\n", ret); 327 s->control = ret; 328 } 329 else { 330 ret = s->control; 331 if (s->last_read_offset != addr) 332 pdebug("rc%02x\n", ret); 333 } 334 break; 335 case PARA_REG_EPP_ADDR: 336 if ((s->control & (PARA_CTR_DIR|PARA_CTR_SIGNAL)) != (PARA_CTR_DIR|PARA_CTR_INIT)) 337 /* Controls not correct for EPP addr cycle, so do nothing */ 338 pdebug("ra%02x s\n", ret); 339 else { 340 struct ParallelIOArg ioarg = { .buffer = &ret, .count = 1 }; 341 if (qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_EPP_READ_ADDR, &ioarg)) { 342 s->epp_timeout = 1; 343 pdebug("ra%02x t\n", ret); 344 } 345 else 346 pdebug("ra%02x\n", ret); 347 } 348 break; 349 case PARA_REG_EPP_DATA: 350 if ((s->control & (PARA_CTR_DIR|PARA_CTR_SIGNAL)) != (PARA_CTR_DIR|PARA_CTR_INIT)) 351 /* Controls not correct for EPP data cycle, so do nothing */ 352 pdebug("re%02x s\n", ret); 353 else { 354 struct ParallelIOArg ioarg = { .buffer = &ret, .count = 1 }; 355 if (qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_EPP_READ, &ioarg)) { 356 s->epp_timeout = 1; 357 pdebug("re%02x t\n", ret); 358 } 359 else 360 pdebug("re%02x\n", ret); 361 } 362 break; 363 } 364 s->last_read_offset = addr; 365 return ret; 366 } 367 368 static uint32_t 369 parallel_ioport_eppdata_read_hw2(void *opaque, uint32_t addr) 370 { 371 ParallelState *s = opaque; 372 uint32_t ret; 373 uint16_t eppdata = ~0; 374 int err; 375 struct ParallelIOArg ioarg = { 376 .buffer = &eppdata, .count = sizeof(eppdata) 377 }; 378 if ((s->control & (PARA_CTR_DIR|PARA_CTR_SIGNAL)) != (PARA_CTR_DIR|PARA_CTR_INIT)) { 379 /* Controls not correct for EPP data cycle, so do nothing */ 380 pdebug("re%04x s\n", eppdata); 381 return eppdata; 382 } 383 err = qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_EPP_READ, &ioarg); 384 ret = le16_to_cpu(eppdata); 385 386 if (err) { 387 s->epp_timeout = 1; 388 pdebug("re%04x t\n", ret); 389 } 390 else 391 pdebug("re%04x\n", ret); 392 return ret; 393 } 394 395 static uint32_t 396 parallel_ioport_eppdata_read_hw4(void *opaque, uint32_t addr) 397 { 398 ParallelState *s = opaque; 399 uint32_t ret; 400 uint32_t eppdata = ~0U; 401 int err; 402 struct ParallelIOArg ioarg = { 403 .buffer = &eppdata, .count = sizeof(eppdata) 404 }; 405 if ((s->control & (PARA_CTR_DIR|PARA_CTR_SIGNAL)) != (PARA_CTR_DIR|PARA_CTR_INIT)) { 406 /* Controls not correct for EPP data cycle, so do nothing */ 407 pdebug("re%08x s\n", eppdata); 408 return eppdata; 409 } 410 err = qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_EPP_READ, &ioarg); 411 ret = le32_to_cpu(eppdata); 412 413 if (err) { 414 s->epp_timeout = 1; 415 pdebug("re%08x t\n", ret); 416 } 417 else 418 pdebug("re%08x\n", ret); 419 return ret; 420 } 421 422 static void parallel_ioport_ecp_write(void *opaque, uint32_t addr, uint32_t val) 423 { 424 pdebug("wecp%d=%02x\n", addr & 7, val); 425 } 426 427 static uint32_t parallel_ioport_ecp_read(void *opaque, uint32_t addr) 428 { 429 uint8_t ret = 0xff; 430 431 pdebug("recp%d:%02x\n", addr & 7, ret); 432 return ret; 433 } 434 435 static void parallel_reset(void *opaque) 436 { 437 ParallelState *s = opaque; 438 439 s->datar = ~0; 440 s->dataw = ~0; 441 s->status = PARA_STS_BUSY; 442 s->status |= PARA_STS_ACK; 443 s->status |= PARA_STS_ONLINE; 444 s->status |= PARA_STS_ERROR; 445 s->status |= PARA_STS_TMOUT; 446 s->control = PARA_CTR_SELECT; 447 s->control |= PARA_CTR_INIT; 448 s->control |= 0xc0; 449 s->irq_pending = 0; 450 s->hw_driver = 0; 451 s->epp_timeout = 0; 452 s->last_read_offset = ~0U; 453 } 454 455 static const int isa_parallel_io[MAX_PARALLEL_PORTS] = { 0x378, 0x278, 0x3bc }; 456 457 static const MemoryRegionPortio isa_parallel_portio_hw_list[] = { 458 { 0, 8, 1, 459 .read = parallel_ioport_read_hw, 460 .write = parallel_ioport_write_hw }, 461 { 4, 1, 2, 462 .read = parallel_ioport_eppdata_read_hw2, 463 .write = parallel_ioport_eppdata_write_hw2 }, 464 { 4, 1, 4, 465 .read = parallel_ioport_eppdata_read_hw4, 466 .write = parallel_ioport_eppdata_write_hw4 }, 467 { 0x400, 8, 1, 468 .read = parallel_ioport_ecp_read, 469 .write = parallel_ioport_ecp_write }, 470 PORTIO_END_OF_LIST(), 471 }; 472 473 static const MemoryRegionPortio isa_parallel_portio_sw_list[] = { 474 { 0, 8, 1, 475 .read = parallel_ioport_read_sw, 476 .write = parallel_ioport_write_sw }, 477 PORTIO_END_OF_LIST(), 478 }; 479 480 static int parallel_isa_initfn(ISADevice *dev) 481 { 482 static int index; 483 ISAParallelState *isa = ISA_PARALLEL(dev); 484 ParallelState *s = &isa->state; 485 int base; 486 uint8_t dummy; 487 488 if (!s->chr) { 489 fprintf(stderr, "Can't create parallel device, empty char device\n"); 490 exit(1); 491 } 492 493 if (isa->index == -1) 494 isa->index = index; 495 if (isa->index >= MAX_PARALLEL_PORTS) 496 return -1; 497 if (isa->iobase == -1) 498 isa->iobase = isa_parallel_io[isa->index]; 499 index++; 500 501 base = isa->iobase; 502 isa_init_irq(dev, &s->irq, isa->isairq); 503 qemu_register_reset(parallel_reset, s); 504 505 if (qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_PP_READ_STATUS, &dummy) == 0) { 506 s->hw_driver = 1; 507 s->status = dummy; 508 } 509 510 isa_register_portio_list(dev, base, 511 (s->hw_driver 512 ? &isa_parallel_portio_hw_list[0] 513 : &isa_parallel_portio_sw_list[0]), 514 s, "parallel"); 515 return 0; 516 } 517 518 /* Memory mapped interface */ 519 static uint32_t parallel_mm_readb (void *opaque, hwaddr addr) 520 { 521 ParallelState *s = opaque; 522 523 return parallel_ioport_read_sw(s, addr >> s->it_shift) & 0xFF; 524 } 525 526 static void parallel_mm_writeb (void *opaque, 527 hwaddr addr, uint32_t value) 528 { 529 ParallelState *s = opaque; 530 531 parallel_ioport_write_sw(s, addr >> s->it_shift, value & 0xFF); 532 } 533 534 static uint32_t parallel_mm_readw (void *opaque, hwaddr addr) 535 { 536 ParallelState *s = opaque; 537 538 return parallel_ioport_read_sw(s, addr >> s->it_shift) & 0xFFFF; 539 } 540 541 static void parallel_mm_writew (void *opaque, 542 hwaddr addr, uint32_t value) 543 { 544 ParallelState *s = opaque; 545 546 parallel_ioport_write_sw(s, addr >> s->it_shift, value & 0xFFFF); 547 } 548 549 static uint32_t parallel_mm_readl (void *opaque, hwaddr addr) 550 { 551 ParallelState *s = opaque; 552 553 return parallel_ioport_read_sw(s, addr >> s->it_shift); 554 } 555 556 static void parallel_mm_writel (void *opaque, 557 hwaddr addr, uint32_t value) 558 { 559 ParallelState *s = opaque; 560 561 parallel_ioport_write_sw(s, addr >> s->it_shift, value); 562 } 563 564 static const MemoryRegionOps parallel_mm_ops = { 565 .old_mmio = { 566 .read = { parallel_mm_readb, parallel_mm_readw, parallel_mm_readl }, 567 .write = { parallel_mm_writeb, parallel_mm_writew, parallel_mm_writel }, 568 }, 569 .endianness = DEVICE_NATIVE_ENDIAN, 570 }; 571 572 /* If fd is zero, it means that the parallel device uses the console */ 573 bool parallel_mm_init(MemoryRegion *address_space, 574 hwaddr base, int it_shift, qemu_irq irq, 575 CharDriverState *chr) 576 { 577 ParallelState *s; 578 579 s = g_malloc0(sizeof(ParallelState)); 580 s->irq = irq; 581 s->chr = chr; 582 s->it_shift = it_shift; 583 qemu_register_reset(parallel_reset, s); 584 585 memory_region_init_io(&s->iomem, ¶llel_mm_ops, s, 586 "parallel", 8 << it_shift); 587 memory_region_add_subregion(address_space, base, &s->iomem); 588 return true; 589 } 590 591 static Property parallel_isa_properties[] = { 592 DEFINE_PROP_UINT32("index", ISAParallelState, index, -1), 593 DEFINE_PROP_HEX32("iobase", ISAParallelState, iobase, -1), 594 DEFINE_PROP_UINT32("irq", ISAParallelState, isairq, 7), 595 DEFINE_PROP_CHR("chardev", ISAParallelState, state.chr), 596 DEFINE_PROP_END_OF_LIST(), 597 }; 598 599 static void parallel_isa_class_initfn(ObjectClass *klass, void *data) 600 { 601 DeviceClass *dc = DEVICE_CLASS(klass); 602 ISADeviceClass *ic = ISA_DEVICE_CLASS(klass); 603 ic->init = parallel_isa_initfn; 604 dc->props = parallel_isa_properties; 605 } 606 607 static const TypeInfo parallel_isa_info = { 608 .name = TYPE_ISA_PARALLEL, 609 .parent = TYPE_ISA_DEVICE, 610 .instance_size = sizeof(ISAParallelState), 611 .class_init = parallel_isa_class_initfn, 612 }; 613 614 static void parallel_register_types(void) 615 { 616 type_register_static(¶llel_isa_info); 617 } 618 619 type_init(parallel_register_types) 620