summaryrefslogtreecommitdiffstatshomepage
path: root/src/mess/machine/poly88.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/mess/machine/poly88.c')
-rw-r--r--src/mess/machine/poly88.c332
1 files changed, 332 insertions, 0 deletions
diff --git a/src/mess/machine/poly88.c b/src/mess/machine/poly88.c
new file mode 100644
index 00000000000..d29ba6bc22f
--- /dev/null
+++ b/src/mess/machine/poly88.c
@@ -0,0 +1,332 @@
+/***************************************************************************
+
+ Poly-88 machine by Miodrag Milanovic
+
+ 18/05/2009 Initial implementation
+
+****************************************************************************/
+
+#include "emu.h"
+#include "cpu/i8085/i8085.h"
+#include "imagedev/cassette.h"
+#include "includes/poly88.h"
+
+
+static TIMER_CALLBACK(poly88_usart_timer_callback)
+{
+ poly88_state *state = machine.driver_data<poly88_state>();
+ state->m_int_vector = 0xe7;
+ device_set_input_line(machine.device("maincpu"), 0, HOLD_LINE);
+}
+
+WRITE8_MEMBER(poly88_state::poly88_baud_rate_w)
+{
+ logerror("poly88_baud_rate_w %02x\n",data);
+ m_usart_timer = machine().scheduler().timer_alloc(FUNC(poly88_usart_timer_callback));
+ m_usart_timer->adjust(attotime::zero, 0, attotime::from_hz(300));
+
+}
+
+static UINT8 row_number(UINT8 code) {
+ if BIT(code,0) return 0;
+ if BIT(code,1) return 1;
+ if BIT(code,2) return 2;
+ if BIT(code,3) return 3;
+ if BIT(code,4) return 4;
+ if BIT(code,5) return 5;
+ if BIT(code,6) return 6;
+ if BIT(code,7) return 7;
+ return 0;
+}
+
+static TIMER_CALLBACK(keyboard_callback)
+{
+ poly88_state *state = machine.driver_data<poly88_state>();
+ static const char *const keynames[] = { "LINE0", "LINE1", "LINE2", "LINE3", "LINE4", "LINE5", "LINE6" };
+
+ int i;
+ UINT8 code;
+ UINT8 key_code = 0;
+ UINT8 shift = machine.root_device().ioport("LINEC")->read() & 0x02 ? 1 : 0;
+ UINT8 ctrl = machine.root_device().ioport("LINEC")->read() & 0x01 ? 1 : 0;
+
+ for(i = 0; i < 7; i++)
+ {
+
+ code = machine.root_device().ioport(keynames[i])->read();
+ if (code != 0)
+ {
+ if (i==0 && shift==0) {
+ key_code = 0x30 + row_number(code) + 8*i; // for numbers and some signs
+ }
+ if (i==0 && shift==1) {
+ key_code = 0x20 + row_number(code) + 8*i; // for shifted numbers
+ }
+ if (i==1 && shift==0) {
+ if (row_number(code) < 4) {
+ key_code = 0x30 + row_number(code) + 8*i; // for numbers and some signs
+ } else {
+ key_code = 0x20 + row_number(code) + 8*i; // for numbers and some signs
+ }
+ }
+ if (i==1 && shift==1) {
+ if (row_number(code) < 4) {
+ key_code = 0x20 + row_number(code) + 8*i; // for numbers and some signs
+ } else {
+ key_code = 0x30 + row_number(code) + 8*i; // for numbers and some signs
+ }
+ }
+ if (i>=2 && i<=4 && shift==1 && ctrl==0) {
+ key_code = 0x60 + row_number(code) + (i-2)*8; // for small letters
+ }
+ if (i>=2 && i<=4 && shift==0 && ctrl==0) {
+ key_code = 0x40 + row_number(code) + (i-2)*8; // for big letters
+ }
+ if (i>=2 && i<=4 && ctrl==1) {
+ key_code = 0x00 + row_number(code) + (i-2)*8; // for CTRL + letters
+ }
+ if (i==5 && shift==1 && ctrl==0) {
+ if (row_number(code)<7) {
+ key_code = 0x60 + row_number(code) + (i-2)*8; // for small letters
+ } else {
+ key_code = 0x40 + row_number(code) + (i-2)*8; // for signs it is switched
+ }
+ }
+ if (i==5 && shift==0 && ctrl==0) {
+ if (row_number(code)<7) {
+ key_code = 0x40 + row_number(code) + (i-2)*8; // for small letters
+ } else {
+ key_code = 0x60 + row_number(code) + (i-2)*8; // for signs it is switched
+ }
+ }
+ if (i==5 && shift==0 && ctrl==1) {
+ key_code = 0x00 + row_number(code) + (i-2)*8; // for letters + ctrl
+ }
+ if (i==6) {
+ switch(row_number(code))
+ {
+ case 0: key_code = 0x11; break;
+ case 1: key_code = 0x12; break;
+ case 2: key_code = 0x13; break;
+ case 3: key_code = 0x14; break;
+ case 4: key_code = 0x20; break; // Space
+ case 5: key_code = 0x0D; break; // Enter
+ case 6: key_code = 0x09; break; // TAB
+ case 7: key_code = 0x0A; break; // LF
+ }
+ }
+ }
+ }
+ if (key_code==0 && state->m_last_code !=0){
+ state->m_int_vector = 0xef;
+ cputag_set_input_line(machine, "maincpu", 0, HOLD_LINE);
+ } else {
+ state->m_last_code = key_code;
+ }
+}
+
+static IRQ_CALLBACK (poly88_irq_callback)
+{
+ poly88_state *state = device->machine().driver_data<poly88_state>();
+ return state->m_int_vector;
+}
+
+static TIMER_CALLBACK(poly88_cassette_timer_callback)
+{
+ poly88_state *state = machine.driver_data<poly88_state>();
+ int data;
+ int current_level;
+ i8251_device *uart = machine.device<i8251_device>("uart");
+ serial_source_device *ser = machine.device<serial_source_device>("sercas");
+
+// if (!(machine.root_device().ioport("DSW0")->read() & 0x02)) /* V.24 / Tape Switch */
+ //{
+ /* tape reading */
+ if (machine.device<cassette_image_device>(CASSETTE_TAG)->get_state()&CASSETTE_PLAY)
+ {
+ if (state->m_clk_level_tape)
+ {
+ state->m_previous_level = ((machine.device<cassette_image_device>(CASSETTE_TAG))->input() > 0.038) ? 1 : 0;
+ state->m_clk_level_tape = 0;
+ }
+ else
+ {
+ current_level = ((machine.device<cassette_image_device>(CASSETTE_TAG))->input() > 0.038) ? 1 : 0;
+
+ if (state->m_previous_level!=current_level)
+ {
+ data = (!state->m_previous_level && current_level) ? 1 : 0;
+//data = current_level;
+ ser->send_bit(data);
+ uart->receive_clock();
+
+ state->m_clk_level_tape = 1;
+ }
+ }
+ }
+
+ /* tape writing */
+ if (machine.device<cassette_image_device>(CASSETTE_TAG)->get_state()&CASSETTE_RECORD)
+ {
+ data = ser->get_in_data_bit();
+ data ^= state->m_clk_level_tape;
+ machine.device<cassette_image_device>(CASSETTE_TAG)->output(data&0x01 ? 1 : -1);
+
+ if (!state->m_clk_level_tape)
+ uart->transmit_clock();
+
+ state->m_clk_level_tape = state->m_clk_level_tape ? 0 : 1;
+
+ return;
+ }
+
+ state->m_clk_level_tape = 1;
+
+ if (!state->m_clk_level)
+ uart->transmit_clock();
+ state->m_clk_level = state->m_clk_level ? 0 : 1;
+// }
+}
+
+
+static TIMER_CALLBACK( setup_machine_state )
+{
+// poly88_state *state = machine.driver_data<poly88_state>();
+ i8251_device *uart = machine.device<i8251_device>("uart");
+ serial_source_device *ser = machine.device<serial_source_device>("sercas");
+ uart->connect(ser);
+}
+
+DRIVER_INIT_MEMBER(poly88_state,poly88)
+{
+ m_previous_level = 0;
+ m_clk_level = m_clk_level_tape = 1;
+ m_cassette_timer = machine().scheduler().timer_alloc(FUNC(poly88_cassette_timer_callback));
+ m_cassette_timer->adjust(attotime::zero, 0, attotime::from_hz(600));
+
+ machine().scheduler().timer_pulse(attotime::from_hz(24000), FUNC(keyboard_callback));
+}
+
+MACHINE_RESET(poly88)
+{
+ poly88_state *state = machine.driver_data<poly88_state>();
+ device_set_irq_callback(machine.device("maincpu"), poly88_irq_callback);
+ state->m_intr = 0;
+ state->m_last_code = 0;
+
+ machine.scheduler().timer_set(attotime::zero, FUNC(setup_machine_state));
+}
+
+INTERRUPT_GEN( poly88_interrupt )
+{
+ poly88_state *state = device->machine().driver_data<poly88_state>();
+ state->m_int_vector = 0xf7;
+ device_set_input_line(device, 0, HOLD_LINE);
+}
+
+static WRITE_LINE_DEVICE_HANDLER( poly88_usart_rxready )
+{
+ //poly88_state *drvstate = device->machine().driver_data<poly88_state>();
+ //drvstate->m_int_vector = 0xe7;
+ //device_set_input_line(device, 0, HOLD_LINE);
+}
+
+const i8251_interface poly88_usart_interface=
+{
+ DEVCB_NULL,
+ DEVCB_NULL,
+ DEVCB_NULL,
+ DEVCB_NULL,
+ DEVCB_NULL,
+ DEVCB_LINE(poly88_usart_rxready),
+ DEVCB_NULL,
+ DEVCB_NULL,
+ DEVCB_NULL
+};
+
+READ8_MEMBER(poly88_state::poly88_keyboard_r)
+{
+ UINT8 retVal = m_last_code;
+ cputag_set_input_line(machine(), "maincpu", 0, CLEAR_LINE);
+ m_last_code = 0x00;
+ return retVal;
+}
+
+WRITE8_MEMBER(poly88_state::poly88_intr_w)
+{
+ cputag_set_input_line(machine(), "maincpu", 0, CLEAR_LINE);
+}
+
+SNAPSHOT_LOAD( poly88 )
+{
+ address_space *space = image.device().machine().device("maincpu")->memory().space(AS_PROGRAM);
+ UINT8* data= auto_alloc_array(image.device().machine(), UINT8, snapshot_size);
+ UINT16 recordNum;
+ UINT16 recordLen;
+ UINT16 address;
+ UINT8 recordType;
+
+ int pos = 0x300;
+ char name[9];
+ int i = 0;
+ int theend = 0;
+
+ image.fread( data, snapshot_size);
+
+ while (pos<snapshot_size) {
+ for(i=0;i<9;i++) {
+ name[i] = (char) data[pos + i];
+ }
+ pos+=8;
+ name[8] = 0;
+
+
+ recordNum = data[pos]+ data[pos+1]*256; pos+=2;
+ recordLen = data[pos]; pos++;
+ if (recordLen==0) recordLen=0x100;
+ address = data[pos] + data[pos+1]*256; pos+=2;
+ recordType = data[pos]; pos++;
+
+ logerror("Block :%s number:%d length: %d address=%04x type:%d\n",name,recordNum,recordLen,address, recordType);
+ switch(recordType) {
+ case 0 :
+ /* 00 Absolute */
+ memcpy(space->get_read_ptr(address ), data + pos ,recordLen);
+ break;
+ case 1 :
+ /* 01 Comment */
+ break;
+ case 2 :
+ /* 02 End */
+ theend = 1;
+ break;
+ case 3 :
+ /* 03 Auto Start @ Address */
+ cpu_set_reg(image.device().machine().device("maincpu"), I8085_PC, address);
+ theend = 1;
+ break;
+ case 4 :
+ /* 04 Data ( used by Assembler ) */
+ logerror("ASM load unsupported\n");
+ theend = 1;
+ break;
+ case 5 :
+ /* 05 BASIC program file */
+ logerror("BASIC load unsupported\n");
+ theend = 1;
+ break;
+ case 6 :
+ /* 06 End ( used by Assembler? ) */
+ theend = 1;
+ break;
+ default: break;
+ }
+
+ if (theend) {
+ break;
+ }
+ pos+=recordLen;
+ }
+ image.device().machine().device("uart")->reset();
+ return IMAGE_INIT_PASS;
+}