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

KA10: Fixed FE printer support on Tops 20.

Browse source
This commit is contained in:
Richard Cornwell 2022-03-25 19:16:56 -04:00
parent 4b5386ea75
commit 406c6af944
1 changed files with 15 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
PDP10/kl10_fe.c
View file

@ -1071,10 +1071,11 @@ dte_function(UNIT *uptr)
lp20_queue.buff[lp20_queue.in_ptr] = ch; lp20_queue.buff[lp20_queue.in_ptr] = ch;
inci(&lp20_queue); inci(&lp20_queue);
cmd->dptr++; cmd->dptr++;
sim_debug(DEBUG_DATA, &lp20_dev, "LP20 queue %o\n", ch);
} }
if (cmd->dptr != cmd->dcnt) if (cmd->dptr != cmd->dcnt)
return; return;
sim_debug(DEBUG_DETAIL, &dte_dev, "LP20 done\n"); sim_debug(DEBUG_DETAIL, &lp20_dev, "LP20 done\n");
break; break;
} }
#endif #endif
@ -1214,15 +1215,17 @@ cty:
#if (NUM_DEVS_LP20 > 0) #if (NUM_DEVS_LP20 > 0)
if (dev == PRI_EMLPT) { if (dev == PRI_EMLPT) {
lp20_unit.LINE = 0; lp20_unit.LINE = 0;
sim_debug(DEBUG_DETAIL, &lp20_dev, "LPT OPS\n");
} }
#endif #endif
break; break;
case PRI_EMRDS: /* Request device status */ case PRI_EMRDS: /* Request device status */
if (dev == PRI_EMLPT) { if (dev == PRI_EMLPT) {
if (cmd->data[0] != 0) { sim_debug(DEBUG_DETAIL, &lp20_dev, "RDS OPS %06o\n", cmd->data[0]);
data1[0] = 2 << 8; if (cmd->data[0] != 0) { /* If second unit, offline */
data1[1] = 0; data1[0] = 0;
data1[1] = 2 << 8;
data1[2] = 0; data1[2] = 0;
if (dte_queue(PRI_EMHDS+PRI_IND_FLG, PRI_EMLPT, if (dte_queue(PRI_EMHDS+PRI_IND_FLG, PRI_EMLPT,
3, data1) == 0) 3, data1) == 0)
@ -1233,8 +1236,8 @@ cty:
if (!sim_is_active(&lp20_unit)) if (!sim_is_active(&lp20_unit))
sim_activate(&lp20_unit, 1000); sim_activate(&lp20_unit, 1000);
#else #else
data1[0] = 2 << 8; data1[0] = 0; /* Return device offline */
data1[1] = 0; data1[1] = 2 << 8;
data1[2] = 0; data1[2] = 0;
if (dte_queue(PRI_EMHDS+PRI_IND_FLG, PRI_EMLPT, if (dte_queue(PRI_EMHDS+PRI_IND_FLG, PRI_EMLPT,
3, data1) == 0) 3, data1) == 0)
@ -1261,14 +1264,14 @@ cty:
case PRI_EMHDS: /* Here is device status */ case PRI_EMHDS: /* Here is device status */
#if (NUM_DEVS_LP20 > 0) #if (NUM_DEVS_LP20 > 0)
if (dev == PRI_EMLPT) { if (dev == PRI_EMLPT) {
sim_debug(DEBUG_DETAIL, &dte_dev, "LPT HDS %06o %06o %06o\n", sim_debug(DEBUG_DETAIL, &lp20_dev, "LPT HDS %06o %06o %06o\n",
cmd->data[0], cmd->data[1], cmd->data[2]); cmd->data[0], cmd->data[1], cmd->data[2]);
if (cmd->data[0] & 040) { if (cmd->data[0] & 040) {
lp20_unit.LPST |= EOFFLG; lp20_unit.LPST |= EOFFLG;
lp20_unit.LPCNT = 0; lp20_unit.LPCNT = 0;
} }
lp20_unit.LPST |= HDSFLG; lp20_unit.LPST |= HDSFLG;
sim_debug(DEBUG_DETAIL, &dte_dev, "LPT HDS %06o \n", sim_debug(DEBUG_DETAIL, &lp20_dev, "LPT HDS %06o \n",
lp20_unit.LPST); lp20_unit.LPST);
if (!sim_is_active(&lp20_unit)) if (!sim_is_active(&lp20_unit))
sim_activate(&lp20_unit, 1000); sim_activate(&lp20_unit, 1000);
@ -1336,6 +1339,7 @@ cty:
#if (NUM_DEVS_LP20 > 0) #if (NUM_DEVS_LP20 > 0)
if ((cmd->dev & 0377) == PRI_EMLPT) { if ((cmd->dev & 0377) == PRI_EMLPT) {
data1[0] = cmd->data[0]; data1[0] = cmd->data[0];
sim_debug(DEBUG_DETAIL, &lp20_dev, "Flush out %o\n", cmd->data[0]);
if (dte_queue(PRI_EMLBE, PRI_EMLPT, 1, data1) == 0) if (dte_queue(PRI_EMLBE, PRI_EMLPT, 1, data1) == 0)
return; return;
} }
@ -2034,11 +2038,10 @@ t_stat lp20_svc (UNIT *uptr)
if ((uptr->flags & UNIT_ATT) == 0) if ((uptr->flags & UNIT_ATT) == 0)
return SCPE_OK; return SCPE_OK;
if (dte_dev.flags & TYPE_RSX20 && uptr->LPST & HDSFLG) { if (uptr->LPST & HDSFLG) {
data1[0] = 0; data1[0] = 0;
data1[1] = (uptr->LINE == 1) ? 01<<8: 0; data1[1] = (uptr->LINE == 1) ? 01<<8: 0;
sim_debug(DEBUG_DETAIL, &dte_dev, "LPT status %06o \n", uptr->LPST); sim_debug(DEBUG_DETAIL, &lp20_dev, "LPT status %06o \n", uptr->LPST);
if (uptr->LPST & EOFFLG) { if (uptr->LPST & EOFFLG) {
data1[0] |= 040 << 8; data1[0] |= 040 << 8;
uptr->LPCNT = 0; uptr->LPCNT = 0;