From 0f1802b678e549e2cd50fb766535d929173c6a2d Mon Sep 17 00:00:00 2001
From: paul <paul@d975b723-8314-39be-e08c-2c920e379342>
Date: Mon, 26 Nov 2012 03:23:43 +0000
Subject: [PATCH] Implement initial B5500SyllableDebugger.html testbed.

---
 emulator/B5500Processor.js       |   8 +-
 webUI/B5500SyllableDebugger.css  | 120 ++++++
 webUI/B5500SyllableDebugger.html | 700 +++++++++++++++++++++++++++++++
 3 files changed, 825 insertions(+), 3 deletions(-)
 create mode 100644 webUI/B5500SyllableDebugger.css
 create mode 100644 webUI/B5500SyllableDebugger.html

diff --git a/emulator/B5500Processor.js b/emulator/B5500Processor.js
index 6fa2f3b..235b6ea 100644
--- a/emulator/B5500Processor.js
+++ b/emulator/B5500Processor.js
@@ -51,6 +51,7 @@ function B5500Processor(procID, cc) {
 /**************************************/
 
 B5500Processor.timeSlice = 5000;        // Standard run() timeslice, about 5ms (we hope) 
+B5500Processor.memCycles = 6;           // assume 6 us memory cycle time (the other option was 4 usec)
 
 B5500Processor.collation = [            // index by BIC to get collation value
     53, 54, 55, 56, 57, 58, 59, 60,             // @00: 0 1 2 3 4 5 6 7
@@ -190,7 +191,7 @@ B5500Processor.prototype.access = function(eValue) {
         break;
     }
 
-    this.cycleCount += 6;               // assume 6 us memory cycle time (the other option was 4 usec)
+    this.cycleCount += B5500Processor.memCycles;               
     if (acc.MAED) {
         this.I |= 0x02;                 // set I02F - memory address/inhibit error
         if (this.NCSF || this !== this.cc.P1) {
@@ -1858,7 +1859,8 @@ B5500Processor.prototype.doublePrecisionAdd = function(adding) {
     var xa;                             // extended mantissa for A
     var xb;                             // extended mantissa for B
     
-    this.cycleCount += 8;               // estimate some general overhead
+    // Estimate some general overhead and account for stack manipulation we don't do
+    this.cycleCount += B5500Processor.memCycles*4 + 8;
     
     this.adjustABFull();                // extract the top (A) operand fields:
     ma = this.A % 0x8000000000;         // extract the A mantissa
@@ -1936,7 +1938,7 @@ B5500Processor.prototype.doublePrecisionAdd = function(adding) {
         // is zero), so do the actual 78-bit addition as two 40-bit, signed, twos-
         // complement halves. Note that computing the twos-complement of the 
         // extension requires a borrow from the high-order part, so the borrow
-        // is taken from the 40-bit twos-complement base (i.e., use 0xFFFFFFFFFF
+        // is taken from the 40-bit twos-complement base (i.e., using 0xFFFFFFFFFF
         // instead of 0x10000000000).
         if (sb) {                       // if B negative, compute B 2s complement
             this.cycleCount += 2;
diff --git a/webUI/B5500SyllableDebugger.css b/webUI/B5500SyllableDebugger.css
new file mode 100644
index 0000000..d552808
--- /dev/null
+++ b/webUI/B5500SyllableDebugger.css
@@ -0,0 +1,120 @@
+/***********************************************************************
+* retro-b5500/emulator B5500DistributionAndDisplay.css
+************************************************************************
+* Copyright (c) 2012, Nigel Williams and Paul Kimpel.
+* Licensed under the MIT License, see http://www.opensource.org/licenses/mit-license.php
+************************************************************************
+* B5500 Emulator syllable debugger style sheet.
+************************************************************************
+* 2012-11-25  P.Kimpel
+*   Original version, from webIU/B5500DistributionAndDisplay.css.
+***********************************************************************/
+
+BODY {
+    position:           relative;
+    font-family:        Arial, Helvetica, sans-serif;
+    font-size:          small;
+    margin:             4px}
+
+DIV#LogoDiv {
+    position:           absolute; 
+    background-color:   #666; 
+    border-radius:      0.5em;
+    width:              198px; 
+    height:             104px; 
+    right:              0; 
+    top:                0}
+    
+DIV#BurroughsLogo {
+    background-color:   black;
+    position:           absolute;
+    top:                16px;
+    right:              16px;
+    border-top:         3px solid #EEE;
+    border-bottom:      3px solid #EEE}
+
+DIV#B5500Logo {
+    background-color:   #EEE;
+    font-family:        Arial Narrow, Arial, Helvetica, sans-serif;
+    font-size:          24px;
+    color:              #333333;
+    letter-spacing:     1px;
+    padding-left:       4px;
+    padding-right:      4px;
+    position:           absolute;
+    top:                56px;
+    right:              16px}
+
+IMG#BurroughsLogoImage {
+    width:              150px;
+    text-align:         center;
+    vertical-align:     middle;
+    padding-top:        3px;
+    padding-bottom:     3px;
+    padding-left:       8px;
+    padding-right:      8px}
+
+TABLE.normal, TABLE.standard {
+    border-spacing:     0;
+    border-collapse:    collapse}
+
+TABLE.border{
+    border-color:       #CCCCCC;
+    border-width:       1px;
+    border-style:       solid}
+
+CAPTION {
+    text-align:         center;
+    padding-left:       4px;
+    padding-right:      4px;
+    font-weight:        bold}
+
+TH {
+    vertical-align:     bottom;
+    text-align:         center;
+    padding-left:       2px;
+    padding-right:      2px;
+    font-family:        "Arial", "Helvetica", sans-serif;
+    font-weight:        bold}
+
+TABLE.normal>TBODY>TR>TD, TABLE.standard>TBODY>TR>TD {
+    padding-top:        1px;
+    padding-bottom:     1px;
+    padding-left:       2px;
+    padding-right:      2px}
+
+TABLE.standard>THEAD>TR>TH, TABLE.standard>TBODY>TR>TD {
+    font-size:          85%}
+
+TABLE.standard>THEAD>TR>TH, TABLE.normal>THEAD>TR>TH {
+    text-align:         center;
+    padding-left:       0.5ex;
+    padding-right:      0.5ex;
+    font-weight:        bold}
+
+TABLE.border>THEAD>TR>TH, TABLE.border>TBODY>TR>TD {
+    border:             1px solid #CCCCCC}
+    
+TABLE#RegisterBank1 {
+    position:           relative}
+    
+TABLE#RegisterBank2 {
+    position:           absolute;
+    right:              0;
+    top:                120px}
+    
+TR {
+    vertical-align:     middle}
+    
+.bold {
+    font-weight:        bold}      
+
+.center {
+    text-align:         center}
+
+.data {
+    font-family:        Lucida Sans Typewriter, Courier New, Courier, monospace}
+    
+.number {
+    font-family:        Lucida Sans Typewriter, Courier New, Courier, monospace;
+    text-align:         right}
diff --git a/webUI/B5500SyllableDebugger.html b/webUI/B5500SyllableDebugger.html
new file mode 100644
index 0000000..9823e2f
--- /dev/null
+++ b/webUI/B5500SyllableDebugger.html
@@ -0,0 +1,700 @@
+<!DOCTYPE html>
+<head>
+<title>B5500 Processor Syllable Debugger</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+<meta name="Author" content="Nigel Williams & Paul Kimpel">
+<meta http-equiv="Content-Script-Type" content="text/javascript">
+<meta http-equiv="Content-Style-Type" content="text/css">
+<link id=defaultStyleSheet rel=stylesheet type="text/css" href="B5500SyllableDebugger.css">
+
+<script src="../emulator/B5500SystemConfiguration.js"></script>
+<script src="../emulator/B5500CentralControl.js"></script>
+<script src="../emulator/B5500Processor.js"></script>
+
+<script>
+"use strict";
+
+var cc;
+var memAddr = 0x40;                     // @100
+
+var accessor = {                        // Memory access control block
+    requestorID: "A",                   // Memory requestor ID
+    addr: 0,                            // Memory address
+    word: 0,                            // 48-bit data word
+    MAIL: 0,                            // Truthy if attempt to access @000-@777 in normal state
+    MPED: 0,                            // Truthy if memory parity error
+    MAED: 0                             // Truthy if memory address/inhibit error
+};
+
+function setText(id, text) {
+    /* Replaces the children of the node having id="id" with a text node containing "text" */
+    var e = document.getElementById(id);
+    var f;
+    
+    if (!e) {
+        alert("Invalid setText() node id \"" + id + "\"");
+    } else {
+        while (f = e.firstChild) {
+            e.removeChild(f);
+        }
+        e.appendChild(document.createTextNode(text));
+    }
+}
+
+function parseToOctal(e) {
+    /* Obtains the .value from the element "e", parses it, and returns the 
+    result as a B5500 numeric word. If the element text contains any of "-+eE."
+    the text is parsed as a decimal integer or floating point number, otherwise
+    it is parsed as an octal value */
+    var ev = 0;                         // exponent of parsed value
+    var mv;                             // mantissa of parsed value
+    var sv = 0;                         // sign of parsed value
+    var tv = 0;                         // sign of parsed value exponent
+    var text = e.value;                 // text of element
+    var v;                              // parsed value of element text
+    
+    if (text.search(/\S/) < 0) {
+        text = "0";
+    }
+    if (text.search(/[-+eE.]/) < 0) {
+        v = parseInt(text, 8);
+    } else {
+        v = parseFloat(text);
+        if (!isNaN(v) && v != 0) {
+            if (v < 0) {
+                sv = 1;
+                v = -v;
+            }
+            while (v < 0x1000000000) {
+                v *= 8;
+                ev--;
+            } 
+            while (v >= 0x8000000000) {
+                v /= 8;
+                ev++;
+            }
+            mv = Math.floor(v);
+            if (ev >= -13) {
+                while (ev < 0 && mv%8 == 0) {
+                    mv /= 8;
+                    ev++;
+                }
+            }
+            if (ev < 0) {
+                tv = 1;
+                ev = -ev;
+            }
+            v = (((sv*2) + tv)*64 + ev%64)*0x8000000000 + mv;        // to B5500 format
+        }
+    }
+    
+    if (isNaN(v)) {
+        e.style.backgroundColor = "red";
+    } else {
+        e.style.backgroundColor = "";
+    }
+    return v;
+}
+
+function padOctal(value, octades) {
+    /* Formats "value" as an octal number of "octades" length, left-padding with 
+    zeroes as necessary */
+    var text = value.toString(8);
+    var len = text.length;
+    
+    while (len++ < octades) {
+        text = "0" + text;
+    }
+    return text;
+}
+
+function displayOctal(id, value, octades) {
+    /* Formats the "value" as octal of length "octades" and sets the "id".value 
+    property with the result */
+    var e = document.getElementById(id);
+    
+    e.value = padOctal(value, octades);
+}
+
+function displayNumber(id, value) {
+    /* Converts the "value" as a B5500 number to a Javascript Number() object and
+    formats it as the text content of node "id" */
+    var m = value % 0x8000000000;       // get the mantissa
+    var e = (value - m)/0x8000000000;   // get the exponent and sign bits
+    var s = (e & 0x80) >>> 7;           // get the mantissa sign
+    var t = (e & 0x40) >>> 6;           // get the exponent sign
+    
+    e = (t ? -(e & 0x3F) : (e & 0x3F)); // get signed value of exponent
+    setText(id, (Math.pow(8, e)*(s ? -m : m)).toPrecision(12));
+}
+
+function displayMemWord(e, addr, valueID) {
+    /* Displays the contents of the memory word at "addr" as the value of element "e" */
+    
+    setText(valueID, "");
+    e.setAttribute("data-b55sd-addr", addr.toString(8));
+    accessor.addr = addr;
+    cc.fetch(accessor);
+    if (accessor.MAIL) {
+        e.style.backgroundColor = "yellow";
+        e.value = "<< ADDR INH >>";
+    } else if (accessor.MPED) {
+        e.style.backgroundColor = "yellow";
+        e.value = "<< PARITY >>";
+    } else if (accessor.MAED) {
+        e.style.backgroundColor = "yellow";
+        e.value = "<< INV ADDR >>";
+    } else { 
+        e.style.backgroundColor = "";
+        displayOctal(e.id, accessor.word, 16);
+        displayNumber(valueID, accessor.word);
+    }
+}
+
+function displayStack() {
+    /* Displays the A and B registers, plus the top 8 words of the memory stack */
+    var addr;
+    var e;
+    var valueID;
+    var x;
+    
+    displayOctal("AReg", cc.P1.A, 16);
+    displayNumber("ARegValue", cc.P1.A);
+    document.getElementById("AROF").checked = (cc.P1.AROF != 0);
+    
+    displayOctal("BReg", cc.P1.B, 16);
+    displayNumber("BRegValue", cc.P1.B);
+    document.getElementById("BROF").checked = (cc.P1.BROF != 0);
+    
+    for (x=0; x<=7; x++) {
+        addr = cc.P1.S - x;
+        setText("SAddr" + x, padOctal(addr, 5));   
+        e = document.getElementById("SWord" + x);
+        valueID = e.getAttribute("data-b55sd-valueID");
+        displayMemWord(e, addr, valueID);
+    }
+}
+
+function displayMemory() {
+    /* Displays the words surrounding "memAddr" */
+    var addr;
+    var e;
+    var suffix;
+    var valueID;
+    var x;
+    
+    for (x=-4; x<=4; x++) {
+        suffix = (x < 0 ? "M" + (-x) : "P" + x);
+        addr = memAddr + x;
+        if (x == 0) {
+            displayOctal("MAddr", addr, 5);
+        } else {
+            setText("MAddr" + suffix, padOctal(addr, 5));   
+        }
+        e = document.getElementById("MWord" + suffix);
+        valueID = e.getAttribute("data-b55sd-valueID");
+        displayMemWord(e, addr, valueID);
+    }
+}
+
+function displayRegisters() {
+    /* Displays the non-stack processor registers */
+    
+    displayOctal("XReg", cc.P1.X, 13);
+    displayOctal("CReg", cc.P1.C, 5);
+    displayOctal("LReg", cc.P1.L, 1);
+    displayOctal("PReg", cc.P1.P, 16);
+    document.getElementById("PROF").checked = (cc.P1.PROF != 0);    
+    displayOctal("TReg", cc.P1.T, 4);
+    document.getElementById("TROF").checked = (cc.P1.TROF != 0);
+    displayOctal("EReg", cc.P1.E, 2);
+    displayOctal("IReg", cc.P1.I, 3);
+    displayOctal("QReg", cc.P1.Q, 4);
+    displayOctal("MReg", cc.P1.M, 5);
+    displayOctal("GReg", cc.P1.G, 1);
+    displayOctal("HReg", cc.P1.H, 1);
+    displayOctal("SReg", cc.P1.S, 5);
+    displayOctal("KReg", cc.P1.K, 1);
+    displayOctal("VReg", cc.P1.V, 1);
+    displayOctal("FReg", cc.P1.F, 5);
+    displayOctal("RReg", cc.P1.R, 3);
+    displayOctal("YReg", cc.P1.Y, 2);
+    displayOctal("ZReg", cc.P1.Z, 2);
+    displayOctal("NReg", cc.P1.N, 2);  
+    document.getElementById("NCSF").checked = (cc.P1.NCSF != 0);
+    document.getElementById("CWMF").checked = (cc.P1.CWMF != 0);
+    document.getElementById("SALF").checked = (cc.P1.SALF != 0);
+    document.getElementById("VARF").checked = (cc.P1.VARF != 0);
+}
+
+function displayProcessorState() {
+    /* Extracts and displays the current processor state on the web page */
+    
+    displayStack();
+    displayMemory();
+    displayRegisters();
+}
+
+function stepIt(exec) {
+    /* Simple test driver for the Processor arithmetic ops */
+    var opcode = 0x02D;                 // NOOP (XX55) by default
+    var opList = document.getElementById("OpList")
+    var saveC;
+    var saveL;
+    var saveP;
+    var saveT;
+    var text;
+    var title;
+    var value;
+
+    title = opList.options[opList.selectedIndex].text
+    value = opList.options[opList.selectedIndex].value;
+    opcode = parseInt(value, 8);
+
+    setText("ARegOrig", padOctal(cc.P1.A, 16));
+    setText("BRegOrig", padOctal(cc.P1.B, 16));
+
+    cc.P1.I = 0;                // reset any interrupts
+    cc.IAR = 0;
+
+    cc.P1.X = 0;
+    if (exec) {
+        saveT = cc.P1.T;
+        saveC = cc.P1.C;
+        saveL = cc.P1.L;
+        saveP = cc.P1.P;
+        cc.P1.T = opcode;
+    }             
+    cc.P1.step();
+    if (exec) {
+        cc.P1.T = saveT;
+        cc.P1.C = saveC;
+        cc.P1.L = saveL;
+        cc.P1.P = saveP;
+    }             
+                  
+    displayProcessorState();
+}
+
+function word_onChange(ev) {
+    /* Normalizes, sets, and displays the value of a memory word when changed */
+    var addr;
+    var e = ev.target;
+    var value;
+    var valueID = e.getAttribute("data-b55sd-valueID");
+    
+    value = e.getAttribute("data-b55sd-addr");
+    addr = parseInt(value, 8);
+    if (isNaN(addr)) {
+        e.style.backgroundColor = "orange";
+        alert("Invalid data-b55sd-addr address: " + value);
+    } else {
+        value = parseToOctal(e);
+        if (isNaN(value)) {
+            e.style.backgroundColor = "red";
+        } else {
+            e.style.backgroundColor = "";
+            accessor.addr = addr;
+            accessor.word = value;
+            cc.store(accessor);
+            displayMemWord(e, addr, valueID);
+        }
+    }
+    return value;
+}
+
+function reg_onChange(ev) {
+    /* Normalizes, sets, and displays the value of a register when changed */
+    var e = ev.target;
+    var value;
+    
+    value = parseToOctal(e);
+    if (isNaN(value)) {
+        e.style.backgroundColor = "red";
+    } else {
+        e.style.backgroundColor = "";
+        e.value = padOctal(value, e.maxLength);
+    }
+    return value;
+}
+
+function tos_onChange(ev, valueID, origID) {
+    /* Normalizes and displays the value of a register when changed */
+    var e = ev.target;
+    var value;
+    
+    value = parseToOctal(e);
+    if (isNaN(value)) {
+        e.style.backgroundColor = "red";
+    } else {
+        e.style.backgroundColor = "";
+        displayOctal(e.id, value, 16);
+        displayNumber(valueID, value);
+    }
+    return value;
+}
+
+window.onload = function() {
+
+    document.getElementById("AReg").onchange = function(ev) {
+        cc.P1.A = tos_onChange(ev, "ARegValue", "ARegOrig");
+        cc.P1.AROF = 1;
+        document.getElementById("AROF").checked = true;
+    };
+    document.getElementById("BReg").onchange = function(ev) {
+        cc.P1.B = tos_onChange(ev, "BRegValue", "BRegOrig");
+        cc.P1.BROF = 1;
+        document.getElementById("BROF").checked = true;
+    };
+    document.getElementById("MAddr").onchange = function(ev) {
+        var addr = parseToOctal(ev.target);
+        
+        if (!isNaN(addr)) {
+            memAddr = addr & 0x7FFF;
+            displayMemory();
+        }
+    };
+    document.getElementById("SReg").onchange = function(ev) {
+        var addr = parseToOctal(ev.target);
+        
+        if (!isNaN(addr)) {
+            cc.P1.S = addr & 0x7FFF;
+            displayStack();
+        }
+    };
+    document.getElementById("SWord0").onchange = word_onChange;
+    document.getElementById("SWord1").onchange = word_onChange;
+    document.getElementById("SWord2").onchange = word_onChange;
+    document.getElementById("SWord3").onchange = word_onChange;
+    document.getElementById("SWord4").onchange = word_onChange;
+    document.getElementById("SWord5").onchange = word_onChange;
+    document.getElementById("SWord6").onchange = word_onChange;
+    document.getElementById("SWord7").onchange = word_onChange;
+    
+    document.getElementById("MWordM4").onchange = word_onChange;
+    document.getElementById("MWordM3").onchange = word_onChange;
+    document.getElementById("MWordM2").onchange = word_onChange;
+    document.getElementById("MWordM1").onchange = word_onChange;
+    document.getElementById("MWordP0").onchange = word_onChange;
+    document.getElementById("MWordP1").onchange = word_onChange;
+    document.getElementById("MWordP2").onchange = word_onChange;
+    document.getElementById("MWordP3").onchange = word_onChange;
+    document.getElementById("MWordP4").onchange = word_onChange;
+    
+    document.getElementById("TReg").onchange = function(ev) {
+        cc.P1.T = reg_onChange(ev);
+    };
+
+    cc = new B5500CentralControl();
+    cc.powerOn();
+    cc.clear();
+
+    cc.P1.S = 0x40;                     // stack at @100
+    cc.P1.R = 0x005;                    // PRT at @500 (R has addr div 64)
+
+    cc.P1.C = 0x10;                     // execute from address @20
+    cc.P1.access(0x30);                 // P = [C]
+    cc.P1.T = cc.fieldIsolate(cc.P1.P, 0, 12);
+    cc.P1.TROF = 1;
+    cc.P1.L = 1;                        // point to the next instruction
+    
+    cc.P1.NCSF = 0;                     // initiate test in control state
+    
+    displayProcessorState();
+}
+</script>
+</head>
+
+<body>
+
+<div id=LogoDiv>
+    <div id=BurroughsLogo>
+        <img id=BurroughsLogoImage src="Burroughs-Logo-Neg.jpg">
+    </div>
+    <div id=B5500Logo>B 5500 
+    </div>
+</div>
+
+<h3>B5500 Syllable Debugger</h3>
+
+<table id=RegisterBank1 class="normal border">
+<thead>
+<tr>
+    <th>Reg
+    <th>Addr
+    <th>Current (octal)
+    <th>FP Value
+    <th>Original (octal)
+<tbody>
+<tr>
+    <td colspan=5 class="center bold">STACK
+<tr>
+    <td class=center>A
+    <td>
+        <input id=AROF name=AROF type=checkbox value=1><label for=AROF>AROF</label>
+    <td>
+        <input id=AReg name=AReg type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=ARegValue data-b55sd-origID=ARegOrig>
+    <td id=ARegValue class=number>
+    <td id=ARegOrig class=number>
+<tr>    
+    <td class=center>B
+    <td>
+        <input id=BROF name=BROF type=checkbox value=1><label for=BROF>BROF</label>
+    <td>
+        <input id=BReg name=BReg type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=BRegValue data-b55sd-origID=BRegOrig>
+    <td id=BRegValue class=number>
+    <td id=BRegOrig class=number>
+<tr>
+    <td class=center>S-0
+    <td id=SAddr0 class="data center">00000
+    <td>
+        <input id=SWord0 name=SWord0 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=SValue0 data-b55sd-origID=SOrig0>
+    <td id=SValue0 class=number>
+    <td id=SOrig0 class=number>
+<tr>
+    <td class=center>S-1
+    <td id=SAddr1 class="data center">11111
+    <td>
+        <input id=SWord1 name=SWord1 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=SValue1 data-b55sd-origID=SOrig1>
+    <td id=SValue1 class=number>
+    <td id=SOrig1 class=number>
+<tr>
+    <td class=center>S-2
+    <td id=SAddr2 class="data center">22222
+    <td>
+        <input id=SWord2 name=SWord2 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=SValue2 data-b55sd-origID=SOrig2>
+    <td id=SValue2 class=number>
+    <td id=SOrig2 class=number>
+<tr>
+    <td class=center>S-3
+    <td id=SAddr3 class="data center">33333
+    <td>
+        <input id=SWord3 name=SWord3 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=SValue3 data-b55sd-origID=SOrig3>
+    <td id=SValue3 class=number>
+    <td id=SOrig3 class=number>
+<tr>
+    <td class=center>S-4
+    <td id=SAddr4 class="data center">44444
+    <td>
+        <input id=SWord4 name=SWord4 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=SValue4 data-b55sd-origID=SOrig4>
+    <td id=SValue4 class=number>
+    <td id=SOrig4 class=number>
+<tr>
+    <td class=center>S-5
+    <td id=SAddr5 class="data center">55555
+    <td>
+        <input id=SWord5 name=SWord5 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=SValue5 data-b55sd-origID=SOrig5>
+    <td id=SValue5 class=number>
+    <td id=SOrig5 class=number>
+<tr>
+    <td class=center>S-6
+    <td id=SAddr6 class="data center">66666
+    <td>
+        <input id=SWord6 name=SWord6 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=SValue6 data-b55sd-origID=SOrig6>
+    <td id=SValue6 class=number>
+    <td id=SOrig6 class=number>
+<tr>
+    <td class=center>S-7
+    <td id=SAddr7 class="data center">77777
+    <td>
+        <input id=SWord7 name=SWord7 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=SValue7 data-b55sd-origID=SOrig7>
+    <td id=SValue7 class=number>
+    <td id=SOrig7 class=number>
+
+<tbody>
+<tr>
+    <td colspan=5 class="center bold">MEMORY
+<tr>
+    <td class=center>M+4
+    <td id=MAddrP4 class="data center">44444
+    <td>
+        <input id=MWordP4 name=MWordP4 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=MValueP4 data-b55sd-origID=MOrigP4>
+    <td id=MValueP4 class=number>
+    <td id=MOrigP4 class=number>
+<tr>
+    <td class=center>M+3
+    <td id=MAddrP3 class="data center">33333
+    <td>
+        <input id=MWordP3 name=MWordP3 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=MValueP3 data-b55sd-origID=MOrigP3>
+    <td id=MValueP3 class=number>
+    <td id=MOrigP3 class=number>
+<tr>
+    <td class=center>M+2
+    <td id=MAddrP2 class="data center">22222
+    <td>
+        <input id=MWordP2 name=MWordP2 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=MValueP2 data-b55sd-origID=MOrigP2>
+    <td id=MValueP2 class=number>
+    <td id=MOrigP2 class=number>
+<tr>
+    <td class=center>M+1
+    <td id=MAddrP1 class="data center">11111
+    <td>
+        <input id=MWordP1 name=MWordP1 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=MValueP1 data-b55sd-origID=MOrigP1>
+    <td id=MValueP1 class=number>
+    <td id=MOrigP1 class=number>
+<tr>
+    <td class=center>Mem
+    <td class="center">
+        <input id=MAddr name=MAddr type=text class=center size=5 maxlength=5>    
+    <td>
+        <input id=MWordP0 name=MWordP0 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=MValueP0 data-b55sd-origID=MOrigP0>
+    <td id=MValueP0 class=number>
+    <td id=MOrigP0 class=number>
+<tr>
+    <td class=center>M-1
+    <td id=MAddrM1 class="data center">11111
+    <td>
+        <input id=MWordM1 name=MWordM1 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=MValueM1 data-b55sd-origID=MOrigM1>
+    <td id=MValueM1 class=number>
+    <td id=MOrigM1 class=number>
+<tr>
+    <td class=center>M-2
+    <td id=MAddrM2 class="data center">22222
+    <td>
+        <input id=MWordM2 name=MWordM2 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=MValueM2 data-b55sd-origID=MOrigM2>
+    <td id=MValueM2 class=number>
+    <td id=MOrigM2 class=number>
+<tr>
+    <td class=center>M-3
+    <td id=MAddrM3 class="data center">33333
+    <td>
+        <input id=MWordM3 name=MWordM3 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=MValueM3 data-b55sd-origID=MOrigM3>
+    <td id=MValueM3 class=number>
+    <td id=MOrigM3 class=number>
+<tr>
+    <td class=center>M-4
+    <td id=MAddrM4 class="data center">44444
+    <td>
+        <input id=MWordM4 name=MWordM4 type=text class=number size=16 maxlength=16
+               data-b55sd-valueID=MValueM4 data-b55sd-origID=MOrigM4>
+    <td id=MValueM4 class=number>
+    <td id=MOrigM4 class=number>
+</table>
+
+<table id=RegisterBank2 class="normal border">
+<tbody>
+<tr>    
+    <td class=center>X
+    <td colspan=5>
+        <input id=XReg name=XReg type=text class=number size=13 maxlength=13>
+<tr>
+    <td class=center>C
+    <td>
+        <input id=CReg name=CReg type=text class=number size=5 maxlength=5>
+    <td class=center>L
+    <td colspan=3>
+        <input id=LReg name=LReg type=text class=number size=1 maxlength=1>
+<tr>
+    <td class=center>P
+    <td colspan=5>
+        <input id=PReg name=PReg type=text class=number size=16 maxlength=16>
+        <input id=PROF name=PROF type=checkbox value=1><label for=PROF>PROF</label>
+<tr>
+    <td class=center>T
+    <td colspan=5>
+        <input id=TReg name=TReg type=text class=number size=4 maxlength=4>
+        <input id=TROF name=TROF type=checkbox value=1><label for=TROF>TROF</label>
+<tr>
+    <td class=center>E
+    <td>
+        <input id=EReg name=EReg type=text class=number size=2 maxlength=2>
+    <td class=center>I
+    <td>
+        <input id=IReg name=IReg type=text class=number size=3 maxlength=3>
+    <td class=center>Q
+    <td>
+        <input id=QReg name=QReg type=text class=number size=4 maxlength=4>
+<tr>
+    <td class=center>M
+    <td>
+        <input id=MReg name=MReg type=text class=number size=5 maxlength=5>
+    <td class=center>G
+    <td>
+        <input id=GReg name=GReg type=text class=number size=1 maxlength=1>
+    <td class=center>H
+    <td>
+        <input id=HReg name=HReg type=text class=number size=1 maxlength=1>
+<tr>
+    <td class=center>S
+    <td>
+        <input id=SReg name=SReg type=text class=number size=5 maxlength=5>
+    <td class=center>K
+    <td>
+        <input id=KReg name=KReg type=text class=number size=1 maxlength=1>
+    <td class=center>V
+    <td>
+        <input id=VReg name=VReg type=text class=number size=1 maxlength=1>
+<tr>
+    <td class=center>F
+    <td>
+        <input id=FReg name=FReg type=text class=number size=5 maxlength=5>
+    <td class=center>R
+    <td colspan=3>
+        <input id=RReg name=RReg type=text class=number size=3 maxlength=3>
+<tr>
+    <td class=center>Y
+    <td>
+        <input id=YReg name=YReg type=text class=number size=2 maxlength=2>
+    <td class=center>Z
+    <td>
+        <input id=ZReg name=ZReg type=text class=number size=2 maxlength=2>
+    <td class=center>N
+    <td>
+        <input id=NReg name=NReg type=text class=number size=2 maxlength=2>
+<tr>
+    <td colspan=6 class=center>
+        <input id=NCSF name=NCSF type=checkbox value=1><label for=NCSF>NCSF</label>
+        &nbsp;&nbsp;
+        <input id=CWMF name=CWMF type=checkbox value=1><label for=CWMF>CWMF</label>
+        &nbsp;&nbsp;
+        <input id=SALF name=SALF type=checkbox value=1><label for=SALF>SALF</label>
+        &nbsp;&nbsp;
+        <input id=VARF name=VARF type=checkbox value=1><label for=VARF>VARF</label>
+</table>
+
+<p>
+<input id=Step name=Step type=button value="Step" onclick="return stepIt(false)">
+&nbsp;
+Syllable: 
+<select id=OpList name=OpList>
+    <option value="0055" selected>NOP : No Operation
+    <option value="0101">ADD : Add
+    <option value="0301">SUB : Subtract
+    <option value="0401">MUL : Multiply
+    <option value="1001">DIV : Divide
+    <option value="3001">IDV : Integer Divide
+    <option value="7001">RDV : Remainder Divide
+    <option value="0105">DLA : Add Double Precision
+    <option value="0305">DLS : Subtract Double Precision
+    <option value="0125">GEQ : B Greater or Equal A
+    <option value="0225">GTR : B Greater Than A
+    <option value="0425">NEQ : B Not Equal A
+    <option value="4125">LEQ : B Less or Equal A
+    <option value="4225">LSS : B Less Than A
+    <option value="4425">EQL : B Equal A
+</select>
+
+&nbsp;
+<input id=Step name=Exec type=button value="Exec" onclick="return stepIt(true)">
+</p>
+
+</body>
+</html>
\ No newline at end of file