Notes For V2.9-11

1. New Features

1.1 GRI-909

- This is a new simulator for the GRI-909.
- It has been hand-tested; so far, no software has been discovered.

1.2 VAX

- SET CPU CONHALT will cause a HALT instruction to return to the
  boot ROM console rather than to SIMH.  SET CPU SIMHALT restores
  the default behavior.
- BRB/W self at IPL 1F stops the simulator.  This is the default
  behavior of VMS at exit.

1.3 PDP-18b

- ATTACH -A PTR/PTP attaches the reader and punch in ASCII mode.
  In ASCII mode, the reader automatically sets the high order bit
  of incoming alphabetic data, and the punch clears the high order
  bit of outgoing data.

1.4 SCP

- DO -V echoes commands from the file as they are executed.
- Under Windows, execution priority is set BELOW_NORMAL when the
  simulator is running.

2. Release Notes

2.1 Bugs Fixed

- PDP-11 CPU: fixed updating of MMR0 on a memory management error.
- VAX FPA: changed function names to avoid conflict with C math library.
- 1401 MT: read end of record generates group mark without word mark.
- 1401 DP: fixed address generation and checking.
- SCP: an EXIT within a DO command will cause the simulator to exit.

3. In Progress

- Interdata 16b/32b: coded, not tested.
- SDS 940: coded, not tested.
- IBM 1620: coded, not tested.

If you would like to help with the debugging of the untested simulators,
they can be made available by special request.

sim_tmxr.c

@@ -26,7 +26,8 @@
    Based on the original DZ11 simulator by Thord Nilson, as updated by
    Arthur Krewat.
 
-   03-Dec-01	RMS	Changed tmxr_status for extended SET/SHOW
+   30-Dec-01	RMS	Added tmxr_fstats, tmxr_dscln, renamed tmxr_fstatus
+   03-Dec-01	RMS	Changed tmxr_fconns for extended SET/SHOW
    20-Oct-01	RMS	Fixed bugs in read logic (found by Thord Nilson).
 			added tmxr_rqln, tmxr_tqln
 */
@@ -349,7 +350,7 @@ for (i = 0; i < mp -> lines; i++) {			/* loop thru conn */
 	if (lp -> conn) {
 		tmxr_msg (lp -> conn, "\r\n");
 		tmxr_msg (lp -> conn, sim_name);
-		tmxr_msg (lp -> conn, " simulator shutting down... please come back later\r\n\n");
+		tmxr_msg (lp -> conn, " simulator shutting down\r\n\n");
 		tmxr_reset_ln (lp);  }			/* end if conn */
 	}						/* end for */
 sim_close_sock (mp -> master, 1);			/* close master socket */
@@ -380,12 +381,11 @@ if (sock) sim_write_sock (sock, msg, strlen (msg));
 return;
 }
 
-/* Print line status */
+/* Print connections - used only in named SHOW command */
 
-void tmxr_fstatus (FILE *st, TMLN *lp, int32 ln)
+void tmxr_fconns (FILE *st, TMLN *lp, int32 ln)
 {
-if (ln >= 0) fprintf (st, "\n  line %d: ", ln);
-else fprintf (st, "line status: ");
+if (ln >= 0) fprintf (st, "line %d: ", ln);
 if (lp -> conn) {
 	int32 o1, o2, o3, o4, hr, mn, sc;
 	uint32 ctime;
@@ -399,7 +399,47 @@ if (lp -> conn) {
 	mn = (ctime / 60) % 60;
 	sc = ctime % 3600;
 	fprintf (st, "IP address %d.%d.%d.%d", o1, o2, o3, o4);
-	if (ctime) fprintf (st, ", connected %02d:%02d:%02d", hr, mn, sc);  }
-else fprintf (st, "disconnected");
+	if (ctime) fprintf (st, ", connected %02d:%02d:%02d\n", hr, mn, sc);  }
+else fprintf (st, "line disconnected\n");
 return;
 }
+
+/* Print statistics - used only in named SHOW command */
+
+void tmxr_fstats (FILE *st, TMLN *lp, int32 ln)
+{
+static const char *enab = "on";
+static const char *dsab = "off";
+
+if (ln >= 0) fprintf (st, "line %d: ", ln);
+if (lp -> conn) {
+	fprintf (st, "input (%s) queued/total = %d/%d, ",
+		(lp -> rcve? enab: dsab),
+		lp -> rxbpi - lp -> rxbpr, lp -> rxcnt);
+	fprintf (st, "output (%s) queued/total = %d/%d\n",
+		(lp -> xmte? enab: dsab),
+		lp -> txbpi - lp -> txbpr, lp -> txcnt);  }
+else fprintf (st, "line disconnected\n");
+return;
+}
+
+/* Disconnect line */
+
+t_stat tmxr_dscln (UNIT *uptr, int32 val, char *cptr, void *desc)
+{
+TMXR *mp = (TMXR *) desc;
+TMLN *lp;
+int32 ln;
+t_stat r;
+
+if ((mp == NULL) || (val && (cptr == NULL))) return SCPE_ARG;
+if (cptr) {
+	ln = (int32) get_uint (cptr, 10, mp -> lines - 1, &r);
+	if (r != SCPE_OK) return SCPE_ARG;  }
+else ln = 0;
+lp = mp -> ldsc[ln];
+if (lp -> conn) {
+	tmxr_msg (lp -> conn, "\r\nOperator disconnected line\r\n\n");
+	tmxr_reset_ln (lp);  }
+return SCPE_OK;
+}