toki.c

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

/******************************************************************************/
/*                                                                            */
/*                       TOKI (C) 1989 DATSU ELECTRON                         */
/*                                                                            */
/******************************************************************************/

#include "gameinc.h"
#include "toki.h"
#include "sasound.h"		// sample support routines
#include "3812intf.h"
#include "debug.h"

static struct DIR_INFO toki_dirs[] =
{
   { "toki", },
   { "tokib", },
   { NULL, },
};

static struct ROM_INFO toki_roms[] =
{
   {      "toki.e9", 0x00010000, 0x82ce27f6, 0, 0, 0, },
   {      "toki.e8", 0x00010000, 0x46a1b821, 0, 0, 0, },
   {      "toki.e7", 0x00008000, 0x70729106, 0, 0, 0, },
   {      "toki.e6", 0x00010000, 0x6f4b878a, 0, 0, 0, },
   {      "toki.e4", 0x00010000, 0xa01a5b10, 0, 0, 0, },
   {     "toki.e38", 0x00020000, 0x87f4e7fb, 0, 0, 0, },
   {     "toki.e36", 0x00020000, 0x96e8db8b, 0, 0, 0, },
   {     "toki.e34", 0x00020000, 0xe5f6e19b, 0, 0, 0, },
   {     "toki.e32", 0x00020000, 0xc289d246, 0, 0, 0, },
   {     "toki.e30", 0x00020000, 0x770d2b1b, 0, 0, 0, },
   {      "toki.e3", 0x00020000, 0xae9b3da4, 0, 0, 0, },
   {     "toki.e28", 0x00020000, 0x29784948, 0, 0, 0, },
   {     "toki.e26", 0x00020000, 0xa8ba71fc, 0, 0, 0, },
   {     "toki.e25", 0x00010000, 0x63026cad, 0, 0, 0, },
   {     "toki.e24", 0x00010000, 0x5b365637, 0, 0, 0, },
   {     "toki.e23", 0x00010000, 0xfeb13d35, 0, 0, 0, },
   {     "toki.e22", 0x00008000, 0x04dcdc21, 0, 0, 0, },
   {     "toki.e21", 0x00008000, 0xbb8cacbd, 0, 0, 0, },
   {     "toki.e20", 0x00010000, 0xa7f2ce26, 0, 0, 0, },
   {      "toki.e2", 0x00010000, 0xd6a82808, 0, 0, 0, },
   {     "toki.e19", 0x00010000, 0x6cd22b18, 0, 0, 0, },
   {     "toki.e18", 0x00010000, 0x4c2a72e1, 0, 0, 0, },
   {     "toki.e17", 0x00010000, 0xfbc3d456, 0, 0, 0, },
   {     "toki.e16", 0x00010000, 0x2a11c0f0, 0, 0, 0, },
   {     "toki.e15", 0x00010000, 0x617c32e6, 0, 0, 0, },
   {     "toki.e14", 0x00010000, 0x859e313a, 0, 0, 0, },
   {     "toki.e13", 0x00008000, 0x052ad275, 0, 0, 0, },
   {     "toki.e12", 0x00010000, 0xc2ad9342, 0, 0, 0, },
   {     "toki.e11", 0x00010000, 0x48989aa0, 0, 0, 0, },
   {     "toki.e10", 0x00010000, 0xe15c1d0f, 0, 0, 0, },
   {      "toki.e1", 0x00010000, 0x2832ef75, 0, 0, 0, },
   {      "toki.e5", 0x00020000, 0x66a5a1d6, 0, 0, 0, },
   {     "toki.e40", 0x00020000, 0x96e87350, 0, 0, 0, },
   {           NULL,          0,          0, 0, 0, 0, },
};

static struct INPUT_INFO toki_inputs[] =
{
   { KB_DEF_COIN1,        MSG_COIN1,               0x020004, 0x01, BIT_ACTIVE_0 },
   { KB_DEF_COIN2,        MSG_COIN2,               0x020004, 0x02, BIT_ACTIVE_0 },
   { KB_DEF_SERVICE,      MSG_SERVICE,             0x020004, 0x04, BIT_ACTIVE_0 },

   { KB_DEF_P1_START,     MSG_P1_START,            0x020004, 0x08, BIT_ACTIVE_0 },
   { KB_DEF_P1_UP,        MSG_P1_UP,               0x020002, 0x01, BIT_ACTIVE_0 },
   { KB_DEF_P1_DOWN,      MSG_P1_DOWN,             0x020002, 0x02, BIT_ACTIVE_0 },
   { KB_DEF_P1_LEFT,      MSG_P1_LEFT,             0x020002, 0x04, BIT_ACTIVE_0 },
   { KB_DEF_P1_RIGHT,     MSG_P1_RIGHT,            0x020002, 0x08, BIT_ACTIVE_0 },
   { KB_DEF_P1_B1,        MSG_P1_B1,               0x020002, 0x10, BIT_ACTIVE_0 },
   { KB_DEF_P1_B2,        MSG_P1_B2,               0x020002, 0x20, BIT_ACTIVE_0 },

   { KB_DEF_P2_START,     MSG_P2_START,            0x020004, 0x10, BIT_ACTIVE_0 },
   { KB_DEF_P2_UP,        MSG_P2_UP,               0x020003, 0x01, BIT_ACTIVE_0 },
   { KB_DEF_P2_DOWN,      MSG_P2_DOWN,             0x020003, 0x02, BIT_ACTIVE_0 },
   { KB_DEF_P2_LEFT,      MSG_P2_LEFT,             0x020003, 0x04, BIT_ACTIVE_0 },
   { KB_DEF_P2_RIGHT,     MSG_P2_RIGHT,            0x020003, 0x08, BIT_ACTIVE_0 },
   { KB_DEF_P2_B1,        MSG_P2_B1,               0x020003, 0x10, BIT_ACTIVE_0 },
   { KB_DEF_P2_B2,        MSG_P2_B2,               0x020003, 0x20, BIT_ACTIVE_0 },

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

static struct DSW_DATA dsw_data_toki_0[] =
{
   { MSG_COINAGE,               0x1F, 0x14 },
   { MSG_6COIN_1PLAY,         0x15, 0x00 },
   { MSG_5COIN_1PLAY,         0x17, 0x00 },
   { MSG_4COIN_1PLAY,         0x19, 0x00 },
   { MSG_3COIN_1PLAY,         0x1B, 0x00 },
   { MSG_8COIN_3PLAY,         0x03, 0x00 },
   { MSG_2COIN_1PLAY,         0x1D, 0x00 },
   { MSG_5COIN_3PLAY,         0x05, 0x00 },
   { MSG_3COIN_2PLAY,         0x07, 0x00 },
   { MSG_1COIN_1PLAY,         0x1F, 0x00 },
   { MSG_2COIN_3PLAY,         0x09, 0x00 },
   { MSG_1COIN_2PLAY,         0x13, 0x00 },
   { MSG_1COIN_3PLAY,         0x11, 0x00 },
   { MSG_1COIN_4PLAY,         0x0F, 0x00 },
   { MSG_1COIN_5PLAY,         0x0D, 0x00 },
   { MSG_1COIN_6PLAY,         0x0B, 0x00 },
   { "A 1/1 B 1/2",           0x1E, 0x00 },
   { "A 2/1 B 1/3",           0x14, 0x00 },
   { "A 3/1 B 1/5",           0x0A, 0x00 },
   { "A 5/1 B 1/6",           0x00, 0x00 },
   { MSG_FREE_PLAY,             0x01, 0x00 },
   { "Joysticks",             0x20, 0x02 },
   { "1",                     0x20, 0x00 },
   { "2",                     0x00, 0x00 },
   { "Cabinet",               0x40, 0x02 },
   { "Upright",               0x40, 0x00 },
   { "Cocktail",              0x00, 0x00 },
   { MSG_SCREEN,              0x80, 0x02 },
   { MSG_NORMAL,              0x80, 0x00 },
   { MSG_INVERT,              0x00, 0x00 },
   { NULL,                    0,    0,   },
};

static struct DSW_DATA dsw_data_toki_1[] =
{
   { "Lives",                 0x03, 0x04 },
   { "3",                     0x03, 0x00 },
   { "2",                     0x02, 0x00 },
   { "5",                     0x01, 0x00 },
   { "3",                     0x00, 0x00 },
   { "Extra Life",            0x0C, 0x04 },
   { "70k",                   0x0C, 0x00 },
   { "50k 150k",              0x08, 0x00 },
   { "100k 200k",             0x04, 0x00 },
   { "70k 14k 21k",           0x00, 0x00 },
   { MSG_DIFFICULTY,          0x30, 0x04 },
   { MSG_NORMAL,              0x30, 0x00 },
   { MSG_EASY,                0x20, 0x00 },
   { MSG_HARD,                0x10, 0x00 },
   { MSG_HARDEST,             0x00, 0x00 },
   { "Continue Play",         0x40, 0x02 },
   { MSG_ON,                  0x40, 0x00 },
   { MSG_OFF,                 0x00, 0x00 },
   { MSG_DEMO_SOUND,          0x80, 0x02 },
   { MSG_ON,                  0x80, 0x00 },
   { MSG_OFF,                 0x00, 0x00 },
   { NULL,                    0,    0,   },
};

static struct DSW_INFO toki_dsw[] =
{
   { 0x020000, 0x9F, dsw_data_toki_0 },
   { 0x020001, 0xFB, dsw_data_toki_1 },
   { 0,        0,    NULL,      },
};

static struct VIDEO_INFO toki_video =
{
   DrawToki,
   256,
   224,
   32,
   VIDEO_ROTATE_NORMAL| VIDEO_ROTATABLE,
};

static struct YM3812interface ym3812_interface =
{
   1,              // 1 chip
   3600000,        // 3.6 MHz
   { 255 },        // Volume (emu only)
   { NULL }
};

static struct SOUND_INFO toki_sound[] =
{
   { SOUND_YM3812,  &ym3812_interface,    },
   { 0,             NULL,                 },
};

struct GAME_MAIN game_toki =
{
   toki_dirs,
   toki_roms,
   toki_inputs,
   toki_dsw,
   NULL,

   LoadToki,
   ClearToki,
   &toki_video,
   ExecuteTokiFrame,
   "tokib",
   "Toki",
   "俰倳俰倳揱愢",
   COMPANY_ID_BOOTLEG,
   NULL,
   1989,
   toki_sound,
   GAME_PLATFORM,
};

static UINT8 *RAM_BG0;
static UINT8 *GFX_BG0;
static UINT8 *GFX_BG0_SOLID;

static UINT8 *RAM_BG1;
static UINT8 *GFX_BG1;
static UINT8 *GFX_BG1_SOLID;

static UINT8 *RAM_SPR;
static UINT8 *GFX_SPR;
static UINT8 *GFX_SPR_SOLID;

static UINT8 *RAM_FG0;
static UINT8 *GFX_FG0;
static UINT8 *GFX_FG0_SOLID;

static int sport=0;

static void SoundWrite(UINT32 offset, UINT8 data)
{
   sport = data;

#ifdef RAINE_DEBUG
   if(sport) print_debug("68000 Sends $%02x\n",sport);
#endif
   cpu_interrupt(CPU_Z80_0, 0x38);
}

static UINT8 SoundRead(UINT16 address)
{
   #ifdef RAINE_DEBUG
   if(sport) print_debug("Z80 Receives $%02x\n",sport);
   #endif
   return sport;
}

static void TokiDecode1(char *S,int tb, int td)
{
   int ta,tc;

   if(!load_rom(S, RAM, 0x20000)) return;
   for(ta=0;ta<0x20000;ta++){
      tc=RAM[ta];
      GFX[tb+0]|=((tc&0x80)>>7)<<td;
      GFX[tb+1]|=((tc&0x40)>>6)<<td;
      GFX[tb+2]|=((tc&0x20)>>5)<<td;
      GFX[tb+3]|=((tc&0x10)>>4)<<td;
      GFX[tb+4]|=((tc&0x08)>>3)<<td;
      GFX[tb+5]|=((tc&0x04)>>2)<<td;
      GFX[tb+6]|=((tc&0x02)>>1)<<td;
      GFX[tb+7]|=((tc&0x01)>>0)<<td;
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=0x8;}}
   }
}

static void TokiDecode2(char *S,int tb, int td)
{
   int ta,tc,te,tf,tg;

   if(!load_rom(S, RAM, 0x10000)) return;
   for(ta=0;ta<0x10000;ta++){
      tc=RAM[ta];
      tf=RAM[ta+0x800];
      te=RAM[ta+0x1000];
      tg=RAM[ta+0x1800];
      GFX[tb+0]|=((tc&0x80)>>7)<<td;
      GFX[tb+1]|=((tc&0x40)>>6)<<td;
      GFX[tb+2]|=((tc&0x20)>>5)<<td;
      GFX[tb+3]|=((tc&0x10)>>4)<<td;
      GFX[tb+4]|=((tc&0x08)>>3)<<td;
      GFX[tb+5]|=((tc&0x04)>>2)<<td;
      GFX[tb+6]|=((tc&0x02)>>1)<<td;
      GFX[tb+7]|=((tc&0x01)>>0)<<td;
      GFX[tb+8]|=((te&0x80)>>7)<<td;
      GFX[tb+9]|=((te&0x40)>>6)<<td;
      GFX[tb+10]|=((te&0x20)>>5)<<td;
      GFX[tb+11]|=((te&0x10)>>4)<<td;
      GFX[tb+12]|=((te&0x08)>>3)<<td;
      GFX[tb+13]|=((te&0x04)>>2)<<td;
      GFX[tb+14]|=((te&0x02)>>1)<<td;
      GFX[tb+15]|=((te&0x01)>>0)<<td;
      GFX[tb+0+128]|=((tf&0x80)>>7)<<td;
      GFX[tb+1+128]|=((tf&0x40)>>6)<<td;
      GFX[tb+2+128]|=((tf&0x20)>>5)<<td;
      GFX[tb+3+128]|=((tf&0x10)>>4)<<td;
      GFX[tb+4+128]|=((tf&0x08)>>3)<<td;
      GFX[tb+5+128]|=((tf&0x04)>>2)<<td;
      GFX[tb+6+128]|=((tf&0x02)>>1)<<td;
      GFX[tb+7+128]|=((tf&0x01)>>0)<<td;
      GFX[tb+8+128]|=((tg&0x80)>>7)<<td;
      GFX[tb+9+128]|=((tg&0x40)>>6)<<td;
      GFX[tb+10+128]|=((tg&0x20)>>5)<<td;
      GFX[tb+11+128]|=((tg&0x10)>>4)<<td;
      GFX[tb+12+128]|=((tg&0x08)>>3)<<td;
      GFX[tb+13+128]|=((tg&0x04)>>2)<<td;
      GFX[tb+14+128]|=((tg&0x02)>>1)<<td;
      GFX[tb+15+128]|=((tg&0x01)>>0)<<td;
      tb+=16;
      if((tb&0x7F)==0){tb+=0x80;}
      if((ta&0x7FF)==0x7FF){ta+=0x1800;}
   }
}

void LoadToki(void)
{
   int ta,tb,tc,td;

   RAMSize=0x22000+0x10000;

   if(!(ROM=AllocateMem(0x60000))) return;
   if(!(RAM=AllocateMem(RAMSize))) return;
   if(!(GFX=AllocateMem(0x440000))) return;

   if(!load_rom("toki.e3", RAM, 0x20000)) return;	// 68000 ROMs
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta]=RAM[ta];
   }
   if(!load_rom("toki.e5", RAM, 0x20000)) return;
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta+1]=RAM[ta];
   }
   if(!load_rom("toki.e2", RAM, 0x10000)) return;
   for(ta=0;ta<0x10000;ta++){
      ROM[ta+ta+0x40000]=RAM[ta];
   }
   if(!load_rom("toki.e4", RAM, 0x10000)) return;
   for(ta=0;ta<0x10000;ta++){
      ROM[ta+ta+0x40001]=RAM[ta];
   }

   memset(GFX+0x00000,0x00,0x440000);

   if(!load_rom("toki.e21", RAM+0x00000, 0x8000)) return;		// Character Tiles
   if(!load_rom("toki.e13", RAM+0x08000, 0x8000)) return;
   if(!load_rom("toki.e22", RAM+0x10000, 0x8000)) return;
   if(!load_rom("toki.e7",  RAM+0x18000, 0x8000)) return;
   tb=0;
   for(ta=0;ta<0x8000;ta++){
      for(td=0;td<4;td++){
      tc=RAM[ta+(td*0x8000)];
      GFX[tb+0]|=((tc&0x80)>>7)<<td;
      GFX[tb+1]|=((tc&0x40)>>6)<<td;
      GFX[tb+2]|=((tc&0x20)>>5)<<td;
      GFX[tb+3]|=((tc&0x10)>>4)<<td;
      GFX[tb+4]|=((tc&0x08)>>3)<<td;
      GFX[tb+5]|=((tc&0x04)>>2)<<td;
      GFX[tb+6]|=((tc&0x02)>>1)<<td;
      GFX[tb+7]|=((tc&0x01)>>0)<<td;
      }
      tb+=8;
   }

   TokiDecode1("toki.e26",0x40000,0);	// Sprites (Set A)
   TokiDecode1("toki.e30",0x40000,2);
   TokiDecode1("toki.e34",0x40000,1);
   TokiDecode1("toki.e38",0x40000,3);

   TokiDecode1("toki.e28",0x140000,0);	// Sprites (Set B)
   TokiDecode1("toki.e32",0x140000,2);
   TokiDecode1("toki.e36",0x140000,1);
   TokiDecode1("toki.e40",0x140000,3);

   TokiDecode2("toki.e23",0x240000,0);	// Decode BG1 GFX (Set A)
   TokiDecode2("toki.e17",0x240000,2);
   TokiDecode2("toki.e15",0x240000,1);
   TokiDecode2("toki.e8", 0x240000,3);

   TokiDecode2("toki.e24",0x2C0000,0);	// Decode BG1 GFX (Set B)
   TokiDecode2("toki.e18",0x2C0000,2);
   TokiDecode2("toki.e16",0x2C0000,1);
   TokiDecode2("toki.e9", 0x2C0000,3);

   TokiDecode2("toki.e25",0x340000,0);	// Decode BG2 GFX (Set A)
   TokiDecode2("toki.e19",0x340000,2);
   TokiDecode2("toki.e11",0x340000,1);
   TokiDecode2("toki.e10",0x340000,3);

   TokiDecode2("toki.e20",0x3C0000,0);	// Decode BG2 GFX (Set B)
   TokiDecode2("toki.e14",0x3C0000,2);
   TokiDecode2("toki.e12",0x3C0000,1);
   TokiDecode2("toki.e6", 0x3C0000,3);

   GFX_BG0 = GFX+0x340000;
   GFX_BG1 = GFX+0x240000;