wwfsstar.c

十七种模拟器源代码 非常有用的作课程设计不可缺少的

/******************************************************************************/
/*                                                                            */
/*                  WWF SUPER STARS (C) 1989 TECHNOS JAPAN                    */
/*                                                                            */
/******************************************************************************/

#include "gameinc.h"
#include "wwfsstar.h"
#include "tchnosnd.h"
#include "sasound.h"		// sample support routines

static struct DIR_INFO wwf_super_stars_dirs[] =
{
   { "wwf_super_stars", },
   { "wwfsstar", },
   { NULL, },
};

static struct ROM_INFO wwf_super_stars_roms[] =
{
   {   "wwfs43.bin", 0x00010000, 0xaafc4a38, 0, 0, 0, },
   {   "wwfs02.bin", 0x00010000, 0x6e63c457, 0, 0, 0, },
   {   "wwfs03.bin", 0x00010000, 0x8a35a20e, 0, 0, 0, },
   {   "wwfs04.bin", 0x00010000, 0xd7018a9c, 0, 0, 0, },
   {   "wwfs05.bin", 0x00010000, 0x6df08962, 0, 0, 0, },
   {   "wwfs06.bin", 0x00010000, 0x154ca5ce, 0, 0, 0, },
   {   "wwfs07.bin", 0x00010000, 0x369559e6, 0, 0, 0, },
   {   "wwfs08.bin", 0x00010000, 0x166fe8c8, 0, 0, 0, },
   {   "wwfs09.bin", 0x00010000, 0x8cbcd5aa, 0, 0, 0, },
   {   "wwfs10.bin", 0x00010000, 0xa3382dfe, 0, 0, 0, },
   {   "wwfs11.bin", 0x00010000, 0x3d4684dc, 0, 0, 0, },
   {   "wwfs12.bin", 0x00010000, 0x242caff5, 0, 0, 0, },
   {   "wwfs13.bin", 0x00010000, 0x970b6e76, 0, 0, 0, },
   {   "wwfs14.bin", 0x00010000, 0x67eb7bea, 0, 0, 0, },
   {   "wwfs15.bin", 0x00010000, 0xaac5a928, 0, 0, 0, },
   {   "wwfs16.bin", 0x00010000, 0x08343e7f, 0, 0, 0, },
   {   "wwfs17.bin", 0x00010000, 0xef12069f, 0, 0, 0, },
   {   "wwfs18.bin", 0x00010000, 0xaf11ad2a, 0, 0, 0, },
   {   "wwfs19.bin", 0x00010000, 0x7426d444, 0, 0, 0, },
   {   "wwfs20.bin", 0x00010000, 0xb2a8050e, 0, 0, 0, },
   {   "wwfs21.bin", 0x00010000, 0xc52eee5e, 0, 0, 0, },
   {   "wwfs22.bin", 0x00010000, 0x81fe1bf7, 0, 0, 0, },
   {   "wwfs23.bin", 0x00010000, 0x681f5b5e, 0, 0, 0, },
   {   "wwfs24.bin", 0x00010000, 0x76b08bcd, 0, 0, 0, },
   {   "wwfs25.bin", 0x00010000, 0xbbf69c6a, 0, 0, 0, },
   {   "wwfs26.bin", 0x00010000, 0x2ca91eaf, 0, 0, 0, },
   {   "wwfs27.bin", 0x00010000, 0xf3eb8ab9, 0, 0, 0, },
   {   "wwfs28.bin", 0x00010000, 0x70fda626, 0, 0, 0, },
   {   "wwfs29.bin", 0x00010000, 0x7b5b9d83, 0, 0, 0, },
   {   "wwfs30.bin", 0x00010000, 0x94094518, 0, 0, 0, },
   {   "wwfs31.bin", 0x00010000, 0xf94c74d5, 0, 0, 0, },
   {   "wwfs32.bin", 0x00010000, 0x9becd621, 0, 0, 0, },
   {   "wwfs33.bin", 0x00010000, 0xf6923db6, 0, 0, 0, },
   {   "wwfs34.bin", 0x00010000, 0x742a79db, 0, 0, 0, },
   {   "wwfs35.bin", 0x00010000, 0x9d648d82, 0, 0, 0, },
   {   "wwfs36.bin", 0x00010000, 0x9005e942, 0, 0, 0, },
   {   "wwfs37.bin", 0x00010000, 0x5e8d7407, 0, 0, 0, },
   {   "wwfs38.bin", 0x00010000, 0xd8ea94d3, 0, 0, 0, },
   {   "wwfs39.bin", 0x00010000, 0xd807b09a, 0, 0, 0, },
   {   "wwfs40.bin", 0x00010000, 0x4d75fd89, 0, 0, 0, },
   {   "wwfs41.bin", 0x00010000, 0xed7f69d5, 0, 0, 0, },
   {   "wwfs42.bin", 0x00010000, 0xe48b88fb, 0, 0, 0, },
   {   "wwfs01.bin", 0x00008000, 0x1e44f8aa, 0, 0, 0, },
   {   "wwfs44.bin", 0x00010000, 0x4f965fa9, 0, 0, 0, },
   {   "wwfs45.bin", 0x00010000, 0xb2fad792, 0, 0, 0, },
   {   "wwfs46.bin", 0x00010000, 0x985e5180, 0, 0, 0, },
   {   "wwfs47.bin", 0x00010000, 0x6fd7b6ea, 0, 0, 0, },
   {   "wwfs48.bin", 0x00010000, 0x251372fd, 0, 0, 0, },
   {   "wwfs49.bin", 0x00010000, 0xa14076b0, 0, 0, 0, },
   {   "wwfs50.bin", 0x00010000, 0x7fc79df5, 0, 0, 0, },
   {   "wwfs51.bin", 0x00010000, 0x51157385, 0, 0, 0, },
   {           NULL,          0,          0, 0, 0, 0, },
};

static struct INPUT_INFO wwf_super_stars_inputs[] =
{
   { KB_DEF_COIN1,        MSG_COIN1,               0x014008, 0x04, BIT_ACTIVE_0 },
   { KB_DEF_COIN2,        MSG_COIN2,               0x014008, 0x08, BIT_ACTIVE_0 },

   { KB_DEF_P1_START,     MSG_P1_START,            0x014004, 0x80, BIT_ACTIVE_0 },
   { KB_DEF_P1_UP,        MSG_P1_UP,               0x014004, 0x04, BIT_ACTIVE_0 },
   { KB_DEF_P1_DOWN,      MSG_P1_DOWN,             0x014004, 0x08, BIT_ACTIVE_0 },
   { KB_DEF_P1_LEFT,      MSG_P1_LEFT,             0x014004, 0x02, BIT_ACTIVE_0 },
   { KB_DEF_P1_RIGHT,     MSG_P1_RIGHT,            0x014004, 0x01, BIT_ACTIVE_0 },
   { KB_DEF_P1_B1,        MSG_P1_B1,               0x014004, 0x10, BIT_ACTIVE_0 },
   { KB_DEF_P1_B2,        MSG_P1_B2,               0x014004, 0x20, BIT_ACTIVE_0 },
   { KB_DEF_P1_B3,        MSG_P1_B3,               0x014004, 0x40, BIT_ACTIVE_0 },

   { KB_DEF_P2_START,     MSG_P2_START,            0x014006, 0x80, BIT_ACTIVE_0 },
   { KB_DEF_P2_UP,        MSG_P2_UP,               0x014006, 0x04, BIT_ACTIVE_0 },
   { KB_DEF_P2_DOWN,      MSG_P2_DOWN,             0x014006, 0x08, BIT_ACTIVE_0 },
   { KB_DEF_P2_LEFT,      MSG_P2_LEFT,             0x014006, 0x02, BIT_ACTIVE_0 },
   { KB_DEF_P2_RIGHT,     MSG_P2_RIGHT,            0x014006, 0x01, BIT_ACTIVE_0 },
   { KB_DEF_P2_B1,        MSG_P2_B1,               0x014006, 0x10, BIT_ACTIVE_0 },
   { KB_DEF_P2_B2,        MSG_P2_B2,               0x014006, 0x20, BIT_ACTIVE_0 },
   { KB_DEF_P2_B3,        MSG_P2_B3,               0x014006, 0x40, BIT_ACTIVE_0 },

   { 0,                   NULL,                    0,        0,    0            },
};

static struct DSW_DATA dsw_data_wwf_super_stars_0[] =
{
   { MSG_COIN1,               0x07, 0x08 },
   { MSG_1COIN_1PLAY,         0x07, 0x00 },
   { MSG_1COIN_2PLAY,         0x06, 0x00 },
   { MSG_1COIN_3PLAY,         0x05, 0x00 },
   { MSG_1COIN_4PLAY,         0x04, 0x00 },
   { MSG_1COIN_5PLAY,         0x03, 0x00 },
   { MSG_2COIN_1PLAY,         0x02, 0x00 },
   { MSG_3COIN_1PLAY,         0x01, 0x00 },
   { MSG_4COIN_1PLAY,         0x00, 0x00 },
   { MSG_COIN2,               0x38, 0x08 },
   { MSG_1COIN_1PLAY,         0x38, 0x00 },
   { MSG_1COIN_2PLAY,         0x30, 0x00 },
   { MSG_1COIN_3PLAY,         0x28, 0x00 },
   { MSG_1COIN_4PLAY,         0x20, 0x00 },
   { MSG_1COIN_5PLAY,         0x18, 0x00 },
   { MSG_2COIN_1PLAY,         0x10, 0x00 },
   { MSG_3COIN_1PLAY,         0x08, 0x00 },
   { MSG_4COIN_1PLAY,         0x00, 0x00 },
   { "Cabinet",               0x40, 0x02 },
   { "Table",                 0x40, 0x00 },
   { "Upright",               0x00, 0x00 },
   { MSG_SCREEN,              0x80, 0x02 },
   { MSG_NORMAL,              0x80, 0x00 },
   { MSG_INVERT,              0x00, 0x00 },
   { NULL,                    0,    0,   },
};

static struct DSW_DATA dsw_data_wwf_super_stars_1[] =
{
   { MSG_DIFFICULTY,          0x03, 0x04 },
   { MSG_NORMAL,              0x03, 0x00 },
   { MSG_EASY,                0x02, 0x00 },
   { MSG_HARD,                0x01, 0x00 },
   { MSG_HARDEST,             0x00, 0x00 },
   { "Attract Mode",          0x04, 0x02 },
   { "Sound",                 0x04, 0x00 },
   { "Silent",                0x00, 0x00 },
   { "Super Techniques",      0x08, 0x02 },
   { MSG_NORMAL,              0x08, 0x00 },
   { MSG_HARD,                0x00, 0x00 },
   { "Game Time",             0x30, 0x04 },
   { "+0",                    0x30, 0x00 },
   { "+15",                   0x20, 0x00 },
   { "-15",                   0x10, 0x00 },
   { "-30",                   0x00, 0x00 },
   { "3 Buttons",             0x40, 0x02 },
   { MSG_OFF,                 0x40, 0x00 },
   { MSG_ON,                  0x00, 0x00 },
   { "Game Clear",            0x80, 0x02 },
   { MSG_OFF,                 0x80, 0x00 },
   { MSG_ON,                  0x00, 0x00 },
   { NULL,                    0,    0,   },
};

static struct DSW_INFO wwf_super_stars_dsw[] =
{
   { 0x014001, 0xFF, dsw_data_wwf_super_stars_0 },
   { 0x014003, 0xFF, dsw_data_wwf_super_stars_1 },
   { 0,        0,    NULL,      },
};

static struct VIDEO_INFO wwf_super_stars_video =
{
   DrawWWFSuperStars,
   256,
   256,
   32,
   VIDEO_ROTATE_NORMAL |
   VIDEO_ROTATABLE,
};

struct GAME_MAIN game_wwf_super_stars =
{
   wwf_super_stars_dirs,
   wwf_super_stars_roms,
   wwf_super_stars_inputs,
   wwf_super_stars_dsw,
   NULL,

   LoadWWFSuperStars,
   ClearWWFSuperStars,
   &wwf_super_stars_video,
   ExecuteWWFSuperStarsFrame,
   "wwfsstar",
   "WWF Superstars",
   "倂倂俥僗乕僷乕僗僞乕僘",
   COMPANY_ID_TECHNOS,
   "TA-0024",
   1989,
   technos_ym2151_m6295_sound,
   GAME_BEAT,
};

static UINT8 *GFX_BG0_SOLID;
static UINT8 *GFX_SPR_SOLID;
static UINT8 *GFX_FG0_SOLID;

static void WriteOutByte(UINT32 address, UINT8 data)
{
   address&=0x0F;
   RAM[(0x14010+address)^1]=data;

   if(address==9) TechnosSoundWrite68k(address,data);
}

static void WriteOutWord(UINT32 address, UINT16 data)
{
   address&=0x0F;
   WriteWord(&RAM[0x14010+address],data);

   if(address==8) TechnosSoundWrite68k(address, (UINT8) (data&0xFF));
}

static void WWFSuperStarsSpeedPatch(void)
{
   int address;

   for(address=0;address<0x40000-8;address+=2){
   if(ROM[address+0]==0x08){
   if(ROM[address+1]==0x39){
   if(ROM[address+2]==0x00){
   if(ROM[address+3]==0x00){
   if(ROM[address+4]==0x00){
   if(ROM[address+5]==0x18){
   if(ROM[address+6]==0x00){
   if(ROM[address+7]==0x09){

   if(ROM[address+8]==0x66){

   WriteLong68k(&ROM[address+0],0x13FC0000);
   WriteLong68k(&ROM[address+4],0x00AA0000);
   WriteWord68k(&ROM[address+8],0x4E71);

   }
   else{

   WriteLong68k(&ROM[address+0],0x4E714E71);
   WriteLong68k(&ROM[address+4],0x4E714E71);
   WriteWord68k(&ROM[address+8],0x4E71);

   }

   }}}}}}}}
   }

   WriteLong68k(&ROM[0x0F6A+0],0x4E714E71);
   WriteLong68k(&ROM[0x0F6A+4],0x4E714E71);
   WriteWord68k(&ROM[0x0F6A+8],0x4E71);
}

void LoadWWFSuperStars(void)
{
   int ta,tb,tc,td,te;

   RAMSize=0x40000+0x10000;

   if(!(ROM=AllocateMem(0x40000))) return;
   if(!(RAM=AllocateMem(RAMSize))) return;
   if(!(GFX=AllocateMem(0x540000))) return;

   /*-------[SOUND SYSTEM INIT]-------*/

   Z80ROM=RAM+0x40000;
   if(!load_rom("wwfs01.bin", Z80ROM, 0x8000)) return;	// Z80 SOUND ROM

   Z80ROM[0x0122]=0x01;
   Z80ROM[0x0121]=0x2A;

   Z80ROM[0x0163]=0xC9;

   if(!(PCMROM = AllocateMem(0x40000))) return;
   if(!load_rom("wwfs02.bin",PCMROM+0x00000,0x10000)) return;	// ADPCM ROM <temp>
   if(!load_rom("wwfs04.bin",PCMROM+0x10000,0x10000)) return;	// ADPCM ROM <temp>
   if(!load_rom("wwfs03.bin",PCMROM+0x20000,0x10000)) return;	// ADPCM ROM <temp>
   if(!load_rom("wwfs05.bin",PCMROM+0x30000,0x10000)) return;	// ADPCM ROM <temp>

   AddTechnosSoundOld(0x012A, 0x0100, 0x8000, PCMROM, 160);

   /*---------------------------------*/

   if(!load_rom("wwfs06.bin", RAM+0x00000, 0x10000)) return;		// 8x8 FG0 TILES
   if(!load_rom("wwfs11.bin", RAM+0x10000, 0x10000)) return;		// 8x8 FG0 TILES
   tb=0;
   for(ta=0;ta<0x20000;ta+=32){
      for(td=0;td<8;td+=2){
      for(te=0;te<8;te++){
      tc=RAM[ta+(td<<2)+te];
      GFX[tb+1+td+(te<<3)]=(((tc&0x80)>>7)<<3);
      GFX[tb+0+td+(te<<3)]=(((tc&0x40)>>6)<<3);
      GFX[tb+1+td+(te<<3)]|=(((tc&0x20)>>5)<<2);
      GFX[tb+0+td+(te<<3)]|=(((tc&0x10)>>4)<<2);
      GFX[tb+1+td+(te<<3)]|=(((tc&0x08)>>3)<<1);
      GFX[tb+0+td+(te<<3)]|=(((tc&0x04)>>2)<<1);
      GFX[tb+1+td+(te<<3)]|=(((tc&0x02)>>1)<<0);
      GFX[tb+0+td+(te<<3)]|=(((tc&0x01)>>0)<<0);
      }
      }
      tb+=64;
   }

   tb=0x40000;
   if(!load_rom("wwfs27.bin", RAM+0x00000, 0x10000)) return;
   if(!load_rom("wwfs26.bin", RAM+0x10000, 0x10000)) return;
   if(!load_rom("wwfs25.bin", RAM+0x20000, 0x10000)) return;
   if(!load_rom("wwfs24.bin", RAM+0x30000, 0x10000)) return;
   for(ta=0;ta<0x40000;ta++){
      tc=RAM[ta];
      GFX[tb+3]=(((tc&0x80)>>7)<<3);
      GFX[tb+2]=(((tc&0x40)>>6)<<3);
      GFX[tb+1]=(((tc&0x20)>>5)<<3);
      GFX[tb+0]=(((tc&0x10)>>4)<<3);
      GFX[tb+3]|=(((tc&0x08)>>3)<<2);
      GFX[tb+2]|=(((tc&0x04)>>2)<<2);
      GFX[tb+1]|=(((tc&0x02)>>1)<<2);
      GFX[tb+0]|=(((tc&0x01)>>0)<<2);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xFC;}
      else{if((tb&0xFF)==4){tb-=0xFC;}
      else{if((tb&0xFF)==8){tb-=0xFC;}
      else{if((tb&0xFF)==12){tb-=12;}}}}
   }

   tb=0x40000;
   if(!load_rom("wwfs39.bin", RAM+0x00000, 0x10000)) return;
   if(!load_rom("wwfs38.bin", RAM+0x10000, 0x10000)) return;
   if(!load_rom("wwfs37.bin", RAM+0x20000, 0x10000)) return;
   if(!load_rom("wwfs36.bin", RAM+0x30000, 0x10000)) return;
   for(ta=0;ta<0x40000;ta++){
      tc=RAM[ta];
      GFX[tb+3]|=(((tc&0x80)>>7)<<1);
      GFX[tb+2]|=(((tc&0x40)>>6)<<1);
      GFX[tb+1]|=(((tc&0x20)>>5)<<1);
      GFX[tb+0]|=(((tc&0x10)>>4)<<1);
      GFX[tb+3]|=(((tc&0x08)>>3)<<0);
      GFX[tb+2]|=(((tc&0x04)>>2)<<0);
      GFX[tb+1]|=(((tc&0x02)>>1)<<0);
      GFX[tb+0]|=(((tc&0x01)>>0)<<0);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xFC;}
      else{if((tb&0xFF)==4){tb-=0xFC;}
      else{if((tb&0xFF)==8){tb-=0xFC;}
      else{if((tb&0xFF)==12){tb-=12;}}}}
   }

   tb=0x140000;
   if(!load_rom("wwfs23.bin", RAM+0x00000, 0x10000)) return;
   if(!load_rom("wwfs22.bin", RAM+0x10000, 0x10000)) return;
   if(!load_rom("wwfs21.bin", RAM+0x20000, 0x10000)) return;
   if(!load_rom("wwfs20.bin", RAM+0x30000, 0x10000)) return;
   for(ta=0;ta<0x40000;ta++){
      tc=RAM[ta];
      GFX[tb+3]=(((tc&0x80)>>7)<<3);
      GFX[tb+2]=(((tc&0x40)>>6)<<3);
      GFX[tb+1]=(((tc&0x20)>>5)<<3);
      GFX[tb+0]=(((tc&0x10)>>4)<<3);
      GFX[tb+3]|=(((tc&0x08)>>3)<<2);
      GFX[tb+2]|=(((tc&0x04)>>2)<<2);
      GFX[tb+1]|=(((tc&0x02)>>1)<<2);
      GFX[tb+0]|=(((tc&0x01)>>0)<<2);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xFC;}
      else{if((tb&0xFF)==4){tb-=0xFC;}
      else{if((tb&0xFF)==8){tb-=0xFC;}
      else{if((tb&0xFF)==12){tb-=12;}}}}
   }

   tb=0x140000;
   if(!load_rom("wwfs43.bin", RAM+0x00000, 0x10000)) return;
   if(!load_rom("wwfs42.bin", RAM+0x10000, 0x10000)) return;
   if(!load_rom("wwfs41.bin", RAM+0x20000, 0x10000)) return;
   if(!load_rom("wwfs40.bin", RAM+0x30000, 0x10000)) return;
   for(ta=0;ta<0x40000;ta++){
      tc=RAM[ta];
      GFX[tb+3]|=(((tc&0x80)>>7)<<1);
      GFX[tb+2]|=(((tc&0x40)>>6)<<1);
      GFX[tb+1]|=(((tc&0x20)>>5)<<1);
      GFX[tb+0]|=(((tc&0x10)>>4)<<1);
      GFX[tb+3]|=(((tc&0x08)>>3)<<0);
      GFX[tb+2]|=(((tc&0x04)>>2)<<0);
      GFX[tb+1]|=(((tc&0x02)>>1)<<0);
      GFX[tb+0]|=(((tc&0x01)>>0)<<0);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xFC;}
      else{if((tb&0xFF)==4){tb-=0xFC;}
      else{if((tb&0xFF)==8){tb-=0xFC;}
      else{if((tb&0xFF)==12){tb-=12;}}}}
   }

   tb=0x240000;
   if(!load_rom("wwfs35.bin", RAM+0x00000, 0x10000)) return;
   if(!load_rom("wwfs34.bin", RAM+0x10000, 0x10000)) return;
   if(!load_rom("wwfs33.bin", RAM+0x20000, 0x10000)) return;
   if(!load_rom("wwfs32.bin", RAM+0x30000, 0x10000)) return;
   for(ta=0;ta<0x40000;ta++){
      tc=RAM[ta];
      GFX[tb+3]=(((tc&0x80)>>7)<<3);
      GFX[tb+2]=(((tc&0x40)>>6)<<3);
      GFX[tb+1]=(((tc&0x20)>>5)<<3);
      GFX[tb+0]=(((tc&0x10)>>4)<<3);
      GFX[tb+3]|=(((tc&0x08)>>3)<<2);
      GFX[tb+2]|=(((tc&0x04)>>2)<<2);
      GFX[tb+1]|=(((tc&0x02)>>1)<<2);
      GFX[tb+0]|=(((tc&0x01)>>0)<<2);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xFC;}
      else{if((tb&0xFF)==4){tb-=0xFC;}
      else{if((tb&0xFF)==8){tb-=0xFC;}
      else{if((tb&0xFF)==12){tb-=12;}}}}
   }

   tb=0x240000;
   if(!load_rom("wwfs19.bin", RAM+0x00000, 0x10000)) return;
   if(!load_rom("wwfs18.bin", RAM+0x10000, 0x10000)) return;
   if(!load_rom("wwfs17.bin", RAM+0x20000, 0x10000)) return;
   if(!load_rom("wwfs16.bin", RAM+0x30000, 0x10000)) return;
   for(ta=0;ta<0x40000;ta++){
      tc=RAM[ta];
      GFX[tb+3]|=(((tc&0x80)>>7)<<1);
      GFX[tb+2]|=(((tc&0x40)>>6)<<1);
      GFX[tb+1]|=(((tc&0x20)>>5)<<1);
      GFX[tb+0]|=(((tc&0x10)>>4)<<1);
      GFX[tb+3]|=(((tc&0x08)>>3)<<0);
      GFX[tb+2]|=(((tc&0x04)>>2)<<0);
      GFX[tb+1]|=(((tc&0x02)>>1)<<0);
      GFX[tb+0]|=(((tc&0x01)>>0)<<0);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xFC;}
      else{if((tb&0xFF)==4){tb-=0xFC;}
      else{if((tb&0xFF)==8){tb-=0xFC;}