1 /* Remote serial interface using Hitachi E7000 PC ISA card in a PC
3 Copyright 1994 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
21 #if defined __GO32__ || defined _WIN32
24 #include "gdb_string.h"
26 /* MSVC uses strnicmp instead of strncasecmp */
28 #define strncasecmp strnicmp
29 #define WIN32_LEAN_AND_MEAN
40 static int e7000pc_open PARAMS ((serial_t scb, const char *name));
41 static void e7000pc_raw PARAMS ((serial_t scb));
42 static int e7000pc_readchar PARAMS ((serial_t scb, int timeout));
43 static int e7000pc_setbaudrate PARAMS ((serial_t scb, int rate));
44 static int e7000pc_write PARAMS ((serial_t scb, const char *str, int len));
45 static void e7000pc_close PARAMS ((serial_t scb));
46 static serial_ttystate e7000pc_get_tty_state PARAMS ((serial_t scb));
47 static int e7000pc_set_tty_state PARAMS ((serial_t scb, serial_ttystate state));
49 #define OFF_DPD 0x0000
50 #define OFF_DDP 0x1000
51 #define OFF_CPD 0x2000
52 #define OFF_CDP 0x2400
56 #define OFF_IRQTOD 0x3008
57 #define OFF_IRQTOP 0x300a
58 #define OFF_READY 0x300c
59 #define OFF_PON 0x300e
75 static unsigned long fa;
76 static unsigned long irqtod;
77 static unsigned long ready;
78 static unsigned long fb;
79 static unsigned long cpd ;
80 static unsigned long cdp ;
81 static unsigned long ready;
82 static unsigned long pon;
83 static unsigned long irqtop;
84 static unsigned long board_at;
88 #define SET_BYTE(x,y) { char _buf = y;dosmemput(&_buf,1, x);}
89 #define SET_WORD(x,y) { short _buf = y;dosmemput(&_buf,2, x);}
90 #define GET_BYTE(x) ( dosmemget(x,1,&bb), bb)
91 #define GET_WORD(x) ( dosmemget(x,2,&sb), sb)
92 static unsigned char bb;
93 static unsigned short sb;
97 #define SET_BYTE(x,y) *(volatile unsigned char *)(x) = (y)
98 #define SET_WORD(x,y) *(volatile unsigned short *)(x) = (y)
99 #define GET_BYTE(x) (*(volatile unsigned char *)(x))
100 #define GET_WORD(x) (*(volatile unsigned short *)(x))
101 #define dosmemget(FROM, LEN, TO) memcpy ((void *)(TO), (void *)(FROM), (LEN))
102 #define dosmemput(FROM, LEN, TO) memcpy ((void *)(TO), (void *)(FROM), (LEN))
117 /* Get the base of the data segment. This is needed to calculate the offset
118 between data segment addresses and the base of linear memory, which is where
119 device registers reside. Note that this is really only necessary for
120 Win32s, since Win95 and NT keep the data segment at linear 0. */
125 unsigned short dsval;
127 unsigned long dsbase;
136 GetThreadSelectorEntry (GetCurrentThread(), dsval, &ldt);
138 dsbase = ldt.HighWord.Bits.BaseHi << 24 | ldt.HighWord.Bits.BaseMid << 16
143 #else /* !_MSC_VER */
144 #define get_ds_base() 0
145 #endif /* _MSC_VER */
151 unsigned long dsbase;
153 dsbase = get_ds_base ();
155 /* Look around in memory for the board's signature */
157 for (try = 0; sigs[try].sw; try++)
160 board_at = sigs[try].addr - dsbase;
161 fa = board_at + OFF_FA;
162 fb = board_at + OFF_FB;
163 cpd = board_at + OFF_CPD;
164 cdp = board_at + OFF_CDP;
165 ready =board_at + OFF_READY;
166 pon = board_at + OFF_PON;
167 irqtop = board_at + OFF_IRQTOP;
168 irqtod = board_at + OFF_IRQTOD;
170 val = GET_WORD (ready);
172 if (val == (0xaaa0 | sigs[try].sw))
174 if (GET_WORD (pon) & 0xf)
179 SET_WORD (irqtop, 1); /* Disable interrupts from e7000 */
181 printf_filtered ("\nConnected to the E7000PC at address 0x%x\n",
185 error ("The E7000 PC board is working, but the E7000 is turned off.\n");
190 error ("GDB cannot connect to the E7000 PC board, check that it is installed\n\
191 and that the switch settings are correct. Some other DOS programs can \n\
192 stop the board from working. Try starting from a very minimal boot, \n\
193 perhaps you need to disable EMM386 over the region where the board has\n\
194 its I/O space, remove other unneeded cards, etc etc\n");
199 static int pbuf_size;
200 static int pbuf_index;
202 /* Return next byte from cdp. If no more, then return -1. */
207 static char pbuf[1000];
211 if (pbuf_index < pbuf_size)
213 x = pbuf[pbuf_index++];
215 else if ((GET_WORD (fb) & 1))
218 pbuf_size = GET_WORD (cdp + 2);
220 dosmemget (cdp + 8, pbuf_size + 1, tmp);
222 /* Tell the E7000 we've eaten */
225 for (i = 0; i < pbuf_size; i++)
230 x = pbuf[pbuf_index++];
239 /* Works just like read(), except that it takes a TIMEOUT in seconds. Note
240 that TIMEOUT == 0 is a poll, and TIMEOUT == -1 means wait forever. */
243 dosasync_read (fd, buf, len, timeout)
254 /* Then look for some more if we're still hungry */
256 then = now + timeout;
259 int ch = e7000_get();
261 /* While there's room in the buffer, and we've already
262 read the stuff in, suck it over */
266 while (i < len && pbuf_index < pbuf_size )
279 if (now >= then && timeout > 0)
289 dosasync_write (fd, buf, len)
297 /* Construct copy locally */
298 ((short *)dummy)[0] = CMD_CI;
299 ((short *)dummy)[1] = len;
300 ((short *)dummy)[2] = 0;
301 ((short *)dummy)[3] = 0;
302 for (i = 0; i < len ; i++)
304 dummy[8 + i ^ 1] = buf[i];
307 /* Wait for the card to get ready */
308 while (GET_WORD (fa) & 1) ;
310 /* Blast onto the ISA card */
311 dosmemput (dummy, 8 + len + 1, cpd);
314 SET_WORD (irqtod, 1); /* Interrupt the E7000 */
320 e7000pc_open (scb, name)
324 if (strncasecmp (name, "pc", 2) != 0)
330 scb->fd = e7000pc_init ();
349 /* Always in raw mode */
353 e7000pc_readchar (scb, timeout)
361 if (dosasync_read (scb->fd, &buf, 1, timeout))
363 if (buf == 0) goto top;
367 return SERIAL_TIMEOUT;
370 struct e7000pc_ttystate {
374 /* e7000pc_{get set}_tty_state() are both dummys to fill out the function
375 vector. Someday, they may do something real... */
377 static serial_ttystate
378 e7000pc_get_tty_state (scb)
381 struct e7000pc_ttystate *state;
383 state = (struct e7000pc_ttystate *) xmalloc (sizeof *state);
385 return (serial_ttystate) state;
389 e7000pc_set_tty_state (scb, ttystate)
391 serial_ttystate ttystate;
397 e7000pc_noflush_set_tty_state (scb, new_ttystate, old_ttystate)
399 serial_ttystate new_ttystate;
400 serial_ttystate old_ttystate;
406 e7000pc_print_tty_state (scb, ttystate)
408 serial_ttystate ttystate;
410 /* Nothing to print. */
415 e7000pc_setbaudrate (scb, rate)
423 e7000pc_write (scb, str, len)
428 dosasync_write (scb->fd, str, len);
439 static struct serial_ops e7000pc_ops =
447 e7000pc_noop, /* flush output */
448 e7000pc_noop, /* flush input */
449 e7000pc_noop, /* send break -- currently used only for nindy */
451 e7000pc_get_tty_state,
452 e7000pc_set_tty_state,
453 e7000pc_print_tty_state,
454 e7000pc_noflush_set_tty_state,
459 _initialize_ser_e7000pc ()
461 serial_add_interface (&e7000pc_ops);
466 _initialize_ser_e7000pc ()