Previous 199869 Revisions Next

r32811 Sunday 19th October, 2014 at 00:57:44 UTC by R. Belmont
(MESS) TRS-80 CoCo: implement virtual "Becker Port" for DriveWire support. [Richard Goedeken]
[src/emu/bus]bus.mak
[src/emu/bus/coco]coco_dwsock.c* coco_dwsock.h* coco_fdc.c coco_fdc.h coco_multi.c
[src/mess]mess.lst
[src/mess/drivers]coco12.c coco3.c
[src/mess/includes]coco.h
[src/mess/machine]coco.c

trunk/src/emu/bus/coco/coco_dwsock.c
r0r32811
1#include <stdio.h>
2#include <stdlib.h>
3#include <unistd.h>
4#include <fcntl.h>
5#include <sys/types.h>
6
7#include "emu.h"
8#include "osdcore.h"
9#include "includes/coco.h"
10
11#include "coco_dwsock.h"
12
13//**************************************************************************
14//  DEVICE DEFINITIONS
15//**************************************************************************
16
17const device_type COCO_DWSOCK = &device_creator<beckerport_device>;
18
19//-------------------------------------------------
20//  INPUT_PORTS( coco_drivewire )
21//-------------------------------------------------
22
23INPUT_PORTS_START( coco_drivewire )
24   PORT_START(DRIVEWIRE_PORT_TAG)
25   PORT_CONFNAME( 0xffff, 65504, "Drivewire Server TCP Port")           
26      PORT_CHANGED_MEMBER(DEVICE_SELF, beckerport_device,  beckerport_device::drivewire_port_changed, NULL )
27   PORT_CONFSETTING(      65500, "65500" )
28   PORT_CONFSETTING(      65501, "65501" )
29   PORT_CONFSETTING(      65502, "65502" )
30   PORT_CONFSETTING(      65503, "65503" )
31   PORT_CONFSETTING(      65504, "65504" )
32   PORT_CONFSETTING(      65505, "65505" )
33   PORT_CONFSETTING(      65506, "65506" )
34   PORT_CONFSETTING(      65507, "65507" )
35   PORT_CONFSETTING(      65508, "65508" )
36   PORT_CONFSETTING(      65509, "65509" )
37INPUT_PORTS_END
38
39//-------------------------------------------------
40//  input_ports - device-specific input ports
41//-------------------------------------------------
42
43ioport_constructor beckerport_device::device_input_ports() const
44{
45   return INPUT_PORTS_NAME( coco_drivewire );
46}
47
48//-------------------------------------------------
49//  drivewire_port_changed
50//-------------------------------------------------
51INPUT_CHANGED_MEMBER(beckerport_device::drivewire_port_changed)
52{
53    this->update_port();
54}
55
56//**************************************************************************
57//  LIVE DEVICE
58//**************************************************************************
59
60//-------------------------------------------------
61//  beckerport_device - constructor / destructor
62//-------------------------------------------------
63
64beckerport_device::beckerport_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
65 : device_t(mconfig, COCO_DWSOCK, "Virtual Becker Port", tag, owner, clock, "coco_dwsock", __FILE__),
66   m_dwconfigport(*this, DRIVEWIRE_PORT_TAG)
67{
68    m_pSocket = NULL;
69    m_head = 0;
70    m_rx_pending = 0;
71}
72
73beckerport_device::~beckerport_device()
74{
75    if (m_pSocket != NULL)
76        device_stop();
77}
78
79/*-------------------------------------------------
80    device_start
81-------------------------------------------------*/
82
83void beckerport_device::device_start(void)
84{
85    char chAddress[64];
86
87    /* format address string for opening the port */
88    snprintf(chAddress, sizeof(chAddress), "socket.%s:%d", m_hostname, m_dwtcpport);
89
90    fprintf(stderr, "Connecting to Drivewire server on %s:%d... ", m_hostname, m_dwtcpport);
91
92    UINT64 filesize; // unused
93    file_error filerr = osd_open(chAddress, 0, &m_pSocket, &filesize);
94    if (filerr != FILERR_NONE)
95    {
96        fprintf(stderr, "Error: osd_open returned error %i!\n", (int) filerr);
97        return;
98    }
99
100    fprintf(stderr, "Connected!\n");
101}
102
103/*-------------------------------------------------
104    device_stop
105-------------------------------------------------*/
106
107void beckerport_device::device_stop(void)
108{
109    if (m_pSocket != NULL)
110    {
111        printf("Closing connection to Drivewire server\n");
112        osd_close(m_pSocket);
113        m_pSocket = NULL;
114    }
115}
116
117/*-------------------------------------------------
118    device_config_complete
119-------------------------------------------------*/
120
121void beckerport_device::device_config_complete(void)
122{
123   m_hostname = "127.0.0.1";
124   m_dwtcpport = 65504;
125}
126
127/*-------------------------------------------------
128    read
129-------------------------------------------------*/
130
131READ8_MEMBER(beckerport_device::read)
132{
133    unsigned char data = 0x5a;
134
135    switch (offset)
136    {
137        case DWS_STATUS:
138            if (!m_rx_pending)
139            {
140                /* Try to read from dws */
141                file_error filerr = osd_read(m_pSocket, m_buf, 0, sizeof(m_buf), &m_rx_pending);
142                if (filerr != FILERR_NONE && filerr != FILERR_FAILURE)  // FILERR_FAILURE means no data available, so don't throw error message
143                    fprintf(stderr, "coco_dwsock.c: beckerport_device::read() socket read operation failed with file_error %i\n", filerr);
144                else
145                    m_head = 0;
146            }
147            //printf("beckerport_device: status read. %i bytes remaining.\n", m_rx_pending);
148            data = (m_rx_pending > 0) ? 2 : 0;
149            break;
150        case DWS_DATA:
151            if (!m_rx_pending) {
152                fprintf(stderr, "coco_dwsock.c: beckerport_device::read() buffer underrun\n");
153                break;
154            }
155            data = m_buf[m_head++];
156            m_rx_pending--;
157            //printf("beckerport_device: data read 1 byte (0x%02x).  %i bytes remaining.\n", data&0xff, m_rx_pending);
158            break;
159        default:
160            fprintf(stderr, "%s: read from bad offset %d\n", __FILE__, offset);
161    }
162
163    return (int)data;
164}
165
166/*-------------------------------------------------
167    write
168-------------------------------------------------*/
169
170WRITE8_MEMBER(beckerport_device::write)
171{
172    char d = (char)data;
173    file_error filerr;
174
175    switch (offset)
176    {
177        case DWS_STATUS:
178            //printf("beckerport_write: error: write (0x%02x) to status register\n", d);
179            break;
180        case DWS_DATA:
181            filerr = osd_write(m_pSocket, &d, 0, 1, NULL);
182            if (filerr != FILERR_NONE)
183                fprintf(stderr, "coco_dwsock.c: beckerport_device::write() socket write operation failed with file_error %i\n", filerr);
184            //printf("beckerport_write: data write one byte (0x%02x)\n", d & 0xff);
185            break;
186        default:
187            fprintf(stderr, "%s: write to bad offset %d\n", __FILE__, offset);
188    }
189}
190
191/*-------------------------------------------------
192    update_port
193-------------------------------------------------*/
194
195void beckerport_device::update_port(void)
196{
197    device_stop();
198    m_dwtcpport = m_dwconfigport->read_safe(65504);
199    device_start();
200}
201
Property changes on: trunk/src/emu/bus/coco/coco_dwsock.c
Added: svn:eol-style
   + native
Added: svn:mime-type
   + text/plain
trunk/src/emu/bus/coco/coco_multi.c
r32810r32811
7575   SLOT_INTERFACE("pak", COCO_PAK)
7676SLOT_INTERFACE_END
7777static SLOT_INTERFACE_START(coco_cart_slot4)
78   SLOT_INTERFACE("cc3hdb1", COCO3_HDB1)
7879   SLOT_INTERFACE("fdcv11", COCO_FDC_V11)
7980   SLOT_INTERFACE("rs232", COCO_232)
8081   SLOT_INTERFACE("orch90", COCO_ORCH90)
trunk/src/emu/bus/coco/coco_fdc.c
r32810r32811
639639}
640640
641641//**************************************************************************
642//              COCO-3 HDB-DOS
643//**************************************************************************
644
645ROM_START( coco3_hdb1 )
646   ROM_REGION(0x8000,"eprom",ROMREGION_ERASE00)
647   ROM_LOAD("hdbdw3bc3.rom",   0x0000, 0x2000, CRC(309a9efd) SHA1(671605d61811953860466f771c1594bbade331f4))
648   ROM_RELOAD(0x2000, 0x2000)
649   ROM_RELOAD(0x4000, 0x2000)
650   ROM_RELOAD(0x6000, 0x2000)
651ROM_END
652
653const device_type COCO3_HDB1 = &device_creator<coco3_hdb1_device>;
654
655coco3_hdb1_device::coco3_hdb1_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
656      : coco_fdc_device(mconfig, COCO3_HDB1, "CoCo3 HDB-DOS", tag, owner, clock, "coco3_hdb1", __FILE__)
657{
658}
659
660const rom_entry *coco3_hdb1_device::device_rom_region() const
661{
662   return ROM_NAME( coco3_hdb1 );
663}
664
665//**************************************************************************
642666//              CP400 FDC
643667//**************************************************************************
644668
trunk/src/emu/bus/coco/coco_dwsock.h
r0r32811
1#ifndef _DWSOCK_H_
2#define _DWSOCK_H_
3
4#include "emu.h"
5#include "osdcore.h"
6
7//**************************************************************************
8//  MACROS / CONSTANTS
9//**************************************************************************
10
11#define DRIVEWIRE_PORT_TAG          "drivewire_port"
12
13//**************************************************************************
14//  INTERFACE CONFIGURATION MACROS
15//**************************************************************************
16
17//**************************************************************************
18//  TYPE DEFINITIONS
19//**************************************************************************
20
21// ======================> beckerport_device
22
23class beckerport_device : public device_t
24{
25public:
26    beckerport_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock);
27    virtual ~beckerport_device();
28
29    // optional information overrides
30    virtual ioport_constructor device_input_ports() const;
31
32    virtual void device_start(void);
33    virtual void device_stop(void);
34    virtual void device_config_complete(void);
35
36    void    update_port(void);
37
38    // driver update handlers
39    DECLARE_INPUT_CHANGED_MEMBER(drivewire_port_changed);
40
41    virtual DECLARE_READ8_MEMBER(read);
42    virtual DECLARE_WRITE8_MEMBER(write);
43
44    // types
45    enum dwsock_ports {
46       DWS_STATUS,
47       DWS_DATA
48    };
49
50private:
51    /* IP hostname */
52    const char *            m_hostname;
53
54   /* IP port */
55   required_ioport         m_dwconfigport;
56   int                     m_dwtcpport;
57
58   osd_file *m_pSocket;
59
60   unsigned int m_rx_pending;
61   unsigned int m_head;
62   char m_buf[0x80];
63};
64
65// device type definition
66extern const device_type COCO_DWSOCK;
67
68// device iterator
69typedef device_type_iterator<&device_creator<beckerport_device>, beckerport_device> beckerport_device_iterator;
70
71#endif /* _DWSOCK_H_ */
72
Property changes on: trunk/src/emu/bus/coco/coco_dwsock.h
Added: svn:mime-type
   + text/plain
Added: svn:eol-style
   + native
trunk/src/emu/bus/coco/coco_fdc.h
r32810r32811
9595// device type definition
9696extern const device_type COCO_FDC_V11;
9797
98// ======================> coco3_hdb1_device
99
100class coco3_hdb1_device :
101      public coco_fdc_device
102{
103public:
104      // construction/destruction
105      coco3_hdb1_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock);
106
107      // optional information overrides
108      virtual const rom_entry *device_rom_region() const;
109};
110
111
112// device type definition
113extern const device_type COCO3_HDB1;
114
98115// ======================> cp400_fdc_device
99116
100117class cp400_fdc_device :
trunk/src/emu/bus/bus.mak
r32810r32811
12501250BUSOBJS += $(BUSOBJ)/coco/coco_pak.o
12511251BUSOBJS += $(BUSOBJ)/coco/coco_fdc.o
12521252BUSOBJS += $(BUSOBJ)/coco/coco_multi.o
1253BUSOBJS += $(BUSOBJ)/coco/coco_dwsock.o
12531254endif
12541255
12551256#-------------------------------------------------
trunk/src/mess/drivers/coco12.c
r32810r32811
2929#include "bus/coco/coco_pak.h"
3030#include "bus/coco/coco_fdc.h"
3131#include "bus/coco/coco_multi.h"
32#include "bus/coco/coco_dwsock.h"
3233#include "formats/coco_cas.h"
3334
3435//**************************************************************************
r32810r32811
114115
115116
116117//-------------------------------------------------
118//  INPUT_PORTS( coco_beckerport )
119//-------------------------------------------------
120
121INPUT_PORTS_START( coco_beckerport )
122   PORT_START(BECKERPORT_TAG)
123   PORT_CONFNAME( 0x01, 0x01, "Becker Port" )
124   PORT_CONFSETTING(    0x00, DEF_STR( Off ))
125   PORT_CONFSETTING(    0x01, DEF_STR( On ))
126INPUT_PORTS_END
127
128//-------------------------------------------------
117129//  INPUT_PORTS( coco_rtc )
118130//-------------------------------------------------
119131
r32810r32811
223235   PORT_INCLUDE( coco_analog_control )
224236   PORT_INCLUDE( coco_cart_autostart )
225237   PORT_INCLUDE( coco_rtc )
238   PORT_INCLUDE( coco_beckerport )
226239INPUT_PORTS_END
227240
228241
r32810r32811
238251SLOT_INTERFACE_START( coco_cart )
239252   SLOT_INTERFACE("fdc", COCO_FDC)
240253   SLOT_INTERFACE("fdcv11", COCO_FDC_V11)
254   SLOT_INTERFACE("cc3hdb1", COCO3_HDB1)
241255   SLOT_INTERFACE("cp400_fdc", CP400_FDC)
242256   SLOT_INTERFACE("rs232", COCO_232)
243257   SLOT_INTERFACE("orch90", COCO_ORCH90)
r32810r32811
300314   MCFG_SAM6883_ADD(SAM_TAG, XTAL_3_579545MHz, MAINCPU_TAG, AS_PROGRAM)
301315   MCFG_SAM6883_RES_CALLBACK(READ8(coco12_state, sam_read))
302316
317   // Becker Port device
318   MCFG_DEVICE_ADD(DWSOCK_TAG, COCO_DWSOCK, 0)
319
303320   MCFG_CASSETTE_ADD("cassette")
304321   MCFG_CASSETTE_FORMATS(coco_cassette_formats)
305322   MCFG_CASSETTE_DEFAULT_STATE(CASSETTE_PLAY | CASSETTE_MOTOR_DISABLED | CASSETTE_SPEAKER_MUTED)
trunk/src/mess/drivers/coco3.c
r32810r32811
222222   PORT_INCLUDE( coco_rat_mouse )
223223   PORT_INCLUDE( coco_lightgun )
224224   PORT_INCLUDE( coco_rtc )
225   PORT_INCLUDE( coco_beckerport )
225226INPUT_PORTS_END
226227
227228static DEVICE_INPUT_DEFAULTS_START( printer )
r32810r32811
261262   MCFG_PIA_IRQA_HANDLER(WRITELINE(coco_state, pia1_firq_a))
262263   MCFG_PIA_IRQB_HANDLER(WRITELINE(coco_state, pia1_firq_b))
263264
265   // Becker Port device
266   MCFG_DEVICE_ADD(DWSOCK_TAG, COCO_DWSOCK, 0)
267
264268   MCFG_CASSETTE_ADD("cassette")
265269   MCFG_CASSETTE_FORMATS(coco_cassette_formats)
266270   MCFG_CASSETTE_DEFAULT_STATE(CASSETTE_PLAY | CASSETTE_MOTOR_DISABLED | CASSETTE_SPEAKER_MUTED)
r32810r32811
337341   MCFG_CPU_PROGRAM_MAP(coco3_mem)
338342MACHINE_CONFIG_END
339343
344static MACHINE_CONFIG_DERIVED( coco3dw1, coco3 )
345   MCFG_COCO_CARTRIDGE_REMOVE(CARTRIDGE_TAG)
346   MCFG_COCO_CARTRIDGE_ADD(CARTRIDGE_TAG, coco_cart, "cc3hdb1")
347MACHINE_CONFIG_END
340348
341
342349//**************************************************************************
343350//  ROMS
344351//**************************************************************************
r32810r32811
354361ROM_END
355362
356363#define rom_coco3h  rom_coco3
364#define rom_coco3dw1 rom_coco3
357365
358
359
360366//**************************************************************************
361367//  SYSTEM DRIVERS
362368//**************************************************************************
r32810r32811
364370COMP(  1986,    coco3,      coco,   0,      coco3,     coco3, driver_device,     0,      "Tandy Radio Shack",            "Color Computer 3 (NTSC)", 0)
365371COMP(  1986,    coco3p,     coco,   0,      coco3p,    coco3, driver_device,     0,      "Tandy Radio Shack",            "Color Computer 3 (PAL)", 0)
366372COMP(  19??,    coco3h,     coco,   0,      coco3h,    coco3, driver_device,     0,      "Tandy Radio Shack",            "Color Computer 3 (NTSC; HD6309)", GAME_UNOFFICIAL)
373COMP(  19??,    coco3dw1,   coco,   0,      coco3dw1,  coco3, driver_device,     0,      "Tandy Radio Shack",            "Color Computer 3 (NTSC; HDB-DOS)", GAME_UNOFFICIAL)
trunk/src/mess/machine/coco.c
r32810r32811
8989   m_cassette(*this, "cassette"),
9090   m_rs232(*this, RS232_TAG),
9191   m_vhd_0(*this, VHD0_TAG),
92   m_vhd_1(*this, VHD1_TAG)
92   m_vhd_1(*this, VHD1_TAG),
93   m_beckerport(*this, DWSOCK_TAG),
94   m_beckerportconfig(*this, BECKERPORT_TAG)
9395{
9496}
9597
r32810r32811
10161018   poll_keyboard();
10171019}
10181020
1019
1020
10211021//-------------------------------------------------
10221022//  poll_hires_joystick
10231023//-------------------------------------------------
r32810r32811
11591159
11601160READ8_MEMBER( coco_state::ff40_read )
11611161{
1162    if (offset >= 1 && offset <= 2 && m_beckerportconfig->read_safe(0) == 1)
1163    {
1164        return m_beckerport->read(space, offset-1, mem_mask);
1165    }
1166
11621167   return m_cococart->read(space, offset, mem_mask);
11631168}
11641169
r32810r32811
11701175
11711176WRITE8_MEMBER( coco_state::ff40_write )
11721177{
1178    if (offset >= 1 && offset <= 2 && m_beckerportconfig->read_safe(0) == 1)
1179    {
1180        return m_beckerport->write(space, offset-1, data, mem_mask);
1181    }
1182
11731183   m_cococart->write(space, offset, data, mem_mask);
11741184}
11751185
r32810r32811
11841194   m_pia_1->cb1_w(state);
11851195}
11861196
1187
1188
11891197/***************************************************************************
11901198  DISASSEMBLY OVERRIDE (OS9 syscalls)
11911199 ***************************************************************************/
trunk/src/mess/includes/coco.h
r32810r32811
1818#include "machine/6821pia.h"
1919#include "bus/coco/cococart.h"
2020#include "machine/coco_vhd.h"
21#include "bus/coco/coco_dwsock.h"
2122#include "machine/ram.h"
2223#include "sound/dac.h"
2324#include "sound/wave.h"
r32810r32811
3132INPUT_PORTS_EXTERN( coco_analog_control );
3233INPUT_PORTS_EXTERN( coco_cart_autostart );
3334INPUT_PORTS_EXTERN( coco_rtc );
35INPUT_PORTS_EXTERN( coco_beckerport );
3436
3537SLOT_INTERFACE_EXTERN( coco_cart );
3638
r32810r32811
4850#define DAC_TAG                     "dac"
4951#define CARTRIDGE_TAG               "ext"
5052#define RS232_TAG                   "rs232"
53#define DWSOCK_TAG                  "dwsock"
5154#define VHD0_TAG                    "vhd0"
5255#define VHD1_TAG                    "vhd1"
5356
r32810r32811
5558#define CTRL_SEL_TAG                "ctrl_sel"
5659#define HIRES_INTF_TAG              "hires_intf"
5760#define CART_AUTOSTART_TAG          "cart_autostart"
61#define BECKERPORT_TAG              "beckerport"
5862#define JOYSTICK_RX_TAG             "joystick_rx"
5963#define JOYSTICK_RY_TAG             "joystick_ry"
6064#define JOYSTICK_LX_TAG             "joystick_lx"
r32810r32811
9599   optional_device<rs232_port_device> m_rs232;
96100   optional_device<coco_vhd_image_device> m_vhd_0;
97101   optional_device<coco_vhd_image_device> m_vhd_1;
102   required_device<beckerport_device> m_beckerport;
103   required_ioport                    m_beckerportconfig;
98104
99105   // driver update handlers
100106   DECLARE_INPUT_CHANGED_MEMBER(keyboard_changed);
trunk/src/mess/mess.lst
r32810r32811
12131213coco3    // Color Computer 3 (NTSC)
12141214coco3p  // Color Computer 3 (PAL)
12151215coco3h  // Hacked Color Computer 3 (6309)
1216coco3dw1  // Coco 3 with HDB-DOS
12161217dragon32  // Dragon 32
12171218dragon64  // Dragon 64
12181219dragon200 // Dragon 200

Previous 199869 Revisions Next

© 1997-2024 The MAME Team