MON.cpp
/****************************************************************************
* MON - AGC MONITOR subsystem
*
* AUTHOR: John Pultorak
* DATE: 9/22/01
* FILE: MON.cpp
*
* NOTES: see header file.
*
*****************************************************************************
*/
#include <stdio.h>
#ifdef USE_NCURSES
#include <ncurses.h>
#else
#define printw printf
#define endwin()
#endif
#include <stdint.h>
extern int numLogExtras;
extern uint16_t logExtras[];
#include "MON.h"
#include "TPG.h"
#include "MON.h"
#include "SCL.h"
#include "SEQ.h"
#include "INP.h"
#include "OUT.h"
#include "BUS.h"
#include "DSP.h"
#include "ADR.h"
#include "PAR.h"
#include "MBF.h"
#include "MEM.h"
#include "CTR.h"
#include "INT.h"
#include "KBD.h"
#include "CRG.h"
#include "ALU.h"
#include "CPM.h"
#include "ISD.h"
#include "CLK.h"
unsigned MON::PURST = 1; // power up reset; initially high at startup
unsigned MON::RUN = 0; // run/halt switch
unsigned MON::STEP = 0; // single step switch
unsigned MON::INST = 1; // instruction/sequence step select switch
unsigned MON::FCLK = 0; // clock mode
unsigned MON::SA = 0; // "standby allowed" SW; 0=NO (full power), 1=YES (low power)
unsigned MON::SCL_ENAB = 1; // "scaler enabled" SW; 0=NO (scaler halted), 1=YES (scaler running)
int
MON::getPC()
{
unsigned effectiveAddress = CRG::register_Z.read() - 1;
if (effectiveAddress >= 06000)
effectiveAddress = (effectiveAddress % 02000)
| (ADR::register_BNK.read() << 10);
return (effectiveAddress);
}
void
MON::displayAGC()
{
unsigned pc = getPC();
char addressString[32];
if (pc < 06000)
sprintf(addressString, "%04o", pc);
else
sprintf(addressString, "%02o,%04o", 017 & (pc >> 10), 06000 + (pc & 01777));
printw("%s",
"--------------------------------------------------------------------------------------------------------------------\n");
printw("CP(%s): %s\n", TPG::tpTypestring[TPG::register_SG.read()],
SEQ::getControlPulses());
printw("F17: %1d\t\tF13: %1d\t\tF10: %1d\t\tMCT: %-8u\tPC: %s\tflat: %05o\n",
SCL::register_F17.read(), SCL::register_F13.read(),
SCL::register_F10.read(),
(SCL::register_SCL.read() >= 016) ?
((SCL::register_SCL.read() - 016) / 014) : 0, addressString, pc);
printw(
"STA: %01o\t\tSTB: %01o\t\tBR1: %01o\t\tBR2: %01o\t\tSNI: %01o\t\tCI: %01o\t\tLOOPCTR: %01o\n",
SEQ::register_STA.read(), SEQ::register_STB.read(),
SEQ::register_BR1.read(), SEQ::register_BR2.read(),
SEQ::register_SNI.read(), ALU::register_CI.read(),
SEQ::register_LOOPCTR.read());
printw(
"RPCELL: %05o\tINH1: %01o\t\tINH: %01o\t\tUpCELL: %03o\tDnCELL: %03o\tSQ: %02o\t\t%-6s %-6s\n",
INT::register_RPCELL.read(), INT::register_INHINT1.read(),
INT::register_INHINT.read(), CTR::register_UpCELL.read(),
CTR::register_DnCELL.read(), SEQ::register_SQ.read(),
SEQ::instructionString[SEQ::register_SQ.read()],
CPM::subseqString[SEQ::glbl_subseq]);
// For the G register, bit 15 comes from register G15; the other bits (16, 14-1) come
// from register G.
printw(
"S: %04o\t\tG: %06o\tP: %06o\t(r)RUN : %1d\t(p)PURST: %1d\t(t,v)FCLK: %1d\n",
ADR::register_S.read(),
(MBF::register_G.read() & 0137777) | (PAR::register_G15.read() << 14),
PAR::register_P.read(), MON::RUN, MON::PURST, MON::FCLK);
printw("RBU: %06o\tWBU: %06o\tP2: %01o\t\t(s)STEP: %1d\n",
BUS::glbl_READ_BUS & 0177777, BUS::glbl_WRITE_BUS & 0177777,
PAR::register_P2.read(), MON::STEP);
char parityAlm = ' ';
if (PAR::register_PALM.read())
parityAlm = '*';
printw("B: %06o\tCADR: %06o\t(n)INST: %1d\tPALM: [%c]\n",
ALU::register_B.read(), ADR::getEffectiveAddress(), MON::INST, parityAlm);
printw("X: %06o\tY: %06o\tU: %06o\t(a)SA: %1d\n\n", ALU::register_X.read(),
ALU::register_Y.read(), ALU::register_U.read(), MON::SA);
printw("00 A: %06o\t\t15 BANK: %02o\t\t36 TIME1: %06o\t53 OPT Y: %06o\n",
CRG::register_A.read(), ADR::register_BNK.read(), MEM::readMemory(036),
MEM::readMemory(053));
printw("01 Q: %06o\t\t16 RELINT: %s\t\t37 TIME3: %06o\t54 TRKR X: %06o\n",
CRG::register_Q.read(), "?", MEM::readMemory(037), MEM::readMemory(054));
printw("02 Z: %06o\t\t17 INHINT: %s\t\t40 TIME4: %06o\t55 TRKR Y: %06o\n",
CRG::register_Z.read(), "?", MEM::readMemory(040), MEM::readMemory(055));
printw("03 LP: %06o\t\t20 CYR: %06o\t\t41 UPLINK: %06o\t56 TRKR Z: %06o\n",
CRG::register_LP.read(), MEM::readMemory(020), MEM::readMemory(041),
MEM::readMemory(056));
printw("04 IN0: %06o\t\t21 SR: %06o\t\t42 OUTCR1: %06o\n",
INP::register_IN0.read(), MEM::readMemory(021), MEM::readMemory(042));
char progAlm = ' ';
if (OUT::register_OUT1.read() & 0400)
progAlm = '*';
char compFail = ' '; // also called 'check fail' and 'oper err'
if (OUT::register_OUT1.read() & 0100)
compFail = '*';
char keyRels = ' ';
if (OUT::register_OUT1.read() & 020)
keyRels = '*';
char upTl = ' ';
if (OUT::register_OUT1.read() & 004)
upTl = '*';
char comp = ' '; // also called comp acty
if (OUT::register_OUT1.read() & 001)
comp = '*';
printw(
"05 IN1: %06o\t\t22 CYL: %06o\t\t43 OUTCR2: %06o\tCF:[%c%c]:KR\t[%c]:PA\n",
INP::register_IN1.read(), MEM::readMemory(022), MEM::readMemory(043),
compFail, keyRels, progAlm);
printw("06 IN2: %06o\t\t23 SL: %06o\t\t44 PIPA X: %06o\n",
INP::register_IN2.read(), MEM::readMemory(023), MEM::readMemory(044));
printw(
"07 IN3: %06o\t\t24 ZRUPT: %06o\t45 PIPA Y: %06o\tA:[%c%c]\t\tM:[%c%c]\n",
INP::register_IN3.read(), MEM::readMemory(024), MEM::readMemory(045),
upTl, comp, DSP::MD1, DSP::MD2);
char fc = ' ';
if (DSP::flash)
fc = '*';
printw(
"10 OUT0: %06o\t\t25 BRUPT: %06o\t46 PIPA Z: %06o\tV:[%c%c]\t\tN:[%c%c]\t %c\n",
MEM::readMemory(010), MEM::readMemory(025), MEM::readMemory(046),
DSP::VD1, DSP::VD2, DSP::ND1, DSP::ND2, fc);
printw("11 OUT1: %06o\t\t26 ARUPT: %06o\t47 CDU X: %06o\tR1:[%c%c%c%c%c%c]\n",
OUT::register_OUT1.read(), MEM::readMemory(026), MEM::readMemory(047),
DSP::R1S, DSP::R1D1, DSP::R1D2, DSP::R1D3, DSP::R1D4, DSP::R1D5);
printw("12 OUT2: %06o\t\t27 QRUPT: %06o\t50 CDU Y: %06o\tR2:[%c%c%c%c%c%c]\n",
OUT::register_OUT2.read(), MEM::readMemory(027), MEM::readMemory(050),
DSP::R2S, DSP::R2D1, DSP::R2D2, DSP::R2D3, DSP::R2D4, DSP::R2D5);
printw("13 OUT3: %06o\t\t34 OVCTR: %06o\t51 CDU Z: %06o\tR3:[%c%c%c%c%c%c]\n",
OUT::register_OUT3.read(), MEM::readMemory(034), MEM::readMemory(051),
DSP::R3S, DSP::R3D1, DSP::R3D2, DSP::R3D3, DSP::R3D4, DSP::R3D5);
printw("14 OUT4: %06o\t\t35 TIME2: %06o\t52 OPT X: %06o\n",
OUT::register_OUT4.read(), MEM::readMemory(035), MEM::readMemory(052));
printw("\n");
}
/*
* If you modify this, be aware that my intention for using this was to be able
* to make logs from yaAGC-Block1-Pultorak *and* to make logs in an identical
* format from yaAGCb1, so as to be able to compare them on an instruction by
* instruction basis. So of you change this in a way that doesn't correspond to
* changes in the function of the same name in yaAGCb1, you will
* have destroyed that capability. Note also that for pragmatic reasons, the
* Z register in this simulator is incremented immediately upon starting an
* instruction in yaAGCb1, whereas here (which is command-sequence based
* rather than basic-instruction based, it updates the Z register just prior to
* the start of the instruction ... so they would never match. That's why the
* Z register isn't shown in the log. You don't lose anything by doing this,
* except for the knowledge of the overflow bit in Z (which is only set by being
* copied from the A register), so you haven't lost much at all.
*/
void
MON::logAGC(FILE *logFile)
{
unsigned pc = getPC();
char addressString[32];
if (SEQ::glbl_subseq == CCS1 || SEQ::glbl_subseq == STD2
|| SEQ::glbl_subseq == RUPT3)
return;
if (pc < 06000)
fprintf(logFile, "%04o", pc);
else
fprintf(logFile, "%02o,%04o", 017 & (pc >> 10), 06000 + (pc & 01777));
fprintf(logFile, "\tA=%06o\tQ=%06o\tLP=%06o\tBANK=%03o\tMCT=%u",
CRG::register_A.read(), CRG::register_Q.read(), CRG::register_LP.read(),
037 & ADR::register_BNK.read(),
(SCL::register_SCL.read() >= 016) ?
((SCL::register_SCL.read() - 016) / 014) : 0);
fprintf(logFile, "\n\tOUT0=%05o\tOUT1=%05o\tOUT2=%05o\tOUT3=%05o\tOUT4=%05o",
MEM::readMemory(010), OUT::register_OUT1.read(),
OUT::register_OUT2.read(), OUT::register_OUT3.read(),
OUT::register_OUT4.read());
fprintf(logFile, "\n\tIN0=%05o\tIN1=%05o\tIN2=%05o\tIN3=%05o",
MEM::readMemory(04), INP::register_IN1.read(), INP::register_IN2.read(),
INP::register_IN3.read());
fprintf(logFile, "\n\tTIME1=%06o\tTIME2=%06o\tTIME3=%06o\tTIME4=%06o",
MEM::readMemory(036), MEM::readMemory(035), MEM::readMemory(037),
MEM::readMemory(040));
fprintf(logFile, "\n\tARUPT=%06o\tQRUPT=%06o\tZRUPT=%06o\tBRUPT=%06o\tB=%06o",
MEM::readMemory(026), MEM::readMemory(027), MEM::readMemory(024),
MEM::readMemory(025), ALU::register_B.read());
fprintf(logFile, "\n\tCYR=%06o\tSR=%06o\tCYL=%06o\tSL=%06o",
MEM::readMemory(020), MEM::readMemory(021), MEM::readMemory(022),
MEM::readMemory(023));
if (numLogExtras > 0)
{
int i;
fprintf(logFile, "\n");
for (i = 0; i < numLogExtras; i++)
fprintf(logFile, "\t%05o=%06o", logExtras[i],
MEM::readMemory(
logExtras[i]) /*& ((logExtras[i] >= 060) ? 077777 : ~0)*/);
}
fprintf(logFile, "\n");
}
