Notes For V3.7-0

1. New Features

1.1 3.7-0

1.1.1 SCP

- Added SET THROTTLE and SET NOTHROTTLE commands to regulate simulator
  execution rate and host resource utilization.
- Added idle support (based on work by Mark Pizzolato).
- Added -e to control error processing in nested DO commands (from
  Dave Bryan).

1.1.2 HP2100

- Added Double Integer instructions, 1000-F CPU, and Floating Point
  Processor (from Dave Bryan).
- Added 2114 and 2115 CPUs, 12607B and 12578A DMA controllers, and
  21xx binary loader protection (from Dave Bryan).

1.1.3 Interdata

- Added SET IDLE and SET NOIDLE commands to idle the simulator in wait
  state.

1.1.4 PDP-11

- Added SET IDLE and SET NOIDLE commands to idle the simulator in wait
  state (WAIT instruction executed).
- Added TA11/TU60 cassette support.

1.1.5 PDP-8

- Added SET IDLE and SET NOIDLE commands to idle the simulator in wait
  state (keyboard poll loop or jump-to-self).
- Added TA8E/TU60 cassette support.

1.1.6 PDP-1

- Added support for 16-channel sequence break system.
- Added support for PDP-1D extended features and timesharing clock.
- Added support for Type 630 data communications subsystem.

1.1.6 PDP-4/7/9/15

- Added SET IDLE and SET NOIDLE commands to idle the simulator in wait
  state (keyboard poll loop or jump-to-self).

1.1.7 VAX, VAX780

- Added SET IDLE and SET NOIDLE commands to idle the simulator in wait
  state (more than 200 cycles at IPL's 0, 1, or 3 in kernel mode).

1.1.8 PDP-10

- Added SET IDLE and SET NOIDLE commands to idle the simulator in wait
  state (operating system dependent).
- Added CD20 (CD11) support.

2. Bugs Fixed

Please see the revision history on http://simh.trailing-edge.com or
in the source module sim_rev.h.

PDP10/pdp10_ksio.c

@@ -188,14 +188,14 @@ DIB *std_dib[] = {                                      /* standard DIBs */
 
 /* IO 710       (DEC) TIOE - test I/O word, skip if zero
                 (ITS) IORDI - read word from Unibus 3
-                        returns TRUE if skip, FALSE otherwise
+                returns TRUE if skip, FALSE otherwise
 */
 
 t_bool io710 (int32 ac, a10 ea)
 {
 d10 val;
 
-if (ITS) AC(ac) = ReadIO (IO_UBA3 | ea);                /* IORDI */
+if (Q_ITS) AC(ac) = ReadIO (IO_UBA3 | ea);              /* IORDI */
 else {                                                  /* TIOE */
     val = ReadIO (ea);                                  /* read word */
     if ((AC(ac) & val) == 0) return TRUE;
@@ -205,14 +205,14 @@ return FALSE;
 
 /* IO 711       (DEC) TION - test I/O word, skip if non-zero
                 (ITS) IORDQ - read word from Unibus 1
-                        returns TRUE if skip, FALSE otherwise
+                returns TRUE if skip, FALSE otherwise
 */
 
 t_bool io711 (int32 ac, a10 ea)
 {
 d10 val;
 
-if (ITS) AC(ac) = ReadIO (IO_UBA1 | ea);                /* IORDQ */
+if (Q_ITS) AC(ac) = ReadIO (IO_UBA1 | ea);              /* IORDQ */
 else {                                                  /* TION */
     val = ReadIO (ea);                                  /* read word */
     if ((AC(ac) & val) != 0) return TRUE;
@@ -248,7 +248,7 @@ void io714 (d10 val, a10 ea)
 d10 temp;
 
 val = val & 0177777;
-if (ITS) WriteIO (IO_UBA3 | ea, val, WRITE);            /* IOWRI */
+if (Q_ITS) WriteIO (IO_UBA3 | ea, val, WRITE);          /* IOWRI */
 else {
     temp = ReadIO (ea);                                 /* BSIO */
     temp = temp | val;
@@ -266,7 +266,7 @@ void io715 (d10 val, a10 ea)
 d10 temp;
 
 val = val & 0177777;
-if (ITS) WriteIO (IO_UBA1 | ea, val, WRITE);            /* IOWRQ */
+if (Q_ITS) WriteIO (IO_UBA1 | ea, val, WRITE);          /* IOWRQ */
 else {
     temp = ReadIO (ea);                                 /* BCIO */
     temp = temp & ~val;
@@ -277,14 +277,14 @@ return;
 
 /* IO 720       (DEC) TIOEB - test I/O byte, skip if zero
                 (ITS) IORDBI - read byte from Unibus 3
-                        returns TRUE if skip, FALSE otherwise
+                returns TRUE if skip, FALSE otherwise
 */
 
 t_bool io720 (int32 ac, a10 ea)
 {
 d10 val;
 
-if (ITS) {                                              /* IORDBI */
+if (Q_ITS) {                                            /* IORDBI */
     val = ReadIO (IO_UBA3 | eaRB);
     AC(ac) = GETBYTE (ea, val);
     }
@@ -298,14 +298,14 @@ return FALSE;
 
 /* IO 721       (DEC) TIONB - test I/O word, skip if non-zero
                 (ITS) IORDBQ - read word from Unibus 1
-                        returns TRUE if skip, FALSE otherwise
+                returns TRUE if skip, FALSE otherwise
 */
 
 t_bool io721 (int32 ac, a10 ea)
 {
 d10 val;
 
-if (ITS) {                                              /* IORDBQ */
+if (Q_ITS) {                                            /* IORDBQ */
     val = ReadIO (IO_UBA1 | eaRB);
     AC(ac) = GETBYTE (ea, val);
     }
@@ -348,7 +348,7 @@ void io724 (d10 val, a10 ea)
 d10 temp;
 
 val = val & 0377;
-if (ITS) WriteIO (IO_UBA3 | ea, val, WRITEB);           /* IOWRBI */
+if (Q_ITS) WriteIO (IO_UBA3 | ea, val, WRITEB);         /* IOWRBI */
 else {
     temp = ReadIO (eaRB);                               /* BSIOB */
     temp = GETBYTE (ea, temp);
@@ -367,7 +367,7 @@ void io725 (d10 val, a10 ea)
 d10 temp;
 
 val = val & 0377;
-if (ITS) WriteIO (IO_UBA1 | ea, val, WRITEB);           /* IOWRBQ */
+if (Q_ITS) WriteIO (IO_UBA1 | ea, val, WRITEB);         /* IOWRBQ */
 else {
     temp = ReadIO (eaRB);                               /* BCIOB */
     temp = GETBYTE (ea, temp);