Finish migrating to new mem handling. Make carthw db external.
[picodrive.git] / pico / cart.c
index 5c04fa4..5eb89c9 100644 (file)
@@ -15,7 +15,8 @@
 \r
 static const char *rom_exts[] = { "bin", "gen", "smd", "iso", "sms", "gg", "sg" };\r
 \r
-void (*PicoCartUnloadHook)(void) = NULL;\r
+void (*PicoCartUnloadHook)(void);\r
+void (*PicoCartMemSetup)(void);\r
 \r
 void (*PicoCartLoadProgressCB)(int percent) = NULL;\r
 void (*PicoCDLoadProgressCB)(const char *fname, int percent) = NULL; // handled in Pico/cd/cd_file.c\r
@@ -565,7 +566,7 @@ int PicoCartInsert(unsigned char *rom,unsigned int romsize)
 \r
   PicoAHW &= PAHW_MCD|PAHW_SMS;\r
 \r
-  PicoMemResetHooks();\r
+  PicoCartMemSetup = NULL;\r
   PicoDmaHook = NULL;\r
   PicoResetHook = NULL;\r
   PicoLineHook = NULL;\r
@@ -586,6 +587,9 @@ int PicoCartInsert(unsigned char *rom,unsigned int romsize)
     case PAHW_SMS:  PicoMemSetupMS(); break;\r
   }\r
 \r
+  if (PicoCartMemSetup != NULL)\r
+    PicoCartMemSetup();\r
+\r
   if (PicoAHW & PAHW_SMS)\r
     PicoPowerMS();\r
   else\r
@@ -611,178 +615,311 @@ void PicoCartUnload(void)
 static int rom_strcmp(int rom_offset, const char *s1)\r
 {\r
   int i, len = strlen(s1);\r
-  const char *s_rom = (const char *)Pico.rom + rom_offset;\r
+  const char *s_rom = (const char *)Pico.rom;\r
   for (i = 0; i < len; i++)\r
-    if (s1[i] != s_rom[i^1])\r
+    if (s1[i] != s_rom[(i + rom_offset) ^ 1])\r
       return 1;\r
   return 0;\r
 }\r
 \r
-static int name_cmp(const char *name)\r
-{\r
-  return rom_strcmp(0x150, name);\r
-}\r
-\r
 static unsigned int rom_read32(int addr)\r
 {\r
   unsigned short *m = (unsigned short *)(Pico.rom + addr);\r
   return (m[0] << 16) | m[1];\r
 }\r
 \r
+static char *sskip(char *s)\r
+{\r
+  while (*s && isspace_(*s))\r
+    s++;\r
+  return s;\r
+}\r
+\r
+static void rstrip(char *s)\r
+{\r
+  char *p;\r
+  for (p = s + strlen(s) - 1; p >= s; p--)\r
+    if (isspace_(*p))\r
+      *p = 0;\r
+}\r
+\r
+static int is_expr(const char *expr, char **pr)\r
+{\r
+  int len = strlen(expr);\r
+  char *p = *pr;\r
+\r
+  if (strncmp(expr, p, len) != 0)\r
+    return 0;\r
+  p = sskip(p + len);\r
+  if (*p != '=')\r
+    return 0; // wrong or malformed\r
+\r
+  *pr = sskip(p + 1);\r
+  return 1;\r
+}\r
+\r
+static void parse_carthw(int *fill_sram)\r
+{\r
+  int line = 0, any_checks_passed = 0, skip_sect = 0;\r
+  char buff[256], *p, *r;\r
+  FILE *f;\r
+\r
+  f = fopen("carthw.cfg", "r");\r
+  if (f == NULL) {\r
+    elprintf(EL_STATUS, "couldn't open carthw.txt!");\r
+    return;\r
+  }\r
+\r
+  while ((p = fgets(buff, sizeof(buff), f)))\r
+  {\r
+    line++;\r
+    p = sskip(p);\r
+    if (*p == 0 || *p == '#')\r
+      continue;\r
+\r
+    if (*p == '[') {\r
+      any_checks_passed = 0;\r
+      skip_sect = 0;\r
+      continue;\r
+    }\r
+    \r
+    if (skip_sect)\r
+      continue;\r
+\r
+    /* look for checks */\r
+    if (is_expr("check_str", &p))\r
+    {\r
+      int offs;\r
+      offs = strtoul(p, &r, 0);\r
+      if (offs < 0 || offs > Pico.romsize) {\r
+        elprintf(EL_STATUS, "carthw:%d: check_str offs out of range: %d\n", line, offs);\r
+       goto bad;\r
+      }\r
+      p = sskip(r);\r
+      if (*p != ',')\r
+        goto bad;\r
+      p = sskip(p + 1);\r
+      if (*p != '"')\r
+        goto bad;\r
+      p++;\r
+      r = strchr(p, '"');\r
+      if (r == NULL)\r
+        goto bad;\r
+      *r = 0;\r
+\r
+      if (rom_strcmp(offs, p) == 0)\r
+        any_checks_passed = 1;\r
+      else\r
+        skip_sect = 1;\r
+      continue;\r
+    }\r
+    else if (is_expr("check_size_gt", &p))\r
+    {\r
+      int size;\r
+      size = strtoul(p, &r, 0);\r
+      if (r == p || size < 0)\r
+        goto bad;\r
+\r
+      if (Pico.romsize > size)\r
+        any_checks_passed = 1;\r
+      else\r
+        skip_sect = 1;\r
+      continue;\r
+    }\r
+    else if (is_expr("check_csum", &p))\r
+    {\r
+      int csum;\r
+      csum = strtoul(p, &r, 0);\r
+      if (r == p || (csum & 0xffff0000))\r
+        goto bad;\r
+\r
+      if (csum == (rom_read32(0x18c) & 0xffff))\r
+        any_checks_passed = 1;\r
+      else\r
+        skip_sect = 1;\r
+      continue;\r
+    }\r
+\r
+    /* now time for actions */\r
+    if (is_expr("hw", &p)) {\r
+      if (!any_checks_passed)\r
+        goto no_checks;\r
+      rstrip(p);\r
+\r
+      if      (strcmp(p, "svp") == 0)\r
+        PicoSVPStartup();\r
+      else if (strcmp(p, "pico") == 0)\r
+        PicoInitPico();\r
+      else if (strcmp(p, "x_in_1_mapper") == 0)\r
+        carthw_Xin1_startup();\r
+      else if (strcmp(p, "realtec_mapper") == 0)\r
+        carthw_realtec_startup();\r
+      else if (strcmp(p, "radica_mapper") == 0)\r
+        carthw_radica_startup();\r
+      else {\r
+        elprintf(EL_STATUS, "carthw:%d: unsupported mapper: %s", line, p);\r
+        skip_sect = 1;\r
+      }\r
+      continue;\r
+    }\r
+    if (is_expr("sram_range", &p)) {\r
+      int start, end;\r
+\r
+      if (!any_checks_passed)\r
+        goto no_checks;\r
+      rstrip(p);\r
+\r
+      start = strtoul(p, &r, 0);\r
+      if (r == p)\r
+        goto bad;\r
+      p = sskip(r);\r
+      if (*p != ',')\r
+        goto bad;\r
+      p = sskip(p + 1);\r
+      end = strtoul(p, &r, 0);\r
+      if (r == p)\r
+        goto bad;\r
+      if (((start | end) & 0xff000000) || start > end) {\r
+        elprintf(EL_STATUS, "carthw:%d: bad sram_range: %08x - %08x", line, start, end);\r
+        goto bad_nomsg;\r
+      }\r
+      SRam.start = start;\r
+      SRam.end = end;\r
+      continue;\r
+    }\r
+    else if (is_expr("prop", &p)) {\r
+      if (!any_checks_passed)\r
+        goto no_checks;\r
+      rstrip(p);\r
+\r
+      if      (strcmp(p, "no_sram") == 0)\r
+        SRam.flags &= ~SRF_ENABLED;\r
+      else if (strcmp(p, "no_eeprom") == 0)\r
+        SRam.flags &= ~SRF_EEPROM;\r
+      else if (strcmp(p, "filled_sram") == 0)\r
+        *fill_sram = 1;\r
+      else {\r
+        elprintf(EL_STATUS, "carthw:%d: unsupported prop: %s", line, p);\r
+        goto bad_nomsg;\r
+      }\r
+      continue;\r
+    }\r
+    else if (is_expr("eeprom_type", &p)) {\r
+      int type;\r
+      if (!any_checks_passed)\r
+        goto no_checks;\r
+      rstrip(p);\r
+\r
+      type = strtoul(p, &r, 0);\r
+      if (r == p || type < 0)\r
+        goto bad;\r
+      SRam.eeprom_type = type;\r
+      SRam.flags |= SRF_EEPROM;\r
+      continue;\r
+    }\r
+    else if (is_expr("eeprom_lines", &p)) {\r
+      int scl, sda_in, sda_out;\r
+      if (!any_checks_passed)\r
+        goto no_checks;\r
+      rstrip(p);\r
+\r
+      scl = strtoul(p, &r, 0);\r
+      if (r == p || scl < 0 || scl > 15)\r
+        goto bad;\r
+      p = sskip(r);\r
+      if (*p++ != ',')\r
+        goto bad;\r
+      sda_in = strtoul(p, &r, 0);\r
+      if (r == p || sda_in < 0 || sda_in > 15)\r
+        goto bad;\r
+      p = sskip(r);\r
+      if (*p++ != ',')\r
+        goto bad;\r
+      sda_out = strtoul(p, &r, 0);\r
+      if (r == p || sda_out < 0 || sda_out > 15)\r
+        goto bad;\r
+\r
+      SRam.eeprom_bit_cl = scl;\r
+      SRam.eeprom_bit_in = sda_in;\r
+      SRam.eeprom_bit_out= sda_out;\r
+      continue;\r
+    }\r
+\r
+\r
+bad:\r
+    elprintf(EL_STATUS, "carthw:%d: unrecognized expression: %s", line, buff);\r
+bad_nomsg:\r
+    skip_sect = 1;\r
+    continue;\r
+\r
+no_checks:\r
+    elprintf(EL_STATUS, "carthw:%d: command without any checks before it: %s", line, buff);\r
+    skip_sect = 1;\r
+    continue;\r
+  }\r
+  fclose(f);\r
+}\r
+\r
 /*\r
  * various cart-specific things, which can't be handled by generic code\r
- * (maybe I should start using CRC for this stuff?)\r
  */\r
 static void PicoCartDetect(void)\r
 {\r
-  int sram_size = 0, csum;\r
-  Pico.m.sram_status = 0;\r
+  int fill_sram = 0, csum;\r
 \r
   csum = rom_read32(0x18c) & 0xffff;\r
 \r
+  memset(&SRam, 0, sizeof(SRam));\r
   if (Pico.rom[0x1B1] == 'R' && Pico.rom[0x1B0] == 'A')\r
   {\r
+    SRam.start =  rom_read32(0x1B4) & ~0xff000001; // align\r
+    SRam.end   = (rom_read32(0x1B8) & ~0xff000000) | 1;\r
     if (Pico.rom[0x1B2] & 0x40)\r
-    {\r
       // EEPROM\r
-      SRam.start = rom_read32(0x1B4) & ~1; // zero address is used for clock by some games\r
-      SRam.end   = rom_read32(0x1B8);\r
-      sram_size  = 0x2000;\r
-      Pico.m.sram_status |= SRS_EEPROM;\r
-    } else {\r
-      // normal SRAM\r
-      SRam.start = rom_read32(0x1B4) & ~0xff;\r
-      SRam.end   = rom_read32(0x1B8) | 1;\r
-      sram_size  = SRam.end - SRam.start + 1;\r
-    }\r
-    SRam.start &= ~0xff000000;\r
-    SRam.end   &= ~0xff000000;\r
-    Pico.m.sram_status |= SRS_DETECTED;\r
+      SRam.flags |= SRF_EEPROM;\r
+    SRam.flags |= SRF_ENABLED;\r
   }\r
-  if (sram_size <= 0)\r
+  if (SRam.end == 0 || SRam.start > SRam.end)\r
   {\r
     // some games may have bad headers, like S&K and Sonic3\r
     // note: majority games use 0x200000 as starting address, but there are some which\r
     // use something else (0x300000 by HardBall '95). Luckily they have good headers.\r
     SRam.start = 0x200000;\r
     SRam.end   = 0x203FFF;\r
-    sram_size  = 0x004000;\r
-  }\r
-\r
-  // this game actually doesn't have SRAM, but some weird protection\r
-  if (rom_strcmp(0x120, "PUGGSY") == 0)\r
-  {\r
-    SRam.start = SRam.end = sram_size = 0;\r
-  }\r
-\r
-  if (sram_size)\r
-  {\r
-    SRam.data = (unsigned char *) calloc(sram_size, 1);\r
-    if (SRam.data == NULL) return;\r
+    SRam.flags |= SRF_ENABLED;\r
   }\r
-  SRam.changed = 0;\r
 \r
   // set EEPROM defaults, in case it gets detected\r
   SRam.eeprom_type   = 0; // 7bit (24C01)\r
-  SRam.eeprom_abits  = 3; // eeprom access must be odd addr for: bit0 ~ cl, bit1 ~ in\r
   SRam.eeprom_bit_cl = 1;\r
   SRam.eeprom_bit_in = 0;\r
   SRam.eeprom_bit_out= 0;\r
 \r
-  // some known EEPROM data (thanks to EkeEke)\r
-  if (name_cmp("COLLEGE SLAM") == 0 ||\r
-      name_cmp("FRANK THOMAS BIGHURT BASEBAL") == 0)\r
-  {\r
-    SRam.eeprom_type = 3;\r
-    SRam.eeprom_abits = 2;\r
-    SRam.eeprom_bit_cl = 0;\r
-  }\r
-  else if (name_cmp("NBA JAM TOURNAMENT EDITION") == 0 ||\r
-           name_cmp("NFL QUARTERBACK CLUB") == 0)\r
-  {\r
-    SRam.eeprom_type = 2;\r
-    SRam.eeprom_abits = 2;\r
-    SRam.eeprom_bit_cl = 0;\r
-  }\r
-  else if (name_cmp("NBA JAM") == 0)\r
-  {\r
-    SRam.eeprom_type = 2;\r
-    SRam.eeprom_bit_out = 1;\r
-    SRam.eeprom_abits = 0;\r
-  }\r
-  else if (name_cmp("NHLPA HOCKEY '93") == 0 ||\r
-           name_cmp("NHLPA Hockey '93") == 0 ||\r
-           name_cmp("RINGS OF POWER") == 0)\r
-  {\r
-    SRam.start = SRam.end = 0x200000;\r
-    Pico.m.sram_status = SRS_DETECTED|SRS_EEPROM;\r
-    SRam.eeprom_abits = 0;\r
-    SRam.eeprom_bit_cl = 6;\r
-    SRam.eeprom_bit_in = 7;\r
-    SRam.eeprom_bit_out= 7;\r
-  }\r
-  else if ( name_cmp("MICRO MACHINES II") == 0 ||\r
-           (name_cmp("        ") == 0 && // Micro Machines {Turbo Tournament '96, Military - It's a Blast!}\r
-           (csum == 0x165e || csum == 0x168b || csum == 0xCEE0 || csum == 0x2C41)))\r
-  {\r
-    SRam.start = 0x300000;\r
-    SRam.end   = 0x380001;\r
-    Pico.m.sram_status = SRS_DETECTED|SRS_EEPROM;\r
-    SRam.eeprom_type = 2;\r
-    SRam.eeprom_abits = 0;\r
-    SRam.eeprom_bit_cl = 1;\r
-    SRam.eeprom_bit_in = 0;\r
-    SRam.eeprom_bit_out= 7;\r
-  }\r
-\r
-  // SVP detection\r
-  else if (name_cmp("Virtua Racing") == 0 ||\r
-           name_cmp("VIRTUA RACING") == 0)\r
-  {\r
-    PicoSVPStartup();\r
-  }\r
-\r
-  // Pico\r
-  else if (rom_strcmp(0x100, "SEGA PICO") == 0 ||\r
-           rom_strcmp(0x100, "IMA IKUNOUJYUKU") == 0) // what is that supposed to mean?\r
-  {\r
-    PicoInitPico();\r
-  }\r
+  parse_carthw(&fill_sram);\r
 \r
-  // Detect 12-in-1 mapper\r
-  else if ((name_cmp("ROBOCOP 3") == 0 && Pico.romsize == 0x200000) ||\r
-    (rom_strcmp(0x160, "FLICKY") == 0 && Pico.romsize >= 0x200000)  ||\r
-    (name_cmp(" SHOVE IT!") == 0 && Pico.romsize >= 0x200000) ||\r
-    (name_cmp("MS PACMAN") == 0 && Pico.romsize >= 0x200000) || // bad dump?\r
-    (name_cmp("ALIEN 3") == 0 && Pico.romsize == 0x200000))\r
+  if (SRam.flags & SRF_ENABLED)\r
   {\r
-    carthw_12in1_startup();\r
-  }\r
+    if (SRam.flags & SRF_EEPROM)\r
+      SRam.size = 0x2000;\r
+    else\r
+      SRam.size = SRam.end - SRam.start + 1;\r
 \r
-  // Realtec mapper\r
-  else if (Pico.romsize == 512*1024 && (\r
-    rom_strcmp(0x94, "THE EARTH DEFEND") == 0 ||\r
-    rom_strcmp(0xfe, "WISEGAME 11-03-1993") == 0 || // Funny World\r
-    rom_strcmp(0x95, "MALLET LEGEND ") == 0)) // Whac-A-Critter\r
-  {\r
-    carthw_realtec_startup();\r
-  }\r
+    SRam.data = calloc(SRam.size, 1);\r
+    if (SRam.data == NULL)\r
+      SRam.flags &= ~SRF_ENABLED;\r
 \r
-  // Radica mapper\r
-  else if (name_cmp("KID CHAMELEON") == 0 && Pico.romsize > 0x100000)\r
-  {\r
-    carthw_radica_startup();\r
+    if (SRam.eeprom_type == 1) // 1 == 0 in PD EEPROM code\r
+      SRam.eeprom_type = 0;\r
   }\r
 \r
-  // Some games malfunction if SRAM is not filled with 0xff\r
-  if (name_cmp("DINO DINI'S SOCCER") == 0 ||\r
-      name_cmp("MICRO MACHINES II") == 0)\r
+  if ((SRam.flags & SRF_ENABLED) && fill_sram)\r
   {\r
-    memset(SRam.data, 0xff, sram_size);\r
+    elprintf(EL_STATUS, "SRAM fill");\r
+    memset(SRam.data, 0xff, SRam.size);\r
   }\r
 \r
   // Unusual region 'code'\r
   if (rom_strcmp(0x1f0, "EUROPE") == 0 || rom_strcmp(0x1f0, "Europe") == 0)\r
-    *(int *) (Pico.rom+0x1f0) = 0x20204520;\r
+    *(int *) (Pico.rom + 0x1f0) = 0x20204520;\r
 }\r
 \r