libretro.c

#include <stdio.h>
#include <stdint.h>
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>
#include <math.h>
#include <unistd.h>

#include "libretro.h"

#include "plat-joystick.h"
#include "ibm.h"
#include "cpu.h"
#include "model.h"
#include "nvr.h"
#include "sound.h"
#include "video.h"

typedef struct
{
   unsigned char r;
   unsigned char g;
   unsigned char b;
}APALETTE;

static struct retro_log_callback logging;
static retro_log_printf_t log_cb;
static bool use_audio_cb;
static float last_aspect;
static float last_sample_rate;

int quited = 0;

int pcem_key[272];
int rawinputkey[272];

int romspresent[ROM_MAX];
int gfx_present[GFX_MAX];

static retro_video_refresh_t video_cb;

/* forward declarations */
void closepc(void);
void savenvr(void);
int loadbios(void);
void initpc(int argc, char *argv[]);
void runpc(void);
void resetpchard(void);

void set_window_title(char *s)
{
}

void get_executable_name(char *s, int size)
{
}

int mouse_buttons;
joystick_t joystick_state[2];
int joysticks_present;

void joystick_init()
{
#if 0
        install_joystick(JOY_TYPE_AUTODETECT);
        joysticks_present = MIN(num_joysticks, 2);
#endif
}
void joystick_close()
{
}
void joystick_poll()
{
   int c;

#if 0
   poll_joystick();

   for (c = 0; c < MIN(num_joysticks, 2); c++)
   {
      joystick_state[c].x = joy[c].stick[0].axis[0].pos * 256;
      joystick_state[c].y = joy[c].stick[0].axis[1].pos * 256;
      joystick_state[c].b[0] = joy[c].button[0].b;
      joystick_state[c].b[1] = joy[c].button[1].b;
      joystick_state[c].b[2] = joy[c].button[2].b;
      joystick_state[c].b[3] = joy[c].button[3].b;
   }
#endif
}

void mouse_init()
{
}

void mouse_get_mickeys(int *x, int *y)
{
}

void mouse_poll_host()
{
   //poll_mouse();
}

static int key_convert[322] =
{
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	0x0e,0x0f,  -1,  -1,  -1,0x1c,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,0x01,  -1,  -1,  -1,  -1,
	0x39,0x02,0x28,0x04,  -1,0x05,0x08,0x28,
	0x0a,0x0b,0x09,0x0d,0x33,0x0c,0x34,0x35,
	0x0b,0x02,0x03,0x04,0x05,0x06,0x07,0x08,
	0x09,0x0a,0x27,0x27,0x33,0x0d,0x34,0x35,
	0x03,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,0x1a,0x2b,0x1b,0x07,0x0c,
	0x29,0x1e,0x30,0x2e,0x20,0x12,0x21,0x22,
	0x23,0x17,0x24,0x25,0x26,0x32,0x31,0x18,
	0x19,0x10,0x13,0x1f,0x14,0x16,0x2f,0x11,
	0x2d,0x15,0x2c,  -1,  -1,  -1,  -1,0xd3,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	0x52,0x4f,0x50,0x51,0x4b,0x4c,0x4d,0x47,
	0x48,0x49,0x53,0xb5,0x37,0x4a,0x4e,  -1,
	  -1,0xc8,0xd0,0xcb,0xcd,0xd2,0xc7,0xcf,
	0xc9,0xd1,0x3b,0x3c,0x3d,0x3e,0x3f,0x40,
	0x41,0x42,0x43,0x44,0x57,0x58,  -1,  -1,
	  -1,  -1,  -1,  -1,0x3a,  -1,0x45,  -1,
	  -1,0x9d,0x1d,0xb8,0x38,  -1,  -1,  -1,
	  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
	  -1,  -1,  -1,
};

void keyboard_init()
{
#if 0
   install_keyboard();
#endif
}

void keyboard_close()
{
}

void keyboard_poll_host()
{
#if 0
        int c;

        for (c = 0; c < 128; c++)
        {
                int key_idx = key_convert[c];
                if (key_idx == -1)
                        continue;

                if (key[c] != pcem_key[key_idx])
                        pcem_key[key_idx] = key[c];
        }
#endif
}

void updatewindowsize(int x, int y) { }

void hline(BITMAP *b, int x1, int y, int x2, uint32_t col)
{
        if (y < 0 || y >= buffer8->h)
           return;

        if (b == buffer8)
           memset(&b->line[y][x1], col, x2 - x1);
        else
           memset(&((uint32_t *)b->line[y])[x1], col, (x2 - x1) * 4);
}

BITMAP *create_bitmap(int x,int y)
{
   BITMAP *b = malloc(sizeof(BITMAP) + (y * sizeof(uint8_t *)));
   int c;
   b->dat = malloc(x * y * 4);
   for (c = 0; c < y; c++)
   {
      b->line[c] = b->dat + (c * x * 4);
   }
   b->w = x;
   b->h = y;
   return b;
}

int destroy_bitmap(BITMAP *buff)
{
   if (buff->dat)
      free(buff->dat);
   free(buff);

   return 0;
}

void initalmain(int argc, char *argv[])
{
}

void closeal()
{
}

void inital()
{
}

void check()
{
}

void givealbuffer_cd(int16_t *buf)
{
}

void givealbuffer(int16_t *buf)
{
}

void startblit()
{
}

void endblit()
{
}

void blit(BITMAP *src, int x1, int y1, int x2, int y2, int xs, int ys)
{
   video_cb(src->dat, src->w, src->h, src->w);
}

static int ticks = 0;
static void timer_rout()
{
        ticks++;
}

uint64_t timer_freq;
uint64_t timer_read()
{
        return 0;
}

static void fallback_log(enum retro_log_level level, const char *fmt, ...)
{
   (void)level;
   va_list va;
   va_start(va, fmt);
   vfprintf(stderr, fmt, va);
   va_end(va);
}

static PALETTE cgapal=
{
        {0,0,0},{0,42,0},{42,0,0},{42,21,0},
        {0,0,0},{0,42,42},{42,0,42},{42,42,42},
        {0,0,0},{21,63,21},{63,21,21},{63,63,21},
        {0,0,0},{21,63,63},{63,21,63},{63,63,63},

        {0,0,0},{0,0,42},{0,42,0},{0,42,42},
        {42,0,0},{42,0,42},{42,21,00},{42,42,42},
        {21,21,21},{21,21,63},{21,63,21},{21,63,63},
        {63,21,21},{63,21,63},{63,63,21},{63,63,63},

        {0,0,0},{0,21,0},{0,0,42},{0,42,42},
        {42,0,21},{21,10,21},{42,0,42},{42,0,63},
        {21,21,21},{21,63,21},{42,21,42},{21,63,63},
        {63,0,0},{42,42,0},{63,21,42},{41,41,41},

        {0,0,0},{0,42,42},{42,0,0},{42,42,42},
        {0,0,0},{0,42,42},{42,0,0},{42,42,42},
        {0,0,0},{0,63,63},{63,0,0},{63,63,63},
        {0,0,0},{0,63,63},{63,0,0},{63,63,63},
};

static uint32_t pal_lookup[256];
static uint32_t video_buffer[2048 * 2048];
int winsizex=640;
int winsizey=480;

static void libretro_blit_memtoscreen(int x, int y, int y1, int y2, int w, int h)
{
   int xx, yy;
   uint32_t *p;

   if((w < 0) || (w > 2048) || (h < 0) || (h > 2048))
      return;

   memset(video_buffer, 0, 2048 * 2048 * sizeof(uint32_t));

   for (yy = y1; yy < y2; yy++)
   {
      if ((y + yy) >= 0 && (y + yy) < buffer8->h)
         memcpy(video_buffer + yy * 2048, &(((uint32_t *)buffer32->line[y + yy])[x]), w * 4);
   }

   if (readflash)
   {
      readflash = 0;
      if (enable_flash)
      {
         for (yy = 8; yy < 14; yy++)
         {
            p = video_buffer + yy * 2048;
            for (xx = (w - 40); xx < (w - 8); xx++)
               p[xx] = 0xffffffff;
         }
      }
   }

   video_cb(video_buffer, w, h, 2048 * 4);
}

static void libretro_blit_memtoscreen_8(int x, int y, int w, int h)
{
   int xx, yy;
   uint32_t *p;

   if((w < 0) || (w > 2048) || (h < 0) || (h > 2048))
      return;

   memset(video_buffer, 0, 2048 * 2048 * sizeof(uint32_t));

   for (yy = 0; yy < h; yy++)
   {
      if ((y + yy) >= 0 && (y + yy) < buffer8->h)
      {
         p = video_buffer + yy * 2048;
         for (xx = 0; xx < w; xx++)
         {
            p[xx] = pal_lookup[buffer8->line[y + yy][x + xx]];
            /* If brown circuity is disabled, double the green component. */
            if ((buffer8->line[y + yy][x + xx] == 0x16) && !cga_brown)  p[xx] += (p[xx] & 0xff00);
         }
      }
   }

   if (readflash)
   {
      readflash = 0;
      if (enable_flash)
      {
         for (yy = 8; yy < 14; yy++)
         {
            p = (uint32_t *)(video_buffer + (yy * sizeof(uint32_t)));
            for (xx = (w - 40); xx < (w - 8); xx++)
               p[xx] = 0xffffffff;
         }
      }
   }

   video_cb(video_buffer, w, h, 2048 * 4);
}

void rectfill(BITMAP *b, int x1, int y1, int x2, int y2, uint32_t col)
{
}


void retro_deinit(void)
{
}

unsigned retro_api_version(void)
{
   return RETRO_API_VERSION;
}

void retro_set_controller_port_device(unsigned port, unsigned device)
{
}

void retro_get_system_info(struct retro_system_info *info)
{
   memset(info, 0, sizeof(*info));
   info->library_name     = "PCem";
   info->library_version  = "v12 alpha";
   info->need_fullpath    = false;
   info->valid_extensions = NULL; // Anything is fine, we don't care.
}

static retro_audio_sample_t audio_cb;
static retro_audio_sample_batch_t audio_batch_cb;
static retro_environment_t environ_cb;
static retro_input_poll_t input_poll_cb;
static retro_input_state_t input_state_cb;

const char* retro_get_system_directory(void)
{
    const char* dir;
    environ_cb(RETRO_ENVIRONMENT_GET_SYSTEM_DIRECTORY, &dir);

    return dir ? dir : ".";
}

void retro_init(void)
{
#ifdef _WIN32
   char slash = '\\';
#else
   char slash = '/';
#endif
   unsigned i;
   unsigned color_mode = RETRO_PIXEL_FORMAT_XRGB8888;
   const char *system_dir = NULL;

   environ_cb(RETRO_ENVIRONMENT_SET_PIXEL_FORMAT, &color_mode);

   system_dir = retro_get_system_directory();

   sprintf(pcempath, "%s%c%s%c", system_dir, slash, "pcem", slash);

   /* video initialization */
   video_blit_memtoscreen   = libretro_blit_memtoscreen;
   video_blit_memtoscreen_8 = libretro_blit_memtoscreen_8;

   for (i = 0; i < 256; i++)
      pal_lookup[i] = makecol(cgapal[i].r << 2, cgapal[i].g << 2, cgapal[i].b << 2);

}

void retro_get_system_av_info(struct retro_system_av_info *info)
{
   info->timing.fps            = 60;
   info->timing.sample_rate    = 44100;
   info->geometry.base_width   = 320;
   info->geometry.base_height  = 240;
   info->geometry.max_width    = 2048;
   info->geometry.max_height   = 2048;
   info->geometry.aspect_ratio = (float)4/3;
}

static struct retro_rumble_interface rumble;

void retro_set_environment(retro_environment_t cb)
{
   bool no_content = true;
   environ_cb = cb;

   static const struct retro_variable vars[] = {
      { "pcem_cpucore",
         "CPU Core; interpreter|dynarec" },
      { "pcem_model",
         "Model (restart); auto|IBM PC|IBM XT|IBM PCjr|Generic XT clone|AMI XT clone|DTK XT clone|VTech Laser Turbo XT|VTech Laser XT3|Phoenix XT clone|Juko XT clone|Tandy 1000|Tandy 1000 HX|Tandy 1000 SL/2|Amstrad PC1512|Sinclair PC200|Euro PC|Olivetti M24|Amstrad PC1640|Amstrad PC2086|Amstrad PC3086|IBM AT|Commodore PC 30 III|AMI 286 clone|DELL System 200|IBM PS/1 model 2011|Compaq Deskpro 386|Acer 386SX25/N|DTK 386SX clone|Phoenix 386 clone|Amstrad MegaPC|AMI 386 clone|AMI 486 clone|AMI WinBIOS 486|DTK PKM-0038S E-2|Award SiS 496/497|Rise Computer R418|Intel Premiere/PCI|Intel Premiere/PCI II|Intel Advanced/EV|PC Partner MB500N|ASUS P/I-P53TP4XE|Acer M3a|Acer V35N|ASUS P/I-P55T2P4|Award 430VX PCI|Epox P55-VA" },
      { "pcem_gfxcard",
         "Graphics card (restart); auto|CGA|New CGA|MDA|Hercules|EGA|Compaq EGA|Super EGA|Trident TVGA8900D|Tseng ET4000|Tseng ET4000/W32p (Diamond Stealth 32)|S3 Vision864 (Paradise Bahamas 64)|S3 764/Trio64 (Number Nine 9FX)|S3 Virge|Trident TGUI9440|IBM VGA|Compaq/Paradise VGA|ATI VGA Edge-16|ATI VGA Charger|Oak OTI-067|ATI Graphics Pro Turbo (Mach64)|Cirrus Logic CL-GD5429|S3 Virge/DX|S3 732/Trio32 (Phoenix)|S3 764/Trio64 (Phoenix)|nVidia Riva TNT|Incolor|nVidia Riva 128" },
      { "pcem_sndcard",
         "Sound card (restart); auto|AdLib (No DSP)|Soundblaster 1 (DSP v1.05)|Soundblaster 1.5 (DSP v2.00)|Soundblaster 2 (DSP v2.01)|Soundblaster Pro (DSP v3.00)|Soundblaster Pro 2 (DSP v3.02 + OPL3)|Soundblaster 16 (DSP v4.05 + OPL3)|AdLib Gold|Windows Sound System|Pro Audio Spectrum 16" },
      { "pcem_video_timing_speed",
         "Video timing speed; Slow VLB/PCI|Mid VLB/PCI|Fast VLB/PCI|8-bit|Slow 16-bit|Fast 16-bit" },
      { "pcem_overscan_enable",
         "Enable overscan; disabled|enabled" },
      { "pcem_flash_enable",
         "Enable flash; enabled|disabled" },
      { "pcem_fpu_enabled",
         "CPU Floating Point Unit support (restart); disabled|enabled" },
      { "pcem_gus_enabled",
         "Gravis UltraSound audiocard (restart); disabled|enabled" },
      { "pcem_ssi2001_enabled",
         "SSI 2001 add-on audiocard (restart); disabled|enabled" },
      { "pcem_gameblaster_enabled",
         "GameBlaster audiocard (restart); disabled|enabled" },
      { "pcem_voodoo_enabled",
         "3Dfx Voodoo add-on card (restart); disabled|enabled" },
      { NULL, NULL },
   };

   cb(RETRO_ENVIRONMENT_SET_VARIABLES, (void*)vars);

   cb(RETRO_ENVIRONMENT_SET_SUPPORT_NO_GAME, &no_content);

   if (cb(RETRO_ENVIRONMENT_GET_LOG_INTERFACE, &logging))
      log_cb = logging.log;
   else
      log_cb = fallback_log;
}

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;
}

void retro_set_video_refresh(retro_video_refresh_t cb)
{
   video_cb = cb;
}

void retro_reset(void)
{
   resetpchard();
}

static void check_variables(bool first_time_startup)
{
   struct retro_variable var = {0};

   if (first_time_startup)
   {
      var.key = "pcem_cpucore";

      if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
      {
         if (!strcmp(var.value, "interpreter"))
            cpu_use_dynarec = 0;
         else if (!strcmp(var.value, "dynarec"))
            cpu_use_dynarec = 1;
      }
      else
         cpu_use_dynarec = 0;

      var.key = "pcem_video_timing_speed";

      if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
      {
         if (!strcmp(var.value, "Slow VLB/PCI"))
            video_speed = 3;
         else if (!strcmp(var.value, "Mid VLB/PCI"))
            video_speed = 4;
         else if (!strcmp(var.value, "Fast VLB/PCI"))
            video_speed = 5;
         else if (!strcmp(var.value, "8-bit"))
            video_speed = 0;
         else if (!strcmp(var.value, "Slow 16-bit"))
            video_speed = 1;
         else if (!strcmp(var.value, "Fast 16-bit"))
            video_speed = 2;
      }
      else
         video_speed = 3;

      var.key = "pcem_overscan_enable";

      if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
      {
         if (!strcmp(var.value, "disabled"))
            enable_overscan = 0;
         else if (!strcmp(var.value, "enabled"))
            enable_overscan = 1;
      }
      else
         enable_overscan = 0;

      var.key = "pcem_flash_enable";

      if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
      {
         if (!strcmp(var.value, "disabled"))
            enable_flash = 0;
         else if (!strcmp(var.value, "enabled"))
            enable_flash = 1;
      }
      else
         enable_flash = 1;

      var.key = "pcem_sndcard";

      if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
      {
         if (!strcmp(var.value, "auto"))
            sound_card_current = SB2;
         else if (!strcmp(var.value, "AdLib (No DSP)"))
            sound_card_current = SADLIB;
         else if (!strcmp(var.value, "Soundblaster 1 (DSP v1.05)"))
            sound_card_current = SB1;
         else if (!strcmp(var.value, "Soundblaster 1.5 (DSP v2.00)"))
            sound_card_current = SB15;
         else if (!strcmp(var.value, "Soundblaster 2 (DSP v2.01)"))
            sound_card_current = SB2;
         else if (!strcmp(var.value, "Soundblaster Pro (DSP v3.00)"))
            sound_card_current = SBPRO;
         else if (!strcmp(var.value, "Soundblaster Pro 2 (DSP v3.02 + OPL3)"))
            sound_card_current = SBPRO2;
         else if (!strcmp(var.value, "Soundblaster 16 (DSP v4.05 + OPL3)"))
            sound_card_current = SB16;
         else if (!strcmp(var.value, "AdLib Gold"))
            sound_card_current = SADGOLD;
         else if (!strcmp(var.value, "Windows Sound System"))
            sound_card_current = SND_WSS;
         else if (!strcmp(var.value, "Pro Audio Spectrum 16"))
            sound_card_current = SND_PAS16;
      }
      else
         sound_card_current = SB2;

      var.key = "pcem_model";

      if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
      {
         if (!strcmp(var.value, "auto"))
         {
            romset = ROM_P55VA;
         }
         else if (!strcmp(var.value, "IBM PC"))
         {
            romset = ROM_IBMPC;
         }
         else if (!strcmp(var.value, "IBM XT"))
         {
            romset = ROM_IBMXT;
         }
         else if (!strcmp(var.value, "IBM PCjr"))
         {
            romset = ROM_IBMPCJR;
         }
         else if (!strcmp(var.value, "Generic XT clone"))
         {
            romset = ROM_GENXT;
         }
         else if (!strcmp(var.value, "AMI XT clone"))
         {
            romset = ROM_AMIXT;
         }
         else if (!strcmp(var.value, "DTK XT clone"))
         {
            romset = ROM_DTKXT;
         }
         else if (!strcmp(var.value, "VTech Laser Turbo XT"))
         {
            romset = ROM_LTXT;
         }
         else if (!strcmp(var.value, "VTech Laser XT3"))
         {
            romset = ROM_LXT3;
         }
         else if (!strcmp(var.value, "Phoenix XT clone"))
         {
            romset = ROM_PXXT;
         }
         else if (!strcmp(var.value, "Juko XT clone"))
         {
            romset = ROM_JUKOPC;
         }
         else if (!strcmp(var.value, "Tandy 1000"))
         {
            romset = ROM_TANDY;
         }
         else if (!strcmp(var.value, "Tandy 1000 HX"))
         {
            romset = ROM_TANDY1000HX;
         }
         else if (!strcmp(var.value, "Tandy 1000 SL/2"))
         {
            romset = ROM_TANDY1000SL2;
         }
         else if (!strcmp(var.value, "Amstrad PC1512"))
         {
            romset = ROM_PC1512;
         }
         else if (!strcmp(var.value, "Sinclair PC200"))
         {
            romset = ROM_PC200;
         }
         else if (!strcmp(var.value, "Euro PC"))
         {
            romset = ROM_EUROPC;
         }
         else if (!strcmp(var.value, "Olivetti M24"))
         {
            romset = ROM_OLIM24;
         }
         else if (!strcmp(var.value, "Amstrad PC1640"))
         {
            romset = ROM_PC1640;
         }
         else if (!strcmp(var.value, "Amstrad PC2086"))
         {
            romset = ROM_PC2086;
         }
         else if (!strcmp(var.value, "Amstrad PC3086"))
         {
            romset = ROM_PC3086;
         }
         else if (!strcmp(var.value, "IBM AT"))
         {
            romset = ROM_IBMAT;
         }
         else if (!strcmp(var.value, "Commodore PC 30 III"))
         {
            romset = ROM_CMDPC30;
         }
         else if (!strcmp(var.value, "AMI 286 clone"))
         {
            romset = ROM_AMI286;
         }
         else if (!strcmp(var.value, "DELL System 200"))
         {
            romset = ROM_DELL200;
         }
         else if (!strcmp(var.value, "IBM PS/1 model 2011"))
         {
            romset = ROM_IBMPS1_2011;
         }
         else if (!strcmp(var.value, "Compaq Deskpro 386"))
         {
            romset = ROM_DESKPRO_386;
         }
         else if (!strcmp(var.value, "Acer 386SX25/N"))
         {
            romset = ROM_ACER386;
         }
         else if (!strcmp(var.value, "DTK 386SX clone"))
         {
            romset = ROM_DTK386;
         }
         else if (!strcmp(var.value, "Phoenix 386 clone"))
         {
            romset = ROM_PX386;
         }
         else if (!strcmp(var.value, "Amstrad MegaPC"))
         {
            romset = ROM_MEGAPC;
         }
         else if (!strcmp(var.value, "AMI 386 clone"))
         {
            romset = ROM_AMI386;
         }
         else if (!strcmp(var.value, "AMI 486 clone"))
         {
            romset = ROM_AMI486;
         }
         else if (!strcmp(var.value, "AMI WinBIOS 486"))
         {
            romset = ROM_WIN486;
         }
         else if (!strcmp(var.value, "DTK PKM-0038S E-2"))
         {
            romset = ROM_DTK486;
         }
         else if (!strcmp(var.value, "Award SiS 496/497"))
         {
            romset = ROM_SIS496;
         }
         else if (!strcmp(var.value, "Rise Computer R418"))
         {
            romset = ROM_R418;
         }
         else if (!strcmp(var.value, "Intel Premiere/PCI"))
         {
            romset = ROM_REVENGE;
         }
         else if (!strcmp(var.value, "Intel Premiere/PCI II"))
         {
            romset = ROM_PLATO;
         }
         else if (!strcmp(var.value, "Intel Advanced/EV"))
         {
            romset = ROM_ENDEAVOR;
         }
         else if (!strcmp(var.value, "PC Partner MB500N"))
         {
            romset = ROM_MB500N;
         }
         else if (!strcmp(var.value, "ASUS P/I-P54TP4XE"))
         {
            romset = ROM_P54TP4XE;
         }
         else if (!strcmp(var.value, "Acer M3a"))
         {
            romset = ROM_ACERM3A;
         }
         else if (!strcmp(var.value, "Acer V35N"))
         {
            romset = ROM_ACERV35N;
         }
         else if (!strcmp(var.value, "ASUS P/I-P55T2P4"))
         {
            romset = ROM_P55T2P4;
         }
         else if (!strcmp(var.value, "Award 430VX PCI"))
         {
            romset = ROM_430VX;
         }
         else if (!strcmp(var.value, "Epox P55-VA"))
         {
            romset = ROM_P55VA;
         }
	 model = model_getmodel(romset);
      }
      else
      {
      }

      var.key = "pcem_gfxcard";

      if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
      {
         if (!strcmp(var.value, "auto"))
            gfxcard = 0;
         if (!strcmp(var.value, "CGA"))
            gfxcard = GFX_CGA;
         else if (!strcmp(var.value, "New CGA"))
            gfxcard = GFX_NEW_CGA;
         else if (!strcmp(var.value, "MDA"))
            gfxcard = GFX_MDA;
         else if (!strcmp(var.value, "Hercules"))
            gfxcard = GFX_HERCULES;
         else if (!strcmp(var.value, "EGA"))
            gfxcard = GFX_EGA;
         else if (!strcmp(var.value, "Compaq EGA"))
            gfxcard = GFX_COMPAQ_EGA;
         else if (!strcmp(var.value, "Super EGA"))
            gfxcard = GFX_SUPER_EGA;
         else if (!strcmp(var.value, "Trident TVGA8900D"))
            gfxcard = GFX_TVGA;
         else if (!strcmp(var.value, "Tseng ET4000"))
            gfxcard = GFX_ET4000;
         else if (!strcmp(var.value, "Tseng ET4000/W32p (Diamond Stealth 32)"))
            gfxcard = GFX_ET4000W32;
         else if (!strcmp(var.value, "S3 Vision864 (Paradise Bahamas 64)"))
            gfxcard = GFX_BAHAMAS64;
         else if (!strcmp(var.value, "S3 764/Trio64 (Number Nine 9FX)"))
            gfxcard = GFX_N9_9FX;
         else if (!strcmp(var.value, "S3 Virge"))
            gfxcard = GFX_VIRGE;
         else if (!strcmp(var.value, "Trident TGUI9440"))
            gfxcard = GFX_TGUI9440;
         else if (!strcmp(var.value, "IBM VGA"))
            gfxcard = GFX_VGA;
         else if (!strcmp(var.value, "Compaq/Paradise VGA"))
            gfxcard = GFX_COMPAQ_VGA;
         else if (!strcmp(var.value, "ATI VGA Edge-16"))
            gfxcard = GFX_VGAEDGE16;
         else if (!strcmp(var.value, "ATI VGA Charger"))
            gfxcard = GFX_VGACHARGER;
         else if (!strcmp(var.value, "Oak OTI-067"))
            gfxcard = GFX_OTI067;
         else if (!strcmp(var.value, "ATI Graphics Pro Turbo (Mach64)"))
            gfxcard = GFX_MACH64GX;
         else if (!strcmp(var.value, "Cirrus Logic CL-GD5429"))
            gfxcard = GFX_CL_GD5429;
         else if (!strcmp(var.value, "S3 Virge/DX"))
            gfxcard = GFX_VIRGEDX;
         else if (!strcmp(var.value, "S3 732/Trio32 (Phoenix)"))
            gfxcard = GFX_PHOENIX_TRIO32;
         else if (!strcmp(var.value, "S3 764/Trio64 (Phoenix)"))
            gfxcard = GFX_PHOENIX_TRIO64;
         else if (!strcmp(var.value, "nVidia Riva TNT"))
            gfxcard = GFX_RIVATNT;
         else if (!strcmp(var.value, "Incolor"))
            gfxcard = GFX_INCOLOR;
         else if (!strcmp(var.value, "nVidia Riva 128"))
            gfxcard = GFX_RIVA128;
      }
      else
          gfxcard = 0;

      var.key = "pcem_fpu_enabled";

      if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
      {
         if (!strcmp(var.value, "enabled"))
            hasfpu = 1;
         else
            hasfpu = 0;
      }
      else
          hasfpu = 0;

      var.key = "pcem_ssi2001_enabled";

      if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
      {
         if (!strcmp(var.value, "enabled"))
             SSI2001 = 1;
         else
             SSI2001 = 0;
      }
      else
          SSI2001  = 0;

      var.key = "pcem_gus_enabled";

      if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
      {
         if (!strcmp(var.value, "enabled"))
            GUS = 1;
         else
            GUS = 0;
      }
      else
          GUS = 0;

      var.key = "pcem_gameblaster_enabled";

      if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
      {
         if (!strcmp(var.value, "enabled"))
            GAMEBLASTER = 1;
         else
            GAMEBLASTER = 0;
      }
      else
         GAMEBLASTER = 0;

      var.key = "pcem_voodoo_enabled";

      if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
      {
         if (!strcmp(var.value, "enabled"))
            voodoo_enabled = 1;
         else
            voodoo_enabled = 0;
      }
      else
         voodoo_enabled = 0;
   }
}

static void audio_set_state(bool enable)
{
   (void)enable;
}

void retro_run(void)
{
   static int ticks = 0;
   bool updated = false;
   if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE_UPDATE, &updated) && updated)
      check_variables(false);

   input_poll_cb();

   if (quited)
      return;

   {
      runpc();
      frames++;
      if (frames >= 200 && nvr_dosave)
      {
         frames = 0;
         nvr_dosave = 0;
         savenvr();
      }
   }
   /* missing: audio_cb / video_cb */

}

static void keyboard_cb(bool down, unsigned keycode,
      uint32_t character, uint16_t mod)
{
   unsigned c;
   int key_idx;
   bool latch = down ? 1 : 0;


   log_cb(RETRO_LOG_INFO, "Down: %s, Code: %d, Char: %u, Mod: %u.\n",
         down ? "yes" : "no", keycode, character, mod);

   for(c = 0;c<272;c++)
      pcem_key[c] = 0;

   key_idx = key_convert[keycode];
   if (key_idx == -1)
      return;

   pcem_key[key_idx] = latch;
}

static int midi_cmd_pos, midi_len;
static uint8_t midi_command[3];
static int midi_lengths[8] = {3, 3, 3, 3, 2, 2, 3, 0};

void midi_init(void)
{
   /* TODO ? */
}

void midi_close(void)
{
   /* TODO ? */
}

void midi_write(uint8_t val)
{
        if (val & 0x80)
        {
                midi_cmd_pos = 0;
                midi_len = midi_lengths[(val >> 4) & 7];
                midi_command[0] = midi_command[1] = midi_command[2] = 0;
        }

        if (midi_len && midi_cmd_pos < 3)
        {
                midi_command[midi_cmd_pos] = val;

                midi_cmd_pos++;

#if 0
#ifdef USE_ALLEGRO_MIDI
                if (midi_cmd_pos == midi_len)
                        midi_out(midi_command, midi_len);
#endif
#endif
        }
}

bool retro_load_game(const struct retro_game_info *info)
{
   int c, d;
   enum retro_pixel_format fmt = RETRO_PIXEL_FORMAT_XRGB8888;
   if (!environ_cb(RETRO_ENVIRONMENT_SET_PIXEL_FORMAT, &fmt))
   {
      log_cb(RETRO_LOG_INFO, "XRGB8888 is not supported.\n");
      return false;
   }

   struct retro_keyboard_callback cb = { keyboard_cb };
   environ_cb(RETRO_ENVIRONMENT_SET_KEYBOARD_CALLBACK, &cb);

   check_variables(true);

   midi_init();
   initpc(0, NULL);

	resetpchard();

   (void)info;
   return true;
}

void retro_unload_game(void)
{
   closepc();

   midi_close();
}

unsigned retro_get_region(void)
{
   return RETRO_REGION_NTSC;
}

bool retro_load_game_special(unsigned type, const struct retro_game_info *info, size_t num)
{
   return retro_load_game(NULL);
}

size_t retro_serialize_size(void)
{
   return 0;
}

bool retro_serialize(void *data_, size_t size)
{
   return 0;
}

bool retro_unserialize(const void *data_, size_t size)
{
   return false;
}

void *retro_get_memory_data(unsigned id)
{
   (void)id;
   return NULL;
}

size_t retro_get_memory_size(unsigned id)
{
   (void)id;
   return 0;
}

void retro_cheat_reset(void)
{}

void retro_cheat_set(unsigned index, bool enabled, const char *code)
{
   (void)index;
   (void)enabled;
   (void)code;
}