fceugx/source/fceultra/boards/sachen.cpp
2012-12-14 17:43:51 +00:00

410 lines
8.8 KiB
C++

/* FCE Ultra - NES/Famicom Emulator
*
* Copyright notice for this file:
* Copyright (C) 2002 Xodnizel
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
#include "mapinc.h"
static uint8 cmd, dip;
static uint8 latch[8];
static void S74LS374MSync(uint8 mirr) {
switch (mirr & 3) {
case 0: setmirror(MI_V); break;
case 1: setmirror(MI_H); break;
case 2: setmirrorw(0, 1, 1, 1); break;
case 3: setmirror(MI_0); break;
}
}
static void S74LS374NSynco(void) {
setprg32(0x8000, latch[0]);
setchr8(latch[1] | latch[3] | latch[4]);
S74LS374MSync(latch[2]);
}
static DECLFW(S74LS374NWrite) {
A &= 0x4101;
if (A == 0x4100)
cmd = V & 7;
else{
switch (cmd) {
case 2: latch[0] = V & 1; latch[3] = (V & 1) << 3; break;
case 4: latch[4] = (V & 1) << 2; break;
case 5: latch[0] = V & 7; break;
case 6: latch[1] = V & 3; break;
case 7: latch[2] = V >> 1; break;
}
S74LS374NSynco();
}
}
static DECLFR(S74LS374NRead) {
uint8 ret;
if ((A & 0x4100) == 0x4100)
// ret=(X.DB&0xC0)|((~cmd)&0x3F);
ret = ((~cmd) & 0x3F) ^ dip;
else
ret = X.DB;
return ret;
}
static void S74LS374NPower(void) {
dip = 0;
latch[0] = latch[1] = latch[2] = latch[3] = latch[4] = 0;
S74LS374NSynco();
SetReadHandler(0x8000, 0xFFFF, CartBR);
SetWriteHandler(0x4100, 0x7FFF, S74LS374NWrite);
SetReadHandler(0x4100, 0x5fff, S74LS374NRead);
}
static void S74LS374NReset(void) {
dip ^= 1;
latch[0] = latch[1] = latch[2] = latch[3] = latch[4] = 0;
S74LS374NSynco();
}
static void S74LS374NRestore(int version) {
S74LS374NSynco();
}
void S74LS374N_Init(CartInfo *info) {
info->Power = S74LS374NPower;
info->Reset = S74LS374NReset;
GameStateRestore = S74LS374NRestore;
AddExState(latch, 5, 0, "LATC");
AddExState(&cmd, 1, 0, "CMD");
AddExState(&dip, 1, 0, "DIP");
}
static void S74LS374NASynco(void) {
setprg32(0x8000, latch[0]);
setchr8(latch[1]);
S74LS374MSync(latch[2]);
}
static DECLFW(S74LS374NAWrite) {
A &= 0x4101;
if (A == 0x4100)
cmd = V & 7;
else{
switch (cmd) {
case 0: latch[0] = 0; latch[1] = 3; break;
case 2: latch[3] = (V & 1) << 3; break;
case 4: latch[1] = (latch[1] & 6) | (V & 3); break;
case 5: latch[0] = V & 1; break;
case 6: latch[1] = (latch[1] & 1) | latch[3] | ((V & 3) << 1); break;
case 7: latch[2] = V & 1; break;
}
S74LS374NASynco();
}
}
static void S74LS374NAPower(void) {
latch[0] = latch[2] = latch[3] = latch[4] = 0;
latch[1] = 3;
S74LS374NASynco();
SetReadHandler(0x8000, 0xFFFF, CartBR);
SetWriteHandler(0x4100, 0x7FFF, S74LS374NAWrite);
}
void S74LS374NA_Init(CartInfo *info) {
info->Power = S74LS374NAPower;
GameStateRestore = S74LS374NRestore;
AddExState(latch, 5, 0, "LATC");
AddExState(&cmd, 1, 0, "CMD");
}
static int type;
static void S8259Synco(void) {
int x;
setprg32(0x8000, latch[5] & 7);
if (!UNIFchrrama) { // No CHR RAM? Then BS'ing is ok.
for (x = 0; x < 4; x++) {
int bank;
if (latch[7] & 1)
bank = (latch[0] & 0x7) | ((latch[4] & 7) << 3);
else
bank = (latch[x] & 0x7) | ((latch[4] & 7) << 3);
switch (type) {
case 00: bank = (bank << 1) | (x & 1); setchr2(0x800 * x, bank); break;
case 01: setchr2(0x800 * x, bank); break;
case 02: bank = (bank << 2) | (x & 3); setchr2(0x800 * x, bank); break;
case 03:
bank = latch[x] & 7;
switch (x & 3) {
case 01: bank |= (latch[4] & 1) << 4; break;
case 02: bank |= (latch[4] & 2) << 3; break;
case 03: bank |= ((latch[4] & 4) << 2) | ((latch[6] & 1) << 3); break;
}
setchr1(0x400 * x, bank);
setchr4(0x1000, ~0);
break;
}
}
}
if (!(latch[7] & 1))
S74LS374MSync(latch[7] >> 1);
else
setmirror(MI_V);
}
static DECLFW(S8259Write) {
A &= 0x4101;
if (A == 0x4100)
cmd = V;
else{
latch[cmd & 7] = V;
S8259Synco();
}
}
static void S8259Reset(void) {
int x;
cmd = 0;
for (x = 0; x < 8; x++) latch[x] = 0;
setchr8(0);
S8259Synco();
SetReadHandler(0x8000, 0xFFFF, CartBR);
SetWriteHandler(0x4100, 0x7FFF, S8259Write);
}
static void S8259Restore(int version) {
S8259Synco();
}
void S8259A_Init(CartInfo *info) { // Kevin's Horton 141 mapper
info->Power = S8259Reset;
GameStateRestore = S8259Restore;
AddExState(latch, 8, 0, "LATC");
AddExState(&cmd, 1, 0, "CMD");
type = 0;
}
void S8259B_Init(CartInfo *info) { // Kevin's Horton 138 mapper
info->Power = S8259Reset;
GameStateRestore = S8259Restore;
AddExState(latch, 8, 0, "LATC");
AddExState(&cmd, 1, 0, "CMD");
type = 1;
}
void S8259C_Init(CartInfo *info) { // Kevin's Horton 139 mapper
info->Power = S8259Reset;
GameStateRestore = S8259Restore;
AddExState(latch, 8, 0, "LATC");
AddExState(&cmd, 1, 0, "CMD");
type = 2;
}
void S8259D_Init(CartInfo *info) { // Kevin's Horton 137 mapper
info->Power = S8259Reset;
GameStateRestore = S8259Restore;
AddExState(latch, 8, 0, "LATC");
AddExState(&cmd, 1, 0, "CMD");
type = 3;
}
static void (*WSync)(void);
static DECLFW(SAWrite) {
if (A & 0x100) {
latch[0] = V;
WSync();
}
}
static void SAPower(void) {
latch[0] = 0;
WSync();
SetReadHandler(0x8000, 0xFFFF, CartBR);
SetWriteHandler(0x4100, 0x5FFF, SAWrite);
}
static void SARestore(int version) {
WSync();
}
static DECLFW(SADWrite) {
latch[0] = V;
WSync();
}
static void SADPower(void) {
latch[0] = 0;
WSync();
SetReadHandler(0x8000, 0xFFFF, CartBR);
SetWriteHandler(0x8000, 0xFFFF, SADWrite);
}
static void SA0161MSynco() {
setprg32(0x8000, (latch[0] >> 3) & 1);
setchr8(latch[0] & 7);
}
static void SA72007Synco() {
setprg32(0x8000, 0);
setchr8(latch[0] >> 7);
}
static void SA009Synco() {
setprg32(0x8000, 0);
setchr8(latch[0] & 1);
}
static void SA72008Synco() {
setprg32(0x8000, (latch[0] >> 2) & 1);
setchr8(latch[0] & 3);
}
void SA0161M_Init(CartInfo *info) {
WSync = SA0161MSynco;
GameStateRestore = SARestore;
info->Power = SAPower;
AddExState(&latch[0], 1, 0, "LATC");
}
void SA72007_Init(CartInfo *info) {
WSync = SA72007Synco;
GameStateRestore = SARestore;
info->Power = SAPower;
AddExState(&latch[0], 1, 0, "LATC");
}
void SA72008_Init(CartInfo *info) {
WSync = SA72008Synco;
GameStateRestore = SARestore;
info->Power = SAPower;
AddExState(&latch[0], 1, 0, "LATC");
}
void SA009_Init(CartInfo *info) {
WSync = SA009Synco;
GameStateRestore = SARestore;
info->Power = SAPower;
AddExState(&latch[0], 1, 0, "LATC");
}
void SA0036_Init(CartInfo *info) {
WSync = SA72007Synco;
GameStateRestore = SARestore;
info->Power = SADPower;
AddExState(&latch[0], 1, 0, "LATC");
}
void SA0037_Init(CartInfo *info) {
WSync = SA0161MSynco;
GameStateRestore = SARestore;
info->Power = SADPower;
AddExState(&latch[0], 1, 0, "LATC");
}
// -----------------------------------------------
static void TCU01Synco() {
setprg32(0x8000, ((latch[0] & 0x80) >> 6) | ((latch[0] >> 2) & 1));
setchr8((latch[0] >> 3) & 0xF);
}
static DECLFW(TCU01Write) {
if ((A & 0x103) == 0x102) {
latch[0] = V;
TCU01Synco();
}
}
static void TCU01Power(void) {
latch[0] = 0;
SetReadHandler(0x8000, 0xFFFF, CartBR);
SetWriteHandler(0x4100, 0xFFFF, TCU01Write);
TCU01Synco();
}
static void TCU01Restore(int version) {
TCU01Synco();
}
void TCU01_Init(CartInfo *info) {
GameStateRestore = TCU01Restore;
info->Power = TCU01Power;
AddExState(&latch[0], 1, 0, "LATC");
}
//-----------------------------------------------
static void TCU02Synco() {
setprg32(0x8000, 0);
setchr8(latch[0] & 3);
}
static DECLFW(TCU02Write) {
if ((A & 0x103) == 0x102) {
latch[0] = V + 3;
TCU02Synco();
}
}
static DECLFR(TCU02Read) {
return (latch[0] & 0x3F) | (X.DB & 0xC0);
}
static void TCU02Power(void) {
latch[0] = 0;
SetReadHandler(0x8000, 0xFFFF, CartBR);
SetReadHandler(0x4100, 0x4100, TCU02Read);
SetWriteHandler(0x4100, 0xFFFF, TCU02Write);
TCU02Synco();
}
static void TCU02Restore(int version) {
TCU02Synco();
}
void TCU02_Init(CartInfo *info) {
GameStateRestore = TCU02Restore;
info->Power = TCU02Power;
AddExState(&latch[0], 1, 0, "LATC");
}
// ---------------------------------------------
static DECLFR(TCA01Read) {
uint8 ret;
if ((A & 0x4100) == 0x4100)
ret = (X.DB & 0xC0) | ((~A) & 0x3F);
else
ret = X.DB;
return ret;
}
static void TCA01Power(void) {
setprg16(0x8000, 0);
setprg16(0xC000, 1);
setchr8(0);
SetReadHandler(0x8000, 0xFFFF, CartBR);
SetReadHandler(0x4100, 0x5FFF, TCA01Read);
}
void TCA01_Init(CartInfo *info) {
info->Power = TCA01Power;
}