trunk/src/mame/drivers/didact.cpp
| r252953 | r252954 | |
| 1 | 1 | // license:BSD-3-Clause |
| 2 | 2 | // copyright-holders:Joakim Larsson Edstrom |
| 3 | 3 | /* |
| 4 | * The Didact Esselte 100 CPU board |
| 4 | 5 | *__________________________________________________________________________________________________________ |
| 5 | | * The Didact Esselte 100 CPU board | |
| 6 | * | |
| 6 | 7 | *__________________________________________________________________________________________________________| |
| 7 | 8 | * |
| 8 | | * ___________________________________________________________________________________________________________ _____________________________________________________ |
| 9 | | * | The Didact Mp68A CPU board, by Anders Andersson 1979 | |The Didact Mp68A keypad/display PB6 +oooo+ | |
| 10 | | * | +------+ +-------+ +--+ | | by Anders Andersson 1979 +-------+ |cass| | |
| 11 | | * | | 7402 | | 74490 | | | +-------+ +--+ | | +--+ | 9368 | +----+ +--+| |
| 12 | | * | +-------+ +------+ +-------+ | | | | | | | |+-------+ 2x5082-|B | +-------+ | || |
| 13 | | * | | | 2112 2112 | | | EXP | | | | || 74132 | 7433|CD| 145 PA0-PA3 |E || |
| 14 | | * | | ROM | +--+ +--+ +--+ | ANS | |P | | |+-------+ |DI| +--+ 132 |X || |
| 15 | | * | | 7641 | | | | | | ION | |I | | |+------+------+ | S| | | +--+ |P || |
| 16 | | * | | | |A | |B | +-----+ | BUSES | |A | | || |SHIFT | | P| | | PA4-PA6 | | |A || |
| 17 | | * | | 512x8 | | | | | | | | (2 x) | | | | || RES |(led) | +--+ | | | | |N || |
| 18 | | * | | | +--+ +--+ | | | FOR | |A | | || | * | +--+ | | |S || |
| 19 | | * | +-------+ RAMS 4x256x4 | | | | | | | |+------+------+------+------+ +--+ |I || |
| 20 | | * | ROMS 2x512x8 2112 2112 | | | KEY | |E | | || | | | | |O || |
| 21 | | * | +-------+ +--+ +--+ |CPU | | BOARD | +------+ |X | | || ADR | RUN | SST | REG | |N || |
| 22 | | * | | | | | | | |6800 | | | | | |P | | || 0 | 4 | 8 | C | | || |
| 23 | | * | | ROM | |A | |B | | | | AND | | | |A | | |+------+------+------+------+ |C || |
| 24 | | * | | 7641 | | | | | | | | | | | |N | | || | | | | |O || |
| 25 | | * | | | +--+ +--+ | | | I/O | | 6820 | |S | | || STA | STO | BPR | BPS | |N || |
| 26 | | * | | 512x8 | 512 bytes RAM | | | BOARDS| | PIA | |I | | || 1 | 5 | 9 | D | |N || |
| 27 | | * | +-------+ | | | | | #1 | |O | +-----+ |+------+------+------+------+ +------+ |E || |
| 28 | | * | 1024 bytes ROM | | | | | | |N | | | || | | | | | | |C || |
| 29 | | * | +-----+ | | | | | | PIA A | | || EXF | EXB | MOV | PRM | | | |T || |
| 30 | | * | 7402 7412 | | | | |B | EXPANSION| | || 2 | 6 | A | E | | | |O || |
| 31 | | * | +--+ +--+ | | | | |U | CONNECTOR| | |+------+------+------+------+ | 6820 | |R || |
| 32 | | * | | | | | | | | | |S | | _| || | | | | | PIA | | || |
| 33 | | * | | | | | | | | | | | J4 | | || CLR | REL | REC | PLA | | #2 | | || |
| 34 | | * | | | | | | | +------+ | | | |_ || 3 | 7 | B | F | | | | || |
| 35 | | * | +--+ +--+ +--------+ | | | | | | |+------+------+------+------+ | | | || |
| 36 | | * | +-+ | 96LS02 | | | | | | | | +-------+ +-------+ +------+ | | | || |
| 37 | | * | R * * * R |T| +--------+ | | | | | | | | 74148 | | 74148 | | 7400 | | | | || |
| 38 | | * | O X A |R| | | | | | | | +-------+ +-------+ +------+ | | +--+| |
| 39 | | * | M * * * M |M| Oscillator circuits +-------+ +--+ | | | PB3 PB0-PB2 | | | |
| 40 | | * | |_| J1 J2 J3 +-----+ | +---------+ +------+ J1 | |
| 41 | | * |____________________________________________________________________________________________________________| |______ | _|||_ |___________________________________| |
| 9 | * The Didact Mikrodator 6802 CPU board by lars Björklund 1983 |
| 10 | *__________________________________________________________________________________________________________ |
| 11 | * | |
| 12 | *__________________________________________________________________________________________________________| |
| 42 | 13 | * |
| 43 | | * _____________________________________________________________________________________________ ___________________________________________________________________________ |
| 44 | | * |The Didact Mikrodator 6802 CPU board by Lars Björklund 1983 ( ) | |The Didact Mikrodator 6802 TB16 board by Lars Björklund 1983 | |
| 45 | | * | +----= | | +-|||||||-+ ______ | |
| 46 | | * | | = | | CA2 Tx |terminal | | () | | |
| 47 | | * | | = | | PA7 Rx +---------+ +----------+ C1nF,<=R18k| | | |
| 48 | | * | Photo of CPU board mainly covered by TB16 Keypad/Display board +--- = | | CA1 DTR +-----------+ | | CB2->CB1 | E | | |
| 49 | | * | | | PA4-PA6 | | 1 | BCD | +----+ | X | | |
| 50 | | * | | | ------->| 74LS145 | | digit 5 | |LS | | P | | |
| 51 | | * | | | +-----------+ |----------| | 122| | A | | |
| 52 | | * | +-----=| | | | | | | | N | | |
| 53 | | * | +-------+ | =| |------ +--------+ | 2 | BCD | | | | S | | |
| 54 | | * | | | | =| | RES* | SHIFT | LED( ) | | digit 4 | | | | I | | |
| 55 | | * | | | | =| | | '*' | CA2 v |----------| +----+ | O | | |
| 56 | | * | | 6821 | | =| | PA3 |PA7 PA2 | PA1 PA0 | | +----| N | | |
| 57 | | * | | PIA | | =| |----|--+-----|--+--|-----+--|---+ 3 | | PB0-|LS | | | |
| 58 | | * | | | | =| | v | v | v | v | | BCD | PB7| 244| C | | |
| 59 | | * | | | | =| | ADR | RUN | SST | CON | 1 | digit 3 | --->| | O | | |
| 60 | | * | | | | =| | 0 | 4 | 8 | C | |----------| | | N | | |
| 61 | | * | | | | =| |-------+--------+--------+------+ | |<-------| | N | | |
| 62 | | * | | | | =| | | | | | 4 | | +----| E | | |
| 63 | | * | | | | =| | STA | BPS | USERV | | 2 | BCD | | C | | |
| 64 | | * | | | | =| | 1 | 5 | 9 | D | | digit 2 | | T | | |
| 65 | | * | | | | =| |-------+--------+--------+------+ |----------| | O | | |
| 66 | | * | | | | =| | | | | | | | | R | | |
| 67 | | * | | | | =| | EXF | EXB | MOV | LOAD | 3 5 | BCD | | | | |
| 68 | | * | | | | =| | 2 | 6 | A | E | | digit 1 | | | | |
| 69 | | * | +-------+ | =| |-------+--------+--------+------+ |----------| | | | |
| 70 | | * | | =| | | | | | | | | | | |
| 71 | | * | +-----=| | CLR | SP | USERJ | FLAG | 4 6 | BCD | | | | |
| 72 | | * | | | 3 | 7 | B | F | | digit 0 | | () | | |
| 73 | | * | | |-------+--------+--------+------+ +----------+ +------+ | |
| 74 | | * | | | | |
| 75 | | * | | | | |
| 76 | | * |____________________________________________________________________________________________| |___________________________________________________________________________| |
| 14 | * The Didact Mp68A CPU board, by Anders Andersson 1979 |
| 15 | *__________________________________________________________________________________________________________ |
| 16 | * 74138 | |
| 17 | * +------+ +-------+ +--+ | |
| 18 | * | 7402 | | 74490 | | | +-------+ +--+ | |
| 19 | * +-------+ +------+ +-------+ | | | | | | | |
| 20 | * | | 2112 2112 | | | EXP | | | | |
| 21 | * | ROM | +--+ +--+ +--+ | ANS | |P | | |
| 22 | * | 7641 | | | | | | ION | |I | | |
| 23 | * | | |A | |B | +-----+ | BUSES | |A | | |
| 24 | * | 512x8 | | | | | | | | (2 x) | | | | |
| 25 | * | | +--+ +--+ | | | FOR | |A | | |
| 26 | * +-------+ RAMS 4x256x4 | | | | | | | |
| 27 | * ROMS 2x512x8 2112 2112 | | | KEY | |E | | |
| 28 | * +-------+ +--+ +--+ |CPU | | BOARD | +------+ |X | | |
| 29 | * | | | | | | |6800 | | | | | |P | | |
| 30 | * | ROM | |A | |B | | | | AND | | | |A | | |
| 31 | * | 7641 | | | | | | | | | | | |N | | |
| 32 | * | | +--+ +--+ | | | I/O | | 6820 | |S | | |
| 33 | * | 512x8 | 512 bytes RAM | | | BOARDS| | PIA | |I | | |
| 34 | * +-------+ | | | | | #1 | |O | +-----+ |
| 35 | * 1024 bytes ROM | | | | | | |N | | | |
| 36 | * +-----+ | | | | | | PIA A | | |
| 37 | * 7402 7412 | | | | |B | EXPANSION| | |
| 38 | * +--+ +--+ | | | | |U | CONNECTOR| | |
| 39 | * | | | | | | | | |S | | _| |
| 40 | * | | | | | | | | | | J4 | | |
| 41 | * | | | | | | +------+ | | | |_ |
| 42 | * +--+ +--+ +--------+ | | | | | | |
| 43 | * +-+ | 96LS02 | | | | | | | |
| 44 | * R * * * R |T| +--------+ | | | | | | |
| 45 | * O X A |R| | | | | | | |
| 46 | * M * * * M |M| Oscillator circuits +-------+ +--+ | | |
| 47 | * |_| J1 J2 J3 +-----+ |
| 48 | *__________________________________________________________________________________________________________| |
| 77 | 49 | * |
| 50 | * The Didact Mp68A Keypad and Display board, tb16a, Anders Andersson 1979 |
| 51 | *______________________________________________________ |
| 52 | * +oooo+ | |
| 53 | * 6064 +-------+ |cass| | |
| 54 | * +--+ | 9368 | +----+ +--+| |
| 55 | * +-------+ |B | +-------+ | || |
| 56 | * | 74132 | |CD| 145 |E || |
| 57 | * +-------+ |DI| +--+ 132 |X || |
| 58 | * +------+------+ | S| | | +--+ |P || |
| 59 | * | | | | P| | | | | |A || |
| 60 | * | RES |(led) | +--+ | | | | |N || |
| 61 | * | | * | +--+ | | |S || |
| 62 | * +------+------+------+------+ +--+ |I || |
| 63 | * | | | | | |O || |
| 64 | * | ADR | RUN | SST | REG | |N || |
| 65 | * | 0 | 4 | 8 | C | | || |
| 66 | * +------+------+------+------+ |C || |
| 67 | * | | | | | |O || |
| 68 | * | STA | STO | BPR | BPS | |N || |
| 69 | * | 1 | 5 | 9 | D | |N || |
| 70 | * +------+------+------+------+ +------+ |E || |
| 71 | * | | | | | | | |C || |
| 72 | * | EXF | EXB | MOV | PRM | | | |T || |
| 73 | * | 2 | 6 | A | E | | | |O || |
| 74 | * +------+------+------+------+ | 6820 | |R || |
| 75 | * | | | | | | PIA | | || |
| 76 | * | CLR | REL | REC | PLA | | #2 | | || |
| 77 | * | 3 | 7 | B | F | | | | || |
| 78 | * +------+------+------+------+ | | | || |
| 79 | * +-------+ +-------+ +------+ | | | || |
| 80 | * | 74148 | | 74148 | | 7400 | | | | || |
| 81 | * +-------+ +-------+ +------+ | | +--+| |
| 82 | * | | | |
| 83 | * +---------+ +------+ J1 | |
| 84 | *________| ___ |___________________________________| |
| 85 | * | _|||_ | |
| 86 | * /|_| |_|\ |
| 87 | * |
| 88 | * |
| 78 | 89 | * History of Didact |
| 79 | 90 | *------------------ |
| 80 | 91 | * Didact Läromedelsproduktion was started in Linköping in Sweden by Anders Andersson, Arne Kullbjer and |
| r252953 | r252954 | |
| 87 | 98 | * |
| 88 | 99 | * Misc links about the boards supported by this driver. |
| 89 | 100 | *----------------------------------------------------- |
| 90 | | * http://elektronikforumet.com/forum/viewtopic.php?f=11&t=51424 |
| 101 | * http://www.elektronikforumet.com/forum/viewtopic.php?f=11&t=51424 |
| 91 | 102 | * http://kilroy71.fastmail.fm/gallery/Miscellaneous/20120729_019.jpg |
| 92 | 103 | * http://elektronikforumet.com/forum/download/file.php?id=63988&mode=view |
| 93 | 104 | * http://elektronikforumet.com/forum/viewtopic.php?f=2&t=79576&start=150#p1203915 |
| 94 | 105 | * |
| 95 | | * TODO: |
| 96 | | * Didact designs: mp68a, md6802, md6802v3, Esselte 100, Candela |
| 106 | * TODO: |
| 107 | * Didact designs: mp68a, md6802, Esselte 100, Candela |
| 97 | 108 | * -------------------------------------------------------------------------- |
| 98 | | * - Add PCB layouts OK OK |
| 109 | * - Add PCB layouts OK |
| 99 | 110 | * - Dump ROM:s, OK OK |
| 100 | | * - Keyboard OK OK |
| 101 | | * - Display/CRT OK OK |
| 102 | | * - Clickable Artwork RQ RQ |
| 103 | | * - Sound NA NA |
| 111 | * - Keyboard OK |
| 112 | * - Display/CRT OK |
| 113 | * - Clickable Artwork RQ |
| 114 | * - Sound NA |
| 104 | 115 | * - Cassette i/f |
| 105 | 116 | * - Expansion bus |
| 106 | 117 | * - Expansion overlay |
| 107 | 118 | * |
| 108 | | * - The md6802 has a strange delay in keyboard input that needs to be investigated |
| 109 | | * |
| 110 | 119 | ****************************************************************************/ |
| 111 | 120 | |
| 112 | 121 | #include "emu.h" |
| 113 | 122 | #include "cpu/m6800/m6800.h" |
| 114 | 123 | #include "machine/6821pia.h" // For all boards |
| 115 | 124 | #include "video/dm9368.h" // For the mp68a |
| 116 | | #include "machine/74145.h" // For the md6802 |
| 117 | | // Generated artwork includes |
| 118 | | #include "mp68a.lh" |
| 119 | | #include "md6802.lh" |
| 120 | 125 | |
| 121 | 126 | #define VERBOSE 0 |
| 122 | 127 | |
| 123 | 128 | #define LOG(x) do { if (VERBOSE) logerror x; } while (0) |
| 124 | | #if VERBOSE >= 2 |
| 129 | #if VERBOSE == 2 |
| 125 | 130 | #define logerror printf |
| 126 | 131 | #endif |
| 127 | 132 | |
| r252953 | r252954 | |
| 131 | 136 | #define FUNCNAME __PRETTY_FUNCTION__ |
| 132 | 137 | #endif |
| 133 | 138 | |
| 134 | | /* Didact base class */ |
| 135 | | class didact_state : public driver_device |
| 136 | | { |
| 137 | | public: |
| 138 | | didact_state(const machine_config &mconfig, device_type type, const char * tag) |
| 139 | | : driver_device(mconfig, type, tag) |
| 140 | | ,m_io_line0(*this, "LINE0") |
| 141 | | ,m_io_line1(*this, "LINE1") |
| 142 | | ,m_io_line2(*this, "LINE2") |
| 143 | | ,m_io_line3(*this, "LINE3") |
| 144 | | ,m_io_line4(*this, "LINE4") |
| 145 | | ,m_line0(0) |
| 146 | | ,m_line1(0) |
| 147 | | ,m_line2(0) |
| 148 | | ,m_line3(0) |
| 149 | | ,m_reset(0) |
| 150 | | ,m_shift(0) |
| 151 | | ,m_led(0) |
| 152 | | { } |
| 153 | | required_ioport m_io_line0; |
| 154 | | required_ioport m_io_line1; |
| 155 | | required_ioport m_io_line2; |
| 156 | | required_ioport m_io_line3; |
| 157 | | required_ioport m_io_line4; |
| 158 | | UINT8 m_line0; |
| 159 | | UINT8 m_line1; |
| 160 | | UINT8 m_line2; |
| 161 | | UINT8 m_line3; |
| 162 | | UINT8 m_reset; |
| 163 | | UINT8 m_shift; |
| 164 | | UINT8 m_led; |
| 165 | | TIMER_DEVICE_CALLBACK_MEMBER(scan_artwork); |
| 166 | | }; |
| 167 | | |
| 168 | 139 | /* Esselte 100 driver class */ |
| 169 | | class e100_state : public didact_state |
| 140 | class e100_state : public driver_device |
| 170 | 141 | { |
| 171 | 142 | public: |
| 172 | | e100_state(const machine_config &mconfig, device_type type, const char * tag) |
| 173 | | : didact_state(mconfig, type, tag), |
| 143 | e100_state(const machine_config &mconfig, device_type type, const char *tag) |
| 144 | : driver_device(mconfig, type, tag), |
| 174 | 145 | m_maincpu(*this, "maincpu"), |
| 175 | 146 | m_pia1(*this, "pia1"), |
| 176 | 147 | m_pia2(*this, "pia2") |
| 177 | 148 | { } |
| 178 | 149 | required_device<m6802_cpu_device> m_maincpu; |
| 179 | | virtual void machine_reset() override { m_maincpu->reset(); LOG(("--->%s()\n", FUNCNAME)); }; |
| 150 | |
| 180 | 151 | protected: |
| 181 | 152 | required_device<pia6821_device> m_pia1; |
| 182 | 153 | required_device<pia6821_device> m_pia2; |
| 183 | 154 | }; |
| 184 | 155 | |
| 185 | 156 | /* Mikrodator 6802 driver class */ |
| 186 | | class md6802_state : public didact_state |
| 157 | class md6802_state : public driver_device |
| 187 | 158 | { |
| 188 | 159 | public: |
| 189 | | md6802_state(const machine_config &mconfig, device_type type, const char * tag) |
| 190 | | : didact_state(mconfig, type, tag) |
| 191 | | ,m_maincpu(*this, "maincpu") |
| 192 | | ,m_tb16_74145(*this, "tb16_74145") |
| 193 | | ,m_segments(0) |
| 194 | | ,m_pia1(*this, "pia1") |
| 195 | | ,m_pia2(*this, "pia2") |
| 160 | md6802_state(const machine_config &mconfig, device_type type, const char *tag) |
| 161 | : driver_device(mconfig, type, tag), |
| 162 | m_maincpu(*this, "maincpu"), |
| 163 | m_pia1(*this, "pia1"), |
| 164 | m_pia2(*this, "pia2") |
| 196 | 165 | { } |
| 197 | 166 | required_device<m6802_cpu_device> m_maincpu; |
| 198 | | required_device<ttl74145_device> m_tb16_74145; |
| 199 | | UINT8 m_segments; |
| 200 | | DECLARE_READ8_MEMBER( pia2_kbA_r ); |
| 201 | | DECLARE_WRITE8_MEMBER( pia2_kbA_w ); |
| 202 | | DECLARE_READ8_MEMBER( pia2_kbB_r ); |
| 203 | | DECLARE_WRITE8_MEMBER( pia2_kbB_w ); |
| 204 | | DECLARE_WRITE_LINE_MEMBER( pia2_ca2_w); |
| 205 | 167 | |
| 206 | | virtual void machine_reset() override; |
| 207 | | virtual void machine_start() override; |
| 208 | 168 | protected: |
| 209 | 169 | required_device<pia6821_device> m_pia1; |
| 210 | 170 | required_device<pia6821_device> m_pia2; |
| 211 | 171 | }; |
| 212 | 172 | |
| 213 | | /* Keyboard */ |
| 214 | | READ8_MEMBER( md6802_state::pia2_kbA_r ) |
| 215 | | { |
| 216 | | UINT8 ls145; |
| 217 | | UINT8 pa = 0xff; |
| 218 | 173 | |
| 219 | | // Read out the selected column |
| 220 | | ls145 = m_tb16_74145->read() & 0x0f; |
| 221 | | |
| 222 | | // read out the artwork, line04 is handled by the timer |
| 223 | | m_line0 = m_io_line0->read(); |
| 224 | | m_line1 = m_io_line1->read(); |
| 225 | | m_line2 = m_io_line2->read(); |
| 226 | | m_line3 = m_io_line3->read(); |
| 227 | | |
| 228 | | #if VERBOSE > 2 |
| 229 | | if ((m_line0 | m_line1 | m_line2 | m_line3) != 0) |
| 230 | | LOG(("%s()-->%02x %02x %02x %02x modified by %02x displaying %02x\n", FUNCNAME, m_line0, m_line1, m_line2, m_line3, m_shift, ls145)); |
| 231 | | #endif |
| 232 | | |
| 233 | | // Mask out those rows that has a button pressed |
| 234 | | pa &= ~(((~m_line0 & ls145 ) != 0) ? 1 : 0); |
| 235 | | pa &= ~(((~m_line1 & ls145 ) != 0) ? 2 : 0); |
| 236 | | pa &= ~(((~m_line2 & ls145 ) != 0) ? 4 : 0); |
| 237 | | pa &= ~(((~m_line3 & ls145 ) != 0) ? 8 : 0); |
| 238 | | |
| 239 | | if (m_shift) |
| 240 | | { |
| 241 | | pa &= 0x7f; // Clear shift bit if button being pressed (PA7) to ground (internal pullup) |
| 242 | | LOG( ("SHIFT is pressed\n") ); |
| 243 | | } |
| 244 | | |
| 245 | | #if VERBOSE > 2 |
| 246 | | if ((m_line0 | m_line1 | m_line2 | m_line3) != 0) |
| 247 | | LOG(("%s()-->LINE: 0:%02x 1:%02x 2:%02x 3:%02x SHIFT:%02x LS145:%02x PA:%02x\n", FUNCNAME, m_line0, m_line1, m_line2, m_line3, m_shift, ls145, pa)); |
| 248 | | #endif |
| 249 | | |
| 250 | | return pa; |
| 251 | | } |
| 252 | | |
| 253 | | /* Pull the cathodes low enabling the correct digit and lit the segments held by port B */ |
| 254 | | WRITE8_MEMBER( md6802_state::pia2_kbA_w ) |
| 255 | | { |
| 256 | | UINT8 digit_nbr; |
| 257 | | |
| 258 | | // LOG(("--->%s(%02x)\n", FUNCNAME, data)); |
| 259 | | |
| 260 | | digit_nbr = (data >> 4) & 0x07; |
| 261 | | m_tb16_74145->write( digit_nbr ); |
| 262 | | if (digit_nbr < 6) |
| 263 | | { |
| 264 | | output().set_digit_value( digit_nbr, m_segments); |
| 265 | | } |
| 266 | | } |
| 267 | | |
| 268 | | /* PIA 2 Port B is all outputs to drive the display so it is very unlikelly that this function is called */ |
| 269 | | READ8_MEMBER( md6802_state::pia2_kbB_r ) |
| 270 | | { |
| 271 | | LOG( ("Warning, trying to read from Port B designated to drive the display, please check why\n") ); |
| 272 | | logerror("Warning, trying to read from Port B designated to drive the display, please check why\n"); |
| 273 | | return 0; |
| 274 | | } |
| 275 | | |
| 276 | | /* Port B is fully used ouputting the segment pattern to the display */ |
| 277 | | WRITE8_MEMBER( md6802_state::pia2_kbB_w ) |
| 278 | | { |
| 279 | | // LOG(("--->%s(%02x)\n", FUNCNAME, data)); |
| 280 | | |
| 281 | | /* Store the segment pattern but do not lit up the digit here, done by pulling the correct cathode low on Port A */ |
| 282 | | m_segments = BITSWAP8(data, 0, 4, 5, 3, 2, 1, 7, 6); |
| 283 | | } |
| 284 | | |
| 285 | | WRITE_LINE_MEMBER( md6802_state::pia2_ca2_w ) |
| 286 | | { |
| 287 | | LOG(("--->%s(%02x) LED is connected through resisitor to +5v so logical 0 will lit it\n", FUNCNAME, state)); |
| 288 | | output().set_led_value(m_led, !state); |
| 289 | | m_shift = !state; |
| 290 | | } |
| 291 | | |
| 292 | | void md6802_state::machine_start() |
| 293 | | { |
| 294 | | LOG(("--->%s()\n", FUNCNAME)); |
| 295 | | save_item(NAME(m_shift)); |
| 296 | | save_item(NAME(m_led)); |
| 297 | | save_item(NAME(m_reset)); |
| 298 | | } |
| 299 | | |
| 300 | | void md6802_state::machine_reset() |
| 301 | | { |
| 302 | | LOG(("--->%s()\n", FUNCNAME)); |
| 303 | | m_led = 1; |
| 304 | | m_maincpu->reset(); |
| 305 | | } |
| 306 | | |
| 307 | 174 | /* Didact mp68a driver class */ |
| 308 | | |
| 309 | 175 | // Just a statement that the real mp68a hardware was designed with 6820 and not 6821 |
| 310 | 176 | // They are functional equivalents BUT has different electrical characteristics. |
| 311 | 177 | #define pia6820_device pia6821_device |
| 312 | 178 | #define PIA6820 PIA6821 |
| 313 | | class mp68a_state : public didact_state |
| 179 | class mp68a_state : public driver_device |
| 314 | 180 | { |
| 315 | 181 | public: |
| 316 | | mp68a_state(const machine_config &mconfig, device_type type, const char * tag) |
| 317 | | : didact_state(mconfig, type, tag) |
| 318 | | ,m_maincpu(*this, "maincpu") |
| 182 | mp68a_state(const machine_config &mconfig, device_type type, const char *tag) |
| 183 | : driver_device(mconfig, type, tag) |
| 184 | ,m_maincpu(*this, "maincpu") |
| 185 | ,m_io_line0(*this, "LINE0") |
| 186 | ,m_io_line1(*this, "LINE1") |
| 187 | ,m_io_line2(*this, "LINE2") |
| 188 | ,m_io_line3(*this, "LINE3") |
| 189 | ,m_io_line4(*this, "LINE4") |
| 190 | ,m_line0(0) |
| 191 | ,m_line1(0) |
| 192 | ,m_line2(0) |
| 193 | ,m_line3(0) |
| 194 | ,m_shift(0) |
| 319 | 195 | ,m_digit0(*this, "digit0") |
| 320 | 196 | ,m_digit1(*this, "digit1") |
| 321 | 197 | ,m_digit2(*this, "digit2") |
| r252953 | r252954 | |
| 328 | 204 | |
| 329 | 205 | required_device<m6800_cpu_device> m_maincpu; |
| 330 | 206 | |
| 331 | | // The display segment driver device (there is actually just one, needs rewrite to be correct) |
| 207 | required_ioport m_io_line0; |
| 208 | required_ioport m_io_line1; |
| 209 | required_ioport m_io_line2; |
| 210 | required_ioport m_io_line3; |
| 211 | required_ioport m_io_line4; |
| 212 | UINT8 m_line0; |
| 213 | UINT8 m_line1; |
| 214 | UINT8 m_line2; |
| 215 | UINT8 m_line3; |
| 216 | UINT8 m_shift; |
| 217 | |
| 218 | // The display segment driver device |
| 332 | 219 | required_device<dm9368_device> m_digit0; |
| 333 | 220 | required_device<dm9368_device> m_digit1; |
| 334 | 221 | required_device<dm9368_device> m_digit2; |
| r252953 | r252954 | |
| 342 | 229 | DECLARE_WRITE8_MEMBER( pia2_kbB_w ); |
| 343 | 230 | DECLARE_READ_LINE_MEMBER( pia2_cb1_r ); |
| 344 | 231 | |
| 345 | | virtual void machine_reset() override; |
| 346 | 232 | virtual void machine_start() override; |
| 233 | TIMER_DEVICE_CALLBACK_MEMBER(scan_artwork); |
| 347 | 234 | protected: |
| 348 | 235 | required_device<pia6820_device> m_pia1; |
| 349 | 236 | required_device<pia6820_device> m_pia2; |
| r252953 | r252954 | |
| 358 | 245 | |
| 359 | 246 | WRITE8_MEMBER( mp68a_state::pia2_kbA_w ) |
| 360 | 247 | { |
| 361 | | UINT8 digit_nbr; |
| 248 | UINT8 m_lednum; |
| 362 | 249 | |
| 363 | 250 | #if VERBOSE > 1 |
| 364 | 251 | static UINT8 display[] = {' ',' ',' ',' ',' ',' ',' ',' ','\0'}; |
| r252953 | r252954 | |
| 367 | 254 | |
| 368 | 255 | /* Display memory is at $702 to $708 in AAAADD format (A=address digit, D=Data digit) |
| 369 | 256 | but we are using data read from the port. */ |
| 370 | | digit_nbr = (data >> 4) & 0x07; |
| 257 | m_lednum = (data >> 4) & 0x07; |
| 371 | 258 | |
| 372 | | /* There is actually only one 9368 and a 74145 to drive the cathode of the right digit low */ |
| 373 | | /* This can be emulated by prentending there are one 9368 per digit, at least for now */ |
| 374 | | switch (digit_nbr) |
| 259 | switch (m_lednum) |
| 375 | 260 | { |
| 376 | 261 | case 0: m_digit0->a_w(data & 0x0f); break; |
| 377 | 262 | case 1: m_digit1->a_w(data & 0x0f); break; |
| r252953 | r252954 | |
| 380 | 265 | case 4: m_digit4->a_w(data & 0x0f); break; |
| 381 | 266 | case 5: m_digit5->a_w(data & 0x0f); break; |
| 382 | 267 | case 7: break; // used as an 'unselect' by the ROM between digit accesses. |
| 383 | | default: logerror("Invalid digit index %d\n", digit_nbr); |
| 268 | default: logerror("Wrong digit index %d\n", m_lednum); |
| 384 | 269 | } |
| 385 | 270 | |
| 386 | 271 | #if VERBOSE > 1 |
| r252953 | r252954 | |
| 392 | 277 | READ8_MEMBER( mp68a_state::pia2_kbB_r ) |
| 393 | 278 | { |
| 394 | 279 | UINT8 a012, line, pb; |
| 395 | | |
| 280 | |
| 396 | 281 | LOG(("--->%s %02x %02x %02x %02x %02x => ", FUNCNAME, m_line0, m_line1, m_line2, m_line3, m_shift)); |
| 397 | 282 | |
| 398 | 283 | a012 = 0; |
| r252953 | r252954 | |
| 409 | 294 | } |
| 410 | 295 | |
| 411 | 296 | pb = a012; // A0-A2 -> PB0-PB3 |
| 412 | | |
| 413 | 297 | if (m_shift) |
| 414 | 298 | { |
| 415 | 299 | pb |= 0x80; // Set shift bit (PB7) |
| 416 | 300 | m_shift = 0; // Reset flip flop |
| 417 | | output().set_led_value(m_led, m_shift); |
| 301 | output().set_led_value(0, m_shift); |
| 418 | 302 | LOG( ("SHIFT is released\n") ); |
| 419 | 303 | } |
| 420 | 304 | |
| r252953 | r252954 | |
| 443 | 327 | return (m_line0 | m_line1 | m_line2 | m_line3) != 0 ? 0 : 1; |
| 444 | 328 | } |
| 445 | 329 | |
| 446 | | void mp68a_state::machine_reset() |
| 447 | | { |
| 448 | | LOG(("--->%s()\n", FUNCNAME)); |
| 449 | | m_maincpu->reset(); |
| 450 | | } |
| 451 | | |
| 452 | 330 | void mp68a_state::machine_start() |
| 453 | 331 | { |
| 454 | 332 | LOG(("--->%s()\n", FUNCNAME)); |
| 455 | 333 | |
| 456 | 334 | /* register for state saving */ |
| 457 | 335 | save_item(NAME(m_shift)); |
| 458 | | save_item(NAME(m_led)); |
| 459 | | save_item(NAME(m_reset)); |
| 460 | 336 | } |
| 461 | 337 | |
| 462 | 338 | // This map is derived from info in "TEMAL 100 - teknisk manual Esselte 100" |
| r252953 | r252954 | |
| 465 | 341 | AM_RANGE(0xc000, 0xc3ff) AM_RAM AM_SHARE("videoram") |
| 466 | 342 | AM_RANGE(0xc808, 0xc80b) AM_DEVREADWRITE("pia1", pia6821_device, read, write) |
| 467 | 343 | AM_RANGE(0xc810, 0xc813) AM_DEVREADWRITE("pia2", pia6821_device, read, write) |
| 468 | | AM_RANGE(0xd000, 0xffff) AM_ROM AM_REGION("maincpu", 0xd000) |
| 344 | AM_RANGE(0xd000, 0xffff) AM_ROM AM_REGION("maincpu", 0xd0000) |
| 469 | 345 | ADDRESS_MAP_END |
| 470 | 346 | |
| 471 | 347 | // This address map is traced from schema |
| r252953 | r252954 | |
| 490 | 366 | INPUT_PORTS_END |
| 491 | 367 | |
| 492 | 368 | static INPUT_PORTS_START( md6802 ) |
| 493 | | PORT_START("LINE0") /* KEY ROW 0 */ |
| 494 | | PORT_BIT(0x01, 0x01, IPT_KEYBOARD) PORT_NAME("0") PORT_CODE(KEYCODE_0) PORT_CHAR('0') |
| 495 | | PORT_BIT(0x02, 0x02, IPT_KEYBOARD) PORT_NAME("1") PORT_CODE(KEYCODE_1) PORT_CHAR('1') |
| 496 | | PORT_BIT(0x04, 0x04, IPT_KEYBOARD) PORT_NAME("2") PORT_CODE(KEYCODE_2) PORT_CHAR('2') |
| 497 | | PORT_BIT(0x08, 0x08, IPT_KEYBOARD) PORT_NAME("3") PORT_CODE(KEYCODE_3) PORT_CHAR('3') |
| 498 | | PORT_BIT(0xf0, 0x00, IPT_UNUSED ) |
| 499 | | |
| 500 | | PORT_START("LINE1") /* KEY ROW 1 */ |
| 501 | | PORT_BIT(0x01, 0x01, IPT_KEYBOARD) PORT_NAME("4") PORT_CODE(KEYCODE_4) PORT_CHAR('4') |
| 502 | | PORT_BIT(0x02, 0x02, IPT_KEYBOARD) PORT_NAME("5") PORT_CODE(KEYCODE_5) PORT_CHAR('5') |
| 503 | | PORT_BIT(0x04, 0x04, IPT_KEYBOARD) PORT_NAME("6") PORT_CODE(KEYCODE_6) PORT_CHAR('6') |
| 504 | | PORT_BIT(0x08, 0x08, IPT_KEYBOARD) PORT_NAME("7") PORT_CODE(KEYCODE_7) PORT_CHAR('7') |
| 505 | | PORT_BIT(0xf0, 0x00, IPT_UNUSED ) |
| 506 | | |
| 507 | | PORT_START("LINE2") /* KEY ROW 2 */ |
| 508 | | PORT_BIT(0x01, 0x01, IPT_KEYBOARD) PORT_NAME("8") PORT_CODE(KEYCODE_8) PORT_CHAR('8') |
| 509 | | PORT_BIT(0x02, 0x02, IPT_KEYBOARD) PORT_NAME("9") PORT_CODE(KEYCODE_9) PORT_CHAR('9') |
| 510 | | PORT_BIT(0x04, 0x04, IPT_KEYBOARD) PORT_NAME("A") PORT_CODE(KEYCODE_A) PORT_CHAR('A') |
| 511 | | PORT_BIT(0x08, 0x08, IPT_KEYBOARD) PORT_NAME("B") PORT_CODE(KEYCODE_B) PORT_CHAR('B') |
| 512 | | PORT_BIT(0xf0, 0x00, IPT_UNUSED ) |
| 513 | | |
| 514 | | PORT_START("LINE3") /* KEY ROW 3 */ |
| 515 | | PORT_BIT(0x01, 0x01, IPT_KEYBOARD) PORT_NAME("C") PORT_CODE(KEYCODE_C) PORT_CHAR('C') |
| 516 | | PORT_BIT(0x02, 0x02, IPT_KEYBOARD) PORT_NAME("D") PORT_CODE(KEYCODE_D) PORT_CHAR('D') |
| 517 | | PORT_BIT(0x04, 0x04, IPT_KEYBOARD) PORT_NAME("E") PORT_CODE(KEYCODE_E) PORT_CHAR('E') |
| 518 | | PORT_BIT(0x08, 0x08, IPT_KEYBOARD) PORT_NAME("F") PORT_CODE(KEYCODE_F) PORT_CHAR('F') |
| 519 | | PORT_BIT(0xf0, 0x00, IPT_UNUSED ) |
| 520 | | |
| 521 | | PORT_START("LINE4") /* Special KEY ROW for reset and Shift/'*' keys */ |
| 522 | | PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_NAME("*") PORT_CODE(KEYCODE_LSHIFT) PORT_CODE(KEYCODE_RSHIFT) PORT_CHAR('*') |
| 523 | | PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_NAME("Reset") PORT_CODE(KEYCODE_F12) |
| 524 | | PORT_BIT(0xf3, 0x00, IPT_UNUSED ) |
| 525 | 369 | INPUT_PORTS_END |
| 526 | 370 | |
| 527 | 371 | static INPUT_PORTS_START( mp68a ) |
| r252953 | r252954 | |
| 559 | 403 | PORT_BIT(0xf3, IP_ACTIVE_HIGH, IPT_UNUSED ) |
| 560 | 404 | INPUT_PORTS_END |
| 561 | 405 | |
| 562 | | TIMER_DEVICE_CALLBACK_MEMBER(didact_state::scan_artwork) |
| 406 | TIMER_DEVICE_CALLBACK_MEMBER(mp68a_state::scan_artwork) |
| 563 | 407 | { |
| 564 | 408 | // LOG(("--->%s()\n", FUNCNAME)); |
| 565 | 409 | |
| r252953 | r252954 | |
| 568 | 412 | { |
| 569 | 413 | LOG( ("RESET is pressed, resetting the CPU\n") ); |
| 570 | 414 | m_shift = 0; |
| 571 | | output().set_led_value(m_led, m_shift); // For mp68a only |
| 572 | | if (m_reset == 0) |
| 573 | | { |
| 574 | | machine_reset(); |
| 575 | | } |
| 576 | | m_reset = 1; // Inhibit multiple resets |
| 415 | output().set_led_value(0, m_shift); |
| 416 | m_maincpu->reset(); |
| 417 | |
| 577 | 418 | } |
| 578 | 419 | |
| 579 | 420 | // Poll the artwork SHIFT/* key |
| 580 | 421 | else if ( (m_io_line4->read() & 0x08) ) |
| 581 | 422 | { |
| 582 | | LOG( ("%s", !m_shift ? "SHIFT is set\n" : "") ); |
| 423 | LOG( ("SHIFT is set\n") ); |
| 583 | 424 | m_shift = 1; |
| 584 | | output().set_led_value(m_led, m_shift); // For mp68a only |
| 425 | output().set_led_value(0, m_shift); |
| 585 | 426 | } |
| 586 | | else |
| 587 | | { |
| 588 | | if (m_reset == 1) |
| 589 | | { |
| 590 | | m_reset = 0; // Enable reset again |
| 591 | | } |
| 592 | | } |
| 593 | 427 | } |
| 594 | 428 | |
| 595 | 429 | static MACHINE_CONFIG_START( e100, e100_state ) |
| r252953 | r252954 | |
| 604 | 438 | static MACHINE_CONFIG_START( md6802, md6802_state ) |
| 605 | 439 | MCFG_CPU_ADD("maincpu", M6802, XTAL_4MHz/4) |
| 606 | 440 | MCFG_CPU_PROGRAM_MAP(md6802_map) |
| 607 | | MCFG_DEFAULT_LAYOUT(layout_md6802) |
| 608 | 441 | |
| 609 | | /* Devices */ |
| 610 | | MCFG_DEVICE_ADD("tb16_74145", TTL74145, 0) |
| 611 | | /* PIA #1 0xA000-0xA003 - used differently by laborations and loaded software */ |
| 442 | /* devices */ |
| 612 | 443 | MCFG_DEVICE_ADD("pia1", PIA6821, 0) |
| 613 | | |
| 614 | | /* PIA #2 Keyboard & Display 0xC000-0xC003 */ |
| 615 | 444 | MCFG_DEVICE_ADD("pia2", PIA6821, 0) |
| 616 | | /* --init----------------------- */ |
| 617 | | /* 0xE007 0xC002 (DDR B) = 0xFF - Port B all outputs and set to 0 (zero) */ |
| 618 | | /* 0xE00B 0xC000 (DDR A) = 0x70 - Port A three outputs and set to 0 (zero) */ |
| 619 | | /* 0xE00F 0xC001 (Control A) = 0x3C - */ |
| 620 | | /* 0xE013 0xC003 (Control B) = 0x3C - */ |
| 621 | | /* --execution-wait for key loop-- */ |
| 622 | | /* 0xE026 0xC000 = (Reading Port A) */ |
| 623 | | /* 0xE033 0xC000 = (Reading Port A) */ |
| 624 | | /* 0xE068 0xC000 (Port A) = 0x60 */ |
| 625 | | /* 0xE08A 0xC002 (Port B) = 0xEE - updating display */ |
| 626 | | /* 0xE090 0xC000 (Port A) = 0x00 - looping in 0x10,0x20,0x30,0x40,0x50 */ |
| 627 | | MCFG_PIA_WRITEPA_HANDLER(WRITE8(md6802_state, pia2_kbA_w)) |
| 628 | | MCFG_PIA_READPA_HANDLER(READ8(md6802_state, pia2_kbA_r)) |
| 629 | | MCFG_PIA_WRITEPB_HANDLER(WRITE8(md6802_state, pia2_kbB_w)) |
| 630 | | MCFG_PIA_READPB_HANDLER(READ8(md6802_state, pia2_kbB_r)) |
| 631 | | MCFG_PIA_CA2_HANDLER(WRITELINE(md6802_state, pia2_ca2_w)) |
| 632 | | MCFG_TIMER_DRIVER_ADD_PERIODIC("artwork_timer", md6802_state, scan_artwork, attotime::from_hz(10)) |
| 633 | 445 | MACHINE_CONFIG_END |
| 634 | 446 | |
| 635 | 447 | static MACHINE_CONFIG_START( mp68a, mp68a_state ) |
| 636 | | // Clock source is based on a N9602N Dual Retriggerable Resettable Monostable Multivibrator oscillator at aprox 505KHz. |
| 637 | | // Trimpot seems broken/stuck at 5K Ohm thu. ROM code 1Ms delay loops suggest 1MHz+ |
| 638 | | MCFG_CPU_ADD("maincpu", M6800, 505000) |
| 448 | MCFG_CPU_ADD("maincpu", M6800, XTAL_4MHz/4) |
| 639 | 449 | MCFG_CPU_PROGRAM_MAP(mp68a_map) |
| 640 | | MCFG_DEFAULT_LAYOUT(layout_mp68a) |
| 641 | 450 | |
| 642 | 451 | /* Devices */ |
| 643 | 452 | /* PIA #1 0x500-0x503 - used differently by laborations and loaded software */ |
| r252953 | r252954 | |
| 649 | 458 | /* 0x0BAF 0x601 (Control A) = 0x30 - CA2 is low and enable DDRA */ |
| 650 | 459 | /* 0x0BB1 0x603 (Control B) = 0x30 - CB2 is low and enable DDRB */ |
| 651 | 460 | /* 0x0BB5 0x600 (DDR A) = 0xFF - Port A all outputs and set to 0 (zero) */ |
| 652 | | /* 0x0BB9 0x602 (DDR B) = 0x50 - Port B two outputs and set to 0 (zero) */ |
| 461 | /* 0x0BB9 0x602 (DDR B) = 0x50 - Port B two outputs and set to 0 (zero9 */ |
| 653 | 462 | /* 0x0BBD 0x601 (Control A) = 0x34 - CA2 is low and lock DDRA */ |
| 654 | 463 | /* 0x0BBF 0x603 (Control B) = 0x34 - CB2 is low and lock DDRB */ |
| 655 | 464 | /* 0x0BC3 0x602 (Port B) = 0x40 - Turn on display via RBI* on */ |
| r252953 | r252954 | |
| 691 | 500 | MCFG_OUTPUT_INDEX(5) |
| 692 | 501 | |
| 693 | 502 | MCFG_TIMER_DRIVER_ADD_PERIODIC("artwork_timer", mp68a_state, scan_artwork, attotime::from_hz(10)) |
| 503 | |
| 694 | 504 | MACHINE_CONFIG_END |
| 695 | 505 | |
| 696 | 506 | // TODO: Get a ROM set |
| r252953 | r252954 | |
| 708 | 518 | ROM_START( md6802 ) // ROM image from http://elektronikforumet.com/forum/viewtopic.php?f=2&t=79576&start=135#p1203640 |
| 709 | 519 | ROM_REGION(0x10000, "maincpu", 0) |
| 710 | 520 | ROM_LOAD( "DIDACT.bin", 0xe000, 0x0800, CRC(50430b1d) SHA1(8e2172a9ae95b04f20aa14177df2463a286c8465) ) |
| 521 | // ROM_LOAD( "md6802-1.bin", 0xf800, 0xf9ff, CRC(0ff53e1f) SHA1(52002ee22c032775dac383d408c44abe9244724f) ) |
| 522 | // ROM_LOAD( "md6802-2.bin", 0xfa00, 0xfbff, CRC(0ff53e1f) SHA1(52002ee22c032775dac383d408c44abe9244724f) ) |
| 523 | // ROM_LOAD( "md6802-3.bin", 0xfc00, 0xfdff, CRC(0ff53e1f) SHA1(52002ee22c032775dac383d408c44abe9244724f) ) |
| 524 | // ROM_LOAD( "md6802-4.bin", 0xfe00, 0xffff, CRC(0ff53e1f) SHA1(52002ee22c032775dac383d408c44abe9244724f) ) |
| 711 | 525 | ROM_END |
| 712 | 526 | |
| 713 | 527 | ROM_START( mp68a ) // ROM image from http://elektronikforumet.com/forum/viewtopic.php?f=2&t=79576&start=135#p1203640 |
| r252953 | r252954 | |
| 719 | 533 | // YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS |
| 720 | 534 | COMP( 1979, mp68a, 0, 0, mp68a, mp68a, driver_device, 0, "Didact AB", "mp68a", MACHINE_NO_SOUND_HW ) |
| 721 | 535 | COMP( 1982, e100, 0, 0, e100, e100, driver_device, 0, "Didact AB", "Esselte 100", MACHINE_IS_SKELETON ) |
| 722 | | COMP( 1983, md6802, 0, 0, md6802, md6802, driver_device, 0, "Didact AB", "Mikrodator 6802", MACHINE_NO_SOUND_HW ) |
| 536 | COMP( 1983, md6802, 0, 0, md6802, md6802, driver_device, 0, "Didact AB", "Mikrodator 6802", MACHINE_IS_SKELETON ) |
trunk/src/mame/drivers/pacman.cpp
| r252953 | r252954 | |
| 4145 | 4145 | ROM_LOAD( "m7611.3m", 0x0100, 0x0100, CRC(0e307106) SHA1(6140b5339008dd3110cd5be2e2fb4813779dfe28) ) /* timing - not used */ |
| 4146 | 4146 | ROM_END |
| 4147 | 4147 | |
| 4148 | ROM_START( clubpacma ) |
| 4149 | ROM_REGION( 0x10000, "maincpu", 0 ) |
| 4150 | ROM_LOAD( "new_club.bin", 0x0000, 0x4000, CRC(6d79d3f2) SHA1(61ac436b4dc30b074e6c95f13efbf66f9aa1e2f7) ) |
| 4151 | ROM_CONTINUE(0x8000,0x4000) |
| 4148 | 4152 | |
| 4153 | ROM_REGION( 0x2000, "gfx1", 0 ) |
| 4154 | ROM_LOAD( "12.5e", 0x0000, 0x0800, CRC(93933d1d) SHA1(fa38d2cb87e872bb9a3158a4df98f38360dc85ec) ) |
| 4155 | ROM_LOAD( "14.5h", 0x0800, 0x0800, CRC(7409fbec) SHA1(f440f08ba026ae6172666e1bdc0894ce33bba420) ) |
| 4156 | ROM_LOAD( "13.5f", 0x1000, 0x0800, CRC(22b0188a) SHA1(a9ed9ca8b36a60081fd364abc9bc23963932cc0b) ) |
| 4157 | ROM_LOAD( "15.5j", 0x1800, 0x0800, CRC(50c7477d) SHA1(c04ec282a8cb528df5e38ad750d12ee71612695d) ) |
| 4158 | |
| 4159 | // Color PROMs have been dumped. They match the pacman/mspacman ones |
| 4160 | ROM_REGION( 0x0120, "proms", 0 ) |
| 4161 | ROM_LOAD( "n82s123n.7f", 0x0000, 0x0020, CRC(2fc650bd) SHA1(8d0268dee78e47c712202b0ec4f1f51109b1f2a5) ) |
| 4162 | ROM_LOAD( "m7611.4a", 0x0020, 0x0100, CRC(3eb3a8e4) SHA1(19097b5f60d1030f8b82d9f1d3a241f93e5c75d6) ) |
| 4163 | |
| 4164 | ROM_REGION( 0x0200, "namco", 0 ) /* sound PROMs */ |
| 4165 | ROM_LOAD( "m7611.1m", 0x0000, 0x0100, CRC(a9cc86bf) SHA1(bbcec0570aeceb582ff8238a4bc8546a23430081) ) |
| 4166 | ROM_LOAD( "m7611.3m", 0x0100, 0x0100, CRC(0e307106) SHA1(6140b5339008dd3110cd5be2e2fb4813779dfe28) ) /* timing - not used */ |
| 4167 | ROM_END |
| 4168 | |
| 4169 | ROM_START( clubpacmb ) |
| 4170 | ROM_REGION( 0x10000, "maincpu", 0 ) |
| 4171 | ROM_LOAD( "new_club_d.bin", 0x0000, 0x4000, CRC(3c8ce103) SHA1(1d3fd485f68c2c1ed6f19dcee51456a4d0ab0a01) ) |
| 4172 | ROM_CONTINUE(0x8000,0x4000) |
| 4173 | |
| 4174 | ROM_REGION( 0x2000, "gfx1", 0 ) |
| 4175 | ROM_LOAD( "12.5e", 0x0000, 0x0800, CRC(93933d1d) SHA1(fa38d2cb87e872bb9a3158a4df98f38360dc85ec) ) |
| 4176 | ROM_LOAD( "14.5h", 0x0800, 0x0800, CRC(7409fbec) SHA1(f440f08ba026ae6172666e1bdc0894ce33bba420) ) |
| 4177 | ROM_LOAD( "13.5f", 0x1000, 0x0800, CRC(22b0188a) SHA1(a9ed9ca8b36a60081fd364abc9bc23963932cc0b) ) |
| 4178 | ROM_LOAD( "15.5j", 0x1800, 0x0800, CRC(50c7477d) SHA1(c04ec282a8cb528df5e38ad750d12ee71612695d) ) |
| 4179 | |
| 4180 | // Color PROMs have been dumped. They match the pacman/mspacman ones |
| 4181 | ROM_REGION( 0x0120, "proms", 0 ) |
| 4182 | ROM_LOAD( "n82s123n.7f", 0x0000, 0x0020, CRC(2fc650bd) SHA1(8d0268dee78e47c712202b0ec4f1f51109b1f2a5) ) |
| 4183 | ROM_LOAD( "m7611.4a", 0x0020, 0x0100, CRC(3eb3a8e4) SHA1(19097b5f60d1030f8b82d9f1d3a241f93e5c75d6) ) |
| 4184 | |
| 4185 | ROM_REGION( 0x0200, "namco", 0 ) /* sound PROMs */ |
| 4186 | ROM_LOAD( "m7611.1m", 0x0000, 0x0100, CRC(a9cc86bf) SHA1(bbcec0570aeceb582ff8238a4bc8546a23430081) ) |
| 4187 | ROM_LOAD( "m7611.3m", 0x0100, 0x0100, CRC(0e307106) SHA1(6140b5339008dd3110cd5be2e2fb4813779dfe28) ) /* timing - not used */ |
| 4188 | ROM_END |
| 4189 | |
| 4190 | |
| 4149 | 4191 | ROM_START( hangly ) |
| 4150 | 4192 | ROM_REGION( 0x10000, "maincpu", 0 ) |
| 4151 | 4193 | ROM_LOAD( "hangly.6e", 0x0000, 0x1000, CRC(5fe8610a) SHA1(d63eaebd85e10aa6c27bb7f47642dd403eeb6934) ) |
| r252953 | r252954 | |
| 6901 | 6943 | GAME( 1991, mspacmanbcc,mspacman,woodpek, mspacman, driver_device, 0, ROT90, "bootleg (Tecnausa)", "Come-Cocos (Ms. Pac-Man) ('Made in Greece' Tecnausa bootleg)", MACHINE_SUPPORTS_SAVE ) // ^ same PCB, also dated 1991, distributed by Tecnausa |
| 6902 | 6944 | GAME( 198?, pacmansp, puckman, pacman, pacmansp, driver_device, 0, ROT90, "bootleg", "Puck Man (Spanish, 'Made in Greece' bootleg)", MACHINE_SUPPORTS_SAVE ) // probably a further conversion of the mspacmanbg bootleg, still has some MS Pacman code + extra features |
| 6903 | 6945 | |
| 6904 | | GAME( 1989, clubpacm, 0, woodpek, mspacman, driver_device, 0, ROT90, "Miky SRL", "Pacman Club / Club Lambada (Argentina)", MACHINE_SUPPORTS_SAVE | MACHINE_NOT_WORKING ) |
| 6946 | GAME( 1989, clubpacm, 0, woodpek, mspacman, driver_device, 0, ROT90, "Miky SRL", "Pacman Club / Club Lambada (Argentina)", MACHINE_SUPPORTS_SAVE | MACHINE_NOT_WORKING ) |
| 6947 | GAME( 1990, clubpacma, clubpacm, woodpek, mspacman, driver_device, 0, ROT90, "Miky SRL", "Pacman Club (set 1, Argentina)", MACHINE_SUPPORTS_SAVE | MACHINE_NOT_WORKING ) |
| 6948 | GAME( 1990, clubpacmb, clubpacm, woodpek, mspacman, driver_device, 0, ROT90, "Miky SRL", "Pacman Club (set 2, Argentina)", MACHINE_SUPPORTS_SAVE | MACHINE_NOT_WORKING ) |
| 6905 | 6949 | |
| 6906 | 6950 | GAME( 1985, jumpshot, 0, pacman, jumpshot, pacman_state, jumpshot, ROT90, "Bally Midway", "Jump Shot", MACHINE_SUPPORTS_SAVE ) |
| 6907 | 6951 | GAME( 1985, jumpshotp,jumpshot, pacman, jumpshotp,pacman_state, jumpshot, ROT90, "Bally Midway", "Jump Shot Engineering Sample", MACHINE_SUPPORTS_SAVE ) |