From 404b3e172f14dbc9287abd745fce0ded4c8a9f68 Mon Sep 17 00:00:00 2001 From: zzemu-cn <535689143@qq.com> Date: Thu, 5 Sep 2019 22:04:42 +0800 Subject: [PATCH] add mess nf500a h01jce new computer nf500a h01jce --- scripts/target/mame/mess.lua | 8 + src/mame/drivers/h01x.cpp | 435 +++++++++++++++++++++++++++++++++++ src/mame/includes/h01x.h | 93 ++++++++ src/mame/mame.lst | 4 + src/mame/mess.flt | 1 + src/mame/video/h01x.cpp | 43 ++++ 6 files changed, 584 insertions(+) create mode 100644 src/mame/drivers/h01x.cpp create mode 100644 src/mame/includes/h01x.h create mode 100644 src/mame/video/h01x.cpp diff --git a/scripts/target/mame/mess.lua b/scripts/target/mame/mess.lua index b4e92e6c8b8..47ffd35785d 100644 --- a/scripts/target/mame/mess.lua +++ b/scripts/target/mame/mess.lua @@ -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", diff --git a/src/mame/drivers/h01x.cpp b/src/mame/drivers/h01x.cpp new file mode 100644 index 00000000000..33d68b72313 --- /dev/null +++ b/src/mame/drivers/h01x.cpp @@ -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 ) diff --git a/src/mame/includes/h01x.h b/src/mame/includes/h01x.h new file mode 100644 index 00000000000..a51220279a9 --- /dev/null +++ b/src/mame/includes/h01x.h @@ -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 m_maincpu; + required_device m_ram; + required_device m_vram; + required_memory_region m_rom; + required_memory_region m_hzrom; + optional_memory_region m_exrom; + optional_shared_ptr m_p_videoram; + required_device m_speaker; + required_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 diff --git a/src/mame/mame.lst b/src/mame/mame.lst index 0935c957760..7aa67153a7c 100644 --- a/src/mame/mame.lst +++ b/src/mame/mame.lst @@ -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 diff --git a/src/mame/mess.flt b/src/mame/mess.flt index ba606e4bd09..5eb920bd744 100644 --- a/src/mame/mess.flt +++ b/src/mame/mess.flt @@ -316,6 +316,7 @@ hazeltin.cpp hazl1420.cpp hec2hrp.cpp hektor.cpp +h01x.cpp hh_amis2k.cpp hh_cop400.cpp hh_hmcs40.cpp diff --git a/src/mame/video/h01x.cpp b/src/mame/video/h01x.cpp new file mode 100644 index 00000000000..a14998fce52 --- /dev/null +++ b/src/mame/video/h01x.cpp @@ -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