X-Git-Url: https://notaz.gp2x.de/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=Pico%2FCart.c;h=52f5cf507f630307fc6c77be46c53a628c44922a;hb=a12b1b29cc7e394128da59614c2efe8f5d182741;hp=d3e77438321a355978b00f9a0c5f168311b2b55e;hpb=bf098bc53228f6b5016cb4a6126f4466bfba4e00;p=picodrive.git

diff --git a/Pico/Cart.c b/Pico/Cart.c
index d3e7743..52f5cf5 100644
--- a/Pico/Cart.c
+++ b/Pico/Cart.c
@@ -1,13 +1,355 @@
 // This is part of Pico Library
 
 // (c) Copyright 2004 Dave, All rights reserved.
-// (c) Copyright 2006 notaz, All rights reserved.
+// (c) Copyright 2006-2007, Grazvydas "notaz" Ignotas
 // Free for non-commercial use.
 
 // For commercial use, separate licencing terms must be obtained.
 
 
 #include "PicoInt.h"
+#include "../zlib/zlib.h"
+#include "../unzip/unzip.h"
+#include "../unzip/unzip_stream.h"
+
+
+static char *rom_exts[] = { "bin", "gen", "smd", "iso" };
+
+void (*PicoCartUnloadHook)(void) = NULL;
+
+void (*PicoCartLoadProgressCB)(int percent) = NULL;
+void (*PicoCDLoadProgressCB)(int percent) = NULL; // handled in Pico/cd/cd_file.c
+
+/* cso struct */
+typedef struct _cso_struct
+{
+  unsigned char in_buff[2*2048];
+  unsigned char out_buff[2048];
+  struct {
+    char          magic[4];
+    unsigned int  unused;
+    unsigned int  total_bytes;
+    unsigned int  total_bytes_high; // ignored here
+    unsigned int  block_size;  // 10h
+    unsigned char ver;
+    unsigned char align;
+    unsigned char reserved[2];
+  } header;
+  unsigned int  fpos_in;  // input file read pointer
+  unsigned int  fpos_out; // pos in virtual decompressed file
+  int block_in_buff;      // block which we have read in in_buff
+  int pad;
+  int index[0];
+}
+cso_struct;
+
+static int uncompress2(void *dest, int destLen, void *source, int sourceLen)
+{
+    z_stream stream;
+    int err;
+
+    stream.next_in = (Bytef*)source;
+    stream.avail_in = (uInt)sourceLen;
+    stream.next_out = dest;
+    stream.avail_out = (uInt)destLen;
+
+    stream.zalloc = NULL;
+    stream.zfree = NULL;
+
+    err = inflateInit2(&stream, -15);
+    if (err != Z_OK) return err;
+
+    err = inflate(&stream, Z_FINISH);
+    if (err != Z_STREAM_END) {
+        inflateEnd(&stream);
+        return err;
+    }
+    //*destLen = stream.total_out;
+
+    return inflateEnd(&stream);
+}
+
+pm_file *pm_open(const char *path)
+{
+  pm_file *file = NULL;
+  const char *ext;
+  FILE *f;
+
+  if (path == NULL) return NULL;
+
+  if (strlen(path) < 5) ext = NULL; // no ext
+  else ext = path + strlen(path) - 3;
+
+  if (ext && strcasecmp(ext, "zip") == 0)
+  {
+    struct zipent *zipentry;
+    gzFile gzf = NULL;
+    ZIP *zipfile;
+    int i;
+
+    zipfile = openzip(path);
+
+    if (zipfile != NULL)
+    {
+      /* search for suitable file (right extension or large enough file) */
+      while ((zipentry = readzip(zipfile)) != NULL)
+      {
+        if (zipentry->uncompressed_size >= 128*1024) goto found_rom_zip;
+        if (strlen(zipentry->name) < 5) continue;
+
+        ext = zipentry->name+strlen(zipentry->name)-3;
+        for (i = 0; i < sizeof(rom_exts)/sizeof(rom_exts[0]); i++)
+          if (strcasecmp(ext, rom_exts[i]) == 0) goto found_rom_zip;
+      }
+
+      /* zipfile given, but nothing found suitable for us inside */
+      goto zip_failed;
+
+found_rom_zip:
+      /* try to convert to gzip stream, so we could use standard gzio functions from zlib */
+      gzf = zip2gz(zipfile, zipentry);
+      if (gzf == NULL)  goto zip_failed;
+
+      file = malloc(sizeof(*file));
+      if (file == NULL) goto zip_failed;
+      file->file  = zipfile;
+      file->param = gzf;
+      file->size  = zipentry->uncompressed_size;
+      file->type  = PMT_ZIP;
+      return file;
+
+zip_failed:
+      if (gzf) {
+        gzclose(gzf);
+        zipfile->fp = NULL; // gzclose() closed it
+      }
+      closezip(zipfile);
+      return NULL;
+    }
+  }
+  else if (ext && strcasecmp(ext, "cso") == 0)
+  {
+    cso_struct *cso = NULL, *tmp = NULL;
+    int size;
+    f = fopen(path, "rb");
+    if (f == NULL)
+      goto cso_failed;
+
+    cso = malloc(sizeof(*cso));
+    if (cso == NULL)
+      goto cso_failed;
+
+    if (fread(&cso->header, 1, sizeof(cso->header), f) != sizeof(cso->header))
+      goto cso_failed;
+
+    if (strncmp(cso->header.magic, "CISO", 4) != 0) {
+      elprintf(EL_STATUS, "cso: bad header");
+      goto cso_failed;
+    }
+
+    if (cso->header.block_size != 2048) {
+      elprintf(EL_STATUS, "cso: bad block size (%u)", cso->header.block_size);
+      goto cso_failed;
+    }
+
+    size = ((cso->header.total_bytes >> 11) + 1)*4 + sizeof(*cso);
+    tmp = realloc(cso, size);
+    if (tmp == NULL)
+      goto cso_failed;
+    cso = tmp;
+    elprintf(EL_STATUS, "allocated %i bytes for CSO struct", size);
+
+    size -= sizeof(*cso); // index size
+    if (fread(cso->index, 1, size, f) != size) {
+      elprintf(EL_STATUS, "cso: premature EOF");
+      goto cso_failed;
+    }
+
+    // all ok
+    cso->fpos_in = ftell(f);
+    cso->fpos_out = 0;
+    cso->block_in_buff = -1;
+    file = malloc(sizeof(*file));
+    if (file == NULL) goto cso_failed;
+    file->file  = f;
+    file->param = cso;
+    file->size  = cso->header.total_bytes;
+    file->type  = PMT_CSO;
+    return file;
+
+cso_failed:
+    if (cso != NULL) free(cso);
+    if (f != NULL) fclose(f);
+    return NULL;
+  }
+
+  /* not a zip, treat as uncompressed file */
+  f = fopen(path, "rb");
+  if (f == NULL) return NULL;
+
+  /* we use our own buffering */
+  setvbuf(f, NULL, _IONBF, 0);
+
+  file = malloc(sizeof(*file));
+  if (file == NULL) {
+    fclose(f);
+    return NULL;
+  }
+  fseek(f, 0, SEEK_END);
+  file->file  = f;
+  file->param = NULL;
+  file->size  = ftell(f);
+  file->type  = PMT_UNCOMPRESSED;
+  fseek(f, 0, SEEK_SET);
+  return file;
+}
+
+size_t pm_read(void *ptr, size_t bytes, pm_file *stream)
+{
+  int ret;
+
+  if (stream->type == PMT_UNCOMPRESSED)
+  {
+    ret = fread(ptr, 1, bytes, stream->file);
+  }
+  else if (stream->type == PMT_ZIP)
+  {
+    gzFile gf = stream->param;
+    int err;
+    ret = gzread(gf, ptr, bytes);
+    err = gzerror2(gf);
+    if (ret > 0 && (err == Z_DATA_ERROR || err == Z_STREAM_END))
+      /* we must reset stream pointer or else next seek/read fails */
+      gzrewind(gf);
+  }
+  else if (stream->type == PMT_CSO)
+  {
+    cso_struct *cso = stream->param;
+    int read_pos, read_len, out_offs, rret;
+    int block = cso->fpos_out >> 11;
+    int index = cso->index[block];
+    int index_end = cso->index[block+1];
+    unsigned char *out = ptr, *tmp_dst;
+
+    ret = 0;
+    while (bytes != 0)
+    {
+      out_offs = cso->fpos_out&0x7ff;
+      if (out_offs == 0 && bytes >= 2048)
+           tmp_dst = out;
+      else tmp_dst = cso->out_buff;
+
+      read_pos = (index&0x7fffffff) << cso->header.align;
+
+      if (index < 0) {
+        if (read_pos != cso->fpos_in)
+          fseek(stream->file, read_pos, SEEK_SET);
+        rret = fread(tmp_dst, 1, 2048, stream->file);
+        cso->fpos_in = read_pos + rret;
+        if (rret != 2048) break;
+      } else {
+        read_len = (((index_end&0x7fffffff) << cso->header.align) - read_pos) & 0xfff;
+        if (block != cso->block_in_buff)
+        {
+          if (read_pos != cso->fpos_in)
+            fseek(stream->file, read_pos, SEEK_SET);
+          rret = fread(cso->in_buff, 1, read_len, stream->file);
+          cso->fpos_in = read_pos + rret;
+          if (rret != read_len) {
+            elprintf(EL_STATUS, "cso: read failed @ %08x", read_pos);
+            break;
+          }
+          cso->block_in_buff = block;
+        }
+        rret = uncompress2(tmp_dst, 2048, cso->in_buff, read_len);
+        if (rret != 0) {
+          elprintf(EL_STATUS, "cso: uncompress failed @ %08x with %i", read_pos, rret);
+          break;
+        }
+      }
+
+      rret = 2048;
+      if (out_offs != 0 || bytes < 2048) {
+        //elprintf(EL_STATUS, "cso: unaligned/nonfull @ %08x, offs=%i, len=%u", cso->fpos_out, out_offs, bytes);
+        if (bytes < rret) rret = bytes;
+        if (2048 - out_offs < rret) rret = 2048 - out_offs;
+        memcpy(out, tmp_dst + out_offs, rret);
+      }
+      ret += rret;
+      out += rret;
+      cso->fpos_out += rret;
+      bytes -= rret;
+      block++;
+      index = index_end;
+      index_end = cso->index[block+1];
+    }
+  }
+  else
+    ret = 0;
+
+  return ret;
+}
+
+int pm_seek(pm_file *stream, long offset, int whence)
+{
+  if (stream->type == PMT_UNCOMPRESSED)
+  {
+    fseek(stream->file, offset, whence);
+    return ftell(stream->file);
+  }
+  else if (stream->type == PMT_ZIP)
+  {
+    if (PicoMessage != NULL && offset > 6*1024*1024) {
+      long pos = gztell((gzFile) stream->param);
+      if (offset < pos || offset - pos > 6*1024*1024)
+        PicoMessage("Decompressing data...");
+    }
+    return gzseek((gzFile) stream->param, offset, whence);
+  }
+  else if (stream->type == PMT_CSO)
+  {
+    cso_struct *cso = stream->param;
+    switch (whence)
+    {
+      case SEEK_CUR: cso->fpos_out += offset; break;
+      case SEEK_SET: cso->fpos_out  = offset; break;
+      case SEEK_END: cso->fpos_out  = cso->header.total_bytes - offset; break;
+    }
+    return cso->fpos_out;
+  }
+  else
+    return -1;
+}
+
+int pm_close(pm_file *fp)
+{
+  int ret = 0;
+
+  if (fp == NULL) return EOF;
+
+  if (fp->type == PMT_UNCOMPRESSED)
+  {
+    fclose(fp->file);
+  }
+  else if (fp->type == PMT_ZIP)
+  {
+    ZIP *zipfile = fp->file;
+    gzclose((gzFile) fp->param);
+    zipfile->fp = NULL; // gzclose() closed it
+    closezip(zipfile);
+  }
+  else if (fp->type == PMT_CSO)
+  {
+    free(fp->param);
+    fclose(fp->file);
+  }
+  else
+    ret = EOF;
+
+  free(fp);
+  return ret;
+}
+
 
 void Byteswap(unsigned char *data,int len)
 {
@@ -60,7 +402,6 @@ static int DecodeSmd(unsigned char *data,int len)
 static unsigned char *cd_realloc(void *old, int filesize)
 {
   unsigned char *rom;
-  dprintf("sizeof(mcd_state): %i", sizeof(mcd_state));
   rom=realloc(old, sizeof(mcd_state));
   if (rom) memset(rom+0x20000, 0, sizeof(mcd_state)-0x20000);
   return rom;
@@ -78,7 +419,6 @@ static unsigned char *PicoCartAlloc(int filesize)
   alloc_size&=~0x7ffff; // use alloc size of multiples of 512K, so that memhandlers could be set up more efficiently
   if((filesize&0x3fff)==0x200) alloc_size+=0x200;
   else if(alloc_size-filesize < 4) alloc_size+=4; // padding for out-of-bound exec protection
-  //dprintf("alloc_size: %x\n",  alloc_size);
 
   // Allocate space for the rom plus padding
   rom=(unsigned char *)malloc(alloc_size);
@@ -86,20 +426,46 @@ static unsigned char *PicoCartAlloc(int filesize)
   return rom;
 }
 
-int PicoCartLoad(FILE *f,unsigned char **prom,unsigned int *psize)
+int PicoCartLoad(pm_file *f,unsigned char **prom,unsigned int *psize)
 {
-  unsigned char *rom=NULL; int size;
+  unsigned char *rom=NULL; int size, bytes_read;
   if (f==NULL) return 1;
 
-  fseek(f,0,SEEK_END); size=ftell(f); fseek(f,0,SEEK_SET);
+  size=f->size;
   if (size <= 0) return 1;
   size=(size+3)&~3; // Round up to a multiple of 4
 
   // Allocate space for the rom plus padding
   rom=PicoCartAlloc(size);
-  if (rom==NULL) return 1; // { fclose(f); return 1; }
+  if (rom==NULL) {
+    elprintf(EL_STATUS, "out of memory (wanted %i)", size);
+    return 1;
+  }
 
-  fread(rom,1,size,f); // Load up the rom
+  if (PicoCartLoadProgressCB != NULL)
+  {
+    // read ROM in blocks, just for fun
+    int ret;
+    unsigned char *p = rom;
+    bytes_read=0;
+    do
+    {
+      int todo = size - bytes_read;
+      if (todo > 256*1024) todo = 256*1024;
+      ret = pm_read(p,todo,f);
+      bytes_read += ret;
+      p += ret;
+      PicoCartLoadProgressCB(bytes_read * 100 / size);
+    }
+    while (ret > 0);
+  }
+  else
+    bytes_read = pm_read(rom,size,f); // Load up the rom
+  if (bytes_read <= 0) {
+    elprintf(EL_STATUS, "read failed");
+    free(rom);
+    return 1;
+  }
 
   // maybe we are loading MegaCD BIOS?
   if (!(PicoMCD&1) && size == 0x20000 && (!strncmp((char *)rom+0x124, "BOOT", 4) || !strncmp((char *)rom+0x128, "BOOT", 4))) {
@@ -117,7 +483,7 @@ int PicoCartLoad(FILE *f,unsigned char **prom,unsigned int *psize)
   return 0;
 }
 
-// Insert/remove a cartridge:
+// Insert a cartridge:
 int PicoCartInsert(unsigned char *rom,unsigned int romsize)
 {
   // notaz: add a 68k "jump one op back" opcode to the end of ROM.
@@ -126,82 +492,192 @@ int PicoCartInsert(unsigned char *rom,unsigned int romsize)
   if(rom != NULL)
     *(unsigned long *)(rom+romsize) = 0xFFFE4EFA; // 4EFA FFFE byteswapped
 
-  SRam.resize=1;
   Pico.rom=rom;
   Pico.romsize=romsize;
 
+  if (PicoCartUnloadHook != NULL) {
+    PicoCartUnloadHook();
+    PicoCartUnloadHook = NULL;
+  }
+
+  PicoMemResetHooks();
+  PicoDmaHook = NULL;
+  PicoResetHook = NULL;
+  PicoLineHook = NULL;
+  carthw_chunks = NULL;
+
+  PicoMemReset();
+
+  if (!(PicoMCD & 1))
+    PicoCartDetect();
+
+  // setup correct memory map for loaded ROM
+  // call PicoMemReset again due to possible memmap change
+  if (PicoMCD & 1)
+       PicoMemSetupCD();
+  else PicoMemSetup();
+  PicoMemReset();
+
   return PicoReset(1);
 }
 
-int PicoUnloadCart(unsigned char* romdata)
+int PicoCartUnload(void)
 {
-  free(romdata);
+  if (Pico.rom != NULL) {
+    free(Pico.rom);
+    Pico.rom=NULL;
+  }
   return 0;
 }
 
-
-#ifdef _UNZIP_SUPPORT
-
-// notaz
-#include "../unzip/unzip.h"
-
-// nearly same as PicoCartLoad, but works with zipfiles
-int CartLoadZip(const char *fname, unsigned char **prom, unsigned int *psize)
+static int rom_strcmp(int rom_offset, const char *s1)
 {
-	unsigned char *rom=0;
-	struct zipent* zipentry;
-	int size;
-	ZIP *zipfile = openzip(fname);
-
-	if(!zipfile) return 1;
-
-	// find first bin or smd
-	while((zipentry = readzip(zipfile)) != 0)
-	{
-		char *ext;
-		if(strlen(zipentry->name) < 5) continue;
-		ext = zipentry->name+strlen(zipentry->name)-4;
-
-		if(!strcasecmp(ext, ".bin") || !strcasecmp(ext, ".smd") || !strcasecmp(ext, ".gen")) break;
-	}
+  int i, len = strlen(s1);
+  const char *s_rom = (const char *)Pico.rom + rom_offset;
+  for (i = 0; i < len; i++)
+    if (s1[i] != s_rom[i^1])
+      return 1;
+  return 0;
+}
 
-	if(!zipentry) {
-		closezip(zipfile);
-		return 4; // no roms
-	}
+static int name_cmp(const char *name)
+{
+  return rom_strcmp(0x150, name);
+}
 
-	size = zipentry->uncompressed_size;
+/*
+ * various cart-specific things, which can't be handled by generic code
+ * (maybe I should start using CRC for this stuff?)
+ */
+void PicoCartDetect(void)
+{
+  int sram_size = 0, csum;
+  if(SRam.data) free(SRam.data); SRam.data=0;
+  Pico.m.sram_reg = 0;
 
-	size=(size+3)&~3; // Round up to a multiple of 4
+  csum = PicoRead32(0x18c) & 0xffff;
 
-	// Allocate space for the rom plus padding
-	rom=PicoCartAlloc(size);
-	if (rom==NULL) { closezip(zipfile); return 2; }
+  if (Pico.rom[0x1B1] == 'R' && Pico.rom[0x1B0] == 'A')
+  {
+    if (Pico.rom[0x1B2] & 0x40)
+    {
+      // EEPROM
+      SRam.start = PicoRead32(0x1B4) & ~1; // zero address is used for clock by some games
+      SRam.end   = PicoRead32(0x1B8);
+      sram_size  = 0x2000;
+      Pico.m.sram_reg |= 4;
+    } else {
+      // normal SRAM
+      SRam.start = PicoRead32(0x1B4) & ~0xff;
+      SRam.end   = PicoRead32(0x1B8) | 1;
+      sram_size  = SRam.end - SRam.start + 1;
+    }
+    SRam.start &= ~0xff000000;
+    SRam.end   &= ~0xff000000;
+    Pico.m.sram_reg |= 0x10; // SRAM was detected
+  }
+  if (sram_size <= 0)
+  {
+    // some games may have bad headers, like S&K and Sonic3
+    // note: majority games use 0x200000 as starting address, but there are some which
+    // use something else (0x300000 by HardBall '95). Luckily they have good headers.
+    SRam.start = 0x200000;
+    SRam.end   = 0x203FFF;
+    sram_size  = 0x004000;
+  }
 
-	if(readuncompresszip(zipfile, zipentry, (char *)rom) != 0) {
-		free(rom);
-		rom = 0;
-		closezip(zipfile);
-		return 5; // unzip failed
-	}
+  if (sram_size)
+  {
+    SRam.data = (unsigned char *) calloc(sram_size, 1);
+    if(!SRam.data) return;
+  }
+  SRam.changed = 0;
+
+  // set EEPROM defaults, in case it gets detected
+  SRam.eeprom_type   = 0; // 7bit (24C01)
+  SRam.eeprom_abits  = 3; // eeprom access must be odd addr for: bit0 ~ cl, bit1 ~ in
+  SRam.eeprom_bit_cl = 1;
+  SRam.eeprom_bit_in = 0;
+  SRam.eeprom_bit_out= 0;
+
+  // some known EEPROM data (thanks to EkeEke)
+  if (name_cmp("COLLEGE SLAM") == 0 ||
+      name_cmp("FRANK THOMAS BIGHURT BASEBAL") == 0)
+  {
+    SRam.eeprom_type = 3;
+    SRam.eeprom_abits = 2;
+    SRam.eeprom_bit_cl = 0;
+  }
+  else if (name_cmp("NBA JAM TOURNAMENT EDITION") == 0 ||
+           name_cmp("NFL QUARTERBACK CLUB") == 0)
+  {
+    SRam.eeprom_type = 2;
+    SRam.eeprom_abits = 2;
+    SRam.eeprom_bit_cl = 0;
+  }
+  else if (name_cmp("NBA JAM") == 0)
+  {
+    SRam.eeprom_type = 2;
+    SRam.eeprom_bit_out = 1;
+    SRam.eeprom_abits = 0;
+  }
+  else if (name_cmp("NHLPA HOCKEY '93") == 0 ||
+           name_cmp("NHLPA Hockey '93") == 0 ||
+           name_cmp("RINGS OF POWER") == 0)
+  {
+    SRam.start = SRam.end = 0x200000;
+    Pico.m.sram_reg = 0x14;
+    SRam.eeprom_abits = 0;
+    SRam.eeprom_bit_cl = 6;
+    SRam.eeprom_bit_in = 7;
+    SRam.eeprom_bit_out= 7;
+  }
+  else if ( name_cmp("MICRO MACHINES II") == 0 ||
+           (name_cmp("        ") == 0 && // Micro Machines {Turbo Tournament '96, Military - It's a Blast!}
+           (csum == 0x165e || csum == 0x168b || csum == 0xCEE0 || csum == 0x2C41)))
+  {
+    SRam.start = 0x300000;
+    SRam.end   = 0x380001;
+    Pico.m.sram_reg = 0x14;
+    SRam.eeprom_type = 2;
+    SRam.eeprom_abits = 0;
+    SRam.eeprom_bit_cl = 1;
+    SRam.eeprom_bit_in = 0;
+    SRam.eeprom_bit_out= 7;
+  }
 
-	closezip(zipfile);
+  // SVP detection
+  else if (name_cmp("Virtua Racing") == 0 ||
+           name_cmp("VIRTUA RACING") == 0)
+  {
+    PicoSVPStartup();
+  }
 
-        // maybe we are loading MegaCD BIOS?
-        if (!(PicoMCD&1) && size == 0x20000 &&
-			(!strncmp((char *)rom+0x124, "BOOT", 4) || !strncmp((char *)rom+0x128, "BOOT", 4))) {
-		PicoMCD |= 1;
-		rom = cd_realloc(rom, size);
-        }
+  // Detect 12-in-1 mapper
+  else if ((name_cmp("ROBOCOP 3") && Pico.romsize == 0x200000) ||
+    (rom_strcmp(0x160, "FLICKY") && Pico.romsize >= 0x200000))
+  {
+    carthw_12in1_startup();
+  }
 
-	// Check for SMD:
-	if ((size&0x3fff)==0x200) { DecodeSmd(rom,size); size-=0x200; } // Decode and byteswap SMD
-	else Byteswap(rom,size); // Just byteswap
+  // Realtec mapper
+  else if (Pico.romsize == 512*1024 && (
+    rom_strcmp(0x94, "THE EARTH DEFEND") ||
+    rom_strcmp(0xfe, "WISEGAME 11-03-1993") || // Funny World
+    rom_strcmp(0x95, "MALLET LEGEND "))) // Whac-A-Critter
+  {
+    carthw_realtec_startup();
+  }
 
-	if (prom)  *prom=rom;
-	if (psize) *psize=size;
+  // Some games malfunction if SRAM is not filled with 0xff
+  if (name_cmp("DINO DINI'S SOCCER") == 0 ||
+      name_cmp("MICRO MACHINES II") == 0)
+  {
+    memset(SRam.data, 0xff, sram_size);
+  }
 
-	return 0;
+  // Unusual region 'code'
+  if (rom_strcmp(0x1f0, "EUROPE") == 0)
+    *(int *) (Pico.rom+0x1f0) = 0x20204520;
 }
 
-#endif