trunk/src/mess/includes/poly88.h
| r26764 | r26765 | |
|---|
| 18 | 18 | { |
| 19 | 19 | TIMER_USART, |
| 20 | 20 | TIMER_KEYBOARD, |
| 21 | | TIMER_CASSETTE, |
| 22 | | TIMER_SETUP_MACHINE_STATE |
| 21 | TIMER_CASSETTE |
| 23 | 22 | }; |
| 24 | 23 | |
| 25 | 24 | poly88_state(const machine_config &mconfig, device_type type, const char *tag) |
| r26764 | r26765 | |
|---|
| 27 | 26 | m_video_ram(*this, "video_ram"), |
| 28 | 27 | m_maincpu(*this, "maincpu"), |
| 29 | 28 | m_uart(*this, "uart"), |
| 30 | | m_sercas(*this, "sercas"), |
| 31 | 29 | m_cassette(*this, "cassette"), |
| 32 | 30 | m_linec(*this, "LINEC"), |
| 33 | 31 | m_line0(*this, "LINE0"), |
| r26764 | r26765 | |
|---|
| 59 | 57 | TIMER_CALLBACK_MEMBER(poly88_usart_timer_callback); |
| 60 | 58 | TIMER_CALLBACK_MEMBER(keyboard_callback); |
| 61 | 59 | TIMER_CALLBACK_MEMBER(poly88_cassette_timer_callback); |
| 62 | | TIMER_CALLBACK_MEMBER(setup_machine_state); |
| 60 | DECLARE_WRITE_LINE_MEMBER(write_cas_tx); |
| 63 | 61 | DECLARE_WRITE_LINE_MEMBER(poly88_usart_rxready); |
| 64 | 62 | IRQ_CALLBACK_MEMBER(poly88_irq_callback); |
| 65 | 63 | DECLARE_SNAPSHOT_LOAD_MEMBER( poly88 ); |
| r26764 | r26765 | |
|---|
| 67 | 65 | protected: |
| 68 | 66 | required_device<cpu_device> m_maincpu; |
| 69 | 67 | required_device<i8251_device> m_uart; |
| 70 | | required_device<serial_source_device> m_sercas; |
| 71 | 68 | required_device<cassette_image_device> m_cassette; |
| 72 | 69 | required_ioport m_linec; |
| 73 | 70 | required_ioport m_line0; |
| r26764 | r26765 | |
|---|
| 79 | 76 | required_ioport m_line6; |
| 80 | 77 | UINT8 row_number(UINT8 code); |
| 81 | 78 | virtual void device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr); |
| 79 | |
| 80 | int m_cas_tx; |
| 82 | 81 | }; |
| 83 | 82 | |
| 84 | 83 | |
trunk/src/mess/machine/poly88.c
| r26764 | r26765 | |
|---|
| 25 | 25 | case TIMER_CASSETTE: |
| 26 | 26 | poly88_cassette_timer_callback(ptr, param); |
| 27 | 27 | break; |
| 28 | | case TIMER_SETUP_MACHINE_STATE: |
| 29 | | setup_machine_state(ptr, param); |
| 30 | | break; |
| 31 | 28 | default: |
| 32 | 29 | assert_always(FALSE, "Unknown id in poly88_state::device_timer"); |
| 33 | 30 | } |
| r26764 | r26765 | |
|---|
| 159 | 156 | return m_int_vector; |
| 160 | 157 | } |
| 161 | 158 | |
| 159 | WRITE_LINE_MEMBER(poly88_state::write_cas_tx) |
| 160 | { |
| 161 | m_cas_tx = state; |
| 162 | } |
| 163 | |
| 162 | 164 | TIMER_CALLBACK_MEMBER(poly88_state::poly88_cassette_timer_callback) |
| 163 | 165 | { |
| 164 | 166 | int data; |
| r26764 | r26765 | |
|---|
| 182 | 184 | { |
| 183 | 185 | data = (!m_previous_level && current_level) ? 1 : 0; |
| 184 | 186 | //data = current_level; |
| 185 | | m_sercas->send_bit(data); |
| 187 | m_uart->write_rx(data); |
| 186 | 188 | m_uart->receive_clock(); |
| 187 | 189 | |
| 188 | 190 | m_clk_level_tape = 1; |
| r26764 | r26765 | |
|---|
| 193 | 195 | /* tape writing */ |
| 194 | 196 | if (m_cassette->get_state()&CASSETTE_RECORD) |
| 195 | 197 | { |
| 196 | | data = m_sercas->get_in_data_bit(); |
| 198 | data = m_cas_tx; |
| 197 | 199 | data ^= m_clk_level_tape; |
| 198 | 200 | m_cassette->output(data&0x01 ? 1 : -1); |
| 199 | 201 | |
| r26764 | r26765 | |
|---|
| 214 | 216 | } |
| 215 | 217 | |
| 216 | 218 | |
| 217 | | TIMER_CALLBACK_MEMBER(poly88_state::setup_machine_state) |
| 218 | | { |
| 219 | | m_uart->connect(m_sercas); |
| 220 | | } |
| 221 | | |
| 222 | 219 | DRIVER_INIT_MEMBER(poly88_state,poly88) |
| 223 | 220 | { |
| 224 | 221 | m_previous_level = 0; |
| r26764 | r26765 | |
|---|
| 234 | 231 | m_maincpu->set_irq_acknowledge_callback(device_irq_acknowledge_delegate(FUNC(poly88_state::poly88_irq_callback),this)); |
| 235 | 232 | m_intr = 0; |
| 236 | 233 | m_last_code = 0; |
| 237 | | |
| 238 | | timer_set(attotime::zero, TIMER_SETUP_MACHINE_STATE); |
| 239 | 234 | } |
| 240 | 235 | |
| 241 | 236 | INTERRUPT_GEN_MEMBER(poly88_state::poly88_interrupt) |
| r26764 | r26765 | |
|---|
| 252 | 247 | |
| 253 | 248 | const i8251_interface poly88_usart_interface= |
| 254 | 249 | { |
| 250 | DEVCB_DRIVER_LINE_MEMBER(poly88_state,write_cas_tx), |
| 255 | 251 | DEVCB_NULL, |
| 256 | 252 | DEVCB_NULL, |
| 257 | | DEVCB_NULL, |
| 258 | 253 | DEVCB_DRIVER_LINE_MEMBER(poly88_state,poly88_usart_rxready), |
| 259 | 254 | DEVCB_NULL, |
| 260 | 255 | DEVCB_NULL, |