github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-05-04 07:00:09 +00:00
Code Issues Releases Wiki Activity

Commit retro-220 version 0.03:

Browse Source 
1. Implementation Paper Tape Reader devices and op codes.
2. Commit standard and inverse-format paper tape loaders for WINTER.PI program.
3. Fix positioning of Cardatron and TTY/Paper Tape Punch device windows.
This commit is contained in:
Paul Kimpel
2017-05-29 14:03:42 -07:00
parent 8b6199afd8
commit a95b75bc88
18 changed files with 1555 additions and 315 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
webUI/B220.html
View File

@@ -38,13 +38,12 @@
<script src="./B220DataFile.js"></script>
<script src="./B220MagTapeDrive.js"></script>
<script src="./B220MagTapeControl.js"></script>
<script src="./B220ConsoleInput.js"></script>
-->
<script src="./B220ConsoleKeyboard.js"></script>
<script src="./B220ConsolePrinter.js"></script>
<script src="./B220PaperTapePunch.js"></script>
<script src="./B220PaperTapeReader.js"></script>
<script src="./B220ControlConsole.js"></script>
<script src="./B220.js"></script>

7
webUI/B220CardatronControl.js
View File

@@ -15,7 +15,7 @@
/**************************************/
function B220CardatronControl(p) {
/* Constructor for the CardatronControl object */
var left = 660; // left window margin
var left = 600; // left window margin
var u; // unit config object
var x; // unit index
@@ -27,7 +27,8 @@ function B220CardatronControl(p) {
this.doc = null;
this.window = window.open("../webUI/B220CardatronControl.html", this.mnemonic,
"location=no,scrollbars=no,resizable,width=140,height=140,top=0,left=" + left);
"location=no,scrollbars=no,resizable,width=140,height=140,left=" + left +
",top=" + (screen.availHeight-140));
this.window.addEventListener("load",
B220Util.bindMethod(this, B220CardatronControl.prototype.cardatronOnLoad));
@@ -168,6 +169,8 @@ B220CardatronControl.prototype.cardatronOnLoad = function cardatronOnLoad() {
B220Util.bindMethod(this, B220CardatronControl.prototype.ClearBtn_onClick));
this.clear();
this.window.moveTo(this.window.screenX, screen.availHeight - this.window.outerHeight);
};
/**************************************/

7
webUI/B220CardatronInput.js
View File

@@ -65,7 +65,8 @@ function B220CardatronInput(mnemonic, unitIndex, config) {
this.formatSelectList = null;
this.window = window.open("../webUI/B220CardatronInput.html", mnemonic,
"location=no,scrollbars,resizable,width=" + w + ",height=" + h +
",left=" + (unitIndex*24) + ",top=" + (unitIndex*24));
",left=" + ((unitIndex-1)*32) +
",top=" + (screen.availHeight - h - (unitIndex-1)*32));
this.window.addEventListener("load",
B220Util.bindMethod(this, B220CardatronInput.prototype.readerOnLoad), false);
}
@@ -522,7 +523,7 @@ B220CardatronInput.prototype.finishCardRead = function finishCardRead() {
c = card.charCodeAt(col); // translate char to buffer code
if (c < 0x80) {
c = this.cardFilter[c];
} else if (c == 0xA4) { // the "lozenge" ("¤")
} else if (c == 0xA4) { // the "lozenge" ("¤")
c = this.cardFilter[0x3C]; // use the code for "<"
} else {
c = 0;
@@ -632,6 +633,8 @@ B220CardatronInput.prototype.readerOnLoad = function readerOnLoad() {
this.window.resizeBy(de.scrollWidth - this.window.innerWidth + 4, // kludge for right-padding/margin
de.scrollHeight - this.window.innerHeight);
this.window.moveTo(0, screen.availHeight - this.window.outerHeight - (this.unitIndex-1)*32);
};
/**************************************/

5
webUI/B220CardatronOutput.js
View File

@@ -68,7 +68,7 @@ function B220CardatronOutput(mnemonic, unitIndex, config) {
this.window = window.open("../webUI/B220CardatronOutput.html", mnemonic,
"location=no,scrollbars,resizable,width=" + w + ",height=" + h +
",left=" + (screen.availWidth - w) +
",top=" + (screen.availHeight - h - (unitIndex-1)*24));
",top=" + (screen.availHeight - h - (unitIndex-3)*32));
this.window.addEventListener("load",
B220Util.bindMethod(this, B220CardatronOutput.prototype.deviceOnLoad), false);
}
@@ -786,6 +786,9 @@ B220CardatronOutput.prototype.deviceOnLoad = function deviceOnLoad() {
this.$$("COGreenbarCheck").addEventListener("click",
B220Util.bindMethod(this, B220CardatronOutput.prototype.COGreenbarCheck_onClick), false);
}
this.window.moveTo(screen.availWidth - this.window.outerWidth,
screen.availHeight - this.window.outerHeight - (7-this.unitIndex)*32);
};
/**************************************/

62
webUI/B220ControlConsole.js
View File

@@ -18,6 +18,7 @@ function B220ControlConsole(p, systemShutdown) {
var h = 600;
var w = 1064;
var mnemonic = "ControlConsole";
var inputConfig = p.config.getNode("ConsoleInput");
var outputConfig = p.config.getNode("ConsoleOutput");
var u;
var x;
@@ -36,8 +37,34 @@ function B220ControlConsole(p, systemShutdown) {
this.boundResetTimer = B220Util.bindMethod(this, B220ControlConsole.prototype.resetTimer);
this.boundUpdatePanel = B220Util.bindMethod(this, B220ControlConsole.prototype.updatePanel);
// Configure the console input unit objects. These are paper-tape readers.
this.inputUnit = [
null, // unit[0] not used
null, // 1=unit A
null, // 2=unit B
null, // 3=unit C
null, // 4=unit D
null, // 5=unit E
null, // 6=unit F
null, // 7=unit G
null, // 8=unit H
null, // 9=unit I
null]; //10=unit J
for (x=1; x<inputConfig.units.length; ++x) {
u = inputConfig.units[x];
switch (u.type.substring(0, 3)) {
case "PTR":
this.inputUnit[x] = new B220PaperTapeReader(u.type, x, this.config);
break;
default:
this.inputUnit[x] = null;
break;
} // switch u.type
}
// Configure the console output unit objects. These can be any combination
// of paper tape punches and teletype printers.
// of paper-tape punches and teletype printers.
this.outputUnit = [
null, // 0=unit A (usually the SPO)
null, // 1=unit B
@@ -717,6 +744,8 @@ B220ControlConsole.prototype.consoleOnLoad = function consoleOnLoad() {
this.$$("EmulatorVersion").textContent = B220Processor.version;
this.window.moveTo(screen.availWidth - this.window.outerWidth, 0);
// Power on the system by default...
setCallback(this.mnemonic, this, 1000, function powerOnTimer() {
this.powerOnSystem();
@@ -755,6 +784,30 @@ B220ControlConsole.prototype.outputUnitSelect = function outputUnitSelect(unitNr
return result;
};
/**************************************/
B220ControlConsole.prototype.inputUnitSelect = function inputUnitSelect(unitNr, successor) {
/* Prepares for paper-tape input by selecting the first ready device
having a unitMask matching the unitNr parameter. If one is found, returns
that index and schedules initiateInput() for the unit. If no such unit is
found, returns -1 */
var result = -1; // be pessimistic
var u = null; // input unit object
var x; // for loop index
for (x=1; x<this.inputUnit.length; ++x) {
u = this.inputUnit[x];
if (u && u.ready) {
if (u.unitMask & B220Processor.pow2[unitNr]) {
result = x;
setCallback(this.mnemonic, u, 1, u.initiateInput, successor);
break; // out of for loop
}
}
}
return result;
};
/**************************************/
B220ControlConsole.prototype.shutDown = function shutDown() {
/* Shuts down the panel */
@@ -774,5 +827,12 @@ B220ControlConsole.prototype.shutDown = function shutDown() {
}
}
for (x=1; x<this.inputUnit.length; ++x) {
if (this.inputUnit[x]) {
this.inputUnit[x].shutDown();
this.inputUnit[x] = null;
}
}
this.window.close();
};

8
webUI/B220Manifest.appcache
View File

@@ -1,5 +1,5 @@
CACHE MANIFEST
# retro-220 emulator 0.02, 2017-05-24 09:00
# retro-220 emulator 0.03, 2017-05-29 13:30
CACHE:
../emulator/B220Processor.js
B220.css
@@ -16,8 +16,6 @@ B220CardatronOutput.html
B220CardatronOutput.js
B220CardatronZeroSuppressPanel.html
B220Common.css
#B220ConsoleInput.css
#B220ConsoleInput.js
B220ConsoleKeyboard.css
B220ConsoleKeyboard.html
B220ConsoleKeyboard.js
@@ -43,7 +41,9 @@ B220PanelUtil.js
B220PaperTapePunch.css
B220PaperTapePunch.html
B220PaperTapePunch.js
#B220PaperTapeReader.html
B220PaperTapeReader.css
B220PaperTapeReader.html
B220PaperTapeReader.js
B220SetCallback.js
B220SystemConfig.css
B220SystemConfig.html

60
webUI/B220PaperTapePunch.css
View File

@@ -26,36 +26,6 @@
margin: 4px;
border-radius: 8px}
#PunchTape {
position: absolute;
left: 8px;
right: 8px;
top: 60px;
bottom: 8px;
min-height: 32px;
min-width: 120px;
overflow-x: hidden;
overflow-y: scroll;
color: black;
background-color: white;
padding: 4px;
border: 1px solid gray}
#Paper {
margin-left: 0;
margin-right: 0;
margin-top: 0;
margin-bottom: 0;
padding: 0}
#EndOfPaper {
display: block;
margin: 0;
padding: 0;
opacity: 0}
#EndOfPaper.hidden {
display: none}
#RemoteSwitch {
position: absolute;
width: 24px;
@@ -92,3 +62,33 @@
width: 64px;
right: 8px;
top: 6px}
#PunchTape {
position: absolute;
left: 8px;
right: 8px;
top: 60px;
bottom: 8px;
min-height: 32px;
min-width: 120px;
overflow-x: hidden;
overflow-y: scroll;
color: black;
background-color: white;
padding: 4px;
border: 1px solid gray}
#Paper {
margin-left: 0;
margin-right: 0;
margin-top: 0;
margin-bottom: 0;
padding: 0}
#EndOfPaper {
display: block;
margin: 0;
padding: 0;
opacity: 0}
#EndOfPaper.hidden {
display: none}

57
webUI/B220PaperTapePunch.js
View File

@@ -15,8 +15,8 @@
/**************************************/
function B220PaperTapePunch(mnemonic, unitIndex, config) {
/* Constructor for the Console Paper Tape Punch object */
var top = unitIndex*32;
var left = unitIndex*32;
var top = unitIndex*32 + 360;
var left = (unitIndex-1)*32;
this.config = config; // System configuration object
this.mnemonic = mnemonic; // Unit mnemonic
@@ -25,8 +25,6 @@ function B220PaperTapePunch(mnemonic, unitIndex, config) {
this.nextCharTime = 0; // next time a character can be punched
this.unitMask = 0; // unit selection mask
this.unitSwitch = new Array(11); // unit selection switch objects
this.tabStop = []; // 0-relative tab stop positions
this.boundFlipSwitch = B220Util.bindMethod(this, B220PaperTapePunch.prototype.flipSwitch);
this.boundReceiveSign = B220Util.bindMethod(this, B220PaperTapePunch.prototype.receiveSign);
@@ -57,18 +55,19 @@ B220PaperTapePunch.maxScrollLines = 45000;
B220PaperTapePunch.codeXlate = [ // translate internal B220 code to ANSI
// Note that ANSI new-line sequences are used for end-of-word characters,
// so B220 carriage-return translates to "|". To avoide space-expansion of
// tab characters, they are translated to "~".
" ", "?", " ", ".", "\u00A4", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", // 00-0F
"&", "?", "?", "$", "*", "\f", "|", "?", "?", "?", "?", "?", "?", "?", "?", "?", // 10-1F
"-", "/", "?", ",", "%", "?", "~", "?", "?", "?", "?", "?", "?", "?", "?", "?", // 20-2F
"?", "?", "?", "#", "@", "!", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", // 30-3F
"?", "A", "B", "C", "D", "E", "F", "G", "H", "I", "?", "?", "?", "?", "?", "?", // 40-4F
"?", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "?", "?", "?", "?", "?", "?", // 50-5F
"?", "?", "S", "T", "U", "V", "W", "X", "Y", "Z", "?", "?", "?", "?", "?", "?", // 60-6F
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", // 70-7F
"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "?", "?", "?", "?", "?", "?", // 80-8F
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?"]; // 90-9F
// so B220 carriage-return (16) translates to "|". To avoid space-expansion
// of tabs (26), they are translated to "~". The 02 "blank" code is "_".
// Form-feed (15) translates to "^".
" ", "?", "_", ".", "\u00A4", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", // 00-0F
"&", "?", "?", "$", "*", "^", "|", "?", "?", "?", "?", "?", "?", "?", "?", "?", // 10-1F
"-", "/", "?", ",", "%", "?", "~", "?", "?", "?", "?", "?", "?", "?", "?", "?", // 20-2F
"?", "?", "?", "#", "@", "!", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", // 30-3F
"?", "A", "B", "C", "D", "E", "F", "G", "H", "I", "?", "?", "?", "?", "?", "?", // 40-4F
"?", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "?", "?", "?", "?", "?", "?", // 50-5F
"?", "?", "S", "T", "U", "V", "W", "X", "Y", "Z", "?", "?", "?", "?", "?", "?", // 60-6F
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", // 70-7F
"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "?", "?", "?", "?", "?", "?", // 80-8F
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?"]; // 90-9F
/**************************************/
@@ -79,16 +78,6 @@ B220PaperTapePunch.prototype.clear = function clear() {
this.busy = false; // busy status
};
/**************************************/
B220PaperTapePunch.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;
};
/**************************************/
B220PaperTapePunch.prototype.$$ = function $$(e) {
return this.doc.getElementById(e);
@@ -136,6 +125,16 @@ B220PaperTapePunch.prototype.punchChar = function punchChar(code) {
}
};
/**************************************/
B220PaperTapePunch.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;
};
/**************************************/
B220PaperTapePunch.prototype.resizeWindow = function resizeWindow(ev) {
/* Handles the window onresize event by scrolling the "tape" so it remains at the end */
@@ -202,13 +201,13 @@ B220PaperTapePunch.prototype.flipSwitch = function flipSwitch(ev) {
B220PaperTapePunch.prototype.punchOnLoad = function punchOnLoad() {
/* Initializes the Paper Tape Punch window and user interface */
var body;
var id;
var mask;
var prefs = this.config.getNode("ConsoleOutput.units", this.unitIndex);
var x;
this.doc = this.window.document;
this.doc.title = "retro-220 Punch - " + this.mnemonic;
this.punchTape = this.$$("Paper");
this.punchEOP = this.$$("EndOfPaper");
this.punchEmptyPaper();
@@ -248,8 +247,8 @@ B220PaperTapePunch.prototype.punchOnLoad = function punchOnLoad() {
this.remoteSwitch.addEventListener("click", this.boundFlipSwitch);
this.unitDesignateKnob.addEventListener("change", this.boundFlipSwitch);
//this.punchWin.moveTo(screen.availWidth-this.punchWin.outerWidth,
// screen.availHeight-this.punchWin.outerHeight);
//this.punchWin.resizeBy(screen.availWidth - this.punchWin.outerWidth,
// screen.availHeight - this.punchWin.outerHeight);
//this.punchWin.moveTo(0, 430);
this.window.focus();
};

108
webUI/B220PaperTapeReader.css Normal file
View File

@@ -0,0 +1,108 @@
/***********************************************************************
* retro-220/webUI B220PaperTapeReader.css
************************************************************************
* Copyright (c) 2017, Paul Kimpel.
* Licensed under the MIT License, see
* http://www.opensource.org/licenses/mit-license.php.
************************************************************************
* Burroughs 220 emulator Paper Tape Reader interface style sheet.
************************************************************************
* 2017-05-27 P.Kimpel
* Original version, from retro-205 D205ConsoleInput.css.
***********************************************************************/
#ReaderBody {
height: 100%;
min-height: 100%;
overflow: hidden;
padding: 0}
#PaperTapeReader {
position: absolute;
top: 0;
bottom: 0;
left: 0;
right: 0;
margin: 4px;
border-radius: 8px}
#RemoteSwitch {
position: absolute;
width: 24px;
left: 18px;
top: 12px}
#RemoteSwitchOn {
width: 36px;
left: 12px;
top: 6px}
#RemoteSwitchOff {
width: 36px;
left: 12px;
top: 42px}
#ReadyLamp {
position: absolute;
width: 24px;
left: 56px;
top: 14px}
#ReadyLampCaption {
width: 36px;
left: 52px;
top: 6px}
#SpeedSwitch {
position: absolute;
width: 24px;
left: 96px;
top: 12px}
#SpeedSwitchHi {
width: 36px;
left: 92px;
top: 6px}
#SpeedSwitchLow {
width: 36px;
left: 92px;
top: 42px}
#SpeedSwitchCaption {
width: 36px;
left: 120px;
top: 24px}
#UnitDesignateKnob {
position: absolute;
text-align: center;
width: 64px;
right: 8px;
top: 18px;
color: white;
background-color: #333}
#UnitDesignateKnobCaption {
width: 64px;
right: 8px;
top: 6px}
#PRFileSelector {
position: absolute;
left: 8px;
top: 60px;
width: calc(100% - 16px);
color: black;
border: 1px solid #666}
#PRTapeSupplyBar {
position: absolute;
top: 92px;
left: 8px;
width: calc(100% - 16px);
height: 16px;
border: 1px solid #666}
#PRTapeView {
position: absolute;
text-align: right;
bottom: 8px;
left: 8px;
width: calc(100% - 16px);
height: 2em;
background-color: white;
border: none}

61
webUI/B220PaperTapeReader.html Normal file
View File

@@ -0,0 +1,61 @@
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>retro-220 Emulator Paper Tape Reader</title>
<!--
/***********************************************************************
* retro-220/webUI B220PaperTapeReader.html
************************************************************************
* Copyright (c) 2017, Paul Kimpel.
* Licensed under the MIT License, see
* http://www.opensource.org/licenses/mit-license.php
************************************************************************
* Burroughs 220 Paper Tape Reader device page.
************************************************************************
* 2017-05-27 P.Kimpel
* Original version, from retro-205 D205PaperTapeReader.html.
***********************************************************************/
-->
<meta name="Author" content="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="B220Common.css">
<link id=tapeReaderStyleSheet rel=stylesheet type="text/css" href="B220PaperTapeReader.css">
</head>
<body id=ReaderBody class=deviceBody>
<div id=PaperTapeReader class=panelSurface>
<div id=RemoteSwitchOn class=caption>REMOTE</div>
<div id=RemoteSwitchOff class=caption>LOCAL</div>
<div id=ReadyLampCaption class=caption>READY</div>
<div id=SpeedSwitchHi class=caption>HI</div>
<div id=SpeedSwitchLow class=caption>LOW</div>
<div id=SpeedSwitchCaption class=caption>SPEED</div>
<div id=UnitDesignateKnobCaption class=caption>UNIT DESIGNATE</div>
<select id=UnitDesignateKnob>
<option value= 0>SPO
<option value= 1>1
<option value= 2>2
<option value= 3>3
<option value= 4>4
<option value= 5>5
<option value= 6>6
<option value= 7>7
<option value= 8>8
<option value= 9>9
<option value=10>0
<option value=99>OFF
</select>
<input id=PRFileSelector type=file size=60 multiple>
<meter id=PRTapeSupplyBar min=0 max=100 value=0 title="Click to clear input tape"></meter>
<input id=PRTapeView type=text READONLY>
</div>
</body>
</html>

412
webUI/B220PaperTapeReader.js Normal file
View File

@@ -0,0 +1,412 @@
/***********************************************************************
* retro-220/webUI B220PaperTapeReader.js
************************************************************************
* Copyright (c) 2017, Paul Kimpel.
* Licensed under the MIT License, see
* http://www.opensource.org/licenses/mit-license.php
************************************************************************
* Burroughs 220 Paper Tape Reader module.
*
* Defines the paper tape input devices.
*
************************************************************************
* 2017-05-27 P.Kimpel
* Original version, from retro-205 D205ConsoleInput.js.
***********************************************************************/
"use strict";
/**************************************/
function B220PaperTapeReader(mnemonic, unitIndex, config) {
/* Constructor for the PaperTapeReader object */
var top = unitIndex*32 + 360;
var left = (unitIndex-1)*32 + 250;
this.config = config; // System configuration object
this.mnemonic = mnemonic; // Unit mnemonic
this.unitIndex = unitIndex; // Unit index into console output units
this.inTimer = 0; // input setCallback() token
this.charPeriod = B220PaperTapeReader.highSpeedPeriod;
// paper-tape reader speed [ms/char]
this.nextCharTime = 0; // next time a character can be read
this.unitMask = 0; // unit selection mask
this.boundFlipSwitch = B220Util.bindMethod(this, B220PaperTapeReader.prototype.flipSwitch);
this.boundReadTapeChar = B220Util.bindMethod(this, B220PaperTapeReader.prototype.readTapeChar);
this.readResult = { // object passed back to Processor for each read
code: 0,
readChar: this.boundReadTapeChar
};
this.clear();
// Create the reader window and onload event
this.doc = null;
this.tapeSupplyBar = null;
this.tapeView = null;
this.window = window.open("../webUI/B220PaperTapeReader.html", mnemonic,
"location=no,scrollbars=no,resizable,width=420,height=160,left=" + left + ",top=" + top);
this.window.addEventListener("load",
B220Util.bindMethod(this, B220PaperTapeReader.prototype.readerOnload), false);
}
/**************************************/
B220PaperTapeReader.offSwitchImage = "./resources/ToggleDown.png";
B220PaperTapeReader.onSwitchImage = "./resources/ToggleUp.png";
B220PaperTapeReader.lowSpeedPeriod = 1000/500;
// low reader speed: 500 cps
B220PaperTapeReader.highSpeedPeriod = 1000/1000;
// high reader speed: 1000 cps
B220PaperTapeReader.startupTime = 5; // reader start-up delay, ms
B220PaperTapeReader.idleTime = 50; // idle time before reader requires start-up delay, ms
// Translate ANSI character codes to B220 charater codes.
// Note that ANSI new-line sequences are used for end-of-word characters,
// so "|" translates to B220 carriage-return (16). To avoid space-expansion
// of tabs, "~" translates to tab (26). "_" translates to the "blank" code (02).
// "^" translates to form-feed (15).
B220PaperTapeReader.xlate220 = [
// 0 1 2 3 4 5 6 7 8 9 A B C D E F
0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x26, 0x16, 0x17, 0x15, 0x16, 0x17, 0x17, // 00-0F
0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, // 10-1F
0x00, 0x17, 0x17, 0x33, 0x13, 0x24, 0x10, 0x34, 0x24, 0x04, 0x14, 0x10, 0x23, 0x20, 0x03, 0x21, // 20-2F
0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, 0x88, 0x89, 0x17, 0x13, 0x04, 0x33, 0x17, 0x17, // 30-3F
0x34, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, // 40-4F
0x57, 0x58, 0x59, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x17, 0x17, 0x17, 0x15, 0x02, // 50-5F
0x17, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, // 60-6F
0x57, 0x58, 0x59, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x17, 0x16, 0x17, 0x26, 0x17, // 70-7F
0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, // 80-8F
0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, // 90-9F
0x17, 0x17, 0x17, 0x17, 0x04, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, // A0-AF
0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, // B0-BF
0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, // C0-CF
0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, // D0-DF
0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, // E0-EF
0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17, 0x17];// F0-FF
/**************************************/
B220PaperTapeReader.prototype.clear = function clear() {
/* Initializes (and if necessary, creates) the reader unit state */
this.ready = false; // a tape has been loaded into the reader
this.busy = false; // a request for a digit is outstanding
this.pendingReceiver = null; // stashed digit-receiver function
this.buffer = ""; // reader input buffer (paper-tape reel)
this.bufLength = 0; // current input buffer length (characters)
this.bufIndex = 0; // 0-relative offset to next character to be read
};
/**************************************/
B220PaperTapeReader.prototype.$$ = function $$(e) {
return this.doc.getElementById(e);
};
/**************************************/
B220PaperTapeReader.prototype.PRTapeSupplyBar_onclick = function PRTapeSupplyBar_onclick(ev) {
/* Handle the click event for the "input hopper" meter bar */
if (!this.ready) {
if (this.window.confirm((this.bufLength-this.bufIndex).toString() + " of " + this.bufLength.toString() +
" characters remaining to read.\nDo you want to clear the reader input?")) {
this.tapeView.value = "";
this.setReaderEmpty();
}
}
};
/**************************************/
B220PaperTapeReader.prototype.fileSelector_onChange = function fileSelector_onChange(ev) {
/* Handle the <input type=file> onchange event when files are selected. For each
file, load it and add it to the input buffer of the reader */
var tape;
var f = ev.target.files;
var that = this;
var x;
function fileLoader_onLoad(ev) {
/* Handle the onload event for a Text FileReader */
if (that.bufIndex >= that.bufLength) {
that.buffer = ev.target.result;
} else {
switch (that.buffer.charAt(that.buffer.length-1)) {
case "\r":
case "\n":
break; // do nothing -- the last word has a delimiter
default:
that.buffer += "\n"; // so the next tape starts on a new line
break;
}
that.buffer = that.buffer.substring(that.bufIndex) + ev.target.result;
}
that.bufIndex = 0;
that.bufLength = that.buffer.length;
that.$$("PRTapeSupplyBar").value = that.bufLength;
that.$$("PRTapeSupplyBar").max = that.bufLength;
that.setReaderReady(true);
if (that.busy && that.ready) { // reinitiate the pending read
that.readTapeChar(that.pendingReceiver);
that.receiver = null;
}
}
for (x=f.length-1; x>=0; x--) {
tape = new FileReader();
tape.onload = fileLoader_onLoad;
tape.readAsText(f[x]);
}
};
/**************************************/
B220PaperTapeReader.prototype.setReaderReady = function setReaderReady(ready) {
/* Sets the reader to a ready or not-ready status */
this.ready = ready && this.remoteSwitch.state && (this.bufIndex < this.bufLength);
this.readyLamp.set(this.ready ? 1 : 0);
};
/**************************************/
B220PaperTapeReader.prototype.setReaderEmpty = function setReaderEmpty() {
/* Sets the reader to a not-ready status and empties the buffer */
this.setReaderReady(false);
this.tapeSupplyBar.value = 0;
this.buffer = ""; // discard the input buffer
this.bufLength = 0;
this.bufIndex = 0;
this.fileSelector.value = null; // reset the control so the same file can be reloaded
};
/**************************************/
B220PaperTapeReader.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;
};
/**************************************/
B220PaperTapeReader.prototype.flipSwitch = function flipSwitch(ev) {
/* Handler for switch clicks */
var id = ev.target.id;
var prefs = this.config.getNode("ConsoleInput.units", this.unitIndex);
var x;
switch (id) {
case "RemoteSwitch":
this.remoteSwitch.flip();
prefs.remote = this.remoteSwitch.state;
this.setReaderReady(this.remoteSwitch.state != 0);
this.fileSelector.disabled = (this.remoteSwitch.state != 0);
break;
case "SpeedSwitch":
this.speedSwitch.flip();
prefs.speed = this.speedSwitch.state;
this.charPeriod = (this.speedSwitch.state ? B220PaperTapeReader.highSpeedPeriod : B220PaperTapeReader.lowSpeedPeriod);
break;
case "UnitDesignateKnob":
x = this.unitDesignateKnob.selectedIndex;
if (x < 0) {
x = this.unitDesignateKnob.length-1;
this.unitMask = 0;
} else {
this.unitMask = B220Processor.pow2[x];
prefs.unitMask = this.unitMask
}
break;
}
this.config.putNode("ConsoleInput.units", prefs, this.unitIndex);
ev.preventDefault();
ev.stopPropagation();
};
/**************************************/
B220PaperTapeReader.prototype.readerOnload = function readerOnload() {
/* Initializes the reader window and user interface */
var body;
var mask;
var prefs = this.config.getNode("ConsoleInput.units", this.unitIndex);
var x;
this.doc = this.window.document;
//de = this.doc.documentElement;
this.doc.title = "retro-220 - Reader - " + this.mnemonic;
this.fileSelector = this.$$("PRFileSelector");
this.tapeSupplyBar = this.$$("PRTapeSupplyBar");
this.tapeView = this.$$("PRTapeView");
body = this.$$("PaperTapeReader")
this.remoteSwitch = new ToggleSwitch(body, null, null, "RemoteSwitch",
B220PaperTapeReader.offSwitchImage, B220PaperTapeReader.onSwitchImage);
this.remoteSwitch.set(prefs.remote);
this.readyLamp = new ColoredLamp(body, null, null, "ReadyLamp", "blueLamp lampCollar", "blueLit");
this.setReaderReady(this.remoteSwitch.state != 0);
this.speedSwitch = new ToggleSwitch(body, null, null, "SpeedSwitch",
B220PaperTapeReader.offSwitchImage, B220PaperTapeReader.onSwitchImage);
this.speedSwitch.set(prefs.speed);
this.charPeriod = (this.speedSwitch.state ? B220PaperTapeReader.highSpeedPeriod : B220PaperTapeReader.lowSpeedPeriod);
this.unitDesignateKnob = this.$$("UnitDesignateKnob");
mask = 0x001;
this.unitMask = prefs.unitMask;
if (this.unitMask == 0) {
this.unitDesignateKnob.selectedIndex = this.unitDesignateKnob.length-1; // OFF
} else {
for (x=0; x<this.unitDesignateKnob.length; ++x) {
if (this.unitMask & mask) {
this.unitDesignateKnob.selectedIndex = x;
break; // out of for loop
} else {
mask <<= 1;
}
}
}
this.fileSelector.disabled = (this.remoteSwitch.state != 0);
// Events
this.window.addEventListener("beforeunload",
B220PaperTapeReader.prototype.beforeUnload, false);
this.fileSelector.addEventListener("change",
B220Util.bindMethod(this, B220PaperTapeReader.prototype.fileSelector_onChange));
this.tapeSupplyBar.addEventListener("click",
B220Util.bindMethod(this, B220PaperTapeReader.prototype.PRTapeSupplyBar_onclick));
this.remoteSwitch.addEventListener("click", this.boundFlipSwitch);
this.speedSwitch.addEventListener("click", this.boundFlipSwitch);
this.unitDesignateKnob.addEventListener("change", this.boundFlipSwitch);
//this.window.resizeBy(de.scrollWidth - this.window.innerWidth + 4, // kludge for right-padding/margin
// de.scrollHeight - this.window.innerHeight);
};
/***********************************************************************
* Input Entry Points *
***********************************************************************/
/**************************************/
B220PaperTapeReader.prototype.initiateInput = function initiateInput(successor) {
/* Initiates input to the reader. This simply calls this.readTapeChar(),
which returns the first tape character (which should be the sign digit) to
the processor and gets the ball rolling */
var stamp = performance.now();
if (stamp-this.nextCharTime < B220PaperTapeReader.idleTime) {
this.readTapeChar(successor);
} else {
setCallback(this.mnemonic, this, B220PaperTapeReader.startupTime, this.readTapeChar, successor);
}
};
/**************************************/
B220PaperTapeReader.prototype.sendTapeChar = function sendTapeChar(c, code, receiver) {
/* Sends the character or EOW code read from the tape back to the
Processor after an appropriate delay. Updates the TapeView display with the
character sent */
var delay;
var length;
var stamp = performance.now();
var text = this.tapeView.value;
this.readResult.code = code;
if (this.nextCharTime < stamp) {
delay = 0;
this.nextCharTime = stamp + this.charPeriod;
} else {
delay = this.nextCharTime - stamp;
this.nextCharTime += this.charPeriod;
}
this.inTimer = setCallback(this.mnemonic, this, delay, receiver, this.readResult);
length = text.length;
if (length < 120) {
this.tapeView.value = text + String.fromCharCode(c);
++length;
} else {
this.tapeView.value = text.substring(length-119) + String.fromCharCode(c);
}
this.tapeView.setSelectionRange(length-1, length);
};
/**************************************/
B220PaperTapeReader.prototype.readTapeChar = function readTapeChar(receiver) {
/* Reads one character frame from the paper-tape buffer and passes it to the
"receiver" function. If at end-of-line, passes an end-of-word (0x35) code;
an error or invalid character is passed as a 0x17 code. Otherwise, the ANSI
character is translated to B220 code and that code is passed.
If the buffer is empty (this.ready=false) or we are at end of buffer,
simply exits after stashing a reference to the receiver function in
this.pendingReceiver. This will leave the processor hanging until more tape
is loaded into the reader or the processor is cleared. Once more tape is
loaded, the fileSelector_onChange event will set ready, notice the hanging
read (this.busy=true) and restart the read */
var bufLength = this.bufLength; // current buffer length
var c; // current character ANSI code
var x = this.bufIndex; // current buffer index
if (!this.ready) {
this.busy = true;
this.pendingReceiver = receiver;// stash the receiver until tape is loaded
this.window.focus(); // call attention to the tape reader
} else {
this.busy = false;
do {
if (x >= bufLength) { // end of buffer -- send finish
this.sendTapeChar(0x20, 0x35, receiver);
this.setReaderEmpty();
break; // out of do loop
} else {
c = this.buffer.charCodeAt(x) % 0x100;
if (c == 0x0D) { // carriage return -- send EOW and check for LF
if (++x < bufLength && this.buffer.charCodeAt(x) == 0x0A) {
++x;
}
this.sendTapeChar(0x20, 0x35, receiver);
if (x >= bufLength) {
this.setReaderEmpty();
}
break; // out of do loop
} else if (c == 0x0A) { // line feed -- send EOW
++x;
this.sendTapeChar(0x20, 0x35, receiver);
if (x >= bufLength) {
this.setReaderEmpty();
}
break; // out of do loop
} else { // translate character and send its code
++x;
this.sendTapeChar(c, B220PaperTapeReader.xlate220[c], receiver);
break; // out of do loop
}
}
} while (true);
this.tapeSupplyBar.value = bufLength-x;
this.bufIndex = x;
}
};
/**************************************/
B220PaperTapeReader.prototype.shutDown = function shutDown() {
/* Shuts down the device */
if (this.inTimer) {
clearCallback(this.inTimer);
}
if (this.window) {
this.window.removeEventListener("beforeunload", B220PaperTapeReader.prototype.beforeUnload, false);
this.window.close();
this.window = null;
}
};

3
webUI/B220SystemConfig.css
View File

@@ -86,6 +86,7 @@
#SystemMemorySize {
text-align: center}
#ConsoleInputTable,
#ConsoleOutputTable,
#CardatronTable,
#MagTapeOptionsTable,
@@ -93,6 +94,8 @@
border-spacing: 0;
border-collapse: collapse}
#ConsoleInputTable TH,
#ConsoleInputTable TD,
#ConsoleOutputTable TH,
#ConsoleOutputTable TD,
#CardatronTable TH,

294
webUI/B220SystemConfig.html
View File

@@ -43,8 +43,8 @@
<button id=SaveBtn class="greenButton">SAVE</button>
<button id=DefaultsBtn class="redButton" title="Set configurartion to original defaults">SET DEFAULTS</button>
<div class=heading>System Properties:</div>
<div class=heading>System Properties:</div>
<select id=SystemMemorySize>
<option value=1000>1000
@@ -59,6 +59,295 @@
<option value=10000>10000
</select> Word Memory Size
<div class=heading>Console Input:</div>
<table id=ConsoleInputTable>
<thead>
<th>Position<th>Type<th>1<th>2<th>3<th>4<th>5<th>6<th>7<th>8<th>9<th>10
<tbody>
<tr>
<td class=center>1
<td class=center>
<select id=ConsoleIn1Type>
<option selected value=NONE>(not used)
<option value=PTRA>Reader
<select>
<td class=center>
<input id=ConsoleIn1_1 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn1_2 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn1_3 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn1_4 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn1_5 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn1_6 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn1_7 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn1_8 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn1_9 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn1_10 type=checkbox value=1>
<tr>
<td class=center>2
<td class=center>
<select id=ConsoleIn2Type>
<option selected value=NONE>(not used)
<option value=PTRB>Reader
<select>
<td class=center>
<input id=ConsoleIn2_1 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn2_2 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn2_3 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn2_4 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn2_5 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn2_6 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn2_7 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn2_8 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn2_9 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn2_10 type=checkbox value=1>
<tr>
<td class=center>3
<td class=center>
<select id=ConsoleIn3Type>
<option selected value=NONE>(not used)
<option value=PTRC>Reader
<select>
<td class=center>
<input id=ConsoleIn3_1 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn3_2 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn3_3 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn3_4 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn3_5 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn3_6 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn3_7 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn3_8 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn3_9 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn3_10 type=checkbox value=1>
<tr>
<td class=center>4
<td class=center>
<select id=ConsoleIn4Type>
<option selected value=NONE>(not used)
<option value=PTRD>Reader
<select>
<td class=center>
<input id=ConsoleIn4_1 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn4_2 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn4_3 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn4_4 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn4_5 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn4_6 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn4_7 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn4_8 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn4_9 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn4_10 type=checkbox value=1>
<tr>
<td class=center>5
<td class=center>
<select id=ConsoleIn5Type>
<option selected value=NONE>(not used)
<option value=PTRE>Reader
<select>
<td class=center>
<input id=ConsoleIn5_1 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn5_2 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn5_3 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn5_4 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn5_5 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn5_6 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn5_7 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn5_8 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn5_9 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn5_10 type=checkbox value=1>
<tr>
<td class=center>6
<td class=center>
<select id=ConsoleIn6Type>
<option selected value=NONE>(not used)
<option value=PTRF>Reader
<select>
<td class=center>
<input id=ConsoleIn6_1 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn6_2 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn6_3 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn6_4 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn6_5 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn6_6 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn6_7 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn6_8 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn6_9 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn6_10 type=checkbox value=1>
<tr>
<td class=center>7
<td class=center>
<select id=ConsoleIn7Type>
<option selected value=NONE>(not used)
<option value=PTRG>Reader
<select>
<td class=center>
<input id=ConsoleIn7_1 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn7_2 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn7_3 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn7_4 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn7_5 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn7_6 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn7_7 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn7_8 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn7_9 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn7_10 type=checkbox value=1>
<tr>
<td class=center>8
<td class=center>
<select id=ConsoleIn8Type>
<option selected value=NONE>(not used)
<option value=PTRH>Reader
<select>
<td class=center>
<input id=ConsoleIn8_1 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn8_2 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn8_3 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn8_4 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn8_5 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn8_6 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn8_7 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn8_8 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn8_9 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn8_10 type=checkbox value=1>
<tr>
<td class=center>9
<td class=center>
<select id=ConsoleIn9Type>
<option selected value=NONE>(not used)
<option value=PTRI>Reader
<select>
<td class=center>
<input id=ConsoleIn9_1 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn9_2 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn9_3 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn9_4 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn9_5 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn9_6 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn9_7 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn9_8 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn9_9 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn9_10 type=checkbox value=1>
<tr>
<td class=center>10
<td class=center>
<select id=ConsoleIn10Type>
<option selected value=NONE>(not used)
<option value=PTRJ>Reader
<select>
<td class=center>
<input id=ConsoleIn10_1 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn10_2 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn10_3 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn10_4 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn10_5 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn10_6 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn10_7 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn10_8 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn10_9 type=checkbox value=1>
<td class=center>
<input id=ConsoleIn10_10 type=checkbox value=1>
</table>
<div class=heading>Console Output:</div>
<table id=ConsoleOutputTable>
@@ -517,6 +806,7 @@
&nbsp;
</table>
<div class=heading>Cardatron Unit Selection:</div>
<table id=CardatronTable>
@@ -910,7 +1200,9 @@
<td class=center>
<input id=MagTape10NotWrite type=checkbox value=1>
</table>
<p>&nbsp;</p>
</div>
</body>
</html>

220
webUI/B220SystemConfig.js
View File

@@ -39,6 +39,88 @@ B220SystemConfig.prototype.configStorageName = "retro-220-Config";
B220SystemConfig.prototype.configVersion = 1;
B220SystemConfig.prototype.flushDelay = 60000; // flush timer setting, ms
B220SystemConfig.defaultConfig = {
version: this.configVersion,
memorySize: 5000, // 11-digit words
ControlConsole: {
PCS1SW: 0, // Program Control Switches 1-0
PCS2SW: 0,
PCS3SW: 0,
PCS4SW: 0,
PCS5SW: 0,
PCW6SW: 0,
PCS7SW: 0,
PCS8SW: 0,
PCS9SW: 0,
PCS0SW: 0,
SONSW: 0, // S-register on
SUNITSSW: 0, // S-register units
STOCSW: 0, // S-to-C stop
STOPSW: 0}, // S-to-P stop
ConsoleInput: {
units: [
null, // unit[0] not used
{type: "PTRA", unitMask: 0x002, remote: 1, speed: 0},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"}
]},
ConsoleOutput: {
units: [
{type: "TTYA", unitMask: 0x001, remote: 1, format: 0, zeroSuppress: 0, mapMemory: 0,
columns: 72, tabs: "9,17,25,33,41,49,57,65,73,81"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"}
]},
Cardatron: {
hasCardatron: true,
units: [
null, // unit[0] not used
{type: "CR1", formatSelect: 0, formatCol: 1},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "LP2", algolGlyphs: true, greenBar: true, zeroSuppressCols: ""},
{type: "CP1", algolGlyphs: true, greenBar: false, zeroSuppressCols: ""}
]},
MagTape: {
hasMagTape: true,
units: [
null, // unit[0] not used
{type: "MTA", designate: 0, remoteSwitch: false, rewindReadySwitch: true, notWriteSwitch: false},
{type: "NONE"},
{type: "NONE"},
{type: "MTD", designate: 3, remoteSwitch: false, rewindReadySwitch: true, notWriteSwitch: false},
{type: "MTE", designate: 4, remoteSwitch: false, rewindReadySwitch: true, notWriteSwitch: false},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"}
]}
};
/**************************************/
B220SystemConfig.prototype.$$ = function $$(id) {
return this.window.document.getElementById(id);
@@ -53,73 +135,7 @@ B220SystemConfig.prototype.createConfigData = function createConfigData() {
var prefs;
var s;
this.configData = {
version: this.configVersion,
memorySize: 5000, // 11-digit words
ControlConsole: {
PCS1SW: 0, // Program Control Switches 1-0
PCS2SW: 0,
PCS3SW: 0,
PCS4SW: 0,
PCS5SW: 0,
PCW6SW: 0,
PCS7SW: 0,
PCS8SW: 0,
PCS9SW: 0,
PCS0SW: 0,
SONSW: 0, // S-register on
SUNITSSW: 0, // S-register units
STOCSW: 0, // S-to-C stop
STOPSW: 0}, // S-to-P stop
ConsoleOutput: {
units: [
{type: "TTYA", zeroSuppress: 0, mapMemory: 0, unitMask: 0x001, remote: 1, format: 0,
columns: 72, tabs: "9,17,25,33,41,49,57,65,73,81"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"}
]},
Cardatron: {
hasCardatron: true,
units: [
null, // unit[0] not used
{type: "CR1", formatSelect: 0, formatCol: 1},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "LP2", algolGlyphs: true, greenBar: true, zeroSuppressCols: ""},
{type: "CP1", algolGlyphs: true, greenBar: false, zeroSuppressCols: ""}
]},
MagTape: {
hasMagTape: true,
suppressBSwitch: false, // false => off => suppress B-register modification
units: [
null, // unit[0] not used
{type: "MTA", designate: 0, remoteSwitch: false, rewindReadySwitch: true, notWriteSwitch: false},
{type: "NONE"},
{type: "NONE"},
{type: "MTD", designate: 3, remoteSwitch: false, rewindReadySwitch: true, notWriteSwitch: false},
{type: "MTE", designate: 4, remoteSwitch: false, rewindReadySwitch: true, notWriteSwitch: false},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"},
{type: "NONE"}
]}
};
this.configData = B220SystemConfig.defaultConfig;
this.flushHandler();
};
@@ -280,7 +296,29 @@ B220SystemConfig.prototype.loadConfigDialog = function loadConfigDialog() {
// System Properties
this.setListValue("SystemMemorySize", cd.memorySize.toString());
// Console Input units
if (!cd.ConsoleInput) {
cd.ConsoleInput = B220SystemConfig.defaultConfig.ConsoleInput;
}
for (x=1; x<=10; ++x) {
unit = cd.ConsoleInput.units[x];
prefix = "ConsoleIn" + x;
this.setListValue(prefix + "Type", unit.type);
mask = 0x001;
for (y=1; y<=10; ++y) {
mask <<= 1;
this.$$(prefix + "_" + y).checked = (unit.unitMask & mask ? true : false);
} // for y
} // for x
// Console Output units
if (!cd.ConsoleOutput) {
cd.ConsoleOutput = B220SystemConfig.defaultConfig.ConsoleOutput;
}
for (x=0; x<=10; ++x) {
unit = cd.ConsoleOutput.units[x];
prefix = "ConsoleOut" + x;
@@ -298,6 +336,11 @@ B220SystemConfig.prototype.loadConfigDialog = function loadConfigDialog() {
} // for x
// Cardatron units
if (!cd.Cardatron) {
cd.Cardatron = B220SystemConfig.defaultConfig.Cardatron;
}
for (x=1; x<=7; ++x) {
unit = cd.Cardatron.units[x];
prefix = "Cardatron" + x;
@@ -324,6 +367,10 @@ B220SystemConfig.prototype.loadConfigDialog = function loadConfigDialog() {
// Magnetic Tape units
if (!cd.MagTape) {
cd.MagTape = B220SystemConfig.defaultConfig.MagTape;
}
this.$$("SuppressBMod").checked = !cd.MagTape.suppressBSwitch;
for (x=1; x<=10; ++x) {
unit = cd.MagTape.units[x];
@@ -372,6 +419,28 @@ B220SystemConfig.prototype.saveConfigDialog = function saveConfigDialog() {
x = parseInt(e.options[e.selectedIndex], 10);
cd.memorySize = (isNaN(x) ? 5000 : x);
// Console Input units
for (x=1; x<=10; ++x) {
unit = cd.ConsoleInput.units[x];
prefix = "ConsoleIn" + x;
e = this.$$(prefix + "Type");
unit.type = (e.selectedIndex < 0 ? "NONE" : e.options[e.selectedIndex].value);
mask = 0x001;
unit.unitMask = 0;
for (y=1; y<=10; ++y) {
mask <<= 1;
if (this.$$(prefix + "_" + y).checked) {
unit.unitMask |= mask;
}
} // for y
if (unit.type != "NONE") {
unit.remote = (unit.remote || 0);
unit.speed = (unit.speed || 0);
}
} // for x
// Console Output units
for (x=0; x<=10; ++x) {
@@ -391,10 +460,15 @@ B220SystemConfig.prototype.saveConfigDialog = function saveConfigDialog() {
}
} // for y
e = this.$$(prefix + "Format");
unit.format = (e.selectedIndex < 0 ? "NONE" : e.options[e.selectedIndex].value);
unit.columns = (unit.columns ? unit.columns : 72);
unit.tabs = (unit.tabs ? unit.tabs : "1,9,17,25,33,41,49,57,65,73");
if (unit.type != "NONE") {
unit.remote = (unit.remote || 0);
unit.zeroSuppress = (unit.zeroSuppress || 0);
unit.mapMemory = (unit.mapMemory || 0);
e = this.$$(prefix + "Format");
unit.format = (e.selectedIndex < 0 ? "NONE" : e.options[e.selectedIndex].value);
unit.columns = (unit.columns ? unit.columns : 72);
unit.tabs = (unit.tabs ? unit.tabs : "1,9,17,25,33,41,49,57,65,73");
}
} // for x
// Cardatron units
@@ -410,14 +484,18 @@ B220SystemConfig.prototype.saveConfigDialog = function saveConfigDialog() {
cd.Cardatron.hasCardatron = true;
unit.algolGlyphs = this.$$(prefix + "AlgolGlyphs").checked;
unit.greenBar = this.$$(prefix + "Greenbar").checked;
unit.zeroSuppressCols = (unit.zeroSuppressCols || "");
break;
case "CP":
cd.Cardatron.hasCardatron = true;
unit.algolGlyphs = this.$$(prefix + "AlgolGlyphs").checked;
unit.greenBar = false;
unit.zeroSuppressCols = (unit.zeroSuppressCols || "");
break;
case "CR":
cd.Cardatron.hasCardatron = true;
unit.formatSelect = (unit.formatSelect || 0);
unit.formatCol = (unit.formatCol === undefined ? 1 : unit.formatCol)
// no break
default:
unit.algolGlyphs = false;