fce.c

   1 /* FCE Ultra - NES/Famicom Emulator
   2  *
   3  * Copyright notice for this file:
   4  *  Copyright (C) 1998 BERO
   5  *  Copyright (C) 2002 Ben Parnell
   6  *
   7  * This program is free software; you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 2 of the License, or
  10  * (at your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with this program; if not, write to the Free Software
  19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20  */
  21
  22 #include        <string.h>
  23 #include        <stdio.h>
  24 #include        <stdlib.h>
  25
  26 #include        "types.h"
  27 #include        "x6502.h"
  28 #include        "fce.h"
  29 #include        "sound.h"
  30 #include        "svga.h"
  31 #include        "netplay.h"
  32 #include        "general.h"
  33 #include        "endian.h"
  34 #include        "version.h"
  35 #include        "memory.h"
  36
  37 #include        "cart.h"
  38 #include        "nsf.h"
  39 #include        "fds.h"
  40 #include        "ines.h"
  41 #include        "unif.h"
  42 #include        "cheat.h"
  43
  44 #include        "state.h"
  45 #include        "video.h"
  46 #include        "input.h"
  47 #include        "file.h"
  48 #include        "crc32.h"
  49 #include        "ppu.h"
  50
  51 #include        "movie.h"
  52
  53 #include        "dprintf.h"
  54
  55 #define Pal     (PALRAM)
  56
  57
  58 static void (*RefreshLine)(uint8 *P, uint32 vofs) = NULL;
  59 static void PRefreshLine(void);
  60
  61 static void ResetPPU(void);
  62 static void PowerPPU(void);
  63
  64 uint64 timestampbase=0;
  65
  66 static int ppudead=1;
  67 static int kook=0;
  68
  69 int MMC5Hack;
  70 uint32 MMC5HackVROMMask;
  71 uint8 *MMC5HackExNTARAMPtr;
  72 uint8 *MMC5HackVROMPTR;
  73 uint8 MMC5HackCHRMode=0;
  74 uint8 MMC5HackSPMode;
  75 uint8 MMC5HackSPScroll;
  76 uint8 MMC5HackSPPage;
  77
  78 uint8 *MMC5SPRVPage[8];
  79 uint8 *MMC5BGVPage[8];
  80
  81
  82 uint8 VRAMBuffer,PPUGenLatch;
  83
  84 uint8 *vnapage[4];
  85 uint8 PPUNTARAM;
  86 uint8 PPUCHRRAM;
  87
  88 /* Color deemphasis emulation.  Joy... */
  89 static uint8 deemp=0;
  90 static int deempcnt[8];
  91
  92 int tosprite=256;
  93
  94 FCEUGI FCEUGameInfo;
  95 void (*GameInterface)(int h);
  96
  97 void FP_FASTAPASS(1) (*PPU_hook)(uint32 A);
  98
  99 void (*GameStateRestore)(int version);
 100 void (*GameHBIRQHook)(void);
 101
 102 readfunc ARead[0x10000];
 103 writefunc BWrite[0x10000];
 104 static readfunc *AReadG;
 105 static writefunc *BWriteG;
 106 static int RWWrap=0;
 107
 108 #ifdef ASM_6502
 109 static void asmcpu_update(int32 cycles)
 110 {
 111  // some code from x6502.c
 112  fhcnt-=cycles;
 113  if(fhcnt<=0)
 114  {
 115   FrameSoundUpdate();
 116   fhcnt+=fhinc;
 117  }
 118
 119  if(PCMIRQCount>0)
 120  {
 121   PCMIRQCount-=cycles;
 122   if(PCMIRQCount<=0)
 123   {
 124    vdis=1;
 125    if((PSG[0x10]&0x80) && !(PSG[0x10]&0x40))
 126    {
 127     extern uint8 SIRQStat;
 128     SIRQStat|=0x80;
 129     X6502_IRQBegin(FCEU_IQDPCM);
 130    }
 131   }
 132  }
 133 }
 134
 135 void asmcpu_unpack(void)
 136 {
 137         nes_registers[0] = X.A << 24;
 138         nes_registers[1] = X.X;
 139         nes_registers[2] = X.Y;
 140         pc_base = 0;
 141         nes_registers[3] = X.PC;
 142         X6502_Rebase_a();
 143         nes_registers[4] = X.S << 24;
 144         nes_registers[4]|= X.IRQlow << 8;
 145         nes_registers[7] = (uint32)X.count << 16;
 146
 147         // NVUB DIZC
 148         nes_registers[4]|= X.P & 0x5d;
 149         nes_registers[5] = X.P << 24; // N
 150         if (!(X.P&0x02)) nes_registers[5] |= 1; // Z
 151 }
 152
 153 void asmcpu_pack(void)
 154 {
 155         X.A = nes_registers[0] >> 24;
 156         X.X = nes_registers[1];
 157         X.Y = nes_registers[2];
 158         X.PC= nes_registers[3] - pc_base;
 159         X.S = nes_registers[4] >> 24;
 160         X.IRQlow = nes_registers[4] >> 8;
 161         X.count = (int32) nes_registers[7] >> 16;
 162
 163         // NVUB DIZC
 164         X.P = nes_registers[4] & 0x5d;
 165         if (  nes_registers[5]&0x80000000)  X.P |= 0x80; // N
 166         if (!(nes_registers[5]&0x000000ff)) X.P |= 0x02; // Z
 167 }
 168 #endif
 169
 170 DECLFW(BNull)
 171 {
 172
 173 }
 174
 175 DECLFR(ANull)
 176 {
 177  return(X.DB);
 178 }
 179
 180 int AllocGenieRW(void)
 181 {
 182  if(!(AReadG=FCEU_malloc(0x8000*sizeof(readfunc))))
 183   return 0;
 184  if(!(BWriteG=FCEU_malloc(0x8000*sizeof(writefunc))))
 185   return 0;
 186  RWWrap=1;
 187  return 1;
 188 }
 189
 190 void FlushGenieRW(void)
 191 {
 192  int32 x;
 193
 194  if(RWWrap)
 195  {
 196   for(x=0;x<0x8000;x++)
 197   {
 198    ARead[x+0x8000]=AReadG[x];
 199    BWrite[x+0x8000]=BWriteG[x];
 200   }
 201   free(AReadG);
 202   free(BWriteG);
 203   AReadG=0;
 204   BWriteG=0;
 205   RWWrap=0;
 206  }
 207 }
 208
 209 readfunc FASTAPASS(1) GetReadHandler(int32 a)
 210 {
 211   if(a>=0x8000 && RWWrap)
 212    return AReadG[a-0x8000];
 213   else
 214    return ARead[a];
 215 }
 216
 217 void FASTAPASS(3) SetReadHandler(int32 start, int32 end, readfunc func)
 218 {
 219   int32 x;
 220
 221   if(!func)
 222    func=ANull;
 223
 224   if(RWWrap)
 225    for(x=end;x>=start;x--)
 226    {
 227     if(x>=0x8000)
 228      AReadG[x-0x8000]=func;
 229     else
 230      ARead[x]=func;
 231    }
 232   else
 233
 234    for(x=end;x>=start;x--)
 235     ARead[x]=func;
 236 }
 237
 238 writefunc FASTAPASS(1) GetWriteHandler(int32 a)
 239 {
 240   if(RWWrap && a>=0x8000)
 241    return BWriteG[a-0x8000];
 242   else
 243    return BWrite[a];
 244 }
 245
 246 void FASTAPASS(3) SetWriteHandler(int32 start, int32 end, writefunc func)
 247 {
 248   int32 x;
 249
 250   if(!func)
 251    func=BNull;
 252
 253   if(RWWrap)
 254    for(x=end;x>=start;x--)
 255    {
 256     if(x>=0x8000)
 257      BWriteG[x-0x8000]=func;
 258     else
 259      BWrite[x]=func;
 260    }
 261   else
 262    for(x=end;x>=start;x--)
 263     BWrite[x]=func;
 264 }
 265
 266 uint8 vtoggle=0;
 267 uint8 XOffset=0;
 268
 269 uint32 TempAddr,RefreshAddr;
 270
 271
 272 /* scanline is equal to the current visible scanline we're on. */
 273
 274 int scanline;
 275
 276 uint8 GameMemBlock[131072] __attribute__ ((aligned (4)));
 277 uint8 NTARAM[0x800] __attribute__ ((aligned (4)));
 278 uint8 PALRAM[0x20] __attribute__ ((aligned (4)));
 279 #if !defined(ASM_6502) || defined(DEBUG_ASM_6502)
 280 uint8 RAM[0x800] __attribute__ ((aligned (4)));
 281 #endif
 282
 283 uint8 PPU[4];
 284 uint8 PPUSPL;
 285
 286 uint8 PAL=0;
 287
 288
 289 #define MMC5BGVRAMADR(V)      &MMC5BGVPage[(V)>>10][(V)]
 290 #define VRAMADR(V)      &VPage[(V)>>10][(V)]
 291
 292 static int linestartts;
 293 static int tofix=0;
 294
 295 static void ResetRL(void)
 296 {
 297  linestartts=timestamp*48+X6502_GetCycleCount();
 298  tofix=1;
 299 }
 300
 301 static INLINE void Fixit1(void);
 302
 303 static void TryFixit1(void)
 304 {
 305  #define TOFIXNUM (272-0x4)
 306  int lastpixel;
 307
 308  if (scanline < 240 && tofix)
 309  {
 310   lastpixel = (timestamp*48-linestartts)>>4;
 311   if (PAL) lastpixel += lastpixel>>4;
 312
 313   //printf("lastpixel: %i\n", lastpixel);
 314
 315   if(lastpixel>=TOFIXNUM)
 316   {
 317    Fixit1();
 318    tofix=0;
 319   }
 320  }
 321 }
 322
 323
 324 static DECLFW(BRAML)
 325 {
 326         RAM[A]=V;
 327 }
 328
 329 static DECLFW(BRAMH)
 330 {
 331         RAM[A&0x7FF]=V;
 332 }
 333
 334 static DECLFR(ARAML)
 335 {
 336         return RAM[A];
 337 }
 338
 339 static DECLFR(ARAMH)
 340 {
 341         return RAM[A&0x7FF];
 342 }
 343
 344
 345 static DECLFR(A2002)
 346 {
 347         /* merged */
 348                         uint8 ret;
 349
 350                         TryFixit1();
 351                         ret = PPU_status;
 352                         ret|=PPUGenLatch&0x1F;
 353                         vtoggle=0;
 354                         PPU_status&=0x7F;
 355                          PPUGenLatch=ret;
 356                         dprintf("r [2002] %02x",ret);
 357                         return ret;
 358 }
 359
 360 static DECLFR(A200x)
 361 {
 362         /* merged */
 363                         TryFixit1();
 364                         return PPUGenLatch;
 365 }
 366
 367 static DECLFR(A2007)
 368 {
 369         /* merged */
 370                         uint8 ret;
 371                         uint32 tmp=RefreshAddr&0x3FFF;
 372
 373                         TryFixit1();
 374
 375                         ret=VRAMBuffer;
 376
 377                         if(PPU_hook) PPU_hook(tmp);
 378                         PPUGenLatch=VRAMBuffer;
 379                         if(tmp<0x2000)
 380                         {
 381                          VRAMBuffer=VPage[tmp>>10][tmp];
 382                         }
 383                         else
 384                         {
 385                          VRAMBuffer=vnapage[(tmp>>10)&0x3][tmp&0x3FF];
 386                         }
 387
 388                         if (INC32) RefreshAddr+=32;
 389                         else RefreshAddr++;
 390                         if(PPU_hook) PPU_hook(RefreshAddr&0x3fff);
 391                         dprintf("r [2007] %02x",ret);
 392                         return ret;
 393 }
 394
 395 static DECLFW(B2000)
 396 {
 397         /* NMI2? */
 398                 TryFixit1();
 399                 PPUGenLatch=V;
 400                 PPU[0]=V;
 401                 TempAddr&=0xF3FF;
 402                 TempAddr|=(V&3)<<10;
 403 }
 404
 405 static DECLFW(B2001)
 406 {
 407         /* merged */
 408                   TryFixit1();
 409                   PPUGenLatch=V;
 410                   PPU[1]=V;
 411                   if(V&0xE0)
 412                    deemp=V>>5;
 413                   //printf("$%04x:$%02x, %d\n",X.PC,V,scanline);
 414 }
 415
 416 static DECLFW(B2002)
 417 {
 418         /* merged */
 419                  PPUGenLatch=V;
 420 }
 421
 422 static DECLFW(B2003)
 423 {
 424         /* merged */
 425                 PPUGenLatch=V;
 426                 PPU[3]=V;
 427                 PPUSPL=V&0x7;
 428 }
 429
 430 static DECLFW(B2004)
 431 {
 432         /* merged */
 433                 PPUGenLatch=V;
 434                 if(PPUSPL>=8)
 435                 {
 436                  if(PPU[3]>=8)
 437                   SPRAM[PPU[3]]=V;
 438                 }
 439                 else
 440                 {
 441                  //printf("$%02x:$%02x\n",PPUSPL,V);
 442                  SPRAM[PPUSPL]=V;
 443                 }
 444                 PPU[3]++;
 445                 PPUSPL++;
 446
 447 }
 448
 449 static DECLFW(B2005)
 450 {
 451         /* merged */
 452                 uint32 tmp=TempAddr;
 453                 TryFixit1();
 454                 PPUGenLatch=V;
 455                 if (!vtoggle)
 456                 {
 457                  tmp&=0xFFE0;
 458                  tmp|=V>>3;
 459                  XOffset=V&7;
 460                 }
 461                 else
 462                 {
 463                  tmp&=0x8C1F;
 464                  tmp|=((V&~0x7)<<2);
 465                  tmp|=(V&7)<<12;
 466                 }
 467
 468                 TempAddr=tmp;
 469                 vtoggle^=1;
 470 }
 471
 472 static DECLFW(B2006)
 473 {
 474         /* merged */
 475                        TryFixit1();
 476
 477                        PPUGenLatch=V;
 478                        if(!vtoggle)
 479                        {
 480                         TempAddr&=0x00FF;
 481                         TempAddr|=(V&0x3f)<<8;
 482                        }
 483                        else
 484                        {
 485                         TempAddr&=0xFF00;
 486                         TempAddr|=V;
 487
 488                         RefreshAddr=TempAddr;
 489                         if(PPU_hook)
 490                          PPU_hook(RefreshAddr);
 491                        }
 492                       vtoggle^=1;
 493 }
 494
 495 static DECLFW(B2007)
 496 {
 497         /* merged */
 498                         uint32 tmp=RefreshAddr&0x3FFF;
 499                         PPUGenLatch=V;
 500                         if(tmp>=0x3F00)
 501                         {
 502                          // hmmm....
 503                          if(!(tmp&0xf))
 504                           PALRAM[0x00]=PALRAM[0x04]=PALRAM[0x08]=PALRAM[0x0C]=V&0x3f;
 505                          else if(tmp&3) PALRAM[(tmp&0x1f)]=V&0x3f;
 506                         }
 507                         else if(tmp<0x2000)
 508                         {
 509                           if(PPUCHRRAM&(1<<(tmp>>10)))
 510                             VPage[tmp>>10][tmp]=V;
 511                         }
 512                         else
 513                         {
 514                          if(PPUNTARAM&(1<<((tmp&0xF00)>>10)))
 515                           vnapage[((tmp&0xF00)>>10)][tmp&0x3FF]=V;
 516                         }
 517                         if (INC32) RefreshAddr+=32;
 518                         else RefreshAddr++;
 519                         if(PPU_hook) PPU_hook(RefreshAddr&0x3fff);
 520 }
 521
 522 static DECLFW(B4014)
 523 {
 524         uint32 t=V<<8;
 525         int x;
 526
 527         for(x=0;x<256;x++)
 528          B2004(0x2004,X.DB=ARead[t+x](t+x));
 529         X6502_AddCycles(512);
 530 }
 531
 532 void BGRender(uint8 *target)
 533 {
 534         uint32 tem, vofs;
 535         vofs=((PPU[0]&0x10)<<8) | ((RefreshAddr>>12)&7);
 536
 537         Pal[0]|=64;
 538         Pal[4]|=64;
 539         Pal[8]|=64;
 540         Pal[0xC]|=64;
 541         RefreshLine(target-XOffset, vofs);
 542         Pal[0]&=63;
 543         Pal[4]&=63;
 544         Pal[8]&=63;
 545         Pal[0xC]&=63;
 546
 547         if(!(PPU[1]&2))
 548         {
 549          tem=Pal[0]|0x40;
 550          tem|=tem<<8;
 551          tem|=tem<<16;
 552          *(uint32 *)target=*(uint32 *)(target+4)=tem;
 553         }
 554 }
 555
 556 #ifdef FRAMESKIP
 557 int FSkip_setting=-1; // auto
 558 int FSkip=0;
 559 void FCEUI_FrameSkip(int x)
 560 {
 561  FSkip=x;
 562 }
 563 #endif
 564
 565 /*      This is called at the beginning of each visible scanline */
 566 static void Loop6502(void)
 567 {
 568         uint32 tem;
 569         int x;
 570         uint8 *target=XBuf+scanline*320+32;
 571
 572         if(ScreenON || SpriteON)
 573         {
 574          /* PRefreshLine() will not get called on skipped frames.  This
 575             could cause a problem, but the solution would be rather complex,
 576             due to the current sprite 0 hit code.
 577          */
 578          #ifdef FRAMESKIP
 579          if(!FSkip)
 580          {
 581          #endif
 582           if(ScreenON)
 583           {
 584            if(scanline>=FSettings.FirstSLine && scanline<=FSettings.LastSLine)
 585             BGRender(target);
 586            else
 587            {
 588             if(PPU_hook)
 589              PRefreshLine();
 590            }
 591           }
 592           else
 593           {
 594            tem=Pal[0]|(Pal[0]<<8)|(Pal[0]<<16)|(Pal[0]<<24);
 595            tem|=0x40404040;
 596            FCEU_dwmemset(target,tem,264);
 597           }
 598          #ifdef FRAMESKIP
 599          }
 600          #endif
 601          if (SpriteON && scanline)
 602           RefreshSprite(target);
 603          #ifdef FRAMESKIP
 604          if(!FSkip)
 605          {
 606          #endif
 607           if(PPU[1]&0x01)
 608           {
 609            for(x=63;x>=0;x--)
 610             ((uint32 *)target)[x]=((uint32*)target)[x]&0xF0F0F0F0;
 611           }
 612            if((PPU[1]>>5)==0x7)
 613             for(x=63;x>=0;x--)
 614              ((uint32 *)target)[x]=(((uint32*)target)[x]&0x3f3f3f3f)|0x40404040;
 615            else if(PPU[1]&0xE0)
 616             for(x=63;x>=0;x--)
 617              ((uint32 *)target)[x]=((uint32*)target)[x]|0xC0C0C0C0;
 618            else
 619             for(x=63;x>=0;x--)
 620              ((uint32 *)target)[x]=((uint32*)target)[x]&0x3f3f3f3f;
 621           FCEU_dwmemset(target-  8,0x3f3f3f3f,8);
 622           FCEU_dwmemset(target+256,0x3f3f3f3f,8);
 623          #ifdef FRAMESKIP
 624          }
 625          #endif
 626         }
 627         else
 628         {
 629          tem=Pal[0]|(Pal[0]<<8)|(Pal[0]<<16)|(Pal[0]<<24);
 630          FCEU_dwmemset(target,tem,256);
 631         }
 632         if(InputScanlineHook)
 633          InputScanlineHook(target, scanline);
 634 }
 635
 636 #define PAL(c)  ((c)+cc)
 637
 638
 639 static void PRefreshLine(void)
 640 {
 641         uint32 vofs;
 642         uint8 X1;
 643
 644         vofs = 0;
 645         if (BGAdrHI) vofs = 0x1000;
 646
 647         vofs+=(RefreshAddr>>12)&7;
 648
 649         for(X1=33;X1;X1--)
 650         {
 651                 register uint8 no;
 652                 register uint8 zz2;
 653                 zz2=(uint8)((RefreshAddr>>10)&3);
 654                 PPU_hook(0x2000|(RefreshAddr&0xFFF));
 655                 no  = vnapage[zz2][(RefreshAddr&0x3ff)];
 656                 PPU_hook((no<<4)+vofs);
 657                 if((RefreshAddr&0x1f)==0x1f)
 658                  RefreshAddr^=0x41F;
 659                 else
 660                  RefreshAddr++;
 661         }
 662 }
 663
 664 /* This high-level graphics MMC5 emulation code was written
 665    for MMC5 carts in "CL" mode.  It's probably not totally
 666    correct for carts in "SL" mode.
 667    */
 668 static void RefreshLine_MMC5Hack1(uint8 *P, uint32 vofs)
 669 {
 670           int8 tochange, X1;
 671
 672           tochange=MMC5HackSPMode&0x1F;
 673
 674           for(X1=33;X1;X1--,P+=8)
 675           {
 676                 uint8 *C;
 677                 uint8 cc,zz,zz2;
 678                 uint32 vadr;
 679
 680                 if((tochange<=0 && MMC5HackSPMode&0x40) ||
 681                    (tochange>0 && !(MMC5HackSPMode&0x40)))
 682                 {
 683                  uint8 xs,ys;
 684
 685                  xs=33-X1;
 686                  ys=((scanline>>3)+MMC5HackSPScroll)&0x1F;
 687                  if(ys>=0x1E) ys-=0x1E;
 688                  vadr=(MMC5HackExNTARAMPtr[xs|(ys<<5)]<<4)+(vofs&7);
 689
 690                  C = MMC5HackVROMPTR+vadr;
 691                  C += ((MMC5HackSPPage & 0x3f & MMC5HackVROMMask) << 12);
 692
 693                  cc=MMC5HackExNTARAMPtr[0x3c0+(xs>>2)+((ys&0x1C)<<1)];
 694                  cc=((cc >> ((xs&2) + ((ys&0x2)<<1))) &3) <<2;
 695                 }
 696                 else
 697                 {
 698                  zz=RefreshAddr&0x1F;
 699                  zz2=(RefreshAddr>>10)&3;
 700                  vadr=(vnapage[zz2][RefreshAddr&0x3ff]<<4)+vofs;
 701                  C = MMC5BGVRAMADR(vadr);
 702                  cc=vnapage[zz2][0x3c0+(zz>>2)+((RefreshAddr&0x380)>>4)];
 703                  cc=((cc >> ((zz&2) + ((RefreshAddr&0x40)>>4))) &3) <<2;
 704                 }
 705                 #include "fceline.h"
 706
 707                 if((RefreshAddr&0x1f)==0x1f)
 708                  RefreshAddr^=0x41F;
 709                 else
 710                  RefreshAddr++;
 711                 tochange--;
 712           }
 713 }
 714
 715 static void RefreshLine_MMC5Hack2(uint8 *P, uint32 vofs)
 716 {
 717           int8 tochange, X1;
 718
 719           tochange=MMC5HackSPMode&0x1F;
 720
 721           for(X1=33;X1;X1--,P+=8)
 722           {
 723                 uint8 *C;
 724                 uint8 cc;
 725                 uint8 zz2;
 726                 uint32 vadr;
 727
 728                 if((tochange<=0 && MMC5HackSPMode&0x40) ||
 729                    (tochange>0 && !(MMC5HackSPMode&0x40)))
 730                 {
 731                  uint8 xs,ys;
 732
 733                  xs=33-X1;
 734                  ys=((scanline>>3)+MMC5HackSPScroll)&0x1F;
 735                  if(ys>=0x1E) ys-=0x1E;
 736                  vadr=(MMC5HackExNTARAMPtr[xs|(ys<<5)]<<4)+(vofs&7);
 737
 738                  C = MMC5HackVROMPTR+vadr;
 739                  C += ((MMC5HackSPPage & 0x3f & MMC5HackVROMMask) << 12);
 740
 741                  cc=MMC5HackExNTARAMPtr[0x3c0+(xs>>2)+((ys&0x1C)<<1)];
 742                  cc=((cc >> ((xs&2) + ((ys&0x2)<<1))) &3) <<2;
 743                 }
 744                 else
 745                 {
 746                  C=MMC5HackVROMPTR;
 747                  zz2=(RefreshAddr>>10)&3;
 748                  vadr = (vnapage[zz2][RefreshAddr & 0x3ff] << 4) + vofs;
 749                  C += (((MMC5HackExNTARAMPtr[RefreshAddr & 0x3ff]) & 0x3f &
 750                          MMC5HackVROMMask) << 12) + (vadr & 0xfff);
 751                  vadr = (MMC5HackExNTARAMPtr[RefreshAddr & 0x3ff] & 0xC0)>> 4;
 752                  cc = vadr;
 753                 }
 754                 #include "fceline.h"
 755                 if((RefreshAddr&0x1f)==0x1f)
 756                  RefreshAddr^=0x41F;
 757                 else
 758                  RefreshAddr++;
 759                 tochange--;
 760           }
 761 }
 762
 763 static void RefreshLine_MMC5Hack3(uint8 *P, uint32 vofs)
 764 {
 765           int8 X1;
 766
 767           for(X1=33;X1;X1--,P+=8)
 768           {
 769                 uint8 *C;
 770                 uint8 cc;
 771                 uint8 zz2;
 772                 uint32 vadr;
 773
 774                 C=MMC5HackVROMPTR;
 775                 zz2=(RefreshAddr>>10)&3;
 776                 vadr = (vnapage[zz2][RefreshAddr & 0x3ff] << 4) + vofs;
 777                 C += (((MMC5HackExNTARAMPtr[RefreshAddr & 0x3ff]) & 0x3f &
 778                         MMC5HackVROMMask) << 12) + (vadr & 0xfff);
 779                 vadr = (MMC5HackExNTARAMPtr[RefreshAddr & 0x3ff] & 0xC0)>> 4;
 780                 cc = vadr;
 781
 782                 #include "fceline.h"
 783                 if((RefreshAddr&0x1f)==0x1f)
 784                  RefreshAddr^=0x41F;
 785                 else
 786                  RefreshAddr++;
 787           }
 788 }
 789
 790 static void RefreshLine_MMC5Hack4(uint8 *P, uint32 vofs)
 791 {
 792           int8 X1;
 793
 794           for(X1=33;X1;X1--,P+=8)
 795           {
 796                 uint8 *C;
 797                 uint8 cc,zz,zz2;
 798                 uint32 vadr;
 799
 800                 zz=RefreshAddr&0x1F;
 801                 zz2=(RefreshAddr>>10)&3;
 802                 vadr=(vnapage[zz2][RefreshAddr&0x3ff]<<4)+vofs;
 803                 C = MMC5BGVRAMADR(vadr);
 804                 cc=vnapage[zz2][0x3c0+(zz>>2)+((RefreshAddr&0x380)>>4)];
 805                 cc=((cc >> ((zz&2) + ((RefreshAddr&0x40)>>4))) &3) <<2;
 806
 807                 #include "fceline.h"
 808
 809                 if((RefreshAddr&0x1f)==0x1f)
 810                  RefreshAddr^=0x41F;
 811                 else
 812                  RefreshAddr++;
 813           }
 814 }
 815
 816 static void RefreshLine_PPU_hook(uint8 *P, uint32 vofs)
 817 {
 818          int8 X1;
 819
 820          for(X1=33;X1;X1--,P+=8)
 821          {
 822                 uint8 *C;
 823                 uint8 cc,zz,zz2;
 824                 uint32 vadr;
 825
 826                 zz=RefreshAddr&0x1F;
 827                 zz2=(RefreshAddr>>10)&3;
 828                 PPU_hook(0x2000|(RefreshAddr&0xFFF));
 829                 cc=vnapage[zz2][0x3c0+(zz>>2)+((RefreshAddr&0x380)>>4)];
 830                 cc=((cc >> ((zz&2) + ((RefreshAddr&0x40)>>4))) &3) <<2;
 831                 vadr=(vnapage[zz2][RefreshAddr&0x3ff]<<4)+vofs;
 832                 C = VRAMADR(vadr);
 833
 834                 #include "fceline.h"
 835
 836                 PPU_hook(vadr);
 837
 838                 if((RefreshAddr&0x1f)==0x1f)
 839                  RefreshAddr^=0x41F;
 840                 else
 841                  RefreshAddr++;
 842          }
 843 }
 844
 845 static void RefreshLine_normal(uint8 *P, uint32 vofs) // vofs is 0x107 max
 846 {
 847          int8 X1;
 848          uint32 rfraddr = RefreshAddr;
 849          uint8 *page = vnapage[(rfraddr>>10)&3];
 850          uint32 cc2=0;
 851
 852          if ((rfraddr&0xc)!=0)
 853           cc2=*(uint32 *) (page + ((rfraddr&0x380)>>4) + ((rfraddr&0x10)>>2) + 0x3c0);
 854
 855          for (X1=33;X1;X1--,P+=8)
 856          {
 857                 uint8 cc,*C;
 858                 uint32 vadr;
 859
 860                 vadr=(page[rfraddr&0x3ff]<<4)+vofs;
 861                 C = VRAMADR(vadr);
 862                 if ((rfraddr&0xc)==0)
 863                  cc2=*(uint32 *) (page + ((rfraddr&0x380)>>4) + ((rfraddr&0x10)>>2) + 0x3c0);
 864                 cc=((cc2 >> ((rfraddr&2) + ((rfraddr&0x40)>>4) + ((rfraddr&0xc)<<1))) & 3) << 2;
 865
 866                 #include "fceline.h"
 867
 868                 if((rfraddr&0x1f)==0x1f) {
 869                  rfraddr^=0x41F;
 870                  page = vnapage[(rfraddr>>10)&3];
 871                 } else
 872                  rfraddr++;
 873          }
 874          RefreshAddr = rfraddr;
 875 }
 876
 877 static void SetRefreshLine(void)
 878 {
 879         if(MMC5Hack && geniestage!=1)
 880         {
 881          if(MMC5HackCHRMode==0 && (MMC5HackSPMode&0x80))
 882          {
 883                  if (RefreshLine != RefreshLine_MMC5Hack1) printf("set refr RefreshLine_MMC5Hack1\n");
 884                  RefreshLine = RefreshLine_MMC5Hack1;
 885          }
 886          else if(MMC5HackCHRMode==1 && (MMC5HackSPMode&0x80))
 887          {
 888                 if (RefreshLine != RefreshLine_MMC5Hack2) printf("set refr RefreshLine_MMC5Hack2\n");
 889                  RefreshLine = RefreshLine_MMC5Hack2;
 890          }
 891          else if(MMC5HackCHRMode==1)
 892          {
 893                 if (RefreshLine != RefreshLine_MMC5Hack3) printf("set refr RefreshLine_MMC5Hack3\n");
 894                  RefreshLine = RefreshLine_MMC5Hack3;
 895          }
 896          else
 897          {
 898                 if (RefreshLine != RefreshLine_MMC5Hack4) printf("set refr RefreshLine_MMC5Hack4\n");
 899                  RefreshLine = RefreshLine_MMC5Hack4;
 900          }
 901         }       // End if(MMC5Hack)
 902         else if(PPU_hook)
 903         {
 904                 if (RefreshLine != RefreshLine_PPU_hook) printf("set refr RefreshLine_PPU_hook\n");
 905                 RefreshLine = RefreshLine_PPU_hook;
 906         }
 907         else
 908         {
 909                 if (RefreshLine != RefreshLine_normal) printf("set refr RefreshLine_normal\n");
 910                 RefreshLine = RefreshLine_normal;
 911         }
 912 }
 913
 914 static INLINE
 915 void Fixit2(void)
 916 {
 917    if(ScreenON || SpriteON)
 918    {
 919     uint32 rad=RefreshAddr;
 920     rad&=0xFBE0;
 921     rad|=TempAddr&0x041f;
 922     RefreshAddr=rad;
 923     //PPU_hook(RefreshAddr,-1);
 924    }
 925 }
 926
 927 static INLINE
 928 void Fixit1(void)
 929 {
 930    if(ScreenON || SpriteON)
 931    {
 932     uint32 rad=RefreshAddr;
 933
 934     if((rad&0x7000)==0x7000)
 935     {
 936      rad^=0x7000;
 937      if((rad&0x3E0)==0x3A0)
 938      {
 939       rad^=0x3A0;
 940       rad^=0x800;
 941      }
 942      else
 943      {
 944       if((rad&0x3E0)==0x3e0)
 945        rad^=0x3e0;
 946       else rad+=0x20;
 947      }
 948     }
 949     else
 950      rad+=0x1000;
 951     RefreshAddr=rad;
 952     //PPU_hook(RefreshAddr,-1);
 953    }
 954 }
 955
 956
 957 /*      This is called at the beginning of all h-blanks on visible lines. */
 958 static void DoHBlank(void)
 959 {
 960  if(ScreenON || SpriteON)
 961   FetchSpriteData();
 962  if(GameHBIRQHook && (ScreenON || SpriteON))
 963  {
 964   X6502_Run(6);
 965   Fixit2();
 966   X6502_Run(4);
 967   GameHBIRQHook();
 968   X6502_Run(85-16-10);
 969  }
 970  else
 971  {
 972   X6502_Run(6);  // Tried 65, caused problems with Slalom(maybe others)
 973   Fixit2();
 974   X6502_Run(85-6-16);
 975  }
 976  //PPU_hook(0,-1);
 977  //fprintf(stderr,"%3d: $%04x\n",scanline,RefreshAddr);
 978  scanline++;
 979  ResetRL();
 980  X6502_Run(16);
 981 }
 982
 983
 984 // ============================//
 985 // end of new code
 986 // ===========================//
 987
 988 void ResetMapping(void)
 989 {
 990         int x;
 991
 992         SetReadHandler(0x0000,0xFFFF,ANull);
 993         SetWriteHandler(0x0000,0xFFFF,BNull);
 994
 995         SetReadHandler(0,0x7FF,ARAML);
 996         SetWriteHandler(0,0x7FF,BRAML);
 997
 998         SetReadHandler(0x800,0x1FFF,ARAMH);  /* Part of a little */
 999         SetWriteHandler(0x800,0x1FFF,BRAMH); /* hack for a small speed boost. */
1000
1001         for(x=0x2000;x<0x4000;x+=8)
1002         {
1003          ARead[x]=A200x;
1004          BWrite[x]=B2000;
1005          ARead[x+1]=A200x;
1006          BWrite[x+1]=B2001;
1007          ARead[x+2]=A2002;
1008          BWrite[x+2]=B2002;
1009          ARead[x+3]=A200x;
1010          BWrite[x+3]=B2003;
1011          ARead[x+4]=A200x;
1012          BWrite[x+4]=B2004;
1013          ARead[x+5]=A200x;
1014          BWrite[x+5]=B2005;
1015          ARead[x+6]=A200x;
1016          BWrite[x+6]=B2006;
1017          ARead[x+7]=A2007;
1018          BWrite[x+7]=B2007;
1019         }
1020
1021         BWrite[0x4014]=B4014;
1022         SetNESSoundMap();
1023         InitializeInput();
1024 }
1025
1026 int GameLoaded=0;
1027 void CloseGame(void)
1028 {
1029  if(GameLoaded)
1030  {
1031   if(FCEUGameInfo.type!=GIT_NSF)
1032    FlushGameCheats();
1033   #ifdef NETWORK
1034   if(FSettings.NetworkPlay) KillNetplay();
1035   #endif
1036   GameInterface(GI_CLOSE);
1037   CloseGenie();
1038   GameLoaded=0;
1039  }
1040 }
1041
1042 void ResetGameLoaded(void)
1043 {
1044         if(GameLoaded) CloseGame();
1045         GameStateRestore=0;
1046         PPU_hook=0;
1047         GameHBIRQHook=0;
1048         GameExpSound.Fill=0;
1049         GameExpSound.RChange=0;
1050         if(GameExpSound.Kill)
1051          GameExpSound.Kill();
1052         GameExpSound.Kill=0;
1053         MapIRQHook=0;
1054         MMC5Hack=0;
1055         PAL&=1;
1056         pale=0;
1057
1058         FCEUGameInfo.name=0;
1059         FCEUGameInfo.type=GIT_CART;
1060         FCEUGameInfo.vidsys=GIV_USER;
1061         FCEUGameInfo.input[0]=FCEUGameInfo.input[1]=-1;
1062         FCEUGameInfo.inputfc=-1;
1063 }
1064
1065 char lastLoadedGameName [2048];
1066
1067 FCEUGI *FCEUI_LoadGame(char *name)
1068 {
1069         char name2[512];
1070         int have_movie = 0;
1071         int fp;
1072
1073         Exit=1;
1074         ResetGameLoaded();
1075
1076         strncpy(name2, name, sizeof(name2));
1077         name2[sizeof(name2)-1] = 0;
1078
1079         fp=FCEU_fopen(name2,"rb");
1080         if(!fp)
1081         {
1082          FCEU_PrintError("Error opening \"%s\"!",name);
1083          return 0;
1084         }
1085
1086         {
1087          char *p = name2 + strlen(name2) - 4;
1088          if (strcmp(p, ".fcm") == 0)
1089          {
1090           // movie detected
1091           printf("movie detected\n");
1092           FCEU_fclose(fp);
1093           *p = 0;
1094           fp=FCEU_fopen(name2,"rb");
1095           if (!fp) {
1096            printf("no ROM for movie\n");
1097            return 0;
1098           }
1099           have_movie = 1;
1100          }
1101         }
1102
1103         strcpy(lastLoadedGameName, name2);
1104
1105         GetFileBase(name2);
1106         if(iNESLoad(name2,fp))
1107          goto endlseq;
1108         if(NSFLoad(fp))
1109          goto endlseq;
1110         if(FDSLoad(name2,fp))
1111          goto endlseq;
1112         if(UNIFLoad(name2,fp))
1113          goto endlseq;
1114
1115         FCEU_PrintError("An error occurred while loading the file.");
1116         FCEU_fclose(fp);
1117         return 0;
1118
1119         endlseq:
1120         FCEU_fclose(fp);
1121         GameLoaded=1;
1122
1123         FCEU_ResetVidSys();
1124         if(FCEUGameInfo.type!=GIT_NSF)
1125          if(FSettings.GameGenie)
1126           OpenGenie();
1127
1128         PowerNES();
1129         #ifdef NETWORK
1130         if(FSettings.NetworkPlay) InitNetplay();
1131         #endif
1132         SaveStateRefresh();
1133         if(FCEUGameInfo.type!=GIT_NSF)
1134         {
1135          LoadGamePalette();
1136          LoadGameCheats();
1137         }
1138
1139         FCEU_ResetPalette();
1140         Exit=0;
1141
1142         if (have_movie)
1143                 FCEUI_LoadMovie(name, 1);
1144         return(&FCEUGameInfo);
1145 }
1146
1147
1148 void FCEU_ResetVidSys(void)
1149 {
1150  int w;
1151
1152  if(FCEUGameInfo.vidsys==GIV_NTSC)
1153   w=0;
1154  else if(FCEUGameInfo.vidsys==GIV_PAL)
1155   w=1;
1156  else
1157   w=FSettings.PAL;
1158
1159  if(w)
1160  {
1161   PAL=1;
1162   FSettings.FirstSLine=FSettings.UsrFirstSLine[1];
1163   FSettings.LastSLine=FSettings.UsrLastSLine[1];
1164  }
1165  else
1166  {
1167   PAL=0;
1168   FSettings.FirstSLine=FSettings.UsrFirstSLine[0];
1169   FSettings.LastSLine=FSettings.UsrLastSLine[0];
1170  }
1171  printf("PAL = %i\n", PAL);
1172  SetSoundVariables();
1173 }
1174
1175 int FCEUI_Initialize(void)
1176 {
1177         if(!InitVirtualVideo())
1178          return 0;
1179         memset(&FSettings,0,sizeof(FSettings));
1180         FSettings.UsrFirstSLine[0]=8;
1181         FSettings.UsrFirstSLine[1]=0;
1182         FSettings.UsrLastSLine[0]=FSettings.UsrLastSLine[1]=239;
1183         FSettings.SoundVolume=65535;    // 100%
1184         return 1;
1185 }
1186
1187 static INLINE void Thingo(void)
1188 {
1189    Loop6502();
1190
1191    // check: Battletoads & Double Dragon
1192    if(tosprite>=256)
1193    {
1194     X6502_Run(256);
1195    }
1196    else
1197    {
1198      // sky glitches in SMB1 if done wrong
1199      X6502_Run(tosprite);
1200      PPU[2]|=0x40;
1201      X6502_Run(256-tosprite);
1202      tosprite = 256;
1203    }
1204    TryFixit1();
1205    DoHBlank();
1206 }
1207
1208 void EmLoop(void)
1209 {
1210  for(;;)
1211  {
1212   uint32 scanlines_per_frame = PAL ? 312 : 262;
1213   UpdateInput();
1214   ApplyPeriodicCheats();
1215
1216   // FCEUPPU_Loop:
1217   if(ppudead) /* Needed for Knight Rider, possibly others. */
1218   {
1219    memset(XBuf, 0x80, 256*240);
1220    X6502_Run(scanlines_per_frame*(256+85));
1221    ppudead--;
1222    goto update;
1223   }
1224         //extern int asdc;
1225         //printf("asdc: %i\n", asdc);
1226         //asdc=0;
1227   X6502_Run(256+85);
1228
1229   PPU[2]|=0x80;
1230   PPU[3]=PPUSPL=0;             /* Not sure if this is correct.  According
1231                                   to Matt Conte and my own tests, it is.  Timing is probably
1232                                   off, though.  NOTE:  Not having this here
1233                                   breaks a Super Donkey Kong game. */
1234
1235   X6502_Run(12);                /* I need to figure out the true nature and length
1236                                    of this delay.
1237                                 */
1238   if(FCEUGameInfo.type==GIT_NSF)
1239    TriggerNMINSF();
1240   else if(VBlankON)
1241    TriggerNMI();
1242
1243   // Note: this is needed for asm core
1244   // Warning: using 'scanline' var here breaks Castlevania III
1245   {
1246    int lines;
1247    X6502_Run(256+85-12);
1248    for (lines=scanlines_per_frame-242-1;lines;lines--)
1249      X6502_Run(256+85);
1250   }
1251   // X6502_Run((scanlines_per_frame-242)*(256+85)-12);
1252
1253   PPU_status&=0x1f;
1254
1255   X6502_Run(256);
1256   {
1257    if(ScreenON || SpriteON)
1258     if(GameHBIRQHook)
1259      GameHBIRQHook();
1260
1261    X6502_Run(85-16);
1262
1263    if(ScreenON || SpriteON)
1264    {
1265     RefreshAddr=TempAddr;
1266     if(PPU_hook) PPU_hook(RefreshAddr&0x3fff);
1267    }
1268    ResetRL();
1269
1270    X6502_Run(16-kook);
1271    kook ^= 1;
1272   }
1273
1274   if(FCEUGameInfo.type==GIT_NSF)
1275   {
1276    X6502_Run((256+85)*240);
1277   }
1278   else
1279   {
1280    int x,max,maxref;
1281
1282    deemp=PPU[1]>>5;
1283    SetRefreshLine();
1284    for(scanline=0;scanline<240;)       // scanline is incremented in  DoLine.  Evil. :/
1285    {
1286     deempcnt[deemp]++;
1287     Thingo();
1288    }
1289    for(x=1,max=0,maxref=0;x<7;x++)
1290    {
1291     if(deempcnt[x]>max)
1292     {
1293      max=deempcnt[x];
1294      maxref=x;
1295     }
1296     deempcnt[x]=0;
1297    }
1298    //FCEU_DispMessage("%2x:%2x:%2x:%2x:%2x:%2x:%2x:%2x %d",deempcnt[0],deempcnt[1],deempcnt[2],deempcnt[3],deempcnt[4],deempcnt[5],deempcnt[6],deempcnt[7],maxref);
1299    //memset(deempcnt,0,sizeof(deempcnt));
1300    SetNESDeemph(maxref,0);
1301   }
1302
1303 update:
1304   {
1305    int ssize;
1306
1307    ssize=FlushEmulateSound();
1308
1309    timestampbase += timestamp;
1310    timestamp = 0;
1311
1312    #ifdef FRAMESKIP
1313    if(FSkip)
1314    {
1315     FCEU_PutImageDummy();
1316     FSkip--;
1317     FCEUD_Update(0,WaveFinalMono,ssize);
1318    }
1319    else
1320    #endif
1321    {
1322     FCEU_PutImage();
1323     FCEUD_Update(XBuf+8,WaveFinalMono,ssize);
1324    }
1325   }
1326
1327   if(Exit)
1328   {
1329    CloseGame();
1330    break;
1331   }
1332
1333  } // for
1334 }
1335
1336 #ifdef FPS
1337 #include <sys/time.h>
1338 uint64 frcount;
1339 #endif
1340 void FCEUI_Emulate(void)
1341 {
1342         #ifdef FPS
1343         uint64 starttime,end;
1344         struct timeval tv;
1345         frcount=0;
1346         gettimeofday(&tv,0);
1347         starttime=((uint64)tv.tv_sec*1000000)+tv.tv_usec;
1348         #endif
1349         EmLoop();
1350
1351         #ifdef FPS
1352         // Probably won't work well on Windows port; for
1353         // debugging/speed testing.
1354         {
1355          uint64 w;
1356          int i,frac;
1357          gettimeofday(&tv,0);
1358          end=((uint64)tv.tv_sec*1000000)+tv.tv_usec;
1359          w=frcount*10000000000LL/(end-starttime);
1360          i=w/10000;
1361          frac=w-i*10000;
1362          printf("Average FPS: %d.%04d\n",i,frac);
1363         }
1364         #endif
1365
1366 }
1367
1368 void FCEUI_CloseGame(void)
1369 {
1370         Exit=1;
1371 }
1372
1373 static void ResetPPU(void)
1374 {
1375         VRAMBuffer=PPU[0]=PPU[1]=PPU[2]=PPU[3]=0;
1376         PPUSPL=0;
1377         PPUGenLatch=0;
1378         RefreshAddr=TempAddr=0;
1379         vtoggle = 0;
1380         ppudead = 2;
1381         kook = 0;
1382 }
1383
1384 static void PowerPPU(void)
1385 {
1386         memset(NTARAM,0x00,0x800);
1387         memset(PALRAM,0x00,0x20);
1388         memset(SPRAM,0x00,0x100);
1389         ResetPPU();
1390 }
1391
1392 void ResetNES(void)
1393 {
1394         if(!GameLoaded || (FCEUGameInfo.type==GIT_NSF)) return;
1395         GameInterface(GI_RESETM2);
1396         ResetSound();
1397         ResetPPU();
1398         X6502_Reset();
1399 }
1400
1401 void PowerNES(void)
1402 {
1403         if(!GameLoaded) return;
1404
1405         FCEU_CheatResetRAM();
1406         FCEU_CheatAddRAM(2,0,RAM);
1407
1408         GeniePower();
1409
1410         memset(RAM,0x00,0x800);
1411         ResetMapping();
1412         GameInterface(GI_POWER);
1413         PowerSound();
1414         PowerPPU();
1415         timestampbase=0;
1416         X6502_Power();
1417 }
1418