Sprinter/mame
2
0
Fork 0
mirror of https://github.com/holub/mame synced 2025-04-24 09:20:02 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

commodore/kim1.cpp: Added RS-232 port for console. (#12161)

Browse Source
This commit is contained in:
Jeff Tranter 2024-04-15 16:38:34 -04:00 committed by GitHub
parent cf4959e556
commit f6d6f06c0c
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 57 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
src/mame/commodore/kim1.cpp
View File

@ -26,6 +26,20 @@ How to use cassette:
1873 press GO to load tape
NOTE: save end address is next address from program end
How to use the console:
Enable using Input Settings/Toggle Inputs TTY On.
Connect to the console at 2400 bps 8N2 (speeds from 110 to 9600 bps should work).
Hit <Delete> or <Return> on the console and it should display "KIM"
and accept monitor commands:
<hex address> <space> Show data at <address>
<hex data> . Write to current address
<Return> Advance to next address
<Line Feed> Move to previous address
<Delete> Terminate memory edit
L Load program from paper tape
Q Save memory to paper tape (saves from current address to $17F7, $17F8)
G Go from current address
Keyboard and Display logic
==========================
@ -59,7 +73,6 @@ Paste test:
TODO:
- LEDs should be dark at startup (RS key to activate)
- add TTY support
******************************************************************************/
@ -67,6 +80,7 @@ TODO:
#include "bus/kim1/cards.h"
#include "bus/kim1/kim1bus.h"
#include "bus/rs232/rs232.h"
#include "cpu/m6502/m6502.h"
#include "imagedev/cassette.h"
#include "machine/mos6530.h"
@ -96,6 +110,7 @@ public:
, m_miot(*this, "miot%u", 0)
, m_digit_pwm(*this, "digit_pwm")
, m_cass(*this, "cassette")
, m_rs232(*this, "rs232")
, m_row(*this, "ROW%u", 0U)
, m_special(*this, "SPECIAL")
{ }
@ -113,11 +128,13 @@ private:
required_device_array<mos6530_device, 2> m_miot;
required_device<pwm_display_device> m_digit_pwm;
required_device<cassette_image_device> m_cass;
required_ioport_array<3> m_row;
required_device<rs232_port_device> m_rs232;
required_ioport_array<4> m_row;
required_ioport m_special;
int m_sync_state = 0;
bool m_k7 = false;
bool m_tty_in = false;
uint8_t m_u2_port_b = 0;
uint8_t m_311_output = 0;
uint32_t m_cassette_high_count = 0;
@ -134,6 +151,7 @@ private:
void u2_write_b(uint8_t data);
TIMER_DEVICE_CALLBACK_MEMBER(cassette_input);
void tty_callback(int data);
};
void kim1_state::machine_start()
@ -141,6 +159,7 @@ void kim1_state::machine_start()
// Register for save states
save_item(NAME(m_sync_state));
save_item(NAME(m_k7));
save_item(NAME(m_tty_in));
save_item(NAME(m_u2_port_b));
save_item(NAME(m_311_output));
save_item(NAME(m_cassette_high_count));
@ -153,6 +172,15 @@ void kim1_state::machine_reset()
}
static DEVICE_INPUT_DEFAULTS_START(terminal)
DEVICE_INPUT_DEFAULTS("RS232_RXBAUD", 0xff, RS232_BAUD_2400)
DEVICE_INPUT_DEFAULTS("RS232_TXBAUD", 0xff, RS232_BAUD_2400)
DEVICE_INPUT_DEFAULTS("RS232_DATABITS", 0xff, RS232_DATABITS_8)
DEVICE_INPUT_DEFAULTS("RS232_PARITY", 0xff, RS232_PARITY_NONE)
DEVICE_INPUT_DEFAULTS("RS232_STOPBITS", 0xff, RS232_STOPBITS_2)
DEVICE_INPUT_DEFAULTS_END
//**************************************************************************
// I/O
//**************************************************************************
@ -195,10 +223,13 @@ uint8_t kim1_state::u2_read_a()
// Read from keyboard
offs_t const sel = (m_u2_port_b >> 1) & 0x0f;
if (3U > sel)
if (4U > sel)
data = m_row[sel]->read() & 0x7f;
return data | 0x80;
// Read from serial console
data = data | (m_rs232->rxd_r() << 7);
return data;
}
void kim1_state::u2_write_a(uint8_t data)
@ -226,6 +257,9 @@ void kim1_state::u2_write_b(uint8_t data)
// Cassette write/speaker update
if (data & 0x20)
m_cass->output((data & 0x80) ? -1.0 : 1.0);
// Write bit 0 to serial console. The hardware ANDs it with TTY in.
m_rs232->write_txd(BIT(data, 0) & (m_tty_in ? 1 : 0));
}
TIMER_DEVICE_CALLBACK_MEMBER(kim1_state::cassette_input)
@ -266,6 +300,17 @@ void kim1_state::sync_map(address_map &map)
map(0x0000, 0xffff).r(FUNC(kim1_state::sync_r));
}
// Called when serial data comes in from console.
void kim1_state::tty_callback(int data)
{
// Save state as it is needed by u2_write_b()
m_tty_in = data;
// Send data back to terminal to simulate the KIM-1 hardware
// echo. The hardware ANDs this with U2 port B port 0.
m_rs232->write_txd(data & BIT(m_u2_port_b, 0));
}
//**************************************************************************
// INPUT PORTS
@ -299,6 +344,9 @@ static INPUT_PORTS_START( kim1 )
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F) PORT_CHAR('F')
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_CODE(KEYCODE_E) PORT_CHAR('E')
PORT_START("ROW3")
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_CODE(KEYCODE_T) PORT_TOGGLE PORT_NAME("TTY")
PORT_START("SPECIAL")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_S) PORT_CHAR('S') PORT_NAME("ST") PORT_CHANGED_MEMBER(DEVICE_SELF, kim1_state, trigger_nmi, 0)
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_R) PORT_CHAR('R') PORT_NAME("RS") PORT_CHANGED_MEMBER(DEVICE_SELF, kim1_state, trigger_reset, 0)
@ -338,6 +386,11 @@ void kim1_state::kim1(machine_config &config)
m_cass->add_route(ALL_OUTPUTS, "mono", 0.05);
m_cass->set_interface("kim1_cass");
// serial console/tty
rs232_port_device &m_rs232(RS232_PORT(config, "rs232", default_rs232_devices, "terminal"));
m_rs232.set_option_device_input_defaults("terminal", DEVICE_INPUT_DEFAULTS_NAME(terminal));
m_rs232.rxd_handler().set(FUNC(kim1_state::tty_callback));
SPEAKER(config, "mono").front_center();
TIMER(config, "cassette_timer").configure_periodic(FUNC(kim1_state::cassette_input), attotime::from_hz(44100));