1
/*********************************************************************
8
Thankyou to Fabrice Frances for his ORIC documentation which helped with this driver
9
http://oric.ifrance.com/oric/
12
- there are problems loading some .wav's. Try to fix these.
13
- fix more graphics display problems
14
- check the printer works
15
- fix more disc drive/wd179x problems so more software will run
17
*********************************************************************/
22
#include "includes/oric.h"
23
#include "machine/wd17xx.h"
24
#include "machine/6522via.h"
25
#include "machine/applefdc.h"
26
#include "machine/6551.h"
27
#include "machine/ctronics.h"
28
#include "imagedev/cassette.h"
29
#include "sound/ay8910.h"
30
#include "imagedev/flopdrv.h"
34
static const int enable_logging = 1;
37
/* ==0 if oric1 or oric atmos, !=0 if telestrat */
39
/* This does not exist in the real hardware. I have used it to
40
know which sources are interrupting */
41
/* bit 2 = telestrat 2nd via interrupt, 1 = microdisc interface,
42
0 = oric 1st via interrupt */
48
ORIC_FLOPPY_BASIC_DISK
51
/* type of disc interface connected to oric/oric atmos */
52
/* telestrat always has a microdisc interface */
55
ORIC_FLOPPY_INTERFACE_NONE = 0,
56
ORIC_FLOPPY_INTERFACE_MICRODISC = 1,
57
ORIC_FLOPPY_INTERFACE_JASMIN = 2,
58
ORIC_FLOPPY_INTERFACE_APPLE2 = 3,
59
ORIC_FLOPPY_INTERFACE_APPLE2_V2 = 4
62
/* called when ints are changed - cleared/set */
63
static void oric_refresh_ints(running_machine &machine)
65
oric_state *state = machine.driver_data<oric_state>();
66
/* telestrat has floppy hardware built-in! */
67
if (state->m_is_telestrat==0)
69
/* oric 1 or oric atmos */
71
/* if floppy disc hardware is disabled, do not allow interrupts from it */
72
if ((input_port_read(machine, "FLOPPY") & 0x07) == ORIC_FLOPPY_INTERFACE_NONE)
74
state->m_irqs &=~(1<<1);
79
if ((state->m_irqs & 0x0f)!=0)
81
cputag_set_input_line(machine, "maincpu", 0, HOLD_LINE);
85
cputag_set_input_line(machine, "maincpu", 0, CLEAR_LINE);
91
/* index of keyboard line to scan */
93
/* mask to read keys */
99
/* refresh keyboard sense */
100
static void oric_keyboard_sense_refresh(running_machine &machine)
102
oric_state *state = machine.driver_data<oric_state>();
103
/* The following assumes that if a 0 is written, it can be used to detect if any key
104
has been pressed.. */
105
/* for each bit that is 0, it combines it's pressed state with the pressed state so far */
108
unsigned char key_bit = 0;
110
/* what if data is 0, can it sense if any of the keys on a line are pressed? */
112
static const char *const keynames[] = { "ROW0", "ROW1", "ROW2", "ROW3", "ROW4", "ROW5", "ROW6", "ROW7" };
114
input_port_data = input_port_read(machine, keynames[state->m_keyboard_line]);
116
/* go through all bits in line */
119
/* sense this bit? */
120
if (((~state->m_keyboard_mask) & (1<<i)) != 0)
122
/* is key pressed? */
123
if (input_port_data & (1<<i))
131
/* clear sense result */
132
state->m_key_sense_bit = 0;
133
/* any keys pressed on this line? */
136
/* set sense result */
137
state->m_key_sense_bit = (1<<3);
142
/* this is executed when a write to psg port a is done */
143
WRITE8_HANDLER (oric_psg_porta_write)
145
oric_state *state = space->machine().driver_data<oric_state>();
146
state->m_keyboard_mask = data;
150
/* PSG control pins */
151
/* bit 1 = BDIR state */
152
/* bit 0 = BC1 state */
154
/* this port is also used to read printer data */
155
static READ8_DEVICE_HANDLER ( oric_via_in_a_func )
157
oric_state *state = device->machine().driver_data<oric_state>();
158
address_space *space = device->machine().device( "maincpu")->memory().space( AS_PROGRAM );
160
/*logerror("port a read\r\n"); */
163
if (state->m_psg_control!=0)
165
/* if psg is in read register state return reg data */
166
if (state->m_psg_control==0x01)
168
return ay8910_r(space->machine().device("ay8912"), 0);
171
/* return high-impedance */
176
return state->m_via_port_a_data;
179
static READ8_DEVICE_HANDLER ( oric_via_in_b_func )
181
oric_state *state = device->machine().driver_data<oric_state>();
184
oric_keyboard_sense_refresh(device->machine());
186
data = state->m_key_sense_bit;
187
data |= state->m_keyboard_line & 0x07;
193
/* read/write data depending on state of bdir, bc1 pins and data output to psg */
194
static void oric_psg_connection_refresh(running_machine &machine)
196
oric_state *state = machine.driver_data<oric_state>();
197
if (state->m_psg_control!=0)
199
switch (state->m_psg_control)
204
/* read register data */
207
//state->m_via_port_a_data = ay8910_read_port_0_r(space, 0);
210
/* write register data */
213
device_t *ay8912 = machine.device("ay8912");
214
ay8910_data_w(ay8912, 0, state->m_via_port_a_data);
217
/* write register index */
220
device_t *ay8912 = machine.device("ay8912");
221
ay8910_address_w(ay8912, 0, state->m_via_port_a_data);
233
static WRITE8_DEVICE_HANDLER ( oric_via_out_a_func )
235
oric_state *state = device->machine().driver_data<oric_state>();
236
state->m_via_port_a_data = data;
238
oric_psg_connection_refresh(device->machine());
241
if (state->m_psg_control==0)
243
/* if psg not selected, write to printer */
244
device_t *printer = device->machine().device("centronics");
245
centronics_data_w(printer, 0, data);
251
keyboard lines-demultiplexer line 7
254
keyboard sense line 0
257
printer strobe line 1
263
tape connector motor control 0
266
tape connector output high 1
271
static cassette_image_device *cassette_device_image(running_machine &machine)
273
return machine.device<cassette_image_device>(CASSETTE_TAG);
276
/* not called yet - this will update the via with the state of the tape data.
277
This allows the via to trigger on bit changes and issue interrupts */
278
static TIMER_CALLBACK(oric_refresh_tape)
282
via6522_device *via_0 = machine.device<via6522_device>("via6522_0");
286
if ((cassette_device_image(machine))->input() > 0.0038)
289
/* "A simple cable to catch the vertical retrace signal !
290
This cable connects the video output for the television/monitor
291
to the via cb1 input. Interrupts can be generated from the vertical
292
sync, and flicker free games can be produced */
294
input_port_9 = input_port_read(machine, "FLOPPY");
295
/* cable is enabled? */
296
if ((input_port_9 & 0x08)!=0)
298
/* return state of vsync */
299
data = input_port_9>>4;
302
via_0->write_cb1(data);
305
static WRITE8_DEVICE_HANDLER ( oric_via_out_b_func )
307
oric_state *state = device->machine().driver_data<oric_state>();
308
device_t *printer = device->machine().device("centronics");
311
state->m_keyboard_line = data & 0x07;
314
/* cassette motor control */
315
if ((state->m_previous_portb_data^data) & (1<<6))
319
//enable_logging = 1;
324
cassette_device_image(device->machine())->change_state(
325
(data & 0x40) ? CASSETTE_MOTOR_ENABLED : CASSETTE_MOTOR_DISABLED,
326
CASSETTE_MOTOR_DISABLED);
328
/* cassette data out */
329
cassette_device_image(device->machine())->output((data & (1<<7)) ? -1.0 : +1.0);
331
/* centronics STROBE is connected to PB4 */
332
centronics_strobe_w(printer, BIT(data, 4));
334
oric_psg_connection_refresh(device->machine());
335
state->m_previous_portb_data = data;
339
static READ8_DEVICE_HANDLER ( oric_via_in_ca2_func )
341
oric_state *state = device->machine().driver_data<oric_state>();
342
return state->m_psg_control & 1;
345
static READ8_DEVICE_HANDLER ( oric_via_in_cb2_func )
347
oric_state *state = device->machine().driver_data<oric_state>();
348
return (state->m_psg_control>>1) & 1;
351
static WRITE8_DEVICE_HANDLER ( oric_via_out_ca2_func )
353
oric_state *state = device->machine().driver_data<oric_state>();
354
state->m_psg_control &=~1;
358
state->m_psg_control |=1;
361
oric_psg_connection_refresh(device->machine());
364
static WRITE8_DEVICE_HANDLER ( oric_via_out_cb2_func )
366
oric_state *state = device->machine().driver_data<oric_state>();
367
state->m_psg_control &=~2;
371
state->m_psg_control |=2;
374
oric_psg_connection_refresh(device->machine());
378
static void oric_via_irq_func(device_t *device, int state)
380
oric_state *drvstate = device->machine().driver_data<oric_state>();
381
drvstate->m_irqs &= ~(1<<0);
387
//logerror("oric via1 interrupt\r\n");
390
drvstate->m_irqs |=(1<<0);
393
oric_refresh_ints(device->machine());
402
PSG data bus, printer data lines
405
printer acknowledge line
411
keyboard lines-demultiplexer
423
tape connector motor control
426
tape connector output
436
const via6522_interface oric_6522_interface=
438
DEVCB_HANDLER(oric_via_in_a_func),
439
DEVCB_HANDLER(oric_via_in_b_func),
440
DEVCB_NULL, /* printer acknowledge - handled by callback*/
441
DEVCB_NULL, /* tape input - handled by timer */
442
DEVCB_HANDLER(oric_via_in_ca2_func),
443
DEVCB_HANDLER(oric_via_in_cb2_func),
444
DEVCB_HANDLER(oric_via_out_a_func),
445
DEVCB_HANDLER(oric_via_out_b_func),
448
DEVCB_HANDLER(oric_via_out_ca2_func),
449
DEVCB_HANDLER(oric_via_out_cb2_func),
450
DEVCB_LINE(oric_via_irq_func),
456
/*********************/
457
/* APPLE 2 INTERFACE */
460
apple2 disc drive accessed through 0x0310-0x031f (read/write)
461
oric via accessed through 0x0300-0x030f. (read/write)
462
disk interface rom accessed through 0x0320-0x03ff (read only)
464
CALL &320 to start, or use BOBY rom.
467
static void oric_install_apple2_interface(running_machine &machine)
469
oric_state *state = machine.driver_data<oric_state>();
470
device_t *fdc = machine.device("fdc");
471
address_space *space = machine.device("maincpu")->memory().space(AS_PROGRAM);
473
if (state->m_is_telestrat)
476
space->install_legacy_read_handler(0x0300, 0x030f, FUNC(oric_IO_r));
477
space->install_legacy_read_handler(*fdc, 0x0310, 0x031f, FUNC(applefdc_r));
478
space->install_read_bank(0x0320, 0x03ff, "bank4");
480
space->install_legacy_write_handler(0x0300, 0x030f, FUNC(oric_IO_w));
481
space->install_legacy_write_handler(*fdc, 0x0310, 0x031f, FUNC(applefdc_w));
482
memory_set_bankptr(machine, "bank4", machine.region("maincpu")->base() + 0x014000 + 0x020);
486
static void oric_enable_memory(running_machine &machine, int low, int high, int rd, int wr)
488
oric_state *state = machine.driver_data<oric_state>();
490
address_space *space = machine.device("maincpu")->memory().space(AS_PROGRAM);
492
if (state->m_is_telestrat)
494
for (i = low; i <= high; i++)
499
space->install_read_bank(0xc000, 0xdfff, "bank1");
501
space->nop_read(0xc000, 0xdfff);
504
space->install_write_bank(0xc000, 0xdfff, "bank5");
506
space->unmap_write(0xc000, 0xdfff);
511
space->install_read_bank(0xe000, 0xf7ff, "bank2");
513
space->nop_read(0xe000, 0xf7ff);
516
space->install_write_bank(0xe000, 0xf7ff, "bank6");
518
space->unmap_write(0xe000, 0xf7ff);
523
space->install_read_bank(0xf800, 0xffff, "bank3");
525
space->nop_read(0xf800, 0xffff);
534
/************************/
535
/* APPLE 2 INTERFACE V2 */
538
apple2 disc drive accessed through 0x0310-0x031f (read/write)
539
oric via accessed through 0x0300-0x030f. (read/write)
540
disk interface rom accessed through 0x0320-0x03ff (read only)
541
v2 registers accessed through 0x0380-0x0383 (write only)
543
CALL &320 to start, or use BOBY rom.
546
static WRITE8_HANDLER(apple2_v2_interface_w)
548
oric_state *state = space->machine().driver_data<oric_state>();
549
/* data is ignored, address is used to decode operation */
550
if (state->m_is_telestrat)
553
/* logerror("apple 2 interface v2 rom page: %01x\n",(offset & 0x02)>>1); */
555
/* bit 0 is 0 for page 0, 1 for page 1 */
556
memory_set_bankptr(space->machine(), "bank4", space->machine().region("maincpu")->base() + 0x014000 + 0x0100 + (((offset & 0x02)>>1)<<8));
558
oric_enable_memory(space->machine(), 1, 3, TRUE, TRUE);
560
/* bit 1 is 0, rom enabled, bit 1 is 1 ram enabled */
561
if ((offset & 0x01)==0)
563
unsigned char *rom_ptr;
565
/* logerror("apple 2 interface v2: rom enabled\n"); */
568
rom_ptr = space->machine().region("maincpu")->base() + 0x010000;
569
memory_set_bankptr(space->machine(), "bank1", rom_ptr);
570
memory_set_bankptr(space->machine(), "bank2", rom_ptr+0x02000);
571
memory_set_bankptr(space->machine(), "bank3", rom_ptr+0x03800);
572
memory_set_bankptr(space->machine(), "bank5", state->m_ram_0x0c000);
573
memory_set_bankptr(space->machine(), "bank6", state->m_ram_0x0c000+0x02000);
574
memory_set_bankptr(space->machine(), "bank7", state->m_ram_0x0c000+0x03800);
578
/*logerror("apple 2 interface v2: ram enabled\n"); */
581
memory_set_bankptr(space->machine(), "bank1", state->m_ram_0x0c000);
582
memory_set_bankptr(space->machine(), "bank2", state->m_ram_0x0c000+0x02000);
583
memory_set_bankptr(space->machine(), "bank3", state->m_ram_0x0c000+0x03800);
584
memory_set_bankptr(space->machine(), "bank5", state->m_ram_0x0c000);
585
memory_set_bankptr(space->machine(), "bank6", state->m_ram_0x0c000+0x02000);
586
memory_set_bankptr(space->machine(), "bank7", state->m_ram_0x0c000+0x03800);
591
/* APPLE 2 INTERFACE V2 */
592
static void oric_install_apple2_v2_interface(running_machine &machine)
594
device_t *fdc = machine.device("fdc");
595
address_space *space = machine.device("maincpu")->memory().space(AS_PROGRAM);
597
space->install_legacy_read_handler(0x0300, 0x030f, FUNC(oric_IO_r));
598
space->install_legacy_read_handler(*fdc, 0x0310, 0x031f, FUNC(applefdc_r));
599
space->install_read_bank(0x0320, 0x03ff, "bank4");
601
space->install_legacy_write_handler(0x0300, 0x030f, FUNC(oric_IO_w));
602
space->install_legacy_write_handler(*fdc, 0x0310, 0x031f, FUNC(applefdc_w));
603
space->install_legacy_write_handler(0x0380, 0x0383, FUNC(apple2_v2_interface_w));
605
apple2_v2_interface_w(space, 0, 0);
608
/********************/
609
/* JASMIN INTERFACE */
612
/* bit 0: overlay ram access (1 means overlay ram enabled) */
614
/* bit 0: ROMDIS (1 means internal Basic rom disabled) */
617
static void oric_jasmin_set_mem_0x0c000(running_machine &machine)
619
oric_state *state = machine.driver_data<oric_state>();
621
1. It is possible to access all 16k overlay ram.
622
2. If os is enabled, and overlay ram is enabled, all 16k can be accessed.
623
3. if os is disabled, and overlay ram is enabled, jasmin rom takes priority.
625
if (state->m_is_telestrat)
628
/* the ram is disabled in the jasmin rom which indicates that jasmin takes
629
priority over the ram */
631
/* basic rom disabled? */
632
if ((state->m_port_3fb_w & 0x01)==0)
634
/* no, it is enabled! */
636
/* overlay ram enabled? */
637
if ((state->m_port_3fa_w & 0x01)==0)
639
unsigned char *rom_ptr;
641
/* no it is disabled */
642
/*logerror("&c000-&ffff is os rom\n"); */
644
oric_enable_memory(machine, 1, 3, TRUE, FALSE);
646
rom_ptr = machine.region("maincpu")->base() + 0x010000;
647
memory_set_bankptr(machine, "bank1", rom_ptr);
648
memory_set_bankptr(machine, "bank2", rom_ptr+0x02000);
649
memory_set_bankptr(machine, "bank3", rom_ptr+0x03800);
653
/*logerror("&c000-&ffff is ram\n"); */
655
oric_enable_memory(machine, 1, 3, TRUE, TRUE);
657
memory_set_bankptr(machine, "bank1", state->m_ram_0x0c000);
658
memory_set_bankptr(machine, "bank2", state->m_ram_0x0c000+0x02000);
659
memory_set_bankptr(machine, "bank3", state->m_ram_0x0c000+0x03800);
660
memory_set_bankptr(machine, "bank5", state->m_ram_0x0c000);
661
memory_set_bankptr(machine, "bank6", state->m_ram_0x0c000+0x02000);
662
memory_set_bankptr(machine, "bank7", state->m_ram_0x0c000+0x03800);
667
/* yes, basic rom is disabled */
669
if ((state->m_port_3fa_w & 0x01)==0)
671
/* overlay ram disabled */
673
/*logerror("&c000-&f8ff is nothing!\n"); */
674
oric_enable_memory(machine, 1, 2, FALSE, FALSE);
678
/*logerror("&c000-&f8ff is ram!\n"); */
679
oric_enable_memory(machine, 1, 2, TRUE, TRUE);
681
memory_set_bankptr(machine, "bank1", state->m_ram_0x0c000);
682
memory_set_bankptr(machine, "bank2", state->m_ram_0x0c000+0x02000);
683
memory_set_bankptr(machine, "bank5", state->m_ram_0x0c000);
684
memory_set_bankptr(machine, "bank6", state->m_ram_0x0c000+0x02000);
688
/* basic rom disabled */
689
unsigned char *rom_ptr;
691
/*logerror("&f800-&ffff is jasmin rom\n"); */
692
/* jasmin rom enabled */
693
oric_enable_memory(machine, 3, 3, TRUE, TRUE);
694
rom_ptr = machine.region("maincpu")->base() + 0x010000+0x04000+0x02000;
695
memory_set_bankptr(machine, "bank3", rom_ptr);
696
memory_set_bankptr(machine, "bank7", rom_ptr);
701
/* DRQ is connected to interrupt */
702
static WRITE_LINE_DEVICE_HANDLER( oric_jasmin_wd179x_drq_w )
704
oric_state *drvstate = device->machine().driver_data<oric_state>();
706
drvstate->m_irqs |= (1<<1);
708
drvstate->m_irqs &=~(1<<1);
710
oric_refresh_ints(device->machine());
713
static READ8_HANDLER (oric_jasmin_r)
715
via6522_device *via_0 = space->machine().device<via6522_device>("via6522_0");
716
device_t *fdc = space->machine().device("wd179x");
717
unsigned char data = 0x0ff;
719
switch (offset & 0x0f)
721
/* jasmin floppy disc interface */
723
data = wd17xx_status_r(fdc, 0);
726
data =wd17xx_track_r(fdc, 0);
729
data = wd17xx_sector_r(fdc, 0);
732
data = wd17xx_data_r(fdc, 0);
735
data = via_0->read(*space,offset & 0x0f);
736
//logerror("unhandled io read: %04x %02x\n", offset, data);
744
static WRITE8_HANDLER(oric_jasmin_w)
746
oric_state *state = space->machine().driver_data<oric_state>();
747
via6522_device *via_0 = space->machine().device<via6522_device>("via6522_0");
748
device_t *fdc = space->machine().device("wd179x");
749
switch (offset & 0x0f)
751
/* microdisc floppy disc interface */
753
wd17xx_command_w(fdc, 0, data);
756
wd17xx_track_w(fdc, 0, data);
759
wd17xx_sector_w(fdc, 0, data);
762
wd17xx_data_w(fdc, 0, data);
766
wd17xx_set_side(fdc,data & 0x01);
768
/* any write will cause wd179x to reset */
773
//logerror("jasmin overlay ram w: %02x PC: %04x\n", data, cpu_get_pc(space->machine().device("maincpu")));
774
state->m_port_3fa_w = data;
775
oric_jasmin_set_mem_0x0c000(space->machine());
778
//logerror("jasmin romdis w: %02x PC: %04x\n", data, cpu_get_pc(space->machine().device("maincpu")));
779
state->m_port_3fb_w = data;
780
oric_jasmin_set_mem_0x0c000(space->machine());
782
/* bit 0,1 of addr is the drive */
787
wd17xx_set_drive(fdc,offset & 0x03);
791
via_0->write(*space,offset & 0x0f, data);
797
static void oric_install_jasmin_interface(running_machine &machine)
799
oric_state *state = machine.driver_data<oric_state>();
800
address_space *space = machine.device("maincpu")->memory().space(AS_PROGRAM);
802
state->m_port_3fb_w = 1;
803
oric_jasmin_set_mem_0x0c000(machine);
805
space->install_legacy_read_handler(0x0300, 0x03ef, FUNC(oric_IO_r));
806
space->install_legacy_read_handler(0x03f0, 0x03ff, FUNC(oric_jasmin_r));
808
space->install_legacy_write_handler(0x0300, 0x03ef, FUNC(oric_IO_w));
809
space->install_legacy_write_handler(0x03f0, 0x03ff, FUNC(oric_jasmin_w));
812
/*********************************/
813
/* MICRODISC INTERFACE variables */
815
/* used by Microdisc interfaces */
817
/* bit 7 is intrq state */
818
/* bit 7 is drq state (active low) */
821
/* bit 3: double density enable */
822
/* bit 0: enable FDC IRQ to trigger IRQ on CPU */
825
static void oric_microdisc_refresh_wd179x_ints(running_machine &machine)
827
oric_state *state = machine.driver_data<oric_state>();
828
state->m_irqs &=~(1<<1);
830
if ((state->m_wd179x_int_state) && (state->m_port_314_w & (1<<0)))
832
/*logerror("oric microdisc interrupt\n"); */
834
state->m_irqs |=(1<<1);
837
oric_refresh_ints(machine);
840
static WRITE_LINE_DEVICE_HANDLER( oric_microdisc_wd179x_intrq_w )
842
oric_state *drvstate = device->machine().driver_data<oric_state>();
843
drvstate->m_wd179x_int_state = state;
846
drvstate->m_port_314_r &= ~(1<<7);
848
drvstate->m_port_314_r |=(1<<7);
850
oric_microdisc_refresh_wd179x_ints(device->machine());
853
static WRITE_LINE_DEVICE_HANDLER( oric_microdisc_wd179x_drq_w )
855
oric_state *drvstate = device->machine().driver_data<oric_state>();
857
drvstate->m_port_318_r &=~(1<<7);
859
drvstate->m_port_318_r |= (1<<7);
862
static void oric_microdisc_set_mem_0x0c000(running_machine &machine)
864
oric_state *state = machine.driver_data<oric_state>();
865
if (state->m_is_telestrat)
868
/* for 0x0c000-0x0dfff: */
869
/* if os disabled, ram takes priority */
871
if ((state->m_port_314_w & (1<<1))==0)
873
/*logerror("&c000-&dfff is ram\n"); */
874
/* rom disabled enable ram */
875
oric_enable_memory(machine, 1, 1, TRUE, TRUE);
876
memory_set_bankptr(machine, "bank1", state->m_ram_0x0c000);
877
memory_set_bankptr(machine, "bank5", state->m_ram_0x0c000);
881
unsigned char *rom_ptr;
882
/*logerror("&c000-&dfff is os rom\n"); */
884
oric_enable_memory(machine, 1, 1, TRUE, FALSE);
885
rom_ptr = machine.region("maincpu")->base() + 0x010000;
886
memory_set_bankptr(machine, "bank1", rom_ptr);
887
memory_set_bankptr(machine, "bank5", rom_ptr);
890
/* for 0x0e000-0x0ffff */
891
/* if not disabled, os takes priority */
892
if ((state->m_port_314_w & (1<<1))!=0)
894
unsigned char *rom_ptr;
895
/*logerror("&e000-&ffff is os rom\n"); */
897
oric_enable_memory(machine, 2, 3, TRUE, FALSE);
898
rom_ptr = machine.region("maincpu")->base() + 0x010000;
899
memory_set_bankptr(machine, "bank2", rom_ptr+0x02000);
900
memory_set_bankptr(machine, "bank3", rom_ptr+0x03800);
901
memory_set_bankptr(machine, "bank6", rom_ptr+0x02000);
902
memory_set_bankptr(machine, "bank7", rom_ptr+0x03800);
907
/* if eprom is enabled, it takes priority over ram */
908
if ((state->m_port_314_w & (1<<7))==0)
910
unsigned char *rom_ptr;
911
/*logerror("&e000-&ffff is disk rom\n"); */
912
oric_enable_memory(machine, 2, 3, TRUE, FALSE);
913
/* enable rom of microdisc interface */
914
rom_ptr = machine.region("maincpu")->base() + 0x014000;
915
memory_set_bankptr(machine, "bank2", rom_ptr);
916
memory_set_bankptr(machine, "bank3", rom_ptr+0x01800);
920
/*logerror("&e000-&ffff is ram\n"); */
921
/* rom disabled enable ram */
922
oric_enable_memory(machine, 2, 3, TRUE, TRUE);
923
memory_set_bankptr(machine, "bank2", state->m_ram_0x0c000+0x02000);
924
memory_set_bankptr(machine, "bank3", state->m_ram_0x0c000+0x03800);
925
memory_set_bankptr(machine, "bank6", state->m_ram_0x0c000+0x02000);
926
memory_set_bankptr(machine, "bank7", state->m_ram_0x0c000+0x03800);
933
READ8_HANDLER (oric_microdisc_r)
935
oric_state *state = space->machine().driver_data<oric_state>();
936
unsigned char data = 0x0ff;
937
device_t *fdc = space->machine().device("wd179x");
939
switch (offset & 0x0ff)
941
/* microdisc floppy disc interface */
943
data = wd17xx_status_r(fdc, 0);
946
data =wd17xx_track_r(fdc, 0);
949
data = wd17xx_sector_r(fdc, 0);
952
data = wd17xx_data_r(fdc, 0);
955
data = state->m_port_314_r | 0x07f;
956
/* logerror("port_314_r: %02x\n",data); */
959
data = state->m_port_318_r | 0x07f;
960
/* logerror("port_318_r: %02x\n",data); */
965
via6522_device *via_0 = space->machine().device<via6522_device>("via6522_0");
966
data = via_0->read(*space, offset & 0x0f);
975
WRITE8_HANDLER(oric_microdisc_w)
977
oric_state *state = space->machine().driver_data<oric_state>();
978
device_t *fdc = space->machine().device("wd179x");
979
switch (offset & 0x0ff)
981
/* microdisc floppy disc interface */
983
wd17xx_command_w(fdc, 0, data);
986
wd17xx_track_w(fdc, 0, data);
989
wd17xx_sector_w(fdc, 0, data);
992
wd17xx_data_w(fdc, 0, data);
996
state->m_port_314_w = data;
998
//logerror("port_314_w: %02x\n",data);
1000
/* bit 6,5: drive */
1002
/* bit 3: double density enable */
1003
/* bit 0: enable FDC IRQ to trigger IRQ on CPU */
1004
wd17xx_set_drive(fdc,(data>>5) & 0x03);
1005
wd17xx_set_side(fdc,(data>>4) & 0x01);
1006
wd17xx_dden_w(fdc, !BIT(data, 3));
1008
oric_microdisc_set_mem_0x0c000(space->machine());
1009
oric_microdisc_refresh_wd179x_ints(space->machine());
1015
via6522_device *via_0 = space->machine().device<via6522_device>("via6522_0");
1016
via_0->write(*space, offset & 0x0f, data);
1022
static void oric_install_microdisc_interface(running_machine &machine)
1024
oric_state *state = machine.driver_data<oric_state>();
1025
address_space *space = machine.device("maincpu")->memory().space(AS_PROGRAM);
1027
space->install_legacy_read_handler(0x0300, 0x030f, FUNC(oric_IO_r));
1028
space->install_legacy_read_handler(0x0310, 0x031f, FUNC(oric_microdisc_r));
1029
space->install_legacy_read_handler(0x0320, 0x03ff, FUNC(oric_IO_r));
1031
space->install_legacy_write_handler(0x0300, 0x030f, FUNC(oric_IO_w));
1032
space->install_legacy_write_handler(0x0310, 0x031f, FUNC(oric_microdisc_w));
1033
space->install_legacy_write_handler(0x0320, 0x03ff, FUNC(oric_IO_w));
1035
/* disable os rom, enable microdisc rom */
1036
/* 0x0c000-0x0dfff will be ram, 0x0e000-0x0ffff will be microdisc rom */
1037
state->m_port_314_w = 0x0ff^((1<<7) | (1<<1));
1039
oric_microdisc_set_mem_0x0c000(machine);
1044
/*********************************************************/
1046
static WRITE_LINE_DEVICE_HANDLER( oric_wd179x_intrq_w )
1048
if ((input_port_read(device->machine(), "FLOPPY") & 0x07) == ORIC_FLOPPY_INTERFACE_MICRODISC)
1049
oric_microdisc_wd179x_intrq_w(device, state);
1052
static WRITE_LINE_DEVICE_HANDLER( oric_wd179x_drq_w )
1054
switch (input_port_read(device->machine(), "FLOPPY") & 0x07)
1057
case ORIC_FLOPPY_INTERFACE_NONE:
1058
case ORIC_FLOPPY_INTERFACE_APPLE2:
1060
case ORIC_FLOPPY_INTERFACE_MICRODISC:
1061
oric_microdisc_wd179x_drq_w(device, state);
1063
case ORIC_FLOPPY_INTERFACE_JASMIN:
1064
oric_jasmin_wd179x_drq_w(device, state);
1069
const wd17xx_interface oric_wd17xx_interface =
1072
DEVCB_LINE(oric_wd179x_intrq_w),
1073
DEVCB_LINE(oric_wd179x_drq_w),
1074
{FLOPPY_0, FLOPPY_1, FLOPPY_2, FLOPPY_3}
1077
static void oric_common_init_machine(running_machine &machine)
1079
oric_state *state = machine.driver_data<oric_state>();
1080
/* clear all irqs */
1082
state->m_ram_0x0c000 = NULL;
1084
machine.scheduler().timer_pulse(attotime::from_hz(4800), FUNC(oric_refresh_tape));
1087
MACHINE_START( oric )
1089
oric_state *state = machine.driver_data<oric_state>();
1090
oric_common_init_machine(machine);
1092
state->m_is_telestrat = 0;
1094
state->m_ram_0x0c000 = auto_alloc_array(machine, char, 16384);
1098
MACHINE_RESET( oric )
1100
oric_state *state = machine.driver_data<oric_state>();
1101
int disc_interface_id = input_port_read(machine, "FLOPPY") & 0x07;
1102
address_space *space = machine.device("maincpu")->memory().space(AS_PROGRAM);
1103
if (state->m_is_telestrat)
1106
switch (disc_interface_id)
1110
case ORIC_FLOPPY_INTERFACE_APPLE2:
1111
case ORIC_FLOPPY_INTERFACE_NONE:
1113
/* setup memory when there is no disc interface */
1114
unsigned char *rom_ptr;
1117
oric_enable_memory(machine, 1, 3, TRUE, FALSE);
1118
rom_ptr = machine.region("maincpu")->base() + 0x010000;
1119
memory_set_bankptr(machine, "bank1", rom_ptr);
1120
memory_set_bankptr(machine, "bank2", rom_ptr+0x02000);
1121
memory_set_bankptr(machine, "bank3", rom_ptr+0x03800);
1122
memory_set_bankptr(machine, "bank5", rom_ptr);
1123
memory_set_bankptr(machine, "bank6", rom_ptr+0x02000);
1124
memory_set_bankptr(machine, "bank7", rom_ptr+0x03800);
1127
if (disc_interface_id==ORIC_FLOPPY_INTERFACE_APPLE2)
1129
oric_install_apple2_interface(machine);
1133
space->install_legacy_read_handler(0x0300, 0x03ff, FUNC(oric_IO_r));
1134
space->install_legacy_write_handler(0x0300, 0x03ff, FUNC(oric_IO_w));
1139
case ORIC_FLOPPY_INTERFACE_APPLE2_V2:
1141
oric_install_apple2_v2_interface(machine);
1146
case ORIC_FLOPPY_INTERFACE_MICRODISC:
1148
oric_install_microdisc_interface(machine);
1152
case ORIC_FLOPPY_INTERFACE_JASMIN:
1154
oric_install_jasmin_interface(machine);
1158
machine.device("maincpu")->reset();
1162
READ8_HANDLER ( oric_IO_r )
1164
via6522_device *via_0 = space->machine().device<via6522_device>("via6522_0");
1165
switch (input_port_read(space->machine(), "FLOPPY") & 0x07)
1168
case ORIC_FLOPPY_INTERFACE_NONE:
1171
case ORIC_FLOPPY_INTERFACE_MICRODISC:
1173
if ((offset>=0x010) && (offset<=0x01f))
1175
return oric_microdisc_r(space, offset);
1180
case ORIC_FLOPPY_INTERFACE_JASMIN:
1182
if ((offset>=0x0f4) && (offset<=0x0ff))
1184
return oric_jasmin_r(space, offset);
1191
if ((offset & 0x0f)!=0x0d)
1193
//logerror("via 0 r: %04x %04x\n",offset, (unsigned) cpu_get_reg(space->machine().device("maincpu"), STATE_GENPC));
1196
/* it is repeated */
1197
return via_0->read(*space, offset & 0x0f);
1200
WRITE8_HANDLER ( oric_IO_w )
1202
via6522_device *via_0 = space->machine().device<via6522_device>("via6522_0");
1203
switch (input_port_read(space->machine(), "FLOPPY") & 0x07)
1206
case ORIC_FLOPPY_INTERFACE_NONE:
1209
case ORIC_FLOPPY_INTERFACE_MICRODISC:
1211
if ((offset >= 0x010) && (offset <= 0x01f))
1213
oric_microdisc_w(space, offset, data);
1219
case ORIC_FLOPPY_INTERFACE_JASMIN:
1221
if ((offset >= 0x0f4) && (offset <= 0x0ff))
1223
oric_jasmin_w(space, offset, data);
1232
//logerror("via 0 w: %04x %02x %04x\n", offset, data,(unsigned) cpu_get_reg(space->machine().device("maincpu"), STATE_GENPC));
1235
via_0->write(*space, offset & 0x0f, data);
1240
/**** TELESTRAT ****/
1247
Memory bank selection
1253
RS232/Minitel selection
1256
Third mouse button (right joystick port pin 5)
1262
Second mouse button (right joystick port pin 9)
1274
Joystick doubler switch
1277
Select Left Joystick port
1280
Select Right Joystick port
1283
Phone Ring detection
1291
static void telestrat_refresh_mem(running_machine &machine)
1293
oric_state *state = machine.driver_data<oric_state>();
1294
address_space *space = machine.device("maincpu")->memory().space(AS_PROGRAM);
1296
telestrat_mem_block *mem_block = &state->m_telestrat_blocks[state->m_telestrat_bank_selection];
1298
switch (mem_block->MemType)
1300
case TELESTRAT_MEM_BLOCK_RAM:
1302
memory_set_bankptr(machine, "bank1", mem_block->ptr);
1303
memory_set_bankptr(machine, "bank2", mem_block->ptr);
1304
space->install_read_bank(0xc000, 0xffff, "bank1");
1305
space->install_write_bank(0xc000, 0xffff, "bank2");
1309
case TELESTRAT_MEM_BLOCK_ROM:
1311
memory_set_bankptr(machine, "bank1", mem_block->ptr);
1312
space->install_read_bank(0xc000, 0xffff, "bank1");
1313
space->nop_write(0xc000, 0xffff);
1318
case TELESTRAT_MEM_BLOCK_UNDEFINED:
1320
space->nop_readwrite(0xc000, 0xffff);
1326
static READ8_DEVICE_HANDLER(telestrat_via2_in_a_func)
1328
oric_state *state = device->machine().driver_data<oric_state>();
1329
//logerror("via 2 - port a %02x\n",state->m_telestrat_via2_port_a_data);
1330
return state->m_telestrat_via2_port_a_data;
1334
static WRITE8_DEVICE_HANDLER(telestrat_via2_out_a_func)
1336
oric_state *state = device->machine().driver_data<oric_state>();
1337
//logerror("via 2 - port a w: %02x\n",data);
1339
state->m_telestrat_via2_port_a_data = data;
1341
if (((data^state->m_telestrat_bank_selection) & 0x07)!=0)
1343
state->m_telestrat_bank_selection = data & 0x07;
1345
telestrat_refresh_mem(device->machine());
1349
static READ8_DEVICE_HANDLER(telestrat_via2_in_b_func)
1351
oric_state *state = device->machine().driver_data<oric_state>();
1352
unsigned char data = 0x01f;
1354
/* left joystick selected? */
1355
if (state->m_telestrat_via2_port_b_data & (1<<6))
1357
data &= input_port_read(device->machine(), "JOY0");
1360
/* right joystick selected? */
1361
if (state->m_telestrat_via2_port_b_data & (1<<7))
1363
data &= input_port_read(device->machine(), "JOY1");
1366
data |= state->m_telestrat_via2_port_b_data & ((1<<7) | (1<<6) | (1<<5));
1371
static WRITE8_DEVICE_HANDLER(telestrat_via2_out_b_func)
1373
oric_state *state = device->machine().driver_data<oric_state>();
1374
state->m_telestrat_via2_port_b_data = data;
1378
static void telestrat_via2_irq_func(device_t *device, int state)
1380
oric_state *drvstate = device->machine().driver_data<oric_state>();
1381
drvstate->m_irqs &=~(1<<2);
1385
//logerror("telestrat via2 interrupt\n");
1387
drvstate->m_irqs |=(1<<2);
1390
oric_refresh_ints(device->machine());
1393
const via6522_interface telestrat_via2_interface=
1395
DEVCB_HANDLER(telestrat_via2_in_a_func),
1396
DEVCB_HANDLER(telestrat_via2_in_b_func),
1401
DEVCB_HANDLER(telestrat_via2_out_a_func),
1402
DEVCB_HANDLER(telestrat_via2_out_b_func),
1407
DEVCB_LINE(telestrat_via2_irq_func),
1411
/* interrupt state from acia6551 */
1412
static void telestrat_acia_callback(running_machine &machine, int irq_state)
1414
oric_state *state = machine.driver_data<oric_state>();
1415
state->m_irqs&=~(1<<3);
1419
state->m_irqs |= (1<<3);
1422
oric_refresh_ints(machine);
1426
MACHINE_START( telestrat )
1428
oric_state *state = machine.driver_data<oric_state>();
1429
UINT8 *mem = machine.region("maincpu")->base();
1431
oric_common_init_machine(machine);
1433
state->m_is_telestrat = 1;
1435
/* initialise overlay ram */
1436
state->m_telestrat_blocks[0].MemType = TELESTRAT_MEM_BLOCK_RAM;
1437
state->m_telestrat_blocks[0].ptr = auto_alloc_array(machine, UINT8, 16384);
1439
state->m_telestrat_blocks[1].MemType = TELESTRAT_MEM_BLOCK_RAM;
1440
state->m_telestrat_blocks[1].ptr = auto_alloc_array(machine, UINT8, 16384);
1441
state->m_telestrat_blocks[2].MemType = TELESTRAT_MEM_BLOCK_RAM;
1442
state->m_telestrat_blocks[2].ptr = auto_alloc_array(machine, UINT8, 16384);
1444
/* initialise default cartridge */
1445
state->m_telestrat_blocks[3].MemType = TELESTRAT_MEM_BLOCK_ROM;
1446
state->m_telestrat_blocks[3].ptr = mem+0x010000;
1448
state->m_telestrat_blocks[4].MemType = TELESTRAT_MEM_BLOCK_RAM;
1449
state->m_telestrat_blocks[4].ptr = auto_alloc_array(machine, UINT8, 16384);
1451
/* initialise default cartridge */
1452
state->m_telestrat_blocks[5].MemType = TELESTRAT_MEM_BLOCK_ROM;
1453
state->m_telestrat_blocks[5].ptr = mem+0x014000;
1455
/* initialise default cartridge */
1456
state->m_telestrat_blocks[6].MemType = TELESTRAT_MEM_BLOCK_ROM;
1457
state->m_telestrat_blocks[6].ptr = mem+0x018000;
1459
/* initialise default cartridge */
1460
state->m_telestrat_blocks[7].MemType = TELESTRAT_MEM_BLOCK_ROM;
1461
state->m_telestrat_blocks[7].ptr = mem+0x01c000;
1463
state->m_telestrat_bank_selection = 7;
1464
telestrat_refresh_mem(machine);
1466
/* disable os rom, enable microdisc rom */
1467
/* 0x0c000-0x0dfff will be ram, 0x0e000-0x0ffff will be microdisc rom */
1468
state->m_port_314_w = 0x0ff^((1<<7) | (1<<1));
added
removed
mess/src/mess/machine/oric.c
