mirror of
https://github.com/simh/simh.git
synced 2026-01-26 04:01:38 +00:00
TIMER: Add mechanism to pre-calibrate the instruction execution rate
This commit is contained in:
@@ -1371,6 +1371,19 @@ pcq_r->qptr = pcq_p; /* update pc q ptr */
|
||||
return reason;
|
||||
} /* end sim_instr */
|
||||
|
||||
/*
|
||||
* This sequence of instructions is a mix that hopefully
|
||||
* represents a resonable instruction set that is a close
|
||||
* estimate to the normal calibrated result.
|
||||
*/
|
||||
|
||||
static const char *pdp8_clock_precalibrate_commands[] = {
|
||||
"-m 100 ISZ 110",
|
||||
"-m 101 JMP 100",
|
||||
"-m 102 JMP 100",
|
||||
"PC 100",
|
||||
NULL};
|
||||
|
||||
/* Reset routine */
|
||||
|
||||
t_stat cpu_reset (DEVICE *dptr)
|
||||
@@ -1382,7 +1395,9 @@ UF = UB = gtf = emode = 0;
|
||||
pcq_r = find_reg ("PCQ", NULL, dptr);
|
||||
if (pcq_r)
|
||||
pcq_r->qptr = 0;
|
||||
else return SCPE_IERR;
|
||||
else
|
||||
return SCPE_IERR;
|
||||
sim_clock_precalibrate_commands = pdp8_clock_precalibrate_commands;
|
||||
sim_brk_types = SWMASK ('E') | SWMASK('I');
|
||||
sim_brk_dflt = SWMASK ('E');
|
||||
return SCPE_OK;
|
||||
|
||||
Reference in New Issue
Block a user