folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

PDP11, VAX: Add descriptive unit names to DZ, RQ, TQ, XQ and XU devices

Browse source 
Some devices have dedicated units that perform various independent
functions (often timing) that are independent of the primary device unit
which is ATTACHed.  This services to help interpret debug information
that may be produced.
This commit is contained in:
Mark Pizzolato 2018-06-23 10:34:09 -07:00
parent 91bd90c368
commit c73f56cc5a
5 changed files with 30 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
PDP11/pdp11_dz.c
View file

@ -785,6 +785,8 @@ sim_debug(DBG_TRC, dptr, "dz_reset()\n");
if (dz_ldsc == NULL) { if (dz_ldsc == NULL) {
dz_desc.lines = DZ_MUXES * DZ_LINES; dz_desc.lines = DZ_MUXES * DZ_LINES;
dz_desc.ldsc = dz_ldsc = (TMLN *)calloc (dz_desc.lines, sizeof(*dz_ldsc)); dz_desc.ldsc = dz_ldsc = (TMLN *)calloc (dz_desc.lines, sizeof(*dz_ldsc));
sim_set_uname (&dz_unit[0], "DZ-RCV-CON");
sim_set_uname (&dz_unit[1], "DZ-XMT");
} }
if ((dz_desc.lines % DZ_LINES) != 0) { /* Transition from Qbus to Unibus device */ if ((dz_desc.lines % DZ_LINES) != 0) { /* Transition from Qbus to Unibus device */
int32 newln = DZ_LINES * (1 + (dz_desc.lines / DZ_LINES)); int32 newln = DZ_LINES * (1 + (dz_desc.lines / DZ_LINES));

5
PDP11/pdp11_rq.c
View file

@ -2949,7 +2949,12 @@ if (cp->ctype == DEFAULT_CTYPE)
if (!plugs_inited ) { if (!plugs_inited ) {
uint32 d, u = 0; uint32 d, u = 0;
char uname[16];
sprintf (uname, "%s-TIMER", dptr->name);
sim_set_uname (&dptr->units[4], uname);
sprintf (uname, "%s-QUESVC", dptr->name);
sim_set_uname (&dptr->units[5], uname);
plugs_inited = TRUE; plugs_inited = TRUE;
for (i = 0; i < RQ_NUMCT; i++) { for (i = 0; i < RQ_NUMCT; i++) {
for (d = 0; d < rq_devmap[i]->numunits - 2; d++) { for (d = 0; d < rq_devmap[i]->numunits - 2; d++) {

5
PDP11/pdp11_tq.c
View file

@ -2070,7 +2070,12 @@ static t_bool plugs_inited = FALSE;
if (!plugs_inited ) { if (!plugs_inited ) {
uint32 d; uint32 d;
char uname[16];
sprintf (uname, "%s-TIMER", dptr->name);
sim_set_uname (&dptr->units[4], uname);
sprintf (uname, "%s-QUESVC", dptr->name);
sim_set_uname (&dptr->units[5], uname);
plugs_inited = TRUE; plugs_inited = TRUE;
for (d = 0; d < tq_dev.numunits - 2; d++) for (d = 0; d < tq_dev.numunits - 2; d++)
tq_unit[d].unit_plug = d; tq_unit[d].unit_plug = d;

12
PDP11/pdp11_xq.c
View file

@ -2554,7 +2554,19 @@ t_stat xq_reset(DEVICE* dptr)
/* One time only initializations */ /* One time only initializations */
if (!xq->var->initialized) { if (!xq->var->initialized) {
char uname[16];
xq->var->initialized = TRUE; xq->var->initialized = TRUE;
sprintf (uname, "%s-SVC", dptr->name);
sim_set_uname (&dptr->units[0], uname);
sprintf (uname, "%s-TMRSVC", dptr->name);
sim_set_uname (&dptr->units[1], uname);
sprintf (uname, "%s-STARTSVC", dptr->name);
sim_set_uname (&dptr->units[2], uname);
sprintf (uname, "%s-RCVSVC", dptr->name);
sim_set_uname (&dptr->units[3], uname);
sprintf (uname, "%s-SRQRSVC", dptr->name);
sim_set_uname (&dptr->units[4], uname);
/* Set an initial MAC address in the DEC range */ /* Set an initial MAC address in the DEC range */
xq_setmac (dptr->units, 0, "08:00:2B:00:00:00/24", NULL); xq_setmac (dptr->units, 0, "08:00:2B:00:00:00/24", NULL);
} }

6
PDP11/pdp11_xu.c
View file

@ -855,7 +855,13 @@ t_stat xu_reset(DEVICE* dptr)
sim_debug(DBG_TRC, xu->dev, "xu_reset()\n"); sim_debug(DBG_TRC, xu->dev, "xu_reset()\n");
/* One time only initializations */ /* One time only initializations */
if (!xu->var->initialized) { if (!xu->var->initialized) {
char uname[16];
xu->var->initialized = TRUE; xu->var->initialized = TRUE;
sprintf (uname, "%s-SVC", dptr->name);
sim_set_uname (&dptr->units[0], uname);
sprintf (uname, "%s-TMRSVC", dptr->name);
sim_set_uname (&dptr->units[1], uname);
/* Set an initial MAC address in the DEC range */ /* Set an initial MAC address in the DEC range */
xu_setmac (dptr->units, 0, "08:00:2B:00:00:00/24", NULL); xu_setmac (dptr->units, 0, "08:00:2B:00:00:00/24", NULL);
} }