1
0
mirror of https://github.com/pkimpel/retro-b5500.git synced 2026-02-13 11:44:33 +00:00
Files
pkimpel.retro-b5500/webUI/B5500SPOUnit.js
Paul Kimpel 9db6ca5147 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.
2016-04-18 18:08:41 -07:00

638 lines
24 KiB
JavaScript

/***********************************************************************
* retro-b5500/emulator B5500SPOUnit.js
************************************************************************
* Copyright (c) 2012, Nigel Williams and Paul Kimpel.
* Licensed under the MIT License, see
* http://www.opensource.org/licenses/mit-license.php
************************************************************************
* B5500 SPO Peripheral Unit module.
*
* Defines a SPO peripheral unit type that implements the Supervisory
* Print Out device on the operator's console.
*
************************************************************************
* 2012-12-22 P.Kimpel
* Original version, from B5500DummyUnit.js.
***********************************************************************/
"use strict";
/**************************************/
function B5500SPOUnit(mnemonic, unitIndex, designate, statusChange, signal, options) {
/* Constructor for the SPOUnit object */
this.maxScrollLines = 5000; // Maximum amount of printer scrollback
this.charPeriod = 100; // Printer speed, milliseconds per character
this.mnemonic = mnemonic; // Unit mnemonic
this.unitIndex = unitIndex; // Ready-mask bit number
this.designate = designate; // IOD unit designate number
this.statusChange = statusChange; // external function to call for ready-status change
this.signal = signal; // external function to call for special signals (e.g,. SPO input request)
this.initiateStamp = 0; // timestamp of last initiation (set by IOUnit)
this.inTimer = 0; // input setCallback() token
this.outTimer = 0; // output setCallback() token
this.useAlgolGlyphs = options.algolGlyphs; // format Unicode for special Algol chars
this.clear();
this.doc = null;
this.paper = null;
this.inputBox = null;
this.endOfPaper = null;
this.window = window.open("../webUI/B5500SPOUnit.html", mnemonic,
"location=no,scrollbars=no,resizable,width=688,height=508");
this.window.addEventListener("load", B5500CentralControl.bindMethod(this,
B5500SPOUnit.prototype.spoOnload), false);
}
// this.spoState enumerations
B5500SPOUnit.prototype.spoLocal = 1;
B5500SPOUnit.prototype.spoRemote = 2;
B5500SPOUnit.prototype.spoInput = 3;
B5500SPOUnit.prototype.spoOutput = 4;
B5500SPOUnit.prototype.keyFilter = [ // Filter keyCode values to valid BIC ones
0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F, // 00-0F
0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F, // 10-1F
0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x3F,0x28,0x29,0x2A,0x2B,0x2C,0x2D,0x2E,0x2F, // 20-2F
0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F, // 30-3F
0x40,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F, // 40-4F
0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0x5B,0x3F,0x5D,0x3F,0x7E, // 50-5F
0x3F,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F, // 60-6F
0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0x7B,0x7C,0x7D,0x7E,0x3F]; // 70-7F
/**************************************/
B5500SPOUnit.prototype.$$ = function $$(e) {
return this.doc.getElementById(e);
};
/**************************************/
B5500SPOUnit.prototype.clear = function clear() {
/* Initializes (and if necessary, creates) the SPO unit state */
this.ready = false; // ready status
this.busy = false; // busy status
this.errorMask = 0; // error mask for finish()
this.finish = null; // external function to call for I/O completion
this.buffer = null;
this.bufLength = 0;
this.bufIndex = 0; // current index into I/O buffer
this.printCol = 0; // current print column (0-relative)
this.nextCharTime = 0;
this.spoState = this.spoLocal; // Current state of SPO interface
this.spoInputRequested = false; // INPUT REQUEST button pressed
this.spoLocalRequested = false; // LOCAL button pressed while active
};
/**************************************/
B5500SPOUnit.prototype.setLocal = function setLocal() {
/* Sets the status of the SPO to Local and enables the input element */
this.spoLocalRequested = false;
this.spoInputRequested = false;
this.spoState = this.spoLocal;
this.endOfPaper.scrollIntoView();
B5500Util.addClass(this.$$("SPOLocalBtn"), "yellowLit");
B5500Util.addClass(this.inputBox, "visible");
this.inputBox.focus();
B5500Util.removeClass(this.$$("SPORemoteBtn"), "yellowLit");
B5500Util.removeClass(this.$$("SPOInputRequestBtn"), "yellowLit");
this.statusChange(0);
// Set up to echo characters from the keyboard
this.buffer = null;
this.bufLength = 0;
this.bufIndex = 0;
this.nextCharTime = performance.now();
this.finish = null;
};
/**************************************/
B5500SPOUnit.prototype.requestLocal = function requestLocal(ev) {
/* Handler for the Local button click. If the SPO is idle and in remote
status, sets it to local; otherwise flags it to go local once the current
I/O completes */
if (this.spoState == this.spoRemote) {
this.setLocal();
} else {
this.spoLocalRequested = true;
}
};
/**************************************/
B5500SPOUnit.prototype.setRemote = function setRemote() {
/* Sets the status of the SPO to Remote and disabled the input element */
var text;
if (this.spoState == this.spoLocal) {
this.spoState = this.spoRemote;
this.spoLocalRequested = false;
this.spoInputRequested = false;
B5500Util.addClass(this.$$("SPORemoteBtn"), "yellowLit");
B5500Util.removeClass(this.$$("SPOLocalBtn"), "yellowLit");
B5500Util.removeClass(this.inputBox, "visible");
this.window.focus();
text = this.inputBox.value;
if (text.length > 0) {
this.appendEmptyLine(text.substring(0, 72));
this.inputBox.value = "";
}
this.endOfPaper.scrollIntoView();
this.nextCharTime = performance.now();
this.statusChange(1);
}
};
/**************************************/
B5500SPOUnit.prototype.setAlgolGlyphs = function setAlgolGlyphs(makeItPretty) {
/* Controls the display of Unicode glyphs for the special Algol characters */
if (makeItPretty) {
if (!this.useAlgolGlyphs) {
B5500Util.xlateDOMTreeText(this.paper, B5500Util.xlateASCIIToAlgol);
}
} else {
if (this.useAlgolGlyphs) {
B5500Util.xlateDOMTreeText(this.paper, B5500Util.xlateAlgolToASCII);
}
}
this.useAlgolGlyphs = makeItPretty;
if (makeItPretty) {
B5500Util.addClass(this.$$("SPOAlgolGlyphsBtn"), "yellowLit");
} else {
B5500Util.removeClass(this.$$("SPOAlgolGlyphsBtn"), "yellowLit");
}
};
/**************************************/
B5500SPOUnit.prototype.appendEmptyLine = function appendEmptyLine(text) {
/* Removes excess lines already printed, then appends a new text node
to the <pre> element within the paper element */
var count = this.paper.childNodes.length;
var line = text || "";
while (--count > this.maxScrollLines) {
this.paper.removeChild(this.paper.firstChild);
}
this.paper.lastChild.nodeValue += "\n"; // newline
this.paper.appendChild(this.doc.createTextNode(line));
this.printCol = line.length;
};
/**************************************/
B5500SPOUnit.prototype.printChar = function printChar(c) {
/* Echoes the character code "c" to the SPO printer */
var line = this.paper.lastChild.nodeValue;
var len = line.length;
var s;
if (!this.useAlgolGlyphs) {
s = String.fromCharCode(c);
} else {
switch (c) {
case 0x21: s = "\u2260"; break; // ! = not-equal
case 0x7B: s = "\u2264"; break; // { = less-than-or-equal
case 0x7C: s = "\u00D7"; break; // | = multiply (x)
case 0x7D: s = "\u2265"; break; // } = greater-than-or-equal
case 0x7E: s = "\u2190"; break; // ~ = left-arrow
default: s = String.fromCharCode(c); break;
}
}
if (len < 1) {
line = s;
++this.printCol;
} else if (len < 72) {
line += s;
++this.printCol;
} else {
line = s;
this.appendEmptyLine();
}
this.paper.lastChild.nodeValue = line;
};
/**************************************/
B5500SPOUnit.prototype.outputChar = function outputChar() {
/* Outputs one character from the buffer to the SPO. If more characters remain
to be printed, schedules itself 100 ms later to print the next one, otherwise
calls finished(). If the column counter exceeds 72, a CR/LF pair is output.
A CR/LF pair is also output at the end of the message */
var nextTime = this.nextCharTime + this.charPeriod;
var delay = nextTime - performance.now();
this.nextCharTime = nextTime;
if (this.printCol < 72) { // print the character
if (this.bufIndex < this.bufLength) {
this.printChar(this.buffer[this.bufIndex++]);
this.outTimer = setCallback(this.mnemonic, this, delay, this.outputChar);
} else { // set up for the final CR/LF
this.printCol = 72;
this.outTimer = setCallback(this.mnemonic, this, delay, this.outputChar);
}
} else if (this.printCol == 72) { // delay to fake the output of a carriage-return
++this.printCol;
this.outTimer = setCallback(this.mnemonic, this, delay+this.charPeriod, this.outputChar);
} else { // actually output the CR/LF
this.printCol = 0;
this.endOfPaper.scrollIntoView();
if (this.bufIndex < this.bufLength) {
this.outTimer = setCallback(this.mnemonic, this, delay, this.outputChar);
} else { // message text is exhausted
this.finish(this.errorMask, this.bufLength); // report finish with any errors
if (this.spoLocalRequested) {
this.setLocal();
} else {
this.spoState = this.spoRemote;
}
}
}
};
/**************************************/
B5500SPOUnit.prototype.requestInput = function requestInput() {
/* Handles the request for keyboard input, from either the Input Request
button or the ESC key */
switch (this.spoState) {
case this.spoRemote:
case this.spoOutput:
if (!this.spoInputRequested) {
this.spoInputRequested = true;
B5500Util.addClass(this.$$("SPOInputRequestBtn"), "yellowLit");
this.signal(0); // Cause the Input Request interrupt
}
break;
case this.spoInput:
// the second click moved focus out of the SPO input control
this.inputBox.focus();
break;
}
};
/**************************************/
B5500SPOUnit.prototype.terminateInput = function terminateInput() {
/* Handles the End of Message event. Turns off the Ready lamp, transfers
the message text from the input element to the "paper", then calls
outputChar(), which will find bufIndex==bufLength, output a new-line,
set the state to Remote, and call finish() for us. Slick, eh? */
var text = this.inputBox.value;
var len = text.length;
var x;
if (this.spoState == this.spoInput) {
B5500Util.removeClass(this.$$("SPOReadyBtn"), "yellowLit");
B5500Util.removeClass(this.inputBox, "visible");
this.appendEmptyLine(text.substring(0, 72));
for (x=0; x<len; ++x) {
this.buffer[this.bufIndex++] = text.charCodeAt(x);
}
this.endOfPaper.scrollIntoView();
this.inputBox.value = "";
this.bufLength = this.bufIndex;
this.nextCharTime = performance.now();
this.outputChar();
this.window.focus();
}
};
/**************************************/
B5500SPOUnit.prototype.cancelInput = function cancelInput() {
/* Handles the Error message event. This is identical to terminateInput(),
but it also sets a parity error so the input message will be rejected */
if (this.spoState == this.spoInput) {
this.errorMask |= 0x10; // set parity/error-button bit
this.terminateInput();
}
};
/**************************************/
B5500SPOUnit.prototype.SPOAlgolGlyphsBtn_onclick = function SPOAlgolGlyphsBtn_onclick(ev) {
/* Handle the click event for the Algol Glyphs button */
this.setAlgolGlyphs(!this.useAlgolGlyphs);
};
/**************************************/
B5500SPOUnit.prototype.keyPress = function keyPress(ev) {
/* Handles keyboard character events. Depending on the state of the unit,
either buffers the character for transmission to the I/O Unit, simply echos
it to the printer, or ignores it altogether */
var c = ev.charCode;
var len = ev.target.value.length;
var x;
switch (this.spoState) {
case this.spoInput:
if (c == 0x7E || c == 0x5F) { // "~" or "_" (B5500 group-mark)
ev.preventDefault();
ev.stopPropagation();
c = this.keyFilter[c];
this.terminateInput();
} else if (c >= 0x20 && c < 0x7E) {
ev.preventDefault();
ev.stopPropagation();
c = this.keyFilter[c];
if (len < 72) {
ev.target.value += String.fromCharCode(c);
} else {
this.appendEmptyLine(ev.target.value);
this.endOfPaper.scrollIntoView();
for (x=0; x<len; ++x) {
this.buffer[this.bufIndex++] = ev.target.value.charCodeAt(x);
}
ev.target.value = String.fromCharCode(c);
}
}
break;
case this.spoLocal:
if (c >= 0x20 && c <= 0x7E) {
ev.preventDefault();
ev.stopPropagation();
c = this.keyFilter[c];
if (len < 72) {
ev.target.value += String.fromCharCode(c);
} else {
this.appendEmptyLine(ev.target.value);
this.endOfPaper.scrollIntoView();
ev.target.value = String.fromCharCode(c);
}
}
break;
}
};
/**************************************/
B5500SPOUnit.prototype.keyDown = function keyDown(ev) {
/* Handles key-down events in the window to capture ESC and Enter
keystrokes */
var c = ev.keyCode;
switch (c) {
case 0x1B: // ESC
switch (this.spoState) {
case this.spoRemote:
case this.spoOutput:
this.requestInput();
break;
case this.spoInput:
this.cancelInput();
break;
}
ev.preventDefault();
ev.stopPropagation();
break;
case 0x0D: // Enter
switch (this.spoState) {
case this.spoInput:
this.terminateInput();
break;
case this.spoLocal:
this.endOfPaper.scrollIntoView();
this.appendEmptyLine(this.inputBox.value.substring(0, 72));
this.inputBox.value = "";
break;
}
ev.preventDefault();
ev.stopPropagation();
break;
}
};
/**************************************/
B5500SPOUnit.prototype.copyPaper = function copyPaper(ev) {
/* Copies the text contents of the "paper" area of the SPO, opens a new
temporary window, and pastes that text into the window so it can be copied
or saved by the user */
var text = ev.target.textContent;
var title = "B5500 " + this.mnemonic + " Text Snapshot";
var win = window.open("./B5500FramePaper.html", this.mnemonic + "-Snapshot",
"scrollbars,resizable,width=500,height=500");
win.moveTo((screen.availWidth-win.outerWidth)/2, (screen.availHeight-win.outerHeight)/2);
win.addEventListener("load", function() {
var doc;
doc = win.document;
doc.title = title;
doc.getElementById("Paper").textContent = text;
});
ev.preventDefault();
ev.stopPropagation();
};
/**************************************/
B5500SPOUnit.prototype.resizeWindow = function resizeWindow(ev) {
/* Handles the window onresize event by scrolling the "paper" so it remains at the end */
this.endOfPaper.scrollIntoView();
};
/**************************************/
B5500SPOUnit.prototype.beforeUnload = function beforeUnload(ev) {
var msg = "Closing this window will make the device unusable.\n" +
"Suggest you stay on the page and minimize this window instead";
ev.preventDefault();
ev.returnValue = msg;
return msg;
};
/**************************************/
B5500SPOUnit.prototype.printText = function printText(msg, finish) {
/* Utility function to convert a string to a Typed Array buffer and queue
it for printing. This is intended only for printing an initialization message
in Local state */
var buf = new Uint8Array(msg.length);
var length = msg.length;
var x;
for (x=0; x<length; x++) {
buf[x] = msg.charCodeAt(x);
}
this.buffer = buf;
this.bufLength = length;
this.bufIndex = 0;
this.printCol = 0;
this.nextCharTime = performance.now();
this.finish = finish;
this.appendEmptyLine();
this.outputChar(); // start the printing process
this.endOfPaper.scrollIntoView();
};
/**************************************/
B5500SPOUnit.prototype.spoOnload = function spoOnload() {
/* Initializes the SPO window and user interface */
var x;
this.doc = this.window.document;
this.doc.title = "retro-B5500 " + this.mnemonic;
this.paper = this.$$("Paper");
this.inputBox = this.$$("InputBox");
this.endOfPaper = this.$$("EndOfPaper");
this.setAlgolGlyphs(this.useAlgolGlyphs);
this.window.addEventListener("beforeunload",
B5500SPOUnit.prototype.beforeUnload, false);
this.window.addEventListener("resize",
B5500CentralControl.bindMethod(this, B5500SPOUnit.prototype.resizeWindow), false);
this.window.addEventListener("keydown",
B5500CentralControl.bindMethod(this, B5500SPOUnit.prototype.keyDown), false);
this.$$("SPOUT").addEventListener("keydown",
B5500CentralControl.bindMethod(this, B5500SPOUnit.prototype.keyDown), false);
this.inputBox.addEventListener("keydown",
B5500CentralControl.bindMethod(this, B5500SPOUnit.prototype.keyDown), false);
this.inputBox.addEventListener("keypress",
B5500CentralControl.bindMethod(this, B5500SPOUnit.prototype.keyPress), false);
this.paper.addEventListener("dblclick",
B5500CentralControl.bindMethod(this, B5500SPOUnit.prototype.copyPaper), false);
this.$$("SPORemoteBtn").addEventListener("click",
B5500CentralControl.bindMethod(this, B5500SPOUnit.prototype.setRemote), false);
this.$$("SPOLocalBtn").addEventListener("click",
B5500CentralControl.bindMethod(this, B5500SPOUnit.prototype.requestLocal), false);
this.$$("SPOInputRequestBtn").addEventListener("click",
B5500CentralControl.bindMethod(this, B5500SPOUnit.prototype.requestInput), false);
this.$$("SPOErrorBtn").addEventListener("click",
B5500CentralControl.bindMethod(this, B5500SPOUnit.prototype.cancelInput), false);
this.$$("SPOEndOfMessageBtn").addEventListener("click",
B5500CentralControl.bindMethod(this, B5500SPOUnit.prototype.terminateInput), false);
this.$$("SPOAlgolGlyphsBtn").addEventListener("click",
B5500CentralControl.bindMethod(this, B5500SPOUnit.prototype.SPOAlgolGlyphsBtn_onclick), false);
this.printText("retro-B5500 Emulator Version " + B5500CentralControl.version,
B5500CentralControl.bindMethod(this, function initFinish() {
this.window.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,
screen.availHeight-this.window.outerHeight);
this.window.focus();
};
/**************************************/
B5500SPOUnit.prototype.read = function read(finish, buffer, length, mode, control) {
/* Initiates a read operation on the unit */
this.errorMask = 0;
switch (this.spoState) {
case this.spoRemote:
this.spoState = this.spoInput;
this.spoInputRequested = false;
B5500Util.addClass(this.$$("SPOReadyBtn"), "yellowLit");
B5500Util.removeClass(this.$$("SPOInputRequestBtn"), "yellowLit");
this.endOfPaper.scrollIntoView();
B5500Util.addClass(this.inputBox, "visible");
this.inputBox.focus();
this.buffer = buffer;
this.bufLength = length;
this.bufIndex = 0;
this.finish = finish;
this.window.focus();
break;
case this.spoOutput:
case this.spoInput:
finish(0x01, 0); // report unit busy (should never happen)
break;
default:
finish(0x04, 0); // report unit not ready
break;
}
};
/**************************************/
B5500SPOUnit.prototype.space = function space(finish, length, control) {
/* Initiates a space operation on the unit */
finish(0x04, 0); // report unit not ready
};
/**************************************/
B5500SPOUnit.prototype.write = function write(finish, buffer, length, mode, control) {
/* Initiates a write operation on the unit */
this.errorMask = 0;
switch (this.spoState) {
case this.spoRemote:
this.spoState = this.spoOutput;
this.buffer = buffer;
this.bufLength = length;
this.bufIndex = 0;
this.nextCharTime = this.initiateStamp;
this.finish = finish;
//this.window.focus(); // interferes with datacom terminal window
this.endOfPaper.scrollIntoView();
this.appendEmptyLine();
this.outputChar(); // start the printing process
break;
case this.spoOutput:
case this.spoInput:
finish(0x01, 0); // report unit busy (should never happen)
break;
default:
finish(0x04, 0); // report unit not ready
break;
}
};
/**************************************/
B5500SPOUnit.prototype.erase = function erase(finish, length) {
/* Initiates an erase operation on the unit */
finish(0x04, 0); // report unit not ready
};
/**************************************/
B5500SPOUnit.prototype.rewind = function rewind(finish) {
/* Initiates a rewind operation on the unit */
finish(0x04, 0); // report unit not ready
};
/**************************************/
B5500SPOUnit.prototype.readCheck = function readCheck(finish, length, control) {
/* Initiates a read check operation on the unit */
finish(0x04, 0); // report unit not ready
};
/**************************************/
B5500SPOUnit.prototype.readInterrogate = function readInterrogate(finish, control) {
/* Initiates a read interrogate operation on the unit */
finish(0x04, 0); // report unit not ready
};
/**************************************/
B5500SPOUnit.prototype.writeInterrogate = function writeInterrogate(finish, control) {
/* Initiates a write interrogate operation on the unit */
finish(0x04, 0); // report unit not ready
};
/**************************************/
B5500SPOUnit.prototype.shutDown = function shutDown() {
/* Shuts down the device */
if (this.inTimer) {
clearCallback(this.inTimer);
}
if (this.outTimer) {
clearCallback(this.outTimer);
}
this.window.removeEventListener("beforeunload", B5500SPOUnit.prototype.beforeUnload, false);
this.window.close();
};