mirror of
https://github.com/libretro/FBNeo.git
synced 2024-11-24 01:19:46 +00:00
d_warpwarp.cpp: new game driver - warp warp!
This commit is contained in:
dinkc64
parent
847762393b
commit
81cb8d8076
@ -53,7 +53,7 @@ drvobj = d_dodonpachi.o d_donpachi.o d_esprade.o d_feversos.o d_gaia.o d_guwang
|
||||
d_mustache.o d_mystston.o d_namcos86.o d_ninjakd2.o d_pacland.o d_pacman.o d_pac2650.o d_pkunwar.o d_popeye.o d_prehisle.o \
|
||||
d_psychic5.o d_punchout.o d_quizo.o d_rallyx.o d_renegade.o d_route16.o d_rpunch.o d_scregg.o d_sf.o d_sidearms.o d_skyarmy.o \
|
||||
d_skyfox.o d_skykid.o d_snk68.o d_solomon.o d_sonson.o d_srumbler.o d_suna8.o d_tail2nose.o d_tbowl.o d_tecmo.o d_terracre.o \
|
||||
d_tigeroad.o d_timelimt.o d_toki.o d_tsamurai.o d_vastar.o d_vulgus.o d_wallc.o d_wc90.o d_wc90b.o d_wiz.o d_wwfsstar.o \
|
||||
d_tigeroad.o d_timelimt.o d_toki.o d_tsamurai.o d_vastar.o d_vulgus.o d_wallc.o d_warpwarp.o d_wc90.o d_wc90b.o d_wiz.o d_wwfsstar.o \
|
||||
d_xain.o d_xxmissio.o \
|
||||
\
|
||||
d_1945kiii.o d_aerofgt.o d_airbustr.o d_aquarium.o d_blmbycar.o d_bloodbro.o d_crospang.o d_crshrace.o d_dcon.o d_ddragon3.o \
|
||||
|
||||
897
src/burn/drv/pre90s/d_warpwarp.cpp
Normal file
897
src/burn/drv/pre90s/d_warpwarp.cpp
Normal file
@ -0,0 +1,897 @@
|
||||
// Warp Warp emu-layer for FB Alpha by dink, based on Mirko & Chris Hardy's MAME driver.
|
||||
// Notes:
|
||||
|
||||
#include "tiles_generic.h"
|
||||
#include "driver.h"
|
||||
#include "z80_intf.h"
|
||||
#include "bitswap.h"
|
||||
#include <math.h>
|
||||
|
||||
static UINT8 *AllMem;
|
||||
static UINT8 *MemEnd;
|
||||
static UINT8 *AllRam;
|
||||
static UINT8 *RamEnd;
|
||||
static UINT8 *DrvZ80ROM;
|
||||
static UINT8 *DrvZ80RAM;
|
||||
static UINT8 *DrvVidRAM;
|
||||
static UINT8 *DrvGFX1ROM;
|
||||
static UINT8 *DrvCharGFX;
|
||||
|
||||
static UINT32 *DrvPalette;
|
||||
static UINT8 DrvRecalc;
|
||||
|
||||
static UINT32 m_ball_on;
|
||||
static UINT32 m_ball_h;
|
||||
static UINT32 m_ball_v;
|
||||
|
||||
static UINT8 DrvJoy1[8];
|
||||
static UINT8 DrvJoy2[8];
|
||||
static UINT8 DrvJoy3[8];
|
||||
static UINT8 DrvJoy4[8];
|
||||
static UINT8 DrvDip[2] = {0, 0};
|
||||
static UINT8 DrvInput[5];
|
||||
static UINT8 DrvReset;
|
||||
|
||||
static UINT32 rockola = 0;
|
||||
|
||||
static struct BurnInputInfo WarpwarpInputList[] = {
|
||||
{"P1 Coin", BIT_DIGITAL, DrvJoy1 + 0, "p1 coin" },
|
||||
{"P1 Start", BIT_DIGITAL, DrvJoy1 + 2, "p1 start" },
|
||||
{"P1 Up", BIT_DIGITAL, DrvJoy3 + 1, "p1 up" },
|
||||
{"P1 Down", BIT_DIGITAL, DrvJoy3 + 0, "p1 down" },
|
||||
{"P1 Left", BIT_DIGITAL, DrvJoy3 + 2, "p1 left" },
|
||||
{"P1 Right", BIT_DIGITAL, DrvJoy3 + 3, "p1 right" },
|
||||
{"P1 Button 1", BIT_DIGITAL, DrvJoy1 + 4, "p1 fire 1" },
|
||||
|
||||
{"P2 Start", BIT_DIGITAL, DrvJoy1 + 3, "p2 start" },
|
||||
|
||||
{"Reset", BIT_DIGITAL, &DrvReset, "reset" },
|
||||
{"Service", BIT_DIGITAL, DrvJoy1 + 7, "service" },
|
||||
{"Dip A", BIT_DIPSWITCH, DrvDip + 0, "dip" },
|
||||
};
|
||||
|
||||
STDINPUTINFO(Warpwarp)
|
||||
|
||||
|
||||
static struct BurnDIPInfo WarpwarpDIPList[]=
|
||||
{
|
||||
{0x0f, 0xff, 0xff, 0x85, NULL },
|
||||
|
||||
{0 , 0xfe, 0 , 4, "Coinage" },
|
||||
{0x0f, 0x01, 0x03, 0x03, "2 Coins 1 Credits"},
|
||||
{0x0f, 0x01, 0x03, 0x01, "1 Coin 1 Credits"},
|
||||
{0x0f, 0x01, 0x03, 0x02, "1 Coin 2 Credits"},
|
||||
{0x0f, 0x01, 0x03, 0x00, "Free Play" },
|
||||
|
||||
{0 , 0xfe, 0 , 4, "Lives" },
|
||||
{0x0f, 0x01, 0x0c, 0x00, "2" },
|
||||
{0x0f, 0x01, 0x0c, 0x04, "3" },
|
||||
{0x0f, 0x01, 0x0c, 0x08, "4" },
|
||||
{0x0f, 0x01, 0x0c, 0x0c, "5" },
|
||||
|
||||
{0 , 0xfe, 0 , 8, "Bonus Life" },
|
||||
{0x0f, 0x01, 0x30, 0x00, "8k 30k 30k+" },
|
||||
{0x0f, 0x01, 0x30, 0x10, "10k 40k 40k+" },
|
||||
{0x0f, 0x01, 0x30, 0x20, "15k 60k 60k+" },
|
||||
{0x0f, 0x01, 0x30, 0x30, "None" },
|
||||
|
||||
{0 , 0xfe, 0 , 2, "Demo Sounds" },
|
||||
{0x0f, 0x01, 0x40, 0x40, "Off" },
|
||||
{0x0f, 0x01, 0x40, 0x00, "On" },
|
||||
|
||||
{0 , 0xfe, 0 , 2, "Level Selection" },
|
||||
{0x0f, 0x01, 0x80, 0x80, "Off" },
|
||||
{0x0f, 0x01, 0x80, 0x00, "On" },
|
||||
};
|
||||
|
||||
STDDIPINFO(Warpwarp)
|
||||
|
||||
static struct BurnDIPInfo WarpwarprDIPList[]=
|
||||
{
|
||||
{0x0f, 0xff, 0xff, 0x85, NULL },
|
||||
|
||||
{0 , 0xfe, 0 , 4, "Coinage" },
|
||||
{0x0f, 0x01, 0x03, 0x03, "2 Coins 1 Credits"},
|
||||
{0x0f, 0x01, 0x03, 0x01, "1 Coin 1 Credits"},
|
||||
{0x0f, 0x01, 0x03, 0x02, "1 Coin 2 Credits"},
|
||||
{0x0f, 0x01, 0x03, 0x00, "Free Play" },
|
||||
|
||||
{0 , 0xfe, 0 , 4, "Lives" },
|
||||
{0x0f, 0x01, 0x0c, 0x00, "2" },
|
||||
{0x0f, 0x01, 0x0c, 0x04, "3" },
|
||||
{0x0f, 0x01, 0x0c, 0x08, "4" },
|
||||
{0x0f, 0x01, 0x0c, 0x0c, "5" },
|
||||
|
||||
{0 , 0xfe, 0 , 8, "Bonus Life" },
|
||||
{0x0f, 0x01, 0x30, 0x00, "8k 30k 30k+" },
|
||||
{0x0f, 0x01, 0x30, 0x10, "10k 40k 40k+" },
|
||||
{0x0f, 0x01, 0x30, 0x20, "15k 60k 60k+" },
|
||||
{0x0f, 0x01, 0x30, 0x30, "None" },
|
||||
|
||||
{0 , 0xfe, 0 , 2, "Demo Sounds" },
|
||||
{0x0f, 0x01, 0x40, 0x40, "Off" },
|
||||
{0x0f, 0x01, 0x40, 0x00, "On" },
|
||||
|
||||
{0 , 0xfe, 0 , 2, "High Score Name" },
|
||||
{0x0f, 0x01, 0x80, 0x80, "No" },
|
||||
{0x0f, 0x01, 0x80, 0x00, "Yes" },
|
||||
};
|
||||
|
||||
STDDIPINFO(Warpwarpr)
|
||||
|
||||
// Warp Warp soundchip emulation
|
||||
static INT16 *decay = NULL;
|
||||
static INT32 sound_latch = 0;
|
||||
static INT32 music1_latch = 0;
|
||||
static INT32 music2_latch = 0;
|
||||
static INT32 sound_signal = 0;
|
||||
static INT32 sound_volume = 0;
|
||||
static INT32 sound_volume_timer = 0;
|
||||
static INT32 music_signal = 0;
|
||||
static INT32 music_volume = 0;
|
||||
static INT32 music_volume_timer = 0;
|
||||
static INT32 noise = 0;
|
||||
|
||||
static void warpwarp_sound_reset()
|
||||
{
|
||||
sound_latch = 0;
|
||||
music1_latch = 0;
|
||||
music2_latch = 0;
|
||||
sound_signal = 0;
|
||||
sound_volume = 0;
|
||||
sound_volume_timer = 0;
|
||||
music_signal = 0;
|
||||
music_volume = 0;
|
||||
music_volume_timer = 0;
|
||||
noise = 0;
|
||||
}
|
||||
|
||||
static void warpwarp_sound_scan()
|
||||
{
|
||||
SCAN_VAR(sound_latch);
|
||||
SCAN_VAR(music1_latch);
|
||||
SCAN_VAR(music2_latch);
|
||||
SCAN_VAR(sound_signal);
|
||||
SCAN_VAR(sound_volume);
|
||||
SCAN_VAR(sound_volume_timer);
|
||||
SCAN_VAR(music_signal);
|
||||
SCAN_VAR(music_volume);
|
||||
SCAN_VAR(music_volume_timer);
|
||||
SCAN_VAR(noise);
|
||||
}
|
||||
|
||||
static void sound_volume_decay()
|
||||
{
|
||||
if( --sound_volume < 0 )
|
||||
sound_volume = 0;
|
||||
}
|
||||
|
||||
static void warpwarp_sound_w(UINT8 data)
|
||||
{
|
||||
sound_latch = data & 0x0f;
|
||||
sound_volume = 0x7fff; /* set sound_volume */
|
||||
noise = 0x0000; /* reset noise shifter */
|
||||
|
||||
if( sound_latch & 8 ) {
|
||||
sound_volume_timer = 1;
|
||||
} else {
|
||||
sound_volume_timer = 2;
|
||||
}
|
||||
}
|
||||
|
||||
static void warpwarp_music1_w(UINT8 data)
|
||||
{
|
||||
music1_latch = data & 0x3f;
|
||||
}
|
||||
|
||||
static void music_volume_decay()
|
||||
{
|
||||
if( --music_volume < 0 )
|
||||
music_volume = 0;
|
||||
}
|
||||
|
||||
static void warpwarp_music2_w(UINT8 data)
|
||||
{
|
||||
music2_latch = data & 0x3f;
|
||||
music_volume = 0x7fff;
|
||||
|
||||
if( music2_latch & 0x10 ) {
|
||||
music_volume_timer = 1;
|
||||
} else {
|
||||
music_volume_timer = 3;
|
||||
}
|
||||
}
|
||||
|
||||
static void warpwarp_timer_tiktiktik(INT32 ticks)
|
||||
{// warpwarp_timer_tiktiktik(); must be called 256 times per frame
|
||||
switch (music_volume_timer) {
|
||||
case 1: music_volume_decay(); // no breaks!
|
||||
case 2: music_volume_decay();
|
||||
case 3: music_volume_decay();
|
||||
}
|
||||
switch (sound_volume_timer) {
|
||||
case 1: sound_volume_decay();
|
||||
case 2: sound_volume_decay();
|
||||
case 3: sound_volume_decay();
|
||||
}
|
||||
}
|
||||
|
||||
static void warpwarp_sound_update(INT16 *buffer, INT32 length)
|
||||
{
|
||||
static int vcarry = 0;
|
||||
static int vcount = 0;
|
||||
static int mcarry = 0;
|
||||
static int mcount = 0;
|
||||
|
||||
memset(buffer, 0, length * 2 * sizeof(INT16));
|
||||
|
||||
while (length--)
|
||||
{
|
||||
*buffer++ = (sound_signal + music_signal) / 4;
|
||||
*buffer++ = (sound_signal + music_signal) / 4;
|
||||
|
||||
mcarry -= (18432000/3/2/16) / (4 * (64 - music1_latch));
|
||||
while( mcarry < 0 )
|
||||
{
|
||||
mcarry += nBurnSoundRate;
|
||||
mcount++;
|
||||
music_signal = (mcount & ~music2_latch & 15) ? decay[music_volume] : 0;
|
||||
/* override by noise gate? */
|
||||
if( (music2_latch & 32) && (noise & 0x8000) )
|
||||
music_signal = decay[music_volume];
|
||||
}
|
||||
|
||||
/* clock 1V = 8kHz */
|
||||
vcarry -= (18432000/3/2/384);
|
||||
while (vcarry < 0)
|
||||
{
|
||||
vcarry += nBurnSoundRate;
|
||||
vcount++;
|
||||
|
||||
/* noise is clocked with raising edge of 2V */
|
||||
if ((vcount & 3) == 2)
|
||||
{
|
||||
/* bit0 = bit0 ^ !bit10 */
|
||||
if ((noise & 1) == ((noise >> 10) & 1))
|
||||
noise = (noise << 1) | 1;
|
||||
else
|
||||
noise = noise << 1;
|
||||
}
|
||||
|
||||
switch (sound_latch & 7)
|
||||
{
|
||||
case 0: /* 4V */
|
||||
sound_signal = (vcount & 0x04) ? decay[sound_volume] : 0;
|
||||
break;
|
||||
case 1: /* 8V */
|
||||
sound_signal = (vcount & 0x08) ? decay[sound_volume] : 0;
|
||||
break;
|
||||
case 2: /* 16V */
|
||||
sound_signal = (vcount & 0x10) ? decay[sound_volume] : 0;
|
||||
break;
|
||||
case 3: /* 32V */
|
||||
sound_signal = (vcount & 0x20) ? decay[sound_volume] : 0;
|
||||
break;
|
||||
case 4: /* TONE1 */
|
||||
sound_signal = !(vcount & 0x01) && !(vcount & 0x10) ? decay[sound_volume] : 0;
|
||||
break;
|
||||
case 5: /* TONE2 */
|
||||
sound_signal = !(vcount & 0x02) && !(vcount & 0x20) ? decay[sound_volume] : 0;
|
||||
break;
|
||||
case 6: /* TONE3 */
|
||||
sound_signal = !(vcount & 0x04) && !(vcount & 0x40) ? decay[sound_volume] : 0;
|
||||
break;
|
||||
default: /* NOISE */
|
||||
sound_signal = (noise & 0x8000) ? decay[sound_volume] : 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
static void warpwarp_sound_init()
|
||||
{
|
||||
decay = (INT16 *) BurnMalloc(32768 * sizeof(INT16));
|
||||
|
||||
for(INT32 i = 0; i < 0x8000; i++ )
|
||||
decay[0x7fff-i] = (INT16) (0x7fff/exp(1.0*i/4096));
|
||||
|
||||
sound_volume_timer = 0;
|
||||
music_volume_timer = 0;
|
||||
}
|
||||
|
||||
static void warpwarp_sound_deinit()
|
||||
{
|
||||
if (decay)
|
||||
BurnFree(decay);
|
||||
decay = NULL;
|
||||
}
|
||||
|
||||
#define MAX_NETS 3
|
||||
#define MAX_RES_PER_NET 18
|
||||
#define Combine2Weights(tab,w0,w1) ((int)(((tab)[0]*(w0) + (tab)[1]*(w1)) + 0.5))
|
||||
#define Combine3Weights(tab,w0,w1,w2) ((int)(((tab)[0]*(w0) + (tab)[1]*(w1) + (tab)[2]*(w2)) + 0.5))
|
||||
|
||||
static double ComputeResistorWeights(INT32 MinVal, INT32 MaxVal, double Scaler, INT32 Count1, const INT32 *Resistances1, double *Weights1, INT32 PullDown1, INT32 PullUp1, INT32 Count2, const INT32 *Resistances2, double *Weights2, INT32 PullDown2, INT32 PullUp2, INT32 Count3, const INT32 *Resistances3, double *Weights3, INT32 PullDown3, INT32 PullUp3)
|
||||
{
|
||||
INT32 NetworksNum;
|
||||
|
||||
INT32 ResCount[MAX_NETS];
|
||||
double r[MAX_NETS][MAX_RES_PER_NET];
|
||||
double w[MAX_NETS][MAX_RES_PER_NET];
|
||||
double ws[MAX_NETS][MAX_RES_PER_NET];
|
||||
INT32 r_pd[MAX_NETS];
|
||||
INT32 r_pu[MAX_NETS];
|
||||
|
||||
double MaxOut[MAX_NETS];
|
||||
double *Out[MAX_NETS];
|
||||
|
||||
INT32 i, j, n;
|
||||
double Scale;
|
||||
double Max;
|
||||
|
||||
NetworksNum = 0;
|
||||
for (n = 0; n < MAX_NETS; n++) {
|
||||
INT32 Count, pd, pu;
|
||||
const INT32 *Resistances;
|
||||
double *Weights;
|
||||
|
||||
switch (n) {
|
||||
case 0: {
|
||||
Count = Count1;
|
||||
Resistances = Resistances1;
|
||||
Weights = Weights1;
|
||||
pd = PullDown1;
|
||||
pu = PullUp1;
|
||||
break;
|
||||
}
|
||||
|
||||
case 1: {
|
||||
Count = Count2;
|
||||
Resistances = Resistances2;
|
||||
Weights = Weights2;
|
||||
pd = PullDown2;
|
||||
pu = PullUp2;
|
||||
break;
|
||||
}
|
||||
|
||||
case 2:
|
||||
default: {
|
||||
Count = Count3;
|
||||
Resistances = Resistances3;
|
||||
Weights = Weights3;
|
||||
pd = PullDown3;
|
||||
pu = PullUp3;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
if (Count > 0) {
|
||||
ResCount[NetworksNum] = Count;
|
||||
for (i = 0; i < Count; i++) {
|
||||
r[NetworksNum][i] = 1.0 * Resistances[i];
|
||||
}
|
||||
Out[NetworksNum] = Weights;
|
||||
r_pd[NetworksNum] = pd;
|
||||
r_pu[NetworksNum] = pu;
|
||||
NetworksNum++;
|
||||
}
|
||||
}
|
||||
|
||||
for (i = 0; i < NetworksNum; i++) {
|
||||
double R0, R1, Vout, Dst;
|
||||
|
||||
for (n = 0; n < ResCount[i]; n++) {
|
||||
R0 = (r_pd[i] == 0) ? 1.0 / 1e12 : 1.0 / r_pd[i];
|
||||
R1 = (r_pu[i] == 0) ? 1.0 / 1e12 : 1.0 / r_pu[i];
|
||||
|
||||
for (j = 0; j < ResCount[i]; j++) {
|
||||
if (j == n) {
|
||||
if (r[i][j] != 0.0) R1 += 1.0 / r[i][j];
|
||||
} else {
|
||||
if (r[i][j] != 0.0) R0 += 1.0 / r[i][j];
|
||||
}
|
||||
}
|
||||
|
||||
R0 = 1.0/R0;
|
||||
R1 = 1.0/R1;
|
||||
Vout = (MaxVal - MinVal) * R0 / (R1 + R0) + MinVal;
|
||||
|
||||
Dst = (Vout < MinVal) ? MinVal : (Vout > MaxVal) ? MaxVal : Vout;
|
||||
|
||||
w[i][n] = Dst;
|
||||
}
|
||||
}
|
||||
|
||||
j = 0;
|
||||
Max = 0.0;
|
||||
for (i = 0; i < NetworksNum; i++) {
|
||||
double Sum = 0.0;
|
||||
|
||||
for (n = 0; n < ResCount[i]; n++) Sum += w[i][n];
|
||||
|
||||
MaxOut[i] = Sum;
|
||||
if (Max < Sum) {
|
||||
Max = Sum;
|
||||
j = i;
|
||||
}
|
||||
}
|
||||
|
||||
if (Scaler < 0.0) {
|
||||
Scale = ((double)MaxVal) / MaxOut[j];
|
||||
} else {
|
||||
Scale = Scaler;
|
||||
}
|
||||
|
||||
for (i = 0; i < NetworksNum; i++) {
|
||||
for (n = 0; n < ResCount[i]; n++) {
|
||||
ws[i][n] = w[i][n] * Scale;
|
||||
(Out[i])[n] = ws[i][n];
|
||||
}
|
||||
}
|
||||
|
||||
return Scale;
|
||||
}
|
||||
|
||||
|
||||
static void warpwarp_palette_init()
|
||||
{
|
||||
static const int resistances_tiles_rg[3] = { 1600, 820, 390 };
|
||||
static const int resistances_tiles_b[2] = { 820, 390 };
|
||||
static const int resistance_ball[1] = { 220 };
|
||||
|
||||
double weights_tiles_rg[3], weights_tiles_b[2], weight_ball[1];
|
||||
|
||||
ComputeResistorWeights(0, 0xff, -1.0,
|
||||
3, &resistances_tiles_rg[0], weights_tiles_rg, 150, 0,
|
||||
2, &resistances_tiles_b[0], weights_tiles_b, 150, 0,
|
||||
1, &resistance_ball[0], weight_ball, 150, 0);
|
||||
|
||||
for (INT32 i = 0; i < 0x100; i++)
|
||||
{
|
||||
int bit0, bit1, bit2;
|
||||
int r,g,b;
|
||||
|
||||
/* red component */
|
||||
bit0 = (i >> 0) & 0x01;
|
||||
bit1 = (i >> 1) & 0x01;
|
||||
bit2 = (i >> 2) & 0x01;
|
||||
r = Combine3Weights(weights_tiles_rg, bit0, bit1, bit2);
|
||||
|
||||
/* green component */
|
||||
bit0 = (i >> 3) & 0x01;
|
||||
bit1 = (i >> 4) & 0x01;
|
||||
bit2 = (i >> 5) & 0x01;
|
||||
g = Combine3Weights(weights_tiles_rg, bit0, bit1, bit2);
|
||||
|
||||
/* blue component */
|
||||
bit0 = (i >> 6) & 0x01;
|
||||
bit1 = (i >> 7) & 0x01;
|
||||
b = Combine2Weights(weights_tiles_b, bit0, bit1);
|
||||
|
||||
DrvPalette[(i * 2) + 0] = BurnHighCol(0, 0, 0, 0);;
|
||||
DrvPalette[(i * 2) + 1] = BurnHighCol(r, g, b, 0);;
|
||||
}
|
||||
|
||||
DrvPalette[0x200] = BurnHighCol(weight_ball[0], weight_ball[0], weight_ball[0], 0);
|
||||
}
|
||||
|
||||
#undef MAX_NETS
|
||||
#undef MAX_RES_PER_NET
|
||||
#undef Combine2Weights
|
||||
#undef Combine3Weights
|
||||
|
||||
static void DrvMakeInputs()
|
||||
{
|
||||
// Reset Inputs (all active LOW)
|
||||
DrvInput[0] = 0xff;
|
||||
DrvInput[1] = 0xff;
|
||||
DrvInput[2] = 0x00;
|
||||
DrvInput[3] = 0x00;
|
||||
|
||||
// Compile Digital Inputs
|
||||
for (INT32 i = 0; i < 8; i++) {
|
||||
DrvInput[0] ^= (DrvJoy1[i] & 1) << i;
|
||||
DrvInput[1] ^= (DrvJoy2[i] & 1) << i;
|
||||
DrvInput[2] ^= (DrvJoy3[i] & 1) << i;
|
||||
DrvInput[3] ^= (DrvJoy4[i] & 1) << i;
|
||||
}
|
||||
}
|
||||
|
||||
static UINT8 warpwarp_sw_r(UINT8 offset)
|
||||
{
|
||||
return (DrvInput[0] >> (offset & 7)) & 1;
|
||||
}
|
||||
|
||||
static UINT8 warpwarp_dsw1_r(UINT8 offset)
|
||||
{
|
||||
return (DrvDip[0] >> (offset & 7)) & 1;
|
||||
}
|
||||
|
||||
static UINT8 warpwarp_vol_r(UINT8 offset)
|
||||
{
|
||||
int res;
|
||||
|
||||
res = DrvInput[2];
|
||||
|
||||
{
|
||||
if (res & 1) return 0x0f;
|
||||
if (res & 2) return 0x3f;
|
||||
if (res & 4) return 0x6f;
|
||||
if (res & 8) return 0x9f;
|
||||
return 0xff;
|
||||
}
|
||||
return res;
|
||||
}
|
||||
|
||||
static void warpwarp_out0_w(UINT16 offset, UINT8 data)
|
||||
{
|
||||
switch (offset & 3)
|
||||
{
|
||||
case 0:
|
||||
m_ball_h = data;
|
||||
break;
|
||||
case 1:
|
||||
m_ball_v = data;
|
||||
break;
|
||||
case 2:
|
||||
warpwarp_sound_w(data);
|
||||
break;
|
||||
case 3:
|
||||
// watchdog reset
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
static void warpwarp_out3_w(UINT16 offset, UINT8 data)
|
||||
{
|
||||
switch (offset & 7)
|
||||
{
|
||||
case 6:
|
||||
m_ball_on = data & 1;
|
||||
if (~data & 1)
|
||||
ZetSetIRQLine(0, CPU_IRQSTATUS_NONE);
|
||||
break;
|
||||
case 7:
|
||||
// flipscreen = data & 1;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
static void __fastcall main_write(UINT16 address, UINT8 data)
|
||||
{
|
||||
if (address >= 0xc000 && address <= 0xc00f) {
|
||||
warpwarp_out0_w(address - 0xc000, data);
|
||||
return;
|
||||
}
|
||||
if (address >= 0xc010 && address <= 0xc01f) {
|
||||
warpwarp_music1_w(data);
|
||||
return;
|
||||
}
|
||||
if (address >= 0xc020 && address <= 0xc02f) {
|
||||
warpwarp_music2_w(data);
|
||||
return;
|
||||
}
|
||||
if (address >= 0xc030 && address <= 0xc03f) {
|
||||
warpwarp_out3_w(address - 0xc030, data);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
static UINT8 __fastcall main_read(UINT16 address)
|
||||
{
|
||||
if (address >= 0xc000 && address <= 0xc00f) {
|
||||
return warpwarp_sw_r(address - 0xc000);
|
||||
}
|
||||
if (address >= 0xc010 && address <= 0xc01f) {
|
||||
return warpwarp_vol_r(address - 0xc010);
|
||||
}
|
||||
if (address >= 0xc020 && address <= 0xc02f) {
|
||||
return warpwarp_dsw1_r(address - 0xc020);
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
static INT32 DrvDoReset()
|
||||
{
|
||||
memset (AllRam, 0, RamEnd - AllRam);
|
||||
|
||||
ZetOpen(0);
|
||||
ZetReset();
|
||||
ZetClose();
|
||||
|
||||
m_ball_on = 0;
|
||||
m_ball_h = 0;
|
||||
m_ball_v = 0;
|
||||
|
||||
warpwarp_sound_reset();
|
||||
|
||||
HiscoreReset();
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
static INT32 MemIndex()
|
||||
{
|
||||
UINT8 *Next; Next = AllMem;
|
||||
|
||||
DrvZ80ROM = Next; Next += 0x08000;
|
||||
|
||||
DrvPalette = (UINT32*)Next; Next += 0x0300 * sizeof(UINT32);
|
||||
DrvCharGFX = Next; Next += 0x40000;
|
||||
DrvGFX1ROM = Next; Next += 0x01000;
|
||||
|
||||
AllRam = Next;
|
||||
|
||||
DrvZ80RAM = Next; Next += 0x01000;
|
||||
DrvVidRAM = Next; Next += 0x01000;
|
||||
|
||||
RamEnd = Next;
|
||||
MemEnd = Next;
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
static INT32 CharPlaneOffsets[1] = { 0 };
|
||||
static INT32 CharXOffsets[8] = { 0, 1, 2, 3, 4, 5, 6, 7 };
|
||||
static INT32 CharYOffsets[8] = { 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, 7*8 };
|
||||
|
||||
static INT32 DrvInit()
|
||||
{
|
||||
AllMem = NULL;
|
||||
MemIndex();
|
||||
INT32 nLen = MemEnd - (UINT8 *)0;
|
||||
if ((AllMem = (UINT8 *)BurnMalloc(nLen)) == NULL) return 1;
|
||||
memset(AllMem, 0, nLen);
|
||||
MemIndex();
|
||||
|
||||
{ // Load ROMS parse GFX
|
||||
if (BurnLoadRom(DrvZ80ROM + 0x0000, 0, 1)) return 1;
|
||||
if (BurnLoadRom(DrvZ80ROM + 0x1000, 1, 1)) return 1;
|
||||
if (BurnLoadRom(DrvZ80ROM + 0x2000, 2, 1)) return 1;
|
||||
if (rockola)
|
||||
if (BurnLoadRom(DrvZ80ROM + 0x3000, 3, 1)) return 1;
|
||||
|
||||
|
||||
if (BurnLoadRom(DrvGFX1ROM , 3 + rockola, 1)) return 1;
|
||||
GfxDecode(0x100, 1, 8, 8, CharPlaneOffsets, CharXOffsets, CharYOffsets, 0x40, DrvGFX1ROM, DrvCharGFX);
|
||||
}
|
||||
|
||||
ZetInit(0);
|
||||
ZetOpen(0);
|
||||
ZetMapMemory(DrvZ80ROM, 0x0000, 0x3fff, MAP_RAM);
|
||||
ZetMapMemory(DrvZ80RAM, 0x8000, 0x83ff, MAP_RAM);
|
||||
ZetMapMemory(DrvVidRAM, 0x4000, 0x47ff, MAP_RAM);
|
||||
ZetMapMemory(DrvGFX1ROM, 0x4800, 0x4fff, MAP_RAM);
|
||||
ZetSetWriteHandler(main_write);
|
||||
ZetSetReadHandler(main_read);
|
||||
ZetClose();
|
||||
|
||||
GenericTilesInit();
|
||||
|
||||
warpwarp_sound_init();
|
||||
|
||||
DrvDoReset();
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
static INT32 DrvExit()
|
||||
{
|
||||
GenericTilesExit();
|
||||
|
||||
ZetExit();
|
||||
|
||||
BurnFree(AllMem);
|
||||
|
||||
warpwarp_sound_deinit();
|
||||
|
||||
rockola = 0;
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
static void plot_pixel(INT32 x, INT32 y, INT32 pen)
|
||||
{
|
||||
if (x < 0 || x > nScreenWidth) return;
|
||||
if (y < 0 || y > nScreenHeight) return;
|
||||
|
||||
UINT16 *pPixel = pTransDraw + (y * nScreenWidth) + x;
|
||||
*pPixel = pen;
|
||||
}
|
||||
|
||||
static void draw_bullet()
|
||||
{
|
||||
if (m_ball_on) {
|
||||
INT32 x = 264 - m_ball_h;
|
||||
INT32 y = 240 - m_ball_v;
|
||||
|
||||
for (INT32 i = 4; i > 0; i--)
|
||||
for (INT32 j = 4; j > 0; j--) {
|
||||
plot_pixel(x - j, y - i, 0x200);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
static void draw_chars()
|
||||
{
|
||||
INT32 mx, my, code, color, x, y, offs, row, col;
|
||||
|
||||
for (mx = 0; mx < 28; mx++) {
|
||||
for (my = 0; my < 34; my++) {
|
||||
row = mx + 2;
|
||||
col = my - 1;
|
||||
|
||||
if (col & 0x20)
|
||||
offs = row + ((col & 1) << 5);
|
||||
else
|
||||
offs = col + (row << 5);
|
||||
|
||||
code = DrvVidRAM[offs];
|
||||
color = DrvVidRAM[offs + 0x400];
|
||||
|
||||
y = 8 * mx;
|
||||
x = 8 * my;
|
||||
Render8x8Tile_Clip(pTransDraw, code, x, y, color, 1, 0, DrvCharGFX);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
static INT32 DrvDraw()
|
||||
{
|
||||
if (DrvRecalc) {
|
||||
warpwarp_palette_init();
|
||||
DrvRecalc = 0;
|
||||
}
|
||||
|
||||
BurnTransferClear();
|
||||
|
||||
draw_chars();
|
||||
draw_bullet();
|
||||
|
||||
BurnTransferCopy(DrvPalette);
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
static INT32 DrvFrame()
|
||||
{
|
||||
if (DrvReset) {
|
||||
DrvDoReset();
|
||||
}
|
||||
|
||||
DrvMakeInputs();
|
||||
|
||||
INT32 nInterleave = 256;
|
||||
INT32 nCyclesTotal = 2048000 / 60;
|
||||
|
||||
ZetOpen(0);
|
||||
for (INT32 i = 0; i < nInterleave; i++) {
|
||||
ZetRun(nCyclesTotal / nInterleave);
|
||||
|
||||
if (i == nInterleave - 1 && m_ball_on)
|
||||
ZetSetIRQLine(0, CPU_IRQSTATUS_ACK);
|
||||
|
||||
warpwarp_timer_tiktiktik(nCyclesTotal / nInterleave);
|
||||
}
|
||||
ZetClose();
|
||||
|
||||
if (pBurnSoundOut) {
|
||||
warpwarp_sound_update(pBurnSoundOut, nBurnSoundLen);
|
||||
}
|
||||
|
||||
if (pBurnDraw) {
|
||||
DrvDraw();
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
static INT32 DrvScan(INT32 nAction, INT32 *pnMin)
|
||||
{
|
||||
struct BurnArea ba;
|
||||
|
||||
if (pnMin) {
|
||||
*pnMin = 0x029735;
|
||||
}
|
||||
|
||||
if (nAction & ACB_VOLATILE) {
|
||||
memset(&ba, 0, sizeof(ba));
|
||||
ba.Data = AllRam;
|
||||
ba.nLen = RamEnd - AllRam;
|
||||
ba.szName = "All Ram";
|
||||
BurnAcb(&ba);
|
||||
|
||||
ZetScan(nAction);
|
||||
|
||||
warpwarp_sound_scan();
|
||||
|
||||
SCAN_VAR(m_ball_on);
|
||||
SCAN_VAR(m_ball_h);
|
||||
SCAN_VAR(m_ball_v);
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
// Warp & Warp
|
||||
|
||||
static struct BurnRomInfo warpwarpRomDesc[] = {
|
||||
{ "ww1_prg1.s10", 0x1000, 0xf5262f38, 1 | BRF_PRG | BRF_ESS }, // 0 maincpu
|
||||
{ "ww1_prg2.s8", 0x1000, 0xde8355dd, 1 | BRF_PRG | BRF_ESS }, // 1
|
||||
{ "ww1_prg3.s4", 0x1000, 0xbdd1dec5, 1 | BRF_PRG | BRF_ESS }, // 2
|
||||
|
||||
{ "ww1_chg1.s12", 0x0800, 0x380994c8, 2 | BRF_GRA }, // 3 gfx1
|
||||
};
|
||||
|
||||
STD_ROM_PICK(warpwarp)
|
||||
STD_ROM_FN(warpwarp)
|
||||
|
||||
struct BurnDriver BurnDrvWarpwarp = {
|
||||
"warpwarp", NULL, NULL, NULL, "1981",
|
||||
"Warp & Warp\0", NULL, "Namco", "Miscellaneous",
|
||||
NULL, NULL, NULL, NULL,
|
||||
BDF_GAME_WORKING | BDF_ORIENTATION_VERTICAL | BDF_ORIENTATION_FLIPPED | BDF_HISCORE_SUPPORTED, 2, HARDWARE_MISC_PRE90S, GBF_PLATFORM, 0,
|
||||
NULL, warpwarpRomInfo, warpwarpRomName, NULL, NULL, WarpwarpInputInfo, WarpwarpDIPInfo,
|
||||
DrvInit, DrvExit, DrvFrame, DrvDraw, DrvScan, &DrvRecalc, 0x300,
|
||||
224, 272, 3, 4
|
||||
};
|
||||
|
||||
INT32 warpwarprDrvInit()
|
||||
{
|
||||
rockola = 1;
|
||||
|
||||
return DrvInit();
|
||||
}
|
||||
|
||||
// Warp Warp (Rock-Ola set 1)
|
||||
|
||||
static struct BurnRomInfo warpwarprRomDesc[] = {
|
||||
{ "g-09601.2r", 0x1000, 0x916ffa35, 1 | BRF_PRG | BRF_ESS }, // 0 maincpu
|
||||
{ "g-09602.2m", 0x1000, 0x398bb87b, 1 | BRF_PRG | BRF_ESS }, // 1
|
||||
{ "g-09603.1p", 0x1000, 0x6b962fc4, 1 | BRF_PRG | BRF_ESS }, // 2
|
||||
{ "g-09613.1t", 0x0800, 0x60a67e76, 1 | BRF_PRG | BRF_ESS }, // 3
|
||||
|
||||
{ "g-9611.4c", 0x0800, 0x00e6a326, 2 | BRF_GRA }, // 4 gfx1
|
||||
};
|
||||
|
||||
STD_ROM_PICK(warpwarpr)
|
||||
STD_ROM_FN(warpwarpr)
|
||||
|
||||
struct BurnDriver BurnDrvWarpwarpr = {
|
||||
"warpwarpr", "warpwarp", NULL, NULL, "1981",
|
||||
"Warp Warp (Rock-Ola set 1)\0", NULL, "Namco (Rock-Ola license)", "Miscellaneous",
|
||||
NULL, NULL, NULL, NULL,
|
||||
BDF_GAME_WORKING | BDF_CLONE | BDF_ORIENTATION_VERTICAL | BDF_ORIENTATION_FLIPPED | BDF_HISCORE_SUPPORTED, 2, HARDWARE_MISC_PRE90S, GBF_PLATFORM, 0,
|
||||
NULL, warpwarprRomInfo, warpwarprRomName, NULL, NULL, WarpwarpInputInfo, WarpwarprDIPInfo,
|
||||
warpwarprDrvInit, DrvExit, DrvFrame, DrvDraw, DrvScan, &DrvRecalc, 0x300,
|
||||
224, 272, 3, 4
|
||||
};
|
||||
|
||||
|
||||
// Warp Warp (Rock-Ola set 2)
|
||||
|
||||
static struct BurnRomInfo warpwarpr2RomDesc[] = {
|
||||
{ "g-09601.2r", 0x1000, 0x916ffa35, 1 | BRF_PRG | BRF_ESS }, // 0 maincpu
|
||||
{ "g-09602.2m", 0x1000, 0x398bb87b, 1 | BRF_PRG | BRF_ESS }, // 1
|
||||
{ "g-09603.1p", 0x1000, 0x6b962fc4, 1 | BRF_PRG | BRF_ESS }, // 2
|
||||
{ "g-09612.1t", 0x0800, 0xb91e9e79, 1 | BRF_PRG | BRF_ESS }, // 3
|
||||
|
||||
{ "g-9611.4c", 0x0800, 0x00e6a326, 2 | BRF_GRA }, // 4 gfx1
|
||||
};
|
||||
|
||||
STD_ROM_PICK(warpwarpr2)
|
||||
STD_ROM_FN(warpwarpr2)
|
||||
|
||||
struct BurnDriver BurnDrvWarpwarpr2 = {
|
||||
"warpwarpr2", "warpwarp", NULL, NULL, "1981",
|
||||
"Warp Warp (Rock-Ola set 2)\0", NULL, "Namco (Rock-Ola license)", "Miscellaneous",
|
||||
NULL, NULL, NULL, NULL,
|
||||
BDF_GAME_WORKING | BDF_CLONE | BDF_ORIENTATION_VERTICAL | BDF_ORIENTATION_FLIPPED | BDF_HISCORE_SUPPORTED, 2, HARDWARE_MISC_PRE90S, GBF_PLATFORM, 0,
|
||||
NULL, warpwarpr2RomInfo, warpwarpr2RomName, NULL, NULL, WarpwarpInputInfo, WarpwarprDIPInfo,
|
||||
warpwarprDrvInit, DrvExit, DrvFrame, DrvDraw, DrvScan, &DrvRecalc, 0x300,
|
||||
224, 272, 3, 4
|
||||
};
|
||||
|
||||
Loading…
Reference in New Issue
Block a user