-// This is part of Pico Library\r
-\r
-// (c) Copyright 2004 Dave, All rights reserved.\r
-// (c) Copyright 2006-2007, Grazvydas "notaz" Ignotas\r
-// Free for non-commercial use.\r
-\r
-// For commercial use, separate licencing terms must be obtained.\r
-\r
+/*\r
+ * PicoDrive\r
+ * (c) Copyright Dave, 2004\r
+ * (C) notaz, 2006-2010\r
+ *\r
+ * This work is licensed under the terms of MAME license.\r
+ * See COPYING file in the top-level directory.\r
+ */\r
\r
#include "pico_int.h"\r
#include "../zlib/zlib.h"\r
+#include "../cpu/debug.h"\r
#include "../unzip/unzip.h"\r
#include "../unzip/unzip_stream.h"\r
\r
\r
-static char *rom_exts[] = { "bin", "gen", "smd", "iso" };\r
+static int rom_alloc_size;\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
\r
-static void PicoCartDetect(void);\r
+int PicoGameLoaded;\r
+\r
+static void PicoCartDetect(const char *carthw_cfg);\r
\r
/* cso struct */\r
typedef struct _cso_struct\r
return inflateEnd(&stream);\r
}\r
\r
+static const char *get_ext(const char *path)\r
+{\r
+ const char *ext;\r
+ if (strlen(path) < 4)\r
+ return ""; // no ext\r
+\r
+ // allow 2 or 3 char extensions for now\r
+ ext = path + strlen(path) - 2;\r
+ if (ext[-1] != '.') ext--;\r
+ if (ext[-1] != '.')\r
+ return "";\r
+ return ext;\r
+}\r
+\r
pm_file *pm_open(const char *path)\r
{\r
pm_file *file = NULL;\r
const char *ext;\r
FILE *f;\r
\r
- if (path == NULL) return NULL;\r
-\r
- if (strlen(path) < 5) ext = NULL; // no ext\r
- else ext = path + strlen(path) - 3;\r
+ if (path == NULL)\r
+ return NULL;\r
\r
- if (ext && strcasecmp(ext, "zip") == 0)\r
+ ext = get_ext(path);\r
+#ifndef NO_ZLIB\r
+ if (strcasecmp(ext, "zip") == 0)\r
{\r
struct zipent *zipentry;\r
gzFile gzf = NULL;\r
int i;\r
\r
zipfile = openzip(path);\r
-\r
if (zipfile != NULL)\r
{\r
/* search for suitable file (right extension or large enough file) */\r
while ((zipentry = readzip(zipfile)) != NULL)\r
{\r
- if (zipentry->uncompressed_size >= 128*1024) goto found_rom_zip;\r
- if (strlen(zipentry->name) < 5) continue;\r
+ ext = get_ext(zipentry->name);\r
+\r
+ if (zipentry->uncompressed_size >= 32*1024)\r
+ goto found_rom_zip;\r
\r
- ext = zipentry->name+strlen(zipentry->name)-3;\r
for (i = 0; i < sizeof(rom_exts)/sizeof(rom_exts[0]); i++)\r
- if (strcasecmp(ext, rom_exts[i]) == 0) goto found_rom_zip;\r
+ if (strcasecmp(ext, rom_exts[i]) == 0)\r
+ goto found_rom_zip;\r
}\r
\r
/* zipfile given, but nothing found suitable for us inside */\r
gzf = zip2gz(zipfile, zipentry);\r
if (gzf == NULL) goto zip_failed;\r
\r
- file = malloc(sizeof(*file));\r
+ file = calloc(1, sizeof(*file));\r
if (file == NULL) goto zip_failed;\r
file->file = zipfile;\r
file->param = gzf;\r
file->size = zipentry->uncompressed_size;\r
file->type = PMT_ZIP;\r
+ strncpy(file->ext, ext, sizeof(file->ext) - 1);\r
return file;\r
\r
zip_failed:\r
return NULL;\r
}\r
}\r
- else if (ext && strcasecmp(ext, "cso") == 0)\r
+ else\r
+#endif\r
+ if (strcasecmp(ext, "cso") == 0)\r
{\r
cso_struct *cso = NULL, *tmp = NULL;\r
int size;\r
if (f == NULL)\r
goto cso_failed;\r
\r
-#ifndef __EPOC32__\r
+#ifdef __GP2X__\r
/* we use our own buffering */\r
setvbuf(f, NULL, _IONBF, 0);\r
#endif\r
cso->fpos_in = ftell(f);\r
cso->fpos_out = 0;\r
cso->block_in_buff = -1;\r
- file = malloc(sizeof(*file));\r
+ file = calloc(1, sizeof(*file));\r
if (file == NULL) goto cso_failed;\r
file->file = f;\r
file->param = cso;\r
f = fopen(path, "rb");\r
if (f == NULL) return NULL;\r
\r
- file = malloc(sizeof(*file));\r
+ file = calloc(1, sizeof(*file));\r
if (file == NULL) {\r
fclose(f);\r
return NULL;\r
file->param = NULL;\r
file->size = ftell(f);\r
file->type = PMT_UNCOMPRESSED;\r
+ strncpy(file->ext, ext, sizeof(file->ext) - 1);\r
fseek(f, 0, SEEK_SET);\r
\r
-#ifndef __EPOC32__ // makes things worse on Symbian\r
+#ifdef __GP2X__\r
if (file->size > 0x400000)\r
/* we use our own buffering */\r
setvbuf(f, NULL, _IONBF, 0);\r
{\r
ret = fread(ptr, 1, bytes, stream->file);\r
}\r
+#ifndef NO_ZLIB\r
else if (stream->type == PMT_ZIP)\r
{\r
gzFile gf = stream->param;\r
/* we must reset stream pointer or else next seek/read fails */\r
gzrewind(gf);\r
}\r
+#endif\r
else if (stream->type == PMT_CSO)\r
{\r
cso_struct *cso = stream->param;\r
fseek(stream->file, offset, whence);\r
return ftell(stream->file);\r
}\r
+#ifndef NO_ZLIB\r
else if (stream->type == PMT_ZIP)\r
{\r
if (PicoMessage != NULL && offset > 6*1024*1024) {\r
}\r
return gzseek((gzFile) stream->param, offset, whence);\r
}\r
+#endif\r
else if (stream->type == PMT_CSO)\r
{\r
cso_struct *cso = stream->param;\r
{\r
fclose(fp->file);\r
}\r
+#ifndef NO_ZLIB\r
else if (fp->type == PMT_ZIP)\r
{\r
ZIP *zipfile = fp->file;\r
zipfile->fp = NULL; // gzclose() closed it\r
closezip(zipfile);\r
}\r
+#endif\r
else if (fp->type == PMT_CSO)\r
{\r
free(fp->param);\r
return ret;\r
}\r
\r
-\r
-void Byteswap(unsigned char *data,int len)\r
+// byteswap, data needs to be int aligned, src can match dst\r
+void Byteswap(void *dst, const void *src, int len)\r
{\r
- int i=0;\r
+ const unsigned int *ps = src;\r
+ unsigned int *pd = dst;\r
+ int i, m;\r
\r
- if (len<2) return; // Too short\r
-\r
- do\r
- {\r
- unsigned short *pd=(unsigned short *)(data+i);\r
- int value=*pd; // Get 2 bytes\r
+ if (len < 2)\r
+ return;\r
\r
- value=(value<<8)|(value>>8); // Byteswap it\r
- *pd=(unsigned short)value; // Put 2b ytes\r
- i+=2;\r
+ m = 0x00ff00ff;\r
+ for (i = 0; i < len / 4; i++) {\r
+ unsigned int t = ps[i];\r
+ pd[i] = ((t & m) << 8) | ((t & ~m) >> 8);\r
}\r
- while (i+2<=len);\r
}\r
\r
// Interleve a 16k block and byteswap\r
return 0;\r
}\r
\r
-static unsigned char *cd_realloc(void *old, int filesize)\r
-{\r
- unsigned char *rom;\r
- rom=realloc(old, sizeof(mcd_state));\r
- if (rom) memset(rom+0x20000, 0, sizeof(mcd_state)-0x20000);\r
- return rom;\r
-}\r
-\r
-static unsigned char *PicoCartAlloc(int filesize)\r
+static unsigned char *PicoCartAlloc(int filesize, int is_sms)\r
{\r
- int alloc_size;\r
unsigned char *rom;\r
\r
- if (PicoAHW & PAHW_MCD) return cd_realloc(NULL, filesize);\r
+ if (is_sms) {\r
+ // make size power of 2 for easier banking handling\r
+ int s = 0, tmp = filesize;\r
+ while ((tmp >>= 1) != 0)\r
+ s++;\r
+ if (filesize > (1 << s))\r
+ s++;\r
+ rom_alloc_size = 1 << s;\r
+ // be sure we can cover all address space\r
+ if (rom_alloc_size < 0x10000)\r
+ rom_alloc_size = 0x10000;\r
+ }\r
+ else {\r
+ // make alloc size at least sizeof(mcd_state),\r
+ // in case we want to switch to CD mode\r
+ if (filesize < sizeof(mcd_state))\r
+ filesize = sizeof(mcd_state);\r
+\r
+ // align to 512K for memhandlers\r
+ rom_alloc_size = (filesize + 0x7ffff) & ~0x7ffff;\r
+ }\r
\r
- alloc_size=filesize+0x7ffff;\r
- if((filesize&0x3fff)==0x200) alloc_size-=0x200;\r
- alloc_size&=~0x7ffff; // use alloc size of multiples of 512K, so that memhandlers could be set up more efficiently\r
- if((filesize&0x3fff)==0x200) alloc_size+=0x200;\r
- else if(alloc_size-filesize < 4) alloc_size+=4; // padding for out-of-bound exec protection\r
+ if (rom_alloc_size - filesize < 4)\r
+ rom_alloc_size += 4; // padding for out-of-bound exec protection\r
\r
// Allocate space for the rom plus padding\r
- rom=(unsigned char *)malloc(alloc_size);\r
- if(rom) memset(rom+alloc_size-0x80000,0,0x80000);\r
+ // use special address for 32x dynarec\r
+ rom = plat_mmap(0x02000000, rom_alloc_size, 0, 0);\r
return rom;\r
}\r
\r
-int PicoCartLoad(pm_file *f,unsigned char **prom,unsigned int *psize)\r
+int PicoCartLoad(pm_file *f,unsigned char **prom,unsigned int *psize,int is_sms)\r
{\r
- unsigned char *rom=NULL; int size, bytes_read;\r
- if (f==NULL) return 1;\r
+ unsigned char *rom;\r
+ int size, bytes_read;\r
+\r
+ if (f == NULL)\r
+ return 1;\r
\r
- size=f->size;\r
+ size = f->size;\r
if (size <= 0) return 1;\r
- size=(size+3)&~3; // Round up to a multiple of 4\r
+ size = (size+3)&~3; // Round up to a multiple of 4\r
\r
// Allocate space for the rom plus padding\r
- rom=PicoCartAlloc(size);\r
- if (rom==NULL) {\r
+ rom = PicoCartAlloc(size, is_sms);\r
+ if (rom == NULL) {\r
elprintf(EL_STATUS, "out of memory (wanted %i)", size);\r
return 2;\r
}\r
return 3;\r
}\r
\r
- // maybe we are loading MegaCD BIOS?\r
- if (!(PicoAHW & PAHW_MCD) && size == 0x20000 && (!strncmp((char *)rom+0x124, "BOOT", 4) ||\r
- !strncmp((char *)rom+0x128, "BOOT", 4))) {\r
- PicoAHW |= PAHW_MCD;\r
- rom = cd_realloc(rom, size);\r
- }\r
+ if (!is_sms)\r
+ {\r
+ // maybe we are loading MegaCD BIOS?\r
+ if (!(PicoAHW & PAHW_MCD) && size == 0x20000 && (!strncmp((char *)rom+0x124, "BOOT", 4) ||\r
+ !strncmp((char *)rom+0x128, "BOOT", 4))) {\r
+ PicoAHW |= PAHW_MCD;\r
+ }\r
\r
- // Check for SMD:\r
- if (size >= 0x4200 && (size&0x3fff)==0x200 &&\r
- ((rom[0x2280] == 'S' && rom[0x280] == 'E') || (rom[0x280] == 'S' && rom[0x2281] == 'E'))) {\r
- DecodeSmd(rom,size); size-=0x200; // Decode and byteswap SMD\r
+ // Check for SMD:\r
+ if (size >= 0x4200 && (size&0x3fff) == 0x200 &&\r
+ ((rom[0x2280] == 'S' && rom[0x280] == 'E') || (rom[0x280] == 'S' && rom[0x2281] == 'E'))) {\r
+ elprintf(EL_STATUS, "SMD format detected.");\r
+ DecodeSmd(rom,size); size-=0x200; // Decode and byteswap SMD\r
+ }\r
+ else Byteswap(rom, rom, size); // Just byteswap\r
+ }\r
+ else\r
+ {\r
+ if (size >= 0x4200 && (size&0x3fff) == 0x200) {\r
+ elprintf(EL_STATUS, "SMD format detected.");\r
+ // at least here it's not interleaved\r
+ size -= 0x200;\r
+ memmove(rom, rom + 0x200, size);\r
+ }\r
}\r
- else Byteswap(rom,size); // Just byteswap\r
\r
- if (prom) *prom=rom;\r
- if (psize) *psize=size;\r
+ if (prom) *prom = rom;\r
+ if (psize) *psize = size;\r
\r
return 0;\r
}\r
\r
// Insert a cartridge:\r
-int PicoCartInsert(unsigned char *rom,unsigned int romsize)\r
+int PicoCartInsert(unsigned char *rom, unsigned int romsize, const char *carthw_cfg)\r
{\r
// notaz: add a 68k "jump one op back" opcode to the end of ROM.\r
// This will hang the emu, but will prevent nasty crashes.\r
PicoCartUnloadHook();\r
PicoCartUnloadHook = NULL;\r
}\r
+ pdb_cleanup();\r
\r
- PicoAHW &= PAHW_MCD;\r
+ PicoAHW &= PAHW_MCD|PAHW_SMS;\r
\r
- PicoMemResetHooks();\r
+ PicoCartMemSetup = NULL;\r
PicoDmaHook = NULL;\r
PicoResetHook = NULL;\r
PicoLineHook = NULL;\r
PicoLoadStateHook = NULL;\r
carthw_chunks = NULL;\r
\r
- PicoMemReset();\r
-\r
- if (!(PicoAHW & PAHW_MCD))\r
- PicoCartDetect();\r
+ if (!(PicoAHW & (PAHW_MCD|PAHW_SMS)))\r
+ PicoCartDetect(carthw_cfg);\r
\r
// setup correct memory map for loaded ROM\r
- // call PicoMemReset again due to possible memmap change\r
switch (PicoAHW) {\r
default:\r
elprintf(EL_STATUS|EL_ANOMALY, "starting in unknown hw configuration: %x", PicoAHW);\r
case PAHW_SVP: PicoMemSetup(); break;\r
case PAHW_MCD: PicoMemSetupCD(); break;\r
case PAHW_PICO: PicoMemSetupPico(); break;\r
+ case PAHW_SMS: PicoMemSetupMS(); break;\r
}\r
- PicoMemReset();\r
\r
- PicoPower();\r
+ if (PicoCartMemSetup != NULL)\r
+ PicoCartMemSetup();\r
+\r
+ if (PicoAHW & PAHW_SMS)\r
+ PicoPowerMS();\r
+ else\r
+ PicoPower();\r
+\r
+ PicoGameLoaded = 1;\r
+ return 0;\r
+}\r
+\r
+int PicoCartResize(int newsize)\r
+{\r
+ void *tmp = plat_mremap(Pico.rom, rom_alloc_size, newsize);\r
+ if (tmp == NULL)\r
+ return -1;\r
+\r
+ Pico.rom = tmp;\r
+ rom_alloc_size = newsize;\r
return 0;\r
}\r
\r
void PicoCartUnload(void)\r
{\r
+ if (PicoCartUnloadHook != NULL) {\r
+ PicoCartUnloadHook();\r
+ PicoCartUnloadHook = NULL;\r
+ }\r
+\r
+ if (PicoAHW & PAHW_32X)\r
+ PicoUnload32x();\r
+\r
if (Pico.rom != NULL) {\r
SekFinishIdleDet();\r
- free(Pico.rom);\r
- Pico.rom=NULL;\r
+ plat_munmap(Pico.rom, rom_alloc_size);\r
+ Pico.rom = NULL;\r
}\r
+ PicoGameLoaded = 0;\r
+}\r
+\r
+static unsigned int rom_crc32(void)\r
+{\r
+ unsigned int crc;\r
+ elprintf(EL_STATUS, "caclulating CRC32..");\r
+\r
+ // have to unbyteswap for calculation..\r
+ Byteswap(Pico.rom, Pico.rom, Pico.romsize);\r
+ crc = crc32(0, Pico.rom, Pico.romsize);\r
+ Byteswap(Pico.rom, Pico.rom, Pico.romsize);\r
+ return crc;\r
}\r
\r
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
+ if (rom_offset + len > Pico.romsize)\r
+ return 0;\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
+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 parse_3_vals(char *p, int *val0, int *val1, int *val2)\r
+{\r
+ char *r;\r
+ *val0 = strtoul(p, &r, 0);\r
+ if (r == p)\r
+ goto bad;\r
+ p = sskip(r);\r
+ if (*p++ != ',')\r
+ goto bad;\r
+ *val1 = strtoul(p, &r, 0);\r
+ if (r == p)\r
+ goto bad;\r
+ p = sskip(r);\r
+ if (*p++ != ',')\r
+ goto bad;\r
+ *val2 = strtoul(p, &r, 0);\r
+ if (r == p)\r
+ goto bad;\r
+\r
+ return 1;\r
+bad:\r
+ return 0;\r
+}\r
+\r
+static int is_expr(const char *expr, char **pr)\r
{\r
- return rom_strcmp(0x150, name);\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
+#include "carthw_cfg.c"\r
+\r
+static void parse_carthw(const char *carthw_cfg, int *fill_sram)\r
+{\r
+ int line = 0, any_checks_passed = 0, skip_sect = 0;\r
+ const char *s, *builtin = builtin_carthw_cfg;\r
+ int tmp, rom_crc = 0;\r
+ char buff[256], *p, *r;\r
+ FILE *f;\r
+\r
+ f = fopen(carthw_cfg, "r");\r
+ if (f == NULL)\r
+ f = fopen("pico/carthw.cfg", "r");\r
+ if (f == NULL)\r
+ elprintf(EL_STATUS, "couldn't open carthw.cfg!");\r
+\r
+ for (;;)\r
+ {\r
+ if (f != NULL) {\r
+ p = fgets(buff, sizeof(buff), f);\r
+ if (p == NULL)\r
+ break;\r
+ }\r
+ else {\r
+ if (*builtin == 0)\r
+ break;\r
+ for (s = builtin; *s != 0 && *s != '\n'; s++)\r
+ ;\r
+ while (*s == '\n')\r
+ s++;\r
+ tmp = s - builtin;\r
+ if (tmp > sizeof(buff) - 1)\r
+ tmp = sizeof(buff) - 1;\r
+ memcpy(buff, builtin, tmp);\r
+ buff[tmp] = 0;\r
+ p = buff;\r
+ builtin = s;\r
+ }\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
+ else if (is_expr("check_crc32", &p))\r
+ {\r
+ unsigned int crc;\r
+ crc = strtoul(p, &r, 0);\r
+ if (r == p)\r
+ goto bad;\r
+\r
+ if (rom_crc == 0)\r
+ rom_crc = rom_crc32();\r
+ if (crc == rom_crc)\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, "prot") == 0)\r
+ carthw_sprot_startup();\r
+ else if (strcmp(p, "ssf2_mapper") == 0)\r
+ carthw_ssf2_startup();\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 if (strcmp(p, "piersolar_mapper") == 0)\r
+ carthw_pier_startup();\r
+ else if (strcmp(p, "prot_lk3") == 0)\r
+ carthw_prot_lk3_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 if (strcmp(p, "force_6btn") == 0)\r
+ PicoQuirks |= PQUIRK_FORCE_6BTN;\r
+ else {\r
+ elprintf(EL_STATUS, "carthw:%d: unsupported prop: %s", line, p);\r
+ goto bad_nomsg;\r
+ }\r
+ elprintf(EL_STATUS, "game prop: %s", p);\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
+ if (!parse_3_vals(p, &scl, &sda_in, &sda_out))\r
+ goto bad;\r
+ if (scl < 0 || scl > 15 || sda_in < 0 || sda_in > 15 ||\r
+ 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
+ else if ((tmp = is_expr("prot_ro_value16", &p)) || is_expr("prot_rw_value16", &p)) {\r
+ int addr, mask, val;\r
+ if (!any_checks_passed)\r
+ goto no_checks;\r
+ rstrip(p);\r
+\r
+ if (!parse_3_vals(p, &addr, &mask, &val))\r
+ goto bad;\r
+\r
+ carthw_sprot_new_location(addr, mask, val, tmp ? 1 : 0);\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
+\r
+ if (f != NULL)\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
+static void PicoCartDetect(const char *carthw_cfg)\r
{\r
- int sram_size = 0, csum;\r
- Pico.m.sram_reg = 0;\r
-\r
- csum = PicoRead32(0x18c) & 0xffff;\r
+ int fill_sram = 0;\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 = PicoRead32(0x1B4) & ~1; // zero address is used for clock by some games\r
- SRam.end = PicoRead32(0x1B8);\r
- sram_size = 0x2000;\r
- Pico.m.sram_reg |= 4;\r
- } else {\r
- // normal SRAM\r
- SRam.start = PicoRead32(0x1B4) & ~0xff;\r
- SRam.end = PicoRead32(0x1B8) | 1;\r
- sram_size = SRam.end - SRam.start + 1;\r
- }\r
- SRam.start &= ~0xff000000;\r
- SRam.end &= ~0xff000000;\r
- Pico.m.sram_reg |= 0x10; // SRAM was 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
+ SRam.flags |= SRF_ENABLED;\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
- }\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_reg = 0x14;\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_reg = 0x14;\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
+ if (carthw_cfg != NULL)\r
+ parse_carthw(carthw_cfg, &fill_sram);\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
+ if (SRam.flags & SRF_ENABLED)\r
{\r
- PicoInitPico();\r
- }\r
+ if (SRam.flags & SRF_EEPROM)\r
+ SRam.size = 0x2000;\r
+ else\r
+ SRam.size = SRam.end - SRam.start + 1;\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
- {\r
- carthw_12in1_startup();\r
- }\r
+ SRam.data = calloc(SRam.size, 1);\r
+ if (SRam.data == NULL)\r
+ SRam.flags &= ~SRF_ENABLED;\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
-\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
+// vim:shiftwidth=2:expandtab\r