mirror of
https://github.com/libretro/RACE.git
synced 2024-11-23 17:09:53 +00:00
391 lines
8.3 KiB
C
391 lines
8.3 KiB
C
//---------------------------------------------------------------------------
|
|
// 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
|
|
// the Free Software Foundation; either version 2 of the License, or
|
|
// (at your option) any later version. See also the license.txt file for
|
|
// additional informations.
|
|
//---------------------------------------------------------------------------
|
|
|
|
//
|
|
// This is the main program entry point
|
|
//
|
|
|
|
#include "unzip.h"
|
|
|
|
#include "types.h"
|
|
#include "main.h"
|
|
|
|
|
|
#include "flash.h"
|
|
#include "race-memory.h"
|
|
#include "tlcs900h.h"
|
|
#include "input.h"
|
|
|
|
#include "graphics.h"
|
|
#include "tlcs900h.h"
|
|
|
|
#include "neopopsound.h"
|
|
|
|
#ifdef DRZ80
|
|
#include "DrZ80_support.h"
|
|
#else
|
|
#if defined(CZ80)
|
|
#include "cz80_support.h"
|
|
#else
|
|
#include "z80.h"
|
|
#endif
|
|
#endif
|
|
|
|
extern int finscan;
|
|
extern int language;
|
|
extern int tipo_consola;
|
|
|
|
int m_bIsActive;
|
|
EMUINFO m_emuInfo;
|
|
SYSTEMINFO m_sysInfo[NR_OF_SYSTEMS];
|
|
|
|
#define ARRAY_SIZE(a) (sizeof(a)/sizeof(*(a)))
|
|
|
|
void mainemuinit(void)
|
|
{
|
|
// initialize cpu memory
|
|
mem_init();
|
|
graphics_init();
|
|
|
|
// initialize the TLCS-900H cpu
|
|
tlcs_init();
|
|
|
|
#if defined(CZ80)
|
|
Z80_Init();
|
|
#endif
|
|
#if defined(DRZ80) || defined(CZ80)
|
|
Z80_Reset();
|
|
#else
|
|
z80Init();
|
|
#endif
|
|
|
|
// if neogeo pocket color rom, act if we are a neogeo pocket color
|
|
tlcsMemWriteB(0x6F91,tlcsMemReadB(0x00200023));
|
|
if (tipo_consola==1)
|
|
tlcsMemWriteB(0x6F91,0x00);
|
|
|
|
// pretend we're running in English mode
|
|
|
|
//NOTA setting_ngp_language 00 Ingles - 01 Jap
|
|
if (setting_ngp_language == 0)
|
|
{
|
|
tlcsMemWriteB(0x00006F87,0x01);
|
|
}
|
|
if (setting_ngp_language == 1)
|
|
{
|
|
tlcsMemWriteB(0x00006F87,0x00);
|
|
}
|
|
|
|
// kludges & fixes
|
|
switch (tlcsMemReadW(0x00200020))
|
|
{
|
|
case 0x0059: // Sonic
|
|
case 0x0061: // Metal Slug 2nd
|
|
*get_address(0x0020001F) = 0xFF;
|
|
break;
|
|
}
|
|
ngpSoundOff();
|
|
}
|
|
|
|
static void SetActive(BOOL bActive)
|
|
{
|
|
m_bIsActive = bActive;
|
|
}
|
|
|
|
static void SetEmu(int machine)
|
|
{
|
|
m_emuInfo.machine = machine;
|
|
m_emuInfo.drv = &m_sysInfo[machine];
|
|
}
|
|
|
|
static int initRom(void)
|
|
{
|
|
int i, m;
|
|
char *licenseInfo = " BY SNK CORPORATION";
|
|
char *ggLicenseInfo = "TMR SEGA";
|
|
BOOL romFound = TRUE;
|
|
|
|
finscan=198;
|
|
|
|
if (mainrom[0x000020] == 0x65 || mainrom[0x000020] == 0x93)
|
|
finscan=199;
|
|
|
|
#if 0
|
|
dbg_print("in openNgp(%s)\n", lpszPathName);
|
|
#endif
|
|
|
|
// first stop the current emulation
|
|
#if 0
|
|
dbg_print("openNgp: SetEmu(NONE)\n");
|
|
#endif
|
|
SetEmu(NGPC);
|
|
#if 0
|
|
dbg_print("openNgp: SetActive(FALSE)\n");
|
|
#endif
|
|
SetActive(FALSE);
|
|
|
|
// check NEOGEO POCKET
|
|
// check license info
|
|
for (i=0;i<19;i++)
|
|
{
|
|
if (mainrom[0x000009 + i] != licenseInfo[i])
|
|
romFound = FALSE;
|
|
}
|
|
if (romFound)
|
|
{
|
|
//dbg_print("openNgp: romFound == TRUE\n");
|
|
i = mainrom[0x000023];
|
|
if (i == 0x10 || i == 0x00)
|
|
{
|
|
/* initialize emulation */
|
|
if (i == 0x10)
|
|
m = NGPC;
|
|
else
|
|
{
|
|
// fix for missing Mono/Color setting in Cool Coom Jam SAMPLE rom
|
|
if (mainrom[0x000020] == 0x34 && mainrom[0x000021] == 0x12)
|
|
m = NGPC;
|
|
else
|
|
m = NGP;
|
|
}
|
|
if (tipo_consola==1)
|
|
m = NGP;
|
|
|
|
//dbg_print("openNgp: SetEmu(%d)\n", m);
|
|
SetEmu(m);
|
|
|
|
//dbg_print("openNgp: Calling mainemuinit(%s)\n", lpszPathName);
|
|
mainemuinit();
|
|
// start running the emulation loop
|
|
//dbg_print("openNgp: SetActive(TRUE)\n");
|
|
SetActive(TRUE);
|
|
|
|
// acknowledge opening of the document went fine
|
|
//dbg_print("openNgp: returning success\n");
|
|
return TRUE;
|
|
}
|
|
|
|
fprintf(stderr, "Not a valid or unsupported rom file.\n");
|
|
return FALSE;
|
|
}
|
|
|
|
fprintf(stderr, "Not a valid or unsupported rom file. romFound==FALSE\n");
|
|
return FALSE;
|
|
}
|
|
|
|
static void initSysInfo(void)
|
|
{
|
|
m_bIsActive = FALSE;
|
|
|
|
m_emuInfo.machine = NGPC;
|
|
m_emuInfo.drv = &m_sysInfo[m_emuInfo.machine];
|
|
m_emuInfo.romSize = 0;
|
|
|
|
strcpy(m_emuInfo.RomFileName, "");
|
|
|
|
m_sysInfo[NGP].hSize = 160;
|
|
m_sysInfo[NGP].vSize = 152;
|
|
m_sysInfo[NGP].Ticks = 6*1024*1024;
|
|
|
|
m_sysInfo[NGPC].hSize = 160;
|
|
m_sysInfo[NGPC].vSize = 152;
|
|
m_sysInfo[NGPC].Ticks = 6*1024*1024;
|
|
}
|
|
|
|
static char *getFileNameExtension(char *nom_fichier)
|
|
{
|
|
char *ptrPoint = nom_fichier;
|
|
while(*nom_fichier)
|
|
{
|
|
if (*nom_fichier == '.')
|
|
ptrPoint = nom_fichier;
|
|
nom_fichier++;
|
|
}
|
|
return ptrPoint;
|
|
}
|
|
|
|
#ifdef WANT_ZIP
|
|
static int loadFromZipByName(unsigned char *buffer, char *archive,
|
|
char *filename, int *filesize)
|
|
{
|
|
char name[_MAX_PATH];
|
|
int i;
|
|
const char *recognizedExtensions[] = {
|
|
".ngp",
|
|
".npc",
|
|
".ngc"
|
|
};
|
|
|
|
int zerror = UNZ_OK;
|
|
unzFile zhandle;
|
|
unz_file_info zinfo;
|
|
|
|
zhandle = unzOpen(archive);
|
|
if(!zhandle) return (0);
|
|
|
|
/* Seek to first file in archive */
|
|
zerror = unzGoToFirstFile(zhandle);
|
|
if(zerror != UNZ_OK)
|
|
{
|
|
unzClose(zhandle);
|
|
return (0);
|
|
}
|
|
|
|
//On scanne tous les fichiers de l'archive et ne prend que ceux qui ont une extension valable, sinon on prend le dernier fichier trouvé...
|
|
while (zerror == UNZ_OK) {
|
|
if (unzGetCurrentFileInfo(zhandle, &zinfo, name, 0xff, NULL, 0, NULL, 0) != UNZ_OK) {
|
|
unzClose(zhandle);
|
|
return 0;
|
|
}
|
|
|
|
//Vérifions que c'est la bonne extension
|
|
char *extension = getFileNameExtension(name);
|
|
|
|
for (i=0;i < ARRAY_SIZE(recognizedExtensions);i++)
|
|
{
|
|
if (!strcmp(extension, recognizedExtensions[i]))
|
|
break;
|
|
}
|
|
if (i < ARRAY_SIZE(recognizedExtensions))
|
|
break;
|
|
|
|
zerror = unzGoToNextFile(zhandle);
|
|
}
|
|
|
|
/* Get information about the file */
|
|
// unzGetCurrentFileInfo(zhandle, &zinfo, &name[0], 0xff, NULL, 0, NULL, 0);
|
|
*filesize = zinfo.uncompressed_size;
|
|
|
|
/* Error: file size is zero */
|
|
if(*filesize <= 0 || *filesize > (4*1024*1024))
|
|
{
|
|
unzClose(zhandle);
|
|
return (0);
|
|
}
|
|
|
|
/* Open current file */
|
|
zerror = unzOpenCurrentFile(zhandle);
|
|
if(zerror != UNZ_OK)
|
|
{
|
|
unzClose(zhandle);
|
|
return (0);
|
|
}
|
|
|
|
/* Allocate buffer and read in file */
|
|
//buffer = malloc(*filesize);
|
|
//if(!buffer) return (NULL);
|
|
zerror = unzReadCurrentFile(zhandle, buffer, *filesize);
|
|
|
|
/* Internal error: free buffer and close file */
|
|
if(zerror < 0 || zerror != *filesize)
|
|
{
|
|
//free(buffer);
|
|
//buffer = NULL;
|
|
unzCloseCurrentFile(zhandle);
|
|
unzClose(zhandle);
|
|
return (0);
|
|
}
|
|
|
|
/* Close current file and archive file */
|
|
unzCloseCurrentFile(zhandle);
|
|
unzClose(zhandle);
|
|
|
|
memcpy(filename, name, _MAX_PATH);
|
|
return 1;
|
|
}
|
|
#endif // WANT_ZIP
|
|
|
|
/*
|
|
Verifies if a file is a ZIP archive or not.
|
|
Returns: 1= ZIP archive, 0= not a ZIP archive
|
|
*/
|
|
static int check_zip(char *filename)
|
|
{
|
|
unsigned char buf[2];
|
|
FILE *fd = fopen(filename, "rb");
|
|
if(!fd)
|
|
return (0);
|
|
fread(buf, 2, 1, fd);
|
|
fclose(fd);
|
|
if(memcmp(buf, "PK", 2) == 0)
|
|
return (1);
|
|
return (0);
|
|
}
|
|
|
|
static int strrchr2(const char *src, int c)
|
|
{
|
|
size_t len=strlen(src);
|
|
|
|
while(len>0)
|
|
{
|
|
len--;
|
|
if(*(src+len) == c)
|
|
return len;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
int handleInputFile(char *romName)
|
|
{
|
|
FILE *romFile;
|
|
int iDepth = 0;
|
|
int size;
|
|
|
|
initSysInfo(); //initialize it all
|
|
|
|
//if it's a ZIP file, we need to handle that here.
|
|
iDepth = strrchr2(romName, '.');
|
|
iDepth++;
|
|
|
|
#ifdef WANT_ZIP
|
|
if( ( strcmp( romName + iDepth, "zip" ) == 0 ) || ( strcmp( romName + iDepth, "ZIP" ) == 0 ))
|
|
{
|
|
//get ROM from ZIP
|
|
if(check_zip(romName))
|
|
{
|
|
char name[_MAX_PATH];
|
|
if(!loadFromZipByName(mainrom, romName, name, &size))
|
|
{
|
|
fprintf(stderr, "Load failed from %s\n", romName);
|
|
return 0;
|
|
}
|
|
m_emuInfo.romSize = size;
|
|
strcpy(m_emuInfo.RomFileName, romName);
|
|
}
|
|
else
|
|
{
|
|
fprintf(stderr, "%s not PKZIP file\n", romName);
|
|
return 0;
|
|
}
|
|
}
|
|
else
|
|
#endif // WANT_ZIP
|
|
{
|
|
//get ROM from binary ROM file
|
|
romFile = fopen(romName, "rb");
|
|
if(!romFile)
|
|
{
|
|
fprintf(stderr, "Couldn't open %s file\n", romName);
|
|
return 0;
|
|
}
|
|
|
|
m_emuInfo.romSize = fread(mainrom, 1, 4*1024*1024, romFile);
|
|
strcpy(m_emuInfo.RomFileName, romName);
|
|
}
|
|
|
|
if(!initRom())
|
|
{
|
|
fprintf(stderr, "initRom couldn't handle %s file\n", romName);
|
|
return 0;
|
|
}
|
|
|
|
setFlashSize(m_emuInfo.romSize);
|
|
return 1;
|
|
}
|