trunk/src/mame/drivers/hankin.c
| r31659 | r31660 | |
| 7 | 7 | |
| 8 | 8 | ToDo: |
| 9 | 9 | - High score isn't saved or remembered |
| 10 | - Display should be flouro blue 9-segment |
| 10 | 11 | - Sound |
| 11 | | - Inputs |
| 12 | | - Outputs |
| 13 | 12 | - Mechanical |
| 14 | 13 | |
| 15 | 14 | ***********************************************************************************/ |
| r31659 | r31660 | |
| 42 | 41 | |
| 43 | 42 | DECLARE_DRIVER_INIT(hankin); |
| 44 | 43 | DECLARE_WRITE_LINE_MEMBER(ic10_ca2_w); |
| 44 | DECLARE_WRITE_LINE_MEMBER(ic10_cb2_w); |
| 45 | 45 | DECLARE_WRITE_LINE_MEMBER(ic11_ca2_w); |
| 46 | DECLARE_WRITE_LINE_MEMBER(ic11_cb2_w); |
| 46 | 47 | DECLARE_WRITE8_MEMBER(ic10_a_w); |
| 48 | DECLARE_WRITE8_MEMBER(ic10_b_w); |
| 47 | 49 | DECLARE_WRITE8_MEMBER(ic11_a_w); |
| 48 | 50 | DECLARE_READ8_MEMBER(ic11_b_r); |
| 49 | 51 | DECLARE_INPUT_CHANGED_MEMBER(self_test); |
| r31659 | r31660 | |
| 51 | 53 | private: |
| 52 | 54 | bool m_timer_x; |
| 53 | 55 | bool m_ic11_ca2; |
| 56 | bool m_ic10_cb2; |
| 54 | 57 | UINT8 m_counter; |
| 55 | 58 | UINT8 m_digit; |
| 56 | 59 | UINT8 m_segment; |
| r31659 | r31660 | |
| 95 | 98 | PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("Self Test") PORT_IMPULSE(1) PORT_CHANGED_MEMBER(DEVICE_SELF, hankin_state, self_test, 0) |
| 96 | 99 | |
| 97 | 100 | PORT_START("DSW0") |
| 98 | | PORT_DIPNAME( 0x01, 0x00, "S01") // S1-5: 32 combinations of coins/credits of a coin slot. S9-13 other slot. |
| 101 | PORT_DIPNAME( 0x07, 0x00, DEF_STR(Coinage)) |
| 102 | PORT_DIPSETTING( 0x00, DEF_STR( 1C_1C )) |
| 103 | PORT_DIPSETTING( 0x01, DEF_STR( 2C_1C )) |
| 104 | PORT_DIPSETTING( 0x02, DEF_STR( 3C_1C )) |
| 105 | PORT_DIPSETTING( 0x03, DEF_STR( 4C_1C )) |
| 106 | PORT_DIPSETTING( 0x04, DEF_STR( 2C_3C )) |
| 107 | PORT_DIPSETTING( 0x05, DEF_STR( 3C_2C )) |
| 108 | PORT_DIPSETTING( 0x06, "5 coins 4 credits") |
| 109 | PORT_DIPSETTING( 0x07, "5 coins 2 credits") |
| 110 | PORT_DIPNAME( 0x08, 0x08, "Award") |
| 111 | PORT_DIPSETTING( 0x00, "Extra Ball") |
| 112 | PORT_DIPSETTING( 0x08, "Free Game") |
| 113 | PORT_DIPNAME( 0x10, 0x10, "Match") |
| 99 | 114 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 100 | | PORT_DIPSETTING( 0x01, DEF_STR( On )) |
| 101 | | PORT_DIPNAME( 0x02, 0x00, "S02") |
| 115 | PORT_DIPSETTING( 0x10, DEF_STR( On )) |
| 116 | PORT_DIPNAME( 0x60, 0x40, "Credits for exceeding high score") |
| 117 | PORT_DIPSETTING( 0x00, "0") |
| 118 | PORT_DIPSETTING( 0x20, "1") |
| 119 | PORT_DIPSETTING( 0x40, "2") |
| 120 | PORT_DIPSETTING( 0x60, "3") |
| 121 | PORT_DIPNAME( 0x80, 0x00, "Game Over Tune") |
| 102 | 122 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 103 | | PORT_DIPSETTING( 0x02, DEF_STR( On )) |
| 104 | | PORT_DIPNAME( 0x04, 0x00, "S03") |
| 105 | | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 106 | | PORT_DIPSETTING( 0x04, DEF_STR( On )) |
| 107 | | PORT_DIPNAME( 0x08, 0x00, "S04") |
| 108 | | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 109 | | PORT_DIPSETTING( 0x08, DEF_STR( On )) |
| 110 | | PORT_DIPNAME( 0x10, 0x00, "S05") |
| 111 | | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 112 | | PORT_DIPSETTING( 0x10, DEF_STR( On )) |
| 113 | | PORT_DIPNAME( 0x20, 0x20, "S06") |
| 114 | | PORT_DIPSETTING( 0x00, DEF_STR( No )) |
| 115 | | PORT_DIPSETTING( 0x20, DEF_STR( Yes )) |
| 116 | | PORT_DIPNAME( 0x40, 0x40, "S07") |
| 117 | | PORT_DIPSETTING( 0x00, DEF_STR( No )) |
| 118 | | PORT_DIPSETTING( 0x40, DEF_STR( Yes )) |
| 119 | | PORT_DIPNAME( 0x80, 0x80, "S08") |
| 120 | | PORT_DIPSETTING( 0x00, DEF_STR( No )) |
| 121 | | PORT_DIPSETTING( 0x80, DEF_STR( Yes )) |
| 123 | PORT_DIPSETTING( 0x80, DEF_STR( On )) |
| 122 | 124 | |
| 123 | 125 | PORT_START("DSW1") |
| 124 | | PORT_DIPNAME( 0x01, 0x00, "S09") |
| 126 | PORT_DIPNAME( 0x01, 0x00, "Coin Alarm") |
| 125 | 127 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 126 | 128 | PORT_DIPSETTING( 0x01, DEF_STR( On )) |
| 127 | | PORT_DIPNAME( 0x02, 0x00, "S10") |
| 129 | PORT_DIPNAME( 0x02, 0x00, "S10 (game specific)") |
| 128 | 130 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 129 | 131 | PORT_DIPSETTING( 0x02, DEF_STR( On )) |
| 130 | | PORT_DIPNAME( 0x04, 0x00, "S11") |
| 132 | PORT_DIPNAME( 0x04, 0x04, "Background Sound") |
| 131 | 133 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 132 | 134 | PORT_DIPSETTING( 0x04, DEF_STR( On )) |
| 133 | | PORT_DIPNAME( 0x08, 0x00, "S12") |
| 135 | PORT_DIPNAME( 0x08, 0x00, "S12 (game Specific)") |
| 134 | 136 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 135 | 137 | PORT_DIPSETTING( 0x08, DEF_STR( On )) |
| 136 | | PORT_DIPNAME( 0x10, 0x00, "S13") |
| 138 | PORT_DIPNAME( 0x10, 0x00, "S13 (game specific)") |
| 137 | 139 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 138 | 140 | PORT_DIPSETTING( 0x10, DEF_STR( On )) |
| 139 | | PORT_DIPNAME( 0x20, 0x00, "S14") |
| 140 | | PORT_DIPSETTING( 0x00, DEF_STR( Yes )) |
| 141 | | PORT_DIPSETTING( 0x20, DEF_STR( No )) |
| 142 | | PORT_DIPNAME( 0x40, 0x40, "S15") |
| 143 | | PORT_DIPSETTING( 0x00, DEF_STR( No )) |
| 144 | | PORT_DIPSETTING( 0x40, DEF_STR( Yes )) |
| 145 | | PORT_DIPNAME( 0x80, 0x00, "S16") |
| 146 | | PORT_DIPSETTING( 0x00, DEF_STR( No )) |
| 147 | | PORT_DIPSETTING( 0x80, DEF_STR( Yes )) |
| 141 | PORT_DIPNAME( 0x20, 0x00, "S14 (game specific)") |
| 142 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 143 | PORT_DIPSETTING( 0x20, DEF_STR( On )) |
| 144 | PORT_DIPNAME( 0x40, 0x00, "S15 (game specific)") |
| 145 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 146 | PORT_DIPSETTING( 0x40, DEF_STR( On )) |
| 147 | PORT_DIPNAME( 0x80, 0x00, "Balls") |
| 148 | PORT_DIPSETTING( 0x00, "3") |
| 149 | PORT_DIPSETTING( 0x80, "5") |
| 148 | 150 | |
| 149 | 151 | PORT_START("DSW2") |
| 150 | | PORT_DIPNAME( 0x01, 0x00, "S17") |
| 151 | | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 152 | | PORT_DIPSETTING( 0x01, DEF_STR( On )) |
| 153 | | PORT_DIPNAME( 0x02, 0x00, "S18") |
| 154 | | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 155 | | PORT_DIPSETTING( 0x02, DEF_STR( On )) |
| 152 | PORT_DIPNAME( 0x03, 0x02, "Maximum Credits") |
| 153 | PORT_DIPSETTING( 0x00, "5") |
| 154 | PORT_DIPSETTING( 0x01, "10") |
| 155 | PORT_DIPSETTING( 0x02, "15") |
| 156 | PORT_DIPSETTING( 0x03, "20") |
| 156 | 157 | PORT_DIPNAME( 0x04, 0x00, "S19") |
| 157 | 158 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 158 | 159 | PORT_DIPSETTING( 0x04, DEF_STR( On )) |
| 159 | 160 | PORT_DIPNAME( 0x08, 0x00, "S20") |
| 160 | 161 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 161 | 162 | PORT_DIPSETTING( 0x08, DEF_STR( On )) |
| 162 | | PORT_DIPNAME( 0x10, 0x00, "S21") |
| 163 | PORT_DIPNAME( 0x10, 0x00, "Remember Bonus Multiplier") |
| 163 | 164 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 164 | 165 | PORT_DIPSETTING( 0x10, DEF_STR( On )) |
| 165 | | PORT_DIPNAME( 0x20, 0x00, "S22") |
| 166 | PORT_DIPNAME( 0x20, 0x20, "Free Game Sound") |
| 167 | PORT_DIPSETTING( 0x00, "Special Tune") |
| 168 | PORT_DIPSETTING( 0x20, "Knocker") |
| 169 | PORT_DIPNAME( 0x40, 0x00, "Coin Counter reset") // see manual |
| 166 | 170 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 167 | | PORT_DIPSETTING( 0x20, DEF_STR( On )) |
| 168 | | PORT_DIPNAME( 0x40, 0x00, "S23") |
| 169 | | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 170 | 171 | PORT_DIPSETTING( 0x40, DEF_STR( On )) |
| 171 | | PORT_DIPNAME( 0x80, 0x00, "S24") |
| 172 | PORT_DIPNAME( 0x80, 0x00, "Time out in test mode") |
| 172 | 173 | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 173 | 174 | PORT_DIPSETTING( 0x80, DEF_STR( On )) |
| 174 | 175 | |
| 175 | | PORT_START("DSW3") |
| 176 | | PORT_DIPNAME( 0x03, 0x03, "Maximum Credits") |
| 177 | | PORT_DIPSETTING( 0x00, "10") |
| 178 | | PORT_DIPSETTING( 0x01, "15") |
| 179 | | PORT_DIPSETTING( 0x02, "25") |
| 180 | | PORT_DIPSETTING( 0x03, "40") |
| 181 | | PORT_DIPNAME( 0x04, 0x04, "Credits displayed") |
| 182 | | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 183 | | PORT_DIPSETTING( 0x04, DEF_STR( On )) |
| 184 | | PORT_DIPNAME( 0x08, 0x08, "Match") |
| 185 | | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 186 | | PORT_DIPSETTING( 0x08, DEF_STR( On )) |
| 187 | | PORT_DIPNAME( 0x10, 0x00, "Keep all replays") |
| 188 | | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 189 | | PORT_DIPSETTING( 0x10, DEF_STR( On )) |
| 190 | | PORT_DIPNAME( 0x20, 0x00, "Voice" ) |
| 191 | | PORT_DIPSETTING( 0x00, DEF_STR( Off )) |
| 192 | | PORT_DIPSETTING( 0x20, DEF_STR( On )) |
| 193 | | PORT_DIPNAME( 0xC0, 0x40, "Balls") |
| 194 | | PORT_DIPSETTING( 0xC0, "2") |
| 195 | | PORT_DIPSETTING( 0x00, "3") |
| 196 | | PORT_DIPSETTING( 0x80, "4") |
| 197 | | PORT_DIPSETTING( 0x40, "5") |
| 198 | | |
| 176 | // Switches are numbered 8-1,16-9,24-17 |
| 199 | 177 | PORT_START("X0") |
| 200 | | PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_OTHER ) |
| 201 | | PORT_BIT( 0x0a, IP_ACTIVE_HIGH, IPT_UNUSED ) |
| 202 | | PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_START2 ) |
| 203 | | PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_OTHER ) |
| 178 | PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_SLASH) |
| 179 | PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_COLON) |
| 180 | PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_QUOTE) |
| 181 | PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_BACKSLASH) |
| 182 | PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_BACKSPACE) |
| 204 | 183 | PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_START1 ) |
| 205 | 184 | PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_TILT ) |
| 206 | | PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Outhole") PORT_CODE(KEYCODE_X) |
| 185 | PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_Z) |
| 207 | 186 | |
| 208 | 187 | PORT_START("X1") |
| 209 | | PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_COIN2 ) |
| 210 | | PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_COIN1 ) |
| 211 | | PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_COIN3 ) |
| 212 | | PORT_BIT( 0x38, IP_ACTIVE_HIGH, IPT_UNUSED ) |
| 213 | | PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_OTHER ) |
| 188 | PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_COIN1 ) |
| 189 | PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_MINUS) |
| 190 | PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_EQUALS) |
| 191 | PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_L) |
| 192 | PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_OPENBRACE) |
| 193 | PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_CLOSEBRACE) |
| 194 | PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_SERVICE2 ) PORT_NAME("Coin Door") |
| 214 | 195 | PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_TILT1 ) PORT_NAME("Slam Tilt") |
| 215 | 196 | |
| 216 | | // from here, vary per game |
| 217 | 197 | PORT_START("X2") |
| 218 | 198 | PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_A) |
| 219 | 199 | PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_S) |
| r31659 | r31660 | |
| 235 | 215 | PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_O) |
| 236 | 216 | |
| 237 | 217 | PORT_START("X4") |
| 238 | | PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_Z) |
| 218 | PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Outhole") PORT_CODE(KEYCODE_X) |
| 239 | 219 | PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_C) |
| 240 | 220 | PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_V) |
| 241 | 221 | PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_B) |
| r31659 | r31660 | |
| 253 | 233 | WRITE8_MEMBER( hankin_state::ic10_a_w ) |
| 254 | 234 | { |
| 255 | 235 | m_ic10a = data; |
| 256 | | //m_digit = 0xff; |
| 257 | 236 | |
| 258 | 237 | if (!m_ic11_ca2) |
| 259 | 238 | { |
| r31659 | r31660 | |
| 279 | 258 | } |
| 280 | 259 | } |
| 281 | 260 | |
| 261 | WRITE8_MEMBER( hankin_state::ic10_b_w ) |
| 262 | { |
| 263 | if (!m_ic10_cb2) |
| 264 | { |
| 265 | switch (data & 15) |
| 266 | { |
| 267 | case 0x0: // knocker |
| 268 | m_samples->start(0, 6); |
| 269 | break; |
| 270 | case 0x6: // outhole |
| 271 | m_samples->start(0, 5); |
| 272 | break; |
| 273 | case 0x8: |
| 274 | case 0x9: |
| 275 | case 0xa: // bumpers |
| 276 | m_samples->start(0, 0); |
| 277 | break; |
| 278 | case 0xb: |
| 279 | case 0xd: // slings |
| 280 | m_samples->start(0, 7); |
| 281 | break; |
| 282 | } |
| 283 | } |
| 284 | // also sound data |
| 285 | } |
| 286 | |
| 282 | 287 | WRITE_LINE_MEMBER( hankin_state::ic10_ca2_w ) |
| 283 | 288 | { |
| 284 | 289 | output_set_value("led0", !state); |
| 290 | // also sound strobe |
| 285 | 291 | } |
| 286 | 292 | |
| 293 | WRITE_LINE_MEMBER( hankin_state::ic10_cb2_w ) |
| 294 | { |
| 295 | // solenoid strobe |
| 296 | m_ic10_cb2 = state; |
| 297 | } |
| 298 | |
| 287 | 299 | WRITE8_MEMBER( hankin_state::ic11_a_w ) |
| 288 | 300 | { |
| 289 | 301 | static const UINT8 patterns[16] = { 0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0,0,0,0,0,0 }; // MC14543 |
| r31659 | r31660 | |
| 348 | 360 | if (!state) |
| 349 | 361 | m_counter = 0; |
| 350 | 362 | } |
| 351 | | |
| 363 | |
| 364 | // lamp strobe |
| 365 | WRITE_LINE_MEMBER( hankin_state::ic11_cb2_w ) |
| 366 | { |
| 367 | } |
| 368 | |
| 352 | 369 | // zero-cross detection |
| 353 | 370 | TIMER_DEVICE_CALLBACK_MEMBER( hankin_state::timer_x ) |
| 354 | 371 | { |
| r31659 | r31660 | |
| 385 | 402 | //MCFG_PIA_READPA_HANDLER(READ8(hankin_state, ic10_a_r)) |
| 386 | 403 | MCFG_PIA_WRITEPA_HANDLER(WRITE8(hankin_state, ic10_a_w)) |
| 387 | 404 | //MCFG_PIA_READPB_HANDLER(READ8(hankin_state, ic10_b_r)) |
| 388 | | //MCFG_PIA_WRITEPB_HANDLER(WRITE8(hankin_state, ic10_b_w)) |
| 405 | MCFG_PIA_WRITEPB_HANDLER(WRITE8(hankin_state, ic10_b_w)) |
| 389 | 406 | MCFG_PIA_CA2_HANDLER(WRITELINE(hankin_state, ic10_ca2_w)) |
| 390 | | //MCFG_PIA_CB2_HANDLER(WRITELINE(hankin_state, ic10_cb2_w)) |
| 407 | MCFG_PIA_CB2_HANDLER(WRITELINE(hankin_state, ic10_cb2_w)) |
| 391 | 408 | MCFG_PIA_IRQA_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line)) |
| 392 | 409 | MCFG_PIA_IRQB_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line)) |
| 393 | 410 | |
| r31659 | r31660 | |
| 397 | 414 | MCFG_PIA_READPB_HANDLER(READ8(hankin_state, ic11_b_r)) |
| 398 | 415 | //MCFG_PIA_WRITEPB_HANDLER(WRITE8(hankin_state, ic11_b_w)) |
| 399 | 416 | MCFG_PIA_CA2_HANDLER(WRITELINE(hankin_state, ic11_ca2_w)) |
| 400 | | //MCFG_PIA_CB2_HANDLER(WRITELINE(hankin_state, ic11_cb2_w)) |
| 417 | MCFG_PIA_CB2_HANDLER(WRITELINE(hankin_state, ic11_cb2_w)) |
| 401 | 418 | MCFG_PIA_IRQA_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line)) |
| 402 | 419 | MCFG_PIA_IRQB_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line)) |
| 403 | 420 | |