platform/gp2x/emu.c

   1 // (c) Copyright 2006 notaz, All rights reserved.\r
   2 // Free for non-commercial use.\r
   3 \r
   4 // For commercial use, separate licencing terms must be obtained.\r
   5 \r
   6 #include <stdio.h>\r
   7 #include <stdlib.h>\r
   8 #include <sys/time.h>\r
   9 #include <linux/limits.h>\r
  10 #include <ctype.h>\r
  11 #include <unistd.h>\r
  12 \r
  13 #include <stdarg.h>\r
  14 \r
  15 #include "emu.h"\r
  16 #include "gp2x.h"\r
  17 #include "usbjoy.h"\r
  18 #include "menu.h"\r
  19 #include "asmutils.h"\r
  20 #include "cpuctrl.h"\r
  21 \r
  22 #include "Pico/PicoInt.h"\r
  23 #include "zlib/zlib.h"\r
  24 \r
  25 \r
  26 #ifdef BENCHMARK\r
  27 #define OSD_FPS_X 220\r
  28 #else\r
  29 #define OSD_FPS_X 260\r
  30 #endif\r
  31 \r
  32 // PicoPad[] format: SACB RLDU\r
  33 char *actionNames[] = {\r
  34         "UP", "DOWN", "LEFT", "RIGHT", "B", "C", "A", "START",\r
  35         0, 0, 0, 0, 0, 0, 0, 0, // Z, Y, X, MODE (enabled only when needed), ?, ?, ?, ?\r
  36         0, 0, 0, 0, 0, 0, 0, "ENTER MENU", // player2_flag, ?, ?, ?, ?, ?, ?, menu\r
  37         "NEXT SAVE SLOT", "PREV SAVE SLOT", "SWITCH RENDERER", "SAVE STATE",\r
  38         "LOAD STATE", "VOLUME UP", "VOLUME DOWN", "DONE"\r
  39 };\r
  40 \r
  41 int engineState;\r
  42 int select_exits = 0;\r
  43 char *PicoConfigFile = "picoconfig.bin";\r
  44 currentConfig_t currentConfig;\r
  45 \r
  46 char romFileName[PATH_MAX];\r
  47 unsigned char *rom_data = NULL;\r
  48 \r
  49 extern int crashed_940;\r
  50 \r
  51 static char noticeMsg[64];                                      // notice msg to draw\r
  52 static struct timeval noticeMsgTime = { 0, 0 }; // when started showing\r
  53 static int reset_timing, osd_fps_x;\r
  54 static int combo_keys = 0, combo_acts = 0;      // keys and actions which need button combos\r
  55 static int gp2x_old_gamma = 100;\r
  56 static unsigned char *movie_data = NULL;\r
  57 static int movie_size = 0;\r
  58 static int frame_count = 0;\r
  59 unsigned char *framebuff = 0;  // temporary buffer for alt renderer\r
  60 int state_slot = 0;\r
  61 \r
  62 /*\r
  63 // tmp\r
  64 static FILE *logf = NULL;\r
  65 \r
  66 void pprintf(char *texto, ...)\r
  67 {\r
  68         va_list args;\r
  69 \r
  70         va_start(args,texto);\r
  71         vfprintf(logf,texto,args);\r
  72         va_end(args);\r
  73         fflush(logf);\r
  74         sync();\r
  75 }\r
  76 */\r
  77 // utilities\r
  78 static void strlwr(char* string)\r
  79 {\r
  80         while ( (*string++ = (char)tolower(*string)) );\r
  81 }\r
  82 \r
  83 static int try_rfn_ext(char *ext)\r
  84 {\r
  85         FILE *tmp;\r
  86         char *p;\r
  87 \r
  88         p = romFileName + strlen(romFileName) - 4;\r
  89         if (p < romFileName) p = romFileName;\r
  90         strcpy(p, ext);\r
  91 \r
  92         if((tmp = fopen(romFileName, "rb"))) {\r
  93                 fclose(tmp);\r
  94                 return 1;\r
  95         }\r
  96         return 0;\r
  97 }\r
  98 \r
  99 int emu_ReloadRom(void)\r
 100 {\r
 101         unsigned int rom_size = 0;\r
 102         char ext[5], *p;\r
 103         FILE *rom;\r
 104         int ret;\r
 105 \r
 106         printf("emu_ReloadRom(%s)\n", romFileName);\r
 107 \r
 108         // detect wrong extensions (.srm and .mds)\r
 109         p = romFileName + strlen(romFileName) - 4;\r
 110         if (p < romFileName) p = romFileName;\r
 111         strncpy(ext, p, 4);\r
 112         ext[4] = 0;\r
 113         strlwr(ext);\r
 114 \r
 115         if(!strcmp(ext, ".srm") || !strcmp(ext, "s.gz") || !strcmp(ext, ".mds")) { // s.gz ~ .mds.gz\r
 116                 sprintf(menuErrorMsg, "Not a ROM selected.");\r
 117                 return 0;\r
 118         }\r
 119 \r
 120         // check for movie file\r
 121         if(movie_data) {\r
 122                 free(movie_data);\r
 123                 movie_data = 0;\r
 124         }\r
 125         if(!strcmp(ext, ".gmv")) {\r
 126                 // check for both gmv and rom\r
 127                 int dummy;\r
 128                 FILE *movie_file = fopen(romFileName, "rb");\r
 129                 if(!movie_file) {\r
 130                         sprintf(menuErrorMsg, "Failed to open movie.");\r
 131                         return 0;\r
 132                 }\r
 133                 fseek(movie_file, 0, SEEK_END);\r
 134                 movie_size = ftell(movie_file);\r
 135                 fseek(movie_file, 0, SEEK_SET);\r
 136                 if(movie_size < 64+3) {\r
 137                         sprintf(menuErrorMsg, "Invalid GMV file.");\r
 138                         fclose(movie_file);\r
 139                         return 0;\r
 140                 }\r
 141                 movie_data = malloc(movie_size);\r
 142                 if(movie_data == NULL) {\r
 143                         sprintf(menuErrorMsg, "low memory.");\r
 144                         fclose(movie_file);\r
 145                         return 0;\r
 146                 }\r
 147                 fread(movie_data, 1, movie_size, movie_file);\r
 148                 fclose(movie_file);\r
 149                 if (strncmp((char *)movie_data, "Gens Movie TEST", 15) != 0) {\r
 150                         sprintf(menuErrorMsg, "Invalid GMV file.");\r
 151                         return 0;\r
 152                 }\r
 153                 dummy = try_rfn_ext(".zip") || try_rfn_ext(".bin") ||\r
 154                         try_rfn_ext(".smd") || try_rfn_ext(".gen");\r
 155                 if (!dummy) {\r
 156                         sprintf(menuErrorMsg, "Could't find a ROM for movie.");\r
 157                         return 0;\r
 158                 }\r
 159         }\r
 160 \r
 161         rom = fopen(romFileName, "rb");\r
 162         if(!rom) {\r
 163                 sprintf(menuErrorMsg, "Failed to open rom.");\r
 164                 return 0;\r
 165         }\r
 166 \r
 167         if(rom_data) {\r
 168                 free(rom_data);\r
 169                 rom_data = 0;\r
 170                 rom_size = 0;\r
 171         }\r
 172 \r
 173         // zipfile support\r
 174         if(!strcasecmp(ext, ".zip")) {\r
 175                 fclose(rom);\r
 176                 ret = CartLoadZip(romFileName, &rom_data, &rom_size);\r
 177                 if(ret) {\r
 178                         if (ret == 4) strcpy(menuErrorMsg, "No ROMs in zip found.");\r
 179                         else sprintf(menuErrorMsg, "Unzip failed with code %i", ret);\r
 180                         printf("%s\n", menuErrorMsg);\r
 181                         return 0;\r
 182                 }\r
 183         } else {\r
 184                 if( (ret = PicoCartLoad(rom, &rom_data, &rom_size)) ) {\r
 185                         sprintf(menuErrorMsg, "PicoCartLoad() failed.");\r
 186                         printf("%s\n", menuErrorMsg);\r
 187                         fclose(rom);\r
 188                         return 0;\r
 189                 }\r
 190                 fclose(rom);\r
 191         }\r
 192 \r
 193         // detect wrong files (Pico crashes on very small files), also see if ROM EP is good\r
 194         if(rom_size <= 0x200 || strncmp((char *)rom_data, "Pico", 4) == 0 ||\r
 195           ((*(unsigned short *)(rom_data+4)<<16)|(*(unsigned short *)(rom_data+6))) >= (int)rom_size) {\r
 196                 if (rom_data) free(rom_data);\r
 197                 rom_data = 0;\r
 198                 sprintf(menuErrorMsg, "Not a ROM selected.");\r
 199                 return 0;\r
 200         }\r
 201 \r
 202         printf("PicoCartInsert(%p, %d);\n", rom_data, rom_size);\r
 203         if(PicoCartInsert(rom_data, rom_size)) {\r
 204                 sprintf(menuErrorMsg, "Failed to load ROM.");\r
 205                 return 0;\r
 206         }\r
 207 \r
 208         // load config for this ROM\r
 209         ret = emu_ReadConfig(1);\r
 210         if (!ret)\r
 211                 emu_ReadConfig(0);\r
 212 \r
 213         // emu_ReadConfig() might have messed currentConfig.lastRomFile\r
 214         strncpy(currentConfig.lastRomFile, romFileName, sizeof(currentConfig.lastRomFile)-1);\r
 215         currentConfig.lastRomFile[sizeof(currentConfig.lastRomFile)-1] = 0;\r
 216 \r
 217         // additional movie stuff\r
 218         if(movie_data) {\r
 219                 if(movie_data[0x14] == '6')\r
 220                      PicoOpt |=  0x20; // 6 button pad\r
 221                 else PicoOpt &= ~0x20;\r
 222                 if(movie_data[0xF] >= 'A') {\r
 223                         //Pico.m.pal = movie_data[0x16] >> 7;\r
 224                         // TODO: bits 6 & 5\r
 225                 }\r
 226                 strcpy(noticeMsg, "MOVIE LOADED");\r
 227         }\r
 228         else\r
 229         {\r
 230                 if(Pico.m.pal) {\r
 231                         strcpy(noticeMsg, "PAL SYSTEM / 50 FPS");\r
 232                 } else {\r
 233                         strcpy(noticeMsg, "NTSC SYSTEM / 60 FPS");\r
 234                 }\r
 235         }\r
 236         gettimeofday(&noticeMsgTime, 0);\r
 237 \r
 238         // load SRAM for this ROM\r
 239         if(currentConfig.EmuOpt & 1)\r
 240                 emu_SaveLoadGame(1, 1);\r
 241 \r
 242         frame_count = 0;\r
 243 \r
 244         return 1;\r
 245 }\r
 246 \r
 247 \r
 248 void emu_Init(void)\r
 249 {\r
 250         // make temp buffer for alt renderer\r
 251         framebuff = malloc((8+320)*(8+240+8));\r
 252         if (!framebuff)\r
 253         {\r
 254                 printf("framebuff == 0\n");\r
 255         }\r
 256 \r
 257         PicoInit();\r
 258 \r
 259 //      logf = fopen("log.txt", "w");\r
 260 }\r
 261 \r
 262 \r
 263 static void romfname_ext(char *dst, char *ext)\r
 264 {\r
 265         char *p;\r
 266 \r
 267         // make save filename\r
 268         for (p = romFileName+strlen(romFileName)-1; p >= romFileName && *p != '/'; p--); p++;\r
 269         strncpy(dst, p, 511);\r
 270         dst[511-8] = 0;\r
 271         if(dst[strlen(dst)-4] == '.') dst[strlen(dst)-4] = 0;\r
 272         strcat(dst, ext);\r
 273 }\r
 274 \r
 275 \r
 276 static void find_combos(void)\r
 277 {\r
 278         int act, u;\r
 279 \r
 280         // find out which keys and actions are combos\r
 281         combo_keys = combo_acts = 0;\r
 282         for (act = 0; act < 32; act++)\r
 283         {\r
 284                 int keyc = 0;\r
 285                 if (act == 16) continue; // player2 flag\r
 286                 for (u = 0; u < 32; u++)\r
 287                 {\r
 288                         if (currentConfig.KeyBinds[u] & (1 << act)) keyc++;\r
 289                 }\r
 290                 if (keyc > 1)\r
 291                 {\r
 292                         // loop again and mark those keys and actions as combo\r
 293                         for (u = 0; u < 32; u++)\r
 294                         {\r
 295                                 if (currentConfig.KeyBinds[u] & (1 << act)) {\r
 296                                         combo_keys |= 1 << u;\r
 297                                         combo_acts |= 1 << act;\r
 298                                 }\r
 299                         }\r
 300                 }\r
 301         }\r
 302         // printf("combo keys/acts: %08x %08x\n", combo_keys, combo_acts);\r
 303 }\r
 304 \r
 305 \r
 306 int emu_ReadConfig(int game)\r
 307 {\r
 308         FILE *f;\r
 309         char cfg[512];\r
 310         int bread = 0;\r
 311 \r
 312         if (!game)\r
 313         {\r
 314                 // set default config\r
 315                 memset(&currentConfig, 0, sizeof(currentConfig));\r
 316                 currentConfig.lastRomFile[0] = 0;\r
 317                 currentConfig.EmuOpt  = 0x1f;\r
 318                 currentConfig.PicoOpt = 0x0f;\r
 319                 currentConfig.PsndRate = 22050;\r
 320                 currentConfig.PicoRegion = 0; // auto\r
 321                 currentConfig.Frameskip = -1; // auto\r
 322                 currentConfig.CPUclock = 200;\r
 323                 currentConfig.volume = 50;\r
 324                 currentConfig.KeyBinds[ 0] = 1<<0; // SACB RLDU\r
 325                 currentConfig.KeyBinds[ 4] = 1<<1;\r
 326                 currentConfig.KeyBinds[ 2] = 1<<2;\r
 327                 currentConfig.KeyBinds[ 6] = 1<<3;\r
 328                 currentConfig.KeyBinds[14] = 1<<4;\r
 329                 currentConfig.KeyBinds[13] = 1<<5;\r
 330                 currentConfig.KeyBinds[12] = 1<<6;\r
 331                 currentConfig.KeyBinds[ 8] = 1<<7;\r
 332                 currentConfig.KeyBinds[15] = 1<<26; // switch rend\r
 333                 currentConfig.KeyBinds[10] = 1<<27; // save state\r
 334                 currentConfig.KeyBinds[11] = 1<<28; // load state\r
 335                 currentConfig.KeyBinds[23] = 1<<29; // vol up\r
 336                 currentConfig.KeyBinds[22] = 1<<30; // vol down\r
 337                 currentConfig.gamma = 100;\r
 338                 strncpy(cfg, PicoConfigFile, 511);\r
 339                 cfg[511] = 0;\r
 340         } else {\r
 341                 romfname_ext(cfg, ".pbcfg");\r
 342         }\r
 343 \r
 344         printf("emu_ReadConfig: %s ", cfg);\r
 345         f = fopen(cfg, "rb");\r
 346         if (f) {\r
 347                 bread = fread(&currentConfig, 1, sizeof(currentConfig), f);\r
 348                 fclose(f);\r
 349         }\r
 350         printf((bread == sizeof(currentConfig)) ? "(ok)\n" : "(failed)\n");\r
 351 \r
 352         PicoOpt = currentConfig.PicoOpt;\r
 353         PsndRate = currentConfig.PsndRate;\r
 354         PicoRegionOverride = currentConfig.PicoRegion;\r
 355         if (PicoOpt & 0x20) {\r
 356                 actionNames[ 8] = "Z"; actionNames[ 9] = "Y";\r
 357                 actionNames[10] = "X"; actionNames[11] = "MODE";\r
 358         }\r
 359         // some sanity checks\r
 360         if (currentConfig.CPUclock < 1 || currentConfig.CPUclock > 4096) currentConfig.CPUclock = 200;\r
 361         if (currentConfig.gamma < 10 || currentConfig.gamma > 300) currentConfig.gamma = 100;\r
 362         // if volume keys are unbound, bind them to volume control\r
 363         if (!currentConfig.KeyBinds[23] && !currentConfig.KeyBinds[22]) {\r
 364                 currentConfig.KeyBinds[23] = 1<<29; // vol up\r
 365                 currentConfig.KeyBinds[22] = 1<<30; // vol down\r
 366         }\r
 367 \r
 368         return (bread == sizeof(currentConfig));\r
 369 }\r
 370 \r
 371 \r
 372 int emu_WriteConfig(int game)\r
 373 {\r
 374         FILE *f;\r
 375         char cfg[512];\r
 376         int bwrite = 0;\r
 377 \r
 378         if (!game)\r
 379         {\r
 380                 strncpy(cfg, PicoConfigFile, 511);\r
 381                 cfg[511] = 0;\r
 382         } else {\r
 383                 romfname_ext(cfg, ".pbcfg");\r
 384         }\r
 385 \r
 386         printf("emu_WriteConfig: %s ", cfg);\r
 387         f = fopen(cfg, "wb");\r
 388         if (f) {\r
 389                 currentConfig.PicoOpt = PicoOpt;\r
 390                 currentConfig.PsndRate = PsndRate;\r
 391                 currentConfig.PicoRegion = PicoRegionOverride;\r
 392                 bwrite = fwrite(&currentConfig, 1, sizeof(currentConfig), f);\r
 393                 fflush(f);\r
 394                 fclose(f);\r
 395                 sync();\r
 396         }\r
 397         printf((bwrite == sizeof(currentConfig)) ? "(ok)\n" : "(failed)\n");\r
 398 \r
 399         return (bwrite == sizeof(currentConfig));\r
 400 }\r
 401 \r
 402 \r
 403 void emu_Deinit(void)\r
 404 {\r
 405         // save SRAM\r
 406         if((currentConfig.EmuOpt & 1) && SRam.changed) {\r
 407                 emu_SaveLoadGame(0, 1);\r
 408                 SRam.changed = 0;\r
 409         }\r
 410 \r
 411         if (!(currentConfig.EmuOpt & 0x20))\r
 412                 emu_WriteConfig(0);\r
 413         free(framebuff);\r
 414 \r
 415         PicoExit();\r
 416 //      fclose(logf);\r
 417 \r
 418         // restore gamma\r
 419         if (gp2x_old_gamma != 100)\r
 420                 set_gamma(100);\r
 421 }\r
 422 \r
 423 \r
 424 void osd_text(int x, int y, char *text)\r
 425 {\r
 426         int len = strlen(text)*8;\r
 427 \r
 428         if ((PicoOpt&0x10)||!(currentConfig.EmuOpt&0x80)) {\r
 429                 int *p, i, h, black, white;\r
 430                 if (PicoOpt&0x10) {\r
 431                         black = 0x40404040; white = 0x41;\r
 432                 } else {\r
 433                         black = 0xe0e0e0e0; white = 0xf0;\r
 434                 }\r
 435                 x &= ~3; // align x\r
 436                 len = (len+3) >> 2;\r
 437                 for (h = 0; h < 8; h++) {\r
 438                         p = (int *) ((unsigned char *) gp2x_screen+x+320*(y+h));\r
 439                         for (i = len; i; i--, p++) *p = black;\r
 440                 }\r
 441                 gp2x_text_out8_2(x, y, text, white);\r
 442         } else {\r
 443                 int *p, i, h;\r
 444                 x &= ~1; // align x\r
 445                 len = (len+1) >> 1;\r
 446                 for (h = 0; h < 8; h++) {\r
 447                         p = (int *) ((unsigned short *) gp2x_screen+x+320*(y+h));\r
 448                         for (i = len; i; i--, p++) *p = (*p>>2)&0x39e7;\r
 449                 }\r
 450                 gp2x_text_out15(x, y, text);\r
 451         }\r
 452 }\r
 453 \r
 454 static int EmuScan16(unsigned int num, void *sdata)\r
 455 {\r
 456         if (!(Pico.video.reg[1]&8)) num += 8;\r
 457         DrawLineDest = (unsigned short *) gp2x_screen + 320*(num+1);\r
 458 \r
 459         return 0;\r
 460 }\r
 461 \r
 462 static int EmuScan8(unsigned int num, void *sdata)\r
 463 {\r
 464         if (!(Pico.video.reg[1]&8)) num += 8;\r
 465         DrawLineDest = (unsigned char *)  gp2x_screen + 320*(num+1);\r
 466 \r
 467         return 0;\r
 468 }\r
 469 \r
 470 static int localPal[0x100];\r
 471 static void (*vidCpyM2)(void *dest, void *src) = NULL;\r
 472 \r
 473 static void blit(char *fps, char *notice)\r
 474 {\r
 475         if (PicoOpt&0x10) {\r
 476                 // 8bit fast renderer\r
 477                 if (Pico.m.dirtyPal) {\r
 478                         Pico.m.dirtyPal = 0;\r
 479                         vidConvCpyRGB32(localPal, Pico.cram, 0x40);\r
 480                         // feed new palette to our device\r
 481                         gp2x_video_setpalette(localPal, 0x40);\r
 482                 }\r
 483                 vidCpyM2((unsigned char *)gp2x_screen+320*8, framebuff+328*8);\r
 484         } else if (!(currentConfig.EmuOpt&0x80)) {\r
 485                 // 8bit accurate renderer\r
 486                 if (Pico.m.dirtyPal) {\r
 487                         Pico.m.dirtyPal = 0;\r
 488                         if(Pico.video.reg[0xC]&8) { // shadow/hilight mode\r
 489                                 vidConvCpyRGB32(localPal, Pico.cram, 0x40);\r
 490                                 vidConvCpyRGB32sh(localPal+0x40, Pico.cram, 0x40);\r
 491                                 vidConvCpyRGB32hi(localPal+0x80, Pico.cram, 0x40);\r
 492                                 blockcpy(localPal+0xc0, localPal+0x40, 0x40*4);\r
 493                                 localPal[0xe0] = 0x00000000; // reserved pixels for OSD\r
 494                                 localPal[0xf0] = 0x00ffffff;\r
 495                                 gp2x_video_setpalette(localPal, 0x100);\r
 496                         } else if (rendstatus & 0x20) { // mid-frame palette changes\r
 497                                 vidConvCpyRGB32(localPal, Pico.cram, 0x40);\r
 498                                 vidConvCpyRGB32(localPal+0x40, HighPal, 0x40);\r
 499                                 vidConvCpyRGB32(localPal+0x80, HighPal+0x40, 0x40);\r
 500                                 gp2x_video_setpalette(localPal, 0xc0);\r
 501                         } else {\r
 502                                 vidConvCpyRGB32(localPal, Pico.cram, 0x40);\r
 503                                 gp2x_video_setpalette(localPal, 0x40);\r
 504                         }\r
 505                 }\r
 506         }\r
 507 \r
 508         if (notice) osd_text(4, 232, notice);\r
 509         if (currentConfig.EmuOpt & 2)\r
 510                 osd_text(osd_fps_x, 232, fps);\r
 511 \r
 512         //gp2x_video_wait_vsync();\r
 513         gp2x_video_flip();\r
 514 \r
 515         if (!(PicoOpt&0x10)) {\r
 516                 if (!(Pico.video.reg[1]&8)) {\r
 517                         if (currentConfig.EmuOpt&0x80) {\r
 518                                 DrawLineDest = (unsigned short *) gp2x_screen + 320*8;\r
 519                         } else {\r
 520                                 DrawLineDest = (unsigned char  *) gp2x_screen + 320*8;\r
 521                         }\r
 522                 } else {\r
 523                         DrawLineDest = gp2x_screen;\r
 524                 }\r
 525         }\r
 526 }\r
 527 \r
 528 \r
 529 // clears whole screen or just the notice area (in all buffers)\r
 530 static void clearArea(int full)\r
 531 {\r
 532         if (PicoOpt&0x10) {\r
 533                 // 8bit fast renderer\r
 534                 if (full) gp2x_memset_all_buffers(0, 0x40, 320*240);\r
 535                 else      gp2x_memset_all_buffers(320*232, 0x40, 320*8);\r
 536         } else if (currentConfig.EmuOpt&0x80) {\r
 537                 // 16bit accurate renderer\r
 538                 if (full) gp2x_memset_all_buffers(0, 0, 320*240*2);\r
 539                 else      gp2x_memset_all_buffers(320*232*2, 0, 320*8*2);\r
 540         } else {\r
 541                 // 8bit accurate renderer\r
 542                 if (full) gp2x_memset_all_buffers(0, 0xe0, 320*240);\r
 543                 else      gp2x_memset_all_buffers(320*232, 0xe0, 320*8);\r
 544         }\r
 545 }\r
 546 \r
 547 \r
 548 static void vidResetMode(void)\r
 549 {\r
 550         if (PicoOpt&0x10) {\r
 551                 localPal[0x40] = 0;\r
 552                 localPal[0x41] = 0x00ffffff;\r
 553                 gp2x_video_changemode(8);\r
 554                 gp2x_video_setpalette(localPal, 0x42);\r
 555                 gp2x_memset_all_buffers(0, 0x40, 320*240);\r
 556                 gp2x_video_flip();\r
 557         } else if (currentConfig.EmuOpt&0x80) {\r
 558                 gp2x_video_changemode(15);\r
 559                 PicoDrawSetColorFormat(1);\r
 560                 PicoScan = EmuScan16;\r
 561                 PicoScan(0, 0);\r
 562         } else {\r
 563                 localPal[0xe0] = 0x00000000; // reserved pixels for OSD\r
 564                 localPal[0xf0] = 0x00ffffff;\r
 565                 gp2x_video_changemode(8);\r
 566                 gp2x_video_setpalette(localPal, 0x100);\r
 567                 gp2x_memset_all_buffers(0, 0xe0, 320*240);\r
 568                 gp2x_video_flip();\r
 569                 PicoDrawSetColorFormat(2);\r
 570                 PicoScan = EmuScan8;\r
 571                 PicoScan(0, 0);\r
 572         }\r
 573         Pico.m.dirtyPal = 1;\r
 574         // reset scaling\r
 575         gp2x_video_RGB_setscaling((PicoOpt&0x100)&&!(Pico.video.reg[12]&1) ? 256 : 320, 240);\r
 576 }\r
 577 \r
 578 \r
 579 static int check_save_file(void)\r
 580 {\r
 581         char saveFname[512];\r
 582         char ext[16];\r
 583         FILE *f;\r
 584 \r
 585         ext[0] = 0;\r
 586         if(state_slot > 0 && state_slot < 10) sprintf(ext, ".%i", state_slot);\r
 587         strcat(ext, ".mds");\r
 588         if(currentConfig.EmuOpt & 8) strcat(ext, ".gz");\r
 589 \r
 590         romfname_ext(saveFname, ext);\r
 591         if ((f = fopen(saveFname, "rb"))) {\r
 592                 fclose(f);\r
 593                 return 1;\r
 594         }\r
 595         return 0;\r
 596 }\r
 597 \r
 598 static void RunEvents(unsigned int which)\r
 599 {\r
 600         if(which & 0x1800) { // save or load (but not both)\r
 601                 int do_it = 1;\r
 602                 if (!(which & 0x1000) && (currentConfig.EmuOpt & 0x200) && check_save_file()) {\r
 603                         unsigned long keys;\r
 604                         blit("", "OVERWRITE SAVE? (Y=yes, X=no)");\r
 605                         while( !((keys = gp2x_joystick_read(1)) & (GP2X_X|GP2X_Y)) )\r
 606                                 usleep(50*1024);\r
 607                         if (keys & GP2X_X) do_it = 0;\r
 608                         clearArea(0);\r
 609                 }\r
 610                 if (do_it) {\r
 611                         blit("", (which & 0x1000) ? "LOADING GAME" : "SAVING GAME");\r
 612                         emu_SaveLoadGame(which & 0x1000, 0);\r
 613                 }\r
 614 \r
 615                 reset_timing = 1;\r
 616         }\r
 617         if(which & 0x0400) { // switch renderer\r
 618                 if      (  PicoOpt&0x10)             { PicoOpt&=~0x10; currentConfig.EmuOpt |= 0x80; }\r
 619                 else if (!(currentConfig.EmuOpt&0x80)) PicoOpt|= 0x10;\r
 620                 else   currentConfig.EmuOpt &= ~0x80;\r
 621 \r
 622                 vidResetMode();\r
 623 \r
 624                 if (PicoOpt&0x10) {\r
 625                         strcpy(noticeMsg, " 8bit fast renderer");\r
 626                 } else if (currentConfig.EmuOpt&0x80) {\r
 627                         strcpy(noticeMsg, "16bit accurate renderer");\r
 628                 } else {\r
 629                         strcpy(noticeMsg, " 8bit accurate renderer");\r
 630                 }\r
 631 \r
 632                 gettimeofday(&noticeMsgTime, 0);\r
 633         }\r
 634         if(which & 0x0300) {\r
 635                 if(which&0x0200) {\r
 636                         state_slot -= 1;\r
 637                         if(state_slot < 0) state_slot = 9;\r
 638                 } else {\r
 639                         state_slot += 1;\r
 640                         if(state_slot > 9) state_slot = 0;\r
 641                 }\r
 642                 sprintf(noticeMsg, "SAVE SLOT %i [%s]", state_slot, check_save_file() ? "USED" : "FREE");\r
 643                 gettimeofday(&noticeMsgTime, 0);\r
 644         }\r
 645         if(which & 0x0080) {\r
 646                 engineState = PGS_Menu;\r
 647         }\r
 648 }\r
 649 \r
 650 \r
 651 static void updateKeys(void)\r
 652 {\r
 653         unsigned long keys, allActions[2] = { 0, 0 }, events;\r
 654         static unsigned long prevEvents = 0;\r
 655         int joy, i;\r
 656 \r
 657         keys = gp2x_joystick_read(0);\r
 658         if (keys & GP2X_SELECT) {\r
 659                 engineState = select_exits ? PGS_Quit : PGS_Menu;\r
 660                 // wait until select is released, so menu would not resume game\r
 661                 while (gp2x_joystick_read(1) & GP2X_SELECT) usleep(50*1000);\r
 662         }\r
 663 \r
 664         keys &= CONFIGURABLE_KEYS;\r
 665 \r
 666         for (i = 0; i < 32; i++)\r
 667         {\r
 668                 if (keys & (1 << i)) {\r
 669                         int pl, acts = currentConfig.KeyBinds[i];\r
 670                         if (!acts) continue;\r
 671                         pl = (acts >> 16) & 1;\r
 672                         if (combo_keys & (1 << i)) {\r
 673                                 int u = i+1, acts_c = acts & combo_acts;\r
 674                                 // let's try to find the other one\r
 675                                 if (acts_c)\r
 676                                         for (; u < 32; u++)\r
 677                                                 if ( (currentConfig.KeyBinds[u] & acts_c) && (keys & (1 << u)) ) {\r
 678                                                         allActions[pl] |= acts_c;\r
 679                                                         keys &= ~((1 << i) | (1 << u));\r
 680                                                         break;\r
 681                                                 }\r
 682                                 // add non-combo actions if combo ones were not found\r
 683                                 if (!acts_c || u == 32)\r
 684                                         allActions[pl] |= acts & ~combo_acts;\r
 685                         } else {\r
 686                                 allActions[pl] |= acts;\r
 687                         }\r
 688                 }\r
 689         }\r
 690 \r
 691         // add joy inputs\r
 692         if (num_of_joys > 0)\r
 693         {\r
 694                 gp2x_usbjoy_update();\r
 695                 for (joy = 0; joy < num_of_joys; joy++) {\r
 696                         int keys = gp2x_usbjoy_check2(joy);\r
 697                         for (i = 0; i < 32; i++) {\r
 698                                 if (keys & (1 << i)) {\r
 699                                         int acts = currentConfig.JoyBinds[joy][i];\r
 700                                         int pl = (acts >> 16) & 1;\r
 701                                         allActions[pl] |= acts;\r
 702                                 }\r
 703                         }\r
 704                 }\r
 705         }\r
 706 \r
 707         if(movie_data)\r
 708         {\r
 709                 int offs = frame_count*3 + 0x40;\r
 710                 if (offs+3 > movie_size) {\r
 711                         free(movie_data);\r
 712                         movie_data = 0;\r
 713                         strcpy(noticeMsg, "END OF MOVIE.");\r
 714                         printf("END OF MOVIE.\n");\r
 715                         gettimeofday(&noticeMsgTime, 0);\r
 716                 } else {\r
 717                         // MXYZ SACB RLDU\r
 718                         PicoPad[0] = ~movie_data[offs]   & 0x8f; // ! SCBA RLDU\r
 719                         if(!(movie_data[offs]   & 0x10)) PicoPad[0] |= 0x40; // A\r
 720                         if(!(movie_data[offs]   & 0x20)) PicoPad[0] |= 0x10; // B\r
 721                         if(!(movie_data[offs]   & 0x40)) PicoPad[0] |= 0x20; // A\r
 722                         PicoPad[1] = ~movie_data[offs+1] & 0x8f; // ! SCBA RLDU\r
 723                         if(!(movie_data[offs+1] & 0x10)) PicoPad[1] |= 0x40; // A\r
 724                         if(!(movie_data[offs+1] & 0x20)) PicoPad[1] |= 0x10; // B\r
 725                         if(!(movie_data[offs+1] & 0x40)) PicoPad[1] |= 0x20; // A\r
 726                         PicoPad[0] |= (~movie_data[offs+2] & 0x0A) << 8; // ! MZYX\r
 727                         if(!(movie_data[offs+2] & 0x01)) PicoPad[0] |= 0x0400; // X\r
 728                         if(!(movie_data[offs+2] & 0x04)) PicoPad[0] |= 0x0100; // Z\r
 729                         PicoPad[1] |= (~movie_data[offs+2] & 0xA0) << 4; // ! MZYX\r
 730                         if(!(movie_data[offs+2] & 0x10)) PicoPad[1] |= 0x0400; // X\r
 731                         if(!(movie_data[offs+2] & 0x40)) PicoPad[1] |= 0x0100; // Z\r
 732                         if ((PicoPad[0] & 0x80) || (PicoPad[1] & 0x80))\r
 733                                 printf("%d: start\n", frame_count);\r
 734                 }\r
 735         }\r
 736         else\r
 737         {\r
 738                 PicoPad[0] = (unsigned short) allActions[0];\r
 739                 PicoPad[1] = (unsigned short) allActions[1];\r
 740         }\r
 741         frame_count++;\r
 742 \r
 743         events = (allActions[0] | allActions[1]) >> 16;\r
 744 \r
 745         // volume is treated in special way and triggered every frame\r
 746         if(events & 0x6000) {\r
 747                 int vol = currentConfig.volume;\r
 748                 if (events & 0x2000) {\r
 749                         if (vol < 90) vol++;\r
 750                 } else {\r
 751                         if (vol >  0) vol--;\r
 752                 }\r
 753                 gp2x_sound_volume(vol, vol);\r
 754                 sprintf(noticeMsg, "VOL: %02i", vol);\r
 755                 gettimeofday(&noticeMsgTime, 0);\r
 756                 currentConfig.volume = vol;\r
 757         }\r
 758 \r
 759         events &= ~prevEvents;\r
 760         if (events) RunEvents(events);\r
 761 \r
 762         prevEvents = (allActions[0] | allActions[1]) >> 16;\r
 763 }\r
 764 \r
 765 static int snd_excess_add = 0, snd_excess_cnt = 0; // hack\r
 766 \r
 767 static void updateSound(void)\r
 768 {\r
 769         int len = (PicoOpt&8)?PsndLen*2:PsndLen;\r
 770 \r
 771         snd_excess_cnt += snd_excess_add;\r
 772         if (snd_excess_cnt >= 0x10000) {\r
 773                 snd_excess_cnt -= 0x10000;\r
 774                 if (PicoOpt&8) {\r
 775                         PsndOut[len]   = PsndOut[len-2];\r
 776                         PsndOut[len+1] = PsndOut[len-1];\r
 777                         len+=2;\r
 778                 } else {\r
 779                         PsndOut[len]   = PsndOut[len-1];\r
 780                         len++;\r
 781                 }\r
 782         }\r
 783 \r
 784         gp2x_sound_write(PsndOut, len<<1);\r
 785 }\r
 786 \r
 787 \r
 788 static void SkipFrame(int do_sound)\r
 789 {\r
 790         void *sndbuff_tmp = 0;\r
 791         if (PsndOut && !do_sound) {\r
 792                 sndbuff_tmp = PsndOut;\r
 793                 PsndOut = 0;\r
 794         }\r
 795 \r
 796         PicoSkipFrame=1;\r
 797         PicoFrame();\r
 798         PicoSkipFrame=0;\r
 799 \r
 800         if (sndbuff_tmp && !do_sound) {\r
 801                 PsndOut = sndbuff_tmp;\r
 802         }\r
 803 }\r
 804 \r
 805 \r
 806 static void simpleWait(int thissec, int lim_time)\r
 807 {\r
 808         struct timeval tval;\r
 809 \r
 810         spend_cycles(1024);\r
 811         gettimeofday(&tval, 0);\r
 812         if(thissec != tval.tv_sec) tval.tv_usec+=1000000;\r
 813 \r
 814         while(tval.tv_usec < lim_time)\r
 815         {\r
 816                 spend_cycles(1024);\r
 817                 gettimeofday(&tval, 0);\r
 818                 if(thissec != tval.tv_sec) tval.tv_usec+=1000000;\r
 819         }\r
 820 }\r
 821 \r
 822 \r
 823 void emu_Loop(void)\r
 824 {\r
 825         static int gp2x_old_clock = 200;\r
 826         static int PsndRate_old = 0, PicoOpt_old = 0, PsndLen_real = 0, pal_old = 0;\r
 827         char fpsbuff[24]; // fps count c string\r
 828         struct timeval tval; // timing\r
 829         int thissec = 0, frames_done = 0, frames_shown = 0, oldmodes = 0;\r
 830         int target_fps, target_frametime, lim_time, i;\r
 831         char *notice = 0;\r
 832 \r
 833         printf("entered emu_Loop()\n");\r
 834 \r
 835         if (gp2x_old_clock != currentConfig.CPUclock) {\r
 836                 printf("changing clock to %i...", currentConfig.CPUclock); fflush(stdout);\r
 837                 set_FCLK(currentConfig.CPUclock);\r
 838                 gp2x_old_clock = currentConfig.CPUclock;\r
 839                 printf(" done\n");\r
 840         }\r
 841 \r
 842         if (gp2x_old_gamma != currentConfig.gamma) {\r
 843                 set_gamma(currentConfig.gamma);\r
 844                 gp2x_old_gamma = currentConfig.gamma;\r
 845                 printf("updated gamma to %i\n", currentConfig.gamma);\r
 846         }\r
 847 \r
 848         fpsbuff[0] = 0;\r
 849 \r
 850         // make sure we are in correct mode\r
 851         vidResetMode();\r
 852         oldmodes = ((Pico.video.reg[12]&1)<<2) ^ 0xc;\r
 853         find_combos();\r
 854 \r
 855         // pal/ntsc might have changed, reset related stuff\r
 856         target_fps = Pico.m.pal ? 50 : 60;\r
 857         target_frametime = 1000000/target_fps;\r
 858         reset_timing = 1;\r
 859 \r
 860         // prepare sound stuff\r
 861         if(currentConfig.EmuOpt & 4) {\r
 862                 if(PsndRate != PsndRate_old || (PicoOpt&0x20b) != (PicoOpt_old&0x20b) || Pico.m.pal != pal_old || crashed_940) {\r
 863                         /* if 940 is turned off, we need it to be put back to sleep */\r
 864                         if (!(PicoOpt&0x200) && ((PicoOpt^PicoOpt_old)&0x200)) {\r
 865                                 Reset940(1);\r
 866                                 Pause940(1);\r
 867                         }\r
 868                         sound_rerate();\r
 869                 }\r
 870                 //excess_samples = PsndRate - PsndLen*target_fps;\r
 871                 snd_excess_cnt = 0;\r
 872                 snd_excess_add = ((PsndRate - PsndLen*target_fps)<<16) / target_fps;\r
 873                 printf("starting audio: %i len: %i (ex: %04x) stereo: %i, pal: %i\n", PsndRate, PsndLen, snd_excess_add, (PicoOpt&8)>>3, Pico.m.pal);\r
 874                 gp2x_start_sound(PsndRate, 16, (PicoOpt&8)>>3);\r
 875                 gp2x_sound_volume(currentConfig.volume, currentConfig.volume);\r
 876                 PicoWriteSound = updateSound;\r
 877                 PsndOut = calloc((PicoOpt&8) ? (PsndLen*4+4) : (PsndLen*2+2), 1);\r
 878                 PsndRate_old = PsndRate;\r
 879                 PsndLen_real = PsndLen;\r
 880                 PicoOpt_old  = PicoOpt;\r
 881                 pal_old = Pico.m.pal;\r
 882         } else {\r
 883                 PsndOut = 0;\r
 884         }\r
 885 \r
 886         // loop?\r
 887         while (engineState == PGS_Running)\r
 888         {\r
 889                 int modes;\r
 890 \r
 891                 gettimeofday(&tval, 0);\r
 892                 if(reset_timing) {\r
 893                         reset_timing = 0;\r
 894                         thissec = tval.tv_sec;\r
 895                         frames_shown = frames_done = tval.tv_usec/target_frametime;\r
 896                 }\r
 897 \r
 898                 // show notice message?\r
 899                 if(noticeMsgTime.tv_sec) {\r
 900                         static int noticeMsgSum;\r
 901                         if((tval.tv_sec*1000000+tval.tv_usec) - (noticeMsgTime.tv_sec*1000000+noticeMsgTime.tv_usec) > 2000000) { // > 2.0 sec\r
 902                                 noticeMsgTime.tv_sec = noticeMsgTime.tv_usec = 0;\r
 903                                 clearArea(0);\r
 904                                 notice = 0;\r
 905                         } else {\r
 906                                 int sum = noticeMsg[0]+noticeMsg[1]+noticeMsg[2];\r
 907                                 if (sum != noticeMsgSum) { clearArea(0); noticeMsgSum = sum; }\r
 908                                 notice = noticeMsg;\r
 909                         }\r
 910                 }\r
 911 \r
 912                 // check for mode changes\r
 913                 modes = ((Pico.video.reg[12]&1)<<2)|(Pico.video.reg[1]&8);\r
 914                 if (modes != oldmodes) {\r
 915                         int scalex = 320;\r
 916                         osd_fps_x = OSD_FPS_X;\r
 917                         if (modes & 4) {\r
 918                                 vidCpyM2 = vidCpyM2_40col;\r
 919                         } else {\r
 920                                 if (PicoOpt & 0x100) {\r
 921                                         vidCpyM2 = vidCpyM2_32col_nobord;\r
 922                                         scalex = 256;\r
 923                                         osd_fps_x = OSD_FPS_X - 64;\r
 924                                 } else {\r
 925                                         vidCpyM2 = vidCpyM2_32col;\r
 926                                 }\r
 927                         }\r
 928                         gp2x_video_RGB_setscaling(scalex, 240);\r
 929                         oldmodes = modes;\r
 930                         clearArea(1);\r
 931                 }\r
 932 \r
 933                 // second changed?\r
 934                 if(thissec != tval.tv_sec) {\r
 935 #ifdef BENCHMARK\r
 936                         static int bench = 0, bench_fps = 0, bench_fps_s = 0, bfp = 0, bf[4];\r
 937                         if(++bench == 10) {\r
 938                                 bench = 0;\r
 939                                 bench_fps_s = bench_fps;\r
 940                                 bf[bfp++ & 3] = bench_fps;\r
 941                                 bench_fps = 0;\r
 942                         }\r
 943                         bench_fps += frames_shown;\r
 944                         sprintf(fpsbuff, "%02i/%02i/%02i", frames_shown, bench_fps_s, (bf[0]+bf[1]+bf[2]+bf[3])>>2);\r
 945 #else\r
 946                         if(currentConfig.EmuOpt & 2)\r
 947                                 sprintf(fpsbuff, "%02i/%02i", frames_shown, frames_done);\r
 948 #endif\r
 949                         thissec = tval.tv_sec;\r
 950 \r
 951                         if(PsndOut == 0 && currentConfig.Frameskip >= 0) {\r
 952                                 frames_done = frames_shown = 0;\r
 953                         } else {\r
 954                                 // it is quite common for this implementation to leave 1 fame unfinished\r
 955                                 // when second changes, but we don't want buffer to starve.\r
 956                                 if(PsndOut && frames_done < target_fps && frames_done > target_fps-5) {\r
 957                                         updateKeys();\r
 958                                         SkipFrame(1); frames_done++;\r
 959                                 }\r
 960 \r
 961                                 frames_done  -= target_fps; if (frames_done  < 0) frames_done  = 0;\r
 962                                 frames_shown -= target_fps; if (frames_shown < 0) frames_shown = 0;\r
 963                                 if (frames_shown > frames_done) frames_shown = frames_done;\r
 964                         }\r
 965                 }\r
 966 \r
 967                 lim_time = (frames_done+1) * target_frametime;\r
 968                 if(currentConfig.Frameskip >= 0) { // frameskip enabled\r
 969                         for(i = 0; i < currentConfig.Frameskip; i++) {\r
 970                                 updateKeys();\r
 971                                 SkipFrame(1); frames_done++;\r
 972                                 if (PsndOut) { // do framelimitting if sound is enabled\r
 973                                         gettimeofday(&tval, 0);\r
 974                                         if(thissec != tval.tv_sec) tval.tv_usec+=1000000;\r
 975                                         if(tval.tv_usec < lim_time) { // we are too fast\r
 976                                                 simpleWait(thissec, lim_time);\r
 977                                         }\r
 978                                 }\r
 979                                 lim_time += target_frametime;\r
 980                         }\r
 981                 } else if(tval.tv_usec > lim_time) { // auto frameskip\r
 982                         // no time left for this frame - skip\r
 983                         updateKeys();\r
 984                         SkipFrame(tval.tv_usec < lim_time+target_frametime); frames_done++;\r
 985                         continue;\r
 986                 }\r
 987 \r
 988                 updateKeys();\r
 989                 PicoFrame();\r
 990 \r
 991                 // check time\r
 992                 gettimeofday(&tval, 0);\r
 993                 if(thissec != tval.tv_sec) tval.tv_usec+=1000000;\r
 994 \r
 995                 // sleep if we are still too fast\r
 996                 if(PsndOut != 0 || currentConfig.Frameskip < 0)\r
 997                 {\r
 998                         // usleep sleeps for ~20ms minimum, so it is not a solution here\r
 999                         gettimeofday(&tval, 0);\r
1000                         if(thissec != tval.tv_sec) tval.tv_usec+=1000000;\r
1001                         if(tval.tv_usec < lim_time)\r
1002                         {\r
1003                                 // we are too fast\r
1004                                 simpleWait(thissec, lim_time);\r
1005                         }\r
1006                 }\r
1007 \r
1008                 blit(fpsbuff, notice);\r
1009 \r
1010                 frames_done++; frames_shown++;\r
1011         }\r
1012 \r
1013         // save SRAM\r
1014         if((currentConfig.EmuOpt & 1) && SRam.changed) {\r
1015                 emu_SaveLoadGame(0, 1);\r
1016                 SRam.changed = 0;\r
1017         }\r
1018 \r
1019         if (PsndOut != 0) {\r
1020                 free(PsndOut);\r
1021                 PsndOut = 0;\r
1022         }\r
1023 }\r
1024 \r
1025 \r
1026 void emu_ResetGame(void)\r
1027 {\r
1028         PicoReset(0);\r
1029         reset_timing = 1;\r
1030 }\r
1031 \r
1032 \r
1033 size_t gzRead2(void *p, size_t _size, size_t _n, void *file)\r
1034 {\r
1035         return gzread(file, p, _n);\r
1036 }\r
1037 \r
1038 \r
1039 size_t gzWrite2(void *p, size_t _size, size_t _n, void *file)\r
1040 {\r
1041         return gzwrite(file, p, _n);\r
1042 }\r
1043 \r
1044 typedef unsigned int (*STATE_SL_FUNC)(void *, unsigned int, unsigned int, void *);\r
1045 \r
1046 int emu_SaveLoadGame(int load, int sram)\r
1047 {\r
1048         int ret = 0;\r
1049         char saveFname[512];\r
1050 \r
1051         // make save filename\r
1052         romfname_ext(saveFname, "");\r
1053         if(sram) strcat(saveFname, ".srm");\r
1054         else {\r
1055                 if(state_slot > 0 && state_slot < 10) sprintf(saveFname, "%s.%i", saveFname, state_slot);\r
1056                 strcat(saveFname, ".mds");\r
1057         }\r
1058 \r
1059         printf("saveLoad (%i, %i): %s\n", load, sram, saveFname);\r
1060 \r
1061         if(sram) {\r
1062                 FILE *sramFile;\r
1063                 int sram_size = SRam.end-SRam.start+1;\r
1064                 if(SRam.reg_back & 4) sram_size=0x2000;\r
1065                 if(!SRam.data) return 0; // SRam forcefully disabled for this game\r
1066                 if(load) {\r
1067                         sramFile = fopen(saveFname, "rb");\r
1068                         if(!sramFile) return -1;\r
1069                         fread(SRam.data, 1, sram_size, sramFile);\r
1070                         fclose(sramFile);\r
1071                 } else {\r
1072                         // sram save needs some special processing\r
1073                         // see if we have anything to save\r
1074                         for(; sram_size > 0; sram_size--)\r
1075                                 if(SRam.data[sram_size-1]) break;\r
1076 \r
1077                         if(sram_size) {\r
1078                                 sramFile = fopen(saveFname, "wb");\r
1079                                 ret = fwrite(SRam.data, 1, sram_size, sramFile);\r
1080                                 ret = (ret != sram_size) ? -1 : 0;\r
1081                                 fclose(sramFile);\r
1082                                 sync();\r
1083                         }\r
1084                 }\r
1085                 return ret;\r
1086         } else {\r
1087                 void *PmovFile = NULL;\r
1088                 // try gzip first\r
1089                 if(currentConfig.EmuOpt & 8) {\r
1090                         strcat(saveFname, ".gz");\r
1091                         if( (PmovFile = gzopen(saveFname, load ? "rb" : "wb")) ) {\r
1092                                 areaRead  = gzRead2;\r
1093                                 areaWrite = gzWrite2;\r
1094                                 if(!load) gzsetparams(PmovFile, 9, Z_DEFAULT_STRATEGY);\r
1095                         } else\r
1096                                 saveFname[strlen(saveFname)-3] = 0;\r
1097                 }\r
1098                 if(!PmovFile) { // gzip failed or was disabled\r
1099                         if( (PmovFile = fopen(saveFname, load ? "rb" : "wb")) ) {\r
1100                                 areaRead  = (STATE_SL_FUNC) fread;\r
1101                                 areaWrite = (STATE_SL_FUNC) fwrite;\r
1102                         }\r
1103                 }\r
1104                 if(PmovFile) {\r
1105                         PmovState(load ? 6 : 5, PmovFile);\r
1106                         strcpy(noticeMsg, load ? "GAME LOADED  " : "GAME SAVED   ");\r
1107                         if(areaRead == gzRead2)\r
1108                                  gzclose(PmovFile);\r
1109                         else fclose ((FILE *) PmovFile);\r
1110                         PmovFile = 0;\r
1111                         if (!load) sync();\r
1112                         else Pico.m.dirtyPal=1;\r
1113                 } else {\r
1114                         strcpy(noticeMsg, load ? "LOAD FAILED  " : "SAVE FAILED  ");\r
1115                         ret = -1;\r
1116                 }\r
1117 \r
1118                 gettimeofday(&noticeMsgTime, 0);\r
1119                 return ret;\r
1120         }\r
1121 }\r