non-asm compatibility re-fixed
[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        "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), (*GameHBIRQHook2)(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) && ((PPU[0]&0x38)!=0x18))
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  if(GameHBIRQHook2 && (ScreenON || SpriteON))
977   GameHBIRQHook2();
978  //PPU_hook(0,-1);
979  //fprintf(stderr,"%3d: $%04x\n",scanline,RefreshAddr);
980  scanline++;
981  if (scanline<240)
982   ResetRL();
983  X6502_Run(16);
984 }
985
986
987 // ============================//
988 // end of new code
989 // ===========================//
990
991 void ResetMapping(void)
992 {
993         int x;
994
995         SetReadHandler(0x0000,0xFFFF,ANull);
996         SetWriteHandler(0x0000,0xFFFF,BNull);
997
998         SetReadHandler(0,0x7FF,ARAML);
999         SetWriteHandler(0,0x7FF,BRAML);
1000
1001         SetReadHandler(0x800,0x1FFF,ARAMH);  /* Part of a little */
1002         SetWriteHandler(0x800,0x1FFF,BRAMH); /* hack for a small speed boost. */
1003
1004         for(x=0x2000;x<0x4000;x+=8)
1005         {
1006          ARead[x]=A200x;
1007          BWrite[x]=B2000;
1008          ARead[x+1]=A200x;
1009          BWrite[x+1]=B2001;
1010          ARead[x+2]=A2002;
1011          BWrite[x+2]=B2002;
1012          ARead[x+3]=A200x;
1013          BWrite[x+3]=B2003;
1014          ARead[x+4]=A200x;
1015          BWrite[x+4]=B2004;
1016          ARead[x+5]=A200x;
1017          BWrite[x+5]=B2005;
1018          ARead[x+6]=A200x;
1019          BWrite[x+6]=B2006;
1020          ARead[x+7]=A2007;
1021          BWrite[x+7]=B2007;
1022         }
1023
1024         BWrite[0x4014]=B4014;
1025         SetNESSoundMap();
1026         InitializeInput();
1027 }
1028
1029 int GameLoaded=0;
1030 void CloseGame(void)
1031 {
1032  if(GameLoaded)
1033  {
1034   if(FCEUGameInfo.type!=GIT_NSF)
1035    FlushGameCheats();
1036   #ifdef NETWORK
1037   if(FSettings.NetworkPlay) KillNetplay();
1038   #endif
1039   GameInterface(GI_CLOSE);
1040   CloseGenie();
1041   GameLoaded=0;
1042  }
1043 }
1044
1045 void ResetGameLoaded(void)
1046 {
1047         if(GameLoaded) CloseGame();
1048         GameStateRestore=0;
1049         PPU_hook=0;
1050         GameHBIRQHook=GameHBIRQHook2=0;
1051         GameExpSound.Fill=0;
1052         GameExpSound.RChange=0;
1053         if(GameExpSound.Kill)
1054          GameExpSound.Kill();
1055         GameExpSound.Kill=0;
1056         MapIRQHook=0;
1057         MMC5Hack=0;
1058         PAL&=1;
1059         pale=0;
1060
1061         FCEUGameInfo.name=0;
1062         FCEUGameInfo.type=GIT_CART;
1063         FCEUGameInfo.vidsys=GIV_USER;
1064         FCEUGameInfo.input[0]=FCEUGameInfo.input[1]=-1;
1065         FCEUGameInfo.inputfc=-1;
1066 }
1067
1068 char lastLoadedGameName [2048];
1069 int UNIFLoad(const char *name, int fp);
1070 int iNESLoad(const char *name, int fp);
1071 int FDSLoad(const char *name, int fp);
1072 int NSFLoad(int fp);
1073
1074 FCEUGI *FCEUI_LoadGame(char *name)
1075 {
1076         char name2[512];
1077         int have_movie = 0;
1078         int fp;
1079
1080         Exit=1;
1081         ResetGameLoaded();
1082
1083         strncpy(name2, name, sizeof(name2));
1084         name2[sizeof(name2)-1] = 0;
1085
1086         fp=FCEU_fopen(name2,"rb");
1087         if(!fp)
1088         {
1089          FCEU_PrintError("Error opening \"%s\"!",name);
1090          return 0;
1091         }
1092
1093         {
1094          char *p = name2 + strlen(name2) - 4;
1095          if (strcmp(p, ".fcm") == 0)
1096          {
1097           // movie detected
1098           printf("movie detected\n");
1099           FCEU_fclose(fp);
1100           *p = 0;
1101           fp=FCEU_fopen(name2,"rb");
1102           if (!fp) {
1103            printf("no ROM for movie\n");
1104            return 0;
1105           }
1106           have_movie = 1;
1107          }
1108         }
1109
1110         strcpy(lastLoadedGameName, name2);
1111
1112         GetFileBase(name2);
1113         if(iNESLoad(name2,fp))
1114          goto endlseq;
1115         if(NSFLoad(fp))
1116          goto endlseq;
1117         if(FDSLoad(name2,fp))
1118          goto endlseq;
1119         if(UNIFLoad(name2,fp))
1120          goto endlseq;
1121
1122         FCEU_PrintError("An error occurred while loading the file.");
1123         FCEU_fclose(fp);
1124         return 0;
1125
1126         endlseq:
1127         FCEU_fclose(fp);
1128         GameLoaded=1;
1129
1130         FCEU_ResetVidSys();
1131         if(FCEUGameInfo.type!=GIT_NSF)
1132          if(FSettings.GameGenie)
1133           OpenGenie();
1134
1135         PowerNES();
1136         #ifdef NETWORK
1137         if(FSettings.NetworkPlay) InitNetplay();
1138         #endif
1139         SaveStateRefresh();
1140         if(FCEUGameInfo.type!=GIT_NSF)
1141         {
1142          LoadGamePalette();
1143          LoadGameCheats();
1144         }
1145
1146         FCEU_ResetPalette();
1147         Exit=0;
1148
1149         if (have_movie)
1150                 FCEUI_LoadMovie(name, 1);
1151         return(&FCEUGameInfo);
1152 }
1153
1154
1155 void FCEU_ResetVidSys(void)
1156 {
1157  int w;
1158
1159  if(FCEUGameInfo.vidsys==GIV_NTSC)
1160   w=0;
1161  else if(FCEUGameInfo.vidsys==GIV_PAL)
1162   w=1;
1163  else
1164   w=FSettings.PAL;
1165
1166  if(w)
1167  {
1168   PAL=1;
1169   FSettings.FirstSLine=FSettings.UsrFirstSLine[1];
1170   FSettings.LastSLine=FSettings.UsrLastSLine[1];
1171  }
1172  else
1173  {
1174   PAL=0;
1175   FSettings.FirstSLine=FSettings.UsrFirstSLine[0];
1176   FSettings.LastSLine=FSettings.UsrLastSLine[0];
1177  }
1178  printf("PAL = %i\n", PAL);
1179  SetSoundVariables();
1180 }
1181
1182 int FCEUI_Initialize(void)
1183 {
1184         if(!InitVirtualVideo())
1185          return 0;
1186         memset(&FSettings,0,sizeof(FSettings));
1187         FSettings.UsrFirstSLine[0]=8;
1188         FSettings.UsrFirstSLine[1]=0;
1189         FSettings.UsrLastSLine[0]=FSettings.UsrLastSLine[1]=239;
1190         FSettings.SoundVolume=65535;    // 100%
1191         return 1;
1192 }
1193
1194 void MMC5_hb(int);     /* Ugh ugh ugh. */
1195 static INLINE void Thingo(void)
1196 {
1197    Loop6502();
1198
1199    if(MMC5Hack && (ScreenON || SpriteON)) MMC5_hb(scanline);
1200
1201    // check: Battletoads & Double Dragon
1202    if(tosprite>=256)
1203    {
1204     X6502_Run(256);
1205    }
1206    else
1207    {
1208      // sky glitches in SMB1 if done wrong
1209      X6502_Run(tosprite);
1210      PPU[2]|=0x40;
1211      X6502_Run(256-tosprite);
1212      tosprite = 256;
1213    }
1214    TryFixit1();
1215    DoHBlank();
1216 }
1217
1218 void EmLoop(void)
1219 {
1220  for(;;)
1221  {
1222   int x;
1223   uint32 scanlines_per_frame = PAL ? 312 : 262;
1224   UpdateInput();
1225   ApplyPeriodicCheats();
1226
1227   // FCEUPPU_Loop:
1228   if(ppudead) /* Needed for Knight Rider, possibly others. */
1229   {
1230    memset(XBuf, 0x80, 320*240);
1231    X6502_Run(scanlines_per_frame*(256+85));
1232    ppudead--;
1233    goto update;
1234   }
1235
1236   X6502_Run(256+85);
1237
1238   PPU[2]|=0x80;
1239   PPU[3]=PPUSPL=0;             /* Not sure if this is correct.  According
1240                                   to Matt Conte and my own tests, it is.  Timing is probably
1241                                   off, though.  NOTE:  Not having this here
1242                                   breaks a Super Donkey Kong game. */
1243
1244   X6502_Run(12);                /* I need to figure out the true nature and length
1245                                    of this delay.
1246                                 */
1247   if(FCEUGameInfo.type==GIT_NSF)
1248    DoNSFFrame();
1249   else if(VBlankON)
1250    TriggerNMI();
1251
1252   // Note: this is needed for asm core
1253   // Warning: using 'scanline' var here breaks Castlevania III
1254   {
1255    int lines;
1256    X6502_Run(256+85-12);
1257    for (lines=scanlines_per_frame-242-1;lines;lines--)
1258      X6502_Run(256+85);
1259   }
1260   // X6502_Run((scanlines_per_frame-242)*(256+85)-12);
1261   PPU_status&=0x1f;
1262   X6502_Run(256);
1263
1264   {
1265    if(ScreenON || SpriteON)
1266    {
1267     if(GameHBIRQHook)
1268      GameHBIRQHook();
1269      if(PPU_hook)
1270       for(x=0;x<42;x++) {PPU_hook(0x2000); PPU_hook(0);} // ugh
1271     if(GameHBIRQHook2)
1272      GameHBIRQHook2();
1273    }
1274
1275    X6502_Run(85-16);
1276
1277    if(ScreenON || SpriteON)
1278    {
1279     RefreshAddr=TempAddr;
1280     if(PPU_hook) PPU_hook(RefreshAddr&0x3fff);
1281    }
1282    ResetRL();
1283
1284    X6502_Run(16-kook);
1285    kook ^= 1;
1286   }
1287
1288   if(FCEUGameInfo.type==GIT_NSF)
1289   {
1290    X6502_Run((256+85)*240);
1291   }
1292   #ifdef FRAMESKIP
1293    else if(FSkip)
1294    {
1295     int y;
1296
1297     y=SPRAM[0];
1298     y++;
1299
1300     PPU_status|=0x20;       // Fixes "Bee 52".  Does it break anything?
1301     if(GameHBIRQHook)
1302     {
1303      X6502_Run(256);
1304      for(scanline=0;scanline<240;scanline++)
1305      {
1306       if(ScreenON || SpriteON)
1307        GameHBIRQHook();
1308       if(scanline==y && SpriteON) PPU_status|=0x40;
1309       X6502_Run((scanline==239)?85:(256+85));
1310       ResetRL(); // ??
1311      }
1312     }
1313     else if(y<240)
1314     {
1315      X6502_Run((256+85)*y);
1316      if(SpriteON) PPU_status|=0x40; // Quick and very dirty hack.
1317      X6502_Run((256+85)*(240-y));
1318     }
1319     else
1320      X6502_Run((256+85)*240);
1321    }
1322   #endif
1323   else
1324   {
1325    int x,max,maxref;
1326
1327    deemp=PPU[1]>>5;
1328    SetRefreshLine();
1329    for(scanline=0;scanline<240;)       // scanline is incremented in  DoLine.  Evil. :/
1330    {
1331     deempcnt[deemp]++;
1332     Thingo();
1333    }
1334    if(MMC5Hack && (ScreenON || SpriteON)) MMC5_hb(scanline);
1335    for(x=1,max=0,maxref=0;x<7;x++)
1336    {
1337     if(deempcnt[x]>max)
1338     {
1339      max=deempcnt[x];
1340      maxref=x;
1341     }
1342     deempcnt[x]=0;
1343    }
1344    SetNESDeemph(maxref,0);
1345   }
1346
1347 update:
1348   {
1349    int ssize;
1350
1351    ssize=FlushEmulateSound();
1352
1353    timestampbase += timestamp;
1354    timestamp = 0;
1355
1356    #ifdef FRAMESKIP
1357    if(FSkip)
1358    {
1359     FCEU_PutImageDummy();
1360     FSkip--;
1361     FCEUD_Update(0,WaveFinalMono,ssize);
1362    }
1363    else
1364    #endif
1365    {
1366     FCEU_PutImage();
1367     FCEUD_Update(XBuf+8,WaveFinalMono,ssize);
1368    }
1369   }
1370
1371   if(Exit)
1372   {
1373    CloseGame();
1374    break;
1375   }
1376
1377  } // for
1378 }
1379
1380 #ifdef FPS
1381 #include <sys/time.h>
1382 uint64 frcount;
1383 #endif
1384 void FCEUI_Emulate(void)
1385 {
1386         #ifdef FPS
1387         uint64 starttime,end;
1388         struct timeval tv;
1389         frcount=0;
1390         gettimeofday(&tv,0);
1391         starttime=((uint64)tv.tv_sec*1000000)+tv.tv_usec;
1392         #endif
1393         EmLoop();
1394
1395         #ifdef FPS
1396         // Probably won't work well on Windows port; for
1397         // debugging/speed testing.
1398         {
1399          uint64 w;
1400          int i,frac;
1401          gettimeofday(&tv,0);
1402          end=((uint64)tv.tv_sec*1000000)+tv.tv_usec;
1403          w=frcount*10000000000LL/(end-starttime);
1404          i=w/10000;
1405          frac=w-i*10000;
1406          printf("Average FPS: %d.%04d\n",i,frac);
1407         }
1408         #endif
1409
1410 }
1411
1412 void FCEUI_CloseGame(void)
1413 {
1414         Exit=1;
1415 }
1416
1417 static void ResetPPU(void)
1418 {
1419         VRAMBuffer=PPU[0]=PPU[1]=PPU[2]=PPU[3]=0;
1420         PPUSPL=0;
1421         PPUGenLatch=0;
1422         RefreshAddr=TempAddr=0;
1423         vtoggle = 0;
1424         ppudead = 2;
1425         kook = 0;
1426 }
1427
1428 static void PowerPPU(void)
1429 {
1430         memset(NTARAM,0x00,0x800);
1431         memset(PALRAM,0x00,0x20);
1432         memset(SPRAM,0x00,0x100);
1433         ResetPPU();
1434 }
1435
1436 void ResetNES(void)
1437 {
1438         if(!GameLoaded || (FCEUGameInfo.type==GIT_NSF)) return;
1439         GameInterface(GI_RESETM2);
1440         ResetSound();
1441         ResetPPU();
1442         X6502_Reset();
1443 }
1444
1445 void PowerNES(void)
1446 {
1447         if(!GameLoaded) return;
1448
1449         FCEU_CheatResetRAM();
1450         FCEU_CheatAddRAM(2,0,RAM);
1451
1452         GeniePower();
1453
1454         memset(RAM,0x00,0x800);
1455         ResetMapping();
1456         GameInterface(GI_POWER);
1457         PowerSound();
1458         PowerPPU();
1459         timestampbase=0;
1460         X6502_Power();
1461 }
1462
1463
1464 /* savestate stuff */
1465 uint16 TempAddrT,RefreshAddrT;
1466
1467 SFORMAT FCEUPPU_STATEINFO[]={
1468  { NTARAM, 0x800, "NTAR"},
1469  { PALRAM, 0x20, "PRAM"},
1470  { SPRAM, 0x100, "SPRA"},
1471  { PPU, 0x4, "PPUR"},
1472  { &XOffset, 1, "XOFF"},
1473  { &vtoggle, 1, "VTOG"},
1474  { &RefreshAddrT, 2|RLSB, "RADD"},
1475  { &TempAddrT, 2|RLSB, "TADD"},
1476  { &VRAMBuffer, 1, "VBUF"},
1477  { &PPUGenLatch, 1, "PGEN"},
1478  // from 0.98.15
1479  { &kook, 1, "KOOK"},
1480  { &ppudead, 1, "DEAD"},
1481  { &PPUSPL, 1, "PSPL"},
1482  { 0 }
1483  };
1484
1485