/*************************************************************************** -= American Speedway =- driver by Luca Elia (l.elia@tin.it) CPU : Z80A x 2 Sound: YM2151 (c)1987 Enerdyne Technologies, Inc. / PGD ***************************************************************************/ #include "driver.h" #include "cpu/z80/z80.h" #include "sound/2151intf.h" /* Variables & functions defined in video: */ WRITE8_HANDLER( amspdwy_videoram_w ); WRITE8_HANDLER( amspdwy_colorram_w ); WRITE8_HANDLER( amspdwy_paletteram_w ); WRITE8_HANDLER( amspdwy_flipscreen_w ); VIDEO_START( amspdwy ); VIDEO_UPDATE( amspdwy ); /*************************************************************************** Main CPU ***************************************************************************/ /* 765----- Buttons ---4---- Sgn(Wheel Delta) ----3210 Abs(Wheel Delta) Or last value when wheel delta = 0 */ static UINT8 wheel_old[2]; static UINT8 wheel_return[2]; static UINT8 amspdwy_wheel_r(running_machine *machine, int index) { static const char *const portnames[] = { "WHEEL1", "WHEEL2", "AN1", "AN2" }; UINT8 wheel; wheel = input_port_read(machine, portnames[2 + index]); if (wheel != wheel_old[index]) { wheel = (wheel & 0x7fff) - (wheel & 0x8000); if (wheel > wheel_old[index]) wheel_return[index] = ((+wheel) & 0xf) | 0x00; else wheel_return[index] = ((-wheel) & 0xf) | 0x10; wheel_old[index] = wheel; } return wheel_return[index] | input_port_read(machine, portnames[index]); } static READ8_HANDLER( amspdwy_wheel_0_r ) { return amspdwy_wheel_r(space->machine, 0); } static READ8_HANDLER( amspdwy_wheel_1_r ) { return amspdwy_wheel_r(space->machine, 0); } static READ8_DEVICE_HANDLER( amspdwy_sound_r ) { return (ym2151_status_port_r(device,0) & ~ 0x30) | input_port_read(device->machine, "IN0"); } static WRITE8_HANDLER( amspdwy_sound_w ) { soundlatch_w(space,0,data); cpu_set_input_line(space->machine->cpu[1], INPUT_LINE_NMI, PULSE_LINE); } static ADDRESS_MAP_START( amspdwy_map, ADDRESS_SPACE_PROGRAM, 8 ) AM_RANGE(0x0000, 0x7fff) AM_ROM // ROM AM_RANGE(0x8000, 0x801f) AM_WRITE(amspdwy_paletteram_w) AM_BASE(&paletteram)// Palette AM_RANGE(0x9000, 0x93ff) AM_MIRROR(0x0400) AM_RAM_WRITE(amspdwy_videoram_w) AM_BASE(&videoram) // Layer, mirrored? AM_RANGE(0x9800, 0x9bff) AM_RAM_WRITE(amspdwy_colorram_w) AM_BASE(&colorram) // Layer AM_RANGE(0x9c00, 0x9fff) AM_RAM // Unused? // AM_RANGE(0xa000, 0xa000) AM_WRITENOP // ? AM_RANGE(0xa000, 0xa000) AM_READ_PORT("DSW1") AM_RANGE(0xa400, 0xa400) AM_READ_PORT("DSW2") AM_WRITE(amspdwy_flipscreen_w) // DSW 2 + Toggle Flip Screen? AM_RANGE(0xa800, 0xa800) AM_READ(amspdwy_wheel_0_r) // Player 1 AM_RANGE(0xac00, 0xac00) AM_READ(amspdwy_wheel_1_r) // Player 2 AM_RANGE(0xb000, 0xb000) AM_WRITENOP // ? Exiting IRQ AM_RANGE(0xb400, 0xb400) AM_DEVREAD("ym", amspdwy_sound_r) AM_WRITE(amspdwy_sound_w) // YM2151 status, To Sound CPU AM_RANGE(0xc000, 0xc0ff) AM_RAM AM_BASE(&spriteram) AM_SIZE(&spriteram_size)// Sprites AM_RANGE(0xe000, 0xe7ff) AM_RAM // Work RAM ADDRESS_MAP_END static READ8_HANDLER( amspdwy_port_r ) { UINT8 *Tracks = memory_region(space->machine, "maincpu")+0x10000; return Tracks[offset]; } static ADDRESS_MAP_START( amspdwy_portmap, ADDRESS_SPACE_IO, 8 ) AM_RANGE(0x0000, 0x7fff) AM_READ(amspdwy_port_r) ADDRESS_MAP_END /*************************************************************************** Sound CPU ***************************************************************************/ static ADDRESS_MAP_START( amspdwy_sound_map, ADDRESS_SPACE_PROGRAM, 8 ) AM_RANGE(0x0000, 0x7fff) AM_ROM // ROM // AM_RANGE(0x8000, 0x8000) AM_WRITENOP // ? Written with 0 at the start AM_RANGE(0x9000, 0x9000) AM_READ(soundlatch_r) // From Main CPU AM_RANGE(0xa000, 0xa001) AM_DEVREADWRITE("ym", ym2151_r, ym2151_w) // AM_RANGE(0xc000, 0xdfff) AM_RAM // Work RAM AM_RANGE(0xffff, 0xffff) AM_READNOP // ??? IY = FFFF at the start ? ADDRESS_MAP_END /*************************************************************************** Input Ports ***************************************************************************/ static INPUT_PORTS_START( amspdwy ) PORT_START("DSW1") PORT_DIPNAME( 0x01, 0x00, "Character Test" ) PORT_DIPLOCATION("SW1:8") PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) PORT_DIPSETTING( 0x01, DEF_STR( On ) ) PORT_DIPNAME( 0x02, 0x00, "Show Arrows" ) PORT_DIPLOCATION("SW1:7") PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) PORT_DIPSETTING( 0x02, DEF_STR( On ) ) PORT_DIPNAME( 0x04, 0x04, DEF_STR( Demo_Sounds ) ) PORT_DIPLOCATION("SW1:6") PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) PORT_DIPSETTING( 0x04, DEF_STR( On ) ) PORT_SERVICE_DIPLOC( 0x08, IP_ACTIVE_HIGH, "SW1:5" ) PORT_DIPNAME( 0x10, 0x00, "Steering Test" ) PORT_DIPLOCATION("SW1:4") PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) PORT_DIPSETTING( 0x10, DEF_STR( On ) ) PORT_DIPUNUSED_DIPLOC( 0x20, 0x00, "SW1:3" ) /* Listed as "Unused" */ PORT_DIPUNUSED_DIPLOC( 0x40, 0x00, "SW1:2" ) /* Listed as "Unused" */ PORT_DIPUNUSED_DIPLOC( 0x80, 0x00, "SW1:1" ) /* Listed as "Unused" */ PORT_START("DSW2") PORT_DIPNAME( 0x03, 0x00, DEF_STR( Coinage ) ) PORT_DIPLOCATION("SW2:7,8") PORT_DIPSETTING( 0x03, DEF_STR( 2C_1C ) ) // PORT_DIPSETTING( 0x02, DEF_STR( 1C_1C ) ) PORT_DIPSETTING( 0x00, DEF_STR( 1C_1C ) ) PORT_DIPSETTING( 0x01, DEF_STR( 1C_2C ) ) PORT_DIPNAME( 0x0c, 0x00, DEF_STR( Difficulty ) ) PORT_DIPLOCATION("SW2:5,6") PORT_DIPSETTING( 0x00, DEF_STR( Easy ) ) PORT_DIPSETTING( 0x04, DEF_STR( Normal ) ) PORT_DIPSETTING( 0x08, DEF_STR( Hard ) ) PORT_DIPSETTING( 0x0c, DEF_STR( Hardest ) ) PORT_DIPNAME( 0x30, 0x00, "Time To Qualify" ) PORT_DIPLOCATION("SW2:3,4") /* code at 0x1770 */ PORT_DIPSETTING( 0x30, "20 sec" ) PORT_DIPSETTING( 0x20, "30 sec" ) PORT_DIPSETTING( 0x10, "45 sec" ) PORT_DIPSETTING( 0x00, "60 sec" ) PORT_DIPUNUSED_DIPLOC( 0x40, 0x00, "SW2:2" ) /* Listed as "Unused" */ PORT_DIPUNUSED_DIPLOC( 0x80, 0x00, "SW2:1" ) /* Listed as "Unused" */ PORT_START("WHEEL1") // Player 1 Wheel + Coins PORT_BIT( 0x1f, IP_ACTIVE_HIGH, IPT_SPECIAL ) // wheel PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_COIN1 ) PORT_IMPULSE(2) // 2-3f PORT_START("WHEEL2") // Player 2 Wheel + Coins PORT_BIT( 0x1f, IP_ACTIVE_HIGH, IPT_SPECIAL ) PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_COIN2 ) PORT_IMPULSE(2) PORT_START("IN0") // Player 1&2 Pedals + YM2151 Sound Status PORT_BIT( 0x0f, IP_ACTIVE_HIGH, IPT_SPECIAL ) PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_PLAYER(2) PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_PLAYER(1) PORT_BIT( 0xc0, IP_ACTIVE_HIGH, IPT_SPECIAL ) PORT_START("AN1") // Player 1 Analog Fake Port PORT_BIT( 0xffff, 0x0000, IPT_DIAL ) PORT_SENSITIVITY(15) PORT_KEYDELTA(20) PORT_CODE_DEC(KEYCODE_LEFT) PORT_CODE_INC(KEYCODE_RIGHT) PORT_PLAYER(1) PORT_START("AN2") // Player 2 Analog Fake Port PORT_BIT( 0xffff, 0x0000, IPT_DIAL ) PORT_SENSITIVITY(15) PORT_KEYDELTA(20) PORT_CODE_DEC(KEYCODE_D) PORT_CODE_INC(KEYCODE_G) PORT_PLAYER(2) INPUT_PORTS_END static INPUT_PORTS_START( amspdwya ) PORT_INCLUDE(amspdwy) PORT_MODIFY("DSW2") PORT_DIPNAME( 0x10, 0x00, "Time To Qualify" ) PORT_DIPLOCATION("SW2:4") /* code at 0x2696 */ PORT_DIPSETTING( 0x10, "45 sec" ) PORT_DIPSETTING( 0x00, "60 sec" ) PORT_DIPUNUSED_DIPLOC( 0x20, 0x00, "SW2:3" ) /* Listed as "Unused" */ INPUT_PORTS_END /*************************************************************************** Graphics Layouts ***************************************************************************/ static const gfx_layout layout_8x8x2 = { 8,8, RGN_FRAC(1,2), 2, { RGN_FRAC(0,2), RGN_FRAC(1,2) }, { STEP8(0,1) }, { STEP8(0,8) }, 8*8 }; static GFXDECODE_START( amspdwy ) GFXDECODE_ENTRY( "gfx1", 0, layout_8x8x2, 0, 8 ) // [0] Layer & Sprites GFXDECODE_END /*************************************************************************** Machine Drivers ***************************************************************************/ static void irq_handler(const device_config *device, int irq) { cpu_set_input_line(device->machine->cpu[1],0,irq ? ASSERT_LINE : CLEAR_LINE); } static const ym2151_interface amspdwy_ym2151_interface = { irq_handler }; static MACHINE_START( amspdwy ) { wheel_old[0] = wheel_old[1] = 0; wheel_return[0] = wheel_return[1] = 0; state_save_register_global_array(machine, wheel_old); state_save_register_global_array(machine, wheel_return); } static MACHINE_DRIVER_START( amspdwy ) /* basic machine hardware */ MDRV_CPU_ADD("maincpu", Z80,3000000) MDRV_CPU_PROGRAM_MAP(amspdwy_map,0) MDRV_CPU_IO_MAP(amspdwy_portmap,0) MDRV_CPU_VBLANK_INT("screen", irq0_line_hold) /* IRQ: 60Hz, NMI: retn */ MDRV_CPU_ADD("audiocpu", Z80,3000000) /* Can't be disabled: the YM2151 timers must work */ MDRV_CPU_PROGRAM_MAP(amspdwy_sound_map,0) MDRV_MACHINE_START(amspdwy) /* video hardware */ MDRV_SCREEN_ADD("screen", RASTER) MDRV_SCREEN_REFRESH_RATE(60) MDRV_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(0)) MDRV_SCREEN_FORMAT(BITMAP_FORMAT_INDEXED16) MDRV_SCREEN_SIZE(256, 256) MDRV_SCREEN_VISIBLE_AREA(0, 256-1, 0+16, 256-16-1) MDRV_GFXDECODE(amspdwy) MDRV_PALETTE_LENGTH(32) MDRV_VIDEO_START(amspdwy) MDRV_VIDEO_UPDATE(amspdwy) /* sound hardware */ MDRV_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker") MDRV_SOUND_ADD("ym", YM2151, 3000000) MDRV_SOUND_CONFIG(amspdwy_ym2151_interface) MDRV_SOUND_ROUTE(0, "lspeaker", 1.0) MDRV_SOUND_ROUTE(1, "rspeaker", 1.0) MACHINE_DRIVER_END /*************************************************************************** ROMs Loading ***************************************************************************/ /*************************************************************************** American Speedway USES TWO Z80 CPU'S W/YM2151 SOUND THE NUMBERS WITH THE NAMES ARE PROBABLY CHECKSUMS NAME LOCATION TYPE ------------------------ AUDI9363 U2 27256 CONN BD GAME5807 U33 " " TRKS6092 U34 " " HIHIE12A 4A 2732 REAR BD HILO9B3C 5A " " LOHI4644 2A " " LOLO1D51 1A " " American Speedway (Set 2) 1987 Enerdyne Technologies, Inc. Has Rev 4 PGD written on the top board. Processors ------------------ Dual Z80As YM2151 (sound) RAM ------------------ 12 2114 5 82S16N Eproms ================== Name Loc TYpe Checksum ---------- ---- ----- -------- Game.u22 U33 27256 A222 Tracks.u34 U34 27256 6092 Audio.U02 U2 27256 9363 LOLO1.1A 1A 2732 1D51 LOHI.2A 2A 2732 4644 HIHI.4A 3/4A 2732 E12A HILO.5A 5A 2732 9B3C ***************************************************************************/ ROM_START( amspdwy ) ROM_REGION( 0x18000, "maincpu", 0 ) /* Main Z80 Code */ ROM_LOAD( "game5807.u33", 0x00000, 0x8000, CRC(88233b59) SHA1(bfdf10dde1731cde5c579a9a5173cafe9295a80c) ) ROM_LOAD( "trks6092.u34", 0x10000, 0x8000, CRC(74a4e7b7) SHA1(b4f6e3faaf048351c6671205f52378a64b81bcb1) ) ROM_REGION( 0x10000, "audiocpu", 0 ) /* Sound Z80 Code */ ROM_LOAD( "audi9463.u2", 0x00000, 0x8000, CRC(61b0467e) SHA1(74509e7712838dd760919893aeda9241d308d0c3) ) ROM_REGION( 0x4000, "gfx1", ROMREGION_DISPOSE ) /* Layer + Sprites */ ROM_LOAD( "hilo9b3c.5a", 0x0000, 0x1000, CRC(f50f864c) SHA1(5b2412c1558b30a04523fcdf1d5cf6fdae1ba88d) ) ROM_LOAD( "hihie12a.4a", 0x1000, 0x1000, CRC(3d7497f3) SHA1(34820ba42d9c9dab1d6fdda15795450ce08392c1) ) ROM_LOAD( "lolo1d51.1a", 0x2000, 0x1000, CRC(58701c1c) SHA1(67b476e697652a6b684bd76ae6c0078ed4b3e3a2) ) ROM_LOAD( "lohi4644.2a", 0x3000, 0x1000, CRC(a1d802b1) SHA1(1249ce406b1aa518885a02ab063fa14906ccec2e) ) ROM_END ROM_START( amspdwya ) ROM_REGION( 0x18000, "maincpu", 0 ) /* Main Z80 Code */ ROM_LOAD( "game.u33", 0x00000, 0x8000, CRC(facab102) SHA1(e232969eaaad8b89ac8e28ee0a7996107a7de9a2) ) ROM_LOAD( "trks6092.u34", 0x10000, 0x8000, CRC(74a4e7b7) SHA1(b4f6e3faaf048351c6671205f52378a64b81bcb1) ) ROM_REGION( 0x10000, "audiocpu", 0 ) /* Sound Z80 Code */ ROM_LOAD( "audi9463.u2", 0x00000, 0x8000, CRC(61b0467e) SHA1(74509e7712838dd760919893aeda9241d308d0c3) ) ROM_REGION( 0x4000, "gfx1", ROMREGION_DISPOSE ) /* Layer + Sprites */ ROM_LOAD( "hilo9b3c.5a", 0x0000, 0x1000, CRC(f50f864c) SHA1(5b2412c1558b30a04523fcdf1d5cf6fdae1ba88d) ) ROM_LOAD( "hihie12a.4a", 0x1000, 0x1000, CRC(3d7497f3) SHA1(34820ba42d9c9dab1d6fdda15795450ce08392c1) ) ROM_LOAD( "lolo1d51.1a", 0x2000, 0x1000, CRC(58701c1c) SHA1(67b476e697652a6b684bd76ae6c0078ed4b3e3a2) ) ROM_LOAD( "lohi4644.2a", 0x3000, 0x1000, CRC(a1d802b1) SHA1(1249ce406b1aa518885a02ab063fa14906ccec2e) ) ROM_END /* (C) 1987 ETI 8402 MAGNOLIA ST. #C SANTEE, CA 92071 */ GAME( 1987, amspdwy, 0, amspdwy, amspdwy, 0, ROT0, "Enerdyne Technologies, Inc.", "American Speedway (set 1)", GAME_SUPPORTS_SAVE ) GAME( 1987, amspdwya, amspdwy, amspdwy, amspdwya, 0, ROT0, "Enerdyne Technologies, Inc.", "American Speedway (set 2)", GAME_SUPPORTS_SAVE )