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

KA10: Fix random hang on DP disk drives.

Browse source
This commit is contained in:
Richard Cornwell 2023-12-31 11:18:39 -05:00 • committed by Paul Koning
parent fc7b65cb47
commit e0b08b3894
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
PDP10/kx10_dp.c
View file

@ -442,6 +442,7 @@ t_stat dp_devio(uint32 dev, uint64 *data) {
df10_writecw(df10);
df10->status |= CCW_COMP;
}
if (*data & PI_ENABLE) {
uptr->UFLAGS &= ~DONE;
/* Check if any drives still reporting seek done */
@ -459,6 +460,12 @@ t_stat dp_devio(uint32 dev, uint64 *data) {
else
df10_setirq(df10);
}
/* If setting the interrupt value and done set trigger IRQ */
if ((uptr->UFLAGS & DONE) != 0) {
df10_setirq(df10);
}
sim_debug(DEBUG_CONO, dptr, "DP %03o CONO %06o %d PC=%o %06o\n", dev,
(uint32)*data, ctlr, PC, df10->status);
break;
@ -726,6 +733,9 @@ t_stat dp_svc (UNIT *uptr)
if (r)
sim_activate(uptr, 25);
else {
sim_debug(DEBUG_DETAIL, dptr,
"DP done %d cmd=%o cyl=%d (%o) sect=%d surf=%d %d\n",
ctlr, uptr->UFLAGS, cyl, cyl, sect, surf,uptr->CUR_CYL);
uptr->STATUS &= ~(SRC_DONE|END_CYL|BUSY);
uptr->UFLAGS |= DONE;
return SCPE_OK;
@ -802,6 +812,9 @@ t_stat dp_svc (UNIT *uptr)
if (r)
sim_activate(uptr, 25);
else {
sim_debug(DEBUG_DETAIL, dptr,
"DP done %d cmd=%o cyl=%d (%o) sect=%d surf=%d %d\n",
ctlr, uptr->UFLAGS, cyl, cyl, sect, surf,uptr->CUR_CYL);
uptr->STATUS &= ~(SRC_DONE|END_CYL|BUSY);
uptr->UFLAGS |= DONE;
return SCPE_OK;