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