Previous 199869 Revisions Next

r32791 Friday 17th October, 2014 at 22:58:49 UTC by Robbbert
gts80b.c : Display is working.
[src/mame/drivers]gts80b.c

trunk/src/mame/drivers/gts80b.c
r32790r32791
55
66  Same as system 80, except that the displays are 20-digit alphanumeric driven by Rockwell 10939/10941 chips.
77
8  Nothing works
8  Nothing works.
99
10  PinMAME used for the display character generator.
11
1012*****************************************************************************************************************/
1113
1214#include "machine/genpin.h"
r32790r32791
3335   DECLARE_WRITE8_MEMBER(port3a_w);
3436   DECLARE_WRITE8_MEMBER(port3b_w);
3537private:
36   UINT8 m_port2;
37   UINT8 m_segment;
38   UINT8 m_dispcmd;
39   UINT8 m_port2a;
40   UINT8 m_port2b;
3841   UINT8 m_lamprow;
3942   UINT8 m_swrow;
43   bool m_in_cmd_mode[2];
44   UINT8 m_digit[2];
4045   virtual void machine_reset();
4146   required_device<cpu_device> m_maincpu;
4247   optional_device<gottlieb_sound_r0_device> m_r0_sound;
r32790r32791
244249   PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_CODE(KEYCODE_O)
245250INPUT_PORTS_END
246251
252static const UINT16 patterns[] = {
253  /* 0x00-0x07 */ 0x0000, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
254  /* 0x08-0x0f */ 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
255  /* 0x10-0x17 */ 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
256  /* 0x18-0x1f */ 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
257  /* 0x20-0x27 */ 0x0000, 0x0309, 0x0220, 0x2A4E, 0x2A6D, 0x6E65, 0x135D, 0x0400,
258  /* 0x28-0x2f */ 0x1400, 0x4100, 0x7F40, 0x2A40, 0x0000, 0x0840, 0x0000, 0x4400,
259  /* 0x30-0x37 */ 0x003f, 0x2200, 0x085B, 0x084f, 0x0866, 0x086D, 0x087D, 0x0007,
260  /* 0x38-0x3f */ 0x087F, 0x086F, 0x0009, 0x4001, 0x4408, 0x0848, 0x1108, 0x2803,
261  /* 0x40-0x47 */ 0x205F, 0x0877, 0x2A0F, 0x0039, 0x220F, 0x0079, 0x0071, 0x083D,
262  /* 0x48-0x4f */ 0x0876, 0x2209, 0x001E, 0x1470, 0x0038, 0x0536, 0x1136, 0x003f,
263  /* 0x50-0x57 */ 0x0873, 0x103F, 0x1873, 0x086D, 0x2201, 0x003E, 0x4430, 0x5036,
264  /* 0x58-0x5f */ 0x5500, 0x2500, 0x4409, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
265  /* 0x60-0x67 */ 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
266  /* 0x68-0x6f */ 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
267  /* 0x70-0x77 */ 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
268  /* 0x78-0x7f */ 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
269};
270
247271READ8_MEMBER( gts80b_state::port1a_r )
248272{
249273   char kbdrow[8];
250274   UINT8 data = 0;
251   if ((m_lamprow < 4) && (m_segment==0x80))
275   if ((m_lamprow < 4) && (m_port2b==0x80))
252276   {
253277      sprintf(kbdrow,"DSW.%d",m_lamprow);
254278      data = ioport(kbdrow)->read();
r32790r32791
264288
265289READ8_MEMBER( gts80b_state::port2a_r )
266290{
267   return m_port2 | 0x80; // slam tilt off
291   return m_port2a | 0x80; // slam tilt off
268292}
269293
270294// sw strobes
r32790r32791
273297   m_swrow = data;
274298}
275299
276// schematic and pinmame say '1' is indicated by m_segment !bits 4,5,6, but it is !bit 7
277300WRITE8_MEMBER( gts80b_state::port2a_w )
278301{
279   m_port2 = data;
280   static const UINT8 patterns[16] = { 0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7c,0x07,0x7f,0x67,0x58,0x4c,0x62,0x69,0x78,0 }; // 7448
281   UINT16 seg1 = (UINT16)patterns[m_segment & 15];
282   UINT16 seg2 = BITSWAP16(seg1, 8, 8, 8, 8, 8, 8, 7, 7, 6, 6, 5, 4, 3, 2, 1, 0);
283   switch (data & 0x70)
284   {
285      case 0x10: // player 1&2
286         if (!BIT(m_segment, 7)) seg2 |= 0x300; // put '1' in the middle
287         output_set_digit_value(data & 15, seg2);
288         break;
289      case 0x20: // player 3&4
290         if (!BIT(m_segment, 7)) seg2 |= 0x300; // put '1' in the middle
291         output_set_digit_value((data & 15)+20, seg2);
292         break;
293      case 0x40: // credits & balls
294         if (!BIT(m_segment, 7)) m_segment = 1; // turn '1' back to normal
295         output_set_digit_value((data & 15)+40, patterns[m_segment & 15]);
296         break;
297   }
302   m_port2a = data;
303   if BIT(data, 4)
304      m_dispcmd = (m_dispcmd & 0xf0) | m_port2b;
305   if BIT(data, 5)
306      m_dispcmd = (m_dispcmd & 0x0f) | (m_port2b << 4);
298307}
299308
300//d0-3 bcd data; d4-6 = centre segment; d7 = dipsw enable
309//d0-3 data; d4-5 = which display enabled; d6 = display reset; d7 = dipsw enable
301310WRITE8_MEMBER( gts80b_state::port2b_w )
302311{
303   m_segment = data;//printf("%s:%X ",machine().describe_context(),data);
312   m_port2b = data & 15;
313   UINT16 segment;
314
315   // crude approximation of the Rockwell display chips
316   for (UINT8 i = 0; i < 2; i++) // 2 chips
317   {
318      if (!BIT(data, i+4)) // are we addressing the chip?
319      {
320         if (m_in_cmd_mode[i]) // in command mode?
321         {
322            if ((m_dispcmd >= 0xc0) && (m_dispcmd < 0xd4)) // we only support one command
323               m_digit[i] = data & 0x1f;
324            m_in_cmd_mode[i] = false;
325         }
326         else
327         if (m_dispcmd == 1) // 01 = enter command mode
328         {
329            m_in_cmd_mode[i] = true;
330         }
331         else
332         { // display a character
333            segment = patterns[m_dispcmd & 0x7f]; // ignore blank/inverse bit
334            segment = BITSWAP16(segment, 12, 10, 8, 14, 13, 9, 11, 6, 5, 4, 3, 3, 2, 1, 0, 0);
335            output_set_digit_value(m_digit[i]+i*20, segment);
336            m_digit[i]++; // auto-increment pointer
337            if (m_digit[i] > 19) m_digit[i] = 0; // check for overflow
338         }
339      }
340   }
304341}
305342
306343// solenoids
r32790r32791
321358
322359void gts80b_state::machine_reset()
323360{
361   m_in_cmd_mode[0] = false;
362   m_in_cmd_mode[1] = false;
324363}
325364
326365DRIVER_INIT_MEMBER( gts80b_state, gts80b )

Previous 199869 Revisions Next

© 1997-2024 The MAME Team