-// 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 int rom_alloc_size;\r
static const char *rom_exts[] = { "bin", "gen", "smd", "iso", "sms", "gg", "sg" };\r
\r
void (*PicoCartUnloadHook)(void);\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
}\r
cso_struct;\r
\r
-static int uncompress2(void *dest, int destLen, void *source, int sourceLen)\r
+static int uncompress_buf(void *dest, int destLen, void *source, int sourceLen)\r
{\r
z_stream stream;\r
int err;\r
return NULL;\r
\r
ext = get_ext(path);\r
+#ifndef NO_ZLIB\r
if (strcasecmp(ext, "zip") == 0)\r
{\r
struct zipent *zipentry;\r
return NULL;\r
}\r
}\r
- else if (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
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
}\r
cso->block_in_buff = block;\r
}\r
- rret = uncompress2(tmp_dst, 2048, cso->in_buff, read_len);\r
+ rret = uncompress_buf(tmp_dst, 2048, cso->in_buff, read_len);\r
if (rret != 0) {\r
elprintf(EL_STATUS, "cso: uncompress failed @ %08x with %i", read_pos, rret);\r
break;\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
-static 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
-\r
- if (len<2) return; // Too short\r
+ const unsigned int *ps = src;\r
+ unsigned int *pd = dst;\r
+ int i, m;\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, int is_sms)\r
{\r
- int alloc_size;\r
unsigned char *rom;\r
\r
- if (PicoAHW & PAHW_MCD)\r
- return cd_realloc(NULL, filesize);\r
-\r
if (is_sms) {\r
// make size power of 2 for easier banking handling\r
int s = 0, tmp = filesize;\r
s++;\r
if (filesize > (1 << s))\r
s++;\r
- alloc_size = 1 << 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
- alloc_size = (filesize + 0x7ffff) & ~0x7ffff;\r
+ rom_alloc_size = (filesize + 0x7ffff) & ~0x7ffff;\r
}\r
\r
- if (alloc_size - filesize < 4)\r
- 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 = calloc(alloc_size, 1);\r
+ // use special address for 32x dynarec\r
+ rom = plat_mmap(0x02000000, rom_alloc_size, 0, 0);\r
return rom;\r
}\r
\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
\r
// Check for SMD:\r
elprintf(EL_STATUS, "SMD format detected.");\r
DecodeSmd(rom,size); size-=0x200; // Decode and byteswap SMD\r
}\r
- else Byteswap(rom,size); // Just byteswap\r
+ else Byteswap(rom, rom, size); // Just byteswap\r
}\r
else\r
{\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|PAHW_SMS;\r
\r
carthw_chunks = NULL;\r
\r
if (!(PicoAHW & (PAHW_MCD|PAHW_SMS)))\r
- PicoCartDetect();\r
+ PicoCartDetect(carthw_cfg);\r
\r
// setup correct memory map for loaded ROM\r
switch (PicoAHW) {\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
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
elprintf(EL_STATUS, "caclulating CRC32..");\r
\r
// have to unbyteswap for calculation..\r
- Byteswap(Pico.rom, Pico.romsize);\r
+ Byteswap(Pico.rom, Pico.rom, Pico.romsize);\r
crc = crc32(0, Pico.rom, Pico.romsize);\r
- Byteswap(Pico.rom, Pico.romsize);\r
+ Byteswap(Pico.rom, Pico.rom, Pico.romsize);\r
return crc;\r
}\r
\r
{\r
int i, len = strlen(s1);\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 + rom_offset) ^ 1])\r
return 1;\r
return 1;\r
}\r
\r
-static void parse_carthw(int *fill_sram)\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
- elprintf(EL_STATUS, "couldn't open carthw.txt!");\r
- return;\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
- while ((p = fgets(buff, sizeof(buff), f)))\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
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
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
skip_sect = 1;\r
continue;\r
}\r
- fclose(f);\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
*/\r
-static void PicoCartDetect(void)\r
+static void PicoCartDetect(const char *carthw_cfg)\r
{\r
int fill_sram = 0;\r
\r
SRam.eeprom_bit_in = 0;\r
SRam.eeprom_bit_out= 0;\r
\r
- parse_carthw(&fill_sram);\r
+ if (carthw_cfg != NULL)\r
+ parse_carthw(carthw_cfg, &fill_sram);\r
\r
if (SRam.flags & SRF_ENABLED)\r
{\r
*(int *) (Pico.rom + 0x1f0) = 0x20204520;\r
}\r
\r
+// vim:shiftwidth=2:expandtab\r