Sprinter/mame
2
0
Fork 0
mirror of https://github.com/holub/mame synced 2025-04-19 23:12:11 +03:00
Code Issues Actions 6 Packages Projects Releases Wiki Activity

Merge pull request #579 from JoakimLarsson/didact_r8

Browse Source 
- Added support for Didact md6802
This commit is contained in:
David Haywood 2016-01-25 00:33:45 +00:00
commit e34b9f62f2
4 changed files with 595 additions and 167 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

520
src/mame/drivers/didact.cpp
View File

@ -1,90 +1,79 @@
// license:BSD-3-Clause
// copyright-holders:Joakim Larsson Edstrom
/*
* The Didact Esselte 100 CPU board
*__________________________________________________________________________________________________________
* |
* The Didact Esselte 100 CPU board |
*__________________________________________________________________________________________________________|
*
* The Didact Mikrodator 6802 CPU board by lars Björklund 1983
*__________________________________________________________________________________________________________
* |
*__________________________________________________________________________________________________________|
*
* The Didact Mp68A CPU board, by Anders Andersson 1979
*__________________________________________________________________________________________________________
* 74138 |
* +------+ +-------+ +--+ |
* | 7402 | | 74490 | | | +-------+ +--+ |
* +-------+ +------+ +-------+ | | | | | | |
* | | 2112 2112 | | | EXP | | | |
* | ROM | +--+ +--+ +--+ | ANS | |P | |
* | 7641 | | | | | | ION | |I | |
* | | |A | |B | +-----+ | BUSES | |A | |
* | 512x8 | | | | | | | | (2 x) | | | |
* | | +--+ +--+ | | | FOR | |A | |
* +-------+ RAMS 4x256x4 | | | | | | |
* ROMS 2x512x8 2112 2112 | | | KEY | |E | |
* +-------+ +--+ +--+ |CPU | | BOARD | +------+ |X | |
* | | | | | | |6800 | | | | | |P | |
* | ROM | |A | |B | | | | AND | | | |A | |
* | 7641 | | | | | | | | | | | |N | |
* | | +--+ +--+ | | | I/O | | 6820 | |S | |
* | 512x8 | 512 bytes RAM | | | BOARDS| | PIA | |I | |
* +-------+ | | | | | #1 | |O | +-----+
* 1024 bytes ROM | | | | | | |N | | |
* +-----+ | | | | | | PIA A | |
* 7402 7412 | | | | |B | EXPANSION| |
* +--+ +--+ | | | | |U | CONNECTOR| |
* | | | | | | | | |S | | _|
* | | | | | | | | | | J4 | |
* | | | | | | +------+ | | | |_
* +--+ +--+ +--------+ | | | | | |
* +-+ | 96LS02 | | | | | | |
* R * * * R |T| +--------+ | | | | | |
* O X A |R| | | | | | |
* M * * * M |M| Oscillator circuits +-------+ +--+ | |
* |_| J1 J2 J3 +-----+
*__________________________________________________________________________________________________________|
*
* The Didact Mp68A Keypad and Display board, tb16a, Anders Andersson 1979
*______________________________________________________
* +oooo+ |
* 6064 +-------+ |cass| |
* +--+ | 9368 | +----+ +--+|
* +-------+ |B | +-------+ | ||
* | 74132 | |CD| 145 |E ||
* +-------+ |DI| +--+ 132 |X ||
* +------+------+ | S| | | +--+ |P ||
* | | | | P| | | | | |A ||
* | RES |(led) | +--+ | | | | |N ||
* | | * | +--+ | | |S ||
* +------+------+------+------+ +--+ |I ||
* | | | | | |O ||
* | ADR | RUN | SST | REG | |N ||
* | 0 | 4 | 8 | C | | ||
* +------+------+------+------+ |C ||
* | | | | | |O ||
* | STA | STO | BPR | BPS | |N ||
* | 1 | 5 | 9 | D | |N ||
* +------+------+------+------+ +------+ |E ||
* | | | | | | | |C ||
* | EXF | EXB | MOV | PRM | | | |T ||
* | 2 | 6 | A | E | | | |O ||
* +------+------+------+------+ | 6820 | |R ||
* | | | | | | PIA | | ||
* | CLR | REL | REC | PLA | | #2 | | ||
* | 3 | 7 | B | F | | | | ||
* +------+------+------+------+ | | | ||
* +-------+ +-------+ +------+ | | | ||
* | 74148 | | 74148 | | 7400 | | | | ||
* +-------+ +-------+ +------+ | | +--+|
* | | |
* +---------+ +------+ J1 |
*________| ___ |___________________________________|
* | _|||_ |
* /|_| |_|\
* ___________________________________________________________________________________________________________ _____________________________________________________
* | The Didact Mp68A CPU board, by Anders Andersson 1979 | |The Didact Mp68A keypad/display PB6 +oooo+ |
* | +------+ +-------+ +--+ | | by Anders Andersson 1979 +-------+ |cass| |
* | | 7402 | | 74490 | | | +-------+ +--+ | | +--+ | 9368 | +----+ +--+|
* | +-------+ +------+ +-------+ | | | | | | | |+-------+ 2x5082-|B | +-------+ | ||
* | | | 2112 2112 | | | EXP | | | | || 74132 | 7433|CD| 145 PA0-PA3 |E ||
* | | ROM | +--+ +--+ +--+ | ANS | |P | | |+-------+ |DI| +--+ 132 |X ||
* | | 7641 | | | | | | ION | |I | | |+------+------+ | S| | | +--+ |P ||
* | | | |A | |B | +-----+ | BUSES | |A | | || |SHIFT | | P| | | PA4-PA6 | | |A ||
* | | 512x8 | | | | | | | | (2 x) | | | | || RES |(led) | +--+ | | | | |N ||
* | | | +--+ +--+ | | | FOR | |A | | || | * | +--+ | | |S ||
* | +-------+ RAMS 4x256x4 | | | | | | | |+------+------+------+------+ +--+ |I ||
* | ROMS 2x512x8 2112 2112 | | | KEY | |E | | || | | | | |O ||
* | +-------+ +--+ +--+ |CPU | | BOARD | +------+ |X | | || ADR | RUN | SST | REG | |N ||
* | | | | | | | |6800 | | | | | |P | | || 0 | 4 | 8 | C | | ||
* | | ROM | |A | |B | | | | AND | | | |A | | |+------+------+------+------+ |C ||
* | | 7641 | | | | | | | | | | | |N | | || | | | | |O ||
* | | | +--+ +--+ | | | I/O | | 6820 | |S | | || STA | STO | BPR | BPS | |N ||
* | | 512x8 | 512 bytes RAM | | | BOARDS| | PIA | |I | | || 1 | 5 | 9 | D | |N ||
* | +-------+ | | | | | #1 | |O | +-----+ |+------+------+------+------+ +------+ |E ||
* | 1024 bytes ROM | | | | | | |N | | | || | | | | | | |C ||
* | +-----+ | | | | | | PIA A | | || EXF | EXB | MOV | PRM | | | |T ||
* | 7402 7412 | | | | |B | EXPANSION| | || 2 | 6 | A | E | | | |O ||
* | +--+ +--+ | | | | |U | CONNECTOR| | |+------+------+------+------+ | 6820 | |R ||
* | | | | | | | | | |S | | _| || | | | | | PIA | | ||
* | | | | | | | | | | | J4 | | || CLR | REL | REC | PLA | | #2 | | ||
* | | | | | | | +------+ | | | |_ || 3 | 7 | B | F | | | | ||
* | +--+ +--+ +--------+ | | | | | | |+------+------+------+------+ | | | ||
* | +-+ | 96LS02 | | | | | | | | +-------+ +-------+ +------+ | | | ||
* | R * * * R |T| +--------+ | | | | | | | | 74148 | | 74148 | | 7400 | | | | ||
* | O X A |R| | | | | | | | +-------+ +-------+ +------+ | | +--+|
* | M * * * M |M| Oscillator circuits +-------+ +--+ | | | PB3 PB0-PB2 | | |
* | |_| J1 J2 J3 +-----+ | +---------+ +------+ J1 |
* |____________________________________________________________________________________________________________| |______ | _|||_ |___________________________________|
*
* _____________________________________________________________________________________________ ___________________________________________________________________________
* |The Didact Mikrodator 6802 CPU board by Lars Björklund 1983 ( ) | |The Didact Mikrodator 6802 TB16 board by Lars Björklund 1983 |
* | +----= | | +-|||||||-+ ______ |
* | | = | | CA2 Tx |terminal | | () | |
* | | = | | PA7 Rx +---------+ +----------+ C1nF,<=R18k| | |
* | Photo of CPU board mainly covered by TB16 Keypad/Display board +--- = | | CA1 DTR +-----------+ | | CB2->CB1 | E | |
* | | | PA4-PA6 | | 1 | BCD | +----+ | X | |
* | | | ------->| 74LS145 | | digit 5 | |LS | | P | |
* | | | +-----------+ |----------| | 122| | A | |
* | +-----=| | | | | | | | N | |
* | +-------+ | =| |------ +--------+ | 2 | BCD | | | | S | |
* | | | | =| | RES* | SHIFT | LED( ) | | digit 4 | | | | I | |
* | | | | =| | | '*' | CA2 v |----------| +----+ | O | |
* | | 6821 | | =| | PA3 |PA7 PA2 | PA1 PA0 | | +----| N | |
* | | PIA | | =| |----|--+-----|--+--|-----+--|---+ 3 | | PB0-|LS | | |
* | | | | =| | v | v | v | v | | BCD | PB7| 244| C | |
* | | | | =| | ADR | RUN | SST | CON | 1 | digit 3 | --->| | O | |
* | | | | =| | 0 | 4 | 8 | C | |----------| | | N | |
* | | | | =| |-------+--------+--------+------+ | |<-------| | N | |
* | | | | =| | | | | | 4 | | +----| E | |
* | | | | =| | STA | BPS | USERV | | 2 | BCD | | C | |
* | | | | =| | 1 | 5 | 9 | D | | digit 2 | | T | |
* | | | | =| |-------+--------+--------+------+ |----------| | O | |
* | | | | =| | | | | | | | | R | |
* | | | | =| | EXF | EXB | MOV | LOAD | 3 5 | BCD | | | |
* | | | | =| | 2 | 6 | A | E | | digit 1 | | | |
* | +-------+ | =| |-------+--------+--------+------+ |----------| | | |
* | | =| | | | | | | | | | |
* | +-----=| | CLR | SP | USERJ | FLAG | 4 6 | BCD | | | |
* | | | 3 | 7 | B | F | | digit 0 | | () | |
* | | |-------+--------+--------+------+ +----------+ +------+ |
* | | | |
* | | | |
* |____________________________________________________________________________________________| |___________________________________________________________________________|
*
* History of Didact
*------------------
@ -98,35 +87,41 @@
*
* Misc links about the boards supported by this driver.
*-----------------------------------------------------
* http://www.elektronikforumet.com/forum/viewtopic.php?f=11&t=51424
* http://elektronikforumet.com/forum/viewtopic.php?f=11&t=51424
* http://kilroy71.fastmail.fm/gallery/Miscellaneous/20120729_019.jpg
* http://elektronikforumet.com/forum/download/file.php?id=63988&mode=view
* http://elektronikforumet.com/forum/viewtopic.php?f=2&t=79576&start=150#p1203915
*
* TODO:
* Didact designs: mp68a, md6802, Esselte 100, Candela
* TODO:
* Didact designs: mp68a, md6802, md6802v3, Esselte 100, Candela
* --------------------------------------------------------------------------
* - Add PCB layouts OK
* - Add PCB layouts OK OK
* - Dump ROM:s, OK OK
* - Keyboard OK
* - Display/CRT OK
* - Clickable Artwork RQ
* - Sound NA
* - Keyboard OK OK
* - Display/CRT OK OK
* - Clickable Artwork RQ RQ
* - Sound NA NA
* - Cassette i/f
* - Expansion bus
* - Expansion overlay
*
* - The md6802 has a strange delay in keyboard input that needs to be investigated
*
****************************************************************************/
#include "emu.h"
#include "cpu/m6800/m6800.h"
#include "machine/6821pia.h" // For all boards
#include "video/dm9368.h" // For the mp68a
#include "machine/74145.h" // For the md6802
// Generated artwork includes
#include "mp68a.lh"
#include "md6802.lh"
#define VERBOSE 0
#define LOG(x) do { if (VERBOSE) logerror x; } while (0)
#if VERBOSE == 2
#if VERBOSE >= 2
#define logerror printf
#endif
@ -136,52 +131,12 @@
#define FUNCNAME __PRETTY_FUNCTION__
#endif
/* Esselte 100 driver class */
class e100_state : public driver_device
/* Didact base class */
class didact_state : public driver_device
{
public:
e100_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag),
m_maincpu(*this, "maincpu"),
m_pia1(*this, "pia1"),
m_pia2(*this, "pia2")
{ }
required_device<m6802_cpu_device> m_maincpu;
protected:
required_device<pia6821_device> m_pia1;
required_device<pia6821_device> m_pia2;
};
/* Mikrodator 6802 driver class */
class md6802_state : public driver_device
{
public:
md6802_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag),
m_maincpu(*this, "maincpu"),
m_pia1(*this, "pia1"),
m_pia2(*this, "pia2")
{ }
required_device<m6802_cpu_device> m_maincpu;
protected:
required_device<pia6821_device> m_pia1;
required_device<pia6821_device> m_pia2;
};
/* Didact mp68a driver class */
// Just a statement that the real mp68a hardware was designed with 6820 and not 6821
// They are functional equivalents BUT has different electrical characteristics.
#define pia6820_device pia6821_device
#define PIA6820 PIA6821
class mp68a_state : public driver_device
{
public:
mp68a_state(const machine_config &mconfig, device_type type, const char *tag)
didact_state(const machine_config &mconfig, device_type type, const char * tag)
: driver_device(mconfig, type, tag)
,m_maincpu(*this, "maincpu")
,m_io_line0(*this, "LINE0")
,m_io_line1(*this, "LINE1")
,m_io_line2(*this, "LINE2")
@ -191,7 +146,176 @@ class mp68a_state : public driver_device
,m_line1(0)
,m_line2(0)
,m_line3(0)
,m_reset(0)
,m_shift(0)
,m_led(0)
{ }
required_ioport m_io_line0;
required_ioport m_io_line1;
required_ioport m_io_line2;
required_ioport m_io_line3;
required_ioport m_io_line4;
UINT8 m_line0;
UINT8 m_line1;
UINT8 m_line2;
UINT8 m_line3;
UINT8 m_reset;
UINT8 m_shift;
UINT8 m_led;
TIMER_DEVICE_CALLBACK_MEMBER(scan_artwork);
};
/* Esselte 100 driver class */
class e100_state : public didact_state
{
public:
e100_state(const machine_config &mconfig, device_type type, const char * tag)
: didact_state(mconfig, type, tag),
m_maincpu(*this, "maincpu"),
m_pia1(*this, "pia1"),
m_pia2(*this, "pia2")
{ }
required_device<m6802_cpu_device> m_maincpu;
virtual void machine_reset(){ m_maincpu->reset(); LOG(("--->%s()\n", FUNCNAME)); };
protected:
required_device<pia6821_device> m_pia1;
required_device<pia6821_device> m_pia2;
};
/* Mikrodator 6802 driver class */
class md6802_state : public didact_state
{
public:
md6802_state(const machine_config &mconfig, device_type type, const char * tag)
: didact_state(mconfig, type, tag)
,m_maincpu(*this, "maincpu")
,m_tb16_74145(*this, "tb16_74145")
,m_segments(0)
,m_pia1(*this, "pia1")
,m_pia2(*this, "pia2")
{ }
required_device<m6802_cpu_device> m_maincpu;
required_device<ttl74145_device> m_tb16_74145;
UINT8 m_segments;
DECLARE_READ8_MEMBER( pia2_kbA_r );
DECLARE_WRITE8_MEMBER( pia2_kbA_w );
DECLARE_READ8_MEMBER( pia2_kbB_r );
DECLARE_WRITE8_MEMBER( pia2_kbB_w );
DECLARE_WRITE_LINE_MEMBER( pia2_ca2_w);
virtual void machine_reset() override;
virtual void machine_start() override;
protected:
required_device<pia6821_device> m_pia1;
required_device<pia6821_device> m_pia2;
};
/* Keyboard */
READ8_MEMBER( md6802_state::pia2_kbA_r )
{
UINT8 ls145;
UINT8 pa = 0xff;
// Read out the selected column
ls145 = m_tb16_74145->read() & 0x0f;
// read out the artwork, line04 is handled by the timer
m_line0 = m_io_line0->read();
m_line1 = m_io_line1->read();
m_line2 = m_io_line2->read();
m_line3 = m_io_line3->read();
#if VERBOSE > 2
if ((m_line0 | m_line1 | m_line2 | m_line3) != 0)
LOG(("%s()-->%02x %02x %02x %02x modified by %02x displaying %02x\n", FUNCNAME, m_line0, m_line1, m_line2, m_line3, m_shift, ls145));
#endif
// Mask out those rows that has a button pressed
pa &= ~(((~m_line0 & ls145 ) != 0) ? 1 : 0);
pa &= ~(((~m_line1 & ls145 ) != 0) ? 2 : 0);
pa &= ~(((~m_line2 & ls145 ) != 0) ? 4 : 0);
pa &= ~(((~m_line3 & ls145 ) != 0) ? 8 : 0);
if (m_shift)
{
pa &= 0x7f; // Clear shift bit if button being pressed (PA7) to ground (internal pullup)
LOG( ("SHIFT is pressed\n") );
}
#if VERBOSE > 2
if ((m_line0 | m_line1 | m_line2 | m_line3) != 0)
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));
#endif
return pa;
}
/* Pull the cathodes low enabling the correct digit and lit the segments held by port B */
WRITE8_MEMBER( md6802_state::pia2_kbA_w )
{
UINT8 digit_nbr;
// LOG(("--->%s(%02x)\n", FUNCNAME, data));
digit_nbr = (data >> 4) & 0x07;
m_tb16_74145->write( digit_nbr );
if (digit_nbr < 6)
{
output().set_digit_value( digit_nbr, m_segments);
}
}
/* PIA 2 Port B is all outputs to drive the display so it is very unlikelly that this function is called */
READ8_MEMBER( md6802_state::pia2_kbB_r )
{
LOG( ("Warning, trying to read from Port B designated to drive the display, please check why\n") );
logerror("Warning, trying to read from Port B designated to drive the display, please check why\n");
return 0;
}
/* Port B is fully used ouputting the segment pattern to the display */
WRITE8_MEMBER( md6802_state::pia2_kbB_w )
{
// LOG(("--->%s(%02x)\n", FUNCNAME, data));
/* Store the segment pattern but do not lit up the digit here, done by pulling the correct cathode low on Port A */
m_segments = BITSWAP8(data, 0, 4, 5, 3, 2, 1, 7, 6);
}
WRITE_LINE_MEMBER( md6802_state::pia2_ca2_w )
{
LOG(("--->%s(%02x) LED is connected through resisitor to +5v so logical 0 will lit it\n", FUNCNAME, state));
output().set_led_value(m_led, !state);
m_shift = !state;
}
void md6802_state::machine_start()
{
LOG(("--->%s()\n", FUNCNAME));
save_item(NAME(m_shift));
save_item(NAME(m_led));
save_item(NAME(m_reset));
}
void md6802_state::machine_reset()
{
LOG(("--->%s()\n", FUNCNAME));
m_led = 1;
m_maincpu->reset();
}
/* Didact mp68a driver class */
// Just a statement that the real mp68a hardware was designed with 6820 and not 6821
// They are functional equivalents BUT has different electrical characteristics.
#define pia6820_device pia6821_device
#define PIA6820 PIA6821
class mp68a_state : public didact_state
{
public:
mp68a_state(const machine_config &mconfig, device_type type, const char * tag)
: didact_state(mconfig, type, tag)
,m_maincpu(*this, "maincpu")
,m_digit0(*this, "digit0")
,m_digit1(*this, "digit1")
,m_digit2(*this, "digit2")
@ -204,18 +328,7 @@ class mp68a_state : public driver_device
required_device<m6800_cpu_device> m_maincpu;
required_ioport m_io_line0;
required_ioport m_io_line1;
required_ioport m_io_line2;
required_ioport m_io_line3;
required_ioport m_io_line4;
UINT8 m_line0;
UINT8 m_line1;
UINT8 m_line2;
UINT8 m_line3;
UINT8 m_shift;
// The display segment driver device
// The display segment driver device (there is actually just one, needs rewrite to be correct)
required_device<dm9368_device> m_digit0;
required_device<dm9368_device> m_digit1;
required_device<dm9368_device> m_digit2;
@ -229,8 +342,8 @@ class mp68a_state : public driver_device
DECLARE_WRITE8_MEMBER( pia2_kbB_w );
DECLARE_READ_LINE_MEMBER( pia2_cb1_r );
virtual void machine_reset() override;
virtual void machine_start() override;
TIMER_DEVICE_CALLBACK_MEMBER(scan_artwork);
protected:
required_device<pia6820_device> m_pia1;
required_device<pia6820_device> m_pia2;
@ -245,7 +358,7 @@ READ8_MEMBER( mp68a_state::pia2_kbA_r )
WRITE8_MEMBER( mp68a_state::pia2_kbA_w )
{
UINT8 m_lednum;
UINT8 digit_nbr;
#if VERBOSE > 1
static UINT8 display[] = {' ',' ',' ',' ',' ',' ',' ',' ','\0'};
@ -254,9 +367,11 @@ WRITE8_MEMBER( mp68a_state::pia2_kbA_w )
/* Display memory is at $702 to $708 in AAAADD format (A=address digit, D=Data digit)
but we are using data read from the port. */
m_lednum = (data >> 4) & 0x07;
digit_nbr = (data >> 4) & 0x07;
switch (m_lednum)
/* There is actually only one 9368 and a 74145 to drive the cathode of the right digit low */
/* This can be emulated by prentending there are one 9368 per digit, at least for now */
switch (digit_nbr)
{
case 0: m_digit0->a_w(data & 0x0f); break;
case 1: m_digit1->a_w(data & 0x0f); break;
@ -265,7 +380,7 @@ WRITE8_MEMBER( mp68a_state::pia2_kbA_w )
case 4: m_digit4->a_w(data & 0x0f); break;
case 5: m_digit5->a_w(data & 0x0f); break;
case 7: break; // used as an 'unselect' by the ROM between digit accesses.
default: logerror("Wrong digit index %d\n", m_lednum);
default: logerror("Invalid digit index %d\n", digit_nbr);
}
#if VERBOSE > 1
@ -277,7 +392,7 @@ WRITE8_MEMBER( mp68a_state::pia2_kbA_w )
READ8_MEMBER( mp68a_state::pia2_kbB_r )
{
UINT8 a012, line, pb;
LOG(("--->%s %02x %02x %02x %02x %02x => ", FUNCNAME, m_line0, m_line1, m_line2, m_line3, m_shift));
a012 = 0;
@ -294,11 +409,12 @@ READ8_MEMBER( mp68a_state::pia2_kbB_r )
}
pb = a012; // A0-A2 -> PB0-PB3
if (m_shift)
{
pb |= 0x80; // Set shift bit (PB7)
m_shift = 0; // Reset flip flop
output().set_led_value(0, m_shift);
output().set_led_value(m_led, m_shift);
LOG( ("SHIFT is released\n") );
}
@ -327,12 +443,20 @@ READ_LINE_MEMBER( mp68a_state::pia2_cb1_r )
return (m_line0 | m_line1 | m_line2 | m_line3) != 0 ? 0 : 1;
}
void mp68a_state::machine_reset()
{
LOG(("--->%s()\n", FUNCNAME));
m_maincpu->reset();
}
void mp68a_state::machine_start()
{
LOG(("--->%s()\n", FUNCNAME));
/* register for state saving */
save_item(NAME(m_shift));
save_item(NAME(m_led));
save_item(NAME(m_reset));
}
// This map is derived from info in "TEMAL 100 - teknisk manual Esselte 100"
@ -341,7 +465,7 @@ static ADDRESS_MAP_START( e100_map, AS_PROGRAM, 8, e100_state )
AM_RANGE(0xc000, 0xc3ff) AM_RAM AM_SHARE("videoram")
AM_RANGE(0xc808, 0xc80b) AM_DEVREADWRITE("pia1", pia6821_device, read, write)
AM_RANGE(0xc810, 0xc813) AM_DEVREADWRITE("pia2", pia6821_device, read, write)
AM_RANGE(0xd000, 0xffff) AM_ROM AM_REGION("maincpu", 0xd0000)
AM_RANGE(0xd000, 0xffff) AM_ROM AM_REGION("maincpu", 0xd000)
ADDRESS_MAP_END
// This address map is traced from schema
@ -366,6 +490,38 @@ static INPUT_PORTS_START( e100 )
INPUT_PORTS_END
static INPUT_PORTS_START( md6802 )
PORT_START("LINE0") /* KEY ROW 0 */
PORT_BIT(0x01, 0x01, IPT_KEYBOARD) PORT_NAME("0") PORT_CODE(KEYCODE_0) PORT_CHAR('0')
PORT_BIT(0x02, 0x02, IPT_KEYBOARD) PORT_NAME("1") PORT_CODE(KEYCODE_1) PORT_CHAR('1')
PORT_BIT(0x04, 0x04, IPT_KEYBOARD) PORT_NAME("2") PORT_CODE(KEYCODE_2) PORT_CHAR('2')
PORT_BIT(0x08, 0x08, IPT_KEYBOARD) PORT_NAME("3") PORT_CODE(KEYCODE_3) PORT_CHAR('3')
PORT_BIT(0xf0, 0x00, IPT_UNUSED )
PORT_START("LINE1") /* KEY ROW 1 */
PORT_BIT(0x01, 0x01, IPT_KEYBOARD) PORT_NAME("4") PORT_CODE(KEYCODE_4) PORT_CHAR('4')
PORT_BIT(0x02, 0x02, IPT_KEYBOARD) PORT_NAME("5") PORT_CODE(KEYCODE_5) PORT_CHAR('5')
PORT_BIT(0x04, 0x04, IPT_KEYBOARD) PORT_NAME("6") PORT_CODE(KEYCODE_6) PORT_CHAR('6')
PORT_BIT(0x08, 0x08, IPT_KEYBOARD) PORT_NAME("7") PORT_CODE(KEYCODE_7) PORT_CHAR('7')
PORT_BIT(0xf0, 0x00, IPT_UNUSED )
PORT_START("LINE2") /* KEY ROW 2 */
PORT_BIT(0x01, 0x01, IPT_KEYBOARD) PORT_NAME("8") PORT_CODE(KEYCODE_8) PORT_CHAR('8')
PORT_BIT(0x02, 0x02, IPT_KEYBOARD) PORT_NAME("9") PORT_CODE(KEYCODE_9) PORT_CHAR('9')
PORT_BIT(0x04, 0x04, IPT_KEYBOARD) PORT_NAME("A") PORT_CODE(KEYCODE_A) PORT_CHAR('A')
PORT_BIT(0x08, 0x08, IPT_KEYBOARD) PORT_NAME("B") PORT_CODE(KEYCODE_B) PORT_CHAR('B')
PORT_BIT(0xf0, 0x00, IPT_UNUSED )
PORT_START("LINE3") /* KEY ROW 3 */
PORT_BIT(0x01, 0x01, IPT_KEYBOARD) PORT_NAME("C") PORT_CODE(KEYCODE_C) PORT_CHAR('C')
PORT_BIT(0x02, 0x02, IPT_KEYBOARD) PORT_NAME("D") PORT_CODE(KEYCODE_D) PORT_CHAR('D')
PORT_BIT(0x04, 0x04, IPT_KEYBOARD) PORT_NAME("E") PORT_CODE(KEYCODE_E) PORT_CHAR('E')
PORT_BIT(0x08, 0x08, IPT_KEYBOARD) PORT_NAME("F") PORT_CODE(KEYCODE_F) PORT_CHAR('F')
PORT_BIT(0xf0, 0x00, IPT_UNUSED )
PORT_START("LINE4") /* Special KEY ROW for reset and Shift/'*' keys */
PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_NAME("*") PORT_CODE(KEYCODE_LSHIFT) PORT_CODE(KEYCODE_RSHIFT) PORT_CHAR('*')
PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_NAME("Reset") PORT_CODE(KEYCODE_F12)
PORT_BIT(0xf3, 0x00, IPT_UNUSED )
INPUT_PORTS_END
static INPUT_PORTS_START( mp68a )
@ -403,7 +559,7 @@ static INPUT_PORTS_START( mp68a )
PORT_BIT(0xf3, IP_ACTIVE_HIGH, IPT_UNUSED )
INPUT_PORTS_END
TIMER_DEVICE_CALLBACK_MEMBER(mp68a_state::scan_artwork)
TIMER_DEVICE_CALLBACK_MEMBER(didact_state::scan_artwork)
{
// LOG(("--->%s()\n", FUNCNAME));
@ -412,17 +568,27 @@ TIMER_DEVICE_CALLBACK_MEMBER(mp68a_state::scan_artwork)
{
LOG( ("RESET is pressed, resetting the CPU\n") );
m_shift = 0;
output().set_led_value(0, m_shift);
m_maincpu->reset();
output().set_led_value(m_led, m_shift); // For mp68a only
if (m_reset == 0)
{
machine_reset();
}
m_reset = 1; // Inhibit multiple resets
}
// Poll the artwork SHIFT/* key
else if ( (m_io_line4->read() & 0x08) )
{
LOG( ("SHIFT is set\n") );
LOG( ("%s", !m_shift ? "SHIFT is set\n" : "") );
m_shift = 1;
output().set_led_value(0, m_shift);
output().set_led_value(m_led, m_shift); // For mp68a only
}
else
{
if (m_reset == 1)
{
m_reset = 0; // Enable reset again
}
}
}
@ -438,15 +604,40 @@ MACHINE_CONFIG_END
static MACHINE_CONFIG_START( md6802, md6802_state )
MCFG_CPU_ADD("maincpu", M6802, XTAL_4MHz/4)
MCFG_CPU_PROGRAM_MAP(md6802_map)
MCFG_DEFAULT_LAYOUT(layout_md6802)
/* devices */
/* Devices */
MCFG_DEVICE_ADD("tb16_74145", TTL74145, 0)
/* PIA #1 0xA000-0xA003 - used differently by laborations and loaded software */
MCFG_DEVICE_ADD("pia1", PIA6821, 0)
/* PIA #2 Keyboard & Display 0xC000-0xC003 */
MCFG_DEVICE_ADD("pia2", PIA6821, 0)
/* --init----------------------- */
/* 0xE007 0xC002 (DDR B) = 0xFF - Port B all outputs and set to 0 (zero) */
/* 0xE00B 0xC000 (DDR A) = 0x70 - Port A three outputs and set to 0 (zero) */
/* 0xE00F 0xC001 (Control A) = 0x3C - */
/* 0xE013 0xC003 (Control B) = 0x3C - */
/* --execution-wait for key loop-- */
/* 0xE026 0xC000 = (Reading Port A) */
/* 0xE033 0xC000 = (Reading Port A) */
/* 0xE068 0xC000 (Port A) = 0x60 */
/* 0xE08A 0xC002 (Port B) = 0xEE - updating display */
/* 0xE090 0xC000 (Port A) = 0x00 - looping in 0x10,0x20,0x30,0x40,0x50 */
MCFG_PIA_WRITEPA_HANDLER(WRITE8(md6802_state, pia2_kbA_w))
MCFG_PIA_READPA_HANDLER(READ8(md6802_state, pia2_kbA_r))
MCFG_PIA_WRITEPB_HANDLER(WRITE8(md6802_state, pia2_kbB_w))
MCFG_PIA_READPB_HANDLER(READ8(md6802_state, pia2_kbB_r))
MCFG_PIA_CA2_HANDLER(WRITELINE(md6802_state, pia2_ca2_w))
MCFG_TIMER_DRIVER_ADD_PERIODIC("artwork_timer", md6802_state, scan_artwork, attotime::from_hz(10))
MACHINE_CONFIG_END
static MACHINE_CONFIG_START( mp68a, mp68a_state )
MCFG_CPU_ADD("maincpu", M6800, XTAL_4MHz/4)
// Clock source is based on a N9602N Dual Retriggerable Resettable Monostable Multivibrator oscillator at aprox 505KHz.
// Trimpot seems broken/stuck at 5K Ohm thu. ROM code 1Ms delay loops suggest 1MHz+
MCFG_CPU_ADD("maincpu", M6800, 505000)
MCFG_CPU_PROGRAM_MAP(mp68a_map)
MCFG_DEFAULT_LAYOUT(layout_mp68a)
/* Devices */
/* PIA #1 0x500-0x503 - used differently by laborations and loaded software */
@ -458,7 +649,7 @@ static MACHINE_CONFIG_START( mp68a, mp68a_state )
/* 0x0BAF 0x601 (Control A) = 0x30 - CA2 is low and enable DDRA */
/* 0x0BB1 0x603 (Control B) = 0x30 - CB2 is low and enable DDRB */
/* 0x0BB5 0x600 (DDR A) = 0xFF - Port A all outputs and set to 0 (zero) */
/* 0x0BB9 0x602 (DDR B) = 0x50 - Port B two outputs and set to 0 (zero9 */
/* 0x0BB9 0x602 (DDR B) = 0x50 - Port B two outputs and set to 0 (zero) */
/* 0x0BBD 0x601 (Control A) = 0x34 - CA2 is low and lock DDRA */
/* 0x0BBF 0x603 (Control B) = 0x34 - CB2 is low and lock DDRB */
/* 0x0BC3 0x602 (Port B) = 0x40 - Turn on display via RBI* on */
@ -500,7 +691,6 @@ static MACHINE_CONFIG_START( mp68a, mp68a_state )
MCFG_OUTPUT_INDEX(5)
MCFG_TIMER_DRIVER_ADD_PERIODIC("artwork_timer", mp68a_state, scan_artwork, attotime::from_hz(10))
MACHINE_CONFIG_END
// TODO: Get a ROM set
@ -518,10 +708,6 @@ ROM_END
ROM_START( md6802 ) // ROM image from http://elektronikforumet.com/forum/viewtopic.php?f=2&t=79576&start=135#p1203640
ROM_REGION(0x10000, "maincpu", 0)
ROM_LOAD( "DIDACT.bin", 0xe000, 0x0800, CRC(50430b1d) SHA1(8e2172a9ae95b04f20aa14177df2463a286c8465) )
// ROM_LOAD( "md6802-1.bin", 0xf800, 0xf9ff, CRC(0ff53e1f) SHA1(52002ee22c032775dac383d408c44abe9244724f) )
// ROM_LOAD( "md6802-2.bin", 0xfa00, 0xfbff, CRC(0ff53e1f) SHA1(52002ee22c032775dac383d408c44abe9244724f) )
// ROM_LOAD( "md6802-3.bin", 0xfc00, 0xfdff, CRC(0ff53e1f) SHA1(52002ee22c032775dac383d408c44abe9244724f) )
// ROM_LOAD( "md6802-4.bin", 0xfe00, 0xffff, CRC(0ff53e1f) SHA1(52002ee22c032775dac383d408c44abe9244724f) )
ROM_END
ROM_START( mp68a ) // ROM image from http://elektronikforumet.com/forum/viewtopic.php?f=2&t=79576&start=135#p1203640
@ -533,4 +719,4 @@ ROM_END
// YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS
COMP( 1979, mp68a, 0, 0, mp68a, mp68a, driver_device, 0, "Didact AB", "mp68a", MACHINE_NO_SOUND_HW )
COMP( 1982, e100, 0, 0, e100, e100, driver_device, 0, "Didact AB", "Esselte 100", MACHINE_IS_SKELETON )
COMP( 1983, md6802, 0, 0, md6802, md6802, driver_device, 0, "Didact AB", "Mikrodator 6802", MACHINE_IS_SKELETON )
COMP( 1983, md6802, 0, 0, md6802, md6802, driver_device, 0, "Didact AB", "Mikrodator 6802", MACHINE_NO_SOUND_HW )

125
src/mame/layout/md6802.lay Executable file
View File

@ -0,0 +1,125 @@
<?xml version="1.0"?>
<mamelayout version="2">
<element name="pcb">
<image file="md6802.png" />
</element>
<element name="redled" defstate="0">
<disk state="1">
<color red="1.0" green="0.0" blue="0.0" />
</disk>
</element>
<element name="button" defstate="1"/>
<element name="digit" defstate="1">
<led7seg>
<color red="0.75" green="0.0" blue="0.0" />
</led7seg>
</element>
<view name="Full Artwork">
<backdrop element="pcb">
<bounds left="0" top="0" right="800" bottom="869" />
</backdrop>
<bezel name="led1" element="redled">
<bounds x="290" y="668" width="15" height="15"/>
</bezel>
<bezel name="digit0" element="digit">
<bounds x="170" y="410" width="78" height="85" />
</bezel>
<bezel name="digit1" element="digit">
<bounds x="250" y="410" width="78" height="85" />
</bezel>
<bezel name="digit2" element="digit">
<bounds x="330" y="410" width="78" height="85" />
</bezel>
<bezel name="digit3" element="digit">
<bounds x="410" y="410" width="78" height="85" />
</bezel>
<bezel name="digit4" element="digit">
<bounds x="490" y="410" width="78" height="85" />
</bezel>
<bezel name="digit5" element="digit">
<bounds x="570" y="410" width="78" height="85" />
</bezel>
<!-- Buttons -->
<!-- Row 0 : C D E F -->
<bezel element="button" inputtag="LINE3" inputmask="0x01">
<bounds x="345" y="555" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE3" inputmask="0x02">
<bounds x="425" y="555" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE3" inputmask="0x04">
<bounds x="505" y="555" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE3" inputmask="0x08">
<bounds x="585" y="555" width="70" height="60" />
</bezel>
<!-- Buttons -->
<!-- Row 1 : 8 9 A B -->
<bezel element="button" inputtag="LINE2" inputmask="0x01">
<bounds x="345" y="635" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE2" inputmask="0x02">
<bounds x="425" y="635" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE2" inputmask="0x04">
<bounds x="505" y="635" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE2" inputmask="0x08">
<bounds x="585" y="635" width="70" height="60" />
</bezel>
<!-- Buttons -->
<!-- Row 2 : SHIFT 4 5 6 7 -->
<bezel element="button" inputtag="LINE4" inputmask="0x08">
<bounds x="265" y="715" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE1" inputmask="0x01">
<bounds x="345" y="715" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE1" inputmask="0x02">
<bounds x="425" y="715" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE1" inputmask="0x04">
<bounds x="505" y="715" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE1" inputmask="0x08">
<bounds x="585" y="715" width="70" height="60" />
</bezel>
<!-- Buttons -->
<!-- Row 3 : RESET 0 1 2 3 -->
<bezel element="button" inputtag="LINE4" inputmask="0x04">
<bounds x="265" y="795" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE0" inputmask="0x01">
<bounds x="345" y="795" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE0" inputmask="0x02">
<bounds x="425" y="795" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE0" inputmask="0x04">
<bounds x="505" y="795" width="70" height="60" />
</bezel>
<bezel element="button" inputtag="LINE0" inputmask="0x08">
<bounds x="585" y="795" width="70" height="60" />
</bezel>
</view>
</mamelayout>

116
src/mame/layout/mp68a.lay Executable file
View File

@ -0,0 +1,116 @@
<?xml version="1.0"?>
<mamelayout version="2">
<element name="pcb">
<image file="mp68A.png" />
</element>
<element name="button" defstate="1"/>
<element name="digit" defstate="1">
<led7seg>
<color red="0.75" green="0.0" blue="0.0" />
</led7seg>
</element>
<view name="Full Artwork">
<backdrop element="pcb">
<bounds left="0" top="0" right="840" bottom="1105" />
</backdrop>
<bezel name="digit0" element="digit">
<bounds left="70" top="840" right="100" bottom="885" />
</bezel>
<bezel name="digit1" element="digit">
<bounds left="100" top="840" right="125" bottom="885" />
</bezel>
<bezel name="digit2" element="digit">
<bounds left="125" top="840" right="150" bottom="885" />
</bezel>
<bezel name="digit3" element="digit">
<bounds left="150" top="840" right="175" bottom="885" />
</bezel>
<bezel name="digit4" element="digit">
<bounds left="175" top="840" right="200" bottom="885" />
</bezel>
<bezel name="digit5" element="digit">
<bounds left="200" top="840" right="225" bottom="885" />
</bezel>
<!-- Buttons -->
<!-- Row 3 : C D E F -->
<bezel element="button" inputtag="LINE0" inputmask="0x10">
<bounds x="240" y="750" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE0" inputmask="0x20">
<bounds x="325" y="750" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE0" inputmask="0x40">
<bounds x="410" y="750" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE0" inputmask="0x80">
<bounds x="495" y="750" width="85" height="85"/>
</bezel>
<!-- Buttons -->
<!-- Row 2 : 8 9 A B -->
<bezel element="button" inputtag="LINE1" inputmask="0x01">
<bounds x="240" y="835" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE1" inputmask="0x02">
<bounds x="325" y="835" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE1" inputmask="0x04">
<bounds x="410" y="835" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE1" inputmask="0x08">
<bounds x="495" y="835" width="85" height="85"/>
</bezel>
<!-- Buttons -->
<!-- Row 1 : SHIFT 4 5 6 7 -->
<bezel element="button" inputtag="LINE4" inputmask="0x08">
<bounds x="155" y="920" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE2" inputmask="0x10">
<bounds x="240" y="920" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE2" inputmask="0x20">
<bounds x="325" y="920" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE2" inputmask="0x40">
<bounds x="410" y="920" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE2" inputmask="0x80">
<bounds x="495" y="920" width="85" height="85"/>
</bezel>
<!-- Buttons -->
<!-- Row 0 : RESET 0 1 2 3 -->
<bezel element="button" inputtag="LINE4" inputmask="0x04">
<bounds x="155" y="1005" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE3" inputmask="0x01">
<bounds x="240" y="1005" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE3" inputmask="0x02">
<bounds x="325" y="1005" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE3" inputmask="0x04">
<bounds x="410" y="1005" width="85" height="85"/>
</bezel>
<bezel element="button" inputtag="LINE3" inputmask="0x08">
<bounds x="495" y="1005" width="85" height="85"/>
</bezel>
</view>
</mamelayout>

1
src/mame/mess.lst
View File

@ -2402,6 +2402,7 @@ ds348 //Sigtron Daruma
mc1000
d6809
mp68a
md6802
mk85
mk90
elwro800