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
|
// license:BSD-3-Clause
// copyright-holders:Miodrag Milanovic, Robbbert
/***************************************************************************
MITS Altair 680b
2009-12-03 Skeleton driver.
2011-06-08 Connected to a terminal
Monitor Commands:
J
L switch to terminal mode
M
N modify memory in a limited way
P this does a rti and causes a momentary crash. Weird.
ToDo:
****************************************************************************/
#include "emu.h"
#include "cpu/m6800/m6800.h"
#include "machine/6850acia.h"
#include "bus/rs232/rs232.h"
#include "machine/f4702.h"
namespace {
class mits680b_state : public driver_device
{
public:
mits680b_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag)
, m_maincpu(*this, "maincpu")
{ }
void mits680b(machine_config &config);
private:
uint8_t status_check_r();
void mem_map(address_map &map);
required_device<cpu_device> m_maincpu;
};
uint8_t mits680b_state::status_check_r()
{
return 0; // crashes at start if bit 7 high
}
void mits680b_state::mem_map(address_map &map)
{
map.unmap_value_high();
map(0x0000, 0x03ff).ram(); // 1024 bytes RAM
map(0xf000, 0xf001).rw("acia", FUNC(acia6850_device::read), FUNC(acia6850_device::write));
map(0xf002, 0xf002).r(FUNC(mits680b_state::status_check_r));
map(0xff00, 0xffff).rom().region("roms", 0);
}
/* Input ports */
static INPUT_PORTS_START( mits680b )
PORT_START("BAUD")
PORT_DIPNAME(0xf, 0x8, "Baud Rate") PORT_DIPLOCATION("0-3:1,2,3,4")
PORT_DIPSETTING(0x2, "50")
PORT_DIPSETTING(0x3, "75")
PORT_DIPSETTING(0xf, "110")
PORT_DIPSETTING(0x4, "134.5")
PORT_DIPSETTING(0xe, "150")
PORT_DIPSETTING(0x5, "200")
PORT_DIPSETTING(0xd, "300")
PORT_DIPSETTING(0x6, "600")
PORT_DIPSETTING(0xb, "1200")
PORT_DIPSETTING(0xa, "1800")
PORT_DIPSETTING(0x7, "2400")
PORT_DIPSETTING(0x9, "4800")
PORT_DIPSETTING(0x8, "9600")
INPUT_PORTS_END
void mits680b_state::mits680b(machine_config &config)
{
/* basic machine hardware */
M6800(config, m_maincpu, 2_MHz_XTAL / 4);
m_maincpu->set_addrmap(AS_PROGRAM, &mits680b_state::mem_map);
f4702_device &brg(F4702(config, "brg", 2.4576_MHz_XTAL));
brg.s_callback().set_ioport("BAUD");
brg.z_callback().set("acia", FUNC(acia6850_device::write_txc));
brg.z_callback().append("acia", FUNC(acia6850_device::write_rxc));
acia6850_device &acia(ACIA6850(config, "acia"));
acia.txd_handler().set("rs232", FUNC(rs232_port_device::write_txd));
acia.rts_handler().set("rs232", FUNC(rs232_port_device::write_rts));
rs232_port_device &rs232(RS232_PORT(config, "rs232", default_rs232_devices, "terminal"));
rs232.rxd_handler().set("acia", FUNC(acia6850_device::write_rxd));
rs232.cts_handler().set("acia", FUNC(acia6850_device::write_cts));
}
/* ROM definition */
ROM_START( mits680b )
ROM_REGION( 0x100, "roms", ROMREGION_ERASEFF )
ROM_LOAD( "mits680b.bin", 0x0000, 0x0100, CRC(397e717f) SHA1(257d3eb1343b8611dc05455aeed33615d581f29c))
ROM_END
} // Anonymous namespace
// YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS
COMP( 1976, mits680b, 0, 0, mits680b, mits680b, mits680b_state, empty_init, "MITS", "Altair 680b", MACHINE_NOT_WORKING | MACHINE_NO_SOUND | MACHINE_SUPPORTS_SAVE )
|