Commit version 1.03c:

1. Implement new single-precision add/subtract routine that more closely follows the real B5500 logic.
2. Implement tests/B5500SPMathTest.html testbed to exercise the new add/subtract implementation.
3. Implement new way to focus the ConsolePanel window after the SPO becomes ready during initialization.
4. Add "?db=" parameter to tools/B5500DeleteStorageDB.html to specify the disk storage data base name.
5. Implement "Execute Single" button in B5500SyllableDebugger to preserve the T register when testing a single syllable.
6. Implement "octize" and "pic*" function in B5500Util to support tests/B5500SPMathTest.html.
7. Commit minor changes to webSite index page and GitHub README.md.

Commit version 1.03b:
1. Remove initial window open/close (to destroy any existing windows) from Console, I/O device classes, and configuration utilities.
2. Commit Mark XV MESAGE/CANDE file for reconstructed SYSTEM tape, donated by Rich Cornwell.

Commit version 1.03a:
1. Correct character translation for even-parity tape operations.
2. Implement normal tape space operation for tape maintenance space operation (temporary solution to fix problem with Mark XV tape parity recovery -- Mark XIII did not issue maintenance space I/Os).
3. Modify B5500MagTapeDrive to report EOF+parity when attempting to ready beyond the end of the internal tape image (previously reported only parity error).
4. Restate B5500Processor delay deviation and processor slack time average calculations and increase the alpha for the running exponential averages to smooth out the reporting on the B5500ConsolePanel.
5. Improve delay timing calculation for B5500CardPunch, B5500CardReader. and B5500LinePrinter.

webUI/B5500CardPunch.js

@@ -31,11 +31,6 @@ function B5500CardPunch(mnemonic, unitIndex, designate, statusChange, signal, op
 
     this.clear();
 
-    this.window = window.open("", mnemonic);
-    if (this.window) {
-        this.shutDown();                // destroy the previously-existing window
-        this.window = null;
-    }
     this.doc = null;
     this.stacker1 = null;
     this.endOfStacker1 = null;
@@ -48,6 +43,7 @@ function B5500CardPunch(mnemonic, unitIndex, designate, statusChange, signal, op
 }
 
 B5500CardPunch.prototype.cardsPerMinute = 300;  // Punch speed
+B5500CardPunch.prototype.msPerCard = 60000/B5500CardPunch.prototype.cardsPerMinute;
 B5500CardPunch.prototype.maxScrollLines = 850;  // Maximum punch stacker scrollback (stacker capacity)
 B5500CardPunch.prototype.rtrimRex = /\s+$/g;    // regular expression for right-trimming card text
 
@@ -308,7 +304,7 @@ B5500CardPunch.prototype.write = function write(finish, buffer, length, mode, co
     }
 
     this.timer = setCallback(this.mnemonic, this,
-        60000/this.cardsPerMinute + this.initiateStamp - performance.now(),
+        this.msPerCard + this.initiateStamp - performance.now(),
         function writeDelay() {
             this.busy = false;
             finish(this.errorMask, length);

webUI/B5500CardReader.js

@@ -31,11 +31,6 @@ function B5500CardReader(mnemonic, unitIndex, designate, statusChange, signal, o
 
     this.clear();
 
-    this.window = window.open("", mnemonic);
-    if (this.window) {
-        this.shutDown();                // destroy the previously-existing window
-        this.window = null;
-    }
     this.doc = null;
     this.window = window.open("../webUI/B5500CardReader.html", mnemonic,
             "location=no,scrollbars=no,resizable,width=560,height=160,left=0,top="+x);
@@ -50,6 +45,7 @@ function B5500CardReader(mnemonic, unitIndex, designate, statusChange, signal, o
 B5500CardReader.prototype.eolRex = /([^\n\r\f]*)((:?\r[\n\f]?)|\n|\f)?/g;
 
 B5500CardReader.prototype.cardsPerMinute = 1400;        // B129 card reader
+B5500CardReader.prototype.msPerCard = 60000/B5500CardReader.prototype.cardsPerMinute;
 
 B5500CardReader.prototype.cardFilter = [ // Filter ASCII character values to valid BIC ones
         0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,  // 00-0F
@@ -362,7 +358,7 @@ B5500CardReader.prototype.read = function read(finish, buffer, length, mode, con
         }
 
         this.timer = setCallback(this.mnemonic, this,
-            60000/this.cardsPerMinute + this.initiateStamp - performance.now(),
+            this.msPerCard + this.initiateStamp - performance.now(),
             function readDelay() {
                 this.busy = false;
                 finish(this.errorMask, length);

webUI/B5500ConsolePanel.js

@@ -53,12 +53,6 @@ function B5500ConsolePanel(global, autoPowerUp, shutDown) {
     this.timer = 0;                     // Console display update timer control token
     this.timerInterval = 50;            // Console display update interval [ms]
 
-    this.window = window.open("", "B5500Console");
-    if (this.window) {
-        this.window.close();
-        this.window = null;
-    }
-
     this.doc = null;
     this.window = window.open("../webUI/B5500ConsolePanel.html", "B5500Console",
             "location=no,scrollbars=no,resizable,top=0,left=" + left +
@@ -102,6 +96,13 @@ B5500ConsolePanel.prototype.evaluateNotReady = function evaluateNotReady(config)
     this.$$("NotReadyBtn").className = lampClass;
 }
 
+/**************************************/
+B5500ConsolePanel.prototype.focusConsole = function focusConsole() {
+    /* Globally-accessible function to focus the console panel window */
+
+    this.window.focus();
+}
+
 /**************************************/
 B5500ConsolePanel.prototype.BurroughsLogo_Click = function BurroughsLogo_Click(ev) {
     /* Toggles the annunciator display state on the panel */
@@ -839,6 +840,8 @@ B5500ConsolePanel.prototype.consoleOnload = function consoleOnload(ev) {
     this.cc = new B5500CentralControl(this.global);
     this.global.B5500DumpState = this.dumpState;        // for use by Processor
     this.global.B5500DumpState = this.dumpTape;         // for use by Processor
+    this.global.focusConsole = B5500CentralControl.bindMethod(this, B5500ConsolePanel.prototype.focusConsole);
+
     this.window.resizeTo(this.doc.documentElement.scrollWidth + this.window.outerWidth - this.window.innerWidth + 2, // kludge +2, dunno why
                          this.doc.documentElement.scrollHeight + this.window.outerHeight - this.window.innerHeight);
     this.window.moveTo(screen.availWidth - this.window.outerWidth, 0);

webUI/B5500DatacomUnit.js

@@ -44,11 +44,6 @@ function B5500DatacomUnit(mnemonic, unitIndex, designate, statusChange, signal,
 
     this.clear();
 
-    this.window = window.open("", mnemonic);
-    if (this.window) {
-        this.shutDown();                // destroy any previously-existing window
-        this.window = null;
-    }
     this.doc = null;
     this.paper = null;
     this.endOfPaper = null;

webUI/B5500DiskStorageConfig.js

@@ -743,11 +743,6 @@ B5500DiskStorageConfig.prototype.openStorageUI = function openStorageUI(storageN
                 B5500CentralControl.bindMethod(this, this.closeStorageUI), false);
     }
 
-    this.window = window.open("", this.storageConfigName);
-    if (this.window) {
-        this.window.close();
-        this.window = null;
-    }
     this.doc = null;
     this.window = window.open("../webUI/B5500DiskStorageConfig.html", storageName+"_Config",
             "location=no,scrollbars,resizable,width=560,height=480");

webUI/B5500LinePrinter.js

@@ -35,11 +35,6 @@ function B5500LinePrinter(mnemonic, unitIndex, designate, statusChange, signal,
 
     this.clear();
 
-    this.window = window.open("", mnemonic);
-    if (this.window) {
-        this.shutDown();                // destroy the previously-existing window
-        this.window = null;
-    }
     this.doc = null;
     this.barGroup = null;               // current greenbar line group
     this.paperDoc = null;               // the content document for the paper frame
@@ -54,6 +49,7 @@ function B5500LinePrinter(mnemonic, unitIndex, designate, statusChange, signal,
 }
 
 B5500LinePrinter.prototype.linesPerMinute = 1040;       // B329 line printer
+B5500LinePrinter.prototype.msPerLine = 60000/B5500LinePrinter.prototype.linesPerMinute;
 B5500LinePrinter.prototype.maxPaperLines = 150000;      // maximum printer scrollback (about a box of paper)
 B5500LinePrinter.prototype.rtrimRex = /\s+$/;           // regular expression for right-trimming lines
 B5500LinePrinter.prototype.theColorGreen = "#CFC";      // for greenbar shading
@@ -406,7 +402,7 @@ B5500LinePrinter.prototype.write = function write(finish, buffer, length, mode,
     }
 
     this.timer = setCallback(this.mnemonic, this,
-        60000/this.linesPerMinute + this.initiateStamp - performance.now(),
+        this.msPerLine + this.initiateStamp - performance.now(),
         this.signal);
     finish(this.errorMask, 0);
     this.endOfPaper.scrollIntoView();

webUI/B5500MagTapeDrive.js

@@ -47,11 +47,6 @@ function B5500MagTapeDrive(mnemonic, unitIndex, designate, statusChange, signal,
     this.reelBar = null;                // handle for tape-full meter
     this.reelIcon = null;               // handle for the reel spinner
 
-    this.window = window.open("", mnemonic);
-    if (this.window) {
-        this.shutDown();                // destroy any previously-existing window
-        this.window = null;
-    }
     this.doc = null;
     this.window = window.open("../webUI/B5500MagTapeDrive.html", mnemonic,
             "location=no,scrollbars=no,resizable,width=560,height=120,left=280,top=" + y);
@@ -183,7 +178,6 @@ B5500MagTapeDrive.prototype.spinReel = function spinReel(inches) {
     }
 
     this.reelAngle = (this.reelAngle + degrees)%360;
-    this.reelIcon.style["-webkit-transform"] = "rotate(" + this.reelAngle.toFixed(0) + "deg)";  // temp for Chrome
     this.reelIcon.style.transform = "rotate(" + this.reelAngle.toFixed(0) + "deg)";
 
     if (this.tapeInches < this.imgMaxInches) {
@@ -863,7 +857,7 @@ B5500MagTapeDrive.prototype.bcdSpaceForward = function bcdSpaceForward(checkEOF)
     var imgIndex = this.imgIndex;       // current tape image offset
 
     if (imgIndex >= imgLength) {
-        this.errorMask |= 0x10;         // report parity error if beyond end of tape
+        this.errorMask |= 0x30;         // report EOF & parity error if beyond end of tape
     } else {
         if (this.atBOT) {
             this.setAtBOT(false);
@@ -951,7 +945,7 @@ B5500MagTapeDrive.prototype.bcdReadForward = function bcdReadForward(oddParity)
     when the next frame has its high-order bit set, or the end of the tape image data
     is reached. The resulting buffer is always at least one character in length, unless
     the block is a tapeMark or the end of the data has been reached.
-        oddParity 0=Alpha (even parity), 1=Binary (odd parity) read
+        oddParity: 0=Alpha (even parity), 1=Binary (odd parity) read
     Exits with the image index pointing to the first frame of the next block (or beyond
     the end of the image blob if at EOT). Returns the number of characters read into the
     IOUnit buffer */
@@ -967,7 +961,7 @@ B5500MagTapeDrive.prototype.bcdReadForward = function bcdReadForward(oddParity)
     var xlate = (oddParity ? this.bcdXlateInOdd : this.bcdXlateInEven);
 
     if (imgIndex >= imgLength) {
-        this.errorMask |= 0x10;         // report parity error if beyond end of tape
+        this.errorMask |= 0x30;         // report EOF & parity error if beyond end of tape
     } else {
         if (this.atBOT) {
             this.setAtBOT(false);
@@ -991,7 +985,13 @@ B5500MagTapeDrive.prototype.bcdReadForward = function bcdReadForward(oddParity)
                 } else {
                     blankCount = 0;
                     cx = xlate[c];
-                    if (cx < 0xFF) {
+                    if (cx >= 0xFF) {
+                        this.errorMask |= 0x10;         // parity error
+                        this.imgIndex = imgIndex;
+                        this.bcdSpaceForward(false);
+                        imgIndex = this.imgIndex;
+                        break;                          // kill the read loop
+                    } else {
                         if (bufIndex < bufLength) {
                             buffer[bufIndex++] = cx;    // store the ANSI character
                             if (++imgIndex < imgLength) {
@@ -1005,12 +1005,6 @@ B5500MagTapeDrive.prototype.bcdReadForward = function bcdReadForward(oddParity)
                             imgIndex = this.imgIndex;
                             break;                      // kill the read loop
                         }
-                    } else {
-                        this.errorMask |= 0x10;         // parity error
-                        this.imgIndex = imgIndex;
-                        this.bcdSpaceForward(false);
-                        imgIndex = this.imgIndex;
-                        break;                          // kill the read loop
                     }
                 }
             } while (c < 0x80);
@@ -1029,7 +1023,7 @@ B5500MagTapeDrive.prototype.bcdReadBackward = function bcdReadBackward(oddParity
     when the next frame has its high-order bit set, or the beginning of the tape image
     data is reached. The resulting buffer is always at least one character in length,
     unless the block is a tapeMark or the end of the data has been reached.
-        oddParity 0=Alpha (even parity), 1=Binary (odd parity) read
+        oddParity: 0=Alpha (even parity), 1=Binary (odd parity) read
     Note that the characters are stored in this.buffer in ascending order as they are
     being read backwards; thus the buffer is in reverse order with respect to how the
     data will be stored in memory. The IOUnit will unravel this at finish.
@@ -1074,7 +1068,13 @@ B5500MagTapeDrive.prototype.bcdReadBackward = function bcdReadBackward(oddParity
                 } else {
                     blankCount = 0;
                     cx = xlate[c & 0x7F];
-                    if (cx < 0xFF) {
+                    if (cx >= 0xFF) {
+                        this.errorMask |= 0x10;         // parity error
+                        this.imgIndex = imgIndex;
+                        this.bcdSpaceBackward(false);
+                        imgIndex = this.imgIndex;
+                        break;                          // kill the read loop
+                    } else {
                         if (bufIndex < bufLength) {
                             buffer[bufIndex++] = cx;    // store the ANSI character
                             if (c >= 0x80) {
@@ -1090,12 +1090,6 @@ B5500MagTapeDrive.prototype.bcdReadBackward = function bcdReadBackward(oddParity
                             imgIndex = this.imgIndex;
                             break;                      // kill the read loop
                         }
-                    } else {
-                        this.errorMask |= 0x10;         // parity error
-                        this.imgIndex = imgIndex;
-                        this.bcdSpaceBackward(false);
-                        imgIndex = this.imgIndex;
-                        break;                          // kill the read loop
                     }
                 }
             } while (true);

webUI/B5500Manifest.appcache

@@ -1,5 +1,5 @@
 CACHE MANIFEST
-# retro-B5500 emulator 1.03, 2015-08-22 15:30
+# retro-B5500 emulator 1.03c, 2016-04-18 17:00
 
 CACHE:
 ../emulator/B5500CentralControl.js

webUI/B5500SPOUnit.js

@@ -36,11 +36,6 @@ function B5500SPOUnit(mnemonic, unitIndex, designate, statusChange, signal, opti
 
     this.clear();
 
-    this.window = window.open("", mnemonic);
-    if (this.window) {
-        this.shutDown();                // destroy any previously-existing window
-        this.window = null;
-    }
     this.doc = null;
     this.paper = null;
     this.inputBox = null;
@@ -269,7 +264,7 @@ B5500SPOUnit.prototype.requestInput = function requestInput() {
         if (!this.spoInputRequested) {
             this.spoInputRequested = true;
             B5500Util.addClass(this.$$("SPOInputRequestBtn"), "yellowLit");
-            this.signal();
+            this.signal(0);             // Cause the Input Request interrupt
         }
         break;
     case this.spoInput:
@@ -516,10 +511,10 @@ B5500SPOUnit.prototype.spoOnload = function spoOnload() {
     this.printText("retro-B5500 Emulator Version " + B5500CentralControl.version,
             B5500CentralControl.bindMethod(this, function initFinish() {
         this.window.focus();
-        window.open("", "B5500Console").focus();
         this.setRemote();
         this.appendEmptyLine("\xA0");
         this.endOfPaper.scrollIntoView();
+        this.signal(-1);                // re-focus the Console window
     }));
 
     this.window.moveTo(screen.availWidth-this.window.outerWidth,

webUI/B5500SyllableDebugger.html

@@ -809,6 +809,21 @@ function stepIt(ev) {
     ev.target.disabled = false;
 }
 
+function executeSingle(ev) {
+    /* Executes a single instruction the same was as stepIt() does, but preserves
+    and restores the original value of the T register across the execution. This
+    is useful for repeated tests of the same syllable */
+    var lastT = px.T;
+    var lastTROF = px.TROF
+
+    stepIt(ev);
+    px.T = lastT;
+    px.TROF = lastTROF;
+    displayOctal("TReg", px.T, 4);
+    $$("TROF").checked = (px.TROF != 0);
+    displaySyllable();
+}
+
 function runIt(ev) {
     /* Steps through instructions continuously until the C register matches the
     StopAddr address. StopAddr can be changed while running. Setting it to zero
@@ -1099,6 +1114,12 @@ function checkBrowser() {
     }
 }
 
+function focusConsole() {
+    window.focus();
+    $$("AReg").select();
+    $$("AReg").focus();
+}
+
 function initialize() {
     var sysConfig = new B5500SystemConfig();
 
@@ -1261,6 +1282,7 @@ function initialize() {
     $$("Dump").addEventListener("click", dump_onClick, false);
     $$("GoBtn").addEventListener("click", goIt, false);
     $$("StepBtn").addEventListener("click", stepIt, false);
+    $$("Execute1Btn").addEventListener("click", executeSingle, false);
     $$("RunBtn").addEventListener("click", runIt, false);
     $$("RunSilently").addEventListener("click", runSilently_onClick, false);
 
@@ -1282,6 +1304,7 @@ function initialize() {
         displayOctal("StopAddr", stopAddress, 5);
         establishSilence(runSilently);
         $$("StepBtn").disabled = false;
+        $$("Execute1Btn").disabled = false;
     });
 }
 
@@ -1624,7 +1647,9 @@ window.onload = function() {
          
         <input id=RunBtn name=RunBtn type=button value="Run" accesskey=R>
 <tr>
-    <td colspan=6 class=rj>
+    <td colspan=2 class=center>
+        <input id=Execute1Btn name=Execute1Btn type=button value="Execute Single" accesskey=X>
+    <td colspan=4 class=rj>
         <label for=RunSilently>Run Silently</label>
         <input id=RunSilently name=RunSilently type=checkbox value=1>
 </table>

webUI/B5500SystemConfig.js

@@ -869,11 +869,6 @@ B5500SystemConfig.prototype.openConfigUI = function openConfigUI() {
                 B5500CentralControl.bindMethod(this, this.closeConfigUI), false);
     }
 
-    this.window = window.open("", this.configDBName);
-    if (this.window) {
-        this.window.close();
-        this.window = null;
-    }
     this.doc = null;
     this.window = window.open("../webUI/B5500SystemConfig.html", this.configDBName,
             "location=no,scrollbars,resizable,width=640,height=700");

webUI/B5500Util.js

@@ -74,6 +74,82 @@ B5500Util.removeClass = function removeClass(e, name) {
     e.className = e.className.replace(new RegExp("\\b" + name + "\\b\\s*", "g"), "");
 };
 
+/**************************************/
+B5500Util.octize = function octize(v, n) {
+    /* Converts "v" to an octal digit string and truncates or pads with zeroes
+    on the left as necessary to make a string of length "n" */
+    var s = v.toString(8);
+    var z = s.length;
+
+    if (z > n) {
+        s = s.substring(z-n);
+    } else {
+        while (z < n) {
+           ++z;
+           s = "0" + s;
+        }
+    }
+
+    return s;
+};
+
+/**************************************/
+B5500Util.pic9n = function pic9n(v, n) {
+    /* Converts "v" to a trimmed string and truncates or pads with zeroes on
+    the left as necessary to make a string of length "n" */
+    var s = v.toString().trim();
+    var z = s.length;
+
+    if (z > n) {
+        s = s.substring(z-n);
+    } else {
+        while (z < n) {
+            ++z;
+            s = "0" + s;
+        }
+    }
+
+    return s;
+};
+
+/**************************************/
+B5500Util.picXn = function picXn(v, n) {
+    /* Converts "v" to a trimmed string and truncates or pads with spaces on
+    the right as necessary to make a string of length "n" */
+    var s = v.toString().trim();
+    var z = s.length;
+
+    if (z > n) {
+        s = s.substring(0, n);
+    } else {
+        while (z < n) {
+            ++z;
+            s += " ";
+        }
+    }
+
+    return s;
+};
+
+/**************************************/
+B5500Util.picZn = function picZn(v, n) {
+    /* Converts "v" to a trimmed string and truncates or pads with spaces on
+    the left as necessary to make a string of length "n" */
+    var s = v.toString().trim();
+    var z = s.length;
+
+    if (z > n) {
+        s = s.substring(z-n);
+    } else {
+        while (z < n) {
+            ++z;
+            s = " " + s;
+        }
+    }
+
+    return s;
+};
+
 /**************************************/
 B5500Util.deepCopy = function deepCopy(source, dest) {
     /* Performs a deep copy of the object "source" into the object "dest".