/* * *	debugger * */ #include "defs.h"#include "fns.h" extern	char	lastc, peekc; voidscanform(WORD icount, int prt, char *ifp, Map *map, int itype, int ptype){	char	*fp;	char	c;	int	fcount;	ADDR	savdot;	int firstpass; 	firstpass = 1;	while (icount) {		fp=ifp;		savdot=dot;		/*now loop over format*/		while (*fp && errflg==0) {			if (!isdigit(*fp))				fcount = 1;			else {				fcount = 0;				while (isdigit(c = *fp++)) {					fcount *= 10;					fcount += c-'0';				}				fp--;			}			if (*fp==0)				break;			fp=exform(fcount,prt,fp,map,itype,ptype,firstpass);			firstpass = 0;		}		dotinc=dot-savdot;		dot=savdot;		if (errflg) {			if (icount<0) {				errflg=0;				break;			}			else				error(errflg);		}		if (--icount)			dot=inkdot(dotinc);		if (mkfault)			error(0);	}} char *exform(int fcount, int prt, char *ifp, Map *map, int itype, int ptype, int firstpass){	/* execute single format item `fcount' times	 * sets `dotinc' and moves `dot'	 * returns address of next format item	 */	WORD	w;	ADDR	savdot;	char	*fp;	char	c, modifier;	int	i;	ushort sh;	uchar ch;	char	buf[32];	Symbol s; 	fp = 0;	while (fcount > 0) {		fp = ifp;		c = *fp;		modifier = *fp++;		if (firstpass) {			firstpass = 0;			if (itype != SEGNONE  && (c == 'i' || c == 'I' || c == 'M')					&& (dot & (mach->pcquant-1))) {				dprint("warning: instruction not aligned");				printc(EOR);			}			if (prt)				psymoff((WORD)dot,itype,map==symmap?"?%16t":"/%16t");		}		if (charpos()==0 && modifier!='a')			dprint("\t\t");		switch(modifier) { 		case SPC:		case TB:			dotinc = 0;			break; 		case 't':		case 'T':			dprint("%*t", fcount);			dotinc = 0;			return(fp); 		case 'a':			psymoff((WORD)dot, ptype, map==symmap ?"?%16t":"/%16t");			dotinc = 0;			break; 		case 'p':			if (get4(map, dot, itype, &w) == 0)				return (fp);			if (mkfault)				return (0);			psymoff(w, ptype, "%16t");			dotinc = mach->szaddr;			break; 		case 'u':		case 'd':		case 'x':		case 'o':		case 'q':			if (get2(map, dot, itype, &sh) == 0)				return (fp);			w = sh;			if (mkfault)				return (0);			dotinc = 2;			if (c == 'u')				dprint("%-8lud", w);			else if (c == 'x')				dprint("%-8lux", w);			else if (c == 'd')				dprint("%-8ld", w);			else if (c == 'o')				dprint("%-8#luo", w);			else if (c == 'q')				dprint("%-8#lo", w);			break; 		case 'U':		case 'D':		case 'X':		case 'O':		case 'Q':			if (get4(map, dot, itype, &w) == 0)				return (fp);			if (mkfault)				return (0);			dotinc = 4;			if (c == 'U')				dprint("%-16lud", w);			else if (c == 'X')				dprint("%-16lux", w);			else if (c == 'D')				dprint("%-16ld", w);			else if (c == 'O')				dprint("%-#16luo", w);			else if (c == 'Q')				dprint("%-#16lo", w);			break;		case 'B':		case 'b':		case 'c':		case 'C':			if (get1(map, dot, itype, &ch, 1) == 0)				return (fp);			if (mkfault)				return (0);			if (modifier == 'C')				printesc(ch);			else if (modifier == 'B' || modifier == 'b')				dprint("%-8lux", (long) ch);			else				printc(ch);			dotinc = 1;			break; 		case 'r':			if (get2(map, dot, itype, &sh) == 0)				return (fp);			w = sh;			if (mkfault)				return (0);			dprint("%C", w);			dotinc = 2;			break; 		case 'R':			savdot=dot;			dotinc=2;			while (get2(map, dot,itype, &sh) && sh) {				dot=inkdot(2);				dprint("%C", sh);				endline();			}			dotinc = dot-savdot+2;			dot=savdot;			break; 		case 's':			savdot = dot;			for(;;){				i = 0;				do{					if (get1(map, dot, itype, (uchar *) &buf[i], 1) == 0)						return fp;					dot = inkdot(1);					i++;				}while(!fullrune(buf, i));				if(buf[0] == 0)					break;				buf[i] = 0;				dprint("%s", buf);				endline();			}			dotinc = dot-savdot+1;			dot = savdot;			break; 		case 'S':			savdot=dot;			dotinc=1;			while (get1(map, dot,itype, &ch, 1) && ch) {				dot=inkdot(1);				printesc(ch);				endline();			}			dotinc = dot-savdot+1;			dot=savdot;			break; 		case 'Y':			get4(map, dot, itype, &w);			printdate(w);			dotinc = 4;			break; 		case 'I':		case 'i':			machdata->printins(map, modifier, itype);			printc(EOR);			break; 		case 'M':			machdata->printdas(map, itype);			break; 		case 'f':			if (get1(map, dot, itype, (uchar *)buf, mach->szfloat) == 0)				return (fp);			if (mkfault)				return (0);			machdata->sfpout(buf);			dotinc = mach->szfloat;			break; 		case 'F':			if (get1(map, dot, itype, (uchar *) buf, mach->szdouble) == 0)				return (fp);			if (mkfault)				return (0);			machdata->dfpout(buf);			dotinc = mach->szdouble;			break; 		case 'n':		case 'N':			printc('\n');			dotinc=0;			break; 		case '"':			dotinc=0;			while (*fp != '"' && *fp)				printc(*fp++);			if (*fp)				fp++;			break; 		case '^':			dot=inkdot(-dotinc*fcount);			return(fp); 		case '+':			dot=inkdot((WORD)fcount);			return(fp); 		case '-':			dot=inkdot(-(WORD)fcount);			return(fp); 		case 'z':			if (findsym(dot, CTEXT, &s))				dprint("%s() ", s.name);			printsource(dot);			printc(EOR);			return fp; 		default:			error("bad modifier");		}		if (itype != SEGNONE)			dot=inkdot(dotinc);		fcount--;		endline();	} 	return(fp);} voidprintesc(int c){	static char hex[] = "0123456789abcdef"; 	if (c < SPC || c >= 0177)		dprint("\\x%c%c", hex[(c&0xF0)>>4], hex[c&0xF]);	else		printc(c);} ADDRinkdot(WORD incr){	ADDR	newdot; 	newdot=dot+incr;	if ((incr >= 0 && newdot < dot)	||  (incr < 0 && newdot > dot))		error("address wraparound");	return(newdot);}