1 // license:BSD-3-Clause
2 // copyright-holders:Miodrag Milanovic, Robbbert
3 /***************************************************************************
4
5 mc-CP/M-Computer
6
7 2010-08-31 Skeleton driver.
8 2010-11-18 Connected to a terminal
9 2011-09-28 Added more bioses
10
11 Some Monitor commands (varies between versions):
12
13 B - lock keyboard (^N to regain control)
14 E - prints a number
15 I - Select boot drive/set parameters - then it attempts to boot
16 K,O - display version header
17 N - newline
18 Z - print 'EFFF'
19
20 URL for v3.4: http://www.hanshehl.de/mc-prog.htm (German language)
21
22 Although the manual specifies ports 40-44 for the FDC, all bios versions
23 support it at 30-34 as well.
24
25 No software to test with, so we'll never know if the FDC works.
26
27 ****************************************************************************/
28
29 #include "emu.h"
30 #include "cpu/z80/z80.h"
31 #include "machine/z80pio.h"
32 #include "machine/z80sio.h"
33 #include "machine/clock.h"
34 #include "machine/bankdev.h"
35 #include "machine/wd_fdc.h"
36 #include "bus/rs232/rs232.h"
37 #include "imagedev/floppy.h"
38
39
40 class mccpm_state : public driver_device
41 {
42 public:
mccpm_state(const machine_config & mconfig,device_type type,const char * tag)43 mccpm_state(const machine_config &mconfig, device_type type, const char *tag)
44 : driver_device(mconfig, type, tag)
45 , m_maincpu(*this, "maincpu")
46 , m_bank(*this, "bankdev_map")
47 , m_fdc (*this, "fdc")
48 , m_floppy0(*this, "fdc:0")
49 , m_floppy1(*this, "fdc:1")
50 { }
51
52 void mccpm(machine_config &config);
53
54 private:
55 void io_map(address_map &map);
56 void mem_map(address_map &map);
57 void bankdev_map(address_map &map);
58 void port44_w(u8);
59 u8 port44_r();
60 void fdc_irq(bool);
61 u8 m_fdc_status;
62 floppy_image_device *m_floppy;
63 void machine_reset() override;
64 void machine_start() override;
65 required_device<cpu_device> m_maincpu;
66 required_device<address_map_bank_device> m_bank;
67 required_device<fd1797_device> m_fdc;
68 required_device<floppy_connector> m_floppy0;
69 required_device<floppy_connector> m_floppy1;
70 };
71
72
bankdev_map(address_map & map)73 void mccpm_state::bankdev_map(address_map &map)
74 {
75 // bank 0
76 map(0x0000, 0x3fff).rom().region("maincpu", 0);
77 map(0x4000, 0x7fff).lr8(NAME([this] () { if (!machine().side_effects_disabled()) m_bank->set_bank(1); return 0xff; }));
78 // bank 1
79 map(0x8000, 0xffff).ram();
80 }
81
mem_map(address_map & map)82 void mccpm_state::mem_map(address_map &map)
83 {
84 map(0x0000, 0x7fff).m(m_bank, FUNC(address_map_bank_device::amap8));
85 map(0x8000, 0xffff).ram();
86 }
87
io_map(address_map & map)88 void mccpm_state::io_map(address_map &map)
89 {
90 map.unmap_value_high();
91 map.global_mask(0xff);
92 map(0x40, 0x43).rw(m_fdc, FUNC(fd1797_device::read), FUNC(fd1797_device::write));
93 map(0x44, 0x44).rw(FUNC(mccpm_state::port44_r), FUNC(mccpm_state::port44_w));
94 map(0xf0, 0xf3).rw("sio", FUNC(z80sio_device::ba_cd_r), FUNC(z80sio_device::ba_cd_w));
95 map(0xf4, 0xf7).rw("pio", FUNC(z80pio_device::read_alt), FUNC(z80pio_device::write_alt));
96 }
97
98 /* Input ports */
INPUT_PORTS_START(mccpm)99 static INPUT_PORTS_START( mccpm )
100 INPUT_PORTS_END
101
102 void mccpm_state::port44_w(u8 data)
103 {
104 m_floppy = nullptr;
105 if (BIT(data, 1))
106 m_floppy = m_floppy1->get_device();
107 else
108 if (BIT(data, 0))
109 m_floppy = m_floppy0->get_device();
110
111 m_fdc->set_floppy(m_floppy);
112
113 if (m_floppy)
114 {
115 m_floppy->mon_w(0);
116 m_fdc->dden_w(!BIT(data, 4)); // 0 = FM; 1 = MFM
117 }
118 // side select comes from fdc pin 25
119 m_fdc->set_unscaled_clock(BIT(data, 5) ? 1e6 : 2e6); // 13 or 20cm clock select
120 m_maincpu->set_input_line_vector(0, 0xD7 ); // Z80 - jump to 0x0010 upon interrupt acknowledge IM 0 (or should it say 0x10?)
121 }
122
port44_r()123 u8 mccpm_state::port44_r()
124 {
125 // bit 4 is floppy hld_r, not yet emulated.
126 // So we assume the head is loaded if the drive is selected.
127 if (m_floppy)
128 return m_fdc_status | 4;
129 else
130 return m_fdc_status;
131 }
132
fdc_irq(bool state)133 void mccpm_state::fdc_irq(bool state)
134 {
135 m_fdc_status = (m_fdc_status & 0xfd) | (state ? 2 : 0);
136 m_maincpu->set_input_line(0, state ? ASSERT_LINE : CLEAR_LINE);
137 }
138
machine_reset()139 void mccpm_state::machine_reset()
140 {
141 m_bank->set_bank(0);
142 m_fdc_status = 0xfb;
143 m_floppy = nullptr;
144 }
145
machine_start()146 void mccpm_state::machine_start()
147 {
148 save_item(NAME(m_fdc_status));;
149 }
150
flop_types(device_slot_interface & device)151 static void flop_types(device_slot_interface &device)
152 {
153 device.option_add("flop", FLOPPY_525_QD);
154 }
155
mccpm(machine_config & config)156 void mccpm_state::mccpm(machine_config &config)
157 {
158 /* basic machine hardware */
159 Z80(config, m_maincpu, XTAL(4'000'000));
160 m_maincpu->set_addrmap(AS_PROGRAM, &mccpm_state::mem_map);
161 m_maincpu->set_addrmap(AS_IO, &mccpm_state::io_map);
162
163 ADDRESS_MAP_BANK(config, m_bank, 0);
164 m_bank->set_addrmap(0, &mccpm_state::bankdev_map);
165 m_bank->set_data_width(8);
166 m_bank->set_addr_width(16);
167 m_bank->set_stride(0x8000);
168
169 /* Devices */
170 // clock supplied by pair of HD4702 baud rate generators
171 clock_device &uart_clock(CLOCK(config, "uart_clock", 153'600));
172 uart_clock.signal_handler().set("sio", FUNC(z80sio_device::txca_w));
173 uart_clock.signal_handler().append("sio", FUNC(z80sio_device::rxca_w));
174
175 // Ch A: terminal; Ch B: printer
176 z80sio_device& sio(Z80SIO(config, "sio", XTAL(4'000'000)));
177 sio.out_int_callback().set_inputline(m_maincpu, INPUT_LINE_IRQ0);
178 sio.out_txda_callback().set("rs232", FUNC(rs232_port_device::write_txd));
179 sio.out_dtra_callback().set("rs232", FUNC(rs232_port_device::write_dtr));
180 sio.out_rtsa_callback().set("rs232", FUNC(rs232_port_device::write_rts));
181
182 rs232_port_device &rs232(RS232_PORT(config, "rs232", default_rs232_devices, "terminal"));
183 rs232.rxd_handler().set("sio", FUNC(z80sio_device::rxa_w));
184 rs232.cts_handler().set("sio", FUNC(z80sio_device::ctsa_w));
185
186 Z80PIO(config, "pio", XTAL(4'000'000));
187
188 FD1797(config, m_fdc, 8_MHz_XTAL / 8);
189 m_fdc->intrq_wr_callback().set([this] (bool state) { mccpm_state::fdc_irq(state); });
190 m_fdc->drq_wr_callback().set([this] (u8 state) { m_fdc_status = (m_fdc_status & 0xfe) | (state ? 1 : 0); });
191 FLOPPY_CONNECTOR(config, "fdc:0", flop_types, "flop", floppy_image_device::default_floppy_formats).enable_sound(true);
192 FLOPPY_CONNECTOR(config, "fdc:1", flop_types, "flop", floppy_image_device::default_floppy_formats).enable_sound(true);
193 }
194
195 /* ROM definition */
196 ROM_START( mccpm )
197 ROM_REGION( 0x4000, "maincpu", ROMREGION_ERASEFF )
198 ROM_SYSTEM_BIOS(0, "v36", "V3.6")
199 ROMX_LOAD("mon36.j15", 0x0000, 0x1000, CRC(9c441537) SHA1(f95bad52d9392b8fc9d9b8779b7b861672a0022b), ROM_BIOS(0))
200 ROM_SYSTEM_BIOS(1, "v34", "V3.4")
201 ROMX_LOAD("monhemc.bin", 0x0000, 0x1000, CRC(cae7b56e) SHA1(1f40be9491a595e6705099a452743cc0d49bfce8), ROM_BIOS(1))
202 ROM_SYSTEM_BIOS(2, "v34a", "V3.4 (alt)")
203 ROMX_LOAD("mc01mon.bin", 0x0000, 0x0d00, CRC(d1c89043) SHA1(f52a0ed3793dde0de74596be7339233b6a1770af), ROM_BIOS(2))
204 ROM_END
205
206 /* Driver */
207
208 // YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS
209 COMP( 1981, mccpm, 0, 0, mccpm, mccpm, mccpm_state, empty_init, "GRAF Elektronik Systeme GmbH", "mc-CP/M-Computer", MACHINE_NOT_WORKING | MACHINE_NO_SOUND | MACHINE_SUPPORTS_SAVE )
210