552a87ea3d
Cleaned up the parallel port emulation, added IRQ support, and made enabling/disabling per port; Added the Award 430NX and the Intel Classic/PCI (Alfredo, 420TX); Finished the 586MC1; Added 8087 emulation; Moved Cyrix 6x86'es to the Dev branch; Sanitized/cleaned up memregs.c/h and intel.c/h; Split the chipsets from machines and sanitized Port 92 emulation; Added support for the 15bpp mode to the Compaq ATI 28800; Moved the MR 386DX and 486 machines to the Dev branch; Ported the new dynamic recompiler from PCem, but it remains in Dev branch until after v2.00; Ported the new timer code from PCem; Cleaned up the CPU table of unused stuff and better optimized its structure; Ported the Open-XT and Open-AT from VARCem, the Open-AT is in the Dev branch; Ported the XT MFM controller rewrite and adding of more controllers (incl. two RLL ones), from VARCem; Added the AHA-1540A and the BusTek BT-542B; Moved the Sumo SCSI-AT to the Dev branch; Minor IDE, FDC, and floppy drive code clean-ups; Made NCR 5380/53C400-based cards' BIOS address configurable; Got rid of the legacy romset variable; Unified (video) buffer and buffer32 into one and make the unified buffer 32-bit; Added the Amstead PPC512 per PCem patch by John Elliott; Switched memory mapping granularity from 16k to 4k (less than 1k not possible due to internal pages); Rewrote the CL-GD 54xx blitter, fixes Win-OS/2 on the 54x6 among other thing; Added the Image Manager 1024 and Professional Graphics Controller per PCem patch by John Elliott and work done on VARCem; Added Headland HT-216, GC-205 and Video 7 VGA 1024i emulation based on PCem commit; Implemented the fuction keys for the Toshiba T1000/T1200/T3100 enhancement; Amstrad MegaPC does now works correctly with non-internal graphics card; The SLiRP code no longer casts a packed struct type to a non-packed struct type; The Xi8088 and PB410a no longer hang on 86Box when PS/2 mouse is not present; The S3 Virge on BeOS is no longer broken (was broken by build #1591); OS/2 2.0 build 6.167 now sees key presses again; Xi8088 now work on CGA again; 86F images converted from either the old or new variants of the HxC MFM format now work correctly; Hardware interrupts with a vector of 0xFF are now handled correctly; OPTi 495SX boards no longer incorrectly have 64 MB maximum RAM when 32 MB is correct; Fixed VNC keyboard input bugs; Fixed AT RTC periodic interrupt - Chicago 58s / 73f / 73g / 81 MIDI play no longer hangs with the build's own VTD driver; Fixed mouse polling with internal mice - Amstrad and Olivetti mice now work correctly; Triones ATAPI DMA driver now correctly reads a file at the end of a CD image with a sectors number not divisible by 4; Compaq Portable now works with all graphics cards; Fixed various MDSI Genius bugs; Added segment limit checks and improved page fault checks for several CPU instructions - Memphis 15xx WINSETUP and Chicago 58s WINDISK.CPL no longer issue a GPF, and some S3 drivers that used to have glitches, now work correctly; Further improved the 808x emulation, also fixes the noticably choppy sound when using 808x CPU's, also fixes #355; OS/2 installer no logner locks up on splash screen on PS/2 Model 70 and 80, fixes #400. Fixed several Amstead bugs, GEM no longer crashes on the Amstrad 1640, fixes #391. Ported John Elliott's Amstrad fixes and improvement from PCem, and fixed the default language so it's correctly Engliish, fixes #278, fixes #389. Fixed a minor IDE timing bug, fixes #388. Fixed Toshiba T1000 RAM issues, fixes #379. Fixed EGA/(S)VGA overscan border handling, fixes #378; Got rid of the now long useless IDE channel 2 auto-removal, fixes #370; Fixed the BIOS files used by the AMSTRAD PC1512, fixes #366; Ported the Unicode CD image file name fix from VARCem, fixes #365; Fixed high density floppy disks on the Xi8088, fixes #359; Fixed some bugs in the Hercules emulation, fixes #346, fixes #358; Fixed the SCSI hard disk mode sense pages, fixes #356; Removed the AMI Unknown 386SX because of impossibility to identify the chipset, closes #349; Fixed bugs in the serial mouse emulation, fixes #344; Compiled 86Box binaries now include all the required .DLL's, fixes #341; Made some combo boxes in the Settings dialog slightly wider, fixes #276.
478 lines
9.2 KiB
C
478 lines
9.2 KiB
C
/*
|
|
* 86Box A hypervisor and IBM PC system emulator that specializes in
|
|
* running old operating systems and software designed for IBM
|
|
* PC systems and compatibles from 1981 through fairly recent
|
|
* system designs based on the PCI bus.
|
|
*
|
|
* This file is part of the 86Box distribution.
|
|
*
|
|
* Implement I/O ports and their operations.
|
|
*
|
|
* Version: @(#)io.c 1.0.6 2019/03/21
|
|
*
|
|
* Authors: Sarah Walker, <http://pcem-emulator.co.uk/>
|
|
* Miran Grca, <mgrca8@gmail.com>
|
|
* Fred N. van Kempen, <decwiz@yahoo.com>
|
|
*
|
|
* Copyright 2008-2019 Sarah Walker.
|
|
* Copyright 2016-2019 Miran Grca.
|
|
*/
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#include <stdint.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <wchar.h>
|
|
#define HAVE_STDARG_H
|
|
#include "86box.h"
|
|
#include "io.h"
|
|
#include "cpu/cpu.h"
|
|
#include "machine/m_amstrad.h"
|
|
|
|
|
|
#define NPORTS 65536 /* PC/AT supports 64K ports */
|
|
|
|
|
|
typedef struct _io_ {
|
|
uint8_t (*inb)(uint16_t addr, void *priv);
|
|
uint16_t (*inw)(uint16_t addr, void *priv);
|
|
uint32_t (*inl)(uint16_t addr, void *priv);
|
|
|
|
void (*outb)(uint16_t addr, uint8_t val, void *priv);
|
|
void (*outw)(uint16_t addr, uint16_t val, void *priv);
|
|
void (*outl)(uint16_t addr, uint32_t val, void *priv);
|
|
|
|
void *priv;
|
|
|
|
struct _io_ *prev, *next;
|
|
} io_t;
|
|
|
|
int initialized = 0;
|
|
io_t *io[NPORTS], *io_last[NPORTS];
|
|
|
|
|
|
#ifdef ENABLE_IO_LOG
|
|
int io_do_log = ENABLE_IO_LOG;
|
|
|
|
|
|
static void
|
|
io_log(const char *fmt, ...)
|
|
{
|
|
va_list ap;
|
|
|
|
if (io_do_log) {
|
|
va_start(ap, fmt);
|
|
pclog_ex(fmt, ap);
|
|
va_end(ap);
|
|
}
|
|
}
|
|
#else
|
|
#define io_log(fmt, ...)
|
|
#endif
|
|
|
|
|
|
#ifdef ENABLE_IO_LOG
|
|
static uint8_t null_inb(uint16_t addr, void *priv) { io_log("IO: read(%04x)\n"); return(0xff); }
|
|
static uint16_t null_inw(uint16_t addr, void *priv) { io_log("IO: readw(%04x)\n"); return(0xffff); }
|
|
static uint32_t null_inl(uint16_t addr, void *priv) { io_log("IO: readl(%04x)\n"); return(0xffffffff); }
|
|
static void null_outb(uint16_t addr, uint8_t val, void *priv) { io_log("IO: write(%04x, %02x)\n", val); }
|
|
static void null_outw(uint16_t addr, uint16_t val, void *priv) { io_log("IO: writew(%04x, %04x)\n", val); }
|
|
static void null_outl(uint16_t addr, uint32_t val, void *priv) { io_log("IO: writel(%04x, %08lx)\n", val); }
|
|
#endif
|
|
|
|
|
|
void
|
|
io_init(void)
|
|
{
|
|
int c;
|
|
io_t *p, *q;
|
|
|
|
if (!initialized) {
|
|
for (c=0; c<NPORTS; c++)
|
|
io[c] = io_last[c] = NULL;
|
|
initialized = 1;
|
|
}
|
|
|
|
for (c=0; c<NPORTS; c++) {
|
|
if (io_last[c]) {
|
|
/* Port c has at least one handler. */
|
|
p = io_last[c];
|
|
/* After this loop, p will have the pointer to the first handler. */
|
|
while (p) {
|
|
q = p->prev;
|
|
free(p);
|
|
p = q;
|
|
}
|
|
p = NULL;
|
|
}
|
|
|
|
#ifdef ENABLE_IO_LOG
|
|
/* io[c] should be the only handler, pointing at the NULL catch handler. */
|
|
p = (io_t *) malloc(sizeof(io_t));
|
|
memset(p, 0, sizeof(io_t));
|
|
io[c] = io_last[c] = p;
|
|
p->next = NULL;
|
|
p->prev = NULL;
|
|
p->inb = null_inb;
|
|
p->outb = null_outb;
|
|
p->inw = null_inw;
|
|
p->outw = null_outw;
|
|
p->inl = null_inl;
|
|
p->outl = null_outl;
|
|
p->priv = NULL;
|
|
#else
|
|
/* io[c] should be NULL. */
|
|
io[c] = io_last[c] = NULL;
|
|
#endif
|
|
}
|
|
}
|
|
|
|
|
|
void
|
|
io_sethandler(uint16_t base, int size,
|
|
uint8_t (*inb)(uint16_t addr, void *priv),
|
|
uint16_t (*inw)(uint16_t addr, void *priv),
|
|
uint32_t (*inl)(uint16_t addr, void *priv),
|
|
void (*outb)(uint16_t addr, uint8_t val, void *priv),
|
|
void (*outw)(uint16_t addr, uint16_t val, void *priv),
|
|
void (*outl)(uint16_t addr, uint32_t val, void *priv),
|
|
void *priv)
|
|
{
|
|
int c;
|
|
io_t *p, *q = NULL;
|
|
|
|
for (c = 0; c < size; c++) {
|
|
p = io_last[base + c];
|
|
q = (io_t *) malloc(sizeof(io_t));
|
|
memset(q, 0, sizeof(io_t));
|
|
if (p) {
|
|
p->next = q;
|
|
q->prev = p;
|
|
} else {
|
|
io[base + c] = q;
|
|
q->prev = NULL;
|
|
}
|
|
|
|
q->inb = inb;
|
|
q->inw = inw;
|
|
q->inl = inl;
|
|
|
|
q->outb = outb;
|
|
q->outw = outw;
|
|
q->outl = outl;
|
|
|
|
q->priv = priv;
|
|
q->next = NULL;
|
|
|
|
io_last[base + c] = q;
|
|
}
|
|
}
|
|
|
|
|
|
void
|
|
io_removehandler(uint16_t base, int size,
|
|
uint8_t (*inb)(uint16_t addr, void *priv),
|
|
uint16_t (*inw)(uint16_t addr, void *priv),
|
|
uint32_t (*inl)(uint16_t addr, void *priv),
|
|
void (*outb)(uint16_t addr, uint8_t val, void *priv),
|
|
void (*outw)(uint16_t addr, uint16_t val, void *priv),
|
|
void (*outl)(uint16_t addr, uint32_t val, void *priv),
|
|
void *priv)
|
|
{
|
|
int c;
|
|
io_t *p;
|
|
|
|
for (c = 0; c < size; c++) {
|
|
p = io[base + c];
|
|
if (!p)
|
|
continue;
|
|
while(p) {
|
|
if ((p->inb == inb) && (p->inw == inw) &&
|
|
(p->inl == inl) && (p->outb == outb) &&
|
|
(p->outw == outw) && (p->outl == outl) &&
|
|
(p->priv == priv)) {
|
|
if (p->prev)
|
|
p->prev->next = p->next;
|
|
else
|
|
io[base + c] = p->next;
|
|
if (p->next)
|
|
p->next->prev = p->prev;
|
|
else
|
|
io_last[base + c] = p->prev;
|
|
free(p);
|
|
p = NULL;
|
|
break;
|
|
}
|
|
p = p->next;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
void
|
|
io_handler(int set, uint16_t base, int size,
|
|
uint8_t (*inb)(uint16_t addr, void *priv),
|
|
uint16_t (*inw)(uint16_t addr, void *priv),
|
|
uint32_t (*inl)(uint16_t addr, void *priv),
|
|
void (*outb)(uint16_t addr, uint8_t val, void *priv),
|
|
void (*outw)(uint16_t addr, uint16_t val, void *priv),
|
|
void (*outl)(uint16_t addr, uint32_t val, void *priv),
|
|
void *priv)
|
|
{
|
|
if (set)
|
|
io_sethandler(base, size, inb, inw, inl, outb, outw, outl, priv);
|
|
else
|
|
io_removehandler(base, size, inb, inw, inl, outb, outw, outl, priv);
|
|
}
|
|
|
|
|
|
#ifdef PC98
|
|
void
|
|
io_sethandler_interleaved(uint16_t base, int size,
|
|
uint8_t (*inb)(uint16_t addr, void *priv),
|
|
uint16_t (*inw)(uint16_t addr, void *priv),
|
|
uint32_t (*inl)(uint16_t addr, void *priv),
|
|
void (*outb)(uint16_t addr, uint8_t val, void *priv),
|
|
void (*outw)(uint16_t addr, uint16_t val, void *priv),
|
|
void (*outl)(uint16_t addr, uint32_t val, void *priv),
|
|
void *priv)
|
|
{
|
|
int c;
|
|
io_t *p, *q;
|
|
|
|
size <<= 2;
|
|
for (c=0; c<size; c+=2) {
|
|
p = last_handler(base + c);
|
|
q = (io_t *) malloc(sizeof(io_t));
|
|
memset(q, 0, sizeof(io_t));
|
|
if (p) {
|
|
p->next = q;
|
|
q->prev = p;
|
|
} else {
|
|
io[base + c] = q;
|
|
q->prev = NULL;
|
|
}
|
|
|
|
q->inb = inb;
|
|
q->inw = inw;
|
|
q->inl = inl;
|
|
|
|
q->outb = outb;
|
|
q->outw = outw;
|
|
q->outl = outl;
|
|
|
|
q->priv = priv;
|
|
}
|
|
}
|
|
|
|
|
|
void
|
|
io_removehandler_interleaved(uint16_t base, int size,
|
|
uint8_t (*inb)(uint16_t addr, void *priv),
|
|
uint16_t (*inw)(uint16_t addr, void *priv),
|
|
uint32_t (*inl)(uint16_t addr, void *priv),
|
|
void (*outb)(uint16_t addr, uint8_t val, void *priv),
|
|
void (*outw)(uint16_t addr, uint16_t val, void *priv),
|
|
void (*outl)(uint16_t addr, uint32_t val, void *priv),
|
|
void *priv)
|
|
{
|
|
int c;
|
|
io_t *p;
|
|
|
|
size <<= 2;
|
|
for (c = 0; c < size; c += 2) {
|
|
p = io[base + c];
|
|
if (!p)
|
|
return;
|
|
while(p) {
|
|
if ((p->inb == inb) && (p->inw == inw) &&
|
|
(p->inl == inl) && (p->outb == outb) &&
|
|
(p->outw == outw) && (p->outl == outl) &&
|
|
(p->priv == priv)) {
|
|
if (p->prev)
|
|
p->prev->next = p->next;
|
|
if (p->next)
|
|
p->next->prev = p->prev;
|
|
free(p);
|
|
break;
|
|
}
|
|
p = p->next;
|
|
}
|
|
}
|
|
}
|
|
#endif
|
|
|
|
|
|
uint8_t
|
|
inb(uint16_t port)
|
|
{
|
|
uint8_t ret = 0xff;
|
|
io_t *p;
|
|
int found = 0;
|
|
|
|
p = io[port];
|
|
if (p) {
|
|
while(p) {
|
|
if (p->inb) {
|
|
ret &= p->inb(port, p->priv);
|
|
found++;
|
|
}
|
|
p = p->next;
|
|
}
|
|
}
|
|
|
|
if (port & 0x80)
|
|
amstrad_latch = AMSTRAD_NOLATCH;
|
|
else if (port & 0x4000)
|
|
amstrad_latch = AMSTRAD_SW10;
|
|
else
|
|
amstrad_latch = AMSTRAD_SW9;
|
|
|
|
#ifdef ENABLE_IO_LOG
|
|
if (CS == IO_TRACE)
|
|
io_log("IOTRACE(%04X): inb(%04x)=%02x\n", IO_TRACE, port, r);
|
|
#endif
|
|
|
|
if (!found)
|
|
sub_cycles(io_delay);
|
|
|
|
// pclog("[%04X:%08X] inb(%04X) = %02X\n", CS, cpu_state.pc, port, ret);
|
|
|
|
return(ret);
|
|
}
|
|
|
|
|
|
void
|
|
outb(uint16_t port, uint8_t val)
|
|
{
|
|
io_t *p;
|
|
int found = 0;
|
|
|
|
if (io[port]) {
|
|
p = io[port];
|
|
while(p) {
|
|
if (p->outb) {
|
|
p->outb(port, val, p->priv);
|
|
found++;
|
|
}
|
|
p = p->next;
|
|
}
|
|
}
|
|
|
|
#ifdef ENABLE_IO_LOG
|
|
if (CS == IO_TRACE)
|
|
io_log("IOTRACE(%04X): outb(%04x,%02x)\n", IO_TRACE, port, val);
|
|
#endif
|
|
|
|
if (!found)
|
|
sub_cycles(io_delay);
|
|
|
|
// pclog("[%04X:%08X] outb(%04X) = %02X\n", CS, cpu_state.pc, port, val);
|
|
|
|
return;
|
|
}
|
|
|
|
|
|
uint16_t
|
|
inw(uint16_t port)
|
|
{
|
|
io_t *p;
|
|
uint16_t ret = 0xffff;
|
|
int found = 0;
|
|
|
|
p = io[port];
|
|
if (p) {
|
|
while(p) {
|
|
if (p->inw) {
|
|
ret = p->inw(port, p->priv);
|
|
found = 1;
|
|
}
|
|
p = p->next;
|
|
}
|
|
}
|
|
|
|
if (!found)
|
|
ret = (inb(port) | (inb(port + 1) << 8));
|
|
// else
|
|
// pclog("[%04X:%08X] inw(%04X) = %04X\n", CS, cpu_state.pc, port, ret);
|
|
|
|
return ret;
|
|
}
|
|
|
|
|
|
void
|
|
outw(uint16_t port, uint16_t val)
|
|
{
|
|
io_t *p;
|
|
|
|
p = io[port];
|
|
if (p) {
|
|
while(p) {
|
|
if (p->outw) {
|
|
p->outw(port, val, p->priv);
|
|
|
|
// pclog("[%04X:%08X] outw(%04X) = %04X\n", CS, cpu_state.pc, port, val);
|
|
return;
|
|
}
|
|
p = p->next;
|
|
}
|
|
}
|
|
|
|
outb(port,val);
|
|
outb(port+1,val>>8);
|
|
|
|
return;
|
|
}
|
|
|
|
|
|
uint32_t
|
|
inl(uint16_t port)
|
|
{
|
|
io_t *p;
|
|
uint32_t ret = 0xffffffff;
|
|
int found = 0;
|
|
|
|
p = io[port];
|
|
if (p) {
|
|
while(p) {
|
|
if (p->inl) {
|
|
ret = p->inl(port, p->priv);
|
|
found = 1;
|
|
}
|
|
p = p->next;
|
|
}
|
|
}
|
|
|
|
if (!found)
|
|
ret = (inw(port) | (inw(port + 2) << 16));
|
|
// else
|
|
// pclog("[%04X:%08X] inl(%04X) = %08X\n", CS, cpu_state.pc, port, ret);
|
|
|
|
return ret;
|
|
}
|
|
|
|
|
|
void
|
|
outl(uint16_t port, uint32_t val)
|
|
{
|
|
io_t *p;
|
|
|
|
p = io[port];
|
|
if (p) {
|
|
while(p) {
|
|
if (p->outl) {
|
|
p->outl(port, val, p->priv);
|
|
|
|
// pclog("[%04X:%08X] outl(%04X) = %08X\n", CS, cpu_state.pc, port, val);
|
|
return;
|
|
}
|
|
p = p->next;
|
|
}
|
|
}
|
|
|
|
outw(port, val);
|
|
outw(port + 2, val >> 16);
|
|
|
|
return;
|
|
}
|