path: root/gdb/m32r-stub.c

// OBSOLETE /****************************************************************************
// OBSOLETE 
// OBSOLETE 		THIS SOFTWARE IS NOT COPYRIGHTED
// OBSOLETE 
// OBSOLETE    HP offers the following for use in the public domain.  HP makes no
// OBSOLETE    warranty with regard to the software or it's performance and the
// OBSOLETE    user accepts the software "AS IS" with all faults.
// OBSOLETE 
// OBSOLETE    HP DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD
// OBSOLETE    TO THIS SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES
// OBSOLETE    OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
// OBSOLETE 
// OBSOLETE ****************************************************************************/
// OBSOLETE 
// OBSOLETE /****************************************************************************
// OBSOLETE  *  Header: remcom.c,v 1.34 91/03/09 12:29:49 glenne Exp $
// OBSOLETE  *
// OBSOLETE  *  Module name: remcom.c $
// OBSOLETE  *  Revision: 1.34 $
// OBSOLETE  *  Date: 91/03/09 12:29:49 $
// OBSOLETE  *  Contributor:     Lake Stevens Instrument Division$
// OBSOLETE  *
// OBSOLETE  *  Description:     low level support for gdb debugger. $
// OBSOLETE  *
// OBSOLETE  *  Considerations:  only works on target hardware $
// OBSOLETE  *
// OBSOLETE  *  Written by:      Glenn Engel $
// OBSOLETE  *  ModuleState:     Experimental $
// OBSOLETE  *
// OBSOLETE  *  NOTES:           See Below $
// OBSOLETE  *
// OBSOLETE  *  Modified for M32R by Michael Snyder, Cygnus Support.
// OBSOLETE  *
// OBSOLETE  *  To enable debugger support, two things need to happen.  One, a
// OBSOLETE  *  call to set_debug_traps() is necessary in order to allow any breakpoints
// OBSOLETE  *  or error conditions to be properly intercepted and reported to gdb.
// OBSOLETE  *  Two, a breakpoint needs to be generated to begin communication.  This
// OBSOLETE  *  is most easily accomplished by a call to breakpoint().  Breakpoint()
// OBSOLETE  *  simulates a breakpoint by executing a trap #1.
// OBSOLETE  *
// OBSOLETE  *  The external function exceptionHandler() is
// OBSOLETE  *  used to attach a specific handler to a specific M32R vector number.
// OBSOLETE  *  It should use the same privilege level it runs at.  It should
// OBSOLETE  *  install it as an interrupt gate so that interrupts are masked
// OBSOLETE  *  while the handler runs.
// OBSOLETE  *
// OBSOLETE  *  Because gdb will sometimes write to the stack area to execute function
// OBSOLETE  *  calls, this program cannot rely on using the supervisor stack so it
// OBSOLETE  *  uses it's own stack area reserved in the int array remcomStack.
// OBSOLETE  *
// OBSOLETE  *************
// OBSOLETE  *
// OBSOLETE  *    The following gdb commands are supported:
// OBSOLETE  *
// OBSOLETE  * command          function                               Return value
// OBSOLETE  *
// OBSOLETE  *    g             return the value of the CPU registers  hex data or ENN
// OBSOLETE  *    G             set the value of the CPU registers     OK or ENN
// OBSOLETE  *
// OBSOLETE  *    mAA..AA,LLLL  Read LLLL bytes at address AA..AA      hex data or ENN
// OBSOLETE  *    MAA..AA,LLLL: Write LLLL bytes at address AA.AA      OK or ENN
// OBSOLETE  *    XAA..AA,LLLL: Write LLLL binary bytes at address     OK or ENN
// OBSOLETE  *                  AA..AA
// OBSOLETE  *
// OBSOLETE  *    c             Resume at current address              SNN   ( signal NN)
// OBSOLETE  *    cAA..AA       Continue at address AA..AA             SNN
// OBSOLETE  *
// OBSOLETE  *    s             Step one instruction                   SNN
// OBSOLETE  *    sAA..AA       Step one instruction from AA..AA       SNN
// OBSOLETE  *
// OBSOLETE  *    k             kill
// OBSOLETE  *
// OBSOLETE  *    ?             What was the last sigval ?             SNN   (signal NN)
// OBSOLETE  *
// OBSOLETE  * All commands and responses are sent with a packet which includes a
// OBSOLETE  * checksum.  A packet consists of
// OBSOLETE  *
// OBSOLETE  * $<packet info>#<checksum>.
// OBSOLETE  *
// OBSOLETE  * where
// OBSOLETE  * <packet info> :: <characters representing the command or response>
// OBSOLETE  * <checksum>    :: <two hex digits computed as modulo 256 sum of <packetinfo>>
// OBSOLETE  *
// OBSOLETE  * When a packet is received, it is first acknowledged with either '+' or '-'.
// OBSOLETE  * '+' indicates a successful transfer.  '-' indicates a failed transfer.
// OBSOLETE  *
// OBSOLETE  * Example:
// OBSOLETE  *
// OBSOLETE  * Host:                  Reply:
// OBSOLETE  * $m0,10#2a               +$00010203040506070809101112131415#42
// OBSOLETE  *
// OBSOLETE  ****************************************************************************/
// OBSOLETE 
// OBSOLETE 
// OBSOLETE /************************************************************************
// OBSOLETE  *
// OBSOLETE  * external low-level support routines
// OBSOLETE  */
// OBSOLETE extern void putDebugChar();	/* write a single character      */
// OBSOLETE extern int getDebugChar();	/* read and return a single char */
// OBSOLETE extern void exceptionHandler();	/* assign an exception handler   */
// OBSOLETE 
// OBSOLETE /*****************************************************************************
// OBSOLETE  * BUFMAX defines the maximum number of characters in inbound/outbound buffers
// OBSOLETE  * at least NUMREGBYTES*2 are needed for register packets 
// OBSOLETE  */
// OBSOLETE #define BUFMAX 400
// OBSOLETE 
// OBSOLETE static char initialized;  /* boolean flag. != 0 means we've been initialized */
// OBSOLETE 
// OBSOLETE int     remote_debug;
// OBSOLETE /*  debug >  0 prints ill-formed commands in valid packets & checksum errors */
// OBSOLETE 
// OBSOLETE static const unsigned char hexchars[]="0123456789abcdef";
// OBSOLETE 
// OBSOLETE #define NUMREGS 24
// OBSOLETE 
// OBSOLETE /* Number of bytes of registers.  */
// OBSOLETE #define NUMREGBYTES (NUMREGS * 4)
// OBSOLETE enum regnames { R0,  R1,  R2,  R3,  R4,  R5,  R6,   R7,
// OBSOLETE 		R8,  R9,  R10, R11, R12, R13, R14,  R15,
// OBSOLETE 		PSW, CBR, SPI, SPU, BPC, PC,  ACCL, ACCH };
// OBSOLETE 
// OBSOLETE enum SYS_calls {
// OBSOLETE   	SYS_null, 
// OBSOLETE 	SYS_exit,
// OBSOLETE 	SYS_open,
// OBSOLETE 	SYS_close,
// OBSOLETE 	SYS_read,
// OBSOLETE 	SYS_write,
// OBSOLETE 	SYS_lseek,
// OBSOLETE 	SYS_unlink,
// OBSOLETE 	SYS_getpid,
// OBSOLETE 	SYS_kill,
// OBSOLETE 	SYS_fstat,
// OBSOLETE 	SYS_sbrk,
// OBSOLETE 	SYS_fork,
// OBSOLETE 	SYS_execve,
// OBSOLETE 	SYS_wait4,
// OBSOLETE 	SYS_link,
// OBSOLETE 	SYS_chdir,
// OBSOLETE 	SYS_stat,
// OBSOLETE 	SYS_utime,
// OBSOLETE 	SYS_chown,
// OBSOLETE 	SYS_chmod,
// OBSOLETE 	SYS_time,
// OBSOLETE 	SYS_pipe };
// OBSOLETE 
// OBSOLETE static int registers[NUMREGS];
// OBSOLETE 
// OBSOLETE #define STACKSIZE 8096
// OBSOLETE static unsigned char remcomInBuffer[BUFMAX];
// OBSOLETE static unsigned char remcomOutBuffer[BUFMAX];
// OBSOLETE static int  remcomStack[STACKSIZE/sizeof(int)];
// OBSOLETE static int*  stackPtr = &remcomStack[STACKSIZE/sizeof(int) - 1];
// OBSOLETE 
// OBSOLETE static unsigned int save_vectors[18];	/* previous exception vectors */
// OBSOLETE 
// OBSOLETE /* Indicate to caller of mem2hex or hex2mem that there has been an error. */
// OBSOLETE static volatile int mem_err = 0;
// OBSOLETE 
// OBSOLETE /* Store the vector number here (since GDB only gets the signal
// OBSOLETE    number through the usual means, and that's not very specific).  */
// OBSOLETE int gdb_m32r_vector = -1;
// OBSOLETE 
// OBSOLETE #if 0
// OBSOLETE #include "syscall.h" /* for SYS_exit, SYS_write etc. */
// OBSOLETE #endif
// OBSOLETE 
// OBSOLETE /* Global entry points:
// OBSOLETE  */
// OBSOLETE 
// OBSOLETE extern void handle_exception(int);
// OBSOLETE extern void set_debug_traps(void);
// OBSOLETE extern void breakpoint(void);
// OBSOLETE 
// OBSOLETE /* Local functions:
// OBSOLETE  */
// OBSOLETE 
// OBSOLETE static int  computeSignal(int);
// OBSOLETE static void putpacket(unsigned char *);
// OBSOLETE static unsigned char *getpacket(void);
// OBSOLETE 
// OBSOLETE static unsigned char *mem2hex(unsigned char *, unsigned char *, int, int);
// OBSOLETE static unsigned char *hex2mem(unsigned char *, unsigned char *, int, int);
// OBSOLETE static int  hexToInt(unsigned char **, int *);
// OBSOLETE static unsigned char *bin2mem(unsigned char *, unsigned char *, int, int);
// OBSOLETE static void stash_registers(void);
// OBSOLETE static void restore_registers(void);
// OBSOLETE static int  prepare_to_step(int);
// OBSOLETE static int  finish_from_step(void);
// OBSOLETE static unsigned long crc32 (unsigned char *, int, unsigned long);
// OBSOLETE 
// OBSOLETE static void gdb_error(char *, char *);
// OBSOLETE static int  gdb_putchar(int), gdb_puts(char *), gdb_write(char *, int);
// OBSOLETE 
// OBSOLETE static unsigned char *strcpy (unsigned char *, const unsigned char *);
// OBSOLETE static int   strlen (const unsigned char *);
// OBSOLETE 
// OBSOLETE /*
// OBSOLETE  * This function does all command procesing for interfacing to gdb.
// OBSOLETE  */
// OBSOLETE 
// OBSOLETE void 
// OBSOLETE handle_exception(int exceptionVector)
// OBSOLETE {
// OBSOLETE   int    sigval, stepping;
// OBSOLETE   int    addr, length, i;
// OBSOLETE   unsigned char * ptr;
// OBSOLETE   unsigned char   buf[16];
// OBSOLETE   int binary;
// OBSOLETE 
// OBSOLETE   /* Do not call finish_from_step() if this is not a trap #1
// OBSOLETE    * (breakpoint trap).  Without this check, the finish_from_step()
// OBSOLETE    * might interpret a system call trap as a single step trap.  This
// OBSOLETE    * can happen if: the stub receives 's' and exits, but an interrupt
// OBSOLETE    * was pending; the interrupt is now handled and causes the stub to
// OBSOLETE    * be reentered because some function makes a system call.  
// OBSOLETE    */
// OBSOLETE   if (exceptionVector == 1)	/* Trap exception? */
// OBSOLETE     if (!finish_from_step())	/* Go see if stepping state needs update. */
// OBSOLETE       return;		/* "false step": let the target continue */
// OBSOLETE 
// OBSOLETE   gdb_m32r_vector = exceptionVector;
// OBSOLETE 
// OBSOLETE   if (remote_debug)
// OBSOLETE     {
// OBSOLETE       mem2hex((unsigned char *) &exceptionVector, buf, 4, 0);
// OBSOLETE       gdb_error("Handle exception %s, ", buf);
// OBSOLETE       mem2hex((unsigned char *) &registers[PC], buf, 4, 0);
// OBSOLETE       gdb_error("PC == 0x%s\n", buf);
// OBSOLETE     }
// OBSOLETE 
// OBSOLETE   /* reply to host that an exception has occurred */
// OBSOLETE   sigval = computeSignal( exceptionVector );
// OBSOLETE 
// OBSOLETE   ptr = remcomOutBuffer;
// OBSOLETE  
// OBSOLETE   *ptr++ = 'T';         /* notify gdb with signo, PC, FP and SP */
// OBSOLETE   *ptr++ = hexchars[sigval >> 4];
// OBSOLETE   *ptr++ = hexchars[sigval & 0xf];
// OBSOLETE  
// OBSOLETE   *ptr++ = hexchars[PC >> 4];
// OBSOLETE   *ptr++ = hexchars[PC & 0xf];
// OBSOLETE   *ptr++ = ':';
// OBSOLETE   ptr = mem2hex((unsigned char *)&registers[PC], ptr, 4, 0);     /* PC */
// OBSOLETE   *ptr++ = ';';
// OBSOLETE  
// OBSOLETE   *ptr++ = hexchars[R13 >> 4];
// OBSOLETE   *ptr++ = hexchars[R13 & 0xf];
// OBSOLETE   *ptr++ = ':';
// OBSOLETE   ptr = mem2hex((unsigned char *)&registers[R13], ptr, 4, 0);    /* FP */
// OBSOLETE   *ptr++ = ';';
// OBSOLETE  
// OBSOLETE   *ptr++ = hexchars[R15 >> 4];
// OBSOLETE   *ptr++ = hexchars[R15 & 0xf];
// OBSOLETE   *ptr++ = ':';
// OBSOLETE   ptr = mem2hex((unsigned char *)&registers[R15], ptr, 4, 0);    /* SP */
// OBSOLETE   *ptr++ = ';';
// OBSOLETE   *ptr++ = 0;
// OBSOLETE  
// OBSOLETE   if (exceptionVector == 0)     /* simulated SYS call stuff */
// OBSOLETE     {
// OBSOLETE       mem2hex((unsigned char *) &registers[PC], buf, 4, 0);
// OBSOLETE       switch (registers[R0]) {
// OBSOLETE       case SYS_exit:
// OBSOLETE 	gdb_error("Target program has exited at %s\n", buf);
// OBSOLETE 	ptr = remcomOutBuffer;
// OBSOLETE 	*ptr++ = 'W';
// OBSOLETE 	sigval = registers[R1] & 0xff;
// OBSOLETE 	*ptr++ = hexchars[sigval >> 4];
// OBSOLETE 	*ptr++ = hexchars[sigval & 0xf];
// OBSOLETE 	*ptr++ = 0;
// OBSOLETE 	break;
// OBSOLETE       case SYS_open:
// OBSOLETE 	gdb_error("Target attempts SYS_open call at %s\n", buf);
// OBSOLETE 	break;
// OBSOLETE       case SYS_close:
// OBSOLETE 	gdb_error("Target attempts SYS_close call at %s\n", buf);
// OBSOLETE 	break;
// OBSOLETE       case SYS_read:
// OBSOLETE 	gdb_error("Target attempts SYS_read call at %s\n", buf);
// OBSOLETE 	break;
// OBSOLETE       case SYS_write:
// OBSOLETE 	if (registers[R1] == 1 ||       /* write to stdout  */
// OBSOLETE 	    registers[R1] == 2)		/* write to stderr  */
// OBSOLETE 	  {				/* (we can do that) */
// OBSOLETE 	    registers[R0] = gdb_write((void *) registers[R2], registers[R3]);
// OBSOLETE 	    return;
// OBSOLETE 	  }
// OBSOLETE 	else
// OBSOLETE 	  gdb_error("Target attempts SYS_write call at %s\n", buf);
// OBSOLETE 	break;
// OBSOLETE       case SYS_lseek:
// OBSOLETE 	gdb_error("Target attempts SYS_lseek call at %s\n", buf);
// OBSOLETE 	break;
// OBSOLETE       case SYS_unlink:
// OBSOLETE 	gdb_error("Target attempts SYS_unlink call at %s\n", buf);
// OBSOLETE 	break;
// OBSOLETE       case SYS_getpid:
// OBSOLETE 	gdb_error("Target attempts SYS_getpid call at %s\n", buf);
// OBSOLETE 	break;
// OBSOLETE       case SYS_kill:
// OBSOLETE 	gdb_error("Target attempts SYS_kill call at %s\n", buf);
// OBSOLETE 	break;
// OBSOLETE       case SYS_fstat:
// OBSOLETE 	gdb_error("Target attempts SYS_fstat call at %s\n", buf);
// OBSOLETE 	break;
// OBSOLETE       default:
// OBSOLETE 	gdb_error("Target attempts unknown SYS call at %s\n", buf);
// OBSOLETE 	break;
// OBSOLETE       }
// OBSOLETE     }
// OBSOLETE 
// OBSOLETE   putpacket(remcomOutBuffer);
// OBSOLETE 
// OBSOLETE   stepping = 0;
// OBSOLETE 
// OBSOLETE   while (1==1) {
// OBSOLETE     remcomOutBuffer[0] = 0;
// OBSOLETE     ptr = getpacket();
// OBSOLETE     binary = 0;
// OBSOLETE     switch (*ptr++) {
// OBSOLETE       default:	/* Unknown code.  Return an empty reply message. */
// OBSOLETE 	break;
// OBSOLETE       case 'R':
// OBSOLETE 	if (hexToInt (&ptr, &addr))
// OBSOLETE 	  registers[PC] = addr;
// OBSOLETE 	strcpy(remcomOutBuffer, "OK");
// OBSOLETE 	break;
// OBSOLETE       case '!':
// OBSOLETE 	strcpy(remcomOutBuffer, "OK");
// OBSOLETE 	break;
// OBSOLETE     case 'X': /* XAA..AA,LLLL:<binary data>#cs */
// OBSOLETE       binary = 1;
// OBSOLETE     case 'M': /* MAA..AA,LLLL: Write LLLL bytes at address AA.AA return OK */
// OBSOLETE       /* TRY TO READ '%x,%x:'.  IF SUCCEED, SET PTR = 0 */
// OBSOLETE       {
// OBSOLETE         if (hexToInt(&ptr,&addr))
// OBSOLETE           if (*(ptr++) == ',')
// OBSOLETE             if (hexToInt(&ptr,&length))
// OBSOLETE               if (*(ptr++) == ':')
// OBSOLETE                 {
// OBSOLETE                   mem_err = 0;
// OBSOLETE                   if (binary)
// OBSOLETE                     bin2mem (ptr, (unsigned char *) addr, length, 1);
// OBSOLETE                   else
// OBSOLETE                     hex2mem(ptr, (unsigned char*) addr, length, 1);
// OBSOLETE                   if (mem_err) {
// OBSOLETE                     strcpy (remcomOutBuffer, "E03");
// OBSOLETE                     gdb_error ("memory fault", "");
// OBSOLETE                   } else {
// OBSOLETE                     strcpy(remcomOutBuffer,"OK");
// OBSOLETE                   }
// OBSOLETE                   ptr = 0;
// OBSOLETE                 }
// OBSOLETE         if (ptr)
// OBSOLETE           {
// OBSOLETE             strcpy(remcomOutBuffer,"E02");
// OBSOLETE           }
// OBSOLETE       }
// OBSOLETE 	break;
// OBSOLETE       case 'm': /* mAA..AA,LLLL  Read LLLL bytes at address AA..AA */
// OBSOLETE 		/* TRY TO READ %x,%x.  IF SUCCEED, SET PTR = 0 */
// OBSOLETE 	if (hexToInt(&ptr,&addr))
// OBSOLETE 	  if (*(ptr++) == ',')
// OBSOLETE 	    if (hexToInt(&ptr,&length))
// OBSOLETE 	      {
// OBSOLETE 		ptr = 0;
// OBSOLETE 		mem_err = 0;
// OBSOLETE 		mem2hex((unsigned char*) addr, remcomOutBuffer, length, 1);
// OBSOLETE 		if (mem_err) {
// OBSOLETE 		  strcpy (remcomOutBuffer, "E03");
// OBSOLETE 		  gdb_error ("memory fault", "");
// OBSOLETE 		}
// OBSOLETE 	      }
// OBSOLETE 	if (ptr)
// OBSOLETE 	  {
// OBSOLETE 	    strcpy(remcomOutBuffer,"E01");
// OBSOLETE 	  }
// OBSOLETE 	break;
// OBSOLETE       case '?': 
// OBSOLETE 	remcomOutBuffer[0] = 'S';
// OBSOLETE 	remcomOutBuffer[1] =  hexchars[sigval >> 4];
// OBSOLETE 	remcomOutBuffer[2] =  hexchars[sigval % 16];
// OBSOLETE 	remcomOutBuffer[3] = 0;
// OBSOLETE 	break;
// OBSOLETE       case 'd': 
// OBSOLETE 	remote_debug = !(remote_debug);  /* toggle debug flag */
// OBSOLETE 	break;
// OBSOLETE       case 'g': /* return the value of the CPU registers */
// OBSOLETE 	mem2hex((unsigned char*) registers, remcomOutBuffer, NUMREGBYTES, 0);
// OBSOLETE 	break;
// OBSOLETE       case 'P': /* set the value of a single CPU register - return OK */
// OBSOLETE 	{
// OBSOLETE 	  int regno;
// OBSOLETE 
// OBSOLETE 	  if (hexToInt (&ptr, &regno) && *ptr++ == '=')
// OBSOLETE 	    if (regno >= 0 && regno < NUMREGS)
// OBSOLETE 	      {
// OBSOLETE 		int stackmode;
// OBSOLETE 
// OBSOLETE 		hex2mem (ptr, (unsigned char *) &registers[regno], 4, 0);
// OBSOLETE 		/*
// OBSOLETE 		 * Since we just changed a single CPU register, let's
// OBSOLETE 		 * make sure to keep the several stack pointers consistant.
// OBSOLETE 		 */
// OBSOLETE 		stackmode = registers[PSW] & 0x80;
// OBSOLETE 		if (regno == R15)	/* stack pointer changed */
// OBSOLETE 		  {			/* need to change SPI or SPU */
// OBSOLETE 		    if (stackmode == 0)
// OBSOLETE 		      registers[SPI] = registers[R15];
// OBSOLETE 		    else
// OBSOLETE 		      registers[SPU] = registers[R15];
// OBSOLETE 		  }
// OBSOLETE 		else if (regno == SPU)	/* "user" stack pointer changed */
// OBSOLETE 		  {
// OBSOLETE 		    if (stackmode != 0)	/* stack in user mode: copy SP */
// OBSOLETE 		      registers[R15] = registers[SPU];
// OBSOLETE 		  }
// OBSOLETE 		else if (regno == SPI)	/* "interrupt" stack pointer changed */
// OBSOLETE 		  {
// OBSOLETE 		    if (stackmode == 0)	/* stack in interrupt mode: copy SP */
// OBSOLETE 		      registers[R15] = registers[SPI];
// OBSOLETE 		  }
// OBSOLETE 		else if (regno == PSW)	/* stack mode may have changed! */
// OBSOLETE 		  {			/* force SP to either SPU or SPI */
// OBSOLETE 		    if (stackmode == 0)	/* stack in user mode */
// OBSOLETE 		      registers[R15] = registers[SPI];
// OBSOLETE 		    else		/* stack in interrupt mode */
// OBSOLETE 		      registers[R15] = registers[SPU];
// OBSOLETE 		  }
// OBSOLETE 		strcpy (remcomOutBuffer, "OK");
// OBSOLETE 		break;
// OBSOLETE 	      }
// OBSOLETE 	  strcpy (remcomOutBuffer, "E01");
// OBSOLETE 	  break;
// OBSOLETE 	}
// OBSOLETE       case 'G': /* set the value of the CPU registers - return OK */
// OBSOLETE 	hex2mem(ptr, (unsigned char*) registers, NUMREGBYTES, 0);
// OBSOLETE 	strcpy(remcomOutBuffer,"OK");
// OBSOLETE 	break;
// OBSOLETE       case 's': /* sAA..AA	Step one instruction from AA..AA(optional) */
// OBSOLETE 	stepping = 1;
// OBSOLETE       case 'c': /* cAA..AA	Continue from address AA..AA(optional) */
// OBSOLETE 		/* try to read optional parameter, pc unchanged if no parm */
// OBSOLETE 	if (hexToInt(&ptr,&addr))
// OBSOLETE 	  registers[ PC ] = addr;
// OBSOLETE 	
// OBSOLETE 	if (stepping)	/* single-stepping */
// OBSOLETE 	  {
// OBSOLETE 	    if (!prepare_to_step(0))	/* set up for single-step */
// OBSOLETE 	      {
// OBSOLETE 		/* prepare_to_step has already emulated the target insn:
// OBSOLETE 		   Send SIGTRAP to gdb, don't resume the target at all.  */
// OBSOLETE 		ptr = remcomOutBuffer;
// OBSOLETE 		*ptr++ = 'T';           /* Simulate stopping with SIGTRAP */
// OBSOLETE 		*ptr++ = '0';
// OBSOLETE 		*ptr++ = '5';
// OBSOLETE 
// OBSOLETE 		*ptr++ = hexchars[PC >> 4];     /* send PC */
// OBSOLETE 		*ptr++ = hexchars[PC & 0xf];
// OBSOLETE 		*ptr++ = ':';
// OBSOLETE 		ptr = mem2hex((unsigned char *)&registers[PC], ptr, 4, 0);
// OBSOLETE 		*ptr++ = ';';
// OBSOLETE 
// OBSOLETE 		*ptr++ = hexchars[R13 >> 4];    /* send FP */
// OBSOLETE 		*ptr++ = hexchars[R13 & 0xf];
// OBSOLETE 		*ptr++ = ':';
// OBSOLETE 		ptr = mem2hex((unsigned char *)&registers[R13], ptr, 4, 0);
// OBSOLETE 		*ptr++ = ';';
// OBSOLETE 
// OBSOLETE 		*ptr++ = hexchars[R15 >> 4];    /* send SP */
// OBSOLETE 		*ptr++ = hexchars[R15 & 0xf];
// OBSOLETE 		*ptr++ = ':';
// OBSOLETE 		ptr = mem2hex((unsigned char *)&registers[R15], ptr, 4, 0);
// OBSOLETE 		*ptr++ = ';';
// OBSOLETE 		*ptr++ = 0;
// OBSOLETE 
// OBSOLETE 		break;	
// OBSOLETE 	      }
// OBSOLETE 	  }
// OBSOLETE 	else	/* continuing, not single-stepping */
// OBSOLETE 	  {
// OBSOLETE 	    /* OK, about to do a "continue".  First check to see if the 
// OBSOLETE 	       target pc is on an odd boundary (second instruction in the 
// OBSOLETE 	       word).  If so, we must do a single-step first, because 
// OBSOLETE 	       ya can't jump or return back to an odd boundary!  */
// OBSOLETE 	    if ((registers[PC] & 2) != 0)
// OBSOLETE 	      prepare_to_step(1);
// OBSOLETE 	  }
// OBSOLETE 
// OBSOLETE 	return;
// OBSOLETE 
// OBSOLETE       case 'D':	/* Detach */
// OBSOLETE #if 0
// OBSOLETE 	/* I am interpreting this to mean, release the board from control 
// OBSOLETE 	   by the remote stub.  To do this, I am restoring the original
// OBSOLETE 	   (or at least previous) exception vectors.
// OBSOLETE 	 */
// OBSOLETE 	for (i = 0; i < 18; i++)
// OBSOLETE 	  exceptionHandler (i, save_vectors[i]);
// OBSOLETE 	putpacket ("OK");
// OBSOLETE 	return;		/* continue the inferior */
// OBSOLETE #else
// OBSOLETE 	strcpy(remcomOutBuffer,"OK");
// OBSOLETE 	break;
// OBSOLETE #endif
// OBSOLETE     case 'q':
// OBSOLETE       if (*ptr++ == 'C' &&
// OBSOLETE 	  *ptr++ == 'R' &&
// OBSOLETE 	  *ptr++ == 'C' &&
// OBSOLETE 	  *ptr++ == ':')
// OBSOLETE 	{
// OBSOLETE 	  unsigned long start, len, our_crc;
// OBSOLETE 
// OBSOLETE 	  if (hexToInt (&ptr, (int *) &start) &&
// OBSOLETE 	      *ptr++ == ','                   &&
// OBSOLETE 	      hexToInt (&ptr, (int *) &len))
// OBSOLETE 	    {
// OBSOLETE 	      remcomOutBuffer[0] = 'C';
// OBSOLETE 	      our_crc = crc32 ((unsigned char *) start, len, 0xffffffff);
// OBSOLETE 	      mem2hex ((char *) &our_crc, 
// OBSOLETE 		       &remcomOutBuffer[1], 
// OBSOLETE 		       sizeof (long), 
// OBSOLETE 		       0); 
// OBSOLETE 	    } /* else do nothing */
// OBSOLETE 	} /* else do nothing */
// OBSOLETE       break;
// OBSOLETE 
// OBSOLETE       case 'k': /* kill the program */
// OBSOLETE 	continue;
// OBSOLETE       } /* switch */
// OBSOLETE 
// OBSOLETE     /* reply to the request */
// OBSOLETE     putpacket(remcomOutBuffer);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* qCRC support */
// OBSOLETE 
// OBSOLETE /* Table used by the crc32 function to calcuate the checksum. */
// OBSOLETE static unsigned long crc32_table[256] = {0, 0};
// OBSOLETE 
// OBSOLETE static unsigned long
// OBSOLETE crc32 (unsigned char *buf, int len, unsigned long crc)
// OBSOLETE {
// OBSOLETE   if (! crc32_table[1])
// OBSOLETE     {
// OBSOLETE       /* Initialize the CRC table and the decoding table. */
// OBSOLETE       int i, j;
// OBSOLETE       unsigned long c;
// OBSOLETE 
// OBSOLETE       for (i = 0; i < 256; i++)
// OBSOLETE 	{
// OBSOLETE 	  for (c = i << 24, j = 8; j > 0; --j)
// OBSOLETE 	    c = c & 0x80000000 ? (c << 1) ^ 0x04c11db7 : (c << 1);
// OBSOLETE 	  crc32_table[i] = c;
// OBSOLETE 	}
// OBSOLETE     }
// OBSOLETE 
// OBSOLETE   while (len--)
// OBSOLETE     {
// OBSOLETE       crc = (crc << 8) ^ crc32_table[((crc >> 24) ^ *buf) & 255];
// OBSOLETE       buf++;
// OBSOLETE     }
// OBSOLETE   return crc;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE static int 
// OBSOLETE hex (unsigned char ch)
// OBSOLETE {
// OBSOLETE   if ((ch >= 'a') && (ch <= 'f')) return (ch-'a'+10);
// OBSOLETE   if ((ch >= '0') && (ch <= '9')) return (ch-'0');
// OBSOLETE   if ((ch >= 'A') && (ch <= 'F')) return (ch-'A'+10);
// OBSOLETE   return (-1);
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* scan for the sequence $<data>#<checksum>     */
// OBSOLETE 
// OBSOLETE unsigned char *
// OBSOLETE getpacket (void)
// OBSOLETE {
// OBSOLETE   unsigned char *buffer = &remcomInBuffer[0];
// OBSOLETE   unsigned char checksum;
// OBSOLETE   unsigned char xmitcsum;
// OBSOLETE   int count;
// OBSOLETE   char ch;
// OBSOLETE 
// OBSOLETE   while (1)
// OBSOLETE     {
// OBSOLETE       /* wait around for the start character, ignore all other characters */
// OBSOLETE       while ((ch = getDebugChar ()) != '$')
// OBSOLETE 	;
// OBSOLETE 
// OBSOLETE retry:
// OBSOLETE       checksum = 0;
// OBSOLETE       xmitcsum = -1;
// OBSOLETE       count = 0;
// OBSOLETE 
// OBSOLETE       /* now, read until a # or end of buffer is found */
// OBSOLETE       while (count < BUFMAX)
// OBSOLETE 	{
// OBSOLETE 	  ch = getDebugChar ();
// OBSOLETE           if (ch == '$')
// OBSOLETE 	    goto retry;
// OBSOLETE 	  if (ch == '#')
// OBSOLETE 	    break;
// OBSOLETE 	  checksum = checksum + ch;
// OBSOLETE 	  buffer[count] = ch;
// OBSOLETE 	  count = count + 1;
// OBSOLETE 	}
// OBSOLETE       buffer[count] = 0;
// OBSOLETE 
// OBSOLETE       if (ch == '#')
// OBSOLETE 	{
// OBSOLETE 	  ch = getDebugChar ();
// OBSOLETE 	  xmitcsum = hex (ch) << 4;
// OBSOLETE 	  ch = getDebugChar ();
// OBSOLETE 	  xmitcsum += hex (ch);
// OBSOLETE 
// OBSOLETE 	  if (checksum != xmitcsum)
// OBSOLETE 	    {
// OBSOLETE 	      if (remote_debug)
// OBSOLETE 		{
// OBSOLETE 		  unsigned char buf[16];
// OBSOLETE 
// OBSOLETE 		  mem2hex((unsigned char *) &checksum, buf, 4, 0);
// OBSOLETE 		  gdb_error("Bad checksum: my count = %s, ", buf);
// OBSOLETE 		  mem2hex((unsigned char *) &xmitcsum, buf, 4, 0);
// OBSOLETE 		  gdb_error("sent count = %s\n", buf);
// OBSOLETE 		  gdb_error(" -- Bad buffer: \"%s\"\n", buffer); 
// OBSOLETE 		}
// OBSOLETE 	      putDebugChar ('-');	/* failed checksum */
// OBSOLETE 	    }
// OBSOLETE 	  else
// OBSOLETE 	    {
// OBSOLETE 	      putDebugChar ('+');	/* successful transfer */
// OBSOLETE 
// OBSOLETE 	      /* if a sequence char is present, reply the sequence ID */
// OBSOLETE 	      if (buffer[2] == ':')
// OBSOLETE 		{
// OBSOLETE 		  putDebugChar (buffer[0]);
// OBSOLETE 		  putDebugChar (buffer[1]);
// OBSOLETE 
// OBSOLETE 		  return &buffer[3];
// OBSOLETE 		}
// OBSOLETE 
// OBSOLETE 	      return &buffer[0];
// OBSOLETE 	    }
// OBSOLETE 	}
// OBSOLETE     }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* send the packet in buffer.  */
// OBSOLETE 
// OBSOLETE static void 
// OBSOLETE putpacket (unsigned char *buffer)
// OBSOLETE {
// OBSOLETE   unsigned char checksum;
// OBSOLETE   int  count;
// OBSOLETE   char ch;
// OBSOLETE 
// OBSOLETE   /*  $<packet info>#<checksum>. */
// OBSOLETE   do {
// OBSOLETE     putDebugChar('$');
// OBSOLETE     checksum = 0;
// OBSOLETE     count    = 0;
// OBSOLETE 
// OBSOLETE     while (ch=buffer[count]) {
// OBSOLETE       putDebugChar(ch);
// OBSOLETE       checksum += ch;
// OBSOLETE       count += 1;
// OBSOLETE     }
// OBSOLETE     putDebugChar('#');
// OBSOLETE     putDebugChar(hexchars[checksum >> 4]);
// OBSOLETE     putDebugChar(hexchars[checksum % 16]);
// OBSOLETE   } while (getDebugChar() != '+');
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* Address of a routine to RTE to if we get a memory fault.  */
// OBSOLETE 
// OBSOLETE static void (*volatile mem_fault_routine)() = 0;
// OBSOLETE 
// OBSOLETE static void
// OBSOLETE set_mem_err (void)
// OBSOLETE {
// OBSOLETE   mem_err = 1;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* Check the address for safe access ranges.  As currently defined,
// OBSOLETE    this routine will reject the "expansion bus" address range(s).
// OBSOLETE    To make those ranges useable, someone must implement code to detect
// OBSOLETE    whether there's anything connected to the expansion bus. */
// OBSOLETE 
// OBSOLETE static int
// OBSOLETE mem_safe (unsigned char *addr)
// OBSOLETE {
// OBSOLETE #define BAD_RANGE_ONE_START	((unsigned char *) 0x600000)
// OBSOLETE #define BAD_RANGE_ONE_END	((unsigned char *) 0xa00000)
// OBSOLETE #define BAD_RANGE_TWO_START	((unsigned char *) 0xff680000)
// OBSOLETE #define BAD_RANGE_TWO_END	((unsigned char *) 0xff800000)
// OBSOLETE 
// OBSOLETE   if (addr < BAD_RANGE_ONE_START)	return 1;	/* safe */
// OBSOLETE   if (addr < BAD_RANGE_ONE_END)		return 0;	/* unsafe */
// OBSOLETE   if (addr < BAD_RANGE_TWO_START)	return 1;	/* safe */
// OBSOLETE   if (addr < BAD_RANGE_TWO_END)		return 0;	/* unsafe */
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* These are separate functions so that they are so short and sweet
// OBSOLETE    that the compiler won't save any registers (if there is a fault
// OBSOLETE    to mem_fault, they won't get restored, so there better not be any
// OBSOLETE    saved).  */
// OBSOLETE static int
// OBSOLETE get_char (unsigned char *addr)
// OBSOLETE {
// OBSOLETE #if 1
// OBSOLETE   if (mem_fault_routine && !mem_safe(addr))
// OBSOLETE     {
// OBSOLETE       mem_fault_routine ();
// OBSOLETE       return 0;
// OBSOLETE     }
// OBSOLETE #endif
// OBSOLETE   return *addr;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE static void
// OBSOLETE set_char (unsigned char *addr, unsigned char val)
// OBSOLETE {
// OBSOLETE #if 1
// OBSOLETE   if (mem_fault_routine && !mem_safe (addr))
// OBSOLETE     {
// OBSOLETE       mem_fault_routine ();
// OBSOLETE       return;
// OBSOLETE     }
// OBSOLETE #endif
// OBSOLETE   *addr = val;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* Convert the memory pointed to by mem into hex, placing result in buf.
// OBSOLETE    Return a pointer to the last char put in buf (null).
// OBSOLETE    If MAY_FAULT is non-zero, then we should set mem_err in response to
// OBSOLETE    a fault; if zero treat a fault like any other fault in the stub.  */
// OBSOLETE 
// OBSOLETE static unsigned char *
// OBSOLETE mem2hex (unsigned char *mem, unsigned char *buf, int count, int may_fault)
// OBSOLETE {
// OBSOLETE   int i;
// OBSOLETE   unsigned char ch;
// OBSOLETE 
// OBSOLETE   if (may_fault)
// OBSOLETE     mem_fault_routine = set_mem_err;
// OBSOLETE   for (i=0;i<count;i++) {
// OBSOLETE     ch = get_char (mem++);
// OBSOLETE     if (may_fault && mem_err)
// OBSOLETE       return (buf);
// OBSOLETE     *buf++ = hexchars[ch >> 4];
// OBSOLETE     *buf++ = hexchars[ch % 16];
// OBSOLETE   }
// OBSOLETE   *buf = 0;
// OBSOLETE   if (may_fault)
// OBSOLETE     mem_fault_routine = 0;
// OBSOLETE   return(buf);
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* Convert the hex array pointed to by buf into binary to be placed in mem.
// OBSOLETE    Return a pointer to the character AFTER the last byte written. */
// OBSOLETE 
// OBSOLETE static unsigned char* 
// OBSOLETE hex2mem (unsigned char *buf, unsigned char *mem, int count, int may_fault)
// OBSOLETE {
// OBSOLETE   int i;
// OBSOLETE   unsigned char ch;
// OBSOLETE 
// OBSOLETE   if (may_fault)
// OBSOLETE     mem_fault_routine = set_mem_err;
// OBSOLETE   for (i=0;i<count;i++) {
// OBSOLETE     ch = hex(*buf++) << 4;
// OBSOLETE     ch = ch + hex(*buf++);
// OBSOLETE     set_char (mem++, ch);
// OBSOLETE     if (may_fault && mem_err)
// OBSOLETE       return (mem);
// OBSOLETE   }
// OBSOLETE   if (may_fault)
// OBSOLETE     mem_fault_routine = 0;
// OBSOLETE   return(mem);
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* Convert the binary stream in BUF to memory.
// OBSOLETE 
// OBSOLETE    Gdb will escape $, #, and the escape char (0x7d).
// OBSOLETE    COUNT is the total number of bytes to write into
// OBSOLETE    memory. */
// OBSOLETE static unsigned char *
// OBSOLETE bin2mem (unsigned char *buf, unsigned char *mem, int count, int may_fault)
// OBSOLETE {
// OBSOLETE   int i;
// OBSOLETE   unsigned char ch;
// OBSOLETE 
// OBSOLETE   if (may_fault)
// OBSOLETE     mem_fault_routine = set_mem_err;
// OBSOLETE   for (i = 0; i < count; i++)
// OBSOLETE     {
// OBSOLETE       /* Check for any escaped characters. Be paranoid and
// OBSOLETE          only unescape chars that should be escaped. */
// OBSOLETE       if (*buf == 0x7d)
// OBSOLETE         {
// OBSOLETE           switch (*(buf+1))
// OBSOLETE             {
// OBSOLETE             case 0x3:  /* # */
// OBSOLETE             case 0x4:  /* $ */
// OBSOLETE             case 0x5d: /* escape char */
// OBSOLETE               buf++;
// OBSOLETE               *buf |= 0x20;
// OBSOLETE               break;
// OBSOLETE             default:
// OBSOLETE               /* nothing */
// OBSOLETE               break;
// OBSOLETE             }
// OBSOLETE         }
// OBSOLETE 
// OBSOLETE       set_char (mem++, *buf++);
// OBSOLETE 
// OBSOLETE       if (may_fault && mem_err)
// OBSOLETE         return mem;
// OBSOLETE     }
// OBSOLETE 
// OBSOLETE   if (may_fault)
// OBSOLETE     mem_fault_routine = 0;
// OBSOLETE   return mem;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* this function takes the m32r exception vector and attempts to
// OBSOLETE    translate this number into a unix compatible signal value */
// OBSOLETE 
// OBSOLETE static int 
// OBSOLETE computeSignal (int exceptionVector)
// OBSOLETE {
// OBSOLETE   int sigval;
// OBSOLETE   switch (exceptionVector) {
// OBSOLETE     case 0  : sigval = 23; break; /* I/O trap                    */
// OBSOLETE     case 1  : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 2  : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 3  : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 4  : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 5  : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 6  : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 7  : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 8  : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 9  : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 10 : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 11 : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 12 : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 13 : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 14 : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 15 : sigval = 5;  break; /* breakpoint                  */
// OBSOLETE     case 16 : sigval = 10; break; /* BUS ERROR (alignment)       */
// OBSOLETE     case 17 : sigval = 2;  break; /* INTerrupt                   */
// OBSOLETE     default : sigval = 7;  break; /* "software generated"        */
// OBSOLETE   }
// OBSOLETE   return (sigval);
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /**********************************************/
// OBSOLETE /* WHILE WE FIND NICE HEX CHARS, BUILD AN INT */
// OBSOLETE /* RETURN NUMBER OF CHARS PROCESSED           */
// OBSOLETE /**********************************************/
// OBSOLETE static int 
// OBSOLETE hexToInt (unsigned char **ptr, int *intValue)
// OBSOLETE {
// OBSOLETE   int numChars = 0;
// OBSOLETE   int hexValue;
// OBSOLETE 
// OBSOLETE   *intValue = 0;
// OBSOLETE   while (**ptr)
// OBSOLETE     {
// OBSOLETE       hexValue = hex(**ptr);
// OBSOLETE       if (hexValue >=0)
// OBSOLETE         {
// OBSOLETE 	  *intValue = (*intValue <<4) | hexValue;
// OBSOLETE 	  numChars ++;
// OBSOLETE         }
// OBSOLETE       else
// OBSOLETE 	break;
// OBSOLETE       (*ptr)++;
// OBSOLETE     }
// OBSOLETE   return (numChars);
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /*
// OBSOLETE   Table of branch instructions:
// OBSOLETE   
// OBSOLETE   10B6		RTE	return from trap or exception
// OBSOLETE   1FCr		JMP	jump
// OBSOLETE   1ECr		JL	jump and link
// OBSOLETE   7Fxx		BRA	branch
// OBSOLETE   FFxxxxxx	BRA	branch (long)
// OBSOLETE   B09rxxxx	BNEZ	branch not-equal-zero
// OBSOLETE   Br1rxxxx	BNE	branch not-equal
// OBSOLETE   7Dxx		BNC	branch not-condition
// OBSOLETE   FDxxxxxx	BNC	branch not-condition (long)
// OBSOLETE   B0Arxxxx	BLTZ	branch less-than-zero
// OBSOLETE   B0Crxxxx	BLEZ	branch less-equal-zero
// OBSOLETE   7Exx		BL	branch and link
// OBSOLETE   FExxxxxx	BL	branch and link (long)
// OBSOLETE   B0Drxxxx	BGTZ	branch greater-than-zero
// OBSOLETE   B0Brxxxx	BGEZ	branch greater-equal-zero
// OBSOLETE   B08rxxxx	BEQZ	branch equal-zero
// OBSOLETE   Br0rxxxx	BEQ	branch equal
// OBSOLETE   7Cxx		BC	branch condition
// OBSOLETE   FCxxxxxx	BC	branch condition (long)
// OBSOLETE   */
// OBSOLETE 
// OBSOLETE static int 
// OBSOLETE isShortBranch (unsigned char *instr)
// OBSOLETE {
// OBSOLETE   unsigned char instr0 = instr[0] & 0x7F;		/* mask off high bit */
// OBSOLETE 
// OBSOLETE   if (instr0 == 0x10 && instr[1] == 0xB6)	/* RTE */
// OBSOLETE     return 1;		/* return from trap or exception */
// OBSOLETE 
// OBSOLETE   if (instr0 == 0x1E || instr0 == 0x1F)		/* JL or JMP */
// OBSOLETE     if ((instr[1] & 0xF0) == 0xC0)
// OBSOLETE       return 2;					/* jump thru a register */
// OBSOLETE 
// OBSOLETE   if (instr0 == 0x7C || instr0 == 0x7D || 	/* BC, BNC, BL, BRA */
// OBSOLETE       instr0 == 0x7E || instr0 == 0x7F)
// OBSOLETE     return 3;					/* eight bit PC offset */
// OBSOLETE 
// OBSOLETE   return 0;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE static int
// OBSOLETE isLongBranch (unsigned char *instr)
// OBSOLETE {
// OBSOLETE   if (instr[0] == 0xFC || instr[0] == 0xFD ||	/* BRA, BNC, BL, BC */
// OBSOLETE       instr[0] == 0xFE || instr[0] == 0xFF)	/* 24 bit relative */
// OBSOLETE     return 4;
// OBSOLETE   if ((instr[0] & 0xF0) == 0xB0)		/* 16 bit relative */
// OBSOLETE     {
// OBSOLETE       if ((instr[1] & 0xF0) == 0x00 || 		/* BNE, BEQ */
// OBSOLETE 	  (instr[1] & 0xF0) == 0x10)
// OBSOLETE 	return 5;
// OBSOLETE       if (instr[0] == 0xB0)	/* BNEZ, BLTZ, BLEZ, BGTZ, BGEZ, BEQZ */
// OBSOLETE 	if ((instr[1] & 0xF0) == 0x80 || (instr[1] & 0xF0) == 0x90 || 
// OBSOLETE 	    (instr[1] & 0xF0) == 0xA0 || (instr[1] & 0xF0) == 0xB0 ||
// OBSOLETE 	    (instr[1] & 0xF0) == 0xC0 || (instr[1] & 0xF0) == 0xD0)
// OBSOLETE 	  return 6;
// OBSOLETE     }
// OBSOLETE   return 0;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* if address is NOT on a 4-byte boundary, or high-bit of instr is zero, 
// OBSOLETE    then it's a 2-byte instruction, else it's a 4-byte instruction.  */
// OBSOLETE 
// OBSOLETE #define INSTRUCTION_SIZE(addr) \
// OBSOLETE     ((((int) addr & 2) || (((unsigned char *) addr)[0] & 0x80) == 0) ? 2 : 4)
// OBSOLETE 
// OBSOLETE static int
// OBSOLETE isBranch (unsigned char *instr)
// OBSOLETE {
// OBSOLETE   if (INSTRUCTION_SIZE(instr) == 2)
// OBSOLETE     return isShortBranch(instr);
// OBSOLETE   else
// OBSOLETE     return isLongBranch(instr);
// OBSOLETE }
// OBSOLETE 
// OBSOLETE static int
// OBSOLETE willBranch (unsigned char *instr, int branchCode)
// OBSOLETE {
// OBSOLETE   switch (branchCode) 
// OBSOLETE     {
// OBSOLETE     case 0:	return 0;	/* not a branch */
// OBSOLETE     case 1:	return 1;	/* RTE */
// OBSOLETE     case 2:	return 1;	/* JL or JMP    */
// OBSOLETE     case 3:			/* BC, BNC, BL, BRA (short) */
// OBSOLETE     case 4:			/* BC, BNC, BL, BRA (long) */
// OBSOLETE       switch (instr[0] & 0x0F) 
// OBSOLETE 	{
// OBSOLETE 	case 0xC:		/* Branch if Condition Register */
// OBSOLETE 	  return (registers[CBR] != 0);
// OBSOLETE 	case 0xD:		/* Branch if NOT Condition Register */
// OBSOLETE 	  return (registers[CBR] == 0);
// OBSOLETE 	case 0xE:		/* Branch and Link */
// OBSOLETE 	case 0xF:		/* Branch (unconditional) */
// OBSOLETE 	  return 1;
// OBSOLETE 	default:		/* oops? */
// OBSOLETE 	  return 0;
// OBSOLETE 	}
// OBSOLETE     case 5: 			/* BNE, BEQ */
// OBSOLETE       switch (instr[1] & 0xF0) 
// OBSOLETE 	{
// OBSOLETE 	case 0x00:		/* Branch if r1 equal to r2 */
// OBSOLETE 	  return (registers[instr[0] & 0x0F] == registers[instr[1] & 0x0F]);
// OBSOLETE 	case 0x10:		/* Branch if r1 NOT equal to r2 */
// OBSOLETE 	  return (registers[instr[0] & 0x0F] != registers[instr[1] & 0x0F]);
// OBSOLETE 	default:		/* oops? */
// OBSOLETE 	  return 0;
// OBSOLETE 	}
// OBSOLETE     case 6: 			/* BNEZ, BLTZ, BLEZ, BGTZ, BGEZ ,BEQZ */
// OBSOLETE       switch (instr[1] & 0xF0) 
// OBSOLETE 	{
// OBSOLETE 	case 0x80:		/* Branch if reg equal to zero */
// OBSOLETE 	  return (registers[instr[1] & 0x0F] == 0);
// OBSOLETE 	case 0x90:		/* Branch if reg NOT equal to zero */
// OBSOLETE 	  return (registers[instr[1] & 0x0F] != 0);
// OBSOLETE 	case 0xA0:		/* Branch if reg less than zero */
// OBSOLETE 	  return (registers[instr[1] & 0x0F] < 0);
// OBSOLETE 	case 0xB0:		/* Branch if reg greater or equal to zero */
// OBSOLETE 	  return (registers[instr[1] & 0x0F] >= 0);
// OBSOLETE 	case 0xC0:		/* Branch if reg less than or equal to zero */
// OBSOLETE 	  return (registers[instr[1] & 0x0F] <= 0);
// OBSOLETE 	case 0xD0:		/* Branch if reg greater than zero */
// OBSOLETE 	  return (registers[instr[1] & 0x0F] > 0);
// OBSOLETE 	default:		/* oops? */
// OBSOLETE 	  return 0;
// OBSOLETE 	}
// OBSOLETE     default:			/* oops? */
// OBSOLETE       return 0;
// OBSOLETE     }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE static int 
// OBSOLETE branchDestination (unsigned char *instr, int branchCode)
// OBSOLETE { 
// OBSOLETE   switch (branchCode) { 
// OBSOLETE   default: 
// OBSOLETE   case 0:					/* not a branch */ 
// OBSOLETE     return 0;
// OBSOLETE   case 1:					/* RTE */ 
// OBSOLETE     return registers[BPC] & ~3; 		/* pop BPC into PC */
// OBSOLETE   case 2: 					/* JL or JMP */ 
// OBSOLETE     return registers[instr[1] & 0x0F] & ~3;	/* jump thru a register */ 
// OBSOLETE   case 3: 		/* BC, BNC, BL, BRA (short, 8-bit relative offset) */ 
// OBSOLETE     return (((int) instr) & ~3) + ((char) instr[1] << 2);
// OBSOLETE   case 4: 		/* BC, BNC, BL, BRA (long, 24-bit relative offset) */ 
// OBSOLETE     return ((int) instr + 
// OBSOLETE 	    ((((char) instr[1] << 16) | (instr[2] << 8) | (instr[3])) << 2)); 
// OBSOLETE   case 5: 		/* BNE, BEQ (16-bit relative offset) */ 
// OBSOLETE   case 6: 		/* BNEZ, BLTZ, BLEZ, BGTZ, BGEZ ,BEQZ (ditto) */ 
// OBSOLETE     return ((int) instr + ((((char) instr[2] << 8) | (instr[3])) << 2)); 
// OBSOLETE   }
// OBSOLETE 
// OBSOLETE   /* An explanatory note: in the last three return expressions, I have
// OBSOLETE      cast the most-significant byte of the return offset to char.
// OBSOLETE      What this accomplishes is sign extension.  If the other
// OBSOLETE      less-significant bytes were signed as well, they would get sign
// OBSOLETE      extended too and, if negative, their leading bits would clobber
// OBSOLETE      the bits of the more-significant bytes ahead of them.  There are
// OBSOLETE      other ways I could have done this, but sign extension from
// OBSOLETE      odd-sized integers is always a pain. */
// OBSOLETE }
// OBSOLETE 
// OBSOLETE static void
// OBSOLETE branchSideEffects (unsigned char *instr, int branchCode)
// OBSOLETE {
// OBSOLETE   switch (branchCode)
// OBSOLETE     {
// OBSOLETE     case 1:			/* RTE */
// OBSOLETE       return;			/* I <THINK> this is already handled... */
// OBSOLETE     case 2:			/* JL (or JMP) */
// OBSOLETE     case 3:			/* BL (or BC, BNC, BRA) */
// OBSOLETE     case 4:
// OBSOLETE       if ((instr[0] & 0x0F) == 0x0E)		/* branch/jump and link */
// OBSOLETE 	registers[R14] = (registers[PC] & ~3) + 4;
// OBSOLETE       return;
// OBSOLETE     default:			/* any other branch has no side effects */
// OBSOLETE       return;
// OBSOLETE     }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE static struct STEPPING_CONTEXT {
// OBSOLETE   int stepping;			/* true when we've started a single-step */
// OBSOLETE   unsigned long  target_addr;	/* the instr we're trying to execute */
// OBSOLETE   unsigned long  target_size;	/* the size of the target instr */
// OBSOLETE   unsigned long  noop_addr;	/* where we've inserted a no-op, if any */
// OBSOLETE   unsigned long  trap1_addr;	/* the trap following the target instr */
// OBSOLETE   unsigned long  trap2_addr;	/* the trap at a branch destination, if any */
// OBSOLETE   unsigned short noop_save;	/* instruction overwritten by our no-op */
// OBSOLETE   unsigned short trap1_save;	/* instruction overwritten by trap1 */
// OBSOLETE   unsigned short trap2_save;	/* instruction overwritten by trap2 */
// OBSOLETE   unsigned short continue_p;	/* true if NOT returning to gdb after step */
// OBSOLETE } stepping;
// OBSOLETE 
// OBSOLETE /* Function: prepare_to_step
// OBSOLETE    Called from handle_exception to prepare the user program to single-step.
// OBSOLETE    Places a trap instruction after the target instruction, with special 
// OBSOLETE    extra handling for branch instructions and for instructions in the 
// OBSOLETE    second half-word of a word.  
// OBSOLETE 
// OBSOLETE    Returns: True  if we should actually execute the instruction; 
// OBSOLETE 	    False if we are going to emulate executing the instruction,
// OBSOLETE 	    in which case we simply report to GDB that the instruction 
// OBSOLETE 	    has already been executed.  */
// OBSOLETE 
// OBSOLETE #define TRAP1  0x10f1;	/* trap #1 instruction */
// OBSOLETE #define NOOP   0x7000;  /* noop    instruction */
// OBSOLETE 
// OBSOLETE static unsigned short trap1 = TRAP1;
// OBSOLETE static unsigned short noop  = NOOP;
// OBSOLETE 
// OBSOLETE static int
// OBSOLETE prepare_to_step(continue_p)
// OBSOLETE      int continue_p;	/* if this isn't REALLY a single-step (see below) */
// OBSOLETE {
// OBSOLETE   unsigned long pc = registers[PC];
// OBSOLETE   int branchCode   = isBranch((unsigned char *) pc);
// OBSOLETE   unsigned char *p;
// OBSOLETE 
// OBSOLETE   /* zero out the stepping context 
// OBSOLETE      (paranoia -- it should already be zeroed) */
// OBSOLETE   for (p = (unsigned char *) &stepping;
// OBSOLETE        p < ((unsigned char *) &stepping) + sizeof(stepping);
// OBSOLETE        p++)
// OBSOLETE     *p = 0;
// OBSOLETE 
// OBSOLETE   if (branchCode != 0)			/* next instruction is a branch */
// OBSOLETE     {
// OBSOLETE       branchSideEffects((unsigned char *) pc, branchCode);
// OBSOLETE       if (willBranch((unsigned char *)pc, branchCode))
// OBSOLETE 	registers[PC] = branchDestination((unsigned char *) pc, branchCode);
// OBSOLETE       else
// OBSOLETE 	registers[PC] = pc + INSTRUCTION_SIZE(pc);
// OBSOLETE       return 0;			/* branch "executed" -- just notify GDB */
// OBSOLETE     }
// OBSOLETE   else if (((int) pc & 2) != 0)		/* "second-slot" instruction */
// OBSOLETE     {
// OBSOLETE       /* insert no-op before pc */
// OBSOLETE       stepping.noop_addr  =  pc - 2;
// OBSOLETE       stepping.noop_save  = *(unsigned short *) stepping.noop_addr;
// OBSOLETE       *(unsigned short *) stepping.noop_addr  = noop;
// OBSOLETE       /* insert trap  after  pc */
// OBSOLETE       stepping.trap1_addr =  pc + 2;
// OBSOLETE       stepping.trap1_save = *(unsigned short *) stepping.trap1_addr;
// OBSOLETE       *(unsigned short *) stepping.trap1_addr = trap1;
// OBSOLETE     }
// OBSOLETE   else					/* "first-slot" instruction */
// OBSOLETE     {
// OBSOLETE       /* insert trap  after  pc */
// OBSOLETE       stepping.trap1_addr = pc + INSTRUCTION_SIZE(pc);	
// OBSOLETE       stepping.trap1_save = *(unsigned short *) stepping.trap1_addr;
// OBSOLETE       *(unsigned short *) stepping.trap1_addr = trap1;
// OBSOLETE     }
// OBSOLETE   /* "continue_p" means that we are actually doing a continue, and not 
// OBSOLETE      being requested to single-step by GDB.  Sometimes we have to do
// OBSOLETE      one single-step before continuing, because the PC is on a half-word
// OBSOLETE      boundary.  There's no way to simply resume at such an address.  */
// OBSOLETE   stepping.continue_p = continue_p;
// OBSOLETE   stepping.stepping = 1;		/* starting a single-step */
// OBSOLETE   return 1;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* Function: finish_from_step
// OBSOLETE    Called from handle_exception to finish up when the user program 
// OBSOLETE    returns from a single-step.  Replaces the instructions that had
// OBSOLETE    been overwritten by traps or no-ops, 
// OBSOLETE 
// OBSOLETE    Returns: True  if we should notify GDB that the target stopped.
// OBSOLETE 	    False if we only single-stepped because we had to before we
// OBSOLETE 	    could continue (ie. we were trying to continue at a 
// OBSOLETE 	    half-word boundary).  In that case don't notify GDB:
// OBSOLETE 	    just "continue continuing".  */
// OBSOLETE 
// OBSOLETE static int
// OBSOLETE finish_from_step (void)
// OBSOLETE {
// OBSOLETE   if (stepping.stepping)	/* anything to do? */
// OBSOLETE     {
// OBSOLETE       int continue_p = stepping.continue_p;
// OBSOLETE       unsigned char *p;
// OBSOLETE 
// OBSOLETE       if (stepping.noop_addr)	/* replace instr "under" our no-op */
// OBSOLETE 	*(unsigned short *) stepping.noop_addr  = stepping.noop_save;
// OBSOLETE       if (stepping.trap1_addr)	/* replace instr "under" our trap  */
// OBSOLETE 	*(unsigned short *) stepping.trap1_addr = stepping.trap1_save;
// OBSOLETE       if (stepping.trap2_addr)  /* ditto our other trap, if any    */
// OBSOLETE 	*(unsigned short *) stepping.trap2_addr = stepping.trap2_save;
// OBSOLETE 
// OBSOLETE       for (p = (unsigned char *) &stepping;	/* zero out the stepping context */
// OBSOLETE 	   p < ((unsigned char *) &stepping) + sizeof(stepping);
// OBSOLETE 	   p++)
// OBSOLETE 	*p = 0;
// OBSOLETE 
// OBSOLETE       return !(continue_p);
// OBSOLETE     }
// OBSOLETE   else 	/* we didn't single-step, therefore this must be a legitimate stop */
// OBSOLETE     return 1;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE struct PSWreg {		/* separate out the bit flags in the PSW register */
// OBSOLETE   int pad1 : 16;
// OBSOLETE   int bsm  : 1;
// OBSOLETE   int bie  : 1;
// OBSOLETE   int pad2 : 5;
// OBSOLETE   int bc   : 1;
// OBSOLETE   int sm   : 1;
// OBSOLETE   int ie   : 1;
// OBSOLETE   int pad3 : 5;
// OBSOLETE   int c    : 1;
// OBSOLETE } *psw;
// OBSOLETE 
// OBSOLETE /* Upon entry the value for LR to save has been pushed.
// OBSOLETE    We unpush that so that the value for the stack pointer saved is correct.
// OBSOLETE    Upon entry, all other registers are assumed to have not been modified
// OBSOLETE    since the interrupt/trap occured.  */
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE stash_registers:
// OBSOLETE 	push r0
// OBSOLETE 	push r1
// OBSOLETE 	seth r1, #shigh(registers)
// OBSOLETE 	add3 r1, r1, #low(registers)
// OBSOLETE 	pop r0		; r1
// OBSOLETE 	st r0, @(4,r1)
// OBSOLETE 	pop r0		; r0
// OBSOLETE 	st r0, @r1
// OBSOLETE 	addi r1, #4	; only add 4 as subsequent saves are `pre inc'
// OBSOLETE 	st r2, @+r1
// OBSOLETE 	st r3, @+r1
// OBSOLETE 	st r4, @+r1
// OBSOLETE 	st r5, @+r1
// OBSOLETE 	st r6, @+r1
// OBSOLETE 	st r7, @+r1
// OBSOLETE 	st r8, @+r1
// OBSOLETE 	st r9, @+r1
// OBSOLETE 	st r10, @+r1
// OBSOLETE 	st r11, @+r1
// OBSOLETE 	st r12, @+r1
// OBSOLETE 	st r13, @+r1    ; fp
// OBSOLETE 	pop r0		; lr (r14)
// OBSOLETE 	st r0, @+r1
// OBSOLETE 	st sp, @+r1	; sp contains right value at this point
// OBSOLETE 	mvfc r0, cr0
// OBSOLETE 	st r0, @+r1	; cr0 == PSW
// OBSOLETE 	mvfc r0, cr1
// OBSOLETE 	st r0, @+r1	; cr1 == CBR
// OBSOLETE 	mvfc r0, cr2
// OBSOLETE 	st r0, @+r1	; cr2 == SPI
// OBSOLETE 	mvfc r0, cr3
// OBSOLETE 	st r0, @+r1	; cr3 == SPU
// OBSOLETE 	mvfc r0, cr6
// OBSOLETE 	st r0, @+r1	; cr6 == BPC
// OBSOLETE 	st r0, @+r1	; PC  == BPC
// OBSOLETE 	mvfaclo r0
// OBSOLETE 	st r0, @+r1	; ACCL
// OBSOLETE 	mvfachi r0
// OBSOLETE 	st r0, @+r1	; ACCH
// OBSOLETE 	jmp lr");
// OBSOLETE 
// OBSOLETE /* C routine to clean up what stash_registers did.
// OBSOLETE    It is called after calling stash_registers.
// OBSOLETE    This is separate from stash_registers as we want to do this in C
// OBSOLETE    but doing stash_registers in C isn't straightforward.  */
// OBSOLETE 
// OBSOLETE static void
// OBSOLETE cleanup_stash (void)
// OBSOLETE {
// OBSOLETE   psw = (struct PSWreg *) &registers[PSW];	/* fields of PSW register */
// OBSOLETE   psw->sm = psw->bsm;		/* fix up pre-trap values of psw fields */
// OBSOLETE   psw->ie = psw->bie;
// OBSOLETE   psw->c  = psw->bc;
// OBSOLETE   registers[CBR] = psw->bc;		/* fix up pre-trap "C" register */
// OBSOLETE 
// OBSOLETE #if 0 /* FIXME: Was in previous version.  Necessary?
// OBSOLETE 	 (Remember that we use the "rte" insn to return from the
// OBSOLETE 	 trap/interrupt so the values of bsm, bie, bc are important.  */
// OBSOLETE   psw->bsm = psw->bie = psw->bc = 0;	/* zero post-trap values */
// OBSOLETE #endif
// OBSOLETE 
// OBSOLETE   /* FIXME: Copied from previous version.  This can probably be deleted
// OBSOLETE      since methinks stash_registers has already done this.  */
// OBSOLETE   registers[PC] = registers[BPC];	/* pre-trap PC */
// OBSOLETE 
// OBSOLETE   /* FIXME: Copied from previous version.  Necessary?  */
// OBSOLETE   if (psw->sm)			/* copy R15 into (psw->sm ? SPU : SPI) */
// OBSOLETE     registers[SPU] = registers[R15];
// OBSOLETE   else
// OBSOLETE     registers[SPI] = registers[R15];
// OBSOLETE }
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE restore_and_return:
// OBSOLETE 	seth r0, #shigh(registers+8)
// OBSOLETE 	add3 r0, r0, #low(registers+8)
// OBSOLETE 	ld r2, @r0+	; restore r2
// OBSOLETE 	ld r3, @r0+	; restore r3
// OBSOLETE 	ld r4, @r0+	; restore r4
// OBSOLETE 	ld r5, @r0+	; restore r5
// OBSOLETE 	ld r6, @r0+	; restore r6
// OBSOLETE 	ld r7, @r0+	; restore r7
// OBSOLETE 	ld r8, @r0+	; restore r8
// OBSOLETE 	ld r9, @r0+	; restore r9
// OBSOLETE 	ld r10, @r0+	; restore r10
// OBSOLETE 	ld r11, @r0+	; restore r11
// OBSOLETE 	ld r12, @r0+	; restore r12
// OBSOLETE 	ld r13, @r0+	; restore r13
// OBSOLETE 	ld r14, @r0+	; restore r14
// OBSOLETE 	ld r15, @r0+	; restore r15
// OBSOLETE 	addi r0, #4	; don't restore PSW (rte will do it)
// OBSOLETE 	ld r1, @r0+	; restore cr1 == CBR (no-op, because it's read only)
// OBSOLETE 	mvtc r1, cr1
// OBSOLETE 	ld r1, @r0+	; restore cr2 == SPI
// OBSOLETE 	mvtc r1, cr2
// OBSOLETE 	ld r1, @r0+	; restore cr3 == SPU
// OBSOLETE 	mvtc r1, cr3
// OBSOLETE 	addi r0, #4	; skip BPC
// OBSOLETE 	ld r1, @r0+	; restore cr6 (BPC) == PC
// OBSOLETE 	mvtc r1, cr6
// OBSOLETE 	ld r1, @r0+	; restore ACCL
// OBSOLETE 	mvtaclo r1
// OBSOLETE 	ld r1, @r0+	; restore ACCH
// OBSOLETE 	mvtachi r1
// OBSOLETE 	seth r0, #shigh(registers)
// OBSOLETE 	add3 r0, r0, #low(registers)
// OBSOLETE 	ld r1, @(4,r0)	; restore r1
// OBSOLETE 	ld r0, @r0	; restore r0
// OBSOLETE 	rte");
// OBSOLETE 
// OBSOLETE /* General trap handler, called after the registers have been stashed.
// OBSOLETE    NUM is the trap/exception number.  */
// OBSOLETE 
// OBSOLETE static void
// OBSOLETE process_exception (int num)
// OBSOLETE {
// OBSOLETE   cleanup_stash ();
// OBSOLETE   asm volatile ("
// OBSOLETE 	seth r1, #shigh(stackPtr)
// OBSOLETE 	add3 r1, r1, #low(stackPtr)
// OBSOLETE 	ld r15, @r1		; setup local stack (protect user stack)
// OBSOLETE 	mv r0, %0
// OBSOLETE 	bl handle_exception
// OBSOLETE 	bl restore_and_return"
// OBSOLETE 		: : "r" (num) : "r0", "r1");
// OBSOLETE }
// OBSOLETE 
// OBSOLETE void _catchException0 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException0:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #0
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException1 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException1:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	bl cleanup_stash
// OBSOLETE 	seth r1, #shigh(stackPtr)
// OBSOLETE 	add3 r1, r1, #low(stackPtr)
// OBSOLETE 	ld r15, @r1		; setup local stack (protect user stack)
// OBSOLETE 	seth r1, #shigh(registers + 21*4) ; PC
// OBSOLETE 	add3 r1, r1, #low(registers + 21*4)
// OBSOLETE 	ld r0, @r1
// OBSOLETE 	addi r0, #-4		; back up PC for breakpoint trap.
// OBSOLETE 	st r0, @r1		; FIXME: what about bp in right slot?
// OBSOLETE 	ldi r0, #1
// OBSOLETE 	bl handle_exception
// OBSOLETE 	bl restore_and_return");
// OBSOLETE 
// OBSOLETE void _catchException2 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException2:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #2
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException3 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException3:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #3
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException4 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException4:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #4
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException5 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException5:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #5
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException6 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException6:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #6
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException7 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException7:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #7
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException8 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException8:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #8
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException9 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException9:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #9
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException10 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException10:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #10
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException11 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException11:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #11
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException12 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException12:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #12
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException13 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException13:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #13
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException14 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException14:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #14
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException15 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException15:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #15
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException16 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException16:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #16
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE void _catchException17 ();
// OBSOLETE 
// OBSOLETE asm ("
// OBSOLETE _catchException17:
// OBSOLETE 	push lr
// OBSOLETE 	bl stash_registers
// OBSOLETE 	; Note that at this point the pushed value of `lr' has been popped
// OBSOLETE 	ldi r0, #17
// OBSOLETE 	bl process_exception");
// OBSOLETE 
// OBSOLETE 
// OBSOLETE /* this function is used to set up exception handlers for tracing and
// OBSOLETE    breakpoints */
// OBSOLETE void 
// OBSOLETE set_debug_traps (void)
// OBSOLETE {
// OBSOLETE   /*  extern void remcomHandler(); */
// OBSOLETE   int i;
// OBSOLETE 
// OBSOLETE   for (i = 0; i < 18; i++)		/* keep a copy of old vectors */
// OBSOLETE     if (save_vectors[i] == 0)		/* only copy them the first time */
// OBSOLETE       save_vectors[i] = getExceptionHandler (i);
// OBSOLETE 
// OBSOLETE   stackPtr  = &remcomStack[STACKSIZE/sizeof(int) - 1];
// OBSOLETE 
// OBSOLETE   exceptionHandler (0, _catchException0);
// OBSOLETE   exceptionHandler (1, _catchException1);
// OBSOLETE   exceptionHandler (2, _catchException2);
// OBSOLETE   exceptionHandler (3, _catchException3);
// OBSOLETE   exceptionHandler (4, _catchException4);
// OBSOLETE   exceptionHandler (5, _catchException5);
// OBSOLETE   exceptionHandler (6, _catchException6);
// OBSOLETE   exceptionHandler (7, _catchException7);
// OBSOLETE   exceptionHandler (8, _catchException8);
// OBSOLETE   exceptionHandler (9, _catchException9);
// OBSOLETE   exceptionHandler (10, _catchException10);
// OBSOLETE   exceptionHandler (11, _catchException11);
// OBSOLETE   exceptionHandler (12, _catchException12);
// OBSOLETE   exceptionHandler (13, _catchException13);
// OBSOLETE   exceptionHandler (14, _catchException14);
// OBSOLETE   exceptionHandler (15, _catchException15);
// OBSOLETE   exceptionHandler (16, _catchException16);
// OBSOLETE   /*  exceptionHandler (17, _catchException17); */
// OBSOLETE 
// OBSOLETE   initialized = 1;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* This function will generate a breakpoint exception.  It is used at the
// OBSOLETE    beginning of a program to sync up with a debugger and can be used
// OBSOLETE    otherwise as a quick means to stop program execution and "break" into
// OBSOLETE    the debugger. */
// OBSOLETE 
// OBSOLETE #define BREAKPOINT() asm volatile ("	trap #2");
// OBSOLETE 
// OBSOLETE void 
// OBSOLETE breakpoint (void)
// OBSOLETE {
// OBSOLETE   if (initialized)
// OBSOLETE     BREAKPOINT();
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* STDOUT section:
// OBSOLETE    Stuff pertaining to simulating stdout by sending chars to gdb to be echoed.
// OBSOLETE    Functions: gdb_putchar(char ch)
// OBSOLETE               gdb_puts(char *str)
// OBSOLETE               gdb_write(char *str, int len)
// OBSOLETE               gdb_error(char *format, char *parm)
// OBSOLETE 	      */
// OBSOLETE  
// OBSOLETE /* Function: gdb_putchar(int)
// OBSOLETE    Make gdb write a char to stdout.
// OBSOLETE    Returns: the char */
// OBSOLETE  
// OBSOLETE static int
// OBSOLETE gdb_putchar (int ch)
// OBSOLETE {
// OBSOLETE   char buf[4];
// OBSOLETE  
// OBSOLETE   buf[0] = 'O';
// OBSOLETE   buf[1] = hexchars[ch >> 4];
// OBSOLETE   buf[2] = hexchars[ch & 0x0F];
// OBSOLETE   buf[3] = 0;
// OBSOLETE   putpacket(buf);
// OBSOLETE   return ch;
// OBSOLETE }
// OBSOLETE  
// OBSOLETE /* Function: gdb_write(char *, int)
// OBSOLETE    Make gdb write n bytes to stdout (not assumed to be null-terminated).
// OBSOLETE    Returns: number of bytes written */
// OBSOLETE  
// OBSOLETE static int
// OBSOLETE gdb_write (char *data, int len)
// OBSOLETE {
// OBSOLETE   char *buf, *cpy;
// OBSOLETE   int i;
// OBSOLETE  
// OBSOLETE   buf = remcomOutBuffer;
// OBSOLETE   buf[0] = 'O';
// OBSOLETE   i = 0;
// OBSOLETE   while (i < len)
// OBSOLETE     {
// OBSOLETE       for (cpy = buf+1; 
// OBSOLETE 	   i < len && cpy < buf + sizeof(remcomOutBuffer) - 3; 
// OBSOLETE 	   i++)
// OBSOLETE 	{
// OBSOLETE 	  *cpy++ = hexchars[data[i] >> 4];
// OBSOLETE 	  *cpy++ = hexchars[data[i] & 0x0F];
// OBSOLETE 	}
// OBSOLETE       *cpy = 0;
// OBSOLETE       putpacket(buf);
// OBSOLETE     }
// OBSOLETE   return len;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* Function: gdb_puts(char *)
// OBSOLETE    Make gdb write a null-terminated string to stdout.
// OBSOLETE    Returns: the length of the string */
// OBSOLETE  
// OBSOLETE static int
// OBSOLETE gdb_puts (char *str)
// OBSOLETE {
// OBSOLETE   return gdb_write(str, strlen(str));
// OBSOLETE }
// OBSOLETE  
// OBSOLETE /* Function: gdb_error(char *, char *)
// OBSOLETE    Send an error message to gdb's stdout.
// OBSOLETE    First string may have 1 (one) optional "%s" in it, which
// OBSOLETE    will cause the optional second string to be inserted.  */
// OBSOLETE  
// OBSOLETE static void
// OBSOLETE gdb_error (char *format, char *parm)
// OBSOLETE {
// OBSOLETE   char buf[400], *cpy;
// OBSOLETE   int len;
// OBSOLETE  
// OBSOLETE   if (remote_debug)
// OBSOLETE     {
// OBSOLETE       if (format && *format)
// OBSOLETE 	len = strlen(format);
// OBSOLETE       else
// OBSOLETE 	return;             /* empty input */
// OBSOLETE 
// OBSOLETE       if (parm && *parm)
// OBSOLETE 	len += strlen(parm);
// OBSOLETE  
// OBSOLETE       for (cpy = buf; *format; )
// OBSOLETE 	{
// OBSOLETE 	  if (format[0] == '%' && format[1] == 's') /* include second string */
// OBSOLETE 	    {
// OBSOLETE 	      format += 2;          /* advance two chars instead of just one */
// OBSOLETE 	      while (parm && *parm)
// OBSOLETE 		*cpy++ = *parm++;
// OBSOLETE 	    }
// OBSOLETE 	  else
// OBSOLETE 	    *cpy++ = *format++;
// OBSOLETE 	}
// OBSOLETE       *cpy = '\0';
// OBSOLETE       gdb_puts(buf);
// OBSOLETE     }
// OBSOLETE }
// OBSOLETE  
// OBSOLETE static unsigned char *
// OBSOLETE strcpy (unsigned char *dest, const unsigned char *src)
// OBSOLETE {
// OBSOLETE   unsigned char *ret = dest;
// OBSOLETE 
// OBSOLETE   if (dest && src)
// OBSOLETE     {
// OBSOLETE       while (*src)
// OBSOLETE 	*dest++ = *src++;
// OBSOLETE       *dest = 0;
// OBSOLETE     }
// OBSOLETE   return ret;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE static int
// OBSOLETE strlen (const unsigned char *src)
// OBSOLETE {
// OBSOLETE   int ret;
// OBSOLETE 
// OBSOLETE   for (ret = 0; *src; src++)
// OBSOLETE     ret++;
// OBSOLETE 
// OBSOLETE   return ret;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE #if 0
// OBSOLETE void exit (code)
// OBSOLETE      int code;
// OBSOLETE {
// OBSOLETE   _exit (code);
// OBSOLETE }
// OBSOLETE 
// OBSOLETE int atexit (void *p)
// OBSOLETE {
// OBSOLETE   return 0;
// OBSOLETE }
// OBSOLETE 
// OBSOLETE void abort (void)
// OBSOLETE {
// OBSOLETE   _exit (1);
// OBSOLETE }
// OBSOLETE #endif