// license:BSD-3-Clause // copyright-holders:Angelo Salese /*************************************************************************** Toshiba Pasopia 1600 TODO: - charset ROM is WRONG! (needs a 8x16 or even a 16x16 one) - identify fdc type (needs a working floppy image) ****************************************************************************/ #include "emu.h" #include "cpu/i86/i86.h" #include "machine/am9517a.h" #include "machine/pic8259.h" #include "video/mc6845.h" #include "screen.h" class paso1600_state : public driver_device { public: paso1600_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag) , m_maincpu(*this, "maincpu") , m_pic(*this, "pic8259") , m_dma(*this, "8237dma") , m_crtc(*this, "crtc") , m_p_vram(*this, "vram") , m_p_gvram(*this, "gvram") , m_p_chargen(*this, "chargen") , m_p_pcg(*this, "pcg") , m_gfxdecode(*this, "gfxdecode") , m_palette(*this, "palette") { } DECLARE_READ8_MEMBER(paso1600_pcg_r); DECLARE_WRITE8_MEMBER(paso1600_pcg_w); DECLARE_WRITE8_MEMBER(paso1600_6845_address_w); DECLARE_WRITE8_MEMBER(paso1600_6845_data_w); DECLARE_READ8_MEMBER(paso1600_6845_data_r); DECLARE_READ8_MEMBER(paso1600_6845_status_r); DECLARE_READ8_MEMBER(key_r); DECLARE_WRITE8_MEMBER(key_w); DECLARE_READ16_MEMBER(test_hi_r); DECLARE_READ8_MEMBER(pc_dma_read_byte); DECLARE_WRITE8_MEMBER(pc_dma_write_byte); uint32_t screen_update_paso1600(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); void paso1600(machine_config &config); void paso1600_io(address_map &map); void paso1600_map(address_map &map); private: uint8_t m_crtc_vreg[0x100],m_crtc_index; struct{ uint8_t portb; }m_keyb; virtual void machine_start() override; virtual void machine_reset() override; required_device m_maincpu; required_device m_pic; required_device m_dma; required_device m_crtc; required_shared_ptr m_p_vram; required_shared_ptr m_p_gvram; required_region_ptr m_p_chargen; required_region_ptr m_p_pcg; required_device m_gfxdecode; required_device m_palette; }; #define mc6845_h_char_total (m_crtc_vreg[0]) #define mc6845_h_display (m_crtc_vreg[1]) #define mc6845_h_sync_pos (m_crtc_vreg[2]) #define mc6845_sync_width (m_crtc_vreg[3]) #define mc6845_v_char_total (m_crtc_vreg[4]) #define mc6845_v_total_adj (m_crtc_vreg[5]) #define mc6845_v_display (m_crtc_vreg[6]) #define mc6845_v_sync_pos (m_crtc_vreg[7]) #define mc6845_mode_ctrl (m_crtc_vreg[8]) #define mc6845_tile_height (m_crtc_vreg[9]+1) #define mc6845_cursor_y_start (m_crtc_vreg[0x0a]) #define mc6845_cursor_y_end (m_crtc_vreg[0x0b]) #define mc6845_start_addr (((m_crtc_vreg[0x0c]<<8) & 0x3f00) | (m_crtc_vreg[0x0d] & 0xff)) #define mc6845_cursor_addr (((m_crtc_vreg[0x0e]<<8) & 0x3f00) | (m_crtc_vreg[0x0f] & 0xff)) #define mc6845_light_pen_addr (((m_crtc_vreg[0x10]<<8) & 0x3f00) | (m_crtc_vreg[0x11] & 0xff)) #define mc6845_update_addr (((m_crtc_vreg[0x12]<<8) & 0x3f00) | (m_crtc_vreg[0x13] & 0xff)) uint32_t paso1600_state::screen_update_paso1600(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) { int x,y; int xi,yi; #if 0 uint32_t count; static int test_x; if(machine().input().code_pressed(KEYCODE_Z)) test_x++; if(machine().input().code_pressed(KEYCODE_X)) test_x--; popmessage("%d",test_x); count = 0; for(y=0;y<475;y++) { count &= 0xffff; for(x=0;x> xi) & 1; if(y < 475 && x*16+xi < 640) /* TODO: safety check */ bitmap.pix16(y, x*16+xi) = m_palette->pen(pen); } count++; } } #endif // popmessage("%d %d %d",mc6845_h_display,mc6845_v_display,mc6845_tile_height); for(y=0;y> 8; int pen; for(yi=0;yi<19;yi++) { for(xi=0;xi<8;xi++) { pen = (m_p_chargen[tile*8+(yi >> 1)] >> (7-xi) & 1) ? color : -1; if(yi & 0x10) pen = -1; if(pen != -1) if(y*19 < 475 && x*8+xi < 640) /* TODO: safety check */ bitmap.pix16(y*19+yi, x*8+xi) = m_palette->pen(pen); } } } } /* quick and dirty way to do the cursor */ if(0) for(yi=0;yipen(7); } } } return 0; } READ8_MEMBER( paso1600_state::paso1600_pcg_r ) { return m_p_pcg[offset]; } WRITE8_MEMBER( paso1600_state::paso1600_pcg_w ) { m_p_pcg[offset] = data; m_gfxdecode->gfx(0)->mark_dirty(offset >> 3); } WRITE8_MEMBER( paso1600_state::paso1600_6845_address_w ) { m_crtc_index = data; m_crtc->address_w(space, offset, data); } WRITE8_MEMBER( paso1600_state::paso1600_6845_data_w ) { m_crtc_vreg[m_crtc_index] = data; m_crtc->register_w(space, offset, data); } READ8_MEMBER( paso1600_state::paso1600_6845_data_r ) { return m_crtc->register_r(space, offset); } READ8_MEMBER( paso1600_state::paso1600_6845_status_r ) { return m_crtc->status_r(space, offset); } READ8_MEMBER( paso1600_state::key_r ) { switch(offset) { case 3: if(m_keyb.portb == 1) return 0; } return 0xff; } WRITE8_MEMBER( paso1600_state::key_w ) { switch(offset) { case 3: m_keyb.portb = data; break; } } READ16_MEMBER( paso1600_state::test_hi_r ) { return 0xffff; } void paso1600_state::paso1600_map(address_map &map) { map.unmap_value_high(); map(0x00000, 0x7ffff).ram(); map(0xb0000, 0xb0fff).ram().share("vram"); // tvram map(0xbfff0, 0xbffff).rw(this, FUNC(paso1600_state::paso1600_pcg_r), FUNC(paso1600_state::paso1600_pcg_w)); map(0xc0000, 0xdffff).ram().share("gvram");// gvram map(0xe0000, 0xeffff).rom().region("kanji", 0);// kanji rom, banked via port 0x93 map(0xfe000, 0xfffff).rom().region("ipl", 0); } void paso1600_state::paso1600_io(address_map &map) { map.unmap_value_low(); map(0x0000, 0x000f).rw(m_dma, FUNC(am9517a_device::read), FUNC(am9517a_device::write)); map(0x0010, 0x0011).rw(m_pic, FUNC(pic8259_device::read), FUNC(pic8259_device::write)); // i8259 map(0x001a, 0x001b).r(this, FUNC(paso1600_state::test_hi_r)); // causes RAM error otherwise? map(0x0030, 0x0033).rw(this, FUNC(paso1600_state::key_r), FUNC(paso1600_state::key_w)); //UART keyboard? map(0x0048, 0x0049).r(this, FUNC(paso1600_state::test_hi_r)); map(0x0090, 0x0090).rw(this, FUNC(paso1600_state::paso1600_6845_status_r), FUNC(paso1600_state::paso1600_6845_address_w)); map(0x0091, 0x0091).rw(this, FUNC(paso1600_state::paso1600_6845_data_r), FUNC(paso1600_state::paso1600_6845_data_w)); // AM_RANGE(0x00d8,0x00df) //fdc, unknown type // other undefined ports: 18, 1C, 92 } /* Input ports */ static INPUT_PORTS_START( paso1600 ) INPUT_PORTS_END static const gfx_layout paso1600_charlayout = { 8, 8, RGN_FRAC(1,1), 1, { 0 }, { STEP8(0,1) }, { STEP8(0,8) }, 8*8 }; static GFXDECODE_START( gfx_paso1600 ) GFXDECODE_ENTRY( "pcg", 0x0000, paso1600_charlayout, 0, 4 ) GFXDECODE_ENTRY( "chargen", 0x0000, paso1600_charlayout, 0, 4 ) GFXDECODE_END void paso1600_state::machine_start() { } void paso1600_state::machine_reset() { } READ8_MEMBER(paso1600_state::pc_dma_read_byte) { //offs_t page_offset = (((offs_t) m_dma_offset[0][m_dma_channel]) << 16) // & 0xFF0000; return space.read_byte(offset); } WRITE8_MEMBER(paso1600_state::pc_dma_write_byte) { //offs_t page_offset = (((offs_t) m_dma_offset[0][m_dma_channel]) << 16) // & 0xFF0000; space.write_byte(offset, data); } MACHINE_CONFIG_START(paso1600_state::paso1600) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", I8086, 16000000/2) MCFG_DEVICE_PROGRAM_MAP(paso1600_map) MCFG_DEVICE_IO_MAP(paso1600_io) MCFG_DEVICE_IRQ_ACKNOWLEDGE_DEVICE("pic8259", pic8259_device, inta_cb) /* video hardware */ MCFG_SCREEN_ADD("screen", RASTER) MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */ MCFG_SCREEN_SIZE(640, 480) MCFG_SCREEN_VISIBLE_AREA(0, 640-1, 0, 480-1) MCFG_SCREEN_UPDATE_DRIVER(paso1600_state, screen_update_paso1600) MCFG_SCREEN_PALETTE("palette") MCFG_DEVICE_ADD("gfxdecode", GFXDECODE, "palette", gfx_paso1600) MCFG_PALETTE_ADD("palette", 8) // MCFG_PALETTE_INIT(black_and_white) /* Devices */ MCFG_MC6845_ADD("crtc", H46505, "screen", 16000000/4) /* unknown clock, hand tuned to get ~60 fps */ MCFG_MC6845_SHOW_BORDER_AREA(false) MCFG_MC6845_CHAR_WIDTH(8) MCFG_DEVICE_ADD("pic8259", PIC8259, 0) MCFG_PIC8259_OUT_INT_CB(INPUTLINE("maincpu", 0)) MCFG_DEVICE_ADD("8237dma", AM9517A, 16000000/4) MCFG_I8237_IN_MEMR_CB(READ8(*this, paso1600_state, pc_dma_read_byte)) MCFG_I8237_OUT_MEMW_CB(WRITE8(*this, paso1600_state, pc_dma_write_byte)) MACHINE_CONFIG_END ROM_START( paso1600 ) ROM_REGION16_LE(0x2000,"ipl", 0) ROM_LOAD( "ipl.rom", 0x0000, 0x2000, CRC(cee4ebb7) SHA1(c23b30f8dc51f96c1c00e28aab61e77b50d261f0)) ROM_REGION(0x2000,"pcg", ROMREGION_ERASE00) ROM_REGION( 0x800, "chargen", ROMREGION_ERASEFF ) ROM_LOAD( "font.rom", 0x0000, 0x0800, BAD_DUMP CRC(a91c45a9) SHA1(a472adf791b9bac3dfa6437662e1a9e94a88b412)) //stolen from pasopia7 ROM_REGION( 0x20000, "kanji", ROMREGION_ERASEFF ) ROM_LOAD( "kanji.rom", 0x0000, 0x20000, NO_DUMP) ROM_END // YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS COMP( 198?, paso1600, 0, 0, paso1600, paso1600, paso1600_state, empty_init, "Toshiba", "Pasopia 1600", MACHINE_NOT_WORKING | MACHINE_NO_SOUND )