Notes For V3.7

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.

I7094/i7094_cd.c

@@ -1,6 +1,6 @@
 /* i7094_cd.c: IBM 711/721 card reader/punch
 
-   Copyright (c) 2003-2006, Robert M. Supnik
+   Copyright (c) 2003-2007, 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"),
@@ -26,6 +26,7 @@
    cdr          711 card reader
    cdp          721 card punch
 
+   19-Jan-07    RMS     Added UNIT_TEXT
    13-Jul-06    RMS     Fixed problem with 80 column full cards
 
    Cards are represented as ASCII text streams terminated by newlines.
@@ -106,7 +107,7 @@ extern uint32 col_masks[12];
 DIB cdr_dib = { &cdr_chsel, NULL };
 
 UNIT cdr_unit = {
-    UDATA (&cdr_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_ROABLE, 0)
+    UDATA (&cdr_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_ROABLE+UNIT_TEXT, 0)
     };
 
 REG cdr_reg[] = {
@@ -144,7 +145,7 @@ DEVICE cdr_dev = {
 DIB cdp_dib = { &cdp_chsel, &cdp_chwr };
 
 UNIT cdp_unit = {
-    UDATA (&cdp_svc, UNIT_SEQ+UNIT_ATTABLE, 0)
+    UDATA (&cdp_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0)
     };
 
 REG cdp_reg[] = {
@@ -443,12 +444,12 @@ for (i = ((2 * CD_CHRLNT) + 1); (i > 0) &&
 cdp_cbuf[i++] = '\n';                                   /* append nl */
 cdp_cbuf[i++] = 0;                                      /* append nul */
 fputs (cdp_cbuf, uptr->fileref);                        /* write card */
+uptr->pos = ftell (uptr->fileref);                      /* update position */
 if (ferror (uptr->fileref)) {                           /* error? */
     perror ("CDP I/O error");
     clearerr (uptr->fileref);
     return SCPE_IOERR;
     }
-uptr->pos = ftell (uptr->fileref);                      /* update position */
 cdp_sta = CDS_END;                                      /* end state */
 sim_cancel (uptr);                                      /* cancel current */
 sim_activate (uptr, cdp_tstop);                         /* long timer */

I7094/i7094_cpu.c

@@ -1,6 +1,6 @@
 /* i7094_cpu.c: IBM 7094 CPU simulator
 
-   Copyright (c) 2003-2006, Robert M. Supnik
+   Copyright (c) 2003-2007, 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 @@
 
    cpu          7094 central processor
 
+   28-Apr-07    RMS     Removed clock initialization
    29-Oct-06    RMS     Added additional expanded core instructions
    17-Oct-06    RMS     Fixed the fix in halt IO wait loop
    16-Jun-06    RMS     Fixed bug in halt IO wait loop
@@ -198,7 +199,6 @@ extern uint32 ch_sta[NUM_CHAN];
 extern uint32 ch_flags[NUM_CHAN];
 extern DEVICE mt_dev[NUM_CHAN];
 extern DEVICE ch_dev[NUM_CHAN];
-extern UNIT clk_unit;
 extern FILE *sim_deb;
 extern int32 sim_int_char;
 extern int32 sim_interval;
@@ -625,7 +625,6 @@ ind_reloc = ind_reloc & VA_BLK;                         /* canonical form */
 ind_start = ind_start & VA_BLK;
 ind_limit = (ind_limit & VA_BLK) | VA_OFF;
 chtr_pend = chtr_eval (NULL);                           /* eval chan traps */
-sim_rtcn_init (clk_unit.wait, TMR_CLK);                 /* init clock */
 tracing = ((hst_lnt != 0) || DEBUG_PRS (cpu_dev));
 
 if (ht_pend) {                                          /* HTR pending? */

I7094/i7094_lp.c

@@ -1,6 +1,6 @@
 /* i7094_lp.c: IBM 716 line printer simulator
 
-   Copyright (c) 2003-2006, Robert M. Supnik
+   Copyright (c) 2003-2007, 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,8 @@
 
    lpt          716 line printer
 
+   19-Jan-07    RMS     Added UNIT_TEXT flag
+
    Internally, the 7094 works only with column binary and is limited to
    72 columns of data.  Each row of the printed line is represented by
    72b of data (two 36b words).  A complete print line consists of 12 rows
@@ -142,7 +144,7 @@ extern char colbin_to_bcd (uint32 colbin);
 DIB lpt_dib = { &lpt_chsel, &lpt_chwr };
 
 UNIT lpt_unit = {
-    UDATA (&lpt_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_CONS, 0)
+    UDATA (&lpt_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_CONS+UNIT_TEXT, 0)
     };
 
 REG lpt_reg[] = {
@@ -306,7 +308,7 @@ return SCPE_OK;
 
 t_stat lpt_end_line (UNIT *uptr)
 {
-uint32 i, j, col, row, bufw, colbin;
+uint32 i, col, row, bufw, colbin;
 char *pch, bcd, lpt_cbuf[LPT_CHRLNT + 1];
 t_uint64 dat;
 
@@ -325,22 +327,23 @@ for (col = 0; col < 72; col++) {                        /* proc 72 columns */
     }
 for (i = LPT_CHRLNT; (i > 0) &&
     (lpt_cbuf[i - 1] == ' '); --i) ;                    /* trim spaces */
-lpt_cbuf[i++] = '\n';                                   /* append nl */
+lpt_cbuf[i] = 0;                                        /* append nul */
 if (uptr->flags & UNIT_ATT) {                           /* file? */
-    fxwrite (lpt_cbuf, 1, i, uptr->fileref);            /* write line */
+    fputs (lpt_cbuf, uptr->fileref);                    /* write line */
+    fputc ('\n', uptr->fileref);                        /* append nl */
+    uptr->pos = ftell (uptr->fileref);                  /* update position */
     if (ferror (uptr->fileref)) {                       /* error? */
         perror ("LPT I/O error");
         clearerr (uptr->fileref);
         return SCPE_IOERR;
         }
-    uptr->pos = ftell (uptr->fileref);                  /* update position */
     }
 else if (uptr->flags & UNIT_CONS) {                     /* print to console? */
-    for (j = 0; j < i; j++) sim_putchar (lpt_cbuf[j]);
+    for (i = 0; lpt_cbuf[i] != 0; i++) sim_putchar (lpt_cbuf[i]);
     sim_putchar ('\r');
+    sim_putchar ('\n');
     }
 else return SCPE_UNATT;                                 /* otherwise error */
-uptr->pos = uptr->pos + strlen (lpt_cbuf);              /* count char */
 lpt_sta = LPS_END;                                      /* end line state */
 sim_cancel (uptr);                                      /* cancel current */
 sim_activate (uptr, lpt_tstop);                         /* long timer */