github.com/simh.simh
1
0
Fork 0
mirror of https://github.com/simh/simh.git synced 2026-01-30 05:25:16 +00:00
Code Releases Activity

All Tape DEVICES: Added extra case points for new MTSE definitions

Browse Source 
Merge changes from v3.12-2
This commit is contained in:
Bob Supnik
2022-06-16 16:13:46 -07:00
committed by Mark Pizzolato
parent 12e51eafaf
commit 1182157a4d
13 changed files with 44 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
PDP11/pdp11_ta.c
View File

@@ -1,6 +1,6 @@
/* pdp11_ta.c: PDP-11 cassette tape simulator
Copyright (c) 2007-2013, Robert M Supnik
Copyright (c) 2007-2022, 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 @@
ta TA11/TU60 cassette tape
26-Mar-22 RMS Added extra case points for new MTSE definitions
23-Oct-13 RMS Revised for new boot setup routine
06-Jun-13 RMS Reset must set RDY (Ian Hammond)
Added CAPS-11 bootstrap (Ian Hammond)
@@ -530,6 +531,7 @@ switch (st) {
case MTSE_UNATT: /* unattached */
ta_cs |= TACS_ERR|TACS_CRC;
case MTSE_OK: /* no error */
default: /* unknown error*/
return SCPE_IERR; /* never get here! */
case MTSE_TMK: /* end of file */

7
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-2022, 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
26-Mar-22 RMS Added extra case points for new MTSE definitions
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
@@ -541,6 +542,7 @@ switch (st) {
case MTSE_UNATT: /* not attached */
tm_sta = tm_sta | STA_ILL;
case MTSE_OK: /* no error */
default: /* unknown error */
return SCPE_IERR;
case MTSE_TMK: /* tape mark */
@@ -572,9 +574,6 @@ switch (st) {
case MTSE_WRP: /* write protect */
tm_sta = tm_sta | STA_ILL; /* illegal operation */
break;
default: /* shouldn't happen */
return SCPE_IERR;
}
return SCPE_OK;

10
PDP11/pdp11_tq.c
View File

@@ -1,6 +1,6 @@
/* pdp11_tq.c: TMSCP tape controller simulator
Copyright (c) 2002-2013, Robert M Supnik
Copyright (c) 2002-2022, 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 @@
tq TQK50 tape controller
26-Mar-22 RMS Added extra case points for new MTSE definitions
23-Oct-13 RMS Revised for new boot setup routine
23-Jan-12 MP Added missing support for Logical EOT detection while
positioning.
@@ -1581,11 +1582,12 @@ switch (st) {
uptr->flags = uptr->flags | UNIT_SXC;
return ST_WPR;
default:
uptr->flags = uptr->flags | UNIT_SXC;
return SCPE_IERR;
case MTSE_LEOT:
return ST_LED;
default: /* shouldn't happen */
return SCPE_IERR;
}
return ST_SUC;

7
PDP11/pdp11_ts.c
View File

@@ -1,6 +1,6 @@
/* pdp11_ts.c: TS11/TSV05 magnetic tape simulator
Copyright (c) 1993-2014, Robert M Supnik
Copyright (c) 1993-2022, 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 @@
ts TS11/TSV05 magtape
26-Mar-22 RMS Added extra case points for new MTSE definitions
27-Oct-14 RMS Fixed bug in read forward with byte swap
23-Oct-13 RMS Revised for new boot setup routine
19-Mar-12 RMS Fixed declaration of cpu_opt (Mark Pizzolato)
@@ -484,6 +485,7 @@ switch (st) {
msgxs0 = msgxs0 | XS0_MOT; /* tape has moved */
case MTSE_INVRL: /* invalid rec lnt */
case MTSE_IOERR: /* IO error */
default: /* unknown error */
msgxs1 = msgxs1 | XS1_UCOR; /* uncorrectable */
return (XTC (XS0_RLS, TC6)); /* pos lost */
@@ -500,9 +502,6 @@ switch (st) {
case MTSE_WRP: /* write protect */
msgxs0 = msgxs0 | XS0_WLE | XS0_NEF; /* can't execute */
return (XTC (XS0_WLE | XS0_NEF, TC3));
default: /* shouldn't happen */
return SCPE_IERR;
}
return 0;