mirror of
https://github.com/libretro/libretro-o2em.git
synced 2024-12-04 07:00:54 +00:00
540 lines
14 KiB
C
540 lines
14 KiB
C
#ifndef _MSC_VER
|
|
#include <stdbool.h>
|
|
#include <sched.h>
|
|
#endif
|
|
#include <stddef.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <sys/stat.h>
|
|
|
|
#ifdef _MSC_VER
|
|
#define snprintf _snprintf
|
|
#pragma pack(1)
|
|
#endif
|
|
|
|
#include "libretro.h"
|
|
|
|
#include "audio.h"
|
|
#include "config.h"
|
|
#include "cpu.h"
|
|
#include "crc32.h"
|
|
#include "debug.h"
|
|
#include "keyboard.h"
|
|
#include "score.h"
|
|
#include "vdc.h"
|
|
#include "vmachine.h"
|
|
#include "voice.h"
|
|
#include "vpp.h"
|
|
|
|
#include "wrapalleg.h"
|
|
|
|
static retro_log_printf_t log_cb;
|
|
static retro_video_refresh_t video_cb;
|
|
static retro_input_poll_t input_poll_cb;
|
|
static retro_input_state_t input_state_cb;
|
|
static retro_environment_t environ_cb;
|
|
static retro_audio_sample_t audio_cb;
|
|
static retro_audio_sample_batch_t audio_batch_cb;
|
|
|
|
void retro_set_environment(retro_environment_t cb) { environ_cb = cb; }
|
|
void retro_set_video_refresh(retro_video_refresh_t cb) { video_cb = cb; }
|
|
void retro_set_audio_sample(retro_audio_sample_t cb) { audio_cb = cb; }
|
|
void retro_set_audio_sample_batch(retro_audio_sample_batch_t cb) { audio_batch_cb = cb; }
|
|
void retro_set_input_poll(retro_input_poll_t cb) { input_poll_cb = cb; }
|
|
void retro_set_input_state(retro_input_state_t cb) { input_state_cb = cb; }
|
|
|
|
unsigned short int mbmp[TEX_WIDTH * TEX_HEIGHT];
|
|
uint8_t soundBuffer[1056];
|
|
int SND;
|
|
int RLOOP=0;
|
|
int jbt[5]={0,0,0,0,0};
|
|
|
|
int contax, o2flag, g74flag, c52flag, jopflag, helpflag;
|
|
|
|
unsigned long crcx = ~0;
|
|
|
|
static char bios[MAXC], scshot[MAXC], xrom[MAXC], romdir[MAXC], xbios[MAXC],
|
|
biosdir[MAXC], arkivo[MAXC][MAXC], biossux[MAXC], romssux[MAXC],
|
|
odyssey2[MAXC], g7400[MAXC], c52[MAXC], jopac[MAXC], file_l[MAXC], bios_l[MAXC],
|
|
file_v[MAXC],scorefile[MAXC], statefile[MAXC], path2[MAXC];
|
|
|
|
static int does_file_exist(const char *filename)
|
|
{
|
|
struct stat st;
|
|
int result = stat(filename, &st);
|
|
return result == 0;
|
|
}
|
|
|
|
static long filesize(FILE *stream){
|
|
long curpos, length;
|
|
curpos = ftell(stream);
|
|
fseek(stream, 0L, SEEK_END);
|
|
length = ftell(stream);
|
|
fseek(stream, curpos, SEEK_SET);
|
|
return length;
|
|
}
|
|
|
|
static void load_bios(const char *biosname){
|
|
FILE *fn;
|
|
static char s[MAXC+10];
|
|
unsigned long crc;
|
|
int i;
|
|
|
|
if ((biosname[strlen(biosname)-1]=='/') || (biosname[strlen(biosname)-1]=='\\') || (biosname[strlen(biosname)-1]==':')) {
|
|
strcpy(s,biosname);
|
|
strcat(s,odyssey2);
|
|
fn = fopen(s,"rb");
|
|
|
|
if (!fn) {
|
|
strcpy(s,biosname);
|
|
strcat(s,odyssey2);
|
|
fn = fopen(s,"rb");
|
|
}
|
|
}
|
|
else {
|
|
strcpy(s,biosname);
|
|
fn = fopen(biosname,"rb");
|
|
}
|
|
|
|
if (!fn) {
|
|
fprintf(stderr,"Error loading bios ROM (%s)\n",s);
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
if (fread(rom_table[0],1024,1,fn) != 1) {
|
|
fprintf(stderr,"Error loading bios ROM %s\n",odyssey2);
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
|
|
strcpy(s,biosname);
|
|
fn = fopen(biosname,"rb");
|
|
|
|
if (!fn) {
|
|
fprintf(stderr,"Error loading bios ROM (%s)\n",s);
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
if (fread(rom_table[0],1024,1,fn) != 1) {
|
|
fprintf(stderr,"Error loading bios ROM %s\n",odyssey2);
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
|
|
fclose(fn);
|
|
|
|
for (i=1; i<8; i++)
|
|
memcpy(rom_table[i],rom_table[0],1024);
|
|
|
|
crc = crc32_buf(rom_table[0],1024);
|
|
|
|
if (crc==0x8016A315) {
|
|
printf("Odyssey2 bios ROM loaded\n");
|
|
app_data.vpp = 0;
|
|
app_data.bios = ROM_O2;
|
|
} else if (crc==0xE20A9F41) {
|
|
printf("Videopac+ G7400 bios ROM loaded\n");
|
|
app_data.vpp = 1;
|
|
app_data.bios = ROM_G7400;
|
|
} else if (crc==0xA318E8D6) {
|
|
if (!((!o2flag)&&(c52flag))) printf("C52 bios ROM loaded\n"); else printf("Ok\n");
|
|
app_data.vpp = 0;
|
|
app_data.bios = ROM_C52;
|
|
} else if (crc==0x11647CA5) {
|
|
if (g74flag) printf("Jopac bios ROM loaded\n"); else printf(" Ok\n");
|
|
app_data.vpp = 1;
|
|
app_data.bios = ROM_JOPAC;
|
|
} else {
|
|
printf("Bios ROM loaded (unknown version)\n");
|
|
app_data.vpp = 0;
|
|
app_data.bios = ROM_UNKNOWN;
|
|
}
|
|
}
|
|
|
|
static void load_cart(const char *file){
|
|
FILE *fn;
|
|
long l;
|
|
int i, nb;
|
|
|
|
app_data.crc = crc32_file(file);
|
|
if (app_data.crc == 0xAFB23F89) app_data.exrom = 1; /* Musician */
|
|
if (app_data.crc == 0x3BFEF56B) app_data.exrom = 1; /* Four in 1 Row! */
|
|
if (app_data.crc == 0x9B5E9356) app_data.exrom = 1; /* Four in 1 Row! (french) */
|
|
|
|
if (((app_data.crc == 0x975AB8DA) || (app_data.crc == 0xE246A812)) && (!app_data.debug)) {
|
|
fprintf(stderr,"Error: file %s is an incomplete ROM dump\n",file_v);
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
|
|
fn=fopen(file,"rb");
|
|
if (!fn) {
|
|
fprintf(stderr,"Error loading %s\n",file_v);
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
printf("Loading: \"%s\" Size: ",file_v);
|
|
l = filesize(fn);
|
|
|
|
if ((l % 1024) != 0) {
|
|
fprintf(stderr,"Error: file %s is an invalid ROM dump\n",file_v);
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
|
|
/* special MegaCART design by Soeren Gust */
|
|
if ((l == 32768) || (l == 65536) || (l == 131072) || (l == 262144) || (l == 524288) || (l == 1048576)) {
|
|
app_data.megaxrom = 1;
|
|
app_data.bank = 1;
|
|
megarom = malloc(1048576);
|
|
if (megarom == NULL) {
|
|
fprintf(stderr, "Out of memory loading %s\n", file);
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
if (fread(megarom, l, 1, fn) != 1) {
|
|
fprintf(stderr,"Error loading %s\n",file);
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
|
|
/* mirror shorter files into full megabyte */
|
|
if (l < 65536) memcpy(megarom+32768,megarom,32768);
|
|
if (l < 131072) memcpy(megarom+65536,megarom,65536);
|
|
if (l < 262144) memcpy(megarom+131072,megarom,131072);
|
|
if (l < 524288) memcpy(megarom+262144,megarom,262144);
|
|
if (l < 1048576) memcpy(megarom+524288,megarom,524288);
|
|
/* start in bank 0xff */
|
|
memcpy(&rom_table[0][1024], megarom + 4096*255 + 1024, 3072);
|
|
printf("MegaCart %ldK", l / 1024);
|
|
nb = 1;
|
|
} else if (((l % 3072) == 0))
|
|
{
|
|
app_data.three_k = 1;
|
|
nb = l/3072;
|
|
|
|
for (i=nb-1; i>=0; i--) {
|
|
if (fread(&rom_table[i][1024],3072,1,fn) != 1) {
|
|
fprintf(stderr,"Error loading %s\n",file);
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
}
|
|
printf("%dK",nb*3);
|
|
|
|
} else {
|
|
|
|
nb = l/2048;
|
|
|
|
if ((nb == 2) && (app_data.exrom)) {
|
|
|
|
if (fread(&extROM[0], 1024,1,fn) != 1) {
|
|
fprintf(stderr,"Error loading %s\n",file);
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
if (fread(&rom_table[0][1024],3072,1,fn) != 1) {
|
|
fprintf(stderr,"Error loading %s\n",file);
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
printf("3K EXROM");
|
|
|
|
} else {
|
|
for (i=nb-1; i>=0; i--) {
|
|
if (fread(&rom_table[i][1024],2048,1,fn) != 1) {
|
|
fprintf(stderr,"Error loading %s\n",file);
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
memcpy(&rom_table[i][3072],&rom_table[i][2048],1024); /* simulate missing A10 */
|
|
}
|
|
printf("%dK",nb*2);
|
|
}
|
|
}
|
|
fclose(fn);
|
|
rom = rom_table[0];
|
|
if (nb==1)
|
|
app_data.bank = 1;
|
|
else if (nb==2)
|
|
app_data.bank = app_data.exrom ? 1 : 2;
|
|
else if (nb==4)
|
|
app_data.bank = 3;
|
|
else
|
|
app_data.bank = 4;
|
|
|
|
if ((rom_table[nb-1][1024+12]=='O') && (rom_table[nb-1][1024+13]=='P') && (rom_table[nb-1][1024+14]=='N') && (rom_table[nb-1][1024+15]=='B'))
|
|
app_data.openb=1;
|
|
|
|
printf(" CRC: %08lX\n",app_data.crc);
|
|
}
|
|
|
|
void update_joy(void)
|
|
{
|
|
}
|
|
|
|
static void update_input()
|
|
{
|
|
if (!input_poll_cb)
|
|
return;
|
|
|
|
input_poll_cb();
|
|
|
|
// Joystick
|
|
jbt[0]= input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP);
|
|
jbt[1]= input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN);
|
|
jbt[2]= input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT);
|
|
jbt[3]= input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT);
|
|
jbt[4]= input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_A); // "Action" button on the joystick
|
|
|
|
// Numeric and Alpha
|
|
key[RETROK_l]=input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_B); // L
|
|
key[RETROK_RETURN]=input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_START); // RETURN
|
|
key[RETROK_SPACE]=input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_SELECT); // SPACE
|
|
key[RETROK_0]=input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_X); // 0
|
|
key[RETROK_1]=input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_Y); // 1
|
|
//TODO: Define more and 2 player support
|
|
}
|
|
|
|
/************************************
|
|
* libretro implementation
|
|
************************************/
|
|
|
|
static struct retro_system_av_info g_av_info;
|
|
|
|
void retro_get_system_info(struct retro_system_info *info)
|
|
{
|
|
memset(info, 0, sizeof(*info));
|
|
info->library_name = "O2EM";
|
|
info->library_version = "1.18";
|
|
info->need_fullpath = false;
|
|
info->valid_extensions = "bin";
|
|
}
|
|
|
|
void retro_get_system_av_info(struct retro_system_av_info *info)
|
|
{
|
|
memset(info, 0, sizeof(*info));
|
|
info->timing.fps = evblclk == EVBLCLK_NTSC ? 60 : 50;
|
|
info->timing.sample_rate = 44100;
|
|
info->geometry.base_width = EMUWIDTH;
|
|
info->geometry.base_height = EMUHEIGHT;
|
|
info->geometry.max_width = EMUWIDTH;
|
|
info->geometry.max_height = EMUHEIGHT;
|
|
info->geometry.aspect_ratio = 4.0 / 3.0;
|
|
}
|
|
|
|
void retro_set_controller_port_device(unsigned port, unsigned device)
|
|
{
|
|
(void)port;
|
|
(void)device;
|
|
}
|
|
|
|
size_t retro_serialize_size(void)
|
|
{
|
|
//return STATE_SIZE;
|
|
return 0;
|
|
}
|
|
|
|
bool retro_serialize(void *data, size_t size)
|
|
{
|
|
//savestate(fileName);
|
|
return false;
|
|
}
|
|
|
|
bool retro_unserialize(const void *data, size_t size)
|
|
{
|
|
//loadstate(fileName);
|
|
return false;
|
|
}
|
|
|
|
void retro_cheat_reset(void)
|
|
{}
|
|
|
|
void retro_cheat_set(unsigned index, bool enabled, const char *code)
|
|
{
|
|
(void)index;
|
|
(void)enabled;
|
|
(void)code;
|
|
}
|
|
|
|
bool retro_load_game(const struct retro_game_info *info)
|
|
{
|
|
enum retro_pixel_format fmt = RETRO_PIXEL_FORMAT_RGB565;
|
|
if (!environ_cb(RETRO_ENVIRONMENT_SET_PIXEL_FORMAT, &fmt))
|
|
{
|
|
if (log_cb)
|
|
log_cb(RETRO_LOG_INFO, "[O2EM]: RGB565 is not supported.\n");
|
|
return false;
|
|
}
|
|
|
|
const char *full_path;
|
|
full_path = info->path;
|
|
const char *system_directory_c = NULL;
|
|
char bios_file_path[256];
|
|
|
|
// BIOS is required
|
|
environ_cb(RETRO_ENVIRONMENT_GET_SYSTEM_DIRECTORY, &system_directory_c);
|
|
if (!system_directory_c)
|
|
{
|
|
if (log_cb)
|
|
log_cb(RETRO_LOG_WARN, "[O2EM]: no system directory defined, unable to look for o2rom.bin\n");
|
|
return false;
|
|
}
|
|
else
|
|
{
|
|
|
|
#ifdef _WIN32
|
|
char slash = '\\';
|
|
#else
|
|
char slash = '/';
|
|
#endif
|
|
|
|
snprintf(bios_file_path, sizeof(bios_file_path), "%s%c%s", system_directory_c, slash, "o2rom.bin");
|
|
|
|
if (!does_file_exist(bios_file_path))
|
|
{
|
|
if (log_cb)
|
|
log_cb(RETRO_LOG_WARN, "[O2EM]: o2rom.bin not found, cannot load BIOS\n");
|
|
return false;
|
|
}
|
|
}
|
|
|
|
app_data.debug = 0;
|
|
app_data.stick[0] = app_data.stick[1] = 1;
|
|
app_data.sticknumber[0] = app_data.sticknumber[1] = 0;
|
|
set_defjoykeys(0,0);
|
|
set_defjoykeys(1,1);
|
|
set_defsystemkeys();
|
|
app_data.bank = 0;
|
|
app_data.limit = 1;
|
|
app_data.sound_en = 1;
|
|
app_data.speed = 100;
|
|
app_data.wsize = 2;
|
|
app_data.fullscreen = 0;
|
|
app_data.scanlines = 0;
|
|
app_data.voice = 1;
|
|
app_data.window_title = "O2EM v" O2EM_VERSION;
|
|
app_data.svolume = 100;
|
|
app_data.vvolume = 100;
|
|
app_data.filter = 0;
|
|
app_data.exrom = 0;
|
|
app_data.three_k = 0;
|
|
app_data.crc = 0;
|
|
app_data.scshot = scshot;
|
|
app_data.statefile = statefile;
|
|
app_data.euro = 0;
|
|
app_data.openb = 0;
|
|
app_data.vpp = 0;
|
|
app_data.bios = 0;
|
|
app_data.scoretype = 0;
|
|
app_data.scoreaddress = 0;
|
|
app_data.default_highscore = 0;
|
|
app_data.breakpoint = 65535;
|
|
app_data.megaxrom = 0;
|
|
//strcpy(file,"");
|
|
//strcpy(file_l,"");
|
|
//strcpy(bios_l,"");
|
|
//strcpy(bios,"");
|
|
//strcpy(scshot,"");
|
|
//strcpy(statefile,"");
|
|
//strcpy(xrom,"");
|
|
strcpy(scorefile,"highscore.txt");
|
|
//read_default_config();
|
|
|
|
init_audio();
|
|
|
|
app_data.crc = crc32_file(full_path);
|
|
|
|
//suck_bios();
|
|
o2flag = 1;
|
|
|
|
crcx = app_data.crc;
|
|
//suck_roms();
|
|
|
|
load_bios(bios_file_path);
|
|
|
|
load_cart(full_path);
|
|
//if (app_data.voice) load_voice_samples(path2);
|
|
|
|
init_display();
|
|
|
|
init_cpu();
|
|
|
|
init_system();
|
|
|
|
set_score(app_data.scoretype, app_data.scoreaddress, app_data.default_highscore);
|
|
|
|
return true;
|
|
}
|
|
|
|
bool retro_load_game_special(unsigned game_type, const struct retro_game_info *info, size_t num_info)
|
|
{
|
|
(void)game_type;
|
|
(void)info;
|
|
(void)num_info;
|
|
return false;
|
|
}
|
|
|
|
void retro_unload_game(void)
|
|
{
|
|
}
|
|
|
|
unsigned retro_get_region(void)
|
|
{
|
|
return evblclk == EVBLCLK_NTSC ? RETRO_REGION_NTSC : RETRO_REGION_PAL;
|
|
}
|
|
|
|
unsigned retro_api_version(void)
|
|
{
|
|
return RETRO_API_VERSION;
|
|
}
|
|
|
|
void *retro_get_memory_data(unsigned id)
|
|
{
|
|
return NULL;
|
|
}
|
|
|
|
size_t retro_get_memory_size(unsigned id)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
void retro_init(void)
|
|
{
|
|
struct retro_log_callback log;
|
|
unsigned level = 5;
|
|
|
|
if (environ_cb(RETRO_ENVIRONMENT_GET_LOG_INTERFACE, &log))
|
|
log_cb = log.log;
|
|
else
|
|
log_cb = NULL;
|
|
|
|
environ_cb(RETRO_ENVIRONMENT_SET_PERFORMANCE_LEVEL, &level);
|
|
|
|
memset(mbmp, 0, sizeof(mbmp));
|
|
RLOOP=1;
|
|
}
|
|
|
|
void retro_deinit(void)
|
|
{
|
|
close_audio();
|
|
close_voice();
|
|
close_display();
|
|
retro_destroybmp();
|
|
}
|
|
|
|
void retro_reset(void)
|
|
{
|
|
init_cpu();
|
|
init_roms();
|
|
init_vpp();
|
|
clearscr();
|
|
}
|
|
|
|
void retro_run(void)
|
|
{
|
|
update_input();
|
|
|
|
cpu_exec();
|
|
RLOOP=1;
|
|
|
|
video_cb(mbmp, EMUWIDTH, EMUHEIGHT, TEX_WIDTH << 1);
|
|
|
|
int length = evblclk == EVBLCLK_NTSC ? 44100/60 : 44100/50;
|
|
// Convert 8u to 16s
|
|
for(int i = 0; i != length; i ++)
|
|
{
|
|
int16_t sample16 = (soundBuffer[i] << 8) - 32768;
|
|
int16_t frame[2] = {sample16, sample16};
|
|
audio_cb(frame[0], frame[1]);
|
|
}
|
|
}
|