github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-21 18:15:04 +00:00
Code Releases Activity

KA10: Fixed errors with RP10 and TM10 which prevented 5.03 from booting.

Browse Source
This commit is contained in:
Richard Cornwell 2017-03-05 23:02:47 -05:00
parent 93acaa8f80
commit 9501b26bf1
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
PDP10/ka10_dp.c
View File

@ -544,30 +544,35 @@ t_stat dp_svc (UNIT *uptr)
uptr->STATUS |= SRC_DONE;
if (uptr->STATUS & END_CYL) {
uptr->UFLAGS |= DONE;
uptr->STATUS &= ~BUSY;
df10_finish_op(df10, 0);
return SCPE_OK;
}
if (sect >= dp_drv_tab[dtype].sect) {
uptr->UFLAGS |= DONE;
uptr->STATUS &= ~BUSY;
uptr->STATUS |= SEC_ERR;
df10_finish_op(df10, 0);
return SCPE_OK;
}
if (surf >= dp_drv_tab[dtype].surf) {
uptr->UFLAGS |= DONE;
uptr->STATUS &= ~BUSY;
uptr->STATUS |= SUF_ERR;
df10_finish_op(df10, 0);
return SCPE_OK;
}
if (cyl != uptr->CUR_CYL) {
uptr->UFLAGS |= DONE;
uptr->STATUS &= ~BUSY;
uptr->STATUS |= SRC_ERR;
df10_finish_op(df10, 0);
return SCPE_OK;
}
if ((uptr->STATUS & BUSY) == 0) {
df10_finish_op(df10, 0);
return SCPE_OK;
uptr->STATUS &= ~BUSY;
df10_finish_op(df10, 0);
return SCPE_OK;
}
if (cmd != WR) {
/* Read the block */

2
PDP10/ka10_mt.c
View File

@ -523,6 +523,7 @@ t_stat mt_srv(UNIT * uptr)
if ((r = sim_tape_rdrecf(uptr, &mt_buffer[0], &reclen,
BUFFSIZE)) != MTSE_OK) {
sim_debug(DEBUG_DETAIL, dptr, "MT%o read error %d\n", unit, r);
uptr->u3 &= ~MT_MOTION;
return mt_error(uptr, r, dptr);
}
sim_debug(DEBUG_DETAIL, dptr, "MT%o read %d\n", unit, reclen);
@ -582,6 +583,7 @@ t_stat mt_srv(UNIT * uptr)
if ((r = sim_tape_rdrecf(uptr, &mt_buffer[0], &reclen,
BUFFSIZE)) != MTSE_OK) {
sim_debug(DEBUG_DETAIL, dptr, "MT%o read error %d\n", unit, r);
uptr->u3 &= ~MT_MOTION;
return mt_error(uptr, r, dptr);
}
sim_debug(DEBUG_DETAIL, dptr, "MT%o compare %d\n", unit, reclen);