V10/cmd/kasb/kas3.c

/* @(#)kas3.c	1.2 */
#undef	vax
#define	pdp11	1
#include <stdio.h>
#include "a.out.h"
#include <sys/kmc.h>
#include "kas.h"

debug(in, x)
union {
	int	val;
	char *	ptr;
} x;
{
	register i, j, cnt;
	int	flag, fd;
	char	s[8];
#ifdef vax
	struct filehdr fhdr;
	struct aouthdr hdr;
	extern struct scnhdr scn;
#define	a_magic	magic
#define	a_text	tsize
#define	a_data	dsize
#endif
#ifdef pdp11
	extern struct exec hdr;
#endif

	if (dbmode==0) {
		yyerror("not in debug mode");
		return;
	}
	switch(in) {
	case DLOAD:
		if (x.ptr == 0)
			x.ptr = "a.out";
		if ((fd = open(x.ptr, 0))<0) {
			printf("can not open %s\n", x.ptr);
			return;
		}
		for (i=0; i<NKMCI; i++) ispace[i] = 0;
		for (i=0; i<NKMCD; i++) dspace[i] = 0;
#ifdef vax
		read(fd, &fhdr, sizeof fhdr);
#endif
		read(fd, &hdr, sizeof hdr);
		if (hdr.a_magic==0440) {
			hdr.a_magic = 0410;
#ifdef vax
			lseek(fd, sizeof(struct ir), 1);
#endif
#ifdef pdp11
			lseek(fd, 64L, 0);
#endif
		}
		if (hdr.a_magic!=0410) {
			printf("bad format %s\n",x.ptr);
			close(fd);
			return;
		}
#ifdef vax
		lseek(fd, 2 * sizeof(struct scnhdr), 1);
#endif
		read(fd, ispace, hdr.a_text);
		read(fd, dspace, hdr.a_data);
		lseek(dbfd, 0L, 0);
		write(dbfd, ispace, sizeof ispace);
		write(dbfd, dspace, sizeof dspace);
		close(fd);
		break;
	case DDUMP:
		if (x.ptr == 0)
			x.ptr = "core";
		if (getregs())
			return;
		if ((fd = creat(x.ptr, 0664))<0) {
			printf("can not create %s\n", x.ptr);
			return;
		}
		lseek(dbfd, 0L, 0);
#ifdef vax
		fhdr.f_magic = VAXROMAGIC;
		fhdr.f_nscns = 2;
		fhdr.f_timdat = time(NULL);
		fhdr.f_symptr = 0;
		fhdr.f_nsyms = 0;
		fhdr.f_opthdr = sizeof(struct aouthdr);
		fhdr.f_flags = F_AR32WR|F_LNNO|F_RELFLG;
		write(fd, &fhdr, sizeof fhdr);
#endif
		hdr.a_magic = 0440;
		hdr.a_text = read(dbfd, ispace, sizeof ispace);
		hdr.a_data = read(dbfd, dspace, sizeof dspace);
#ifdef pdp11
		hdr.a_syms = 0;
#endif
		write(fd, &hdr, sizeof hdr);
#ifdef vax
		strncpy(scn.s_name,_TEXT,sizeof(scn.s_name));
		scn.s_size = hdr.tsize;
		scn.s_scnptr = sizeof(struct filehdr) + sizeof(struct aouthdr)
			+ 2 * sizeof(struct scnhdr) + sizeof(struct ir);
		write(fd, &scn, sizeof scn);
		strncpy(scn.s_name,_DATA,sizeof(scn.s_name));
		scn.s_size = hdr.dsize;
		scn.s_scnptr += hdr.tsize;
		write(fd, &scn, sizeof scn);
#endif
		write(fd, &ir, sizeof ir);
		write(fd, ispace, hdr.a_text);
		write(fd, dspace, hdr.a_data);
		close(fd);
		break;
	case DSTEP:
		cnt = x.val?x.val:1;
		s[1] = 0;
		for (i=1; i<=cnt; i++) {
			if (ksty(KSTEP, ir.csr, 0))
				return;
			flag = 0;
			for (j=0; j<8; j++)
				if (s[j]!=ir.csr[j]) {
					flag++;
					s[j] = ir.csr[j];
				}
			if (flag || i==cnt)
				printf("%4d%4o%4o%4o%4o%4o%4o%4o%4o\n",i,
				s[0]&0377,s[1]&0377,s[2]&0377,s[3]&0377,
				s[4]&0377,s[5]&0377,s[6]&0377,s[7]&0377);
		}
		break;
	case DRUN:
	case DSTOP:
	case DRESET:
	case DWCSR:
	case DCLEAR:
		ksty(in, 0, x.val);
		break;
	case DREGS:
		i = getregs();
		printf("%4s:%4o%4o%4o%4o%4o%4o%4o%4o\n",
		"csr",ir.csr[0]&0377,ir.csr[1]&0377,ir.csr[2]&0377,ir.csr[3]&0377,
		ir.csr[4]&0377,ir.csr[5]&0377,ir.csr[6]&0377,ir.csr[7]&0377);
		if (i)
			break;
		printf("%4s:%4o%4o%4o%4o%4o%4o%4o%4o\n",
		"lur",ir.lur[0]&0377,ir.lur[1]&0377,ir.lur[2]&0377,ir.lur[3]&0377,
		ir.lur[4]&0377,ir.lur[5]&0377,ir.lur[6]&0377,ir.lur[7]&0377);
		printf("%4s:%4o%4o%4o%4o%4o%4o%4o%4o\n",
		"reg",ir.reg[0]&0377,ir.reg[1]&0377,ir.reg[2]&0377,ir.reg[3]&0377,
		ir.reg[4]&0377,ir.reg[5]&0377,ir.reg[6]&0377,ir.reg[7]&0377);
		printf("%4s:%4o%4o%4o%4o%4o%4o%4o%4o\n",
		"reg",ir.reg[8+0]&0377,ir.reg[8+1]&0377,ir.reg[8+2]&0377,ir.reg[8+3]&0377,
		ir.reg[8+4]&0377,ir.reg[8+5]&0377,ir.reg[8+6]&0377,ir.reg[8+7]&0377);
		printf("%4s:%4o%4o%4o%4o%4o%4o%4o%4o\n",
		"io",ir.io[0]&0377,ir.io[1]&0377,ir.io[2]&0377,ir.io[3]&0377,
		ir.io[4]&0377,ir.io[5]&0377,ir.io[6]&0377,ir.io[7]&0377);
		printf("%4s:%4o%4o%7s:%4o%7s:%4o\n",
		"npr",ir.npr[0]&0377, ir.npr[1]&0377,"brg",ir.brg&0377,"mem",ir.mem&0377);
		break;
	}
}

mstep(ins)
{
	char	csr[8];

	ksty(KMS, csr, ins);
	return(csr[2]);
}

getregs()
{
	register i;

	if (ksty(KCSR, ir.csr, 0))
		return(1);
	if (ir.csr[1]&0200)
		return(1);
	ir.brg = mstep(061222);
	ir.mem = mstep(041222);
	for (i=0; i<8; i++) {
		ir.lur[i] = mstep(021202|(i<<4));
		ir.io[i] = mstep(021002|(i<<4));
	}
	for (i=0; i<16; i++) {
		mstep(060600|i);
		ir.reg[i] = mstep(061222);
	}
	ir.npr[0] = mstep(0121202);
	ir.npr[1] = mstep(0121222);
	return(0);
}

ksty(tab)
{
	if (ioctl(dbfd, KCSETA, &tab) < 0) {
		printf("%s not stopped\n",dbfile);
		return(1);
	}
	return(0);
}