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

NOVA, ECLIPSE, PDP11, PDP8, SIGMA, Unibus VAXen: Call tape detach API on unload

Browse source
This commit is contained in:
Mark Pizzolato 2020-04-04 09:49:15 -07:00
parent d0de8b807f
commit f9883668f1
6 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
NOVA/nova_mta.c
View file

@ -295,7 +295,7 @@ switch (pulse) { /* decode IR<8:9> */
~(STA_BOT | STA_EOF | STA_EOT | STA_RDY)) | STA_REW);
sim_activate (uptr, mta_rwait); /* start IO */
if (c == CU_UNLOAD)
detach_unit (uptr);
sim_tape_detach (uptr);
}
else {
mta_sta = 0; /* clear errors */

2
PDP10/pdp10_tu.c
View file

@ -694,7 +694,7 @@ switch (fnc) { /* case on function */
set_tuer (ER_UNS);
break;
}
detach_unit (uptr);
sim_tape_detach (uptr);
uptr->USTAT = FS_REW;
sim_activate (uptr, tu_time);
tucs1 = tucs1 & ~CS1_GO;

2
PDP11/pdp11_tm.c
View file

@ -377,7 +377,7 @@ uptr->USTAT = uptr->USTAT & (STA_WLK | STA_ONL); /* clear status */
tm_sta = 0; /* clear errors */
if (f == MTC_UNLOAD) { /* unload? */
uptr->USTAT = (uptr->USTAT | STA_REW) & ~STA_ONL;
detach_unit (uptr); /* set offline */
sim_tape_detach (uptr); /* set offline */
}
else if (f == MTC_REWIND) /* rewind */
uptr->USTAT = uptr->USTAT | STA_REW; /* rewinding */

2
PDP11/pdp11_tu.c
View file

@ -521,7 +521,7 @@ switch (fnc) { /* case on function */
tu_set_er (ER_UNS);
break;
}
detach_unit (uptr);
sim_tape_detach (uptr);
uptr->USTAT = FS_REW;
sim_activate (uptr, tu_time);
tucs1 = tucs1 & ~CS1_GO;

2
PDP8/pdp8_mt.c
View file

@ -275,7 +275,7 @@ switch (IR & 07) { /* decode IR<9:11> */
}
uptr->USTAT = uptr->USTAT & STA_WLK; /* clear status */
if (f == FN_UNLOAD) { /* unload? */
detach_unit (uptr); /* set offline */
sim_tape_detach (uptr); /* set offline */
uptr->USTAT = STA_REW | STA_REM; /* rewinding, off */
mt_set_done (); /* set done */
}

2
sigma/sigma_mt.c
View file

@ -366,7 +366,7 @@ switch (cmd) { /* case on command */
break;
case MCM_RWU: /* rewind unload */
r = detach_unit (uptr);
r = sim_tape_detach (uptr);
break;
case MCM_REW: /* rewind */