mirror of
https://github.com/holub/mame
synced 2025-04-25 09:50:04 +03:00
New machine support : The French Minitel 2 Terminal. (#2261)
* TS9347 variant support added * New machine support : Minitel 2 (Radiotechnique Portenseigne / Philips)
This commit is contained in:
Jean-François DEL NERO
Vas Crabb
parent
7afb1c2937
commit
7b5cea4f76
@ -3420,6 +3420,7 @@ files {
|
||||
MAME_DIR .. "src/mame/drivers/micronic.cpp",
|
||||
MAME_DIR .. "src/mame/includes/micronic.h",
|
||||
MAME_DIR .. "src/mame/drivers/mini2440.cpp",
|
||||
MAME_DIR .. "src/mame/drivers/minitel_2_rpic.cpp",
|
||||
MAME_DIR .. "src/mame/drivers/mmd1.cpp",
|
||||
MAME_DIR .. "src/mame/drivers/mod8.cpp",
|
||||
MAME_DIR .. "src/mame/drivers/modellot.cpp",
|
||||
|
||||
@ -9,6 +9,7 @@
|
||||
This code is based on Daniel Coulom's implementation in DCVG5k
|
||||
and DCAlice released by Daniel Coulom under GPL license
|
||||
|
||||
TS9347 variant support added by Jean-François DEL NERO
|
||||
*********************************************************************/
|
||||
|
||||
#include "emu.h"
|
||||
@ -29,6 +30,7 @@
|
||||
|
||||
// devices
|
||||
const device_type EF9345 = device_creator<ef9345_device>;
|
||||
const device_type TS9347 = device_creator<ts9347_device>;
|
||||
|
||||
// default address map
|
||||
static ADDRESS_MAP_START( ef9345, AS_0, 8, ef9345_device )
|
||||
@ -105,10 +107,25 @@ ef9345_device::ef9345_device(const machine_config &mconfig, const char *tag, dev
|
||||
device_video_interface(mconfig, *this),
|
||||
m_space_config("videoram", ENDIANNESS_LITTLE, 8, 16, 0, nullptr, *ADDRESS_MAP_NAME(ef9345)),
|
||||
m_charset(*this, DEVICE_SELF),
|
||||
m_variant(EF9345_MODE::TYPE_EF9345),
|
||||
m_palette(*this, finder_base::DUMMY_TAG)
|
||||
{
|
||||
}
|
||||
|
||||
ef9345_device::ef9345_device(const machine_config &mconfig, device_type type, const char *name, const char *tag, device_t *owner, uint32_t clock, EF9345_MODE variant, const char *shortname, const char *source) :
|
||||
device_t(mconfig, type, name, tag, owner, clock, shortname, source),
|
||||
device_memory_interface(mconfig, *this),
|
||||
device_video_interface(mconfig, *this),
|
||||
m_space_config("videoram", ENDIANNESS_LITTLE, 8, 16, 0, nullptr, *ADDRESS_MAP_NAME(ef9345)),
|
||||
m_charset(*this, DEVICE_SELF),
|
||||
m_variant(variant),
|
||||
m_palette(*this, finder_base::DUMMY_TAG)
|
||||
{
|
||||
}
|
||||
|
||||
ts9347_device::ts9347_device(const machine_config &mconfig, const char *tag, device_t *owner, uint32_t clock)
|
||||
: ef9345_device(mconfig, TS9347, "TS9347",tag, owner, clock, EF9345_MODE::TYPE_TS9347,"ts9347",__FILE__){ }
|
||||
|
||||
//-------------------------------------------------
|
||||
// static_set_palette_tag: Set the tag of the
|
||||
// palette device
|
||||
@ -239,7 +256,17 @@ void ef9345_device::draw_char_80(uint8_t *c, uint16_t x, uint16_t y)
|
||||
// set then ef9345 mode
|
||||
void ef9345_device::set_video_mode(void)
|
||||
{
|
||||
m_char_mode = ((m_pat & 0x80) >> 5) | ((m_tgs & 0xc0) >> 6);
|
||||
if (m_variant == EF9345_MODE::TYPE_TS9347)
|
||||
{
|
||||
// Only TGS 7 & 6 used for the char mode with the TS9347
|
||||
m_char_mode = ((m_tgs & 0xc0) >> 6);
|
||||
}
|
||||
else
|
||||
{
|
||||
// PAT 7, TGS 7 & 6
|
||||
m_char_mode = ((m_pat & 0x80) >> 5) | ((m_tgs & 0xc0) >> 6);
|
||||
}
|
||||
|
||||
uint16_t new_width = (m_char_mode == MODE12x80 || m_char_mode == MODE8x80) ? 492 : 336;
|
||||
|
||||
if (m_screen->width() != new_width)
|
||||
@ -385,6 +412,11 @@ void ef9345_device::bichrome40(uint8_t type, uint16_t address, uint8_t dial, uin
|
||||
uint16_t i;
|
||||
uint8_t pix[80];
|
||||
|
||||
if (m_variant == EF9345_MODE::TYPE_TS9347)
|
||||
{
|
||||
c0 = 0;
|
||||
}
|
||||
|
||||
if (flash && m_pat & 0x40 && m_blink)
|
||||
c1 = c0; //flash
|
||||
if (hided && m_pat & 0x08)
|
||||
@ -472,6 +504,12 @@ void ef9345_device::quadrichrome40(uint8_t c, uint8_t b, uint8_t a, uint16_t x,
|
||||
uint8_t lowresolution = (b & 0x02) >> 1, ramx, ramy, ramblock;
|
||||
uint16_t ramindex;
|
||||
|
||||
if (m_variant == EF9345_MODE::TYPE_TS9347)
|
||||
{
|
||||
// No quadrichrome support into the TS9347
|
||||
return;
|
||||
}
|
||||
|
||||
//quadrichrome don't suppor double size
|
||||
m_last_dial[x] = 0;
|
||||
|
||||
@ -688,6 +726,11 @@ void ef9345_device::makechar(uint16_t x, uint16_t y)
|
||||
makechar_24x40(x, y);
|
||||
break;
|
||||
case MODEVAR40:
|
||||
if (m_variant == EF9345_MODE::TYPE_TS9347)
|
||||
{ // TS9347 char mode definition is different.
|
||||
makechar_16x40(x, y);
|
||||
break;
|
||||
}
|
||||
case MODE8x80:
|
||||
logerror("Unemulated EF9345 mode: %02x\n", m_char_mode);
|
||||
break;
|
||||
@ -695,7 +738,14 @@ void ef9345_device::makechar(uint16_t x, uint16_t y)
|
||||
makechar_12x80(x, y);
|
||||
break;
|
||||
case MODE16x40:
|
||||
makechar_16x40(x, y);
|
||||
if (m_variant == EF9345_MODE::TYPE_TS9347)
|
||||
{
|
||||
logerror("Unemulated EF9345 mode: %02x\n", m_char_mode);
|
||||
}
|
||||
else
|
||||
{
|
||||
makechar_16x40(x, y);
|
||||
}
|
||||
break;
|
||||
default:
|
||||
logerror("Unknown EF9345 mode: %02x\n", m_char_mode);
|
||||
@ -991,14 +1041,22 @@ void ef9345_device::update_scanline(uint16_t scanline)
|
||||
}
|
||||
else if (scanline < 250)
|
||||
{
|
||||
if (m_pat & 4)
|
||||
if (m_variant == EF9345_MODE::TYPE_TS9347)
|
||||
{
|
||||
for(i = 0; i < 40; i++)
|
||||
makechar(i, (scanline / 10));
|
||||
}
|
||||
else
|
||||
draw_border(scanline / 10);
|
||||
{
|
||||
if (m_pat & 4) // Lower bulk enable
|
||||
for(i = 0; i < 40; i++)
|
||||
makechar(i, (scanline / 10));
|
||||
else
|
||||
draw_border(scanline / 10);
|
||||
|
||||
if (scanline == 240)
|
||||
draw_border(26);
|
||||
if (scanline == 240)
|
||||
draw_border(26);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -42,6 +42,15 @@ public:
|
||||
uint32_t screen_update(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect);
|
||||
|
||||
protected:
|
||||
|
||||
enum class EF9345_MODE {
|
||||
TYPE_EF9345 = 0x001,
|
||||
TYPE_TS9347 = 0x002
|
||||
};
|
||||
|
||||
// pass-through constructor
|
||||
ef9345_device(const machine_config &mconfig, device_type type, const char *name, const char *tag, device_t *owner, uint32_t clock, EF9345_MODE variant, const char *shortname, const char *source);
|
||||
|
||||
// device-level overrides
|
||||
virtual void device_start() override;
|
||||
virtual void device_reset() override;
|
||||
@ -109,10 +118,19 @@ private:
|
||||
emu_timer *m_busy_timer;
|
||||
emu_timer *m_blink_timer;
|
||||
|
||||
const EF9345_MODE m_variant;
|
||||
|
||||
required_device<palette_device> m_palette;
|
||||
};
|
||||
|
||||
class ts9347_device : public ef9345_device
|
||||
{
|
||||
public :
|
||||
ts9347_device(const machine_config &mconfig, const char *tag, device_t *owner, uint32_t clock);
|
||||
};
|
||||
|
||||
// device type definition
|
||||
extern const device_type EF9345;
|
||||
extern const device_type TS9347;
|
||||
|
||||
#endif
|
||||
|
||||
450
src/mame/drivers/minitel_2_rpic.cpp
Normal file
450
src/mame/drivers/minitel_2_rpic.cpp
Normal file
@ -0,0 +1,450 @@
|
||||
// license:BSD-3-Clause
|
||||
// copyright-holders: Jean-Francois DEL NERO
|
||||
/***************************************************************************
|
||||
|
||||
Minitel 2
|
||||
|
||||
The Minitel is a small, on-line computer/Videotex terminal with multi-services that
|
||||
can be connected to any French telephone line. This terminal was widely used in France
|
||||
during the 80's and 90's.
|
||||
|
||||
There are several modeles and version. Most of them are based on a mcu from the 8051 family
|
||||
and a EF9345 like semi graphic video chip.
|
||||
|
||||
The current implementation is an Minitel 2 from "La RADIOTECHNIQUE PORTENSEIGNE" / RPIC (Philips)
|
||||
You can found more informations about this hardware there :
|
||||
http://hxc2001.free.fr/minitel
|
||||
|
||||
What is implemented and working :
|
||||
|
||||
- Main MCU
|
||||
- Video output
|
||||
- Keyboard
|
||||
|
||||
What is not yet implemented :
|
||||
|
||||
- Modem and sound output.
|
||||
- The rear serial port.
|
||||
- Parameters I2C 24C02 EEPROM.
|
||||
|
||||
The original firmware and the experimental demo rom are currently both working.
|
||||
|
||||
Please note the current special function keys assignation :
|
||||
|
||||
F1 -> Suite
|
||||
F2 -> Retour
|
||||
F3 -> Envoi
|
||||
F4 -> Repetition
|
||||
F5 -> TEL
|
||||
F6 -> Guide
|
||||
F7 -> Sommaire
|
||||
F8 -> Connexion/Fin
|
||||
F9 -> Fonction
|
||||
F10-> ON / OFF
|
||||
|
||||
With the official ROM you need to press F10 to switch on the CRT.
|
||||
|
||||
****************************************************************************/
|
||||
|
||||
#include "emu.h"
|
||||
|
||||
#include "cpu/mcs51/mcs51.h"
|
||||
#include "video/ef9345.h"
|
||||
|
||||
#include "screen.h"
|
||||
#include "softlist.h"
|
||||
|
||||
#include "logmacro.h"
|
||||
|
||||
// IO expander latch usage definitions
|
||||
enum
|
||||
{
|
||||
CTRL_REG_DTMF = 0x02,
|
||||
CTRL_REG_MCBC = 0x04,
|
||||
CTRL_REG_OPTO = 0x08,
|
||||
CTRL_REG_RELAY = 0x10,
|
||||
CTRL_REG_CRTON = 0x20
|
||||
};
|
||||
|
||||
// 80C32 Port IO usage definitions
|
||||
enum
|
||||
{
|
||||
PORT_1_KBSERIN = 0x01,
|
||||
PORT_1_MDM_DCD = 0x02,
|
||||
PORT_1_MDM_PRD = 0x04,
|
||||
PORT_1_MDM_TXD = 0x08,
|
||||
PORT_1_MDM_RTS = 0x10,
|
||||
PORT_1_KBLOAD = 0x20,
|
||||
PORT_1_SCL = 0x40,
|
||||
PORT_1_SDA = 0x80
|
||||
};
|
||||
|
||||
class minitel_state : public driver_device
|
||||
{
|
||||
public:
|
||||
minitel_state(const machine_config &mconfig, device_type type, const char *tag)
|
||||
: driver_device(mconfig, type, tag)
|
||||
, m_maincpu(*this, "maincpu")
|
||||
, m_ts9347(*this, "ts9347")
|
||||
, m_palette(*this, "palette")
|
||||
, m_io_kbd(*this, "Y%u", 0)
|
||||
{
|
||||
}
|
||||
|
||||
required_device<cpu_device> m_maincpu;
|
||||
required_device<ts9347_device> m_ts9347;
|
||||
required_device<palette_device> m_palette;
|
||||
|
||||
TIMER_DEVICE_CALLBACK_MEMBER(minitel_scanline);
|
||||
|
||||
DECLARE_WRITE8_MEMBER ( port_w );
|
||||
DECLARE_READ8_MEMBER ( port_r );
|
||||
|
||||
DECLARE_WRITE8_MEMBER ( dev_crtl_reg_w );
|
||||
DECLARE_READ8_MEMBER ( dev_keyb_ser_r );
|
||||
|
||||
DECLARE_READ8_MEMBER ( ts9347_io_r );
|
||||
DECLARE_WRITE8_MEMBER ( ts9347_io_w );
|
||||
|
||||
protected:
|
||||
required_ioport_array<16> m_io_kbd;
|
||||
virtual void machine_start() override;
|
||||
|
||||
char port0, port1, port2, port3;
|
||||
|
||||
int keyboard_para_ser;
|
||||
unsigned char keyboard_x_row_reg;
|
||||
|
||||
unsigned char last_ctrl_reg;
|
||||
};
|
||||
|
||||
void minitel_state::machine_start()
|
||||
{
|
||||
m_palette->set_pen_color( 0, 0, 0, 0);
|
||||
m_palette->set_pen_color( 1, 86, 86, 86);
|
||||
m_palette->set_pen_color( 2, 172, 172, 172);
|
||||
m_palette->set_pen_color( 3, 255, 255, 255);
|
||||
m_palette->set_pen_color( 4, 44, 44, 44);
|
||||
m_palette->set_pen_color( 5, 86, 86, 86);
|
||||
m_palette->set_pen_color( 6, 172, 172, 172);
|
||||
m_palette->set_pen_color( 7, 255, 255, 255);
|
||||
}
|
||||
|
||||
WRITE8_MEMBER(minitel_state::port_w)
|
||||
{
|
||||
LOG("port_w: write %02X to PORT (offset=%02X)\n", data, offset);
|
||||
|
||||
switch(offset| 0x20000)
|
||||
{
|
||||
case MCS51_PORT_P0:
|
||||
port0 = data;
|
||||
break;
|
||||
case MCS51_PORT_P1:
|
||||
|
||||
if( (port1 ^ data) & PORT_1_KBSERIN )
|
||||
{
|
||||
LOG("PORT_1_KBSERIN : %d \n", data & PORT_1_KBSERIN );
|
||||
}
|
||||
|
||||
if( (port1 ^ data) & PORT_1_MDM_DCD )
|
||||
{
|
||||
LOG("PORT_1_MDM_DCD : %d \n", data & PORT_1_MDM_DCD );
|
||||
}
|
||||
|
||||
if( (port1 ^ data) & PORT_1_MDM_PRD )
|
||||
{
|
||||
LOG("PORT_1_MDM_PRD : %d \n", data & PORT_1_MDM_PRD );
|
||||
}
|
||||
|
||||
if( (port1 ^ data) & PORT_1_MDM_TXD )
|
||||
{
|
||||
LOG("PORT_1_MDM_TXD : %d \n", data & PORT_1_MDM_TXD );
|
||||
}
|
||||
|
||||
if( (port1 ^ data) & PORT_1_MDM_RTS )
|
||||
{
|
||||
LOG("PORT_1_MDM_RTS : %d \n", data & PORT_1_MDM_RTS );
|
||||
}
|
||||
|
||||
if( (port1 ^ data) & PORT_1_KBLOAD )
|
||||
{
|
||||
LOG("PORT_1_KBLOAD : %d PC:0x%x\n", data & PORT_1_KBLOAD,m_maincpu->pc() );
|
||||
|
||||
if(data & PORT_1_KBLOAD)
|
||||
keyboard_para_ser = 1;
|
||||
else
|
||||
keyboard_para_ser = 0;
|
||||
}
|
||||
|
||||
if( (port1 ^ data) & PORT_1_SCL )
|
||||
{
|
||||
LOG("PORT_1_SCL : %d \n", data & PORT_1_SCL );
|
||||
}
|
||||
|
||||
if( (port1 ^ data) & PORT_1_SDA )
|
||||
{
|
||||
LOG("PORT_1_SDA : %d \n", data & PORT_1_SDA );
|
||||
}
|
||||
|
||||
port1=data;
|
||||
break;
|
||||
|
||||
case MCS51_PORT_P2:
|
||||
port2=data;
|
||||
break;
|
||||
|
||||
case MCS51_PORT_P3:
|
||||
port3=data;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
READ8_MEMBER(minitel_state::port_r)
|
||||
{
|
||||
LOG("port_r: read PORT (offset=%02X) %x\n", offset,m_maincpu->pc());
|
||||
|
||||
switch(offset | 0x20000)
|
||||
{
|
||||
case MCS51_PORT_P0:
|
||||
LOG("port_r: read %02X from PORT0\n", port0);
|
||||
return port0;
|
||||
case MCS51_PORT_P1:
|
||||
LOG("port_r: read %02X from PORT1 - Keyboard -> %x\n", port1,((keyboard_x_row_reg>>7)&1));
|
||||
return ( (port1&0xFE) | ((keyboard_x_row_reg>>7)&1) ) ;
|
||||
case MCS51_PORT_P2:
|
||||
LOG("port_r: read %02X from PORT2\n", port2);
|
||||
return port2;
|
||||
case MCS51_PORT_P3:
|
||||
LOG("port_r: read %02X from PORT3\n", port3);
|
||||
return port3;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
WRITE8_MEMBER(minitel_state::dev_crtl_reg_w)
|
||||
{
|
||||
if( last_ctrl_reg != data)
|
||||
{
|
||||
LOG("minitel_state::hw_ctrl_reg : %x %x\n",offset, data);
|
||||
|
||||
if( (last_ctrl_reg ^ data) & CTRL_REG_DTMF )
|
||||
{
|
||||
LOG("CTRL_REG_DTMF : %d \n", data & CTRL_REG_DTMF );
|
||||
}
|
||||
|
||||
if( (last_ctrl_reg ^ data) & CTRL_REG_MCBC )
|
||||
{
|
||||
LOG("CTRL_REG_MCBC : %d \n", data & CTRL_REG_MCBC );
|
||||
}
|
||||
|
||||
if( (last_ctrl_reg ^ data) & CTRL_REG_OPTO )
|
||||
{
|
||||
LOG("CTRL_REG_OPTO : %d \n", data & CTRL_REG_OPTO );
|
||||
}
|
||||
|
||||
if( (last_ctrl_reg ^ data) & CTRL_REG_RELAY )
|
||||
{
|
||||
LOG("CTRL_REG_RELAY : %d \n", data & CTRL_REG_RELAY );
|
||||
}
|
||||
|
||||
if( (last_ctrl_reg ^ data) & CTRL_REG_CRTON )
|
||||
{
|
||||
LOG("CTRL_REG_CRTON : %d \n", data & CTRL_REG_CRTON );
|
||||
}
|
||||
}
|
||||
|
||||
last_ctrl_reg = data;
|
||||
}
|
||||
|
||||
READ8_MEMBER(minitel_state::dev_keyb_ser_r)
|
||||
{
|
||||
LOG("minitel_state::keyb read : %x\n",offset);
|
||||
|
||||
if ( keyboard_para_ser )
|
||||
{
|
||||
// load the 4014 with the keyboard row state
|
||||
keyboard_x_row_reg = m_io_kbd[(offset>>8)&0xF]->read();
|
||||
LOG("4014 Load : 0x%.2X 0x%.2X\n",(offset>>8)&0xF,keyboard_x_row_reg);
|
||||
}
|
||||
else
|
||||
{
|
||||
//shift the keyboard register...
|
||||
keyboard_x_row_reg = keyboard_x_row_reg << 1;
|
||||
}
|
||||
|
||||
return 0xFF;
|
||||
}
|
||||
|
||||
READ8_MEMBER ( minitel_state::ts9347_io_r )
|
||||
{
|
||||
return m_ts9347->data_r(space, offset, 0xff);
|
||||
}
|
||||
|
||||
WRITE8_MEMBER ( minitel_state::ts9347_io_w )
|
||||
{
|
||||
LOG("minitel_state::ts9347_io_w : %x %x\n",offset, data);
|
||||
|
||||
m_ts9347->data_w(space, offset, data, 0xff);
|
||||
}
|
||||
|
||||
TIMER_DEVICE_CALLBACK_MEMBER(minitel_state::minitel_scanline)
|
||||
{
|
||||
m_ts9347->update_scanline((uint16_t)param);
|
||||
}
|
||||
|
||||
static ADDRESS_MAP_START( mem_prg, AS_PROGRAM, 8, minitel_state )
|
||||
AM_RANGE(0x0000, 0x7fff) AM_ROM
|
||||
ADDRESS_MAP_END
|
||||
|
||||
static ADDRESS_MAP_START( mem_io, AS_IO, 8, minitel_state )
|
||||
AM_RANGE(0x2000, 0x3fff) AM_READWRITE(dev_keyb_ser_r, dev_crtl_reg_w)
|
||||
/* ts9347 */
|
||||
AM_RANGE(0x4000, 0x5ffF) AM_READWRITE(ts9347_io_r, ts9347_io_w)
|
||||
AM_RANGE(MCS51_PORT_P0, MCS51_PORT_P3) AM_READWRITE(port_r, port_w)
|
||||
ADDRESS_MAP_END
|
||||
|
||||
/* Input ports */
|
||||
static INPUT_PORTS_START( minitel2 )
|
||||
PORT_START("Y0")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR('-')
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_Y) PORT_CHAR('y') PORT_CHAR('Y')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_R) PORT_CHAR('r') PORT_CHAR('R')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_D) PORT_CHAR('d') PORT_CHAR('D')
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Suite") PORT_CODE(KEYCODE_F1)
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Retour") PORT_CODE(KEYCODE_F2)
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ')
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_C) PORT_CHAR('c') PORT_CHAR('C')
|
||||
|
||||
PORT_START("Y1")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_ESC) PORT_CHAR(27)
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_A) PORT_CHAR('a') PORT_CHAR('A')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_LCONTROL)
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Connexion/Fin") PORT_CODE(KEYCODE_F8)
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Fonction") PORT_CODE(KEYCODE_F9)
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_RSHIFT) // Right maj
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_LSHIFT) // Left maj
|
||||
|
||||
PORT_START("Y2")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_2) PORT_CHAR('2')
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_Q) PORT_CHAR('q') PORT_CHAR('Q')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_L) PORT_CHAR('l') PORT_CHAR('L')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_5) PORT_CHAR('5')
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_8) PORT_CHAR('8')
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_N) PORT_CHAR('n') PORT_CHAR('N')
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_J) PORT_CHAR('j') PORT_CHAR('J')
|
||||
|
||||
PORT_START("Y3")
|
||||
|
||||
PORT_START("Y4")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_COLON) PORT_CHAR(':')
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_U) PORT_CHAR('u') PORT_CHAR('U')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_T) PORT_CHAR('t') PORT_CHAR('T')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_F) PORT_CHAR('f') PORT_CHAR('F')
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Envoi") PORT_CODE(KEYCODE_F3)
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Repetition") PORT_CODE(KEYCODE_F4)
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_LEFT)
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_V) PORT_CHAR('v') PORT_CHAR('V')
|
||||
|
||||
PORT_START("Y5")
|
||||
|
||||
PORT_START("Y6")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('?')
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_I) PORT_CHAR('i') PORT_CHAR('I')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_K) PORT_CHAR('k') PORT_CHAR('K')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_9) PORT_CHAR('9')
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Tel") PORT_CODE(KEYCODE_F5)
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_6) PORT_CHAR('6')
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_RIGHT)
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_H) PORT_CHAR('h') PORT_CHAR('H')
|
||||
|
||||
PORT_START("Y7")
|
||||
|
||||
PORT_START("Y8")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_QUOTE) PORT_CHAR(';')
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR(']')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_E) PORT_CHAR('e') PORT_CHAR('E')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_S) PORT_CHAR('s') PORT_CHAR('S')
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("BS") PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(8)
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("BackS Delete") PORT_CODE(KEYCODE_BACKSLASH2) PORT_CHAR(8) PORT_CHAR(UCHAR_MAMEKEY(DEL))
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_DOWN)
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_X) PORT_CHAR('x') PORT_CHAR('X')
|
||||
|
||||
PORT_START("Y9")
|
||||
|
||||
PORT_START("Y10")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_P) PORT_CHAR('p') PORT_CHAR('P')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_M) PORT_CHAR('m') PORT_CHAR('M')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_0) PORT_CHAR('0')
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_3) PORT_CHAR('3')
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('*')
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('#')
|
||||
|
||||
PORT_START("Y11")
|
||||
|
||||
PORT_START("Y12")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_1) PORT_CHAR('1')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_4) PORT_CHAR('4')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Return") PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13)
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_7) PORT_CHAR('7')
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("On/Off") PORT_CODE(KEYCODE_F10)
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_B) PORT_CHAR('b') PORT_CHAR('B')
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_G) PORT_CHAR('g') PORT_CHAR('G')
|
||||
|
||||
PORT_START("Y13")
|
||||
|
||||
PORT_START("Y14")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('\'')
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('[')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_Z) PORT_CHAR('z') PORT_CHAR('Z')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_Q) PORT_CHAR('q') PORT_CHAR('Q')
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Guide") PORT_CODE(KEYCODE_F6)
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Sommaire") PORT_CODE(KEYCODE_F7)
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_UP)
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_W) PORT_CHAR('w') PORT_CHAR('W')
|
||||
|
||||
PORT_START("Y15")
|
||||
|
||||
INPUT_PORTS_END
|
||||
|
||||
static MACHINE_CONFIG_START( minitel2, minitel_state )
|
||||
/* basic machine hardware */
|
||||
MCFG_CPU_ADD("maincpu", I80C32, XTAL_14_31818MHz) //verified on pcb
|
||||
MCFG_CPU_PROGRAM_MAP(mem_prg)
|
||||
MCFG_CPU_IO_MAP(mem_io)
|
||||
|
||||
MCFG_DEVICE_ADD("ts9347", TS9347, 0)
|
||||
MCFG_EF9345_PALETTE("palette")
|
||||
MCFG_TIMER_DRIVER_ADD_SCANLINE("minitel_sl", minitel_state, minitel_scanline, "screen", 0, 10)
|
||||
|
||||
/* video hardware */
|
||||
MCFG_SCREEN_ADD("screen", RASTER)
|
||||
MCFG_SCREEN_REFRESH_RATE(60)
|
||||
MCFG_SCREEN_UPDATE_DEVICE("ts9347", ts9347_device, screen_update)
|
||||
MCFG_SCREEN_SIZE(512-1, 312-1)
|
||||
MCFG_SCREEN_VISIBLE_AREA(0, 512-1, 0, 266-1)
|
||||
MCFG_PALETTE_ADD("palette", 8+1)
|
||||
/*MCFG_PALETTE_INIT_OWNER(minitel_state, minitel)*/
|
||||
|
||||
MACHINE_CONFIG_END
|
||||
|
||||
ROM_START( minitel2 )
|
||||
|
||||
ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
|
||||
ROM_DEFAULT_BIOS("FT_BV4")
|
||||
|
||||
ROM_SYSTEM_BIOS(0, "FT_BV4", "Minitel 2 ROM BV4")
|
||||
ROMX_LOAD( "MINITEL2_BV4.BIN", 0x0000, 0x8000, CRC(8844A0A7) SHA1(D3E9079B080DBCEE27AD870EC6C39AC42E7DEACF), ROM_BIOS(1) )
|
||||
|
||||
ROM_SYSTEM_BIOS(1, "DEMOV1", "Minitel 2 Demo")
|
||||
ROMX_LOAD( "demo_minitel.bin", 0x0000, 0x8000, CRC(607F2482) SHA1(7965EDBEF68E45D09DC67A4684DA56003EFF6328), ROM_BIOS(2) )
|
||||
|
||||
ROM_REGION( 0x4000, "ts9347", 0 )
|
||||
ROM_LOAD( "charset.rom", 0x0000, 0x2000, BAD_DUMP CRC(b2f49eb3) SHA1(d0ef530be33bfc296314e7152302d95fdf9520fc) ) // from dcvg5k
|
||||
ROM_END
|
||||
|
||||
COMP( 1989, minitel2, 0, 0, minitel2, minitel2,driver_device, 0, "Philips", "Minitel 2", MACHINE_TYPE_COMPUTER | MACHINE_NO_SOUND)
|
||||
@ -20608,6 +20608,9 @@ minicom //
|
||||
@source:miniforce.cpp
|
||||
miniforce // D26 cabinet test board
|
||||
|
||||
@source:minitel_2_rpic.cpp
|
||||
minitel2 //
|
||||
|
||||
@source:minivadr.cpp
|
||||
minivadr // D26 cabinet test board
|
||||
|
||||
|
||||
@ -354,6 +354,7 @@ mikrosha.cpp
|
||||
mini2440.cpp
|
||||
minicom.cpp
|
||||
miniforce.cpp
|
||||
minitel_2_rpic.cpp
|
||||
mits680b.cpp
|
||||
mk1.cpp
|
||||
mk14.cpp
|
||||
|
||||
Loading…
Reference in New Issue
Block a user