/*******************************************************************************************
Alien Command (c) 1993 Jaleco
driver by Angelo Salese
Actually same HW as the Cisco Heat ones.
TODO:
-Understand what "devices" area needs to make this working.It's likely that the upper switches
controls the UFO's and the lower switches the astronauts.
-Back tilemap paging is likely to be incorrect.
-3D Artworks for the UFO's,Astronauts etc.
-Merge to the Cisco Heat driver.
Notes:
-The real HW is a redemption machine with two guns, similar to the "Cosmo Gang the Video"
(Namco) bonus games.
m68k irq table vectors
lev 1 : 0x64 : 0000 04f0 - rte
lev 2 : 0x68 : 0000 044a - vblank
lev 3 : 0x6c : 0000 0484 - "dynamic color change" (?)
lev 4 : 0x70 : 0000 04f0 - rte
lev 5 : 0x74 : 0000 04f0 - rte
lev 6 : 0x78 : 0000 04f0 - rte
lev 7 : 0x7c : 0000 04f0 - rte
===========================================================================================
Jaleco Alien Command
Redemption Video Game with Guns
2/7/99
Hardware Specs: 68000 at 12Mhz and OKI6295
JALMR17 BIN 524,288 02-07-99 1:17a JALMR17.BIN
JALCF2 BIN 1,048,576 02-07-99 1:10a JALCF2.BIN
JALCF3 BIN 131,072 02-07-99 1:12a JALCF3.BIN
JALCF4 BIN 131,072 02-07-99 1:13a JALCF4.BIN
JALCF5 BIN 524,288 02-07-99 1:15a JALCF5.BIN
JALCF6 BIN 131,072 02-07-99 1:14a JALCF6.BIN
JALGP1 BIN 524,288 02-07-99 1:21a JALGP1.BIN
JALGP2 BIN 524,288 02-07-99 1:24a JALGP2.BIN
JALGP3 BIN 524,288 02-07-99 1:20a JALGP3.BIN
JALGP4 BIN 524,288 02-07-99 1:23a JALGP4.BIN
JALGP5 BIN 524,288 02-07-99 1:19a JALGP5.BIN
JALGP6 BIN 524,288 02-07-99 1:23a JALGP6.BIN
JALGP7 BIN 524,288 02-07-99 1:19a JALGP7.BIN
JALGP8 BIN 524,288 02-07-99 1:22a JALGP8.BIN
JALMR14 BIN 524,288 02-07-99 1:17a JALMR14.BIN
JALCF1 BIN 1,048,576 02-07-99 1:11a JALCF1.BIN
*******************************************************************************************/
#include "emu.h"
#include "cpu/m68000/m68000.h"
#include "sound/okim6295.h"
class acommand_state : public driver_device
{
public:
acommand_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag) { }
tilemap_t *m_tx_tilemap;
tilemap_t *m_bg_tilemap;
UINT16 *m_ac_txvram;
UINT16 *m_ac_bgvram;
UINT16 *m_ac_vregs;
UINT16 m_led0;
UINT16 m_led1;
UINT16 *m_ac_devram;
UINT16 m_ufo_sw1;
UINT16 m_ufo_sw2;
UINT16 *m_spriteram;
size_t m_spriteram_size;
};
static TILEMAP_MAPPER( bg_scan )
{
/* logical (col,row) -> memory offset */
return (row & 0x0f) + ((col & 0xff) << 4) + ((row & 0x70) << 8);
}
static TILE_GET_INFO( ac_get_bg_tile_info )
{
acommand_state *state = machine.driver_data<acommand_state>();
int code = state->m_ac_bgvram[tile_index];
SET_TILE_INFO(
1,
code & 0xfff,
(code & 0xf000) >> 12,
0);
}
static TILE_GET_INFO( ac_get_tx_tile_info )
{
acommand_state *state = machine.driver_data<acommand_state>();
int code = state->m_ac_txvram[tile_index];
SET_TILE_INFO(
0,
code & 0xfff,
(code & 0xf000) >> 12,
0);
}
static void draw_sprites(running_machine &machine, bitmap_t *bitmap, const rectangle *cliprect, int priority, int pri_mask)
{
acommand_state *state = machine.driver_data<acommand_state>();
UINT16 *spriteram16 = state->m_spriteram;
int offs;
for (offs = 0;offs < state->m_spriteram_size/2;offs += 8)
{
if (!(spriteram16[offs+0] & 0x1000))
{
int sx = (spriteram16[offs+3] & 0x0ff);
int code = spriteram16[offs+6];
int color = spriteram16[offs+7];
int w = (spriteram16[offs+0] & 0x0f);
int h = ((spriteram16[offs+0] & 0xf0) >> 4);
int sy = (spriteram16[offs+4] & 0x0ff) - ((h+1)*0x10);
/**/ int pri = spriteram16[offs+5];
/**/ int flipy = ((spriteram16[offs+1] & 0x0200) >> 9);
/**/ int flipx = ((spriteram16[offs+1] & 0x0100) >> 8);
int xx,yy,x;
int delta = 16;
flipx ^= flip_screen_get(machine);
flipy ^= flip_screen_get(machine);
if ((pri&pri_mask)!=priority) continue;
if (flip_screen_get(machine))
{
sx = 368 - sx;
sy = 240 - sy;
delta = -16;
}
yy = h;
do
{
x = sx;
xx = w;
do
{
drawgfx_transpen(bitmap,cliprect,machine.gfx[2],
code,
color,
flipx, flipy,
((x + 16) & 0x1ff) - 16,sy & 0x1ff,15);
code++;
x += delta;
} while (--xx >= 0);
sy += delta;
} while (--yy >= 0);
}
}
}
static VIDEO_START( acommand )
{
acommand_state *state = machine.driver_data<acommand_state>();
state->m_tx_tilemap = tilemap_create(machine, ac_get_tx_tile_info,tilemap_scan_cols,8,8,512,32);
state->m_bg_tilemap = tilemap_create(machine, ac_get_bg_tile_info,bg_scan,16,16,256,16);
state->m_ac_vregs = auto_alloc_array(machine, UINT16, 0x80/2);
tilemap_set_transparent_pen(state->m_tx_tilemap,15);
}
#define LED_ON 0x01c00
#define LED_OFF 0x00000
/*
a
---
f | | b
-g-
e | | c
---
d
a & 1
b & 2
c & 4
d & 8
e & 10
f & 20
g & 40
7f
*/
/* 0 1 2 3 4 5 6 7 8 9 a b c d e f*/
static const UINT8 led_fill[0x10] = { 0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x00,0x00,0x00,0x00,0x00,0x00};
static void draw_led(bitmap_t *bitmap, int x, int y,UINT8 value)
{
plot_box(bitmap, x, y, 6, 10, 0x00000000);
/*a*/
*BITMAP_ADDR16(bitmap, y+0, x+1) = ((led_fill[value] & 0x0001) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+0, x+2) = ((led_fill[value] & 0x0001) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+0, x+3) = ((led_fill[value] & 0x0001) ? LED_ON : LED_OFF);
/*b*/
*BITMAP_ADDR16(bitmap, y+1, x+4) = ((led_fill[value] & 0x0002) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+2, x+4) = ((led_fill[value] & 0x0002) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+3, x+4) = ((led_fill[value] & 0x0002) ? LED_ON : LED_OFF);
/*c*/
*BITMAP_ADDR16(bitmap, y+5, x+4) = ((led_fill[value] & 0x0004) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+6, x+4) = ((led_fill[value] & 0x0004) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+7, x+4) = ((led_fill[value] & 0x0004) ? LED_ON : LED_OFF);
/*d*/
*BITMAP_ADDR16(bitmap, y+8, x+1) = ((led_fill[value] & 0x0008) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+8, x+2) = ((led_fill[value] & 0x0008) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+8, x+3) = ((led_fill[value] & 0x0008) ? LED_ON : LED_OFF);
/*e*/
*BITMAP_ADDR16(bitmap, y+5, x+0) = ((led_fill[value] & 0x0010) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+6, x+0) = ((led_fill[value] & 0x0010) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+7, x+0) = ((led_fill[value] & 0x0010) ? LED_ON : LED_OFF);
/*f*/
*BITMAP_ADDR16(bitmap, y+1, x+0) = ((led_fill[value] & 0x0020) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+2, x+0) = ((led_fill[value] & 0x0020) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+3, x+0) = ((led_fill[value] & 0x0020) ? LED_ON : LED_OFF);
/*g*/
*BITMAP_ADDR16(bitmap, y+4, x+1) = ((led_fill[value] & 0x0040) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+4, x+2) = ((led_fill[value] & 0x0040) ? LED_ON : LED_OFF);
*BITMAP_ADDR16(bitmap, y+4, x+3) = ((led_fill[value] & 0x0040) ? LED_ON : LED_OFF);
}
static SCREEN_UPDATE( acommand )
{
acommand_state *state = screen->machine().driver_data<acommand_state>();
tilemap_draw(bitmap,cliprect,state->m_bg_tilemap,0,0);
draw_sprites(screen->machine(),bitmap,cliprect,0,0);
tilemap_draw(bitmap,cliprect,state->m_tx_tilemap,0,0);
/*Order might be wrong,but these for sure are the led numbers tested*/
draw_led(bitmap, 0, 20, (state->m_led0 & 0x0f00) >> 8);
draw_led(bitmap, 6, 20, (state->m_led0 & 0x00f0) >> 4);
draw_led(bitmap, 12, 20, (state->m_led0 & 0x000f));
draw_led(bitmap, 256-18,20,(state->m_led0 & 0xf000) >> 12);
draw_led(bitmap, 256-12,20,(state->m_led1 & 0xf0) >> 4);
draw_led(bitmap, 256-6,20, (state->m_led1 & 0xf));
return 0;
}
static WRITE16_HANDLER( ac_bgvram_w )
{
acommand_state *state = space->machine().driver_data<acommand_state>();
COMBINE_DATA(&state->m_ac_bgvram[offset]);
tilemap_mark_tile_dirty(state->m_bg_tilemap,offset);
}
static WRITE16_HANDLER( ac_txvram_w )
{
acommand_state *state = space->machine().driver_data<acommand_state>();
COMBINE_DATA(&state->m_ac_txvram[offset]);
tilemap_mark_tile_dirty(state->m_tx_tilemap,offset);
}
static WRITE16_HANDLER(ac_bgscroll_w)
{
acommand_state *state = space->machine().driver_data<acommand_state>();
switch(offset)
{
case 0: tilemap_set_scrollx(state->m_bg_tilemap,0,data); break;
case 1: tilemap_set_scrolly(state->m_bg_tilemap,0,data); break;
case 2: /*BG_TILEMAP priority?*/ break;
}
}
static WRITE16_HANDLER(ac_txscroll_w)
{
acommand_state *state = space->machine().driver_data<acommand_state>();
switch(offset)
{
case 0: tilemap_set_scrollx(state->m_tx_tilemap,0,data); break;
case 1: tilemap_set_scrolly(state->m_tx_tilemap,0,data); break;
case 2: /*TX_TILEMAP priority?*/ break;
}
}
/******************************************************************************************/
static READ16_HANDLER(ac_devices_r)
{
acommand_state *state = space->machine().driver_data<acommand_state>();
logerror("(PC=%06x) read at %04x\n",cpu_get_pc(&space->device()),offset*2);
switch(offset)
{
case 0x0008/2:
/*
--x- ---- ---- ---- Ticket Dispenser - 2
---x ---- ---- ---- Ticket Dispenser - 1
---- -x-- ---- ---- Right Gun HIT
---- ---x ---- ---- Left Gun HIT
---- ---- --x- ---- Service Mode (Toggle)
---- ---- ---x ---- Service Coin
---- ---- ---- x--- COIN2
---- ---- ---- -x-- COIN1
---- ---- ---- --x- (Activate Test)
---- ---- ---- ---x (Advance through Tests)
*/
return input_port_read(space->machine(), "IN0");
case 0x0014/2:
case 0x0016/2:
return space->machine().device<okim6295_device>("oki1")->read(*space,0);
case 0x0018/2:
case 0x001a/2:
return space->machine().device<okim6295_device>("oki2")->read(*space,0);
case 0x0040/2:
/*
"Upper switch / Under Switch"
xx-x ---- xx-x xx-x
-x-- ---- ---- ---- Catch Switch - 3
--x- ---- ---- ---- Lower Switch - 3
---x ---- ---- ---- Upper Switch - 3
---- -x-- ---- ---- Catch Switch - 2
---- --x- ---- ---- Lower Switch - 2
---- ---x ---- ---- Upper Switch - 2
---- ---- -x-- ---- Catch Switch - 1
---- ---- --x- ---- Lower Switch - 1 (active high)
---- ---- ---x ---- Upper Switch - 1 (active low)
---- ---- ---- --xx Boss Door - Motor
*/
//22dc8
{
state->m_ufo_sw1 = state->m_ac_devram[offset] & 3;
if(state->m_ac_devram[offset] & 0x10)
state->m_ufo_sw1|= 0x10;
if(state->m_ac_devram[offset] & 0x40)
state->m_ufo_sw1|= 0x20;
if(state->m_ac_devram[offset] & 0x100)
state->m_ufo_sw1|=0x100;
if(state->m_ac_devram[offset] & 0x400)
state->m_ufo_sw1|=0x200;
if(state->m_ac_devram[offset] & 0x1000)
state->m_ufo_sw1|=0x1000;
if(state->m_ac_devram[offset] & 0x4000)
state->m_ufo_sw1|=0x2000;
// if(state->m_ac_devram[0x0048/2] & 0x0001)
// state->m_ufo_sw1|=0x0040;
// if(state->m_ac_devram[0x0048/2] & 0x0004)
// state->m_ufo_sw1|=0x0400;
// if(state->m_ac_devram[0x0048/2] & 0x0100)
// state->m_ufo_sw1|=0x4000;
return state->m_ufo_sw1;
}
case 0x0044/2:
/*
---- ---- --x- ---- Lower Switch - 5
---- ---- ---x ---- Upper Switch - 5
---- ---- ---- --x- Lower Switch - 4 (active high)
---- ---- ---- ---x Upper Switch - 4 (active low)
*/
{
state->m_ufo_sw2 = 0;
if(state->m_ac_devram[offset] & 0x01)
state->m_ufo_sw2|= 1;
if(state->m_ac_devram[offset] & 0x04)
state->m_ufo_sw2|= 2;
if(state->m_ac_devram[offset] & 0x10)
state->m_ufo_sw2|=0x10;
if(state->m_ac_devram[offset] & 0x40)
state->m_ufo_sw2|=0x20;
return state->m_ufo_sw2;
}
case 0x0048/2:
return state->m_ac_devram[offset];
case 0x005c/2:
/*
xxxx xxxx ---- ---- DIPSW4
---- ---- xxxx xxxx DIPSW3
*/
return input_port_read(space->machine(), "IN1");
}
return state->m_ac_devram[offset];
}
static WRITE16_HANDLER(ac_devices_w)
{
acommand_state *state = space->machine().driver_data<acommand_state>();
COMBINE_DATA(&state->m_ac_devram[offset]);
switch(offset)
{
case 0x00/2:
if (ACCESSING_BITS_0_7)
{
okim6295_device *oki1 = space->machine().device<okim6295_device>("oki1");
okim6295_device *oki2 = space->machine().device<okim6295_device>("oki2");
oki1->set_bank_base(0x40000 * (data & 0x3));
oki2->set_bank_base(0x40000 * (data & 0x30) >> 4);
}
break;
case 0x14/2:
case 0x16/2:
if(ACCESSING_BITS_0_7)
{
okim6295_device *oki1 = space->machine().device<okim6295_device>("oki1");
oki1->write(*space,0,data);
}
break;
case 0x18/2:
case 0x1a/2:
if(ACCESSING_BITS_0_7)
{
okim6295_device *oki2 = space->machine().device<okim6295_device>("oki2");
oki2->write(*space,0,data);
}
break;
case 0x1c/2:
/*IRQ mask?*/
break;
case 0x40/2:
break;
case 0x44/2:
break;
case 0x48/2:
break;
case 0x50/2:
state->m_led0 = state->m_ac_devram[offset];
//popmessage("%04x",state->m_led0);
break;
case 0x54/2:
state->m_led1 = state->m_ac_devram[offset];
//popmessage("%04x",state->m_led0);
break;
}
}
/*This is always zero ATM*/
static WRITE16_HANDLER(ac_unk2_w)
{
if(data)
popmessage("UNK-2 enabled %04x",data);
}
static ADDRESS_MAP_START( acommand_map, AS_PROGRAM, 16 )
AM_RANGE(0x000000, 0x03ffff) AM_ROM
AM_RANGE(0x082000, 0x082005) AM_WRITE(ac_bgscroll_w)
AM_RANGE(0x082100, 0x082105) AM_WRITE(ac_txscroll_w)
AM_RANGE(0x082208, 0x082209) AM_WRITE(ac_unk2_w)
AM_RANGE(0x0a0000, 0x0a3fff) AM_RAM_WRITE(ac_bgvram_w) AM_BASE_MEMBER(acommand_state, m_ac_bgvram)
AM_RANGE(0x0b0000, 0x0b3fff) AM_RAM_WRITE(ac_txvram_w) AM_BASE_MEMBER(acommand_state, m_ac_txvram)
AM_RANGE(0x0b8000, 0x0bffff) AM_RAM_WRITE(paletteram16_RRRRGGGGBBBBRGBx_word_w) AM_BASE_GENERIC(paletteram)
AM_RANGE(0x0f0000, 0x0f7fff) AM_RAM
AM_RANGE(0x0f8000, 0x0f8fff) AM_RAM AM_BASE_SIZE_MEMBER(acommand_state, m_spriteram, m_spriteram_size)
AM_RANGE(0x0f9000, 0x0fffff) AM_RAM
AM_RANGE(0x100000, 0x1000ff) AM_READ(ac_devices_r) AM_WRITE(ac_devices_w) AM_BASE_MEMBER(acommand_state, m_ac_devram)
ADDRESS_MAP_END
static INPUT_PORTS_START( acommand )
PORT_START("IN0")
PORT_BIT( 0x0001, IP_ACTIVE_LOW, IPT_START1 )
PORT_BIT( 0x0002, IP_ACTIVE_LOW, IPT_START2 )
PORT_BIT( 0x0004, IP_ACTIVE_LOW, IPT_COIN1 )
PORT_BIT( 0x0008, IP_ACTIVE_LOW, IPT_COIN2 )
PORT_BIT( 0x0010, IP_ACTIVE_LOW, IPT_SERVICE1 )
PORT_SERVICE_NO_TOGGLE( 0x0020, IP_ACTIVE_LOW )
PORT_DIPNAME( 0x0040, 0x0040, "IN0" )
PORT_DIPSETTING( 0x0040, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x0080, 0x0080, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0080, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_BIT( 0x0100, IP_ACTIVE_LOW, IPT_BUTTON1 )
PORT_DIPNAME( 0x0200, 0x0200, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0200, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_BIT( 0x0400, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_PLAYER(2)
PORT_DIPNAME( 0x0800, 0x0800, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0800, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x1000, 0x1000, "Ticket Dispenser - 1" )
PORT_DIPSETTING( 0x1000, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x2000, 0x2000, "Ticket Dispenser - 2")
PORT_DIPSETTING( 0x2000, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x4000, 0x4000, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x4000, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x8000, 0x8000, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x8000, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_START("IN1")
PORT_DIPNAME( 0x0001, 0x0001, "IN2" )
PORT_DIPSETTING( 0x0001, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x0002, 0x0002, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0002, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x0004, 0x0004, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0004, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x0008, 0x0008, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0008, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x0010, 0x0010, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0010, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x0020, 0x0020, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0020, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x0040, 0x0040, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0040, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x0080, 0x0080, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0080, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x0100, 0x0100, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0100, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x0200, 0x0200, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0200, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x0400, 0x0400, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0400, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x0800, 0x0800, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x0800, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x1000, 0x1000, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x1000, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x2000, 0x2000, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x2000, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x4000, 0x4000, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x4000, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
PORT_DIPNAME( 0x8000, 0x8000, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x8000, DEF_STR( Off ) )
PORT_DIPSETTING( 0x0000, DEF_STR( On ) )
INPUT_PORTS_END
static const gfx_layout charlayout =
{
8,8,
RGN_FRAC(1,1),
4,
{ 0, 1, 2, 3 },
{ 0*4, 1*4, 2*4, 3*4, 4*4, 5*4, 6*4, 7*4 },
{ 0*32, 1*32, 2*32, 3*32, 4*32, 5*32, 6*32, 7*32 },
32*8
};
static const gfx_layout tilelayout =
{
16,16,
RGN_FRAC(1,1),
4,
{ 0, 1, 2, 3 },
{ 0*4, 1*4, 2*4, 3*4, 4*4, 5*4, 6*4, 7*4,
16*32+0*4, 16*32+1*4, 16*32+2*4, 16*32+3*4, 16*32+4*4, 16*32+5*4, 16*32+6*4, 16*32+7*4 },
{ 0*32, 1*32, 2*32, 3*32, 4*32, 5*32, 6*32, 7*32,
8*32, 9*32, 10*32, 11*32, 12*32, 13*32, 14*32, 15*32 },
32*32
};
static GFXDECODE_START( acommand )
GFXDECODE_ENTRY( "gfx1", 0, charlayout, 0x2700, 16 ) /*???*/
GFXDECODE_ENTRY( "gfx2", 0, tilelayout, 0x0f00, 256 )
GFXDECODE_ENTRY( "gfx3", 0, tilelayout, 0x1800, 256 )
GFXDECODE_END
static TIMER_DEVICE_CALLBACK( acommand_scanline )
{
int scanline = param;
if(scanline == 240) // vblank-out irq
cputag_set_input_line(timer.machine(), "maincpu", 2, HOLD_LINE);
if(scanline == 0) // vblank-in irq? (update palette and layers)
cputag_set_input_line(timer.machine(), "maincpu", 3, HOLD_LINE);
}
static MACHINE_CONFIG_START( acommand, acommand_state )
/* basic machine hardware */
MCFG_CPU_ADD("maincpu",M68000,12000000)
MCFG_CPU_PROGRAM_MAP(acommand_map)
MCFG_TIMER_ADD_SCANLINE("scantimer", acommand_scanline, "screen", 0, 1)
/* video hardware */
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_REFRESH_RATE(60)
MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(0))
MCFG_SCREEN_FORMAT(BITMAP_FORMAT_INDEXED16)
MCFG_SCREEN_SIZE(32*8, 32*8)
MCFG_SCREEN_VISIBLE_AREA(0*8, 32*8-1, 2*8, 30*8-1)
MCFG_SCREEN_UPDATE(acommand)
MCFG_GFXDECODE(acommand)
MCFG_PALETTE_LENGTH(0x4000)
MCFG_VIDEO_START(acommand)
/* sound hardware */
MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker")
MCFG_OKIM6295_ADD("oki1", 2112000, OKIM6295_PIN7_HIGH) // clock frequency & pin 7 not verified
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "lspeaker", 1.0)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "rspeaker", 1.0)
MCFG_OKIM6295_ADD("oki2", 2112000, OKIM6295_PIN7_HIGH) // clock frequency & pin 7 not verified
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "lspeaker", 1.0)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "rspeaker", 1.0)
MACHINE_CONFIG_END
/***************************************************************************
Game driver(s)
***************************************************************************/
ROM_START( acommand )
ROM_REGION( 0x040000, "maincpu", 0 )
ROM_LOAD16_BYTE( "jalcf3.bin", 0x000000, 0x020000, CRC(f031abf7) SHA1(e381742fd6a6df4ddae42ddb3a074a55dc550b3c) )
ROM_LOAD16_BYTE( "jalcf4.bin", 0x000001, 0x020000, CRC(dd0c0540) SHA1(3e788fcb30ae725bd0ec9b57424e3946db1e946f) )
ROM_REGION( 0x20000, "gfx1", 0 ) /* BG0 */
ROM_LOAD( "jalcf6.bin", 0x000000, 0x020000, CRC(442173d6) SHA1(56c02bc2761967040127977ecabe844fc45e2218) )
ROM_REGION( 0x080000, "gfx2", 0 ) /* BG1 */
ROM_LOAD( "jalcf5.bin", 0x000000, 0x080000, CRC(ff0be97f) SHA1(5ccab778318dec30849d7b7f25091d4aab8bde32) )
ROM_REGION( 0x400000, "gfx3", 0 ) /* SPR */
ROM_LOAD16_BYTE( "jalgp1.bin", 0x000000, 0x080000, CRC(c4aeeae2) SHA1(ee0d3dd93a604f8e1a96b55c4a1cd001d49f1157) )
ROM_LOAD16_BYTE( "jalgp2.bin", 0x000001, 0x080000, CRC(f0e4e80e) SHA1(08252ef8b5e309cce2d4654410142f4ae9e3ef22) )
ROM_LOAD16_BYTE( "jalgp3.bin", 0x100000, 0x080000, CRC(7acebd83) SHA1(64be95186d62003b637fcdf45a9c0b7aab182116) )
ROM_LOAD16_BYTE( "jalgp4.bin", 0x100001, 0x080000, CRC(6a6b72f3) SHA1(3ba359b1a89eb3f6664ed83d93f79d7f895d4222) )
ROM_LOAD16_BYTE( "jalgp5.bin", 0x200000, 0x080000, CRC(65ab751d) SHA1(f2cb8701eb8c3567a1d03248e6918c5a7b5df939) )
ROM_LOAD16_BYTE( "jalgp6.bin", 0x200001, 0x080000, CRC(24e3ab23) SHA1(d1431688e1518ba52935f6ab44b815975bec4c27) )
ROM_LOAD16_BYTE( "jalgp7.bin", 0x300000, 0x080000, CRC(44b71098) SHA1(a6ec2573f9a266d4f8f315f6e99b12525011f512) )
ROM_LOAD16_BYTE( "jalgp8.bin", 0x300001, 0x080000, CRC(ce0b7838) SHA1(46e34971cb62565a3948d8c0a18086648c32e13b) )
ROM_REGION( 0x100000, "oki1", 0 ) /* M6295 samples */
ROM_LOAD( "jalcf2.bin", 0x000000, 0x100000, CRC(b982fd97) SHA1(35ee5b1b9be762ccfefda24d73e329ceea876deb) )
ROM_REGION( 0x100000, "oki2", 0 ) /* M6295 samples */
ROM_LOAD( "jalcf1.bin", 0x000000, 0x100000, CRC(24af21d3) SHA1(f68ab81a6c833b57ae9eef916a1c8578f3d893dd) )
ROM_REGION( 0x100000, "user1", 0 ) /* ? these two below are identical*/
ROM_LOAD( "jalmr14.bin", 0x000000, 0x080000, CRC(9d428fb7) SHA1(02f72938d73db932bd217620a175a05215f6016a) )
ROM_LOAD( "jalmr17.bin", 0x080000, 0x080000, CRC(9d428fb7) SHA1(02f72938d73db932bd217620a175a05215f6016a) )
ROM_END
GAME( 1994, acommand, 0, acommand, acommand, 0, ROT0, "Jaleco", "Alien Command" , GAME_NOT_WORKING | GAME_MECHANICAL)