/
cm1800.cpp
135 lines (106 loc) · 3.57 KB
/
cm1800.cpp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
// license:BSD-3-Clause
// copyright-holders:Miodrag Milanovic
/***************************************************************************
CM-1800
(note name is in cyrilic letters)
more info at http://ru.wikipedia.org/wiki/%D0%A1%D0%9C_%D0%AD%D0%92%D0%9C
and http://www.computer-museum.ru/histussr/sm1800.htm
2011-04-26 Skeleton driver.
Commands to be in uppercase:
C Compare
D Dump
F Fill
G
I
L
M Move
S Edit
T
X Registers
For most commands, enter all 4 digits of each hex address, the system will
add the appropriate spacing as you type. No need to press Enter.
The L command looks like it might be for loading a file, for example
L ABC will read/write to port 70,71,73 and eventually time out if you wait
a while. No idea if it wants to read a disk or a tape. There doesn't seem
to be a save command.
****************************************************************************/
#include "emu.h"
#include "cpu/i8085/i8085.h"
#include "machine/ay31015.h"
#include "machine/clock.h"
#include "bus/rs232/rs232.h"
namespace {
class cm1800_state : public driver_device
{
public:
cm1800_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag)
, m_maincpu(*this, "maincpu")
, m_uart(*this, "uart")
{ }
void cm1800(machine_config &config);
private:
void io_map(address_map &map);
void mem_map(address_map &map);
virtual void machine_reset() override;
u8 uart_status_r();
required_device<cpu_device> m_maincpu;
required_device<ay31015_device> m_uart;
};
u8 cm1800_state::uart_status_r()
{
return (m_uart->dav_r()) | (m_uart->tbmt_r() << 2);
}
void cm1800_state::mem_map(address_map &map)
{
map.unmap_value_high();
map(0x0000, 0x07ff).rom().region("roms", 0);
map(0x0800, 0xffff).ram();
}
void cm1800_state::io_map(address_map &map)
{
map.unmap_value_high();
map(0x00, 0x00).rw(m_uart, FUNC(ay31015_device::receive), FUNC(ay31015_device::transmit));
map(0x01, 0x01).r(FUNC(cm1800_state::uart_status_r));
}
/* Input ports */
static INPUT_PORTS_START( cm1800 )
INPUT_PORTS_END
void cm1800_state::machine_reset()
{
m_uart->write_xr(0);
m_uart->write_xr(1);
m_uart->write_swe(0);
m_uart->write_np(1);
m_uart->write_tsb(0);
m_uart->write_nb1(1);
m_uart->write_nb2(1);
m_uart->write_eps(1);
m_uart->write_cs(1);
m_uart->write_cs(0);
}
void cm1800_state::cm1800(machine_config &config)
{
/* basic machine hardware */
I8080(config, m_maincpu, XTAL(2'000'000));
m_maincpu->set_addrmap(AS_PROGRAM, &cm1800_state::mem_map);
m_maincpu->set_addrmap(AS_IO, &cm1800_state::io_map);
/* video hardware */
AY51013(config, m_uart); // exact uart type is unknown
m_uart->read_si_callback().set("rs232", FUNC(rs232_port_device::rxd_r));
m_uart->write_so_callback().set("rs232", FUNC(rs232_port_device::write_txd));
m_uart->set_auto_rdav(true);
clock_device &uart_clock(CLOCK(config, "uart_clock", 153600));
uart_clock.signal_handler().set(m_uart, FUNC(ay31015_device::write_tcp));
uart_clock.signal_handler().append(m_uart, FUNC(ay31015_device::write_rcp));
RS232_PORT(config, "rs232", default_rs232_devices, "terminal");
}
/* ROM definition */
ROM_START( cm1800 )
ROM_REGION( 0x800, "roms", ROMREGION_ERASEFF )
ROM_LOAD( "cm1800.rom", 0x0000, 0x0800, CRC(85d71d25) SHA1(42dc87d2eddc2906fa26d35db88a2e29d50fb481) )
ROM_END
} // anonymous namespace
/* Driver */
/* YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS */
COMP( 1981, cm1800, 0, 0, cm1800, cm1800, cm1800_state, empty_init, "<unknown>", "CM-1800", MACHINE_NOT_WORKING | MACHINE_NO_SOUND_HW | MACHINE_SUPPORTS_SAVE )