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
37 static int e7000pc_open
PARAMS ((serial_t scb
, const char *name
));
38 static void e7000pc_raw
PARAMS ((serial_t scb
));
39 static int e7000pc_readchar
PARAMS ((serial_t scb
, int timeout
));
40 static int e7000pc_setbaudrate
PARAMS ((serial_t scb
, int rate
));
41 static int e7000pc_write
PARAMS ((serial_t scb
, const char *str
, int len
));
42 static void e7000pc_close
PARAMS ((serial_t scb
));
43 static serial_ttystate e7000pc_get_tty_state
PARAMS ((serial_t scb
));
44 static int e7000pc_set_tty_state
PARAMS ((serial_t scb
, serial_ttystate state
));
46 #define OFF_DPD 0x0000
47 #define OFF_DDP 0x1000
48 #define OFF_CPD 0x2000
49 #define OFF_CDP 0x2400
53 #define OFF_IRQTOD 0x3008
54 #define OFF_IRQTOP 0x300a
55 #define OFF_READY 0x300c
56 #define OFF_PON 0x300e
72 static unsigned long fa
;
73 static unsigned long irqtod
;
74 static unsigned long ready
;
75 static unsigned long fb
;
76 static unsigned long cpd
;
77 static unsigned long cdp
;
78 static unsigned long ready
;
79 static unsigned long pon
;
80 static unsigned long irqtop
;
81 static unsigned long board_at
;
85 #define SET_BYTE(x,y) { char _buf = y;dosmemput(&_buf,1, x);}
86 #define SET_WORD(x,y) { short _buf = y;dosmemput(&_buf,2, x);}
87 #define GET_BYTE(x) ( dosmemget(x,1,&bb), bb)
88 #define GET_WORD(x) ( dosmemget(x,2,&sb), sb)
89 static unsigned char bb
;
90 static unsigned short sb
;
94 #define SET_BYTE(x,y) *(volatile unsigned char *)(x) = (y)
95 #define SET_WORD(x,y) *(volatile unsigned short *)(x) = (y)
96 #define GET_BYTE(x) (*(volatile unsigned char *)(x))
97 #define GET_WORD(x) (*(volatile unsigned short *)(x))
98 #define dosmemget(FROM, LEN, TO) memcpy ((void *)(TO), (void *)(FROM), (LEN))
99 #define dosmemput(FROM, LEN, TO) memcpy ((void *)(TO), (void *)(FROM), (LEN))
114 /* Get the base of the data segment. This is needed to calculate the offset
115 between data segment addresses and the base of linear memory, which is where
116 device registers reside. Note that this is really only necessary for
117 Win32s, since Win95 and NT keep the data segment at linear 0. */
122 unsigned short dsval
;
124 unsigned long dsbase
;
133 GetThreadSelectorEntry (GetCurrentThread(), dsval
, &ldt
);
135 dsbase
= ldt
.HighWord
.Bits
.BaseHi
<< 24 | ldt
.HighWord
.Bits
.BaseMid
<< 16
140 #else /* !__GO32__ */
141 #define get_ds_base() 0
142 #endif /* __GO32__ */
148 unsigned long dsbase
;
150 dsbase
= get_ds_base ();
152 /* Look around in memory for the board's signature */
154 for (try = 0; sigs
[try].sw
; try++)
157 board_at
= sigs
[try].addr
- dsbase
;
158 fa
= board_at
+ OFF_FA
;
159 fb
= board_at
+ OFF_FB
;
160 cpd
= board_at
+ OFF_CPD
;
161 cdp
= board_at
+ OFF_CDP
;
162 ready
=board_at
+ OFF_READY
;
163 pon
= board_at
+ OFF_PON
;
164 irqtop
= board_at
+ OFF_IRQTOP
;
165 irqtod
= board_at
+ OFF_IRQTOD
;
167 val
= GET_WORD (ready
);
169 if (val
== (0xaaa0 | sigs
[try].sw
))
171 if (GET_WORD (pon
) & 0xf)
176 SET_WORD (irqtop
, 1); /* Disable interrupts from e7000 */
178 printf_filtered ("\nConnected to the E7000PC at address 0x%x\n",
182 error ("The E7000 PC board is working, but the E7000 is turned off.\n");
187 error ("GDB cannot connect to the E7000 PC board, check that it is installed\n\
188 and that the switch settings are correct. Some other DOS programs can \n\
189 stop the board from working. Try starting from a very minimal boot, \n\
190 perhaps you need to disable EMM386 over the region where the board has\n\
191 its I/O space, remove other unneeded cards, etc etc\n");
196 static int pbuf_size
;
197 static int pbuf_index
;
199 /* Return next byte from cdp. If no more, then return -1. */
204 static char pbuf
[1000];
208 if (pbuf_index
< pbuf_size
)
210 x
= pbuf
[pbuf_index
++];
212 else if ((GET_WORD (fb
) & 1))
215 pbuf_size
= GET_WORD (cdp
+ 2);
217 dosmemget (cdp
+ 8, pbuf_size
+ 1, tmp
);
219 /* Tell the E7000 we've eaten */
222 for (i
= 0; i
< pbuf_size
; i
++)
227 x
= pbuf
[pbuf_index
++];
236 /* Works just like read(), except that it takes a TIMEOUT in seconds. Note
237 that TIMEOUT == 0 is a poll, and TIMEOUT == -1 means wait forever. */
240 dosasync_read (fd
, buf
, len
, timeout
)
251 /* Then look for some more if we're still hungry */
253 then
= now
+ timeout
;
256 int ch
= e7000_get();
258 /* While there's room in the buffer, and we've already
259 read the stuff in, suck it over */
263 while (i
< len
&& pbuf_index
< pbuf_size
)
276 if (now
>= then
&& timeout
> 0)
286 dosasync_write (fd
, buf
, len
)
294 /* Construct copy locally */
295 ((short *)dummy
)[0] = CMD_CI
;
296 ((short *)dummy
)[1] = len
;
297 ((short *)dummy
)[2] = 0;
298 ((short *)dummy
)[3] = 0;
299 for (i
= 0; i
< len
; i
++)
301 dummy
[8 + i
^ 1] = buf
[i
];
304 /* Wait for the card to get ready */
305 while (GET_WORD (fa
) & 1) ;
307 /* Blast onto the ISA card */
308 dosmemput (dummy
, 8 + len
+ 1, cpd
);
311 SET_WORD (irqtod
, 1); /* Interrupt the E7000 */
317 e7000pc_open (scb
, name
)
321 if (strncasecmp (name
, "pc", 2) != 0)
327 scb
->fd
= e7000pc_init ();
346 /* Always in raw mode */
350 e7000pc_readchar (scb
, timeout
)
358 if (dosasync_read (scb
->fd
, &buf
, 1, timeout
))
360 if (buf
== 0) goto top
;
364 return SERIAL_TIMEOUT
;
367 struct e7000pc_ttystate
{
371 /* e7000pc_{get set}_tty_state() are both dummys to fill out the function
372 vector. Someday, they may do something real... */
374 static serial_ttystate
375 e7000pc_get_tty_state (scb
)
378 struct e7000pc_ttystate
*state
;
380 state
= (struct e7000pc_ttystate
*) xmalloc (sizeof *state
);
382 return (serial_ttystate
) state
;
386 e7000pc_set_tty_state (scb
, ttystate
)
388 serial_ttystate ttystate
;
394 e7000pc_noflush_set_tty_state (scb
, new_ttystate
, old_ttystate
)
396 serial_ttystate new_ttystate
;
397 serial_ttystate old_ttystate
;
403 e7000pc_print_tty_state (scb
, ttystate
)
405 serial_ttystate ttystate
;
407 /* Nothing to print. */
412 e7000pc_setbaudrate (scb
, rate
)
420 e7000pc_write (scb
, str
, len
)
425 dosasync_write (scb
->fd
, str
, len
);
436 static struct serial_ops e7000pc_ops
=
444 e7000pc_noop
, /* flush output */
445 e7000pc_noop
, /* flush input */
446 e7000pc_noop
, /* send break -- currently used only for nindy */
448 e7000pc_get_tty_state
,
449 e7000pc_set_tty_state
,
450 e7000pc_print_tty_state
,
451 e7000pc_noflush_set_tty_state
,
456 _initialize_ser_e7000pc ()
458 serial_add_interface (&e7000pc_ops
);
463 _initialize_ser_e7000pc ()