merge mappers from FCEU-mm
[fceu.git] / boards / sachen.c
index a26dd07..a2b5741 100644 (file)
@@ -1,7 +1,7 @@
 /* FCE Ultra - NES/Famicom Emulator
  *
  * Copyright notice for this file:
- *  Copyright (C) 2002 Ben Parnell
+ *  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
 
 #include "mapinc.h"
 
-static uint8 cmd;
+static uint8 cmd, dip;
 static uint8 latch[8];
-#define CHRRAM (GameMemBlock)
+
+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]);
- X6502_Rebase();
- setchr8(latch[1]);
- setmirror(latch[2]&1);
-// setchr8(6);
+  setprg32(0x8000,latch[0]);
+  setchr8(latch[1]|latch[3]|latch[4]);
+  S74LS374MSync(latch[2]);
 }
 
 static DECLFW(S74LS374NWrite)
 {
- //printf("$%04x:$%02x\n",A,V);
- A&=0x4101;
- if(A==0x4100)
-  cmd=V&7;
- else
- {
-  switch(cmd)
+  A&=0x4101;
+  if(A==0x4100)
+    cmd=V&7;
+  else
   {
-   case 0:latch[0]=0;latch[1]=3;break;
-   case 4:latch[1]&=3;latch[1]|=(V<<2);break;
-   case 5:latch[0]=V&0x7;break;
-   case 6:latch[1]&=0x1C;latch[1]|=V&3;break;
-   case 7:latch[2]=V&1;break;
+    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();
   }
-  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)
 {
- latch[0]=latch[2]=0;
- latch[1]=3;
- S74LS374NSynco();
- SetReadHandler(0x8000,0xFFFF,CartBR);
- SetWriteHandler(0x4100,0x7FFF,S74LS374NWrite);
+   dip^=1;
+   latch[0]=latch[1]=latch[2]=latch[3]=latch[4]=0;
+   S74LS374NSynco();
 }
 
 static void S74LS374NRestore(int version)
 {
- S74LS374NSynco();
+   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();
+  }
 }
 
-void S74LS374N_Init(void)
+static void S74LS374NAPower(void)
 {
- BoardPower=S74LS374NReset;
- GameStateRestore=S74LS374NRestore;
- AddExState(latch, 3, 0, "LATC");
- AddExState(&cmd, 1, 0, "CMD");
+   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;
+  int x;
+  setprg32(0x8000,latch[5]&7);
 
- setprg32(0x8000,latch[5]&7);
- X6502_Rebase();
-
- if(!UNIFchrrama)      // No CHR RAM?  Then BS'ing is ok.
- {
-  if(!type)
+  if(!UNIFchrrama)        // No CHR RAM?  Then BS'ing is ok.
   {
-   for(x=0;x<4;x++)
-    setchr2(0x800*x,(x&1)|((latch[x]&7)<<1)|((latch[4]&7)<<4));
+    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
-  {
-   for(x=0;x<4;x++)
-    setchr2(0x800*x,(latch[x]&0x7)|((latch[4]&7)<<3));
-  }
- }
- switch((latch[7]>>1)&3)
- {
-  case 0:setmirrorw(0,0,0,1);break;
-  case 1:setmirror(MI_H);break;
-  case 2:setmirror(MI_V);break;
-  case 3:setmirror(MI_0);break;
- }
+    setmirror(MI_V);
 }
 
 static DECLFW(S8259Write)
 {
- A&=0x4101;
- if(A==0x4100) cmd=V;
- else
- {
-  latch[cmd&7]=V;
-  S8259Synco();
- }
+  A&=0x4101;
+  if(A==0x4100)
+    cmd=V;
+  else
+  {
+    latch[cmd&7]=V;
+    S8259Synco();
+  }
 }
 
 static void S8259Reset(void)
 {
- int x;
- cmd=0;
 int x;
 cmd=0;
 
- for(x=0;x<8;x++) latch[x]=0;
if(UNIFchrrama) setchr8(0);
 for(x=0;x<8;x++) latch[x]=0;
+  setchr8(0);
 
- S8259Synco();
- SetReadHandler(0x8000,0xFFFF,CartBR);
- SetWriteHandler(0x4100,0x7FFF,S8259Write);
 S8259Synco();
 SetReadHandler(0x8000,0xFFFF,CartBR);
 SetWriteHandler(0x4100,0x7FFF,S8259Write);
 }
 
 static void S8259Restore(int version)
 {
- S8259Synco();
+  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 S8259A_Init(void)
+void S8259B_Init(CartInfo *info) // Kevin's Horton 138 mapper
 {
- BoardPower=S8259Reset;
- GameStateRestore=S8259Restore;
- AddExState(latch, 8, 0, "LATC");
- AddExState(&cmd, 1, 0, "CMD");
- type=0;
+  info->Power=S8259Reset;
+  GameStateRestore=S8259Restore;
+  AddExState(latch, 8, 0, "LATC");
+  AddExState(&cmd, 1, 0, "CMD");
+  type=1;
+}
 
- //if(!CHRsize[0])
- //{
- // SetupCartCHRMapping(0,CHRRAM,8192,1);
- // AddExState(CHRRAM, 8192, 0, "CHRR");
- //}
+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 S8259B_Init(void)
+void S8259D_Init(CartInfo *info) // Kevin's Horton 137 mapper
 {
BoardPower=S8259Reset;
- GameStateRestore=S8259Restore;
- AddExState(latch, 8, 0, "LATC");
- AddExState(&cmd, 1, 0, "CMD");
type=1;
 info->Power=S8259Reset;
 GameStateRestore=S8259Restore;
 AddExState(latch, 8, 0, "LATC");
 AddExState(&cmd, 1, 0, "CMD");
 type=3;
 }
 
 static void(*WSync)(void);
 
-static void SA0161MSynco()
+static DECLFW(SAWrite)
 {
- setprg32(0x8000,(latch[0]>>3)&1);
- X6502_Rebase();
- setchr8(latch[0]&7);
+  if(A&0x100)
+  {
+    latch[0]=V;
+    WSync();
+  }
 }
 
-static DECLFW(SAWrite)
+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)
 {
- if(A&0x100)
- {
   latch[0]=V;
   WSync();
- }
 }
 
-static void SAReset(void)
+static void SADPower(void)
 {
- latch[0]=0;
- WSync();
- SetReadHandler(0x8000,0xFFFF,CartBR);
SetWriteHandler(0x4100,0x5FFF,SAWrite);
 latch[0]=0;
 WSync();
 SetReadHandler(0x8000,0xFFFF,CartBR);
 SetWriteHandler(0x8000,0xFFFF,SADWrite);
 }
 
-void SA0161M_Init(void)
+static void SA0161MSynco()
 {
- WSync=SA0161MSynco;
- GameStateRestore=SA0161MSynco;
- BoardPower=SAReset;
- AddExState(&latch[0], 1, 0, "LATC");
+  setprg32(0x8000,(latch[0]>>3)&1);
+  setchr8(latch[0]&7);
 }
 
 static void SA72007Synco()
 {
- setprg32(0x8000,0);
- X6502_Rebase();
- setchr8(latch[0]>>7);
+  setprg32(0x8000,0);
+  setchr8(latch[0]>>7);
 }
 
-void SA72007_Init(void)
+static void SA009Synco()
 {
- WSync=SA72007Synco;
- GameStateRestore=SA72007Synco;
- BoardPower=SAReset;
- AddExState(&latch[0], 1, 0, "LATC");
+  setprg32(0x8000,0);
+  setchr8(latch[0]&1);
 }
 
 static void SA72008Synco()
 {
- setprg32(0x8000,(latch[0]>>2)&1);
- X6502_Rebase();
- setchr8(latch[0]&3);
+  setprg32(0x8000,(latch[0]>>2)&1);
+  setchr8(latch[0]&3);
 }
 
-void SA72008_Init(void)
+void SA0161M_Init(CartInfo *info)
 {
WSync=SA72008Synco;
GameStateRestore=SA72008Synco;
BoardPower=SAReset;
- AddExState(&latch[0], 1, 0, "LATC");
 WSync=SA0161MSynco;
 GameStateRestore=SARestore;
 info->Power=SAPower;
 AddExState(&latch[0], 1, 0, "LATC");
 }
 
-static DECLFW(SADWrite)
+void SA72007_Init(CartInfo *info)
+{
+  WSync=SA72007Synco;
+  GameStateRestore=SARestore;
+  info->Power=SAPower;
+  AddExState(&latch[0], 1, 0, "LATC");
+}
+
+void SA72008_Init(CartInfo *info)
 {
- latch[0]=V;
- WSync();
+  WSync=SA72008Synco;
+  GameStateRestore=SARestore;
+  info->Power=SAPower;
+  AddExState(&latch[0], 1, 0, "LATC");
 }
 
-static void SADReset(void)
+void SA009_Init(CartInfo *info)
 {
latch[0]=0;
WSync();
SetReadHandler(0x8000,0xFFFF,CartBR);
SetWriteHandler(0x8000,0xFFFF,SADWrite);
 WSync=SA009Synco;
 GameStateRestore=SARestore;
 info->Power=SAPower;
 AddExState(&latch[0], 1, 0, "LATC");
 }
 
-static void SA0036Synco()
+void SA0036_Init(CartInfo *info)
 {
- setprg32(0x8000,0);
- X6502_Rebase();
- setchr8(latch[0]>>7);
+  WSync=SA72007Synco;
+  GameStateRestore=SARestore;
+  info->Power=SADPower;
+  AddExState(&latch[0], 1, 0, "LATC");
 }
 
-static void SA0037Synco()
+void SA0037_Init(CartInfo *info)
 {
- setprg32(0x8000,(latch[0]>>3)&1);
- X6502_Rebase();
- setchr8(latch[0]&7);
+  WSync=SA0161MSynco;
+  GameStateRestore=SARestore;
+  info->Power=SADPower;
+  AddExState(&latch[0], 1, 0, "LATC");
 }
 
-void SA0036_Init(void)
+// -----------------------------------------------
+
+static void TCU01Synco()
 {
- WSync=SA0036Synco;
- GameStateRestore=SA0036Synco;
- BoardPower=SADReset;
- AddExState(&latch[0], 1, 0, "LATC");
+  setprg32(0x8000,((latch[0]&0x80)>>6)|((latch[0]>>2)&1));
+  setchr8((latch[0]>>3)&0xF);
 }
 
-void SA0037_Init(void)
+static DECLFW(TCU01Write)
 {
- WSync=SA0037Synco;
- GameStateRestore=SA0037Synco;
- BoardPower=SADReset;
- AddExState(&latch[0], 1, 0, "LATC");
+  if((A&0x103)==0x102)
+  {
+    latch[0]=V;
+    TCU01Synco();
+  }
 }
 
-static void TCU01Synco()
+static void TCU01Power(void)
 {
- setprg32(0x8000,(latch[0]>>2)&1);
- X6502_Rebase();
- setchr8((latch[0]>>3)&0xF);
+  latch[0]=0;
+  SetReadHandler(0x8000,0xFFFF,CartBR);
+  SetWriteHandler(0x4100,0xFFFF,TCU01Write);
+  TCU01Synco();
 }
 
-static DECLFW(TCWrite)
+static void TCU01Restore(int version)
 {
- if((A&0x103)==0x102)
-  latch[0]=V;
- TCU01Synco();
+  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 TCU01Reset(void)
+static void TCA01Power(void)
 {
- latch[0]=0;
- SetReadHandler(0x8000,0xFFFF,CartBR);
- SetWriteHandler(0x4100,0xFFFF,TCWrite);
- TCU01Synco();
+  setprg16(0x8000,0);
+  setprg16(0xC000,1);
+  setchr8(0);
+  SetReadHandler(0x8000,0xFFFF,CartBR);
+  SetReadHandler(0x4100,0x5FFF,TCA01Read);
 }
 
-void TCU01_Init(void)
+void TCA01_Init(CartInfo *info)
 {
- GameStateRestore=TCU01Synco;
- BoardPower=TCU01Reset;
- AddExState(&latch[0], 1, 0, "LATC");
+  info->Power=TCA01Power;
 }