trunk/src/mess/machine/mikro80.c
| r20907 | r20908 | |
|---|
| 9 | 9 | |
| 10 | 10 | #include "emu.h" |
| 11 | 11 | #include "cpu/i8085/i8085.h" |
| 12 | | #include "imagedev/cassette.h" |
| 13 | | #include "machine/i8255.h" |
| 14 | 12 | #include "includes/mikro80.h" |
| 15 | 13 | |
| 16 | 14 | /* Driver initialization */ |
| 17 | 15 | DRIVER_INIT_MEMBER(mikro80_state,mikro80) |
| 18 | 16 | { |
| 19 | 17 | /* set initialy ROM to be visible on first bank */ |
| 20 | | UINT8 *RAM = memregion("maincpu")->base(); |
| 18 | UINT8 *RAM = m_region_maincpu->base(); |
| 21 | 19 | memset(RAM,0x0000,0x0800); // make frist page empty by default |
| 22 | | membank("bank1")->configure_entries(1, 2, RAM, 0x0000); |
| 23 | | membank("bank1")->configure_entries(0, 2, RAM, 0xf800); |
| 20 | m_bank1->configure_entries(1, 2, RAM, 0x0000); |
| 21 | m_bank1->configure_entries(0, 2, RAM, 0xf800); |
| 24 | 22 | m_key_mask = 0x7f; |
| 25 | 23 | } |
| 26 | 24 | |
| r20907 | r20908 | |
|---|
| 33 | 31 | READ8_MEMBER(mikro80_state::mikro80_8255_portb_r) |
| 34 | 32 | { |
| 35 | 33 | UINT8 key = 0xff; |
| 36 | | if ((m_keyboard_mask & 0x01)!=0) { key &= ioport("LINE0")->read(); } |
| 37 | | if ((m_keyboard_mask & 0x02)!=0) { key &= ioport("LINE1")->read(); } |
| 38 | | if ((m_keyboard_mask & 0x04)!=0) { key &= ioport("LINE2")->read(); } |
| 39 | | if ((m_keyboard_mask & 0x08)!=0) { key &= ioport("LINE3")->read(); } |
| 40 | | if ((m_keyboard_mask & 0x10)!=0) { key &= ioport("LINE4")->read(); } |
| 41 | | if ((m_keyboard_mask & 0x20)!=0) { key &= ioport("LINE5")->read(); } |
| 42 | | if ((m_keyboard_mask & 0x40)!=0) { key &= ioport("LINE6")->read(); } |
| 43 | | if ((m_keyboard_mask & 0x80)!=0) { key &= ioport("LINE7")->read(); } |
| 34 | if ((m_keyboard_mask & 0x01)!=0) { key &= m_io_line0->read(); } |
| 35 | if ((m_keyboard_mask & 0x02)!=0) { key &= m_io_line1->read(); } |
| 36 | if ((m_keyboard_mask & 0x04)!=0) { key &= m_io_line2->read(); } |
| 37 | if ((m_keyboard_mask & 0x08)!=0) { key &= m_io_line3->read(); } |
| 38 | if ((m_keyboard_mask & 0x10)!=0) { key &= m_io_line4->read(); } |
| 39 | if ((m_keyboard_mask & 0x20)!=0) { key &= m_io_line5->read(); } |
| 40 | if ((m_keyboard_mask & 0x40)!=0) { key &= m_io_line6->read(); } |
| 41 | if ((m_keyboard_mask & 0x80)!=0) { key &= m_io_line7->read(); } |
| 44 | 42 | return key & m_key_mask; |
| 45 | 43 | } |
| 46 | 44 | |
| 47 | 45 | READ8_MEMBER(mikro80_state::mikro80_8255_portc_r) |
| 48 | 46 | { |
| 49 | | return ioport("LINE8")->read(); |
| 47 | return m_io_line8->read(); |
| 50 | 48 | } |
| 51 | 49 | |
| 52 | 50 | WRITE8_MEMBER(mikro80_state::mikro80_8255_porta_w) |
| r20907 | r20908 | |
|---|
| 71 | 69 | |
| 72 | 70 | TIMER_CALLBACK_MEMBER(mikro80_state::mikro80_reset) |
| 73 | 71 | { |
| 74 | | membank("bank1")->set_entry(0); |
| 72 | m_bank1->set_entry(0); |
| 75 | 73 | } |
| 76 | 74 | |
| 77 | 75 | void mikro80_state::machine_reset() |
| 78 | 76 | { |
| 79 | 77 | machine().scheduler().timer_set(attotime::from_usec(10), timer_expired_delegate(FUNC(mikro80_state::mikro80_reset),this)); |
| 80 | | membank("bank1")->set_entry(1); |
| 78 | m_bank1->set_entry(1); |
| 81 | 79 | m_keyboard_mask = 0; |
| 82 | 80 | } |
| 83 | 81 | |
| 84 | 82 | |
| 85 | 83 | READ8_MEMBER(mikro80_state::mikro80_keyboard_r) |
| 86 | 84 | { |
| 87 | | i8255_device *ppi = machine().device<i8255_device>("ppi8255"); |
| 88 | | return ppi->read(space, offset^0x03); |
| 85 | return m_ppi8255->read(space, offset^0x03); |
| 89 | 86 | } |
| 90 | 87 | |
| 91 | 88 | WRITE8_MEMBER(mikro80_state::mikro80_keyboard_w) |
| 92 | 89 | { |
| 93 | | i8255_device *ppi = machine().device<i8255_device>("ppi8255"); |
| 94 | | ppi->write(space, offset^0x03, data); |
| 90 | m_ppi8255->write(space, offset^0x03, data); |
| 95 | 91 | } |
| 96 | 92 | |
| 97 | 93 | |
| 98 | 94 | WRITE8_MEMBER(mikro80_state::mikro80_tape_w) |
| 99 | 95 | { |
| 100 | | machine().device<cassette_image_device>(CASSETTE_TAG)->output(data & 0x01 ? 1 : -1); |
| 96 | m_cassette->output(data & 0x01 ? 1 : -1); |
| 101 | 97 | } |
| 102 | 98 | |
| 103 | 99 | |
| 104 | 100 | READ8_MEMBER(mikro80_state::mikro80_tape_r) |
| 105 | 101 | { |
| 106 | | double level = machine().device<cassette_image_device>(CASSETTE_TAG)->input(); |
| 102 | double level = m_cassette->input(); |
| 107 | 103 | if (level < 0) { |
| 108 | 104 | return 0x00; |
| 109 | 105 | } |
trunk/src/mess/includes/mikro80.h
| r20907 | r20908 | |
|---|
| 8 | 8 | #define MIKRO80_H_ |
| 9 | 9 | |
| 10 | 10 | #include "machine/i8255.h" |
| 11 | #include "imagedev/cassette.h" |
| 11 | 12 | |
| 12 | 13 | class mikro80_state : public driver_device |
| 13 | 14 | { |
| 14 | 15 | public: |
| 15 | 16 | mikro80_state(const machine_config &mconfig, device_type type, const char *tag) |
| 16 | | : driver_device(mconfig, type, tag) , |
| 17 | | m_cursor_ram(*this, "cursor_ram"), |
| 18 | | m_video_ram(*this, "video_ram"){ } |
| 17 | : driver_device(mconfig, type, tag) |
| 18 | , m_cursor_ram(*this, "cursor_ram") |
| 19 | , m_video_ram(*this, "video_ram") |
| 20 | , m_ppi8255(*this, "ppi8255") |
| 21 | , m_cassette(*this, CASSETTE_TAG) |
| 22 | , m_region_maincpu(*this, "maincpu") |
| 23 | , m_region_gfx1(*this, "gfx1") |
| 24 | , m_bank1(*this, "bank1") |
| 25 | , m_io_line0(*this, "LINE0") |
| 26 | , m_io_line1(*this, "LINE1") |
| 27 | , m_io_line2(*this, "LINE2") |
| 28 | , m_io_line3(*this, "LINE3") |
| 29 | , m_io_line4(*this, "LINE4") |
| 30 | , m_io_line5(*this, "LINE5") |
| 31 | , m_io_line6(*this, "LINE6") |
| 32 | , m_io_line7(*this, "LINE7") |
| 33 | , m_io_line8(*this, "LINE8") |
| 34 | { } |
| 19 | 35 | |
| 20 | 36 | required_shared_ptr<UINT8> m_cursor_ram; |
| 21 | 37 | required_shared_ptr<UINT8> m_video_ram; |
| r20907 | r20908 | |
|---|
| 35 | 51 | virtual void video_start(); |
| 36 | 52 | UINT32 screen_update_mikro80(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); |
| 37 | 53 | TIMER_CALLBACK_MEMBER(mikro80_reset); |
| 54 | |
| 55 | protected: |
| 56 | required_device<i8255_device> m_ppi8255; |
| 57 | required_device<cassette_image_device> m_cassette; |
| 58 | required_memory_region m_region_maincpu; |
| 59 | required_memory_region m_region_gfx1; |
| 60 | required_memory_bank m_bank1; |
| 61 | required_ioport m_io_line0; |
| 62 | required_ioport m_io_line1; |
| 63 | required_ioport m_io_line2; |
| 64 | required_ioport m_io_line3; |
| 65 | required_ioport m_io_line4; |
| 66 | required_ioport m_io_line5; |
| 67 | required_ioport m_io_line6; |
| 68 | required_ioport m_io_line7; |
| 69 | required_ioport m_io_line8; |
| 38 | 70 | }; |
| 39 | 71 | |
| 40 | 72 | |