mirror of
https://github.com/holub/mame
synced 2025-05-03 04:56:45 +03:00
Merge pull request #5589 from zzemu-cn/branch_mess_h01x
add mess nf500a h01jce
This commit is contained in:
R. Belmont
GitHub
commit
b7dec04012
@ -1129,6 +1129,7 @@ function linkProjects_mame_mess(_target, _subtarget)
|
||||
"gi",
|
||||
"gridcomp",
|
||||
"grundy",
|
||||
"h01x",
|
||||
"hartung",
|
||||
"heathkit",
|
||||
"hec2hrp",
|
||||
@ -2295,6 +2296,13 @@ files {
|
||||
MAME_DIR .. "src/mame/video/newbrain.cpp",
|
||||
}
|
||||
|
||||
createMESSProjects(_target, _subtarget, "h01x")
|
||||
files {
|
||||
MAME_DIR .. "src/mame/include/h01x.h",
|
||||
MAME_DIR .. "src/mame/drivers/h01x.cpp",
|
||||
MAME_DIR .. "src/mame/video/h01x.cpp",
|
||||
}
|
||||
|
||||
createMESSProjects(_target, _subtarget, "hartung")
|
||||
files {
|
||||
MAME_DIR .. "src/mame/drivers/gmaster.cpp",
|
||||
|
||||
435
src/mame/drivers/h01x.cpp
Normal file
435
src/mame/drivers/h01x.cpp
Normal file
@ -0,0 +1,435 @@
|
||||
// license:BSD-3-Clause
|
||||
/***************************************************************************
|
||||
NF500A (TRS80 Level II Basic)
|
||||
09/01/2019
|
||||
****************************************************************************/
|
||||
|
||||
#include "emu.h"
|
||||
#include "includes/h01x.h"
|
||||
|
||||
static const int16_t speaker_levels[] = {-32768, 0, 32767, 0};
|
||||
//static int16_t speaker_levels[] = { 0, -32767, 0, 32767 };
|
||||
|
||||
void h01x_state::nf500a(machine_config &config)
|
||||
{
|
||||
// basic machine hardware
|
||||
Z80(config, m_maincpu, 10.6445_MHz_XTAL / 6);
|
||||
m_maincpu->set_addrmap(AS_PROGRAM, &h01x_state::h01x_mem_map);
|
||||
m_maincpu->set_addrmap(AS_IO, &h01x_state::h01x_io_map);
|
||||
|
||||
// RAM
|
||||
RAM(config, m_ram).set_default_size("32K").set_default_value(0x00);
|
||||
// VRAM 16K 4bit
|
||||
RAM(config, m_vram).set_default_size("16K").set_default_value(0xf0);
|
||||
|
||||
// video hardware
|
||||
screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER));
|
||||
screen.set_raw(10.6445_MHz_XTAL, 336, 0, 336, 192, 0, 192);
|
||||
screen.set_screen_update(FUNC(h01x_state::screen_update_h01x));
|
||||
screen.set_palette("palette");
|
||||
|
||||
PALETTE(config, "palette", palette_device::MONOCHROME);
|
||||
|
||||
// sound hardware
|
||||
SPEAKER(config, "mono").front_center();
|
||||
SPEAKER_SOUND(config, m_speaker).set_levels(4, speaker_levels);
|
||||
m_speaker->add_route(ALL_OUTPUTS, "mono", 0.50);
|
||||
|
||||
/* devices */
|
||||
CASSETTE(config, m_cassette);
|
||||
m_cassette->add_route(ALL_OUTPUTS, "mono", 0.05);
|
||||
m_cassette->set_formats(trs80l2_cassette_formats);
|
||||
m_cassette->set_default_state(CASSETTE_STOPPED);
|
||||
//m_cassette->set_default_state(CASSETTE_PLAY);
|
||||
}
|
||||
|
||||
void h01x_state::h01jce(machine_config &config)
|
||||
{
|
||||
// basic machine hardware
|
||||
Z80(config, m_maincpu, 10.6445_MHz_XTAL / 6);
|
||||
m_maincpu->set_addrmap(AS_PROGRAM, &h01x_state::h01x_mem_map);
|
||||
m_maincpu->set_addrmap(AS_IO, &h01x_state::h01x_io_map);
|
||||
|
||||
// RAM
|
||||
RAM(config, m_ram).set_default_size("32K").set_default_value(0x00);
|
||||
// VRAM 16K 4bit
|
||||
RAM(config, m_vram).set_default_size("16K").set_default_value(0xf0);
|
||||
|
||||
// video hardware
|
||||
screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER));
|
||||
screen.set_raw(10.6445_MHz_XTAL, 336, 0, 336, 192, 0, 192);
|
||||
screen.set_screen_update(FUNC(h01x_state::screen_update_h01x));
|
||||
screen.set_palette("palette");
|
||||
|
||||
PALETTE(config, "palette", palette_device::MONOCHROME);
|
||||
|
||||
// sound hardware
|
||||
SPEAKER(config, "mono").front_center();
|
||||
SPEAKER_SOUND(config, m_speaker).set_levels(4, speaker_levels);
|
||||
m_speaker->add_route(ALL_OUTPUTS, "mono", 0.50);
|
||||
|
||||
/* devices */
|
||||
CASSETTE(config, m_cassette);
|
||||
m_cassette->add_route(ALL_OUTPUTS, "mono", 0.05);
|
||||
m_cassette->set_formats(trs80l2_cassette_formats);
|
||||
m_cassette->set_default_state(CASSETTE_STOPPED);
|
||||
//m_cassette->set_default_state(CASSETTE_PLAY);
|
||||
}
|
||||
|
||||
void h01x_state::h01x_mem_map(address_map &map)
|
||||
{
|
||||
map(0x0000, 0x3fff).rw(FUNC(h01x_state::mem_0000_r), FUNC(h01x_state::mem_0000_w));
|
||||
map(0x4000, 0x7fff).rw(FUNC(h01x_state::mem_4000_r), FUNC(h01x_state::mem_4000_w));
|
||||
map(0x8000, 0xbfff).rw(FUNC(h01x_state::mem_8000_r), FUNC(h01x_state::mem_8000_w));
|
||||
map(0xc000, 0xffff).rw(FUNC(h01x_state::mem_c000_r), FUNC(h01x_state::mem_c000_w));
|
||||
}
|
||||
|
||||
void h01x_state::h01x_io_map(address_map &map)
|
||||
{
|
||||
map.global_mask(0xff);
|
||||
map.unmap_value_high();
|
||||
|
||||
map(0x60, 0x60).w(FUNC(h01x_state::port_60_w));
|
||||
map(0x64, 0x64).w(FUNC(h01x_state::port_64_w));
|
||||
map(0x50, 0x50).r(FUNC(h01x_state::port_50_r));
|
||||
map(0x70, 0x70).w(FUNC(h01x_state::port_70_w));
|
||||
//map(0xff, 0xff).rw(FUNC(h01x_state::port_ff_r), FUNC(h01x_state::port_ff_w));
|
||||
}
|
||||
|
||||
/*
|
||||
|
||||
模拟器中的按键位置安排参照 TRS-80
|
||||
|
||||
NF-500A
|
||||
|
||||
KD7 KD6 KD5 KD4 KD3 KD2 KD1 KD0 扫描用地址
|
||||
A0 R E 5 CTRL? 6 T W BFFEH 0
|
||||
A1 3 2 Y E/C U 4 1 BFFDH 8
|
||||
A2 9 : 8 - 7 0 下 BFFBH 16
|
||||
A3 D S G ESC H F Q BFF7H 24
|
||||
A4 X A V Z C BRK BFEFH 32
|
||||
A5 L BS 左 K 空格 J ; 右 BFDFH 40
|
||||
A6 M . N B , / BFBFH 48
|
||||
A7 P RETN O SHIFT I [ BF7FH 56
|
||||
|
||||
按键 3 56 34 51 功能未验证，暂时放在 ] TAB \ ' 位置。
|
||||
|
||||
E/C E汉 = ~ 对应 ascii 20
|
||||
ESC 对应 ascii 31
|
||||
BS 对应 ascii 8
|
||||
61 对应 ascii 13 回车键
|
||||
16 对应 ascii 10 下
|
||||
56 对应 ascii 16
|
||||
27 3 34 51 无反应
|
||||
|
||||
测试按键 ASCII 码的程序
|
||||
10 A$=INKEY$
|
||||
20 IF LEN(A$)>0 THEN PRINT ASC(A$)
|
||||
30 GOTO 10
|
||||
|
||||
TRS-80
|
||||
左8 右9 上91 下10
|
||||
Clear 31
|
||||
@ 64
|
||||
退格 8
|
||||
|
||||
*/
|
||||
|
||||
/* Input ports */
|
||||
static INPUT_PORTS_START( h01x )
|
||||
PORT_START("LINE0")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("W") PORT_CODE(KEYCODE_W) PORT_CHAR('W') PORT_CHAR('w')
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("T") PORT_CODE(KEYCODE_T) PORT_CHAR('T') PORT_CHAR('t')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("6") PORT_CODE(KEYCODE_6) PORT_CODE(KEYCODE_6_PAD) PORT_CHAR('6') PORT_CHAR('&')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("5") PORT_CODE(KEYCODE_5) PORT_CODE(KEYCODE_5_PAD) PORT_CHAR('5') PORT_CHAR('%')
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("E") PORT_CODE(KEYCODE_E) PORT_CHAR('E') PORT_CHAR('e')
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("R") PORT_CODE(KEYCODE_R) PORT_CHAR('R') PORT_CHAR('r')
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
|
||||
PORT_START("LINE1")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("1") PORT_CODE(KEYCODE_1) PORT_CODE(KEYCODE_1_PAD) PORT_CHAR('1') PORT_CHAR('!')
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("4") PORT_CODE(KEYCODE_4) PORT_CODE(KEYCODE_4_PAD) PORT_CHAR('4') PORT_CHAR('$')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("U") PORT_CODE(KEYCODE_U) PORT_CHAR('U') PORT_CHAR('u')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("E/C") PORT_CODE(KEYCODE_TILDE) PORT_CHAR('`') PORT_CHAR('~')
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Y") PORT_CODE(KEYCODE_Y) PORT_CHAR('Y') PORT_CHAR('y')
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("2") PORT_CODE(KEYCODE_2) PORT_CODE(KEYCODE_2_PAD) PORT_CHAR('2') PORT_CHAR('"')
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("3") PORT_CODE(KEYCODE_3) PORT_CODE(KEYCODE_3_PAD) PORT_CHAR('3') PORT_CHAR('#')
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
|
||||
PORT_START("LINE2")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Down") PORT_CODE(KEYCODE_DOWN) PORT_CHAR(UCHAR_MAMEKEY(DOWN))
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("0") PORT_CODE(KEYCODE_0) PORT_CODE(KEYCODE_0_PAD) PORT_CHAR('0')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("7") PORT_CODE(KEYCODE_7) PORT_CODE(KEYCODE_7_PAD) PORT_CHAR('7') PORT_CHAR('\'')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("- =") PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('-') PORT_CHAR('=')
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("8") PORT_CODE(KEYCODE_8) PORT_CODE(KEYCODE_8_PAD) PORT_CHAR('8') PORT_CHAR('(')
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME(": *") PORT_CODE(KEYCODE_MINUS) PORT_CHAR(':') PORT_CHAR('*')
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("9") PORT_CODE(KEYCODE_9) PORT_CODE(KEYCODE_9_PAD) PORT_CHAR('9') PORT_CHAR(')')
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
|
||||
PORT_START("LINE3")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Q") PORT_CODE(KEYCODE_Q) PORT_CHAR('Q') PORT_CHAR('q')
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F") PORT_CODE(KEYCODE_F) PORT_CHAR('F') PORT_CHAR('f')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("H") PORT_CODE(KEYCODE_H) PORT_CHAR('H') PORT_CHAR('h')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Clear") PORT_CODE(KEYCODE_HOME) PORT_CHAR(UCHAR_MAMEKEY(F8))
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("G") PORT_CODE(KEYCODE_G) PORT_CHAR('G') PORT_CHAR('g')
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("S") PORT_CODE(KEYCODE_S) PORT_CHAR('S') PORT_CHAR('s')
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("D") PORT_CODE(KEYCODE_D) PORT_CHAR('D') PORT_CHAR('d')
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
|
||||
PORT_START("LINE4")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Break") PORT_CODE(KEYCODE_END) PORT_CHAR(UCHAR_MAMEKEY(F9))
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("C") PORT_CODE(KEYCODE_C) PORT_CHAR('C') PORT_CHAR('c')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Z") PORT_CODE(KEYCODE_Z) PORT_CHAR('Z') PORT_CHAR('z')
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("V") PORT_CODE(KEYCODE_V) PORT_CHAR('V') PORT_CHAR('v')
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("A") PORT_CODE(KEYCODE_A) PORT_CHAR('A') PORT_CHAR('a')
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("X") PORT_CODE(KEYCODE_X) PORT_CHAR('X') PORT_CHAR('x')
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
|
||||
PORT_START("LINE5")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Right") PORT_CODE(KEYCODE_RIGHT) PORT_CHAR(UCHAR_MAMEKEY(RIGHT))
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("; +") PORT_CODE(KEYCODE_COLON) PORT_CHAR(';') PORT_CHAR('+')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("J") PORT_CODE(KEYCODE_J) PORT_CHAR('J') PORT_CHAR('j')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Space") PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ')
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("K") PORT_CODE(KEYCODE_K) PORT_CHAR('K') PORT_CHAR('k')
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Left") PORT_CODE(KEYCODE_LEFT) PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(UCHAR_MAMEKEY(LEFT))
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("L") PORT_CODE(KEYCODE_L) PORT_CHAR('L') PORT_CHAR('l')
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
|
||||
PORT_START("LINE6")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("/ ?") PORT_CODE(KEYCODE_SLASH) PORT_CHAR('/') PORT_CHAR('?')
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME(", <") PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('<')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("B") PORT_CODE(KEYCODE_B) PORT_CHAR('B') PORT_CHAR('b')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("N") PORT_CODE(KEYCODE_N) PORT_CHAR('N') PORT_CHAR('n')
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME(". >") PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR('>')
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("M") PORT_CODE(KEYCODE_M) PORT_CHAR('M') PORT_CHAR('m')
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
|
||||
PORT_START("LINE7")
|
||||
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("[") PORT_CODE(KEYCODE_F1) PORT_CHAR('[') PORT_CHAR('{')
|
||||
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("I") PORT_CODE(KEYCODE_I) PORT_CHAR('I') PORT_CHAR('i')
|
||||
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Left Shift") PORT_CODE(KEYCODE_LSHIFT) PORT_CODE(KEYCODE_RSHIFT) PORT_CHAR(UCHAR_SHIFT_1)
|
||||
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("O") PORT_CODE(KEYCODE_O) PORT_CHAR('O') PORT_CHAR('o')
|
||||
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Enter") PORT_CODE(KEYCODE_ENTER) PORT_CODE(KEYCODE_ENTER_PAD) PORT_CHAR(13)
|
||||
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("P") PORT_CODE(KEYCODE_P) PORT_CHAR('P') PORT_CHAR('p')
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED)
|
||||
INPUT_PORTS_END
|
||||
|
||||
|
||||
/* Machine */
|
||||
|
||||
void h01x_state::machine_start()
|
||||
{
|
||||
m_cassette_data_timer = machine().scheduler().timer_alloc(timer_expired_delegate(FUNC(h01x_state::cassette_data_callback),this));
|
||||
m_cassette_data_timer->adjust( attotime::zero, 0, attotime::from_hz(11025) );
|
||||
}
|
||||
|
||||
void h01x_state::machine_reset()
|
||||
{
|
||||
m_bank = 0x00;
|
||||
|
||||
m_rom_ptr = m_rom->base();
|
||||
m_hzrom_ptr = m_hzrom->base();
|
||||
|
||||
m_ram_ptr = m_ram->pointer();
|
||||
m_ram_size = m_ram->size();
|
||||
|
||||
m_vram_ptr = m_vram->pointer();
|
||||
}
|
||||
|
||||
void h01x_state::video_start()
|
||||
{
|
||||
}
|
||||
|
||||
void h01x_state::init_h01x()
|
||||
{
|
||||
}
|
||||
|
||||
/*
|
||||
uint32_t h01x_state::screen_update_h01x(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
*/
|
||||
|
||||
/* Port handlers */
|
||||
WRITE8_MEMBER( h01x_state::port_60_w )
|
||||
{
|
||||
// MC6845P idx
|
||||
}
|
||||
|
||||
WRITE8_MEMBER( h01x_state::port_64_w )
|
||||
{
|
||||
// MC6845P data
|
||||
}
|
||||
|
||||
WRITE8_MEMBER( h01x_state::port_70_w )
|
||||
{
|
||||
m_bank = data&0xC0;
|
||||
|
||||
// bit5, speaker
|
||||
m_speaker->level_w(BIT(data,5));
|
||||
|
||||
// bit4, cassette
|
||||
m_cassette->output(BIT(data, 4) ? 1.0 : -1.0);
|
||||
m_cassette_data = false;
|
||||
}
|
||||
|
||||
READ8_MEMBER( h01x_state::port_50_r )
|
||||
{
|
||||
// bit 7, cassette input
|
||||
//return (m_cassette->input() > 0.04) ? 0x7f : 0xff;
|
||||
|
||||
return (m_cassette_data ? 0xff : 0x7f);
|
||||
}
|
||||
|
||||
|
||||
// 0x0000 --- 0x3FFF
|
||||
READ8_MEMBER(h01x_state::mem_0000_r)
|
||||
{
|
||||
return m_rom_ptr[offset];
|
||||
}
|
||||
|
||||
WRITE8_MEMBER(h01x_state::mem_0000_w)
|
||||
{
|
||||
}
|
||||
|
||||
// 0x4000 --- 0x7FFF
|
||||
READ8_MEMBER(h01x_state::mem_4000_r)
|
||||
{
|
||||
return m_ram_ptr[offset];
|
||||
}
|
||||
|
||||
WRITE8_MEMBER(h01x_state::mem_4000_w)
|
||||
{
|
||||
m_ram_ptr[offset] = data;
|
||||
}
|
||||
|
||||
// 0x8000 --- 0xBFFF
|
||||
READ8_MEMBER(h01x_state::mem_8000_r)
|
||||
{
|
||||
switch(m_bank) {
|
||||
case 0xC0:
|
||||
return m_hzrom_ptr[offset];
|
||||
case 0x40:
|
||||
if((offset&0xf000) == 0x3000) {
|
||||
u8 result = 0xff;
|
||||
if(!BIT(offset, 0)) result &= ioport("LINE0")->read();
|
||||
if(!BIT(offset, 1)) result &= ioport("LINE1")->read();
|
||||
if(!BIT(offset, 2)) result &= ioport("LINE2")->read();
|
||||
if(!BIT(offset, 3)) result &= ioport("LINE3")->read();
|
||||
if(!BIT(offset, 4)) result &= ioport("LINE4")->read();
|
||||
if(!BIT(offset, 5)) result &= ioport("LINE5")->read();
|
||||
if(!BIT(offset, 6)) result &= ioport("LINE6")->read();
|
||||
if(!BIT(offset, 7)) result &= ioport("LINE7")->read();
|
||||
return result;
|
||||
}
|
||||
case 0x00:
|
||||
return m_ram_ptr[offset + 0x4000];
|
||||
default:
|
||||
return 0xff;
|
||||
}
|
||||
}
|
||||
|
||||
WRITE8_MEMBER(h01x_state::mem_8000_w)
|
||||
{
|
||||
if(m_bank == 0x00)
|
||||
m_ram_ptr[offset+0x4000] = data;
|
||||
}
|
||||
|
||||
|
||||
// 0xC000 --- 0xFFFF
|
||||
READ8_MEMBER(h01x_state::mem_c000_r)
|
||||
{
|
||||
if(m_bank == 0xC0) {
|
||||
return m_hzrom_ptr[offset + 0x4000];
|
||||
} else {
|
||||
if(m_bank == 0x40)
|
||||
return m_vram_ptr[offset];
|
||||
else
|
||||
return 0xff;
|
||||
}
|
||||
}
|
||||
|
||||
WRITE8_MEMBER(h01x_state::mem_c000_w)
|
||||
{
|
||||
if(m_bank == 0x40)
|
||||
m_vram_ptr[offset] = (data&0x0f)|0xf0;
|
||||
}
|
||||
|
||||
|
||||
TIMER_CALLBACK_MEMBER(h01x_state::cassette_data_callback)
|
||||
{
|
||||
/* This does all baud rates. 250 baud (trs80), and 500 baud (all others) set bit 7 of "cassette_data".
|
||||
1500 baud (trs80m3, trs80m4) is interrupt-driven and uses bit 0 of "cassette_data" */
|
||||
|
||||
double new_val = (m_cassette->input());
|
||||
|
||||
/* Check for HI-LO transition */
|
||||
if ( m_old_cassette_val > -0.2 && new_val < -0.2 )
|
||||
m_cassette_data = true;
|
||||
|
||||
m_old_cassette_val = new_val;
|
||||
}
|
||||
|
||||
|
||||
/* ROM definition */
|
||||
ROM_START(nf500a)
|
||||
ROM_REGION(0x4000, "maincpu",0)
|
||||
ROM_LOAD("u2-hn27128-9adc.bin", 0x0000, 0x4000, CRC(147dae83) SHA1(856b0970c603e88707ce8638be5dbd8ab1c42a1b))
|
||||
|
||||
ROM_REGION(0x8000,"hzrom",0)
|
||||
ROM_LOAD("u4-hn27256-32aa.bin", 0x0000, 0x8000, CRC(9ecfddaa) SHA1(54b6e1b43f79b7705e95edda845b21d7326d48e2))
|
||||
ROM_END
|
||||
|
||||
ROM_START(h01jce)
|
||||
ROM_REGION(0x4000, "maincpu",0)
|
||||
ROM_LOAD("m5l27128k_9b99.bin", 0x0000, 0x4000, CRC(59be30df) SHA1(21ccc765d13992753ec0457e09ac97cea82888a9))
|
||||
|
||||
ROM_REGION(0x8000,"hzrom",0)
|
||||
ROM_LOAD("u4-hn27256-32aa.bin", 0x0000, 0x8000, CRC(9ecfddaa) SHA1(54b6e1b43f79b7705e95edda845b21d7326d48e2))
|
||||
|
||||
ROM_REGION(0x4000, "exrom",0)
|
||||
ROM_LOAD("hn4827128g_f0f9.bin", 0x0000, 0x4000, CRC(36bffec0) SHA1(5b4b24c54eba0a8b69f291ca656ea27a3685f42e))
|
||||
ROM_END
|
||||
|
||||
/* Driver */
|
||||
|
||||
// H-01B中文教育电脑
|
||||
// 普乐电器公司
|
||||
// cpu Z-80A 2MHz
|
||||
|
||||
// NF500A教学电脑
|
||||
// 国营八三〇厂制造
|
||||
// cpu Z-80A 4MHz
|
||||
// video MC6845P
|
||||
// sysrom 16KB EPROM
|
||||
// hzrom 32KB EPROM
|
||||
// ram 32KB SRAM
|
||||
// vram 16Kx4bit DRAM
|
||||
|
||||
// JCE
|
||||
// 广东江门计算机应用设备厂
|
||||
// video HD6845SP
|
||||
// sysrom 16KB EPROM
|
||||
// hzrom 32KB EPROM
|
||||
// extrom 16KB EPROM
|
||||
|
||||
// 开机画面
|
||||
// H-01B : H-01型中文教育电脑 普乐电器公司制造
|
||||
// NF500A : H-01型汉字微电脑 中国科学院H电脑公司
|
||||
// JCE : H-01型中文普及电脑 北岳电子有限公司制造
|
||||
|
||||
// 未完成功能：
|
||||
// 录音输入输出未完成，另机器主频设置与 TRS-80 相同
|
||||
// 视频芯片 MC6845P 功能未模拟
|
||||
// JCE 的 16KB 扩展 ROM 功能不详，功能未模拟
|
||||
// 未找到 H-01B ROM，内容应该和 NF500A 差别不大
|
||||
|
||||
// YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS
|
||||
//COMP( 1985, h01b, 0, 0, h01b, h01x, h01x_state, init_h01x, "China H Computer Company", "H-01B", 0 )
|
||||
COMP( 1985, nf500a, 0, 0, nf500a, h01x, h01x_state, init_h01x, "China State-owned 830 Factory", "NF500A", 0 )
|
||||
COMP( 1987, h01jce, 0, 0, h01jce, h01x, h01x_state, init_h01x, "China Jiangmen Computer Equipment Factory", "H-01 JCE", 0 )
|
||||
93
src/mame/includes/h01x.h
Normal file
93
src/mame/includes/h01x.h
Normal file
@ -0,0 +1,93 @@
|
||||
// license:BSD-3-Clause
|
||||
/***************************************************************************
|
||||
NF500A (TRS80 Level II Basic)
|
||||
09/01/2019
|
||||
****************************************************************************/
|
||||
|
||||
#ifndef MAME_INCLUDES_H01X_H
|
||||
#define MAME_INCLUDES_H01X_H
|
||||
|
||||
#pragma once
|
||||
|
||||
#include "emu.h"
|
||||
#include "screen.h"
|
||||
#include "speaker.h"
|
||||
#include "emupal.h"
|
||||
#include "cpu/z80/z80.h"
|
||||
#include "machine/ram.h"
|
||||
#include "sound/spkrdev.h"
|
||||
#include "imagedev/cassette.h"
|
||||
#include "formats/trs_cas.h"
|
||||
|
||||
class h01x_state : public driver_device
|
||||
{
|
||||
public:
|
||||
h01x_state(const machine_config &mconfig, device_type type, const char *tag)
|
||||
: driver_device(mconfig, type, tag)
|
||||
, m_maincpu(*this, "maincpu")
|
||||
, m_ram(*this, RAM_TAG)
|
||||
, m_vram(*this, "vram")
|
||||
, m_rom(*this, "maincpu")
|
||||
, m_hzrom(*this, "hzrom")
|
||||
, m_exrom(*this, "exrom")
|
||||
, m_p_videoram(*this, "videoram")
|
||||
, m_speaker(*this, "speaker")
|
||||
, m_cassette(*this, "cassette")
|
||||
, m_io_keyboard(*this, "LINE%u", 0)
|
||||
{ }
|
||||
|
||||
void init_h01x();
|
||||
|
||||
void nf500a(machine_config &config);
|
||||
void h01jce(machine_config &config);
|
||||
|
||||
//private:
|
||||
virtual void video_start() override;
|
||||
|
||||
void h01x_mem_map(address_map &map);
|
||||
void h01x_io_map(address_map &map);
|
||||
|
||||
uint32_t screen_update_h01x(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
|
||||
|
||||
DECLARE_READ8_MEMBER(mem_0000_r);
|
||||
DECLARE_WRITE8_MEMBER(mem_0000_w);
|
||||
DECLARE_READ8_MEMBER(mem_4000_r);
|
||||
DECLARE_WRITE8_MEMBER(mem_4000_w);
|
||||
DECLARE_READ8_MEMBER(mem_8000_r);
|
||||
DECLARE_WRITE8_MEMBER(mem_8000_w);
|
||||
DECLARE_READ8_MEMBER(mem_c000_r);
|
||||
DECLARE_WRITE8_MEMBER(mem_c000_w);
|
||||
|
||||
DECLARE_WRITE8_MEMBER(port_60_w);
|
||||
DECLARE_WRITE8_MEMBER(port_64_w);
|
||||
DECLARE_WRITE8_MEMBER(port_70_w);
|
||||
DECLARE_READ8_MEMBER(port_50_r);
|
||||
|
||||
required_device<cpu_device> m_maincpu;
|
||||
required_device<ram_device> m_ram;
|
||||
required_device<ram_device> m_vram;
|
||||
required_memory_region m_rom;
|
||||
required_memory_region m_hzrom;
|
||||
optional_memory_region m_exrom;
|
||||
optional_shared_ptr<u8> m_p_videoram;
|
||||
required_device<speaker_sound_device> m_speaker;
|
||||
required_device<cassette_image_device> m_cassette;
|
||||
required_ioport_array<8> m_io_keyboard;
|
||||
|
||||
protected:
|
||||
virtual void machine_start() override;
|
||||
virtual void machine_reset() override;
|
||||
|
||||
private:
|
||||
uint8_t m_bank;
|
||||
|
||||
uint8_t *m_ram_ptr, *m_rom_ptr, *m_hzrom_ptr, *m_vram_ptr;
|
||||
int m_ram_size;
|
||||
|
||||
TIMER_CALLBACK_MEMBER(cassette_data_callback);
|
||||
bool m_cassette_data;
|
||||
emu_timer *m_cassette_data_timer;
|
||||
double m_old_cassette_val;
|
||||
};
|
||||
|
||||
#endif // MAME_INCLUDES_H01X_H
|
||||
@ -15090,6 +15090,10 @@ gyrussb // bootleg or actual Taito NZ license?
|
||||
gyrussce // GX347 (c) 1983 + Centuri license
|
||||
venus // bootleg
|
||||
|
||||
@source:h01x.cpp
|
||||
nf500a // NF500A - TRS-80 Level II BASIC
|
||||
h01jce // H-01 JCE - TRS-80 Level II BASIC
|
||||
|
||||
@source:h19.cpp
|
||||
h19 // Heath H19 (Zenith Z-19)
|
||||
super19 // Super19 replacement ROMS for H19
|
||||
|
||||
@ -316,6 +316,7 @@ hazeltin.cpp
|
||||
hazl1420.cpp
|
||||
hec2hrp.cpp
|
||||
hektor.cpp
|
||||
h01x.cpp
|
||||
hh_amis2k.cpp
|
||||
hh_cop400.cpp
|
||||
hh_hmcs40.cpp
|
||||
|
||||
43
src/mame/video/h01x.cpp
Normal file
43
src/mame/video/h01x.cpp
Normal file
@ -0,0 +1,43 @@
|
||||
// license:BSD-3-Clause
|
||||
/***************************************************************************
|
||||
NF500A (TRS80 Level II Basic)
|
||||
09/01/2019
|
||||
****************************************************************************/
|
||||
|
||||
#include "emu.h"
|
||||
#include "includes/h01x.h"
|
||||
|
||||
uint32_t h01x_state::screen_update_h01x(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
|
||||
{
|
||||
uint8_t y,ra,gfx;
|
||||
uint16_t sy=0,ma=0,x;
|
||||
uint8_t skip = 16;
|
||||
|
||||
//screen.set_visible_area(0, 336-1, 0, 192-1);
|
||||
|
||||
// 336*192 = 84*4 * 12*16
|
||||
// 12*16*84
|
||||
|
||||
// uint16_t *p = &bitmap.pix16(sy++);
|
||||
// _PixelType &pixt(int32_t y, int32_t x = 0) const { return *(reinterpret_cast<_PixelType *>(m_base) + y * m_rowpixels + x); }
|
||||
// set_raw(u32 pixclock, u16 htotal, u16 hbend, u16 hbstart, u16 vtotal, u16 vbend, u16 vbstart)
|
||||
// bitmap.rowpixels() == htotal
|
||||
// printf("%d ", bitmap.rowpixels());
|
||||
|
||||
//uint16_t *p = &bitmap.pix16(0);
|
||||
for(ra=0; ra<12; ra++) {
|
||||
for(y=0; y<16; y++) {
|
||||
ma = ra*84*16+y;
|
||||
uint16_t *p = &bitmap.pix16(sy++);
|
||||
for(x=ma; x<ma+84*skip; x+=skip) {
|
||||
gfx = m_vram_ptr[x];
|
||||
*p++ = BIT(gfx, 3);
|
||||
*p++ = BIT(gfx, 2);
|
||||
*p++ = BIT(gfx, 1);
|
||||
*p++ = BIT(gfx, 0);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user