1
0
mirror of https://github.com/open-simh/simh.git synced 2026-05-04 07:08:55 +00:00

SCP, TMXR: new extensions to support HP simulators

This commit is contained in:
Bob Supnik
2020-03-14 07:20:10 -07:00
committed by Mark Pizzolato
parent e97675cc7a
commit 4ace512eea
4 changed files with 30 additions and 15 deletions

5
scp.c
View File

@@ -24,6 +24,7 @@
in this Software without prior written authorization from Robert M Supnik.
13-Feb-20 RMS Spelled out CONTINUE in command table (Dave Bryan)
09-Jan-20 JDB Added "sim_vm_unit_name" extension hook
26-Oct-19 RMS Removed commented out MTAB_VAL code
09-Oct-19 JDB Corrected "sim_ref_type" use for RESTORE and DETACH ALL
19-Jul-19 JDB Added "sim_get_radix" extension hook
@@ -378,6 +379,7 @@ int32 get_radix_local (const char *cptr, int32 switches, int32 default_radix);
char *sim_vm_release;
void (*sub_args) (char *iptr, char *optr, int32 len, char *args []) = sub_args_local;
int32 (*sim_get_radix) (const char *cptr, int32 switches, int32 default_radix) = get_radix_local;
char * (*sim_vm_unit_name) (const UNIT *uptr) = NULL;
/* Global data */
@@ -1632,6 +1634,7 @@ t_stat show_queue (FILE *st, DEVICE *dnotused, UNIT *unotused, int32 flag, char
DEVICE *dptr;
UNIT *uptr;
int32 accum;
char *vptr;
if (cptr && (*cptr != 0))
return SCPE_2MARG;
@@ -1646,6 +1649,8 @@ accum = 0;
for (uptr = sim_clock_queue; uptr != NULL; uptr = uptr->next) {
if (uptr == &sim_step_unit)
fprintf (st, " Step timer");
else if (sim_vm_unit_name && (vptr = sim_vm_unit_name (uptr)))
fprintf (st, " %s", vptr);
else if ((dptr = find_dev_from_unit (uptr)) != NULL) {
fprintf (st, " %s", sim_dname (dptr));
if (dptr->numunits > 1)