/* Remote debugging interface for Tandem ST2000 phone switch, for GDB.
- Copyright 1990, 1991, 1992 Free Software Foundation, Inc.
+
+ Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2000,
+ 2001, 2002 Free Software Foundation, Inc.
+
Contributed by Cygnus Support. Written by Jim Kingdon for Cygnus.
-This file is part of GDB.
+ This file is part of GDB.
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA. */
/* This file was derived from remote-eb.c, which did a similar job, but for
an AMD-29K running EBMON. That file was in turn derived from remote.c
as mentioned in the following comment (left in for comic relief):
- "This is like remote.c but is for an esoteric situation--
+ "This is like remote.c but is for an esoteric situation--
having an a29k board in a PC hooked up to a unix machine with
a serial line, and running ctty com1 on the PC, through which
the unix machine can run ebmon. Not to mention that the PC
#include "defs.h"
#include "gdbcore.h"
#include "target.h"
-#include "wait.h"
-#ifdef ANSI_PROTOTYPES
-#include <stdarg.h>
-#else
-#include <varargs.h>
-#endif
-#include <signal.h>
-#include <string.h>
+#include "gdb_string.h"
#include <sys/types.h>
#include "serial.h"
+#include "regcache.h"
-extern struct target_ops st2000_ops; /* Forward declaration */
+extern struct target_ops st2000_ops; /* Forward declaration */
-static void st2000_close();
-static void st2000_fetch_register();
-static void st2000_store_register();
+static void st2000_close ();
+static void st2000_fetch_register ();
+static void st2000_store_register ();
#define LOG_FILE "st2000.log"
#if defined (LOG_FILE)
st2000_open knows that we don't have a file open when the program
starts. */
-static serial_t st2000_desc;
+static struct serial *st2000_desc;
/* Send data to stdebug. Works just like printf. */
static void
-#ifdef ANSI_PROTOTYPES
-printf_stdebug(char *pattern, ...)
-#else
-printf_stdebug(va_alist)
- va_dcl
-#endif
+printf_stdebug (char *pattern,...)
{
va_list args;
char buf[200];
-#ifdef ANSI_PROTOTYPES
- va_start(args, pattern);
-#else
- char *pattern;
- va_start(args);
- pattern = va_arg(args, char *);
-#endif
+ va_start (args, pattern);
- vsprintf(buf, pattern, args);
- va_end(args);
+ vsprintf (buf, pattern, args);
+ va_end (args);
- if (SERIAL_WRITE(st2000_desc, buf, strlen(buf)))
- fprintf(stderr, "SERIAL_WRITE failed: %s\n", safe_strerror(errno));
+ if (serial_write (st2000_desc, buf, strlen (buf)))
+ fprintf_unfiltered (gdb_stderr, "serial_write failed: %s\n",
+ safe_strerror (errno));
}
/* Read a character from the remote system, doing all the fancy timeout
stuff. */
static int
-readchar(timeout)
- int timeout;
+readchar (int timeout)
{
int c;
- c = SERIAL_READCHAR(st2000_desc, timeout);
+ c = serial_readchar (st2000_desc, timeout);
#ifdef LOG_FILE
- putc(c & 0x7f, log_file);
+ putc (c & 0x7f, log_file);
#endif
if (c >= 0)
if (timeout == 0)
return c; /* Polls shouldn't generate timeout errors */
- error("Timeout reading from remote system.");
+ error ("Timeout reading from remote system.");
}
- perror_with_name("remote-st2000");
+ perror_with_name ("remote-st2000");
}
/* Scan input from the remote system, until STRING is found. If DISCARD is
non-zero, then discard non-matching input, else print it out.
Let the user break out immediately. */
static void
-expect(string, discard)
- char *string;
- int discard;
+expect (char *string, int discard)
{
char *p = string;
int c;
- immediate_quit = 1;
+ immediate_quit++;
while (1)
{
- c = readchar(timeout);
+ c = readchar (timeout);
if (c == *p++)
{
if (*p == '\0')
{
- immediate_quit = 0;
+ immediate_quit--;
return;
}
}
{
if (!discard)
{
- fwrite(string, 1, (p - 1) - string, stdout);
- putchar((char)c);
- fflush(stdout);
+ fwrite (string, 1, (p - 1) - string, stdout);
+ putchar ((char) c);
+ fflush (stdout);
}
p = string;
}
necessary to prevent getting into states from which we can't
recover. */
static void
-expect_prompt(discard)
- int discard;
+expect_prompt (int discard)
{
#if defined (LOG_FILE)
/* This is a convenient place to do this. The idea is to do it often
enough that we never lose much data if we terminate abnormally. */
- fflush(log_file);
+ fflush (log_file);
#endif
expect ("dbug> ", discard);
}
/* Get a hex digit from the remote system & return its value.
If ignore_space is nonzero, ignore spaces (not newline, tab, etc). */
static int
-get_hex_digit(ignore_space)
- int ignore_space;
+get_hex_digit (int ignore_space)
{
int ch;
while (1)
{
- ch = readchar(timeout);
+ ch = readchar (timeout);
if (ch >= '0' && ch <= '9')
return ch - '0';
else if (ch >= 'A' && ch <= 'F')
;
else
{
- expect_prompt(1);
- error("Invalid hex digit from remote system.");
+ expect_prompt (1);
+ error ("Invalid hex digit from remote system.");
}
}
}
/* Get a byte from stdebug and put it in *BYT. Accept any number
leading spaces. */
static void
-get_hex_byte (byt)
- char *byt;
+get_hex_byte (char *byt)
{
int val;
/* Get N 32-bit words from remote, each preceded by a space,
and put them in registers starting at REGNO. */
static void
-get_hex_regs (n, regno)
- int n;
- int regno;
+get_hex_regs (int n, int regno)
{
long val;
int i;
for (i = 0; i < n; i++)
{
int j;
-
+
val = 0;
for (j = 0; j < 8; j++)
val = (val << 4) + get_hex_digit (j == 0);
/* This is called not only when we first attach, but also when the
user types "run" after having attached. */
static void
-st2000_create_inferior (execfile, args, env)
- char *execfile;
- char *args;
- char **env;
+st2000_create_inferior (char *execfile, char *args, char **env,
+ int from_tty)
{
int entry_pt;
if (args && *args)
- error("Can't pass arguments to remote STDEBUG process");
+ error ("Can't pass arguments to remote STDEBUG process");
if (execfile == 0 || exec_bfd == 0)
- error("No exec file specified");
+ error ("No executable file specified");
entry_pt = (int) bfd_get_start_address (exec_bfd);
/* insert_step_breakpoint (); FIXME, do we need this? */
/* Let 'er rip... */
- proceed ((CORE_ADDR)entry_pt, TARGET_SIGNAL_DEFAULT, 0);
+ proceed ((CORE_ADDR) entry_pt, TARGET_SIGNAL_DEFAULT, 0);
}
/* Open a connection to a remote debugger.
static char dev_name[100];
static void
-st2000_open(args, from_tty)
- char *args;
- int from_tty;
+st2000_open (char *args, int from_tty)
{
int n;
char junk[100];
- target_preopen(from_tty);
-
- n = sscanf(args, " %s %d %s", dev_name, &baudrate, junk);
+ target_preopen (from_tty);
+
+ n = sscanf (args, " %s %d %s", dev_name, &baudrate, junk);
if (n != 2)
- error("Bad arguments. Usage: target st2000 <device> <speed>\n\
+ error ("Bad arguments. Usage: target st2000 <device> <speed>\n\
or target st2000 <host> <port>\n");
- st2000_close(0);
+ st2000_close (0);
- st2000_desc = SERIAL_OPEN(dev_name);
+ st2000_desc = serial_open (dev_name);
if (!st2000_desc)
- perror_with_name(dev_name);
+ perror_with_name (dev_name);
- SERIAL_SETBAUDRATE(st2000_desc, baudrate);
+ if (serial_setbaudrate (st2000_desc, baudrate))
+ {
+ serial_close (dev_name);
+ perror_with_name (dev_name);
+ }
- SERIAL_RAW(st2000_desc);
+ serial_raw (st2000_desc);
- push_target(&st2000_ops);
+ push_target (&st2000_ops);
#if defined (LOG_FILE)
log_file = fopen (LOG_FILE, "w");
#endif
/* Hello? Are you there? */
- printf_stdebug("\003"); /* ^C wakes up dbug */
-
- expect_prompt(1);
+ printf_stdebug ("\003"); /* ^C wakes up dbug */
+
+ expect_prompt (1);
if (from_tty)
- printf("Remote %s connected to %s\n", target_shortname,
- dev_name);
+ printf ("Remote %s connected to %s\n", target_shortname,
+ dev_name);
}
/* Close out all files and local state before this target loses control. */
static void
-st2000_close (quitting)
- int quitting;
+st2000_close (int quitting)
{
- SERIAL_CLOSE(st2000_desc);
+ serial_close (st2000_desc);
#if defined (LOG_FILE)
- if (log_file) {
- if (ferror(log_file))
- fprintf(stderr, "Error writing log file.\n");
- if (fclose(log_file) != 0)
- fprintf(stderr, "Error closing log file.\n");
- }
+ if (log_file)
+ {
+ if (ferror (log_file))
+ fprintf_unfiltered (gdb_stderr, "Error writing log file.\n");
+ if (fclose (log_file) != 0)
+ fprintf_unfiltered (gdb_stderr, "Error closing log file.\n");
+ }
#endif
}
Use this when you want to detach and do something else
with your gdb. */
static void
-st2000_detach (from_tty)
- int from_tty;
+st2000_detach (int from_tty)
{
- pop_target(); /* calls st2000_close to do the real work */
+ pop_target (); /* calls st2000_close to do the real work */
if (from_tty)
printf ("Ending remote %s debugging\n", target_shortname);
}
-
+
/* Tell the remote machine to resume. */
static void
-st2000_resume (pid, step, sig)
- int pid, step;
- enum target_signal sig;
+st2000_resume (ptid_t ptid, int step, enum target_signal sig)
{
if (step)
{
/* Wait until the remote machine stops, then return,
storing status in STATUS just as `wait' would. */
-static int
-st2000_wait (status)
- struct target_waitstatus *status;
+static ptid_t
+st2000_wait (ptid_t ptid, struct target_waitstatus *status)
{
int old_timeout = timeout;
status->kind = TARGET_WAITKIND_EXITED;
status->value.integer = 0;
- timeout = 0; /* Don't time out -- user program is running. */
+ timeout = 0; /* Don't time out -- user program is running. */
- expect_prompt(0); /* Wait for prompt, outputting extraneous text */
+ expect_prompt (0); /* Wait for prompt, outputting extraneous text */
status->kind = TARGET_WAITKIND_STOPPED;
status->value.sig = TARGET_SIGNAL_TRAP;
timeout = old_timeout;
- return 0;
+ return inferior_ptid;
}
-/* Return the name of register number REGNO in the form input and output by
- STDEBUG. Currently, REGISTER_NAMES just happens to contain exactly what
- STDEBUG wants. Lets take advantage of that just as long as possible! */
+/* Return the name of register number REGNO in the form input and
+ output by STDEBUG. Currently, REGISTER_NAME just happens return
+ exactly what STDEBUG wants. Lets take advantage of that just as
+ long as possible! */
static char *
-get_reg_name (regno)
- int regno;
+get_reg_name (int regno)
{
static char buf[50];
const char *p;
b = buf;
- for (p = reg_names[regno]; *p; p++)
- *b++ = toupper(*p);
+ for (p = REGISTER_NAME (regno); *p; p++)
+ *b++ = toupper (*p);
*b = '\000';
return buf;
/* Read the remote registers into the block REGS. */
static void
-st2000_fetch_registers ()
+st2000_fetch_registers (void)
{
int regno;
very often... I'll clean it up later. */
for (regno = 0; regno <= PC_REGNUM; regno++)
- st2000_fetch_register(regno);
+ st2000_fetch_register (regno);
}
/* Fetch register REGNO, or all registers if REGNO is -1.
Returns errno value. */
static void
-st2000_fetch_register (regno)
- int regno;
+st2000_fetch_register (int regno)
{
if (regno == -1)
st2000_fetch_registers ();
/* Store the remote registers from the contents of the block REGS. */
static void
-st2000_store_registers ()
+st2000_store_registers (void)
{
int regno;
for (regno = 0; regno <= PC_REGNUM; regno++)
- st2000_store_register(regno);
+ st2000_store_register (regno);
registers_changed ();
}
/* Store register REGNO, or all if REGNO == 0.
Return errno value. */
static void
-st2000_store_register (regno)
- int regno;
+st2000_store_register (int regno)
{
if (regno == -1)
st2000_store_registers ();
debugged. */
static void
-st2000_prepare_to_store ()
+st2000_prepare_to_store (void)
{
/* Do nothing, since we can store individual regs */
}
static void
-st2000_files_info ()
+st2000_files_info (void)
{
printf ("\tAttached to %s at %d baud.\n",
dev_name, baudrate);
/* Copy LEN bytes of data from debugger memory at MYADDR
to inferior's memory at MEMADDR. Returns length moved. */
static int
-st2000_write_inferior_memory (memaddr, myaddr, len)
- CORE_ADDR memaddr;
- unsigned char *myaddr;
- int len;
+st2000_write_inferior_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len)
{
int i;
/* Read LEN bytes from inferior memory at MEMADDR. Put the result
at debugger address MYADDR. Returns length moved. */
static int
-st2000_read_inferior_memory(memaddr, myaddr, len)
- CORE_ADDR memaddr;
- char *myaddr;
- int len;
+st2000_read_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len)
{
int i;
st2000_read_bytes (CORE_ADDR_MAX - 3, foo, 4)
doesn't need to work. Detect it and give up if there's an attempt
to do that. */
- if (((memaddr - 1) + len) < memaddr) {
- errno = EIO;
- return 0;
- }
-
+ if (((memaddr - 1) + len) < memaddr)
+ {
+ errno = EIO;
+ return 0;
+ }
+
startaddr = memaddr;
count = 0;
while (count < len)
return len;
}
-/* FIXME-someday! Merge these two. */
+/* Transfer LEN bytes between GDB address MYADDR and target address
+ MEMADDR. If WRITE is non-zero, transfer them to the target,
+ otherwise transfer them from the target. TARGET is unused.
+
+ Returns the number of bytes transferred. */
+
static int
-st2000_xfer_inferior_memory (memaddr, myaddr, len, write, target)
- CORE_ADDR memaddr;
- char *myaddr;
- int len;
- int write;
- struct target_ops *target; /* ignored */
+st2000_xfer_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len,
+ int write, struct mem_attrib *attrib,
+ struct target_ops *target)
{
if (write)
return st2000_write_inferior_memory (memaddr, myaddr, len);
}
static void
-st2000_kill (args, from_tty)
- char *args;
- int from_tty;
+st2000_kill (char *args, int from_tty)
{
- return; /* Ignore attempts to kill target system */
+ return; /* Ignore attempts to kill target system */
}
/* Clean up when a program exits.
instructions. */
static void
-st2000_mourn_inferior ()
+st2000_mourn_inferior (void)
{
remove_breakpoints ();
unpush_target (&st2000_ops);
#define MAX_STDEBUG_BREAKPOINTS 16
-extern int memory_breakpoint_size;
-static CORE_ADDR breakaddr[MAX_STDEBUG_BREAKPOINTS] = {0};
+static CORE_ADDR breakaddr[MAX_STDEBUG_BREAKPOINTS] =
+{0};
static int
-st2000_insert_breakpoint (addr, shadow)
- CORE_ADDR addr;
- char *shadow;
+st2000_insert_breakpoint (CORE_ADDR addr, char *shadow)
{
int i;
+ CORE_ADDR bp_addr = addr;
+ int bp_size = 0;
+
+ BREAKPOINT_FROM_PC (&bp_addr, &bp_size);
for (i = 0; i <= MAX_STDEBUG_BREAKPOINTS; i++)
if (breakaddr[i] == 0)
{
breakaddr[i] = addr;
- st2000_read_inferior_memory(addr, shadow, memory_breakpoint_size);
- printf_stdebug("BR %x H\r", addr);
- expect_prompt(1);
+ st2000_read_inferior_memory (bp_addr, shadow, bp_size);
+ printf_stdebug ("BR %x H\r", addr);
+ expect_prompt (1);
return 0;
}
- fprintf(stderr, "Too many breakpoints (> 16) for STDBUG\n");
+ fprintf_unfiltered (gdb_stderr, "Too many breakpoints (> 16) for STDBUG\n");
return 1;
}
static int
-st2000_remove_breakpoint (addr, shadow)
- CORE_ADDR addr;
- char *shadow;
+st2000_remove_breakpoint (CORE_ADDR addr, char *shadow)
{
int i;
{
breakaddr[i] = 0;
- printf_stdebug("CB %d\r", i);
- expect_prompt(1);
+ printf_stdebug ("CB %d\r", i);
+ expect_prompt (1);
return 0;
}
- fprintf(stderr, "Can't find breakpoint associated with 0x%x\n", addr);
+ fprintf_unfiltered (gdb_stderr,
+ "Can't find breakpoint associated with 0x%x\n", addr);
return 1;
}
on the users terminal until the prompt is seen. */
static void
-st2000_command (args, fromtty)
- char *args;
- int fromtty;
+st2000_command (char *args, int fromtty)
{
if (!st2000_desc)
- error("st2000 target not open.");
-
+ error ("st2000 target not open.");
+
if (!args)
- error("Missing command.");
-
- printf_stdebug("%s\r", args);
- expect_prompt(0);
+ error ("Missing command.");
+
+ printf_stdebug ("%s\r", args);
+ expect_prompt (0);
}
/* Connect the user directly to STDBUG. This command acts just like the
'cu' or 'tip' command. Use <CR>~. or <CR>~^D to break out. */
-/*static struct ttystate ttystate;*/
+/*static struct ttystate ttystate; */
static void
-cleanup_tty()
+cleanup_tty (void)
{
- printf("\r\n[Exiting connect mode]\r\n");
-/* SERIAL_RESTORE(0, &ttystate);*/
+ printf ("\r\n[Exiting connect mode]\r\n");
+/* serial_restore(0, &ttystate); */
}
#if 0
/* This all should now be in serial.c */
static void
-connect_command (args, fromtty)
- char *args;
- int fromtty;
+connect_command (char *args, int fromtty)
{
fd_set readfds;
int numfds;
int c;
char cur_esc = 0;
- dont_repeat();
+ dont_repeat ();
if (st2000_desc < 0)
- error("st2000 target not open.");
-
+ error ("st2000 target not open.");
+
if (args)
- fprintf("This command takes no args. They have been ignored.\n");
-
- printf("[Entering connect mode. Use ~. or ~^D to escape]\n");
+ fprintf ("This command takes no args. They have been ignored.\n");
+
+ printf ("[Entering connect mode. Use ~. or ~^D to escape]\n");
- serial_raw(0, &ttystate);
+ serial_raw (0, &ttystate);
- make_cleanup(cleanup_tty, 0);
+ make_cleanup (cleanup_tty, 0);
- FD_ZERO(&readfds);
+ FD_ZERO (&readfds);
while (1)
{
do
{
- FD_SET(0, &readfds);
- FD_SET(st2000_desc, &readfds);
- numfds = select(sizeof(readfds)*8, &readfds, 0, 0, 0);
+ FD_SET (0, &readfds);
+ FD_SET (deprecated_serial_fd (st2000_desc), &readfds);
+ numfds = select (sizeof (readfds) * 8, &readfds, 0, 0, 0);
}
while (numfds == 0);
if (numfds < 0)
- perror_with_name("select");
+ perror_with_name ("select");
- if (FD_ISSET(0, &readfds))
+ if (FD_ISSET (0, &readfds))
{ /* tty input, send to stdebug */
- c = getchar();
+ c = getchar ();
if (c < 0)
- perror_with_name("connect");
+ perror_with_name ("connect");
- printf_stdebug("%c", c);
+ printf_stdebug ("%c", c);
switch (cur_esc)
{
case 0:
}
}
- if (FD_ISSET(st2000_desc, &readfds))
+ if (FD_ISSET (deprecated_serial_fd (st2000_desc), &readfds))
{
while (1)
{
- c = readchar(0);
+ c = readchar (0);
if (c < 0)
break;
- putchar(c);
+ putchar (c);
}
- fflush(stdout);
+ fflush (stdout);
}
}
}
/* Define the target subroutine names */
-struct target_ops st2000_ops = {
- "st2000",
- "Remote serial Tandem ST2000 target",
- "Use a remote computer running STDEBUG connected by a serial line,\n\
+struct target_ops st2000_ops;
+
+static void
+init_st2000_ops (void)
+{
+ st2000_ops.to_shortname = "st2000";
+ st2000_ops.to_longname = "Remote serial Tandem ST2000 target";
+ st2000_ops.to_doc = "Use a remote computer running STDEBUG connected by a serial line;\n\
or a network connection.\n\
Arguments are the name of the device for the serial line,\n\
-the speed to connect at in bits per second.",
- st2000_open,
- st2000_close,
- 0,
- st2000_detach,
- st2000_resume,
- st2000_wait,
- st2000_fetch_register,
- st2000_store_register,
- st2000_prepare_to_store,
- st2000_xfer_inferior_memory,
- st2000_files_info,
- st2000_insert_breakpoint,
- st2000_remove_breakpoint, /* Breakpoints */
- 0,
- 0,
- 0,
- 0,
- 0, /* Terminal handling */
- st2000_kill,
- 0, /* load */
- 0, /* lookup_symbol */
- st2000_create_inferior,
- st2000_mourn_inferior,
- 0, /* can_run */
- 0, /* notice_signals */
- 0, /* to_stop */
- process_stratum,
- 0, /* next */
- 1,
- 1,
- 1,
- 1,
- 1, /* all mem, mem, stack, regs, exec */
- 0,
- 0, /* Section pointers */
- OPS_MAGIC, /* Always the last thing */
+the speed to connect at in bits per second.";
+ st2000_ops.to_open = st2000_open;
+ st2000_ops.to_close = st2000_close;
+ st2000_ops.to_detach = st2000_detach;
+ st2000_ops.to_resume = st2000_resume;
+ st2000_ops.to_wait = st2000_wait;
+ st2000_ops.to_fetch_registers = st2000_fetch_register;
+ st2000_ops.to_store_registers = st2000_store_register;
+ st2000_ops.to_prepare_to_store = st2000_prepare_to_store;
+ st2000_ops.to_xfer_memory = st2000_xfer_inferior_memory;
+ st2000_ops.to_files_info = st2000_files_info;
+ st2000_ops.to_insert_breakpoint = st2000_insert_breakpoint;
+ st2000_ops.to_remove_breakpoint = st2000_remove_breakpoint; /* Breakpoints */
+ st2000_ops.to_kill = st2000_kill;
+ st2000_ops.to_create_inferior = st2000_create_inferior;
+ st2000_ops.to_mourn_inferior = st2000_mourn_inferior;
+ st2000_ops.to_stratum = process_stratum;
+ st2000_ops.to_has_all_memory = 1;
+ st2000_ops.to_has_memory = 1;
+ st2000_ops.to_has_stack = 1;
+ st2000_ops.to_has_registers = 1;
+ st2000_ops.to_has_execution = 1; /* all mem, mem, stack, regs, exec */
+ st2000_ops.to_magic = OPS_MAGIC; /* Always the last thing */
};
void
-_initialize_remote_st2000 ()
+_initialize_remote_st2000 (void)
{
+ init_st2000_ops ();
add_target (&st2000_ops);
add_com ("st2000 <command>", class_obscure, st2000_command,
"Send a command to the STDBUG monitor.");