github.com/simh.simh
1
0
Fork 0
mirror of https://github.com/simh/simh.git synced 2026-01-26 12:02:14 +00:00
Code Releases Activity

Nova, PDP10, PDP11, PDP8, SIGMA: Unload call sim_tape_detach (Mark Pizzolato)

Browse Source
This commit is contained in:
Bob Supnik
2020-05-29 05:59:44 -07:00
committed by Mark Pizzolato
parent e1e2bd18cf
commit be1df57fa2
6 changed files with 18 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
PDP11/pdp11_tm.c
View File

@@ -1,6 +1,6 @@
/* pdp11_tm.c: PDP-11 magnetic tape simulator
Copyright (c) 1993-2013, Robert M Supnik
Copyright (c) 1993-2020, Robert M Supnik
Permission is hereby granted, free of charge, to any person obtaining a
copy of this software and associated documentation files (the "Software"),
@@ -25,6 +25,7 @@
tm TM11/TU10 magtape
23-Mar-20 RMS Unload should call sim_tape_detach (Mark Pizzolato)
23-Oct-13 RMS Revised for new boot setup routine
16-Feb-06 RMS Added tape capacity checking
31-Oct-05 RMS Fixed address width for large files
@@ -372,7 +373,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 */

5
PDP11/pdp11_tu.c
View File

@@ -1,6 +1,6 @@
/* pdp11_tu.c - PDP-11 TM02/TU16 TM03/TU45/TU77 Massbus magnetic tape controller
Copyright (c) 1993-2017, Robert M Supnik
Copyright (c) 1993-2020, Robert M Supnik
Permission is hereby granted, free of charge, to any person obtaining a
copy of this software and associated documentation files (the "Software"),
@@ -25,6 +25,7 @@
tu TM02/TM03 magtape
23-Mar-20 RMS Unload should call sim_tape_detach (Mark Pizzolato)
28-Dec-17 RMS Read tape mark must set Massbus EXC
13-Mar-17 RMS Annotated fall through in switch
23-Oct-13 RMS Revised for new boot setup routine
@@ -508,7 +509,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;