xsystem1.c

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

      default:
         return RAM[0x20000+(address&0x7FF)];
      break;
   }
}

static UINT16 balloonb_cchip_rw(UINT32 address)
{
   return balloonb_cchip_rb( address+1 );
}

static void balloonb_cchip_wb(UINT32 address, UINT8 data)
{
   switch(address & 0xFFF){
      case 0x007:				// cchip[0][0x007]: COIN LEDS - SUPERMAN
         RAM[0x20000+(address&0x7FF)] = data;
         switch_led(0,((data>>0)&1)^1);		// Coin A [Coin Inserted]
         switch_led(1,((data>>1)&1)^1);		// Coin B [Coin Inserted]
         switch_led(2,((data>>2)&1)^1);		// Coin A [Ready for coins]
       //switch_led(3,((data>>3)&1)^1);		// Coin B [Ready for coins]
      break;
      case 0x009:				// cchip[0][0x009]: COIN LEDS - BALLOON BROS
         RAM[0x20000+(address&0x7FF)] = data;
         switch_led(0,(data>>0)&1);		// Coin A [Coin Inserted]
         switch_led(1,(data>>1)&1);		// Coin B [Coin Inserted]
         switch_led(2,(data>>2)&1);		// Coin A [Ready for coins]
       //switch_led(3,(data>>3)&1);		// Coin B [Ready for coins]
      break;
      case 0x803:
      break;
      case 0xC01:
         cchip_bank = data & 7;
      break;
      default:
      break;
   }
}

static void balloonb_cchip_ww(UINT32 address, UINT16 data)
{
   balloonb_cchip_wb( address+1, (UINT8) (data&0xFF) );
}

static UINT8 split_dsw_rb(UINT32 address)
{
   switch( (address >> 1) & 3 ){

      case 0:
         return (get_dsw(0) >> 0) & 0x0F;

      case 1:
         return (get_dsw(0) >> 4) & 0x0F;

      case 2:
         return (get_dsw(1) >> 0) & 0x0F;

      case 3:
         return (get_dsw(1) >> 4) & 0x0F;

      default:
         return 0;

   }
}

static UINT16 split_dsw_rw(UINT32 address)
{
   return (UINT16) split_dsw_rb(address);
}

static UINT8 *GFX_SPR;
static UINT8 *GFX_SPR_SOLID;

void load_balloon_bros(void)
{
   int ta,tb,tc;

   romset = 0;

   RAMSize=0x40000+0x10000;

   if(!(RAM=AllocateMem(RAMSize))) return;
   if(!(ROM=AllocateMem(0x40000))) return;
   if(!(GFX_SPR=AllocateMem(0x100000))) return;

   if(!load_rom("3", RAM, 0x20000)) return;		// 16x16 SPRITES
   tb=0;
   for(ta=0;ta<0x20000;ta++){
      tc=RAM[ta];
      GFX_SPR[tb+0]=((tc&0x80)>>7)<<0;
      GFX_SPR[tb+1]=((tc&0x40)>>6)<<0;
      GFX_SPR[tb+2]=((tc&0x20)>>5)<<0;
      GFX_SPR[tb+3]=((tc&0x10)>>4)<<0;
      GFX_SPR[tb+4]=((tc&0x08)>>3)<<0;
      GFX_SPR[tb+5]=((tc&0x04)>>2)<<0;
      GFX_SPR[tb+6]=((tc&0x02)>>1)<<0;
      GFX_SPR[tb+7]=((tc&0x01)>>0)<<0;
      tb+=16;
      if((tb&0x7F)==0){tb-=0x78;}
      else{if((tb&0x7F)==8){tb-=8;}}
   }
   if(!load_rom("2", RAM, 0x20000)) return;		// 16x16 SPRITES
   tb=0;
   for(ta=0;ta<0x20000;ta++){
      tc=RAM[ta];
      GFX_SPR[tb+0]|=((tc&0x80)>>7)<<1;
      GFX_SPR[tb+1]|=((tc&0x40)>>6)<<1;
      GFX_SPR[tb+2]|=((tc&0x20)>>5)<<1;
      GFX_SPR[tb+3]|=((tc&0x10)>>4)<<1;
      GFX_SPR[tb+4]|=((tc&0x08)>>3)<<1;
      GFX_SPR[tb+5]|=((tc&0x04)>>2)<<1;
      GFX_SPR[tb+6]|=((tc&0x02)>>1)<<1;
      GFX_SPR[tb+7]|=((tc&0x01)>>0)<<1;
      tb+=16;
      if((tb&0x7F)==0){tb-=0x78;}
      else{if((tb&0x7F)==8){tb-=8;}}
   }
   if(!load_rom("1", RAM, 0x20000)) return;		// 16x16 SPRITES
   tb=0;
   for(ta=0;ta<0x20000;ta++){
      tc=RAM[ta];
      GFX_SPR[tb+0]|=((tc&0x80)>>7)<<2;
      GFX_SPR[tb+1]|=((tc&0x40)>>6)<<2;
      GFX_SPR[tb+2]|=((tc&0x20)>>5)<<2;
      GFX_SPR[tb+3]|=((tc&0x10)>>4)<<2;
      GFX_SPR[tb+4]|=((tc&0x08)>>3)<<2;
      GFX_SPR[tb+5]|=((tc&0x04)>>2)<<2;
      GFX_SPR[tb+6]|=((tc&0x02)>>1)<<2;
      GFX_SPR[tb+7]|=((tc&0x01)>>0)<<2;
      tb+=16;
      if((tb&0x7F)==0){tb-=0x78;}
      else{if((tb&0x7F)==8){tb-=8;}}
   }
   if(!load_rom("0", RAM, 0x20000)) return;		// 16x16 SPRITES
   tb=0;
   for(ta=0;ta<0x20000;ta++){
      tc=RAM[ta];
      GFX_SPR[tb+0]|=((tc&0x80)>>7)<<3;
      GFX_SPR[tb+1]|=((tc&0x40)>>6)<<3;
      GFX_SPR[tb+2]|=((tc&0x20)>>5)<<3;
      GFX_SPR[tb+3]|=((tc&0x10)>>4)<<3;
      GFX_SPR[tb+4]|=((tc&0x08)>>3)<<3;
      GFX_SPR[tb+5]|=((tc&0x04)>>2)<<3;
      GFX_SPR[tb+6]|=((tc&0x02)>>1)<<3;
      GFX_SPR[tb+7]|=((tc&0x01)>>0)<<3;
      tb+=16;
      if((tb&0x7F)==0){tb-=0x78;}
      else{if((tb&0x7F)==8){tb-=8;}}
   }

   GFX_SPR_SOLID = make_solid_mask_16x16(GFX_SPR, 0x1000);

   tile_mask = 0x0FFF;

   if(!load_rom("10a", RAM, 0x20000)) return;		// 68000 ROM
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta]=RAM[ta];
   }
   if(!load_rom("5a", RAM, 0x20000)) return;
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta+1]=RAM[ta];
   }

   /*-----[Sound Setup]-----*/

   Z80ROM=RAM+0x40000;
   if(!load_rom("8d", Z80ROM, 0x10000)) return;		// Z80 SOUND ROM

   if(!(PCMROM=AllocateMem(0x100000))) return;
   if(!load_rom("east-11",PCMROM+0x00000,0x80000)) return;	// ADPCM A rom
   if(!load_rom("east-10",PCMROM+0x80000,0x80000)) return;	// ADPCM A rom
   YM2610SetBuffers(PCMROM+0x00000, PCMROM+0x80000, 0x80000, 0x80000);

   AddTaitoYM2610(0x006E, 0x0068, 0x10000);

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

   memset(RAM+0x00000,0x00,0x40000);

   // Speed Hack

   WriteLong68k(&ROM[0x004A6],0x13FC0000);
   WriteLong68k(&ROM[0x004AA],0x00AA0000);

   // Starscream problem

   WriteLong68k(&ROM[0x00E9C],0x4E714E71);

   InitPaletteMap(RAM+0x15000, 0x20, 0x10, 0x8000);

   set_colour_mapper(&col_map_xrrr_rrgg_gggb_bbbb);

   // Init seta_x1 emulation
   // ----------------------

   seta_x1.RAM_A	= RAM+0x0C000;
   seta_x1.RAM_B	= RAM+0x16000;
   seta_x1.GFX		= GFX_SPR;
   seta_x1.MASK		= GFX_SPR_SOLID;
   seta_x1.bmp_x	= 32;
   seta_x1.bmp_y	= 32;
   seta_x1.bmp_w	= 352;
   seta_x1.bmp_h	= 240;
   seta_x1.tile_mask	= 0x0FFF;
   seta_x1.scr_x	= 0;
   seta_x1.scr_y	= 0;

/*
 *  StarScream Stuff follows
 */

   ByteSwap(ROM,0x40000);
   ByteSwap(RAM,0x40000);

   AddMemFetch(0x000000, 0x03FFFF, ROM+0x000000-0x000000);	// 68000 ROM
   AddMemFetch(-1, -1, NULL);

   AddReadByte(0x000000, 0x03FFFF, NULL, ROM+0x000000);			// 68000 ROM
   AddReadByte(0xF00000, 0xF03FFF, NULL, RAM+0x000000);			// 68000 RAM
   AddReadByte(0xE00000, 0xE03FFF, NULL, RAM+0x00C000);			// OBJECT RAM
   AddReadByte(0xD00000, 0xD00FFF, NULL, RAM+0x016000);			// ? RAM
   AddReadByte(0xB00000, 0xB003FF, NULL, RAM+0x015000);			// COLOUR RAM
   AddReadByte(0x800000, 0x800003, tc0140syt_read_main_68k, NULL);	// tc0140syt
   AddReadByte(0x900000, 0x900FFF, balloonb_cchip_rb, NULL);		// c-chip
   AddReadByte(0x500000, 0x50000F, split_dsw_rb, NULL);			// DSW
   AddReadByte(0x000000, 0xFFFFFF, DefBadReadByte, NULL);		// <Bad Reads>
   AddReadByte(-1, -1, NULL, NULL);

   AddReadWord(0x000000, 0x03FFFF, NULL, ROM+0x000000);			// 68000 ROM
   AddReadWord(0xF00000, 0xF03FFF, NULL, RAM+0x000000);			// 68000 RAM
   AddReadWord(0xE00000, 0xE03FFF, NULL, RAM+0x00C000);			// OBJECT RAM
   AddReadWord(0xD00000, 0xD00FFF, NULL, RAM+0x016000);			// ? RAM
   AddReadWord(0xB00000, 0xB003FF, NULL, RAM+0x015000);			// COLOUR RAM
   AddReadWord(0x900000, 0x900FFF, balloonb_cchip_rw, NULL);		// c-chip
   AddReadWord(0x500000, 0x50000F, split_dsw_rw, NULL);			// DSW
   AddReadWord(0x000000, 0xFFFFFF, DefBadReadWord, NULL);		// <Bad Reads>
   AddReadWord(-1, -1,NULL, NULL);

   AddWriteByte(0xF00000, 0xF03FFF, NULL, RAM+0x000000);		// 68000 RAM
   AddWriteByte(0xE00000, 0xE03FFF, NULL, RAM+0x00C000);		// OBJECT RAM
   AddWriteByte(0xD00000, 0xD00FFF, NULL, RAM+0x016000);		// ? RAM
   AddWriteByte(0xB00000, 0xB003FF, NULL, RAM+0x015000);		// COLOUR RAM
   AddWriteByte(0x800000, 0x800003, tc0140syt_write_main_68k, NULL);	// tc0140syt
   AddWriteByte(0x900000, 0x900FFF, balloonb_cchip_wb, NULL);		// c-chip
   AddWriteByte(0xAA0000, 0xAA0001, Stop68000, NULL);			// Trap Idle 68000
   AddWriteByte(0x000000, 0xFFFFFF, DefBadWriteByte, NULL);		// <Bad Writes>
   AddWriteByte(-1, -1, NULL, NULL);

   AddWriteWord(0xF00000, 0xF03FFF, NULL, RAM+0x000000);		// 68000 RAM
   AddWriteWord(0xE00000, 0xE03FFF, NULL, RAM+0x00C000);		// OBJECT RAM
   AddWriteWord(0xD00000, 0xD00FFF, NULL, RAM+0x016000);		// ? RAM
   AddWriteWord(0xB00000, 0xB003FF, NULL, RAM+0x015000);		// COLOUR RAM
   AddWriteWord(0x900000, 0x900FFF, balloonb_cchip_ww, NULL);		// c-chip
   AddWriteWord(0x000000, 0xFFFFFF, DefBadWriteWord, NULL);		// <Bad Writes>
   AddWriteWord(-1, -1, NULL, NULL);

   AddInitMemory();	// Set Starscream mem pointers... 
}

void clear_balloon_bros(void)
{
   RemoveTaitoYM2610();

   #ifdef RAINE_DEBUG
      save_debug("ROM.bin",ROM,0x040000,1);
      save_debug("RAM.bin",RAM,0x040000,1);
   #endif
}

void load_superman(void)
{
   int ta,tb,tc;

   romset = 1;

   RAMSize=0x44000+0x10000;

   if(!(ROM=AllocateMem(0x80000))) return;
   if(!(RAM=AllocateMem(RAMSize))) return;
   if(!(GFX_SPR=AllocateMem(0x400000))) return;

   if(!load_rom("f01_14.bin", ROM, 0x80000)) return;
   tb=0;
   for(ta=0;ta<0x80000;ta+=2){
      tc=ROM[ta+0];
      GFX_SPR[tb+0] = (((tc&0x80)>>7)<<0);
      GFX_SPR[tb+1] = (((tc&0x40)>>6)<<0);
      GFX_SPR[tb+2] = (((tc&0x20)>>5)<<0);
      GFX_SPR[tb+3] = (((tc&0x10)>>4)<<0);
      GFX_SPR[tb+4] = (((tc&0x08)>>3)<<0);
      GFX_SPR[tb+5] = (((tc&0x04)>>2)<<0);
      GFX_SPR[tb+6] = (((tc&0x02)>>1)<<0);
      GFX_SPR[tb+7] = (((tc&0x01)>>0)<<0);
      tc=ROM[ta+1];
      GFX_SPR[tb+0] |= (((tc&0x80)>>7)<<1);
      GFX_SPR[tb+1] |= (((tc&0x40)>>6)<<1);
      GFX_SPR[tb+2] |= (((tc&0x20)>>5)<<1);
      GFX_SPR[tb+3] |= (((tc&0x10)>>4)<<1);
      GFX_SPR[tb+4] |= (((tc&0x08)>>3)<<1);
      GFX_SPR[tb+5] |= (((tc&0x04)>>2)<<1);
      GFX_SPR[tb+6] |= (((tc&0x02)>>1)<<1);
      GFX_SPR[tb+7] |= (((tc&0x01)>>0)<<1);
      tb+=16;
      if((tb&0x7F)==0){tb-=0x78;}
      else{if((tb&0x7F)==8){tb-=8;}}
   }
   if(!load_rom("j01_16.bin", ROM, 0x80000)) return;
   tb=0;
   for(ta=0;ta<0x80000;ta+=2){
      tc=ROM[ta+0];
      GFX_SPR[tb+0] |= (((tc&0x80)>>7)<<2);
      GFX_SPR[tb+1] |= (((tc&0x40)>>6)<<2);
      GFX_SPR[tb+2] |= (((tc&0x20)>>5)<<2);
      GFX_SPR[tb+3] |= (((tc&0x10)>>4)<<2);
      GFX_SPR[tb+4] |= (((tc&0x08)>>3)<<2);
      GFX_SPR[tb+5] |= (((tc&0x04)>>2)<<2);
      GFX_SPR[tb+6] |= (((tc&0x02)>>1)<<2);
      GFX_SPR[tb+7] |= (((tc&0x01)>>0)<<2);
      tc=ROM[ta+1];
      GFX_SPR[tb+0] |= (((tc&0x80)>>7)<<3);
      GFX_SPR[tb+1] |= (((tc&0x40)>>6)<<3);
      GFX_SPR[tb+2] |= (((tc&0x20)>>5)<<3);
      GFX_SPR[tb+3] |= (((tc&0x10)>>4)<<3);
      GFX_SPR[tb+4] |= (((tc&0x08)>>3)<<3);
      GFX_SPR[tb+5] |= (((tc&0x04)>>2)<<3);
      GFX_SPR[tb+6] |= (((tc&0x02)>>1)<<3);
      GFX_SPR[tb+7] |= (((tc&0x01)>>0)<<3);
      tb+=16;
      if((tb&0x7F)==0){tb-=0x78;}
      else{if((tb&0x7F)==8){tb-=8;}}
   }
   if(!load_rom("h01_15.bin", ROM, 0x80000)) return;
   tb=0x200000;
   for(ta=0;ta<0x80000;ta+=2){
      tc=ROM[ta+0];
      GFX_SPR[tb+0] = (((tc&0x80)>>7)<<0);
      GFX_SPR[tb+1] = (((tc&0x40)>>6)<<0);
      GFX_SPR[tb+2] = (((tc&0x20)>>5)<<0);
      GFX_SPR[tb+3] = (((tc&0x10)>>4)<<0);
      GFX_SPR[tb+4] = (((tc&0x08)>>3)<<0);
      GFX_SPR[tb+5] = (((tc&0x04)>>2)<<0);
      GFX_SPR[tb+6] = (((tc&0x02)>>1)<<0);
      GFX_SPR[tb+7] = (((tc&0x01)>>0)<<0);
      tc=ROM[ta+1];
      GFX_SPR[tb+0] |= (((tc&0x80)>>7)<<1);
      GFX_SPR[tb+1] |= (((tc&0x40)>>6)<<1);
      GFX_SPR[tb+2] |= (((tc&0x20)>>5)<<1);
      GFX_SPR[tb+3] |= (((tc&0x10)>>4)<<1);
      GFX_SPR[tb+4] |= (((tc&0x08)>>3)<<1);
      GFX_SPR[tb+5] |= (((tc&0x04)>>2)<<1);
      GFX_SPR[tb+6] |= (((tc&0x02)>>1)<<1);
      GFX_SPR[tb+7] |= (((tc&0x01)>>0)<<1);
      tb+=16;
      if((tb&0x7F)==0){tb-=0x78;}
      else{if((tb&0x7F)==8){tb-=8;}}
   }
   if(!load_rom("k01_17.bin", ROM, 0x80000)) return;
   tb=0x200000;
   for(ta=0;ta<0x80000;ta+=2){
      tc=ROM[ta+0];
      GFX_SPR[tb+0] |= (((tc&0x80)>>7)<<2);
      GFX_SPR[tb+1] |= (((tc&0x40)>>6)<<2);
      GFX_SPR[tb+2] |= (((tc&0x20)>>5)<<2);
      GFX_SPR[tb+3] |= (((tc&0x10)>>4)<<2);
      GFX_SPR[tb+4] |= (((tc&0x08)>>3)<<2);
      GFX_SPR[tb+5] |= (((tc&0x04)>>2)<<2);
      GFX_SPR[tb+6] |= (((tc&0x02)>>1)<<2);
      GFX_SPR[tb+7] |= (((tc&0x01)>>0)<<2);
      tc=ROM[ta+1];
      GFX_SPR[tb+0] |= (((tc&0x80)>>7)<<3);
      GFX_SPR[tb+1] |= (((tc&0x40)>>6)<<3);
      GFX_SPR[tb+2] |= (((tc&0x20)>>5)<<3);
      GFX_SPR[tb+3] |= (((tc&0x10)>>4)<<3);
      GFX_SPR[tb+4] |= (((tc&0x08)>>3)<<3);
      GFX_SPR[tb+5] |= (((tc&0x04)>>2)<<3);
      GFX_SPR[tb+6] |= (((tc&0x02)>>1)<<3);
      GFX_SPR[tb+7] |= (((tc&0x01)>>0)<<3);
      tb+=16;
      if((tb&0x7F)==0){tb-=0x78;}
      else{if((tb&0x7F)==8){tb-=8;}}
   }

   GFX_SPR_SOLID = make_solid_mask_16x16(GFX_SPR, 0x4000);

   tile_mask = 0x3FFF;

   if(!load_rom("a10_09.bin", RAM+0x00000, 0x20000)) return;
   if(!load_rom("a08_08.bin", RAM+0x20000, 0x20000)) return;
   for(ta=0;ta<0x40000;ta++){