debug.c

/* File: debug.c
   Author: Douglas Jones, Dept. of Comp. Sci., U. of Iowa, Iowa City, IA 52242.
   Date: July 26, 1995
   Updates: Mats Engstrom, April 2020
   Language: C (UNIX)
   Purpose: PDP-8 emulator debugging tool

*/

#include <stdio.h>
#include "bus.h"
#include "ttyaccess.h"
#include "disasm.h"

/***********************************/
/* instruction frequency histogram */
/***********************************/

static int instructions[4096];
static int locations[32768];


/***********************************************/
/* Initialization used by CAF and reset switch */
/***********************************************/

void reset_debug(void) /* power-on initialize */
{
	int i;
	for (i=0; i<4096; i++) {
		instructions[i] = 0;
	}
	for (i=0; i<32768; i++) {
		locations[i] = 0;
	}
}


/************************/
/* Accumulate histogram */
/************************/

void accumulate_debug(int p, int m, int ac, int lnk, int irq)
{
	// static int prevp[16];
	// static long int cnt=0;

	instructions[m]++;
	locations[p]++;

	if (trace) {
	// if (p==prevp[0] || p==prevp[1] || p==prevp[2]) {
	// 	cnt++;
	// } else {
			fprintf(stderr,"[%04o] IRQ,DLY,IE=%d,%d,%d L/AC:%d/%04o MQ:%04o IR:%04o %s\r\n",pc,irq,(enab_rtf?0:1),enab,(lnk?1:0),ac,mq,m,ops[m]);
			// if (cnt>0) {
			// 	fprintf(stderr,"      [ %ld repeated instructions removed ]\r\n",cnt);
			// 	cnt=0;
			// }
//			fprintf(stderr,"%o.%04o (%d) [%04o %04o %04o %04o %04o %04o %04o %04o] %05o:%04o  %s\r\n",(lnk?1:0),ac,irq, memory[010],memory[011],memory[012],memory[013],memory[014],memory[015],memory[016],memory[017], p,m,ops[m]);
//			fprintf(stderr,"%o.%04o (%d) %05o:%04o  %s\r\n",(lnk?1:0),ac,irq,p,m,ops[m]);
			// prevp[0]=prevp[1];
			// prevp[1]=prevp[2];
			// prevp[2]=p;
	// }
	}
	if (bp_type[0]==1 && bp[0]==pc) run=0;
}


/************************/
/* Interface to console */
/************************/

void output_debug(void) /* show histogram */
{
	// int i;
	// char buf[80];

	// sprintf( buf, "\r\nCumulative information since last report\r\n");
	// ttyputs( buf );
	// sprintf( buf, "\r\nInstructions that were fetched\r\n");
	// ttyputs( buf );
	// sprintf( buf, " Instruction: Frequency\r\n");
	// ttyputs( buf );
	// for (i=0; i<4096; i++) {
	// 	if (instructions[i] > 0) {
	// 		sprintf( buf, "	%04o: /%6d\r\n", i, instructions[i]);
	// 		ttyputs( buf );
	// 	}
	// }

	// sprintf( buf, "\r\nLocations that were fetched from\r\n");
	// ttyputs( buf );
	// sprintf( buf, "     Address: Frequency\r\n");
	// ttyputs( buf );
	// for (i=0; i<32768; i++) {
	// 	if (locations[i] > 0) {
	// 		sprintf( buf, "	%04o: /%6d\r\n", i, locations[i]);
	// 		ttyputs( buf );
	// 	}
	// }
	reset_debug();
}