trunk/src/mess/drivers/tandy12.c
| r0 | r242378 | |
|---|
| 1 | // license:BSD-3-Clause |
| 2 | // copyright-holders:hap |
| 3 | /*************************************************************************** |
| 4 | |
| 5 | Tandy Radio Shack Tandy-12 - Computerized Arcade |
| 6 | * TMS1100 CD7282SL |
| 7 | |
| 8 | This tabletop game looks and plays like "Fabulous Fred" by the Japanese |
| 9 | company Mego Corp. in 1980, which in turn is a mix of Merlin and Simon. |
| 10 | Unlike Merlin and Simon, these spin-offs were not successful. |
| 11 | |
| 12 | ***************************************************************************/ |
| 13 | |
| 14 | #include "emu.h" |
| 15 | #include "cpu/tms0980/tms0980.h" |
| 16 | #include "sound/speaker.h" |
| 17 | |
| 18 | #include "tandy12.lh" // clickable |
| 19 | |
| 20 | // master clock is a single stage RC oscillator: R=39K, C=47pf, |
| 21 | // according to the TMS 1000 series data manual this is around 400kHz |
| 22 | #define MASTER_CLOCK (400000) |
| 23 | |
| 24 | |
| 25 | class tandy12_state : public driver_device |
| 26 | { |
| 27 | public: |
| 28 | tandy12_state(const machine_config &mconfig, device_type type, const char *tag) |
| 29 | : driver_device(mconfig, type, tag), |
| 30 | m_maincpu(*this, "maincpu"), |
| 31 | m_speaker(*this, "speaker") |
| 32 | { } |
| 33 | |
| 34 | required_device<tms1xxx_cpu_device> m_maincpu; |
| 35 | required_device<speaker_sound_device> m_speaker; |
| 36 | |
| 37 | UINT16 m_o; |
| 38 | UINT16 m_r; |
| 39 | |
| 40 | DECLARE_READ8_MEMBER(read_k); |
| 41 | DECLARE_WRITE16_MEMBER(write_o); |
| 42 | DECLARE_WRITE16_MEMBER(write_r); |
| 43 | |
| 44 | virtual void machine_start(); |
| 45 | }; |
| 46 | |
| 47 | |
| 48 | /*************************************************************************** |
| 49 | |
| 50 | I/O |
| 51 | |
| 52 | ***************************************************************************/ |
| 53 | |
| 54 | READ8_MEMBER(tandy12_state::read_k) |
| 55 | { |
| 56 | return 0; |
| 57 | } |
| 58 | |
| 59 | WRITE16_MEMBER(tandy12_state::write_o) |
| 60 | { |
| 61 | m_o = data; |
| 62 | } |
| 63 | |
| 64 | WRITE16_MEMBER(tandy12_state::write_r) |
| 65 | { |
| 66 | // R10: speaker out |
| 67 | m_speaker->level_w(data >> 10 & 1); |
| 68 | |
| 69 | m_r = data; |
| 70 | } |
| 71 | |
| 72 | |
| 73 | |
| 74 | /*************************************************************************** |
| 75 | |
| 76 | Inputs |
| 77 | |
| 78 | ***************************************************************************/ |
| 79 | |
| 80 | static INPUT_PORTS_START( tandy12 ) |
| 81 | INPUT_PORTS_END |
| 82 | |
| 83 | |
| 84 | |
| 85 | /*************************************************************************** |
| 86 | |
| 87 | Machine Config |
| 88 | |
| 89 | ***************************************************************************/ |
| 90 | |
| 91 | void tandy12_state::machine_start() |
| 92 | { |
| 93 | m_o = 0; |
| 94 | m_r = 0; |
| 95 | |
| 96 | save_item(NAME(m_o)); |
| 97 | save_item(NAME(m_r)); |
| 98 | } |
| 99 | |
| 100 | |
| 101 | static const UINT16 tandy12_output_pla[0x20] = |
| 102 | { |
| 103 | /* O output PLA configuration currently unknown */ |
| 104 | 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, |
| 105 | 0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, |
| 106 | 0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, |
| 107 | 0x18, 0x19, 0x1a, 0x1b, 0x1c, 0x1d, 0x1e, 0x1f |
| 108 | }; |
| 109 | |
| 110 | |
| 111 | static MACHINE_CONFIG_START( tandy12, tandy12_state ) |
| 112 | |
| 113 | /* basic machine hardware */ |
| 114 | MCFG_CPU_ADD("maincpu", TMS1100, MASTER_CLOCK) |
| 115 | MCFG_TMS1XXX_OUTPUT_PLA(tandy12_output_pla) |
| 116 | MCFG_TMS1XXX_READ_K_CB(READ8(tandy12_state, read_k)) |
| 117 | MCFG_TMS1XXX_WRITE_O_CB(WRITE16(tandy12_state, write_o)) |
| 118 | MCFG_TMS1XXX_WRITE_R_CB(WRITE16(tandy12_state, write_r)) |
| 119 | |
| 120 | MCFG_DEFAULT_LAYOUT(layout_tandy12) |
| 121 | |
| 122 | /* no video! */ |
| 123 | |
| 124 | /* sound hardware */ |
| 125 | MCFG_SPEAKER_STANDARD_MONO("mono") |
| 126 | MCFG_SOUND_ADD("speaker", SPEAKER_SOUND, 0) |
| 127 | MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) |
| 128 | MACHINE_CONFIG_END |
| 129 | |
| 130 | |
| 131 | |
| 132 | /*************************************************************************** |
| 133 | |
| 134 | Game driver(s) |
| 135 | |
| 136 | ***************************************************************************/ |
| 137 | |
| 138 | ROM_START( tandy12 ) |
| 139 | ROM_REGION( 0x800, "maincpu", 0 ) |
| 140 | ROM_LOAD( "cd7282sl", 0x0000, 0x800, CRC(a10013dd) SHA1(42ebd3de3449f371b99937f9df39c240d15ac686) ) |
| 141 | |
| 142 | ROM_REGION( 867, "maincpu:mpla", 0 ) |
| 143 | ROM_LOAD( "tms1100_default_mpla.pla", 0, 867, BAD_DUMP CRC(62445fc9) SHA1(d6297f2a4bc7a870b76cc498d19dbb0ce7d69fec) ) // not verified |
| 144 | ROM_REGION( 365, "maincpu:opla", 0 ) |
| 145 | ROM_LOAD( "tms1100_tandy12_opla.pla", 0, 365, NO_DUMP ) |
| 146 | ROM_END |
| 147 | |
| 148 | |
| 149 | CONS( 1981, tandy12, 0, 0, tandy12, tandy12, driver_device, 0, "Tandy Radio Shack", "Tandy-12 - Computerized Arcade", GAME_SUPPORTS_SAVE | GAME_NOT_WORKING ) |
trunk/src/mess/mess.mak
| r242377 | r242378 | |
|---|
| 1773 | 1773 | $(MESS_DRIVERS)/pasopia7.o \ |
| 1774 | 1774 | $(MESS_DRIVERS)/paso1600.o \ |
| 1775 | 1775 | |
| 1776 | | $(MESSOBJ)/trainer.a: \ |
| 1776 | $(MESSOBJ)/trainer.a: \ |
| 1777 | 1777 | $(MESS_DRIVERS)/amico2k.o \ |
| 1778 | 1778 | $(MESS_DRIVERS)/babbage.o \ |
| 1779 | 1779 | $(MESS_DRIVERS)/bob85.o \ |
| r242377 | r242378 | |
|---|
| 1799 | 1799 | $(MESS_MACHINE)/dragon.o \ |
| 1800 | 1800 | $(MESS_MACHINE)/dgnalpha.o \ |
| 1801 | 1801 | $(MESS_VIDEO)/gime.o \ |
| 1802 | $(MESS_DRIVERS)/tandy12.o \ |
| 1802 | 1803 | $(MESS_DRIVERS)/trs80.o $(MESS_MACHINE)/trs80.o $(MESS_VIDEO)/trs80.o \ |
| 1803 | 1804 | $(MESS_DRIVERS)/trs80m2.o $(MESS_MACHINE)/trs80m2kb.o \ |
| 1804 | 1805 | $(MESS_DRIVERS)/tandy2k.o $(MESS_MACHINE)/tandy2kb.o \ |
| 1805 | 1806 | |
| 1806 | | $(MESSOBJ)/ultratec.a: \ |
| 1807 | $(MESSOBJ)/ultratec.a: \ |
| 1807 | 1808 | $(MESS_DRIVERS)/minicom.o \ |
| 1808 | 1809 | |
| 1809 | 1810 | $(MESSOBJ)/unisys.a: \ |
| r242377 | r242378 | |
|---|
| 1856 | 1857 | $(MESS_DRIVERS)/bigbord2.o \ |
| 1857 | 1858 | $(MESS_DRIVERS)/alto2.o \ |
| 1858 | 1859 | |
| 1859 | | $(MESSOBJ)/xussrpc.a: \ |
| 1860 | $(MESSOBJ)/xussrpc.a: \ |
| 1860 | 1861 | $(MESS_DRIVERS)/ec184x.o \ |
| 1861 | 1862 | $(MESS_DRIVERS)/iskr103x.o \ |
| 1862 | 1863 | $(MESS_DRIVERS)/mc1502.o \ |
| r242377 | r242378 | |
|---|
| 2166 | 2167 | $(MESS_DRIVERS)/svision.o: $(MESS_LAYOUT)/svision.lh |
| 2167 | 2168 | $(MESS_DRIVERS)/svmu.o: $(MESS_LAYOUT)/svmu.lh |
| 2168 | 2169 | $(MESS_DRIVERS)/sym1.o: $(MESS_LAYOUT)/sym1.lh |
| 2170 | $(MESS_DRIVERS)/tandy12.o: $(MESS_LAYOUT)/tandy12.lh |
| 2169 | 2171 | $(MESS_DRIVERS)/tavernie.o: $(MESS_LAYOUT)/tavernie.lh |
| 2170 | 2172 | $(MESS_DRIVERS)/tec1.o: $(MESS_LAYOUT)/tec1.lh |
| 2171 | 2173 | $(MESS_DRIVERS)/tecnbras.o: $(MESS_LAYOUT)/tecnbras.lh |