(nw) okean240t : added uart, fixed regression in terminal screen.

This commit is contained in:
Robbbert 2017-09-21 05:46:58 +10:00
parent 647a85ecbd
commit 83f687a8d7

View File

@ -52,7 +52,9 @@ Usage of terminal:
#include "emu.h" #include "emu.h"
#include "cpu/i8085/i8085.h" #include "cpu/i8085/i8085.h"
#include "machine/keyboard.h" #include "machine/keyboard.h"
#include "machine/terminal.h" #include "machine/clock.h"
#include "machine/i8251.h"
#include "bus/rs232/rs232.h"
#include "screen.h" #include "screen.h"
@ -65,16 +67,18 @@ public:
}; };
okean240_state(const machine_config &mconfig, device_type type, const char *tag) okean240_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag), : driver_device(mconfig, type, tag)
m_term_data(0), , m_term_data(0)
m_j(0), , m_j(0)
m_scroll(0), , m_scroll(0)
m_p_videoram(*this, "videoram"), , m_tog(0)
m_io_modifiers(*this, "MODIFIERS"), , m_p_videoram(*this, "videoram")
m_maincpu(*this, "maincpu") , m_io_modifiers(*this, "MODIFIERS")
{ , m_maincpu(*this, "maincpu")
} , m_uart(*this, "uart")
{ }
DECLARE_WRITE_LINE_MEMBER(clock_tick);
DECLARE_READ8_MEMBER(okean240_kbd_status_r); DECLARE_READ8_MEMBER(okean240_kbd_status_r);
DECLARE_READ8_MEMBER(okean240a_kbd_status_r); DECLARE_READ8_MEMBER(okean240a_kbd_status_r);
DECLARE_READ8_MEMBER(term_status_r); DECLARE_READ8_MEMBER(term_status_r);
@ -87,44 +91,46 @@ public:
DECLARE_DRIVER_INIT(okean240); DECLARE_DRIVER_INIT(okean240);
uint32_t screen_update_okean240(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); uint32_t screen_update_okean240(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
protected: private:
virtual void machine_start() override; virtual void machine_start() override;
virtual void machine_reset() override; virtual void machine_reset() override;
virtual void video_start() override; virtual void video_start() override;
virtual void device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr) override; virtual void device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr) override;
uint8_t m_term_data; uint8_t m_term_data;
uint8_t m_j; uint8_t m_j;
uint8_t m_scroll; uint8_t m_scroll;
uint8_t m_tog;
required_shared_ptr<uint8_t> m_p_videoram; required_shared_ptr<uint8_t> m_p_videoram;
optional_ioport m_io_modifiers; optional_ioport m_io_modifiers;
ioport_port *m_io_port[11]; ioport_port *m_io_port[11];
required_device<cpu_device> m_maincpu; required_device<cpu_device> m_maincpu;
optional_device<i8251_device> m_uart;
}; };
// okean240 requires bit 4 to change // okean240 requires bit 4 to change
READ8_MEMBER( okean240_state::okean240_kbd_status_r ) READ8_MEMBER( okean240_state::okean240_kbd_status_r )
{ {
m_tog ^= 0x18;
if (m_term_data) if (m_term_data)
return (machine().rand() & 0x10) | 2; return m_tog | 2;
else else
return machine().rand() & 0x10; return m_tog & 0x18;
} }
// see if a key is pressed and indicate status // see if a key is pressed and indicate status
READ8_MEMBER( okean240_state::okean240a_kbd_status_r ) READ8_MEMBER( okean240_state::okean240a_kbd_status_r )
{ {
uint8_t i,j; uint8_t i,j;
m_tog ^= 0x18;
for (i = 0; i < 11; i++) for (i = 0; i < 11; i++)
{ {
j = m_io_port[i]->read(); j = m_io_port[i]->read();
if (j) if (j)
return (machine().rand() & 0x10) | 2; return m_tog | 2;
} }
m_j = 0; m_j = 0;
return machine().rand() & 0x10; return m_tog & 0x18;
} }
// for test rom // for test rom
@ -140,7 +146,8 @@ READ8_MEMBER( okean240_state::okean240_keyboard_r )
else else
if (offset == 1) // port 41 bit 1 (test rom status bit) if (offset == 1) // port 41 bit 1 (test rom status bit)
{ {
return (machine().rand() & 2); m_tog ^= 6;
return m_tog;
} }
else // port 42 (not used) else // port 42 (not used)
return 0; return 0;
@ -168,7 +175,8 @@ READ8_MEMBER( okean240_state::okean240a_keyboard_r )
else else
if (offset == 1) // port 41 bits 6&7 (modifier keys), and bit 1 (test rom status bit) if (offset == 1) // port 41 bits 6&7 (modifier keys), and bit 1 (test rom status bit)
{ {
return (machine().rand() & 2) | m_io_modifiers->read(); m_tog ^= 2;
return m_tog | m_io_modifiers->read();
} }
else // port 42 (get a row) else // port 42 (get a row)
{ {
@ -224,8 +232,8 @@ static ADDRESS_MAP_START(okean240a_io, AS_IO, 8, okean240_state)
ADDRESS_MAP_GLOBAL_MASK(0xff) ADDRESS_MAP_GLOBAL_MASK(0xff)
AM_RANGE(0x40, 0x42) AM_READWRITE(okean240a_keyboard_r,okean240_keyboard_w) AM_RANGE(0x40, 0x42) AM_READWRITE(okean240a_keyboard_r,okean240_keyboard_w)
AM_RANGE(0x80, 0x80) AM_READ(okean240a_kbd_status_r) AM_RANGE(0x80, 0x80) AM_READ(okean240a_kbd_status_r)
AM_RANGE(0xa0, 0xa0) AM_READ(term_r) AM_RANGE(0xa0, 0xa0) AM_DEVREADWRITE("uart", i8251_device, data_r, data_w)
AM_RANGE(0xa1, 0xa1) AM_READ(term_status_r) AM_RANGE(0xa1, 0xa1) AM_DEVREADWRITE("uart", i8251_device, status_r, control_w)
AM_RANGE(0xc0, 0xc0) AM_WRITE(scroll_w) AM_RANGE(0xc0, 0xc0) AM_WRITE(scroll_w)
// AM_RANGE(0x00, 0x1f)=ppa00.data // AM_RANGE(0x00, 0x1f)=ppa00.data
// AM_RANGE(0x20, 0x23)=dsk.data // AM_RANGE(0x20, 0x23)=dsk.data
@ -241,12 +249,14 @@ ADDRESS_MAP_END
static ADDRESS_MAP_START(okean240t_io, AS_IO, 8, okean240_state) static ADDRESS_MAP_START(okean240t_io, AS_IO, 8, okean240_state)
ADDRESS_MAP_GLOBAL_MASK(0xff) ADDRESS_MAP_GLOBAL_MASK(0xff)
AM_RANGE(0x40, 0x42) AM_READWRITE(okean240_keyboard_r,okean240_keyboard_w) AM_RANGE(0x20, 0x23) AM_WRITENOP
AM_RANGE(0x40, 0x42) AM_READ(okean240_keyboard_r)
AM_RANGE(0x80, 0x80) AM_READ(okean240_kbd_status_r) AM_RANGE(0x80, 0x80) AM_READ(okean240_kbd_status_r)
AM_RANGE(0xa0, 0xa0) AM_DEVWRITE("terminal", generic_terminal_device, write) AM_RANGE(0xa0, 0xa0) AM_DEVREADWRITE("uart", i8251_device, data_r, data_w)
AM_RANGE(0xa0, 0xa0) AM_READ(term_r) AM_RANGE(0xa1, 0xa1) AM_DEVREADWRITE("uart", i8251_device, status_r, control_w)
AM_RANGE(0xa1, 0xa1) AM_READ(term_status_r)
AM_RANGE(0xc0, 0xc0) AM_WRITE(scroll_w) AM_RANGE(0xc0, 0xc0) AM_WRITE(scroll_w)
AM_RANGE(0xc1, 0xc3) AM_WRITENOP
AM_RANGE(0xe0, 0xe3) AM_WRITENOP
ADDRESS_MAP_END ADDRESS_MAP_END
/* Input ports */ /* Input ports */
@ -472,6 +482,13 @@ static GFXDECODE_START( okean240a )
GFXDECODE_ENTRY( "maincpu", 0xef63, okean240_charlayout, 0, 1 ) GFXDECODE_ENTRY( "maincpu", 0xef63, okean240_charlayout, 0, 1 )
GFXDECODE_END GFXDECODE_END
// source of baud frequency is not documented, so we invent a clock
WRITE_LINE_MEMBER( okean240_state::clock_tick )
{
m_uart->write_txc(state);
m_uart->write_rxc(state);
}
static MACHINE_CONFIG_START( okean240t ) static MACHINE_CONFIG_START( okean240t )
/* basic machine hardware */ /* basic machine hardware */
@ -479,8 +496,21 @@ static MACHINE_CONFIG_START( okean240t )
MCFG_CPU_PROGRAM_MAP(okean240_mem) MCFG_CPU_PROGRAM_MAP(okean240_mem)
MCFG_CPU_IO_MAP(okean240t_io) MCFG_CPU_IO_MAP(okean240t_io)
MCFG_DEVICE_ADD("uart_clock", CLOCK, 153600)
MCFG_CLOCK_SIGNAL_HANDLER(WRITELINE(okean240_state, clock_tick))
MCFG_DEVICE_ADD("uart", I8251, 0)
MCFG_I8251_TXD_HANDLER(DEVWRITELINE("rs232", rs232_port_device, write_txd))
MCFG_I8251_DTR_HANDLER(DEVWRITELINE("rs232", rs232_port_device, write_dtr))
MCFG_I8251_RTS_HANDLER(DEVWRITELINE("rs232", rs232_port_device, write_rts))
MCFG_RS232_PORT_ADD("rs232", default_rs232_devices, "terminal")
MCFG_RS232_RXD_HANDLER(DEVWRITELINE("uart", i8251_device, write_rxd))
MCFG_RS232_DSR_HANDLER(DEVWRITELINE("uart", i8251_device, write_dsr))
MCFG_RS232_CTS_HANDLER(DEVWRITELINE("uart", i8251_device, write_cts))
/* video hardware */ /* video hardware */
MCFG_SCREEN_ADD("screen", RASTER) MCFG_SCREEN_ADD("screen1", RASTER)
MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_REFRESH_RATE(50)
MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */ MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */
MCFG_SCREEN_SIZE(256, 256) MCFG_SCREEN_SIZE(256, 256)
@ -489,25 +519,26 @@ static MACHINE_CONFIG_START( okean240t )
MCFG_SCREEN_PALETTE("palette") MCFG_SCREEN_PALETTE("palette")
MCFG_PALETTE_ADD_MONOCHROME("palette") MCFG_PALETTE_ADD_MONOCHROME("palette")
MCFG_DEVICE_ADD("terminal", GENERIC_TERMINAL, 0)
MCFG_GENERIC_TERMINAL_KEYBOARD_CB(PUT(okean240_state, kbd_put))
MACHINE_CONFIG_END MACHINE_CONFIG_END
static MACHINE_CONFIG_DERIVED( okean240a, okean240t ) static MACHINE_CONFIG_DERIVED( okean240a, okean240t )
MCFG_CPU_MODIFY("maincpu") MCFG_CPU_MODIFY("maincpu")
MCFG_CPU_IO_MAP(okean240a_io) MCFG_CPU_IO_MAP(okean240a_io)
MCFG_GFXDECODE_ADD("gfxdecode", "palette", okean240a) MCFG_GFXDECODE_ADD("gfxdecode", "palette", okean240a)
MCFG_DEVICE_REMOVE("terminal") MCFG_DEVICE_REMOVE("rs232")
MCFG_DEVICE_ADD("keyboard", GENERIC_KEYBOARD, 0) MCFG_RS232_PORT_ADD("rs232", default_rs232_devices, "keyboard")
MCFG_GENERIC_KEYBOARD_CB(PUT(okean240_state, kbd_put)) MCFG_RS232_RXD_HANDLER(DEVWRITELINE("uart", i8251_device, write_rxd))
MCFG_RS232_DSR_HANDLER(DEVWRITELINE("uart", i8251_device, write_dsr))
MCFG_RS232_CTS_HANDLER(DEVWRITELINE("uart", i8251_device, write_cts))
MACHINE_CONFIG_END MACHINE_CONFIG_END
static MACHINE_CONFIG_DERIVED( okean240, okean240t ) static MACHINE_CONFIG_DERIVED( okean240, okean240t )
MCFG_CPU_MODIFY("maincpu") MCFG_CPU_MODIFY("maincpu")
MCFG_CPU_IO_MAP(okean240_io) MCFG_CPU_IO_MAP(okean240_io)
MCFG_GFXDECODE_ADD("gfxdecode", "palette", okean240) MCFG_GFXDECODE_ADD("gfxdecode", "palette", okean240)
MCFG_DEVICE_REMOVE("terminal") MCFG_DEVICE_REMOVE("uart")
MCFG_DEVICE_REMOVE("uart_clock")
MCFG_DEVICE_REMOVE("rs232")
MCFG_DEVICE_ADD("keyboard", GENERIC_KEYBOARD, 0) MCFG_DEVICE_ADD("keyboard", GENERIC_KEYBOARD, 0)
MCFG_GENERIC_KEYBOARD_CB(PUT(okean240_state, kbd_put)) MCFG_GENERIC_KEYBOARD_CB(PUT(okean240_state, kbd_put))
MACHINE_CONFIG_END MACHINE_CONFIG_END
@ -535,4 +566,4 @@ ROM_END
// YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS // YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS
COMP( 1986, okean240, 0, 0, okean240, okean240, okean240_state, okean240, "<unknown>", "Okeah-240", MACHINE_NOT_WORKING | MACHINE_NO_SOUND) COMP( 1986, okean240, 0, 0, okean240, okean240, okean240_state, okean240, "<unknown>", "Okeah-240", MACHINE_NOT_WORKING | MACHINE_NO_SOUND)
COMP( 1986, okean240a, okean240, 0, okean240a, okean240a, okean240_state, okean240, "<unknown>", "Ocean-240 with FDD", MACHINE_NOT_WORKING | MACHINE_NO_SOUND) COMP( 1986, okean240a, okean240, 0, okean240a, okean240a, okean240_state, okean240, "<unknown>", "Ocean-240 with FDD", MACHINE_NOT_WORKING | MACHINE_NO_SOUND)
COMP( 1986, okean240t, okean240, 0, okean240t, okean240, okean240_state, okean240, "<unknown>", "Ocean-240 Test ROM", MACHINE_NO_SOUND) COMP( 1986, okean240t, okean240, 0, okean240t, okean240, okean240_state, okean240, "<unknown>", "Ocean-240 Test ROM", MACHINE_NOT_WORKING | MACHINE_NO_SOUND)