updated bords/mappers/stuff to 0.98.15, lots of them got broken, asmcore support...

[fceu.git] / nsf.c

/* FCE Ultra - NES/Famicom Emulator\r
 *\r
 * Copyright notice for this file:\r
 *  Copyright (C) 2002 Xodnizel\r
 *\r
 * This program is free software; you can redistribute it and/or modify\r
 * it under the terms of the GNU General Public License as published by\r
 * the Free Software Foundation; either version 2 of the License, or\r
 * (at your option) any later version.\r
 *\r
 * This program is distributed in the hope that it will be useful,\r
 * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
 * GNU General Public License for more details.\r
 *\r
 * You should have received a copy of the GNU General Public License\r
 * along with this program; if not, write to the Free Software\r
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
 */\r
\r
#include <stdio.h>\r
#include <stdlib.h>\r
#include <string.h>\r
#include <math.h>\r
\r
#include "types.h"\r
#include "x6502.h"\r
#include "fce.h"\r
#include "video.h"\r
#include "sound.h"\r
#include "nsf.h"\r
#include "general.h"\r
#include "memory.h"\r
#include "file.h"\r
#include "fds.h"\r
#include "cart.h"\r
#include "input.h"\r
\r
#include "svga.h"\r
\r
#ifndef M_PI\r
#define M_PI 3.14159265358979323846\r
#endif\r
\r
static uint8 SongReload;\r
static int CurrentSong;\r
\r
static DECLFW(NSF_write);\r
static DECLFR(NSF_read);\r
\r
static int vismode=1;\r
\r
static uint8 NSFROM[0x30+6]=\r
{\r
/* 0x00 - NMI */\r
0x8D,0xF4,0x3F,       /* Stop play routine NMIs. */\r
0xA2,0xFF,0x9A,       /* Initialize the stack pointer. */\r
0xAD,0xF0,0x3F,       /* See if we need to init. */\r
0xF0,0x09,            /* If 0, go to play routine playing. */\r
\r
0xAD,0xF1,0x3F,       /* Confirm and load A      */\r
0xAE,0xF3,0x3F,       /* Load X with PAL/NTSC byte */\r
\r
0x20,0x00,0x00,       /* JSR to init routine     */\r
\r
0xA9,0x00,\r
0xAA,\r
0xA8,\r
0x20,0x00,0x00,       /* JSR to play routine  */\r
0x8D,0xF5,0x3F,        /* Start play routine NMIs. */\r
0x90,0xFE,             /* Loopie time. */\r
\r
/* 0x20 */\r
0x8D,0xF3,0x3F,        /* Init init NMIs */\r
0x18,\r
0x90,0xFE        /* Loopie time. */\r
};\r
\r
static DECLFR(NSFROMRead)\r
{\r
 return (NSFROM-0x3800)[A];\r
}\r
\r
static int doreset=0;\r
static int NSFNMIFlags;\r
static uint8 *NSFDATA=0;\r
static int NSFMaxBank;\r
\r
static int NSFSize;\r
static uint8 BSon;\r
static uint16 PlayAddr;\r
static uint16 InitAddr;\r
static uint16 LoadAddr;\r
\r
static NSF_HEADER NSFHeader;\r
\r
void NSFMMC5_Close(void);\r
static uint8 *ExWRAM=0;\r
\r
void NSFGI(int h)\r
{\r
 switch(h)\r
 {\r
 case GI_CLOSE:\r
  if(NSFDATA) {free(NSFDATA);NSFDATA=0;}\r
  if(ExWRAM) {free(ExWRAM);ExWRAM=0;}\r
  if(NSFHeader.SoundChip&1) {\r
//   NSFVRC6_Init();\r
  } else if(NSFHeader.SoundChip&2) {\r
//   NSFVRC7_Init();\r
  } else if(NSFHeader.SoundChip&4) {\r
//   FDSSoundReset();\r
  } else if(NSFHeader.SoundChip&8) {\r
   NSFMMC5_Close();\r
  } else if(NSFHeader.SoundChip&0x10) {\r
//   NSFN106_Init();\r
  } else if(NSFHeader.SoundChip&0x20) {\r
//   NSFAY_Init();\r
  }\r
  break;\r
 case GI_RESETM2:\r
 case GI_POWER: NSF_init();break;\r
 }\r
}\r
\r
// First 32KB is reserved for sound chip emulation in the iNES mapper code.\r
\r
static INLINE void BANKSET(uint32 A, uint32 bank)\r
{\r
 bank&=NSFMaxBank;\r
 if(NSFHeader.SoundChip&4)\r
  memcpy(ExWRAM+(A-0x6000),NSFDATA+(bank<<12),4096);\r
 else\r
  setprg4(A,bank);\r
}\r
\r
int NSFLoad(int fp)\r
{\r
  int x;\r
\r
  FCEU_fseek(fp,0,SEEK_SET);\r
  FCEU_fread(&NSFHeader,1,0x80,fp);\r
  if(memcmp(NSFHeader.ID,"NESM\x1a",5))\r
                  return 0;\r
  NSFHeader.SongName[31]=NSFHeader.Artist[31]=NSFHeader.Copyright[31]=0;\r
\r
  LoadAddr=NSFHeader.LoadAddressLow;\r
  LoadAddr|=NSFHeader.LoadAddressHigh<<8;\r
\r
  if(LoadAddr<0x6000)\r
  {\r
   FCEUD_PrintError("Invalid load address.");\r
   return(0);\r
  }\r
  InitAddr=NSFHeader.InitAddressLow;\r
  InitAddr|=NSFHeader.InitAddressHigh<<8;\r
\r
  PlayAddr=NSFHeader.PlayAddressLow;\r
  PlayAddr|=NSFHeader.PlayAddressHigh<<8;\r
\r
  NSFSize=FCEU_fgetsize(fp)-0x80;\r
\r
  NSFMaxBank=((NSFSize+(LoadAddr&0xfff)+4095)/4096);\r
  NSFMaxBank=uppow2(NSFMaxBank);\r
\r
  if(!(NSFDATA=(uint8 *)FCEU_malloc(NSFMaxBank*4096)))\r
   return 0;\r
\r
  FCEU_fseek(fp,0x80,SEEK_SET);\r
  memset(NSFDATA,0x00,NSFMaxBank*4096);\r
  FCEU_fread(NSFDATA+(LoadAddr&0xfff),1,NSFSize,fp);\r
\r
  NSFMaxBank--;\r
\r
  BSon=0;\r
  for(x=0;x<8;x++)\r
   BSon|=NSFHeader.BankSwitch[x];\r
\r
 FCEUGameInfo.type=GIT_NSF;\r
 FCEUGameInfo.input[0]=FCEUGameInfo.input[1]=SI_GAMEPAD;\r
 FCEUGameInfo.cspecial=SIS_NSF;\r
\r
 for(x=0;;x++)\r
 {\r
  if(NSFROM[x]==0x20)\r
  {\r
   NSFROM[x+1]=InitAddr&0xFF;\r
   NSFROM[x+2]=InitAddr>>8;\r
   NSFROM[x+8]=PlayAddr&0xFF;\r
   NSFROM[x+9]=PlayAddr>>8;\r
   break;\r
  }\r
 }\r
\r
 if(NSFHeader.VideoSystem==0)\r
  FCEUGameInfo.vidsys=GIV_NTSC;\r
 else if(NSFHeader.VideoSystem==1)\r
  FCEUGameInfo.vidsys=GIV_PAL;\r
\r
 GameInterface=NSFGI;\r
\r
 FCEU_printf("NSF Loaded.  File information:\n\n");\r
 FCEU_printf(" Name:       %s\n Artist:     %s\n Copyright:  %s\n\n",NSFHeader.SongName,NSFHeader.Artist,NSFHeader.Copyright);\r
 if(NSFHeader.SoundChip)\r
 {\r
  static char *tab[6]={"Konami VRCVI","Konami VRCVII","Nintendo FDS","Nintendo MMC5","Namco 106","Sunsoft FME-07"};\r
\r
  for(x=0;x<6;x++)\r
   if(NSFHeader.SoundChip&(1<<x))\r
   {\r
    FCEU_printf(" Expansion hardware:  %s\n",tab[x]);\r
    NSFHeader.SoundChip=1<<x;  /* Prevent confusing weirdness if more than one bit is set. */\r
    break;\r
   }\r
 }\r
 if(BSon)\r
  FCEU_printf(" Bank-switched.\n");\r
 FCEU_printf(" Load address:  $%04x\n Init address:  $%04x\n Play address:  $%04x\n",LoadAddr,InitAddr,PlayAddr);\r
 FCEU_printf(" %s\n",(NSFHeader.VideoSystem&1)?"PAL":"NTSC");\r
 FCEU_printf(" Starting song:  %d / %d\n\n",NSFHeader.StartingSong,NSFHeader.TotalSongs);\r
\r
 if(NSFHeader.SoundChip&4)\r
  ExWRAM=FCEU_gmalloc(32768+8192);\r
 else\r
  ExWRAM=FCEU_gmalloc(8192);\r
\r
 FCEUI_SetVidSystem(NSFHeader.VideoSystem);\r
\r
 return 1;\r
}\r
\r
static DECLFR(NSFVectorRead)\r
{\r
 if(((NSFNMIFlags&1) && SongReload) || (NSFNMIFlags&2) || doreset)\r
 {\r
  if(A==0xFFFA) return(0x00);\r
  else if(A==0xFFFB) return(0x38);\r
  else if(A==0xFFFC) return(0x20);\r
  else if(A==0xFFFD) {doreset=0;return(0x38);}\r
  return(X.DB);\r
 }\r
 else\r
  return(CartBR(A));\r
}\r
\r
void NSFVRC6_Init(void);\r
void NSFVRC7_Init(void);\r
void NSFMMC5_Init(void);\r
void NSFN106_Init(void);\r
void NSFAY_Init(void);\r
\r
void NSF_init(void)\r
{\r
  doreset=1;\r
\r
  ResetCartMapping();\r
  if(NSFHeader.SoundChip&4)\r
  {\r
   SetupCartPRGMapping(0,ExWRAM,32768+8192,1);\r
   setprg32(0x6000,0);\r
   setprg8(0xE000,4);\r
   memset(ExWRAM,0x00,32768+8192);\r
   SetWriteHandler(0x6000,0xDFFF,CartBW);\r
   SetReadHandler(0x6000,0xFFFF,CartBR);\r
  }\r
  else\r
  {\r
   memset(ExWRAM,0x00,8192);\r
   SetReadHandler(0x6000,0x7FFF,CartBR);\r
   SetWriteHandler(0x6000,0x7FFF,CartBW);\r
   SetupCartPRGMapping(0,NSFDATA,((NSFMaxBank+1)*4096),0);\r
   SetupCartPRGMapping(1,ExWRAM,8192,1);\r
   setprg8r(1,0x6000,0);\r
   SetReadHandler(0x8000,0xFFFF,CartBR);\r
  }\r
\r
  if(BSon)\r
  {\r
   int32 x;\r
   for(x=0;x<8;x++)\r
   {\r
    if(NSFHeader.SoundChip&4 && x>=6)\r
     BANKSET(0x6000+(x-6)*4096,NSFHeader.BankSwitch[x]);\r
    BANKSET(0x8000+x*4096,NSFHeader.BankSwitch[x]);\r
   }\r
  }\r
  else\r
  {\r
   int32 x;\r
   for(x=(LoadAddr&0xF000);x<0x10000;x+=0x1000)\r
    BANKSET(x,((x-(LoadAddr&0x7000))>>12));\r
  }\r
\r
  SetReadHandler(0xFFFA,0xFFFD,NSFVectorRead);\r
\r
  SetWriteHandler(0x2000,0x3fff,0);\r
  SetReadHandler(0x2000,0x37ff,0);\r
  SetReadHandler(0x3836,0x3FFF,0);\r
  SetReadHandler(0x3800,0x3835,NSFROMRead);\r
\r
  SetWriteHandler(0x5ff6,0x5fff,NSF_write);\r
\r
  SetWriteHandler(0x3ff0,0x3fff,NSF_write);\r
  SetReadHandler(0x3ff0,0x3fff,NSF_read);\r
\r
\r
  if(NSFHeader.SoundChip&1) {\r
   NSFVRC6_Init();\r
  } else if(NSFHeader.SoundChip&2) {\r
   NSFVRC7_Init();\r
  } else if(NSFHeader.SoundChip&4) {\r
   FDSSoundReset();\r
  } else if(NSFHeader.SoundChip&8) {\r
   NSFMMC5_Init();\r
  } else if(NSFHeader.SoundChip&0x10) {\r
   NSFN106_Init();\r
  } else if(NSFHeader.SoundChip&0x20) {\r
   NSFAY_Init();\r
  }\r
  CurrentSong=NSFHeader.StartingSong;\r
  SongReload=0xFF;\r
  NSFNMIFlags=0;\r
}\r
\r
static DECLFW(NSF_write)\r
{\r
 switch(A)\r
 {\r
  case 0x3FF3:NSFNMIFlags|=1;break;\r
  case 0x3FF4:NSFNMIFlags&=~2;break;\r
  case 0x3FF5:NSFNMIFlags|=2;break;\r
\r
  case 0x5FF6:\r
  case 0x5FF7:if(!(NSFHeader.SoundChip&4)) return;\r
  case 0x5FF8:\r
  case 0x5FF9:\r
  case 0x5FFA:\r
  case 0x5FFB:\r
  case 0x5FFC:\r
  case 0x5FFD:\r
  case 0x5FFE:\r
  case 0x5FFF:if(!BSon) return;\r
              A&=0xF;\r
              BANKSET((A*4096),V);\r
  	      break;\r
 }\r
}\r
\r
static DECLFR(NSF_read)\r
{\r
 int x;\r
\r
 switch(A)\r
 {\r
 case 0x3ff0:x=SongReload;\r
	     if(!fceuindbg)\r
	      SongReload=0;\r
	     return x;\r
 case 0x3ff1:\r
	    if(!fceuindbg)\r
	    {\r
             memset(RAM,0x00,0x800);\r
\r
             BWrite[0x4015](0x4015,0x0);\r
             for(x=0;x<0x14;x++)\r
              BWrite[0x4000+x](0x4000+x,0);\r
             BWrite[0x4015](0x4015,0xF);\r
\r
	     if(NSFHeader.SoundChip&4)\r
	     {\r
        BWrite[0x4017](0x4017,0xC0);  /* FDS BIOS writes $C0 */\r
	      BWrite[0x4089](0x4089,0x80);\r
	      BWrite[0x408A](0x408A,0xE8);\r
	     }\r
	     else\r
	     {\r
	      memset(ExWRAM,0x00,8192);\r
	      BWrite[0x4017](0x4017,0xC0);\r
              BWrite[0x4017](0x4017,0xC0);\r
              BWrite[0x4017](0x4017,0x40);\r
	     }\r
\r
             if(BSon)\r
             {\r
              for(x=0;x<8;x++)\r
	       BANKSET(0x8000+x*4096,NSFHeader.BankSwitch[x]);\r
             }\r
             return (CurrentSong-1);\r
 	     }\r
 case 0x3FF3:return PAL;\r
 }\r
 return 0;\r
}\r
\r
uint8 FCEU_GetJoyJoy(void);\r
\r
static int special=0;\r
\r
void DrawNSF(uint8 *XBuf)\r
{\r
 char snbuf[16];\r
 int x;\r
\r
 if(vismode==0) return;\r
\r
 memset(XBuf,0,256*240);\r
\r
\r
 {\r
  int32 *Bufpl;\r
  int32 mul=0;\r
\r
  int l;\r
  l=GetSoundBuffer(&Bufpl);\r
\r
  if(special==0)\r
  {\r
   if(FSettings.SoundVolume)\r
    mul=8192*240/(16384*FSettings.SoundVolume/50);\r
   for(x=0;x<256;x++)\r
   {\r
    uint32 y;\r
    y=142+((Bufpl[(x*l)>>8]*mul)>>14);\r
    if(y<240)\r
     XBuf[x+y*256]=3;\r
   }\r
  }\r
  else if(special==1)\r
  {\r
   if(FSettings.SoundVolume)\r
    mul=8192*240/(8192*FSettings.SoundVolume/50);\r
   for(x=0;x<256;x++)\r
   {\r
    double r;\r
    uint32 xp,yp;\r
\r
    r=(Bufpl[(x*l)>>8]*mul)>>14;\r
    xp=128+r*cos(x*M_PI*2/256);\r
    yp=120+r*sin(x*M_PI*2/256);\r
    xp&=255;\r
    yp%=240;\r
    XBuf[xp+yp*256]=3;\r
   }\r
  }\r
  else if(special==2)\r
  {\r
   static double theta=0;\r
   if(FSettings.SoundVolume)\r
    mul=8192*240/(16384*FSettings.SoundVolume/50);\r
   for(x=0;x<128;x++)\r
   {\r
    double xc,yc;\r
    double r,t;\r
    uint32 m,n;\r
\r
    xc=(double)128-x;\r
    yc=0-((double)( ((Bufpl[(x*l)>>8]) *mul)>>14));\r
    t=M_PI+atan(yc/xc);\r
    r=sqrt(xc*xc+yc*yc);\r
\r
    t+=theta;\r
    m=128+r*cos(t);\r
    n=120+r*sin(t);\r
\r
    if(m<256 && n<240)\r
     XBuf[m+n*256]=3;\r
\r
   }\r
   for(x=128;x<256;x++)\r
   {\r
    double xc,yc;\r
    double r,t;\r
    uint32 m,n;\r
\r
    xc=(double)x-128;\r
    yc=(double)((Bufpl[(x*l)>>8]*mul)>>14);\r
    t=atan(yc/xc);\r
    r=sqrt(xc*xc+yc*yc);\r
\r
    t+=theta;\r
    m=128+r*cos(t);\r
    n=120+r*sin(t);\r
\r
    if(m<256 && n<240)\r
     XBuf[m+n*256]=3;\r
\r
   }\r
   theta+=(double)M_PI/256;\r
  }\r
 }\r
\r
 DrawTextTrans(XBuf+10*256+4+(((31-strlen((char*)NSFHeader.SongName))<<2)), 256, NSFHeader.SongName, 6);\r
 DrawTextTrans(XBuf+26*256+4+(((31-strlen((char*)NSFHeader.Artist))<<2)), 256,NSFHeader.Artist, 6);\r
 DrawTextTrans(XBuf+42*256+4+(((31-strlen((char*)NSFHeader.Copyright))<<2)), 256,NSFHeader.Copyright, 6);\r
\r
 DrawTextTrans(XBuf+70*256+4+(((31-strlen("Song:"))<<2)), 256, (uint8*)"Song:", 6);\r
 sprintf(snbuf,"<%d/%d>",CurrentSong,NSFHeader.TotalSongs);\r
 DrawTextTrans(XBuf+82*256+4+(((31-strlen(snbuf))<<2)), 256, (uint8*)snbuf, 6);\r
\r
 {\r
  static uint8 last=0;\r
  uint8 tmp;\r
  tmp=FCEU_GetJoyJoy();\r
  if((tmp&JOY_RIGHT) && !(last&JOY_RIGHT))\r
  {\r
   if(CurrentSong<NSFHeader.TotalSongs)\r
   {\r
    CurrentSong++;\r
    SongReload=0xFF;\r
   }\r
  }\r
  else if((tmp&JOY_LEFT) && !(last&JOY_LEFT))\r
  {\r
   if(CurrentSong>1)\r
   {\r
    CurrentSong--;\r
    SongReload=0xFF;\r
   }\r
  }\r
  else if((tmp&JOY_UP) && !(last&JOY_UP))\r
  {\r
   CurrentSong+=10;\r
   if(CurrentSong>NSFHeader.TotalSongs) CurrentSong=NSFHeader.TotalSongs;\r
   SongReload=0xFF;\r
  }\r
  else if((tmp&JOY_DOWN) && !(last&JOY_DOWN))\r
  {\r
   CurrentSong-=10;\r
   if(CurrentSong<1) CurrentSong=1;\r
   SongReload=0xFF;\r
  }\r
  else if((tmp&JOY_START) && !(last&JOY_START))\r
   SongReload=0xFF;\r
  else if((tmp&JOY_A) && !(last&JOY_A))\r
  {\r
   special=(special+1)%3;\r
  }\r
  last=tmp;\r
 }\r
}\r
\r
void DoNSFFrame(void)\r
{\r
 if(((NSFNMIFlags&1) && SongReload) || (NSFNMIFlags&2))\r
  TriggerNMI();\r
}\r
\r
void FCEUI_NSFSetVis(int mode)\r
{\r
 vismode=mode;\r
}\r
\r
int FCEUI_NSFChange(int amount)\r
{\r
   CurrentSong+=amount;\r
   if(CurrentSong<1) CurrentSong=1;\r
   else if(CurrentSong>NSFHeader.TotalSongs) CurrentSong=NSFHeader.TotalSongs;\r
   SongReload=0xFF;\r
\r
   return(CurrentSong);\r
}\r
\r
/* Returns total songs */\r
int FCEUI_NSFGetInfo(uint8 *name, uint8 *artist, uint8 *copyright, int maxlen)\r
{\r
 strncpy((char*)name,(char*)NSFHeader.SongName,maxlen);\r
 strncpy((char*)artist,(char*)NSFHeader.Artist,maxlen);\r
 strncpy((char*)copyright,(char*)NSFHeader.Copyright,maxlen);\r
 return(NSFHeader.TotalSongs);\r
}\r