diff options
Diffstat (limited to 'src/mame/drivers/tk2000.cpp')
-rw-r--r-- | src/mame/drivers/tk2000.cpp | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/src/mame/drivers/tk2000.cpp b/src/mame/drivers/tk2000.cpp index e480687ab15..dd44c72a319 100644 --- a/src/mame/drivers/tk2000.cpp +++ b/src/mame/drivers/tk2000.cpp @@ -566,27 +566,28 @@ static INPUT_PORTS_START( tk2000 ) PORT_CONFSETTING(0x03, "Amber") INPUT_PORTS_END -MACHINE_CONFIG_START(tk2000_state::tk2000) +void tk2000_state::tk2000(machine_config &config) +{ /* basic machine hardware */ - MCFG_DEVICE_ADD(A2_CPU_TAG, M6502, 1021800) /* close to actual CPU frequency of 1.020484 MHz */ - MCFG_DEVICE_PROGRAM_MAP(apple2_map) + M6502(config, m_maincpu, 1021800); /* close to actual CPU frequency of 1.020484 MHz */ + m_maincpu->set_addrmap(AS_PROGRAM, &tk2000_state::apple2_map); + TIMER(config, "scantimer").configure_scanline(FUNC(tk2000_state::apple2_interrupt), "screen", 0, 1); config.m_minimum_quantum = attotime::from_hz(60); APPLE2_VIDEO(config, m_video, XTAL(14'318'181)); - MCFG_SCREEN_ADD("screen", RASTER) - MCFG_SCREEN_REFRESH_RATE(60) - MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */ - MCFG_SCREEN_SIZE(280*2, 262) - MCFG_SCREEN_VISIBLE_AREA(0, (280*2)-1,0,192-1) - MCFG_SCREEN_UPDATE_DRIVER(tk2000_state, screen_update) - MCFG_SCREEN_PALETTE(m_video) + SCREEN(config, m_screen, SCREEN_TYPE_RASTER); + m_screen->set_refresh_hz(60); + m_screen->set_vblank_time(ATTOSECONDS_IN_USEC(2500)); /* not accurate */ + m_screen->set_size(280*2, 262); + m_screen->set_visarea(0, (280*2)-1,0,192-1); + m_screen->set_screen_update(FUNC(tk2000_state::screen_update)); + m_screen->set_palette(m_video); /* sound hardware */ SPEAKER(config, "mono").front_center(); - MCFG_DEVICE_ADD(A2_SPEAKER_TAG, SPEAKER_SOUND) - MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 1.00) + SPEAKER_SOUND(config, m_speaker).add_route(ALL_OUTPUTS, "mono", 1.00); /* /INH banking */ ADDRESS_MAP_BANK(config, A2_UPPERBANK_TAG).set_map(&tk2000_state::inhbank_map).set_options(ENDIANNESS_LITTLE, 8, 32, 0x4000); @@ -595,7 +596,7 @@ MACHINE_CONFIG_START(tk2000_state::tk2000) CASSETTE(config, m_cassette); m_cassette->set_default_state(CASSETTE_STOPPED); -MACHINE_CONFIG_END +} /*************************************************************************** |