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

PDP11, Most VAX: Improve rewind time for TQ device

Browse source 
Make the rewind time vary based on tape position.
This commit is contained in:
Mark Pizzolato 2019-05-13 00:18:11 -07:00
parent f700346ea9
commit bd45a9c45f
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
PDP11/pdp11_tq.c
View file

@ -1210,7 +1210,11 @@ if ((uptr = tq_getucb (lu))) { /* unit exist? */
uptr->cpkt = pkt; /* op in progress */ uptr->cpkt = pkt; /* op in progress */
if ((tq_pkt[pkt].d[CMD_MOD] & MD_RWD) && /* rewind? */ if ((tq_pkt[pkt].d[CMD_MOD] & MD_RWD) && /* rewind? */
(!(tq_pkt[pkt].d[CMD_MOD] & MD_IMM))) { /* !immediate? */ (!(tq_pkt[pkt].d[CMD_MOD] & MD_IMM))) { /* !immediate? */
sim_activate_after (uptr, tq_rwtime); /* use 2 sec rewind execute time */ double walltime = (tq_rwtime - 100);
if (uptr->hwmark)
walltime *= ((double)uptr->pos)/uptr->hwmark;
sim_activate_after_d (uptr, 100 + walltime);/* use scaled 2 sec rewind execute time */
} }
else { /* otherwise */ else { /* otherwise */
uptr->iostarttime = sim_grtime(); uptr->iostarttime = sim_grtime();