Return to crtc.c CVS log

Up to [RetroPC.NET] / xmil / io

fix...

#include	"compiler.h"
#include	"scrnmng.h"
#include	"pccore.h"
#include	"iocore.h"
#include	"vram.h"
#include	"palettes.h"
#include	"makescrn.h"


		BYTE	crtc_TEXTPAL[8];
		WORD	crtc_GRPHPAL[2][64];
		WORD	crtc_PAL4096[4096];

static const UINT8 def_TEXTPAL[8] = {
				0x00, 0x03, 0x0c, 0x0f, 0x30, 0x33, 0x3c, 0x3f};

static const UINT16 def_GRPHPAL[64] = {
				0x000, 0x00a, 0x0a0, 0x0aa, 0xa00, 0xa0a, 0xaa0, 0xaaa,
				0x005, 0x00f, 0x0a5, 0x0af, 0xa05, 0xa0f, 0xaa5, 0xaaf,
				0x050, 0x05a, 0x0f0, 0x0fa, 0xa50, 0xa5a, 0xaf0, 0xafa,
				0x055, 0x05f, 0x0f5, 0x0ff, 0xa55, 0xa5f, 0xaf5, 0xaff,
				0x500, 0x50a, 0x5a0, 0x5aa, 0xf00, 0xf0a, 0xfa0, 0xfaa,
				0x505, 0x50f, 0x5a5, 0x5af, 0xf05, 0xf0f, 0xfa5, 0xfaf,
				0x550, 0x55a, 0x5f0, 0x5fa, 0xf50, 0xf5a, 0xff0, 0xffa,
				0x555, 0x55f, 0x5f5, 0x5ff, 0xf55, 0xf5f, 0xff5, 0xfff};

static const CRTCSTAT crtcdefault = {
				0xaa,						// PAL_B;
				0xcc,						// PAL_R;
				0xf0,						// PAL_G;
				0x00,						// PLY
				{0, 1, 2, 3, 4, 5, 6, 7},	// TEXT_PAL[8]
				0,							// SCRN_BITS
				0,							// CRTC_NUM

				0,							// DISP_PAGE
				8,							// FNT_XL
				8,							// FNT_YL
				40,							// TXT_XL
				25,							// TXT_YL
				28,							// TXT_YS
				320,						// GRP_XL
				200,						// GRP_YL
				0,							// CPU_BANK
				0,							// CRT_BANK

				200,						// CRT_YL
				232,						// CRT_VS
				266,						// CRT_VL

				31,							// TXT_VL
				10,							// TXT_VLA

				0,							// TXT_TOP
				8,							// fnty

				0,							// lastpal

				0,							// BLACKPAL
				0,							// EXTPALMODE
				0,							// EXTGRPHPAL
				0,							// ZPRY
	};

	BYTE	dispmode = SCRN64_INVALID;
	BYTE	pal_bank = PAL_NORMAL;
	BYTE	pal_disp = PAL_NORMAL;

void vrambank_patch(void) {

	UINT	updatemask;

	if (crtc.s.SCRN_BITS & 0x10) {
		crtc.e.gram = GRP_RAM + GRAM_BANK1;
		crtc.e.updatebit = UPDATE_VRAM1;
	}
	else {
		crtc.e.gram = GRP_RAM + GRAM_BANK0;
		crtc.e.updatebit = UPDATE_VRAM0;
	}
	dispmode = (crtc.s.SCRN_BITS & SCRN_DISPVRAM)?SCRN_BANK1:SCRN_BANK0;
	pal_bank = pal_disp = PAL_NORMAL;

	if ((!(crtc.s.EXTPALMODE & 0x80)) || (crtc.s.SCRN_BITS & SCRN_UNDERLINE)) {
		updatemask = 0x7ff;
		if ((crtc.s.SCRN_BITS & SCRN_24KHZ) && (crtc.s.TXT_XL == 80)) {
			pal_bank = pal_disp = PAL_HIGHRESO;
		}
		if (crtc.s.SCRN_BITS & SCRN_TEXTYx2) {
			updatemask = 0x3ff;
		}
	}
	else {													// Analog mode
		updatemask = 0x3ff;
		if (!(crtc.s.SCRN_BITS & SCRN_TEXTYx2)) {
			if (crtc.s.SCRN_BITS & SCRN_24KHZ) {
				if (crtc.s.TXT_XL == 40) {
					if (crtc.s.SCRN_BITS & SCRN_200LINE) {	// width 40,25,0,2
						dispmode |= SCRN64_320x200;
					}
					else {									// width 40,25,1,2
						dispmode = SCRN64_H320x400;
					}
				}
				else {										// width 80,25,?,2
					updatemask = 0x7ff;
					pal_bank = pal_disp = PAL_HIGHRESO;
				}
			}
			else {
				if (crtc.s.TXT_XL == 40) {					// width 40,25,0,1
					if (crtc.s.EXTPALMODE & 0x10) {
						if (crtc.s.ZPRY & 0x10) {
							dispmode = SCRN64_L320x200x2 |
								((crtc.s.ZPRY & 8) ? SCRN_BANK1 : SCRN_BANK0);
							pal_disp = PAL_4096 | PAL_64x2 |
								((crtc.s.ZPRY & 8) ? PAL_4096L : PAL_4096H);
						}
						else {
							dispmode |= SCRN64_320x200;
							pal_disp = PAL_4096 |
									((crtc.s.SCRN_BITS & SCRN_DISPVRAM)
													? PAL_4096L : PAL_4096H);
						}
						pal_bank = PAL_4096 |
									((crtc.s.SCRN_BITS & SCRN_ACCESSVRAM)
													? PAL_4096L : PAL_4096H);
					}
					else {
						dispmode = SCRN64_320x200x4096 | SCRN_DRAW4096;
						pal_bank = pal_disp = PAL_4096 | PAL_4096FULL;
					}
				}
				else {										// width 80,25,0,1
					updatemask = 0x7ff;
					dispmode = SCRN64_L640x200;
				}
			}
		}
		else {
			if (crtc.s.SCRN_BITS & SCRN_24KHZ) {
				if (crtc.s.TXT_XL == 40) {
					if (crtc.s.SCRN_BITS & SCRN_200LINE) {	// width 40,12,0,2
						dispmode |= SCRN64_320x100;
					}
					else {									// width 40,12,1,2
						dispmode = SCRN64_H320x200;
					}
				}
				else {										// width 80,12,?,2
					pal_bank = pal_disp = PAL_HIGHRESO;
				}
			}
			else {
				if (crtc.s.TXT_XL == 40) {					// width 40,12,0,1
					if (crtc.s.EXTPALMODE & 0x10) {
						if (crtc.s.ZPRY & 0x10) {
							dispmode = SCRN64_320x100x2 |
								((crtc.s.ZPRY & 8) ? SCRN_BANK1 : SCRN_BANK0);
							pal_disp = PAL_4096 | PAL_64x2 |
								((crtc.s.ZPRY & 8) ? PAL_4096L : PAL_4096H);
						}
						else {
							dispmode |= SCRN64_320x100;
							pal_disp = PAL_4096 |
									((crtc.s.SCRN_BITS & SCRN_DISPVRAM)
													? PAL_4096L : PAL_4096H);
						}
						pal_bank = PAL_4096 |
									((crtc.s.SCRN_BITS & SCRN_ACCESSVRAM)
													? PAL_4096L : PAL_4096H);
					}
					else {
						dispmode = SCRN64_320x100x4096 | SCRN_DRAW4096;
						pal_bank = pal_disp = PAL_4096 | PAL_4096FULL;
					}
				}
				else {										// width 80,12,0,1
					dispmode = SCRN64_L640x100;
				}
			}
		}
	}
	crtc.e.updatemask = updatemask;
}

static void crtc_updt(void) {

	if (crtc.s.SCRN_BITS & SCRN_24KHZ) {
		crtc.s.fnty = (crtc.s.FNT_YL >> 1) & 0xfffe;
	}
	else {
		crtc.s.fnty = crtc.s.FNT_YL & 0xfffe;
	}
	if (crtc.s.TXT_YL) {
		crtc.s.CRT_YL = crtc.s.fnty * crtc.s.TXT_YL;
	}
	else {
		crtc.s.CRT_YL = crtc.s.fnty * 1;
	}
	crtc.s.CRT_VS = crtc.s.fnty * (crtc.s.TXT_YS + 1);
	crtc.s.CRT_VL = (crtc.s.TXT_VL + 1) * crtc.s.fnty + crtc.s.TXT_VLA;
//	TRACEOUT(("set> %d / %d / %d", crtc.s.CRT_YL, crtc.s.CRT_VS, crtc.s.CRT_VL));
}


// ---- CRTC

void IOOUTCALL crtc_o(UINT port, REG8 value) {

	if (port == 0x1800) {
		crtc.s.CRTC_NUM = value;
	}
	else if (port == 0x1801) {
		switch(crtc.s.CRTC_NUM) {
			case 0x01:
				if (value <= 40) {
					crtc.s.TXT_XL = 40;
				}
				else {
					crtc.s.TXT_XL = 80;
				}
				vrambank_patch();
				break;

			case 0x04:
				crtc.s.TXT_VL = value;
				break;

			case 0x05:
				crtc.s.TXT_VLA = value;
				break;

			case 0x06:
				crtc.s.TXT_YL = value;
				break;

			case 0x07:
				crtc.s.TXT_YS = value;
				break;

			case 0x09:
				crtc.s.FNT_YL = (WORD)value+1;
				break;

			case 0x0c:
				crtc.s.TXT_TOP &= 0xff;
				crtc.s.TXT_TOP |= (value & 7) << 8;
				makescrn.remakeattr = 1;
				break;

			case 0x0d:
				crtc.s.TXT_TOP &= 0x7ff;
				crtc.s.TXT_TOP |= value;
				makescrn.remakeattr = 1;
				break;

			default:
				return;
		}
		crtc.s.GRP_XL = crtc.s.TXT_XL << 3;
		crtc.s.GRP_YL = 200;
		crtc_updt();
		scrnallflash = 1;								/* 990220 puni */
	}
}


// ---- スクリーンモード

void IOOUTCALL scrn_o(UINT port, REG8 value) {

	REG8	modify;

	modify = crtc.s.SCRN_BITS ^ value;
	crtc.s.SCRN_BITS = value;
	if (modify & SCRN_DISPCHANGE) {
//		pal_reset();					// なんで？
		scrnallflash = 1;
		makescrn.palandply = 1;
		crtc_updt();
	}
	vrambank_patch();
	crtc.s.CPU_BANK = (BYTE)((crtc.s.SCRN_BITS & SCRN_ACCESSVRAM)?1:0);
	crtc.s.CRT_BANK = (BYTE)((crtc.s.SCRN_BITS & SCRN_DISPVRAM)?1:0);
	(void)port;
}

REG8 IOINPCALL scrn_i(UINT port) {

	(void)port;
	return(crtc.s.SCRN_BITS);
}


// ---- プライオリティ

void IOOUTCALL ply_o(UINT port, REG8 value) {

	if (crtc.s.PLY != value) {
		crtc.s.PLY = value;
		makescrn.palandply = 1;
	}
	(void)port;
}

REG8 IOINPCALL ply_i(UINT port) {

	(void)port;
	return(crtc.s.PLY);
}


// ---- パレット

void IOOUTCALL palette_o(UINT port, REG8 value) {

	UINT	pal;
	BYTE	c;

	crtc.s.lastpal = (value & 0xf0);
	if (crtc.s.EXTPALMODE & 0x80) {
		if ((crtc.s.EXTGRPHPAL & 0x88) != 0x80) {
			return;
		}
		if (pal_bank & PAL_4096) {					// use 4096palettes
			switch(pal_bank & (PAL_4096FULL | PAL_4096BANK)) {
				case 0:
					pal = ((port & 0xcc) << 4) + ((value & 0xc0) >> 4);
					break;

				case 1:
					pal = ((port & 0xcc) << 2) + ((value & 0xc0) >> 6);
					break;

				default:
					pal = ((port & 0xff) << 4) + (crtc.s.lastpal >> 4);
					break;
			}
			value &= 0xf;
			switch(port & 0xff00) {
				case 0x1000:
					crtc_PAL4096[pal] &= 0xff0;
					crtc_PAL4096[pal] |= value;
					break;

				case 0x1100:
					crtc_PAL4096[pal] &= 0xf0f;
					crtc_PAL4096[pal] |= (value << 4);
					break;

				case 0x1200:
					crtc_PAL4096[pal] &= 0x0ff;
					crtc_PAL4096[pal] |= ((WORD)value << 8);
					break;
			}
			pal_setgrph4096(pal);
		}
		else {
			c = ((port & 0x80) >> 5) | ((port & 0x08) >> 2) |
												((value & 0x80) >> 7);
			if ((dispmode & SCRN64_MASK) == SCRN64_INVALID) {
				c |= (c << 3);
			}
			else {
				c += ((port & 0x40) >> 1) | ((port & 0x04) << 2) |
													((value & 0x40) >> 3);
			}
			value &= 0xf;
			switch(port & 0xff00) {
				case 0x1000:
					crtc_GRPHPAL[pal_bank][c] &= 0xff0;
					crtc_GRPHPAL[pal_bank][c] |= value;
					break;

				case 0x1100:
					crtc_GRPHPAL[pal_bank][c] &= 0xf0f;
					crtc_GRPHPAL[pal_bank][c] |= (value << 4);
					break;

				case 0x1200:
					crtc_GRPHPAL[pal_bank][c] &= 0x0ff;
					crtc_GRPHPAL[pal_bank][c] |= ((WORD)value << 8);
					break;
			}
			pal_setgrph(pal_bank, c);
		}
	}
	else {
		switch(port & 0xff00) {
			case 0x1000:
				if (crtc.s.PAL_B != value) {
					crtc.s.PAL_B = value;
					makescrn.palandply = 1;
				}
				break;

			case 0x1100:
				if (crtc.s.PAL_R != value) {
					crtc.s.PAL_R = value;
					makescrn.palandply = 1;
				}
				break;

			case 0x1200:
				if (crtc.s.PAL_G != value) {
					crtc.s.PAL_G = value;
					makescrn.palandply = 1;
				}
				break;
		}
	}
}

REG8 IOINPCALL palette_i(UINT port) {

	UINT	c;

	if ((crtc.s.EXTPALMODE & 0x80) && ((crtc.s.EXTGRPHPAL & 0x88) == 0x88)) {
		if (pal_bank & PAL_4096) {					// use 4096palettes
			switch(pal_bank & (PAL_4096FULL | PAL_4096BANK)) {
				case 0:
					c = ((port & 0xcc) << 4) | ((crtc.s.lastpal & 0xc0) >> 4);
					break;

				case 1:
					c = ((port & 0xcc) << 2) | ((crtc.s.lastpal & 0xc0) >> 6);
					break;

				default:
					c = ((port & 0xff) << 4) | (crtc.s.lastpal >> 4);
					break;
			}
			switch(port & 0xff00) {
				case 0x1000:
					return(crtc.s.lastpal | (crtc_PAL4096[c] & 0xf));

				case 0x1100:
					return(crtc.s.lastpal | ((crtc_PAL4096[c] & 0xf0) >> 4));

				case 0x1200:
					return(crtc.s.lastpal | ((crtc_PAL4096[c] & 0xf00) >> 8));
			}
		}
		else {
			c = ((port & 0x80) >> 5) | ((port & 0x08) >> 2) |
											((crtc.s.lastpal & 0x80) >> 7);
			if ((dispmode & SCRN64_MASK) == SCRN64_INVALID) {
				c |= (c << 3);
			}
			else {
				c += ((port & 0x40) >> 1) | ((port & 0x04) << 2) |
											((crtc.s.lastpal & 0x40) >> 3);
			}
			switch(port & 0xff00) {
				case 0x1000:
					return(crtc.s.lastpal |
								(crtc_GRPHPAL[pal_bank][c] & 0xf));
				case 0x1100:
					return(crtc.s.lastpal |
								((crtc_GRPHPAL[pal_bank][c] & 0xf0) >> 4));
				case 0x1200:
					return(crtc.s.lastpal |
								((crtc_GRPHPAL[pal_bank][c] & 0xf00) >> 8));
			}
		}
	}
	return(0xff);
}


// ---- turboZ

void IOOUTCALL extpal_o(UINT port, REG8 value) {

	crtc.s.EXTPALMODE = value;
	vrambank_patch();
	(void)port;
}

REG8 IOINPCALL extpal_i(UINT port) {

	(void)port;
	return(crtc.s.EXTPALMODE);
}

void IOOUTCALL extgrphpal_o(UINT port, REG8 value) {

	if (crtc.s.EXTPALMODE & 0x80) {
		crtc.s.EXTGRPHPAL = value;
	}
	(void)port;
}

REG8 IOINPCALL extgrphpal_i(UINT port) {

	if (crtc.s.EXTPALMODE & 0x80) {
		return(crtc.s.EXTGRPHPAL);
	}
	(void)port;
	return(0xff);
}

void IOOUTCALL exttextpal_o(UINT port, REG8 value) {

	if (crtc.s.EXTPALMODE & 0x80) {
		crtc_TEXTPAL[port & 7] = value;
		pal_settext((REG8)(port & 7));
	}
}

REG8 IOINPCALL exttextpal_i(UINT port) {

	if (crtc.s.EXTPALMODE & 0x80) {
		return(crtc_TEXTPAL[port & 7]);
	}
	return(0xff);
}

void IOOUTCALL exttextdisp_o(UINT port, REG8 value) {

	crtc.s.ZPRY = value;
	vrambank_patch();
	(void)port;
}

REG8 IOINPCALL exttextdisp_i(UINT port) {

	if (crtc.s.EXTPALMODE & 0x80) {
		return(crtc.s.ZPRY);
	}
	(void)port;
	return(0xff);
}

void IOOUTCALL blackctrl_o(UINT port, REG8 value) {

	crtc.s.BLACKPAL = value;
	makescrn.palandply = 1;
	(void)port;
}

REG8 IOINPCALL blackctrl_i(UINT port) {

	(void)port;
	return(crtc.s.BLACKPAL);
}


// ----

static void resetpal(void) {

	CopyMemory(crtc_TEXTPAL, def_TEXTPAL, 8);
	CopyMemory(crtc_GRPHPAL[0], def_GRPHPAL, 64*2);
	CopyMemory(crtc_GRPHPAL[1], def_GRPHPAL, 64*2);
}

void crtc_initialize(void) {

	UINT	p;

	resetpal();
	for (p=0; p<4096; p++) {
		crtc_PAL4096[p] = p;
	}
}

void crtc_reset(void) {

	crtc.s = crtcdefault;

	dispmode = SCRN64_INVALID;
	pal_bank = pal_disp = PAL_NORMAL;
	if (pccore.ROM_TYPE < 3) {
		resetpal();
	}
	if ((pccore.ROM_TYPE >= 2) && (!(pccore.DIP_SW & 1))) {
		crtc.s.SCRN_BITS = SCRN_200LINE;
		crtc.s.FNT_YL = 16;
	}

	pal_reset();
	crtc_updt();

	vrambank_patch();
	makescrn.palandply = 1;
	scrnallflash = 1;
}