Re-organisation of video emulation.

This commit is contained in:
TomW 2013-06-24 20:42:35 +01:00
commit 58085bcc87
86 changed files with 8087 additions and 7229 deletions

View file

@ -3,271 +3,335 @@
PC2086, PC3086 use PVGA1A
MegaPC uses W90C11A
*/
#include <stdlib.h>
#include "ibm.h"
#include "device.h"
#include "mem.h"
#include "video.h"
#include "vid_paradise.h"
#include "vid_svga.h"
#include "vid_svga_render.h"
#include "vid_unk_ramdac.h"
void paradise_write(uint32_t addr, uint8_t val, void *priv);
uint8_t paradise_read(uint32_t addr, void *priv);
void paradise_remap();
enum
typedef struct paradise_t
{
PVGA1A = 0,
WD90C11
};
svga_t svga;
enum
{
PVGA1A = 0,
WD90C11
} type;
static int paradise_type;
uint32_t read_bank[4], write_bank[4];
} paradise_t;
static uint32_t paradise_bank_r[4], paradise_bank_w[4];
void paradise_write(uint32_t addr, uint8_t val, void *p);
uint8_t paradise_read(uint32_t addr, void *p);
void paradise_remap(paradise_t *paradise);
void paradise_out(uint16_t addr, uint8_t val, void *priv)
void paradise_out(uint16_t addr, uint8_t val, void *p)
{
paradise_t *paradise = (paradise_t *)p;
svga_t *svga = &paradise->svga;
uint8_t old;
if (((addr&0xFFF0) == 0x3D0 || (addr&0xFFF0) == 0x3B0) && !(svga_miscout&1)) addr ^= 0x60;
if (((addr & 0xfff0) == 0x3d0 || (addr & 0xfff0) == 0x3b0) && !(svga->miscout & 1))
addr ^= 0x60;
// output = 3;
pclog("Paradise out %04X %02X %04X:%04X\n", addr, val, CS, pc);
switch (addr)
{
case 0x3c5:
if (seqaddr > 7)
if (svga->seqaddr > 7)
{
if (paradise_type < WD90C11 || seqregs[6] != 0x48)
if (paradise->type < WD90C11 || svga->seqregs[6] != 0x48)
return;
seqregs[seqaddr & 0x1f] = val;
if (seqaddr == 0x11)
paradise_remap();
svga->seqregs[svga->seqaddr & 0x1f] = val;
if (svga->seqaddr == 0x11)
paradise_remap(paradise);
return;
}
break;
case 0x3cf:
if (gdcaddr >= 0x9 && gdcaddr < 0xf)
if (svga->gdcaddr >= 0x9 && svga->gdcaddr < 0xf)
{
if ((gdcreg[0xf] & 7) != 5)
if ((svga->gdcreg[0xf] & 7) != 5)
return;
}
if (gdcaddr == 6)
if (svga->gdcaddr == 6)
{
if ((gdcreg[6] & 0xc) != (val & 0xc))
if ((svga->gdcreg[6] & 0xc) != (val & 0xc))
{
mem_removehandler(0xa0000, 0x20000, paradise_read, NULL, NULL, paradise_write, NULL, NULL, NULL);
mem_removehandler(0xa0000, 0x20000, paradise_read, NULL, NULL, paradise_write, NULL, NULL, paradise);
// pclog("Write mapping %02X\n", val);
switch (val&0xC)
{
case 0x0: /*128k at A0000*/
mem_sethandler(0xa0000, 0x20000, paradise_read, NULL, NULL, paradise_write, NULL, NULL, NULL);
mem_sethandler(0xa0000, 0x20000, paradise_read, NULL, NULL, paradise_write, NULL, NULL, paradise);
break;
case 0x4: /*64k at A0000*/
mem_sethandler(0xa0000, 0x10000, paradise_read, NULL, NULL, paradise_write, NULL, NULL, NULL);
mem_sethandler(0xa0000, 0x10000, paradise_read, NULL, NULL, paradise_write, NULL, NULL, paradise);
break;
case 0x8: /*32k at B0000*/
mem_sethandler(0xb0000, 0x08000, paradise_read, NULL, NULL, paradise_write, NULL, NULL, NULL);
mem_sethandler(0xb0000, 0x08000, paradise_read, NULL, NULL, paradise_write, NULL, NULL, paradise);
break;
case 0xC: /*32k at B8000*/
mem_sethandler(0xb8000, 0x08000, paradise_read, NULL, NULL, paradise_write, NULL, NULL, NULL);
mem_sethandler(0xb8000, 0x08000, paradise_read, NULL, NULL, paradise_write, NULL, NULL, paradise);
break;
}
}
gdcreg[6] = val;
paradise_remap();
svga->gdcreg[6] = val;
paradise_remap(paradise);
return;
}
if (gdcaddr == 0x9 || gdcaddr == 0xa)
if (svga->gdcaddr == 0x9 || svga->gdcaddr == 0xa)
{
gdcreg[gdcaddr] = val;
paradise_remap();
svga->gdcreg[svga->gdcaddr] = val;
paradise_remap(paradise);
return;
}
if (gdcaddr == 0xe)
if (svga->gdcaddr == 0xe)
{
gdcreg[0xe] = val;
paradise_remap();
svga->gdcreg[0xe] = val;
paradise_remap(paradise);
return;
}
break;
case 0x3D4:
if (paradise_type == PVGA1A)
crtcreg = val & 0x1f;
if (paradise->type == PVGA1A)
svga->crtcreg = val & 0x1f;
else
crtcreg = val & 0x3f;
svga->crtcreg = val & 0x3f;
return;
case 0x3D5:
if (crtcreg <= 7 && crtc[0x11] & 0x80)
if (svga->crtcreg <= 7 && svga->crtc[0x11] & 0x80)
return;
if (crtcreg > 0x29 && (crtc[0x29] & 7) != 5)
if (svga->crtcreg > 0x29 && (svga->crtc[0x29] & 7) != 5)
return;
if (crtcreg >= 0x31 && crtcreg <= 0x37)
if (svga->crtcreg >= 0x31 && svga->crtcreg <= 0x37)
return;
old=crtc[crtcreg];
crtc[crtcreg]=val;
old = svga->crtc[svga->crtcreg];
svga->crtc[svga->crtcreg] = val;
if (old!=val)
if (old != val)
{
if (crtcreg<0xE || crtcreg>0x10)
if (svga->crtcreg < 0xe || svga->crtcreg > 0x10)
{
fullchange=changeframecount;
svga_recalctimings();
fullchange = changeframecount;
svga_recalctimings(&paradise->svga);
}
}
break;
}
svga_out(addr, val, NULL);
svga_out(addr, val, svga);
}
uint8_t paradise_in(uint16_t addr, void *priv)
uint8_t paradise_in(uint16_t addr, void *p)
{
if (((addr&0xFFF0) == 0x3D0 || (addr&0xFFF0) == 0x3B0) && !(svga_miscout&1)) addr ^= 0x60;
paradise_t *paradise = (paradise_t *)p;
svga_t *svga = &paradise->svga;
// if (addr != 0x3da) pclog("Paradise in %04X\n", addr);
if (((addr & 0xfff0) == 0x3d0 || (addr & 0xfff0) == 0x3b0) && !(svga->miscout & 1))
addr ^= 0x60;
if (addr != 0x3da) pclog("Paradise in %04X\n", addr);
switch (addr)
{
case 0x3c2:
return 0x10;
case 0x3c5:
if (seqaddr > 7)
if (svga->seqaddr > 7)
{
if (paradise_type < WD90C11 || seqregs[6] != 0x48)
if (paradise->type < WD90C11 || svga->seqregs[6] != 0x48)
return 0xff;
if (seqaddr > 0x12)
if (svga->seqaddr > 0x12)
return 0xff;
return seqregs[seqaddr & 0x1f];
return svga->seqregs[svga->seqaddr & 0x1f];
}
break;
case 0x3cf:
if (gdcaddr >= 0x9 && gdcaddr < 0xf)
if (svga->gdcaddr >= 0x9 && svga->gdcaddr < 0xf)
{
if (gdcreg[0xf] & 0x10)
if (svga->gdcreg[0xf] & 0x10)
return 0xff;
switch (gdcaddr)
switch (svga->gdcaddr)
{
case 0xf:
return (gdcreg[0xf] & 0x17) | 0x80;
return (svga->gdcreg[0xf] & 0x17) | 0x80;
}
}
break;
case 0x3D4:
return crtcreg;
return svga->crtcreg;
case 0x3D5:
if (crtcreg > 0x29 && crtcreg < 0x30 && (crtc[0x29] & 0x88) != 0x80)
if (svga->crtcreg > 0x29 && svga->crtcreg < 0x30 && (svga->crtc[0x29] & 0x88) != 0x80)
return 0xff;
return crtc[crtcreg];
return svga->crtc[svga->crtcreg];
}
return svga_in(addr, NULL);
return svga_in(addr, svga);
}
void paradise_remap()
void paradise_remap(paradise_t *paradise)
{
if (seqregs[0x11] & 0x80)
svga_t *svga = &paradise->svga;
if (svga->seqregs[0x11] & 0x80)
{
// pclog("Remap 1\n");
paradise_bank_r[0] = paradise_bank_r[2] = (gdcreg[0x9] & 0x7f) << 12;
paradise_bank_r[1] = paradise_bank_r[3] = ((gdcreg[0x9] & 0x7f) << 12) + ((gdcreg[6] & 0x08) ? 0 : 0x8000);
paradise_bank_w[0] = paradise_bank_w[2] = (gdcreg[0xa] & 0x7f) << 12;
paradise_bank_w[1] = paradise_bank_w[3] = ((gdcreg[0xa] & 0x7f) << 12) + ((gdcreg[6] & 0x08) ? 0 : 0x8000);
paradise->read_bank[0] = paradise->read_bank[2] = (svga->gdcreg[0x9] & 0x7f) << 12;
paradise->read_bank[1] = paradise->read_bank[3] = ((svga->gdcreg[0x9] & 0x7f) << 12) + ((svga->gdcreg[6] & 0x08) ? 0 : 0x8000);
paradise->write_bank[0] = paradise->write_bank[2] = (svga->gdcreg[0xa] & 0x7f) << 12;
paradise->write_bank[1] = paradise->write_bank[3] = ((svga->gdcreg[0xa] & 0x7f) << 12) + ((svga->gdcreg[6] & 0x08) ? 0 : 0x8000);
}
else if (gdcreg[0xe] & 0x08)
else if (svga->gdcreg[0xe] & 0x08)
{
if (gdcreg[0x6] & 0xc)
if (svga->gdcreg[0x6] & 0xc)
{
// pclog("Remap 2\n");
paradise_bank_r[0] = paradise_bank_r[2] = (gdcreg[0xa] & 0x7f) << 12;
paradise_bank_w[0] = paradise_bank_w[2] = (gdcreg[0xa] & 0x7f) << 12;
paradise_bank_r[1] = paradise_bank_r[3] = ((gdcreg[0x9] & 0x7f) << 12) + ((gdcreg[6] & 0x08) ? 0 : 0x8000);
paradise_bank_w[1] = paradise_bank_w[3] = ((gdcreg[0x9] & 0x7f) << 12) + ((gdcreg[6] & 0x08) ? 0 : 0x8000);
paradise->read_bank[0] = paradise->read_bank[2] = (svga->gdcreg[0xa] & 0x7f) << 12;
paradise->write_bank[0] = paradise->write_bank[2] = (svga->gdcreg[0xa] & 0x7f) << 12;
paradise->read_bank[1] = paradise->read_bank[3] = ((svga->gdcreg[0x9] & 0x7f) << 12) + ((svga->gdcreg[6] & 0x08) ? 0 : 0x8000);
paradise->write_bank[1] = paradise->write_bank[3] = ((svga->gdcreg[0x9] & 0x7f) << 12) + ((svga->gdcreg[6] & 0x08) ? 0 : 0x8000);
}
else
{
// pclog("Remap 3\n");
paradise_bank_r[0] = paradise_bank_w[0] = (gdcreg[0xa] & 0x7f) << 12;
paradise_bank_r[1] = paradise_bank_w[1] = ((gdcreg[0xa] & 0x7f) << 12) + ((gdcreg[6] & 0x08) ? 0 : 0x8000);
paradise_bank_r[2] = paradise_bank_w[2] = (gdcreg[0x9] & 0x7f) << 12;
paradise_bank_r[3] = paradise_bank_w[3] = ((gdcreg[0x9] & 0x7f) << 12) + ((gdcreg[6] & 0x08) ? 0 : 0x8000);
paradise->read_bank[0] = paradise->write_bank[0] = (svga->gdcreg[0xa] & 0x7f) << 12;
paradise->read_bank[1] = paradise->write_bank[1] = ((svga->gdcreg[0xa] & 0x7f) << 12) + ((svga->gdcreg[6] & 0x08) ? 0 : 0x8000);
paradise->read_bank[2] = paradise->write_bank[2] = (svga->gdcreg[0x9] & 0x7f) << 12;
paradise->read_bank[3] = paradise->write_bank[3] = ((svga->gdcreg[0x9] & 0x7f) << 12) + ((svga->gdcreg[6] & 0x08) ? 0 : 0x8000);
}
}
else
{
// pclog("Remap 4\n");
paradise_bank_r[0] = paradise_bank_r[2] = (gdcreg[0x9] & 0x7f) << 12;
paradise_bank_r[1] = paradise_bank_r[3] = ((gdcreg[0x9] & 0x7f) << 12) + ((gdcreg[6] & 0x08) ? 0 : 0x8000);
paradise_bank_w[0] = paradise_bank_w[2] = (gdcreg[0x9] & 0x7f) << 12;
paradise_bank_w[1] = paradise_bank_w[3] = ((gdcreg[0x9] & 0x7f) << 12) + ((gdcreg[6] & 0x08) ? 0 : 0x8000);
paradise->read_bank[0] = paradise->read_bank[2] = (svga->gdcreg[0x9] & 0x7f) << 12;
paradise->read_bank[1] = paradise->read_bank[3] = ((svga->gdcreg[0x9] & 0x7f) << 12) + ((svga->gdcreg[6] & 0x08) ? 0 : 0x8000);
paradise->write_bank[0] = paradise->write_bank[2] = (svga->gdcreg[0x9] & 0x7f) << 12;
paradise->write_bank[1] = paradise->write_bank[3] = ((svga->gdcreg[0x9] & 0x7f) << 12) + ((svga->gdcreg[6] & 0x08) ? 0 : 0x8000);
}
// pclog("Remap - %04X %04X\n", paradise_bank_r[0], paradise_bank_w[0]);
// pclog("Remap - %04X %04X\n", paradise->read_bank[0], paradise->write_bank[0]);
}
void paradise_recalctimings()
void paradise_recalctimings(svga_t *svga)
{
svga_lowres = !(gdcreg[0xe] & 0x01);
svga->lowres = !(svga->gdcreg[0xe] & 0x01);
if (svga->bpp == 8 && !svga->lowres)
svga->render = svga_render_8bpp_highres;
}
#define egacycles 1
#define egacycles2 1
void paradise_write(uint32_t addr, uint8_t val, void *priv)
void paradise_write(uint32_t addr, uint8_t val, void *p)
{
paradise_t *paradise = (paradise_t *)p;
// pclog("paradise_write : %05X %02X ", addr, val);
addr = (addr & 0x7fff) + paradise_bank_w[(addr >> 15) & 3];
addr = (addr & 0x7fff) + paradise->write_bank[(addr >> 15) & 3];
// pclog("%08X\n", addr);
svga_write_linear(addr, val, priv);
svga_write_linear(addr, val, &paradise->svga);
}
uint8_t paradise_read(uint32_t addr, void *priv)
uint8_t paradise_read(uint32_t addr, void *p)
{
paradise_t *paradise = (paradise_t *)p;
// pclog("paradise_read : %05X ", addr);
addr = (addr & 0x7fff) + paradise_bank_r[(addr >> 15) & 3];
addr = (addr & 0x7fff) + paradise->read_bank[(addr >> 15) & 3];
// pclog("%08X\n", addr);
return svga_read_linear(addr, priv);
return svga_read_linear(addr, &paradise->svga);
}
int paradise_init()
void *paradise_pvga1a_init()
{
if (romset == ROM_PC2086 || romset == ROM_PC3086)
{
paradise_type = PVGA1A;
vrammask = 0x3ffff;
pclog("Init PVGA1A\n");
svga_vram_limit = 1 << 18; /*256kb*/
}
if (romset == ROM_MEGAPC)
{
paradise_type = WD90C11;
vrammask = 0x7ffff;
crtc[0x36] = '1';
crtc[0x37] = '1';
pclog("Init WD90C11\n");
svga_vram_limit = 1 << 19; /*512kb*/
}
crtc[0x31] = 'W';
crtc[0x32] = 'D';
crtc[0x33] = '9';
crtc[0x34] = '0';
crtc[0x35] = 'C';
svga_recalctimings_ex = paradise_recalctimings;
return svga_init();
paradise_t *paradise = malloc(sizeof(paradise_t));
svga_t *svga = &paradise->svga;
memset(paradise, 0, sizeof(paradise_t));
io_sethandler(0x03c0, 0x0020, paradise_in, NULL, NULL, paradise_out, NULL, NULL, paradise);
svga_init(&paradise->svga, paradise, 1 << 18, /*256kb*/
NULL,
paradise_in, paradise_out,
NULL);
svga->crtc[0x31] = 'W';
svga->crtc[0x32] = 'D';
svga->crtc[0x33] = '9';
svga->crtc[0x34] = '0';
svga->crtc[0x35] = 'C';
svga->bpp = 8;
svga->miscout = 1;
paradise->type = PVGA1A;
return paradise;
}
GFXCARD vid_paradise =
void *paradise_wd90c11_init()
{
paradise_init,
/*IO at 3Cx/3Dx*/
paradise_out,
paradise_in,
/*IO at 3Ax/3Bx*/
video_out_null,
video_in_null,
paradise_t *paradise = malloc(sizeof(paradise_t));
svga_t *svga = &paradise->svga;
memset(paradise, 0, sizeof(paradise_t));
io_sethandler(0x03c0, 0x0020, paradise_in, NULL, NULL, paradise_out, NULL, NULL, paradise);
svga_poll,
svga_recalctimings,
svga_init(&paradise->svga, paradise, 1 << 19, /*512kb*/
paradise_recalctimings,
paradise_in, paradise_out,
NULL);
paradise_write,
video_write_null,
video_write_null,
svga->crtc[0x31] = 'W';
svga->crtc[0x32] = 'D';
svga->crtc[0x33] = '9';
svga->crtc[0x34] = '0';
svga->crtc[0x35] = 'C';
svga->crtc[0x36] = '1';
svga->crtc[0x37] = '1';
paradise_read,
video_read_null,
video_read_null
svga->bpp = 8;
svga->miscout = 1;
paradise->type = WD90C11;
return paradise;
}
void paradise_close(void *p)
{
paradise_t *paradise = (paradise_t *)p;
svga_close(&paradise->svga);
free(paradise);
}
void paradise_speed_changed(void *p)
{
paradise_t *paradise = (paradise_t *)p;
svga_recalctimings(&paradise->svga);
}
device_t paradise_pvga1a_device =
{
"Paradise PVGA1A",
paradise_pvga1a_init,
paradise_close,
paradise_speed_changed,
svga_add_status_info
};
device_t paradise_wd90c11_device =
{
"Paradise WD90C11",
paradise_wd90c11_init,
paradise_close,
paradise_speed_changed,
svga_add_status_info
};