Previous 199869 Revisions Next

r32526 Saturday 4th October, 2014 at 12:03:22 UTC by Robbbert
s8,s8a : fixed diagnostic mode.
[src/mame/drivers]s8.c s8a.c

trunk/src/mame/drivers/s8.c
r32525r32526
4040  features a break-dancing toy and a spinning disk.
4141
4242ToDo:
43- Diagnostic buttons not working
4443
4544
4645************************************************************************************/
r32525r32526
8079   DECLARE_READ8_MEMBER(switch_r);
8180   DECLARE_WRITE8_MEMBER(switch_w);
8281   DECLARE_READ_LINE_MEMBER(pia21_ca1_r);
83   DECLARE_READ_LINE_MEMBER(pia28_ca1_r);
84   DECLARE_READ_LINE_MEMBER(pia28_cb1_r);
8582   DECLARE_WRITE_LINE_MEMBER(pia21_ca2_w);
8683   DECLARE_WRITE_LINE_MEMBER(pia21_cb2_w) { }; // enable solenoids
8784   DECLARE_WRITE_LINE_MEMBER(pia24_cb2_w) { }; // dummy to stop error log filling up
8885   DECLARE_WRITE_LINE_MEMBER(pia28_ca2_w) { }; // comma3&4
8986   DECLARE_WRITE_LINE_MEMBER(pia28_cb2_w) { }; // comma1&2
90   TIMER_DEVICE_CALLBACK_MEMBER(irq);
87   DECLARE_WRITE_LINE_MEMBER(pia_irq);
9188   DECLARE_INPUT_CHANGED_MEMBER(main_nmi);
9289   DECLARE_INPUT_CHANGED_MEMBER(audio_nmi);
9390   DECLARE_MACHINE_RESET(s8);
91   DECLARE_DRIVER_INIT(s8);
9492private:
95   UINT8 m_t_c;
9693   UINT8 m_sound_data;
9794   UINT8 m_strobe;
9895   UINT8 m_kbdrow;
9996   bool m_data_ok;
97   emu_timer* m_irq_timer;
98   virtual void device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr);
99   static const device_timer_id TIMER_IRQ = 0;
100100   required_device<cpu_device> m_maincpu;
101101   required_device<cpu_device> m_audiocpu;
102102   required_device<dac_device> m_dac;
r32525r32526
177177   PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_OTHER) PORT_NAME("Up/Down") PORT_CODE(KEYCODE_6_PAD) PORT_TOGGLE
178178INPUT_PORTS_END
179179
180MACHINE_RESET_MEMBER( s8_state, s8 )
181{
182   m_t_c = 0;
183}
184
185180INPUT_CHANGED_MEMBER( s8_state::main_nmi )
186181{
187182   // Diagnostic button sends a pulse to NMI pin
r32525r32526
221216
222217WRITE8_MEMBER( s8_state::lamp0_w )
223218{
224   m_maincpu->set_input_line(M6800_IRQ_LINE, CLEAR_LINE);
225219}
226220
227READ_LINE_MEMBER( s8_state::pia28_ca1_r )
228{
229   return BIT(ioport("DIAGS")->read(), 2); // advance button
230}
231
232READ_LINE_MEMBER( s8_state::pia28_cb1_r )
233{
234   return BIT(ioport("DIAGS")->read(), 3); // up/down switch
235}
236
237221WRITE8_MEMBER( s8_state::dig0_w )
238222{
239223   static const UINT8 patterns[16] = { 0x3f, 0x06, 0x5b, 0x4f, 0x66, 0x6d, 0x7c, 0x07, 0x7f, 0x67, 0x58, 0x4c, 0x62, 0x69, 0x78, 0 }; // 7447
r32525r32526
271255   return m_sound_data;
272256}
273257
274TIMER_DEVICE_CALLBACK_MEMBER( s8_state::irq )
258WRITE_LINE_MEMBER( s8_state::pia_irq )
275259{
276   if (m_t_c > 0x70)
277      m_maincpu->set_input_line(M6800_IRQ_LINE, ASSERT_LINE);
260   if(state == CLEAR_LINE)
261   {
262      // restart IRQ timer
263      m_irq_timer->adjust(attotime::from_ticks(980,1e6),1);
264   }
278265   else
279      m_t_c++;
266   {
267      // disable IRQ timer while other IRQs are being handled
268      // (counter is reset every 32 cycles while a PIA IRQ is handled)
269      m_irq_timer->adjust(attotime::zero);
270   }
280271}
281272
273void s8_state::device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr)
274{
275   switch(id)
276   {
277   case TIMER_IRQ:
278      if(param == 1)
279      {
280         m_maincpu->set_input_line(M6800_IRQ_LINE,ASSERT_LINE);
281         m_irq_timer->adjust(attotime::from_ticks(32,1e6),0);
282         m_pia28->ca1_w(BIT(ioport("DIAGS")->read(), 2));  // Advance
283         m_pia28->cb1_w(BIT(ioport("DIAGS")->read(), 3));  // Up/Down
284      }
285      else
286      {
287         m_maincpu->set_input_line(M6800_IRQ_LINE,CLEAR_LINE);
288         m_irq_timer->adjust(attotime::from_ticks(980,1e6),1);
289         m_pia28->ca1_w(1);
290         m_pia28->cb1_w(1);
291      }
292      break;
293   }
294}
295
296MACHINE_RESET_MEMBER( s8_state, s8 )
297{
298}
299
300DRIVER_INIT_MEMBER( s8_state, s8 )
301{
302   m_irq_timer = timer_alloc(TIMER_IRQ);
303   m_irq_timer->adjust(attotime::from_ticks(980,1e6),1);
304}
305
282306static MACHINE_CONFIG_START( s8, s8_state )
283307   /* basic machine hardware */
284308   MCFG_CPU_ADD("maincpu", M6802, XTAL_4MHz)
285309   MCFG_CPU_PROGRAM_MAP(s8_main_map)
286   MCFG_TIMER_DRIVER_ADD_PERIODIC("irq", s8_state, irq, attotime::from_hz(250))
287310   MCFG_MACHINE_RESET_OVERRIDE(s8_state, s8)
288311
289312   /* Video */
r32525r32526
300323   MCFG_PIA_WRITEPB_HANDLER(WRITE8(s8_state, sol2_w))
301324   MCFG_PIA_CA2_HANDLER(WRITELINE(s8_state, pia21_ca2_w))
302325   MCFG_PIA_CB2_HANDLER(WRITELINE(s8_state, pia21_cb2_w))
303   MCFG_PIA_IRQA_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
304   MCFG_PIA_IRQB_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
326   MCFG_PIA_IRQA_HANDLER(WRITELINE(s8_state, pia_irq))
327   MCFG_PIA_IRQB_HANDLER(WRITELINE(s8_state, pia_irq))
305328
306329   MCFG_DEVICE_ADD("pia24", PIA6821, 0)
307330   MCFG_PIA_WRITEPA_HANDLER(WRITE8(s8_state, lamp0_w))
308331   MCFG_PIA_WRITEPB_HANDLER(WRITE8(s8_state, lamp1_w))
309332   MCFG_PIA_CB2_HANDLER(WRITELINE(s8_state, pia24_cb2_w))
310   MCFG_PIA_IRQA_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
311   MCFG_PIA_IRQB_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
333   MCFG_PIA_IRQA_HANDLER(WRITELINE(s8_state, pia_irq))
334   MCFG_PIA_IRQB_HANDLER(WRITELINE(s8_state, pia_irq))
312335
313336   MCFG_DEVICE_ADD("pia28", PIA6821, 0)
314   MCFG_PIA_READCA1_HANDLER(READLINE(s8_state, pia28_ca1_r))
315   MCFG_PIA_READCB1_HANDLER(READLINE(s8_state, pia28_cb1_r))
316337   MCFG_PIA_WRITEPA_HANDLER(WRITE8(s8_state, dig0_w))
317338   MCFG_PIA_WRITEPB_HANDLER(WRITE8(s8_state, dig1_w))
318339   MCFG_PIA_CA2_HANDLER(WRITELINE(s8_state, pia28_ca2_w))
319340   MCFG_PIA_CB2_HANDLER(WRITELINE(s8_state, pia28_cb2_w))
320   MCFG_PIA_IRQA_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
321   MCFG_PIA_IRQB_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
341   MCFG_PIA_IRQA_HANDLER(WRITELINE(s8_state, pia_irq))
342   MCFG_PIA_IRQB_HANDLER(WRITELINE(s8_state, pia_irq))
322343
323344   MCFG_DEVICE_ADD("pia30", PIA6821, 0)
324345   MCFG_PIA_READPA_HANDLER(READ8(s8_state, switch_r))
325346   MCFG_PIA_WRITEPB_HANDLER(WRITE8(s8_state, switch_w))
326   MCFG_PIA_IRQA_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
327   MCFG_PIA_IRQB_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
347   MCFG_PIA_IRQA_HANDLER(WRITELINE(s8_state, pia_irq))
348   MCFG_PIA_IRQB_HANDLER(WRITELINE(s8_state, pia_irq))
328349
329   MCFG_NVRAM_ADD_1FILL("nvram")
350   MCFG_NVRAM_ADD_0FILL("nvram")
330351
331352   /* Add the soundcard */
332353   MCFG_CPU_ADD("audiocpu", M6808, XTAL_4MHz)
r32525r32526
364385ROM_END
365386
366387
367GAME(1984,pfevr_l2, 0,        s8, s8, driver_device, 0, ROT0, "Williams", "Pennant Fever (L-2)", GAME_MECHANICAL)
368GAME(1984,pfevr_p3, pfevr_l2, s8, s8, driver_device, 0, ROT0, "Williams", "Pennant Fever (P-3)", GAME_MECHANICAL)
388GAME(1984,pfevr_l2, 0,        s8, s8, s8_state, s8, ROT0, "Williams", "Pennant Fever (L-2)", GAME_MECHANICAL)
389GAME(1984,pfevr_p3, pfevr_l2, s8, s8, s8_state, s8, ROT0, "Williams", "Pennant Fever (P-3)", GAME_MECHANICAL)
trunk/src/mame/drivers/s8a.c
r32525r32526
1717  The score only has 5 digits, but the game stores the 100,000 digit internally.
1818
1919ToDo:
20- Diagnostic buttons not working
2120
2221************************************************************************************/
2322
r32525r32526
5655   DECLARE_READ8_MEMBER(switch_r);
5756   DECLARE_WRITE8_MEMBER(switch_w);
5857   DECLARE_READ_LINE_MEMBER(pia21_ca1_r);
59   DECLARE_READ_LINE_MEMBER(pia28_ca1_r);
60   DECLARE_READ_LINE_MEMBER(pia28_cb1_r);
6158   DECLARE_WRITE_LINE_MEMBER(pia21_ca2_w);
6259   DECLARE_WRITE_LINE_MEMBER(pia21_cb2_w) { }; // enable solenoids
6360   DECLARE_WRITE_LINE_MEMBER(pia24_cb2_w) { }; // dummy to stop error log filling up
6461   DECLARE_WRITE_LINE_MEMBER(pia28_ca2_w) { }; // comma3&4
6562   DECLARE_WRITE_LINE_MEMBER(pia28_cb2_w) { }; // comma1&2
66   TIMER_DEVICE_CALLBACK_MEMBER(irq);
63   DECLARE_WRITE_LINE_MEMBER(pia_irq);
6764   DECLARE_INPUT_CHANGED_MEMBER(main_nmi);
6865   DECLARE_INPUT_CHANGED_MEMBER(audio_nmi);
6966   DECLARE_MACHINE_RESET(s8a);
67   DECLARE_DRIVER_INIT(s8a);
7068private:
71   UINT8 m_t_c;
7269   UINT8 m_sound_data;
7370   UINT8 m_strobe;
7471   UINT8 m_kbdrow;
7572   bool m_data_ok;
73   emu_timer* m_irq_timer;
74   virtual void device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr);
75   static const device_timer_id TIMER_IRQ = 0;
7676   required_device<cpu_device> m_maincpu;
7777   required_device<cpu_device> m_audiocpu;
7878   required_device<dac_device> m_dac;
r32525r32526
8383   required_device<pia6821_device> m_pia30;
8484};
8585
86static ADDRESS_MAP_START( s8_main_map, AS_PROGRAM, 8, s8a_state )
86static ADDRESS_MAP_START( s8a_main_map, AS_PROGRAM, 8, s8a_state )
8787   ADDRESS_MAP_GLOBAL_MASK(0x7fff)
8888   AM_RANGE(0x0000, 0x07ff) AM_RAM AM_SHARE("nvram")
8989   AM_RANGE(0x2100, 0x2103) AM_DEVREADWRITE("pia21", pia6821_device, read, write) // sound+solenoids
r32525r32526
9494   AM_RANGE(0x6000, 0x7fff) AM_ROM AM_REGION("roms", 0)
9595ADDRESS_MAP_END
9696
97static ADDRESS_MAP_START( s8_audio_map, AS_PROGRAM, 8, s8a_state )
97static ADDRESS_MAP_START( s8a_audio_map, AS_PROGRAM, 8, s8a_state )
9898   AM_RANGE(0x0000, 0x00ff) AM_RAM
9999   AM_RANGE(0x2000, 0x2003) AM_DEVREADWRITE("pias", pia6821_device, read, write)
100100   AM_RANGE(0xc000, 0xffff) AM_ROM AM_REGION("audioroms", 0)
101101ADDRESS_MAP_END
102102
103static INPUT_PORTS_START( s8 )
103static INPUT_PORTS_START( s8a )
104104   PORT_START("X0")
105105   PORT_BIT( 0xff, IP_ACTIVE_LOW, IPT_UNUSED )
106106
r32525r32526
149149   PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_OTHER) PORT_NAME("Up/Down") PORT_CODE(KEYCODE_6_PAD) PORT_TOGGLE
150150INPUT_PORTS_END
151151
152MACHINE_RESET_MEMBER( s8a_state, s8a )
153{
154   m_t_c = 0;
155}
156
157152INPUT_CHANGED_MEMBER( s8a_state::main_nmi )
158153{
159154   // Diagnostic button sends a pulse to NMI pin
r32525r32526
193188
194189WRITE8_MEMBER( s8a_state::lamp0_w )
195190{
196   m_maincpu->set_input_line(M6800_IRQ_LINE, CLEAR_LINE);
197191}
198192
199READ_LINE_MEMBER( s8a_state::pia28_ca1_r )
200{
201   return BIT(ioport("DIAGS")->read(), 2); // advance button
202}
203
204READ_LINE_MEMBER( s8a_state::pia28_cb1_r )
205{
206   return BIT(ioport("DIAGS")->read(), 3); // up/down switch
207}
208
209193WRITE8_MEMBER( s8a_state::dig0_w )
210194{
211195   static const UINT8 patterns[16] = { 0x3f, 0x06, 0x5b, 0x4f, 0x66, 0x6d, 0x7c, 0x07, 0x7f, 0x67, 0x58, 0x4c, 0x62, 0x69, 0x78, 0 }; // 7447
r32525r32526
243227   return m_sound_data;
244228}
245229
246TIMER_DEVICE_CALLBACK_MEMBER( s8a_state::irq )
230WRITE_LINE_MEMBER( s8a_state::pia_irq )
247231{
248   if (m_t_c > 0x70)
249      m_maincpu->set_input_line(M6800_IRQ_LINE, ASSERT_LINE);
232   if(state == CLEAR_LINE)
233   {
234      // restart IRQ timer
235      m_irq_timer->adjust(attotime::from_ticks(980,1e6),1);
236   }
250237   else
251      m_t_c++;
238   {
239      // disable IRQ timer while other IRQs are being handled
240      // (counter is reset every 32 cycles while a PIA IRQ is handled)
241      m_irq_timer->adjust(attotime::zero);
242   }
252243}
253244
254static MACHINE_CONFIG_START( s8, s8a_state )
245void s8a_state::device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr)
246{
247   switch(id)
248   {
249   case TIMER_IRQ:
250      if(param == 1)
251      {
252         m_maincpu->set_input_line(M6800_IRQ_LINE,ASSERT_LINE);
253         m_irq_timer->adjust(attotime::from_ticks(32,1e6),0);
254         m_pia28->ca1_w(BIT(ioport("DIAGS")->read(), 2));  // Advance
255         m_pia28->cb1_w(BIT(ioport("DIAGS")->read(), 3));  // Up/Down
256      }
257      else
258      {
259         m_maincpu->set_input_line(M6800_IRQ_LINE,CLEAR_LINE);
260         m_irq_timer->adjust(attotime::from_ticks(980,1e6),1);
261         m_pia28->ca1_w(1);
262         m_pia28->cb1_w(1);
263      }
264      break;
265   }
266}
267
268MACHINE_RESET_MEMBER( s8a_state, s8a )
269{
270}
271
272DRIVER_INIT_MEMBER( s8a_state, s8a )
273{
274   m_irq_timer = timer_alloc(TIMER_IRQ);
275   m_irq_timer->adjust(attotime::from_ticks(980,1e6),1);
276}
277
278static MACHINE_CONFIG_START( s8a, s8a_state )
255279   /* basic machine hardware */
256280   MCFG_CPU_ADD("maincpu", M6802, XTAL_4MHz)
257   MCFG_CPU_PROGRAM_MAP(s8_main_map)
258   MCFG_TIMER_DRIVER_ADD_PERIODIC("irq", s8a_state, irq, attotime::from_hz(250))
281   MCFG_CPU_PROGRAM_MAP(s8a_main_map)
259282   MCFG_MACHINE_RESET_OVERRIDE(s8a_state, s8a)
260283
261284   /* Video */
r32525r32526
272295   MCFG_PIA_WRITEPB_HANDLER(WRITE8(s8a_state, sol2_w))
273296   MCFG_PIA_CA2_HANDLER(WRITELINE(s8a_state, pia21_ca2_w))
274297   MCFG_PIA_CB2_HANDLER(WRITELINE(s8a_state, pia21_cb2_w))
275   MCFG_PIA_IRQA_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
276   MCFG_PIA_IRQB_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
298   MCFG_PIA_IRQA_HANDLER(WRITELINE(s8a_state, pia_irq))
299   MCFG_PIA_IRQB_HANDLER(WRITELINE(s8a_state, pia_irq))
277300
278301   MCFG_DEVICE_ADD("pia24", PIA6821, 0)
279302   MCFG_PIA_WRITEPA_HANDLER(WRITE8(s8a_state, lamp0_w))
280303   MCFG_PIA_WRITEPB_HANDLER(WRITE8(s8a_state, lamp1_w))
281304   MCFG_PIA_CB2_HANDLER(WRITELINE(s8a_state, pia24_cb2_w))
282   MCFG_PIA_IRQA_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
283   MCFG_PIA_IRQB_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
305   MCFG_PIA_IRQA_HANDLER(WRITELINE(s8a_state, pia_irq))
306   MCFG_PIA_IRQB_HANDLER(WRITELINE(s8a_state, pia_irq))
284307
285308   MCFG_DEVICE_ADD("pia28", PIA6821, 0)
286   MCFG_PIA_READCA1_HANDLER(READLINE(s8a_state, pia28_ca1_r))
287   MCFG_PIA_READCB1_HANDLER(READLINE(s8a_state, pia28_cb1_r))
288309   MCFG_PIA_WRITEPA_HANDLER(WRITE8(s8a_state, dig0_w))
289310   MCFG_PIA_WRITEPB_HANDLER(WRITE8(s8a_state, dig1_w))
290311   MCFG_PIA_CA2_HANDLER(WRITELINE(s8a_state, pia28_ca2_w))
291312   MCFG_PIA_CB2_HANDLER(WRITELINE(s8a_state, pia28_cb2_w))
292   MCFG_PIA_IRQA_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
293   MCFG_PIA_IRQB_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
313   MCFG_PIA_IRQA_HANDLER(WRITELINE(s8a_state, pia_irq))
314   MCFG_PIA_IRQB_HANDLER(WRITELINE(s8a_state, pia_irq))
294315
295316   MCFG_DEVICE_ADD("pia30", PIA6821, 0)
296317   MCFG_PIA_READPA_HANDLER(READ8(s8a_state, switch_r))
297318   MCFG_PIA_WRITEPB_HANDLER(WRITE8(s8a_state, switch_w))
298   MCFG_PIA_IRQA_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
299   MCFG_PIA_IRQB_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line))
319   MCFG_PIA_IRQA_HANDLER(WRITELINE(s8a_state, pia_irq))
320   MCFG_PIA_IRQB_HANDLER(WRITELINE(s8a_state, pia_irq))
300321
301   MCFG_NVRAM_ADD_1FILL("nvram")
322   MCFG_NVRAM_ADD_0FILL("nvram")
302323
303324   /* Add the soundcard */
304325   MCFG_CPU_ADD("audiocpu", M6808, XTAL_4MHz)
305   MCFG_CPU_PROGRAM_MAP(s8_audio_map)
326   MCFG_CPU_PROGRAM_MAP(s8a_audio_map)
306327   MCFG_SPEAKER_STANDARD_MONO("mono")
307328   MCFG_SOUND_ADD("dac", DAC, 0)
308329   MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 1.00)
r32525r32526
327348   ROM_LOAD("ic49.bin", 0x0000, 0x4000, CRC(bcc8ccc4) SHA1(2312f9cc4f5a2dadfbfa61d13c31bb5838adf152) )
328349ROM_END
329350
330GAME(1984,scrzy_l1, 0, s8, s8, driver_device, 0, ROT0, "Williams", "Still Crazy", GAME_MECHANICAL )
351GAME(1984,scrzy_l1, 0, s8a, s8a, s8a_state, s8a, ROT0, "Williams", "Still Crazy", GAME_MECHANICAL )

Previous 199869 Revisions Next

© 1997-2024 The MAME Team