diff --git a/build-release.cmd b/build-release.cmd
index 297dbc1..bf02a77 100644
--- a/build-release.cmd
+++ b/build-release.cmd
@@ -1 +1 @@
-"%ProgramFiles%\7-Zip\7z.exe" a -tzip releases\retro-b5500-%1.zip build-release.cmd emulator\ webui\ -x!webui\tools\* -x!webui\prototypes\* tools\*.html tools\*.job
\ No newline at end of file
+"%ProgramFiles%\7-Zip\7z.exe" a -tzip releases\retro-b5500-%1.zip build-release.cmd emulator\ webui\ -x!webui\prototypes\* tools\*.html tools\*.js tools\*.card
\ No newline at end of file
diff --git a/emulator/B5500CentralControl.js b/emulator/B5500CentralControl.js
index a0565bb..7f45774 100644
--- a/emulator/B5500CentralControl.js
+++ b/emulator/B5500CentralControl.js
@@ -18,6 +18,7 @@ function B5500CentralControl(global) {
this.mnemonic = "CC"; // Unit mnemonic
this.global = global; // Javascript global object (e.g., "window" for browsers)
+ this.sysConfig = null; // System configuration object
/* Global system modules */
this.DD = null; // Distribution & Display unit
@@ -45,8 +46,7 @@ function B5500CentralControl(global) {
// Instance variables and flags
this.poweredUp = 0; // System power indicator
-
- this.unitStatusMask = 0; // Peripheral unit ready-status bitmask
+ this.unitStatusMask = 0; // Peripheral unit ready-status bitmask [must not be in clear()]
this.PB1L = 0; // 0=> PA is P1, 1=> PB is P1
this.inhCCI03F = 0; // 0=> allow timer interrupts; 1=> inhibit 'em
@@ -61,7 +61,7 @@ function B5500CentralControl(global) {
/**************************************/
/* Global constants */
-B5500CentralControl.version = "0.20";
+B5500CentralControl.version = "1.00";
B5500CentralControl.memReadCycles = 2; // assume 2 µs memory read cycle time (the other option was 3 µs)
B5500CentralControl.memWriteCycles = 4; // assume 4 µs memory write cycle time (the other option was 6 µs)
@@ -113,7 +113,7 @@ B5500CentralControl.unitIndex = [
[null, 47,null, 46, 31, 45, 29, 44, 30, 43, 24, 42, 28, 41, 23, 40,
17, 39, 20, 38, 19, 37,null, 36,null, 35,null, 34,null, 33, 22, 32]];
-// The following object maps the unit mnemonics from B5500SystemConfiguration.units
+// The following object maps the unit mnemonics from this.sysConfig.units
// to the attributes needed to configure the CC unit[] array.
B5500CentralControl.unitSpecs = {
@@ -126,8 +126,8 @@ B5500CentralControl.unitSpecs = {
CRB: {unitIndex: 23, designate: 14, unitClass: "B5500CardReader"},
CRA: {unitIndex: 24, designate: 10, unitClass: "B5500CardReader"},
CPA: {unitIndex: 25, designate: 10, unitClass: "B5500CardPunch"},
- LPB: {unitIndex: 26, designate: 26, unitClass: "B5500DummyPrinter"},
- LPA: {unitIndex: 27, designate: 22, unitClass: "B5500DummyPrinter"},
+ LPB: {unitIndex: 26, designate: 26, unitClass: "B5500LinePrinter"},
+ LPA: {unitIndex: 27, designate: 22, unitClass: "B5500LinePrinter"},
DKB: {unitIndex: 28, designate: 12, unitClass: "B5500DiskUnit"},
DKA: {unitIndex: 29, designate: 6, unitClass: "B5500DiskUnit"},
DRB: {unitIndex: 30, designate: 8, unitClass: null},
@@ -151,7 +151,7 @@ B5500CentralControl.unitSpecs = {
/**************************************/
-B5500CentralControl.bindMethod = function bindMethod(f, context) {
+B5500CentralControl.bindMethod = function bindMethod(context, f) {
/* Returns a new function that binds the function "f" to the object "context".
Note that this is a static constructor property function, NOT an instance
method of the CC object */
@@ -205,7 +205,7 @@ B5500CentralControl.prototype.clear = function clear() {
this.P2BF = 0; // Processor 2 busy FF
this.HP2F = 0; // Halt processor 2 FF
- this.ccLatch = 0x20; // I/O Unit busy & P2 latched status (reset by console UI)
+ this.ccLatch = 0; // I/O Unit busy & P2 latched status (reset by console UI)
this.interruptMask = 0; // Interrupt status mask
this.interruptLatch = 0; // Interrupt latched status (reset by console UI)
this.iouMask = 0; // I/O Unit busy status mask
@@ -214,10 +214,6 @@ B5500CentralControl.prototype.clear = function clear() {
this.P1 = (this.PB1L ? this.PB : this.PA);
this.P2 = (this.PB1L ? this.PA : this.PB);
- if (!this.P2) {
- this.P2BF = 1; // mark non-existent P2 as busy
- this.ccLatch |= 0x10;
- }
if (this.PA) {
this.PA.clear();
}
@@ -624,23 +620,23 @@ B5500CentralControl.prototype.initiateIO = function initiateIO() {
if (this.IO1 && this.IO1.REMF && !this.AD1F) {
this.AD1F = 1;
- this.iouMask |= 0x1;
- this.ccLatch |= 0x1;
+ this.iouMask |= 0x01;
+ this.ccLatch |= 0x01;
this.IO1.initiate();
} else if (this.IO2 && this.IO2.REMF && !this.AD2F) {
this.AD2F = 1;
- this.iouMask |= 0x2;
- this.ccLatch |= 0x2;
+ this.iouMask |= 0x02;
+ this.ccLatch |= 0x02;
this.IO2.initiate();
} else if (this.IO3 && this.IO3.REMF && !this.AD3F) {
this.AD3F = 1;
- this.iouMask |= 0x4;
- this.ccLatch |= 0x4;
+ this.iouMask |= 0x04;
+ this.ccLatch |= 0x04;
this.IO3.initiate();
} else if (this.IO4 && this.IO4.REMF && !this.AD4F) {
this.AD4F = 1;
- this.iouMask |= 0x8;
- this.ccLatch |= 0x8;
+ this.iouMask |= 0x08;
+ this.ccLatch |= 0x08;
this.IO4.initiate();
} else {
this.CCI04F = 1; // set I/O busy interrupt
@@ -785,33 +781,42 @@ B5500CentralControl.prototype.load = function load(dontStart) {
this.clear(); // initialize P1/P2 configuration
if (!this.P1 || this.P1.busy) { // P1 is busy or not available
result = 1;
- } else if (!this.testUnitReady(22)) { // SPO not ready
- result = 2;
- } else if (this.testUnitBusy(22)) { // SPO is busy
- result = 3;
+ } else if (!this.testUnitReady(22)) {
+ result = 2; // SPO not ready
+ } else if (this.testUnitBusy(22)) {
+ result = 3; // SPO is busy
+ } else if (!(this.cardLoadSelect || this.testUnitReady(29))) {
+ result = 4; // DKA not ready
+ } else if (!this.cardLoadSelect && this.testUnitBusy(29)) {
+ result = 5; // DKA is busy
} else { // ready to rock 'n roll
+ if (!this.P2) {
+ this.P2BF = 1; // mark non-existent P2 as busy
+ this.ccLatch |= 0x10;
+ }
+
this.nextTimeStamp = performance.now();
this.tock();
this.LOFF = 1; // set the Load FF
if (this.IO1 && this.IO1.REMF && !this.AD1F) {
this.AD1F = 1;
- this.iouMask |= 0x1;
- this.ccLatch |= 0x1;
+ this.iouMask |= 0x01;
+ this.ccLatch |= 0x01;
this.IO1.initiateLoad(this.cardLoadSelect, boundLoadComplete);
} else if (this.IO2 && this.IO2.REMF && !this.AD2F) {
this.AD2F = 1;
- this.iouMask |= 0x2;
- this.ccLatch |= 0x2;
+ this.iouMask |= 0x02;
+ this.ccLatch |= 0x02;
this.IO2.initiateLoad(this.cardLoadSelect, boundLoadComplete);
} else if (this.IO3 && this.IO3.REMF && !this.AD3F) {
this.AD3F = 1;
- this.iouMask |= 0x4;
- this.ccLatch |= 0x4;
+ this.iouMask |= 0x04;
+ this.ccLatch |= 0x04;
this.IO3.initiateLoad(this.cardLoadSelect, boundLoadComplete);
} else if (this.IO4 && this.IO4.REMF && !this.AD4F) {
this.AD4F = 1;
- this.iouMask |= 0x8;
- this.ccLatch |= 0x8;
+ this.iouMask |= 0x08;
+ this.ccLatch |= 0x08;
this.IO4.initiateLoad(this.cardLoadSelect, boundLoadComplete);
} else {
this.CCI04F = 1; // set I/O busy interrupt
@@ -831,7 +836,7 @@ B5500CentralControl.prototype.loadTest = function loadTest(buf, loadAddr) {
should not be used to load ESPOL "DECK" files */
var addr = loadAddr; // starting B5500 memory address
var bytes = buf.byteLength;
- var data = new DataView(buf); // use DataView() to avoid problems with littleendians.
+ var data = new DataView(buf); // use DataView() to avoid problems with little-endians.
var power = 0x10000000000;
var word = 0;
var x = 0;
@@ -987,7 +992,7 @@ B5500CentralControl.prototype.dumpSystemState = function dumpSystemState(caption
writer(nr, "B=" + padOctal(px.B, 16) + " BROF=" + px.BROF);
}
- writer(0, "B5500 State Dump by " + (caption || "(unknown)") + " : " + new Date().toString());
+ writer(0, "retro-B5500 State Dump by \"" + (caption || "(unknown)") + "\" : " + new Date().toString());
// Dump the processor states
dumpProcessorState(this.P1, 1);
@@ -1033,10 +1038,9 @@ B5500CentralControl.prototype.dumpSystemState = function dumpSystemState(caption
};
/**************************************/
-B5500CentralControl.prototype.configureSystem = function configureSystem() {
- /* Establishes the hardware module configuration from the
- B5500SystemConfiguration module */
- var cfg = B5500SystemConfiguration;
+B5500CentralControl.prototype.configureSystem = function configureSystem(cfg) {
+ /* Establishes the hardware module configuration from the system configuration
+ object "cfg" */
var mnem;
var signal = null;
var specs;
@@ -1097,38 +1101,37 @@ B5500CentralControl.prototype.configureSystem = function configureSystem() {
}
}
- // ***** !! inhibit for now ***** // this.DD = new B5500DistributionAndDisplay(this);
-
// Configure the processors
- if (cfg.PA) {this.PA = new B5500Processor("A", this)}
- if (cfg.PB) {this.PB = new B5500Processor("B", this)}
+ if (cfg.PA.enabled) {this.PA = new B5500Processor("A", this)}
+ if (cfg.PB.enabled) {this.PB = new B5500Processor("B", this)}
// Determine P1/P2
this.PB1L = (cfg.PB1L ? 1 : 0);
// Configure the I/O Units
- if (cfg.IO1) {this.IO1 = new B5500IOUnit("1", this)}
- if (cfg.IO2) {this.IO2 = new B5500IOUnit("2", this)}
- if (cfg.IO3) {this.IO3 = new B5500IOUnit("3", this)}
- if (cfg.IO4) {this.IO4 = new B5500IOUnit("4", this)}
+ if (cfg.IO1.enabled) {this.IO1 = new B5500IOUnit("1", this)}
+ if (cfg.IO2.enabled) {this.IO2 = new B5500IOUnit("2", this)}
+ if (cfg.IO3.enabled) {this.IO3 = new B5500IOUnit("3", this)}
+ if (cfg.IO4.enabled) {this.IO4 = new B5500IOUnit("4", this)}
// Configure memory
for (x=0; x<8; ++x) {
- if (cfg.memMod[x]) {
- this.addressSpace[x] = new ArrayBuffer(32768); // 4K B5500 words @ 8 bytes each
+ if (cfg.memMod[x].enabled) {
+ this.addressSpace[x] = new ArrayBuffer(4096*8); // 4K B5500 words @ 8 bytes each
this.memMod[x] = new Float64Array(this.addressSpace[x]);
}
}
// Configure the peripheral units
for (mnem in cfg.units) {
- if (cfg.units[mnem]) {
+ if (cfg.units[mnem].enabled) {
specs = B5500CentralControl.unitSpecs[mnem];
if (specs) {
unitClass = this.global[specs.unitClass || "B5500DummyUnit"];
if (unitClass) {
u = new unitClass(mnem, specs.unitIndex, specs.designate,
- makeChange(this, specs.unitIndex), makeSignal(this, mnem));
+ makeChange(this, specs.unitIndex), makeSignal(this, mnem),
+ cfg.units[mnem]);
this.unit[specs.unitIndex] = u;
}
}
@@ -1139,12 +1142,13 @@ B5500CentralControl.prototype.configureSystem = function configureSystem() {
};
/**************************************/
-B5500CentralControl.prototype.powerOn = function powerOn() {
+B5500CentralControl.prototype.powerOn = function powerOn(config) {
/* Powers up the system and establishes the hardware module configuration.
- Redundant power-ons are ignored. */
+ "config" is the system configuration object. Redundant power-ons are ignored. */
if (!this.poweredUp) {
- this.configureSystem();
+ this.sysConfig = config;
+ this.configureSystem(config);
this.poweredUp = 1;
}
};
@@ -1154,7 +1158,7 @@ B5500CentralControl.prototype.powerOff = function powerOff() {
/* Powers down the system and deallocates the hardware modules.
Redundant power-offs are ignored. */
- function shutDown() {
+ function systemShutDown() {
var x;
if (this.timer) {
@@ -1182,12 +1186,13 @@ B5500CentralControl.prototype.powerOff = function powerOff() {
this.addressSpace[x] = null;
}
+ this.clear();
this.poweredUp = 0;
}
if (this.poweredUp) {
this.halt();
// Wait a little while for I/Os, etc., to finish
- setCallback(this.mnemonic, this, 500, shutDown);
+ setCallback(this.mnemonic, this, 500, systemShutDown);
}
};
diff --git a/emulator/B5500IOUnit.js b/emulator/B5500IOUnit.js
index 26fa7c5..d3aa4ae 100644
--- a/emulator/B5500IOUnit.js
+++ b/emulator/B5500IOUnit.js
@@ -106,7 +106,7 @@ B5500IOUnit.ANSItoBIC = [ // Index by 8-bit ANSI to get 6-bit BIC
0x30,0x3C,0x3F,0x0A,0x2A,0x3B,0x1C,0x0C,0x1D,0x2D,0x2B,0x10,0x3A,0x2C,0x1A,0x31, // 20-2F
0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0D,0x2E,0x1E,0x3D,0x0E,0x0C, // 30-3F
0x0B,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x21,0x22,0x23,0x24,0x25,0x26, // 40-4F
- 0x27,0x28,0x29,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x1B,0x0C,0x3E,0x0C,0x0C, // 50-5F
+ 0x27,0x28,0x29,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x1B,0x0C,0x3E,0x0C,0x1F, // 50-5F
0x0C,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x21,0x22,0x23,0x24,0x25,0x26, // 60-6F
0x27,0x28,0x29,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x2F,0x20,0x0F,0x1F,0x0C, // 70-7F
0x0C,0x0C,0x0C,0x0C,0x0C,0x0C,0x0C,0x0C,0x0C,0x0C,0x0C,0x0C,0x0C,0x0C,0x0C,0x0C, // 80-8F
diff --git a/emulator/B5500Processor.js b/emulator/B5500Processor.js
index c85cc04..c9d8a04 100644
--- a/emulator/B5500Processor.js
+++ b/emulator/B5500Processor.js
@@ -55,7 +55,7 @@ function B5500Processor(procID, cc) {
/**************************************/
B5500Processor.cyclesPerMilli = 1000; // clock cycles per millisecond (1000 => 1.0 MHz)
-B5500Processor.timeSlice = 4000; // this.run() timeslice, clocks
+B5500Processor.timeSlice = 4000; // this.run() time-slice, clocks
B5500Processor.delayAlpha = 0.999; // decay factor for exponential weighted average delay
B5500Processor.slackAlpha = 0.9999; // decay factor for exponential weighted average slack
@@ -2813,7 +2813,6 @@ B5500Processor.prototype.doublePrecisionMultiply = function doublePrecisionMulti
this.I = (this.I & 0x0F) | 0xB0; // set I05/6/8: exponent-overflow
this.cc.signalInterrupt();
}
- /********** dumpState("Exponent Overflow in DLM"); ************************************/
} else if (eb < 0) {
if (eb >= -63) {
eb = (-eb) | 0x40; // set the exponent sign bit
@@ -3059,8 +3058,10 @@ B5500Processor.prototype.computeRelativeAddr = function computeRelativeAddr(offs
Manual. "cEnable" determines whether C-relative addressing is permitted.
This offset must be in (0..1023) */
- if (this.SALF) {
- this.cycleCount += 2; // approximate the timing
+ this.cycleCount += 2; // approximate the timing
+ if (!this.SALF) {
+ this.M = this.R*64 + (offset % 0x400);
+ } else {
switch ((offset % 0x400) >>> 7) {
case 0:
case 1:
@@ -3095,8 +3096,6 @@ B5500Processor.prototype.computeRelativeAddr = function computeRelativeAddr(offs
}
break;
} // switch
- } else {
- this.M = this.R*64 + (offset % 0x400);
}
// Reset variant-mode R-relative addressing, if enabled
@@ -3128,7 +3127,7 @@ B5500Processor.prototype.indexDescriptor = function indexDescriptor() {
/* Indexes a descriptor and, if successful leaves the indexed value in
the A register. Returns 1 if an interrupt is set and the syllable is
to be exited */
- var aw = this.A; // local copy of A reg
+ var aw; // local copy of A reg
var bw; // local copy of B reg
var interrupted = 0; // fatal error, interrupt set
var xe; // index exponent
@@ -3137,7 +3136,8 @@ B5500Processor.prototype.indexDescriptor = function indexDescriptor() {
var xs; // index mantissa sign
var xt; // index exponent sign
- this.adjustBFull();
+ this.adjustABFull();
+ aw = this.A;
bw = this.B;
xm = (bw % 0x8000000000);
xe = (bw - xm)/0x8000000000;
@@ -3173,21 +3173,24 @@ B5500Processor.prototype.indexDescriptor = function indexDescriptor() {
// Now we have an integerized index value in xm
if (!interrupted) {
- if (xs && xm) { // oops... negative index
+ if (xs && xm) {
+ // Oops... index is negative
interrupted = 1;
if (this.NCSF) {
this.I = (this.I & 0x0F) | 0x90; // set I05/8: invalid-index
this.cc.signalInterrupt();
}
- } else if (xm % 0x0400 >= (aw % 0x10000000000 - aw % 0x40000000)/0x40000000) {
- interrupted = 1; // oops... index out of bounds
+ } else if (xm % 0x0400 < (aw % 0x10000000000 - aw % 0x40000000)/0x40000000) {
+ // We finally have a valid index
+ this.A = aw - aw % 0x8000 + (xm % 0x400 + aw)%0x8000;
+ this.BROF = 0;
+ } else {
+ // Oops... index not less than size
+ interrupted = 1;
if (this.NCSF) {
this.I = (this.I & 0x0F) | 0x90; // set I05/8: invalid-index
this.cc.signalInterrupt();
}
- } else { // we finally have a valid index
- this.A = this.cc.fieldInsert(aw, 33, 15, aw % 0x8000 + xm % 0x400);
- this.BROF = 0;
}
}
@@ -3490,12 +3493,13 @@ B5500Processor.prototype.operandCall = function operandCall() {
var aw = this.A; // local copy of A reg value
var interrupted = 0; // interrupt occurred
+ // If A contains a simple operand, just leave it there, otherwise...
if (aw >= 0x800000000000) {
// It's not a simple operand
switch ((aw % 0x800000000000 - aw % 0x100000000000)/0x100000000000) { // aw.[1:3]
case 2:
case 3:
- // Present data descriptor
+ // Present data descriptor: see if it must be indexed
if ((aw % 0x10000000000 - aw % 0x40000000)/0x40000000) { // aw.[8:10]
interrupted = this.indexDescriptor();
// else descriptor is already indexed (word count 0)
@@ -3503,10 +3507,10 @@ B5500Processor.prototype.operandCall = function operandCall() {
if (!interrupted) {
this.M = this.A % 0x8000;
this.loadAviaM(); // A = [M]
- if (this.A >= 0x800000000000 && this.NCSF) {
- // Flag bit is set
+ if (this.A >= 0x800000000000 && this.NCSF) {// Flag bit is set
this.I = (this.I & 0x0F) | 0x80; // set I08: flag-bit interrupt
this.cc.signalInterrupt();
+ dumpState("Flag Bit: OPDC"); // <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< DEBUG >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
}
}
break;
@@ -3527,7 +3531,7 @@ B5500Processor.prototype.operandCall = function operandCall() {
}
break;
- default:
+ default: // cases 4, 6
// Miscellaneous control word -- leave as is
break;
}
@@ -3551,10 +3555,12 @@ B5500Processor.prototype.descriptorCall = function descriptorCall() {
switch ((aw % 0x800000000000 - aw % 0x100000000000)/0x100000000000) { // aw.[1:3]
case 2:
case 3:
- // Present data descriptor
+ // Present data descriptor: see if it must be indexed
if ((aw % 0x10000000000 - aw % 0x40000000)/0x40000000) { // aw.[8:10]
interrupted = this.indexDescriptor();
- this.A = this.cc.fieldInsert(this.A, 8, 10, 0); // set word count to zero
+ if (!interrupted) {
+ this.A = this.cc.fieldInsert(this.A, 8, 10, 0); // set word count to zero
+ }
// else descriptor is already indexed (word count 0)
}
break;
@@ -3575,7 +3581,7 @@ B5500Processor.prototype.descriptorCall = function descriptorCall() {
}
break;
- default:
+ default: // cases 4, 6
// Miscellaneous control word
this.A = this.M + 0xA00000000000;
break;
@@ -4278,7 +4284,7 @@ B5500Processor.prototype.run = function run() {
this.adjustAEmpty();
this.computeRelativeAddr(opcode >>> 2, 1);
this.loadAviaM();
- if (this.A >= 0x800000000000) { // if it's a control word,
+ if (this.A >= 0x800000000000) { // optimization: if it's a control word,
this.operandCall(); // evaluate it
} // otherwise, just leave it in A
break;
diff --git a/emulator/B5500SystemConfiguration.js b/emulator/B5500SystemConfiguration.js
index 7499bb6..258bd94 100644
--- a/emulator/B5500SystemConfiguration.js
+++ b/emulator/B5500SystemConfiguration.js
@@ -1,72 +1,117 @@
/***********************************************************************
* retro-b5500/emulator B5500SystemConfiguration.js
************************************************************************
-* Copyright (c) 2012, Nigel Williams and Paul Kimpel.
+* Copyright (c) 2012, 2014, Nigel Williams and Paul Kimpel.
* Licensed under the MIT License,
* see http://www.opensource.org/licenses/mit-license.php
************************************************************************
-* B5500 System Configuration module.
+* B5500 System Configuration definition module.
*
-* This is presently a static Javascript object describing the hardware
-* modules and peripherals attached to the system.
+* This class defines the system configuration properties for the B5500
+* emulator. This is not used directly by the emulator, but serves as a
+* central definition of the configuration properties and as a template
+* from which actual configuration instances can be cloned.
************************************************************************
* 2012-06-30 P.Kimpel
* Original version, from thin air.
+* 2014-08-27 P.Kimpel
+* Revise and implement as a constructor with prototype to support the
+* new dynamic configuration mechanism.
***********************************************************************/
"use strict";
-var B5500SystemConfiguration = {
+/**************************************/
+function B5500SystemConfiguration() {
+ /* Constructor for the global SystemConfiguration definition object */
+ // ...nothing to construct at present... everything's in the prototype.
+}
- PA: true, // Processor A available
- PB: false, // Processor B available
+/**************************************/
+B5500SystemConfiguration.prototype.configLevel = 1; // configuration object version
+B5500SystemConfiguration.prototype.sysDefaultConfigName = "Default";
+B5500SystemConfiguration.prototype.sysDefaultStorageName = "B5500DiskUnit";
- PB1L: false, // PA is P1 (false) | PB is P1 (true)
+// Template for Datacom terminal unit (B487) definition object
+B5500SystemConfiguration.prototype.sysDefaultTerminalUnit = {
+ enabled: true, // available in system
+ adapters: 1, // number of terminal interface adapters
+ buffers: 2, // number of 28-character buffers/adapter
+ pingPong: false // use ping-pong buffer management
+};
- IO1: true, // I/O Unit 1 available
- IO2: true, // I/O Unit 2 available
- IO3: true, // I/O Unit 3 available
- IO4: false, // I/O Unit 4 available
+// Template for the global system configuration definition object
+B5500SystemConfiguration.prototype.systemConfig = {
+ configLevel: B5500SystemConfiguration.prototype.configLevel,
+ configName: B5500SystemConfiguration.prototype.sysDefaultConfigName,
- memMod: [
- true, // Memory module 0 available (4KW)
- true, // Memory module 1 available (4KW)
- true, // Memory module 2 available (4KW)
- true, // Memory module 3 available (4KW)
- true, // Memory module 4 available (4KW)
- true, // Memory module 5 available (4KW)
- true, // Memory module 6 available (4KW)
- true], // Memory module 7 available (4KW)
+ PA: {enabled: true}, // Processor A available
+ PB: {enabled: false}, // Processor B available
+
+ PB1L: false, // PA is P1 (false) | PB is P1 (true)
+
+ IO1: {enabled: true}, // I/O Unit 1 available
+ IO2: {enabled: true}, // I/O Unit 2 available
+ IO3: {enabled: true}, // I/O Unit 3 available
+ IO4: {enabled: false}, // I/O Unit 4 available
+
+ memMod: [ {enabled: true}, // Memory module 0 available (4KW)
+ {enabled: true}, // Memory module 1 available (4KW)
+ {enabled: true}, // Memory module 2 available (4KW)
+ {enabled: true}, // Memory module 3 available (4KW)
+ {enabled: true}, // Memory module 4 available (4KW)
+ {enabled: true}, // Memory module 5 available (4KW)
+ {enabled: true}, // Memory module 6 available (4KW)
+ {enabled: true}], // Memory module 7 available (4KW)
units: {
- SPO: true, // SPO keyboard/printer
- DKA: true, // Disk File Control A
- DKB: true, // Disk File Control B
- CRA: true, // Card Reader A
- CRB: false, // Card Reader B
- CPA: true, // Card Punch A
- LPA: true, // Line Printer A
- LPB: false, // Line Printer B
- PRA: false, // Paper Tape Reader A
- PRB: false, // Paper Tape Reader B
- PPA: false, // Paper Tape Punch A
- PPB: false, // Paper Tape Punch A
- DCA: true, // Data Communications Control A
- DRA: false, // Drum/Auxmem A
- DRB: false, // Drum/Auxmem B
- MTA: true, // Magnetic Tape Unit A
- MTB: true, // Magnetic Tape Unit B
- MTC: true, // Magnetic Tape Unit C
- MTD: true, // Magnetic Tape Unit D
- MTE: false, // Magnetic Tape Unit E
- MTF: false, // Magnetic Tape Unit F
- MTH: false, // Magnetic Tape Unit H
- MTJ: false, // Magnetic Tape Unit J
- MTK: false, // Magnetic Tape Unit K
- MTL: false, // Magnetic Tape Unit L
- MTM: false, // Magnetic Tape Unit M
- MTN: false, // Magnetic Tape Unit N
- MTP: false, // Magnetic Tape Unit P
- MTR: false, // Magnetic Tape Unit R
- MTS: false, // Magnetic Tape Unit S
- MTT: false} // Magnetic Tape Unit X
+ SPO: {enabled: true, // SPO keyboard/printer
+ algolGlyphs: false},
+
+ DKA: {enabled: true, // Disk File Control A
+ DFX: true, FPM: false,
+ storageName: B5500SystemConfiguration.prototype.sysDefaultStorageName},
+ DKB: {enabled: false, // Disk File Control B
+ DFX: true, FPM: false,
+ storageName: B5500SystemConfiguration.prototype.sysDefaultStorageName},
+
+ CRA: {enabled: true}, // Card Reader A
+ CRB: {enabled: false}, // Card Reader B
+ CPA: {enabled: true, // Card Punch A
+ algolGlyphs: true},
+
+ LPA: {enabled: true, // Line Printer A
+ algolGlyphs: true},
+ LPB: {enabled: false, // Line Printer B
+ algolGlyphs: true},
+
+ PRA: {enabled: false}, // Paper Tape Reader A
+ PRB: {enabled: false}, // Paper Tape Reader B
+ PPA: {enabled: false}, // Paper Tape Punch A
+ PPB: {enabled: false}, // Paper Tape Punch A
+
+ DCA: {enabled: true, // Data Communications Control A
+ terminalUnits: {
+ TU1: B5500SystemConfiguration.prototype.sysDefaultTerminalUnit
+ }},
+
+ DRA: {enabled: false}, // Drum/Auxmem A
+ DRB: {enabled: false}, // Drum/Auxmem B
+
+ MTA: {enabled: true}, // Magnetic Tape Unit A
+ MTB: {enabled: false}, // Magnetic Tape Unit B
+ MTC: {enabled: false}, // Magnetic Tape Unit C
+ MTD: {enabled: false}, // Magnetic Tape Unit D
+ MTE: {enabled: false}, // Magnetic Tape Unit E
+ MTF: {enabled: false}, // Magnetic Tape Unit F
+ MTH: {enabled: false}, // Magnetic Tape Unit H
+ MTJ: {enabled: false}, // Magnetic Tape Unit J
+ MTK: {enabled: false}, // Magnetic Tape Unit K
+ MTL: {enabled: false}, // Magnetic Tape Unit L
+ MTM: {enabled: false}, // Magnetic Tape Unit M
+ MTN: {enabled: false}, // Magnetic Tape Unit N
+ MTP: {enabled: false}, // Magnetic Tape Unit P
+ MTR: {enabled: false}, // Magnetic Tape Unit R
+ MTS: {enabled: false}, // Magnetic Tape Unit S
+ MTT: {enabled: false} // Magnetic Tape Unit T
+ }
};
diff --git a/index.html b/index.html
index 98c16c9..6c89be8 100644
--- a/index.html
+++ b/index.html
@@ -1,6 +1,6 @@
-retro-B5500 Emulator Test Site
+retro-B5500 Emulator Hosting Site
@@ -10,37 +10,44 @@
- 
+ 
-
+
- Burroughs B5500 Emulator Test Site
+ Burroughs B5500 Emulator Hosting Site
-
This site hosts the current test version of the retro-B5500 emulator, a web-browser based implementation of the legendary Burroughs B5500.
+
This site hosts the current version of the retro-B5500 emulator, an implementation of the legendary Burroughs B5500 that runs in a web-browser.
+
+
+ 
+
Main Links
- B5500 Console
-
The B5500 operations console that allows you to run the emulator.
+
The B5500 operations console from which you run the emulator.
- - Help
+
- Help & Getting Started
A menu of information resources to assist you in setting up and operating the emulator.
- - Releases
-
Recent releases of the emulator files, packaged as one .zip file per release.
-
- Open Source Project
Source code, documentation, and other developer resources for the retro-B5500 emulator project at Google Code.
- Project Blog
The retro-B5500 project blog.
+ - Project Forum
+
The retro-B5500 project forum. The forum is open to everyone, but you must register first.
+
- Emulator Utilities
A set of utilities that run in your web browser for setting up and inspecting the emulator environment.
+ - Releases
+
Recent releases of the emulator files, packaged as one .zip file per release.
+
- B5500 System Software
Tape images of B5500 system software for the Mark XIII (1971) software release. You must download at least the SYSTEM tape image in order to set up the emulator in your browser.
@@ -52,7 +59,7 @@
Copyright (c) 2013, Nigel Williams and Paul Kimpel • Licensed under the MIT License
Revised
- 2013-07-21
+ 2014-07-19
diff --git a/tools/B5500.POWTEN.alg_m b/source/E-mode/utilities/B5500.POWTEN.alg_m
similarity index 100%
rename from tools/B5500.POWTEN.alg_m
rename to source/E-mode/utilities/B5500.POWTEN.alg_m
diff --git a/tools/BICTOEBCDIC.alg_m b/source/E-mode/utilities/BICTOEBCDIC.alg_m
similarity index 100%
rename from tools/BICTOEBCDIC.alg_m
rename to source/E-mode/utilities/BICTOEBCDIC.alg_m
diff --git a/tools/CODEDUMP55.alg_m b/source/E-mode/utilities/CODEDUMP55.alg_m
similarity index 100%
rename from tools/CODEDUMP55.alg_m
rename to source/E-mode/utilities/CODEDUMP55.alg_m
diff --git a/tools/EMODE.POWTEN.dat_m b/source/E-mode/utilities/EMODE.POWTEN.dat_m
similarity index 100%
rename from tools/EMODE.POWTEN.dat_m
rename to source/E-mode/utilities/EMODE.POWTEN.dat_m
diff --git a/tools/INCL2OMIT.alg_m b/source/E-mode/utilities/INCL2OMIT.alg_m
similarity index 100%
rename from tools/INCL2OMIT.alg_m
rename to source/E-mode/utilities/INCL2OMIT.alg_m
diff --git a/tools/NEATUP-ESPOLXEM.wfl_m b/source/E-mode/utilities/NEATUP-ESPOLXEM.wfl_m
similarity index 100%
rename from tools/NEATUP-ESPOLXEM.wfl_m
rename to source/E-mode/utilities/NEATUP-ESPOLXEM.wfl_m
diff --git a/tools/NEATUP.alg_m b/source/E-mode/utilities/NEATUP.alg_m
similarity index 100%
rename from tools/NEATUP.alg_m
rename to source/E-mode/utilities/NEATUP.alg_m
diff --git a/tools/NEATUP55.alg_m b/source/E-mode/utilities/NEATUP55.alg_m
similarity index 100%
rename from tools/NEATUP55.alg_m
rename to source/E-mode/utilities/NEATUP55.alg_m
diff --git a/tools/NEATUPINFO.alg_m b/source/E-mode/utilities/NEATUPINFO.alg_m
similarity index 100%
rename from tools/NEATUPINFO.alg_m
rename to source/E-mode/utilities/NEATUPINFO.alg_m
diff --git a/tools/xem/ALGOLXEM.alg_m b/source/E-mode/xem/ALGOLXEM.alg_m
similarity index 100%
rename from tools/xem/ALGOLXEM.alg_m
rename to source/E-mode/xem/ALGOLXEM.alg_m
diff --git a/tools/xem/ESPOLXEM.alg_m b/source/E-mode/xem/ESPOLXEM.alg_m
similarity index 100%
rename from tools/xem/ESPOLXEM.alg_m
rename to source/E-mode/xem/ESPOLXEM.alg_m
diff --git a/tests/ALGOLXEM/YUSPARA2.alg_m b/tests/ALGOLXEM/YUSPARA2.alg_m
new file mode 100644
index 0000000..09dc0bb
--- /dev/null
+++ b/tests/ALGOLXEM/YUSPARA2.alg_m
@@ -0,0 +1,355 @@
+$ SET LIST $ PRT DEBUGN 00000100120418PK
+% YUSPARA 00336000
+% FREE STANDING YU/SPARROW ROUTINE -- 3/5/70 -- P H KIMPEL 00337000
+% TEST OF ALGEBRAIC "G" AND "DG" FUNCTIONS -- 8/8/70 -- PHK 00338000
+BEGIN 00339000
+FILE IN YUSPAR (1,10); 00340000
+FILE OUT OUTPUT 1 (2,17); 00341000120816PK
+FORMAT 00342000
+ F1 (//X10"H/R = "F4.1,X15"MU1/MU2 = "I5), 00343000
+ F2 (2("A[J]"X16"B[J]"X20)/8(2(2(I3,E14.5,X3)X5)X5,2A6"="E13.5/), 00344000
+ 2(I3,E14.5,X3)X55"Q1/Q2"X7"="E13.5), 00345000
+ F3 (X19"YU/SPARROW ANALYSIS -- ALGEBRAIC """G""" FUNCTIONS"X8,I2, 00346000
+ 2("/"A2)X11"PAGE:"I4), 00347000
+ FE (//"RUN TOTALS:"), 00348000
+ FT (/X9"PROCESSOR TIME: "R8.2,X15"ELAPSED TIME: "R8.2" SEC"); 00349000
+INTEGER 00350000
+ I, J, % INDICIES. 00351000
+ PT, % PROCESSOR TIME [1/64-S SEC] 00352000
+ ET, % ELAPSED TIME [SAME]. 00353000
+ PAG, % SET NUMBER. 00354000
+ MO, % MONTH-OF-YEAR OF RUN. 00355000
+ NPOINTS, % TOTAL # POINTS FOR APPROXIMATION. 00356000
+ NA, % NUMBER OF A-PHASE COEFFICIENTS. 00357000
+ NB, % NUMBER OF B-PHASE COEFFICIENTS. 00358000
+ NAB, % NA + NB. 00359000
+ N1 , % NUMBER OF POINTS ON ARC C1. 00360000
+ N2, % NUMBER OF POINTS ON ARC C2. 00361000
+ N12, % NUMBER OF POINTS ON ARC C12. 00362000
+ KUSTAR, % COUNTER FOR "USTAR" 00363000
+ NUSTAR, % COUNT LIMITS FOR USTAR. 00364000
+ NSUSTAR; % DITTO. 00365000
+REAL 00366000
+ H, % INTERFACE DISTANCE FROM PIPE CENTER. 00370000
+ R, % PIPE RADIUS (= 1.0) 00371000
+ MU1, % VISCOSITY OF THE MOST VISCOUS PHASE. 00372000
+ MU2, % VISCOSITY OF THE LESS VISCOUS PHASE. 00373000
+ PI, % USUAL MEANING: 3.14159... 00375000
+ MU12, % MU1/MU2. 00376000
+ ISUM, % USED BY "INTEGRALUSTAR". 00377000
+ YSTRT, % DITTO 00378000
+ YSTEP, % DITTO 00379000
+ YEND, % DITTO 00380000
+ XSTEP, % DITTO 00381000
+ XEND, % DITTO 00382000
+ XX, % COORDINATE WORKING VARIABLES. 00383000
+ YY, % DITTO 00384000
+ USUM, % WORKING VARIABLE VOR "INTEGRALUSTAR" 00385000
+ Q1Q2, % Q1/Q2. 00386000
+ X, Y, % WORKING VARIABLES. 00387000
+ THETA1, % INTERFACE ANGLE FROM VERTICAL DIAMETER. 00388000
+ ARCC1, % LENGTH OF ARC C1. 00388100
+ ARCC2, % LENGTH OF ARC C2. 00388200
+ ARCC12, % LENGTH OF ARC C12. 00388300
+ DS1, % LENGTH OF ARC BETWEEN POINTS ON C1. 00388400
+ DS2, % LENGTH OF ARC BETWEEN POINTS ON C2. 00388500
+ DS12, % LENGTH OF ARC BETWEEN POINTS ON C12. 00388600
+ TOTALARC; % ARCC1 + ARCC2 + ACRR12. 00388700
+LABEL JMP; 00389000
+ALPHA DA, YR; % DAY AND YEAR-OF-RUN. 00390000
+INTEGER ARRAY NDX1, NDX2, NAME1, NAME2 [0:7]; 00391000
+ARRAY CALC[0:7]; 00392000
+DEFINE Q1Q1FULL = CALC[0]#, Q2Q2FULL = CALC[1]#, Q1STARQ1FULL=CALC[2]#, 00393000
+ Q2STARQ2FULL = CALC[3]#, TAB22 = CALC[4]#, QMU12 = CALC[5]#, 00394000
+ Q1Q1STAR = CALC[6]#, Q2Q2STAR = CALC[7]#; 00395000
+ % BEGIN EXECUTION IN OUTER BLOCK. 00396000
+FILL NDX1[*] WITH 1, 3, 4, 7, 8, 11, 12, 15; 00397000
+FILL NDX2[*] WITH 2, 5, 6, 9, 10, 13, 14, 17; 00398000
+FILL NAME1[*] WITH "Q1/Q1F", "Q2/Q2F", "Q1*/Q1", "Q2*/Q2", "TABLE ", 00399000
+ "QMU12 ", "Q1/Q1*", "Q2/Q2*"; 00400000
+FILL NAME2[*] WITH "ULL ", "ULL ", "FULL ", "FULL ", "2.2 ", 00401000
+ " ", " ", " "; 00402000
+ PI:= 3.141592653589793; 00403000
+ NPOINTS:= 100; NA:= NB:= 17; NAB:= NA + NB; 00404000
+ R:= 1; PAG:= 2; 00405000
+ DA:= TIME(0); YR:= DA.[29:12]; 00406000
+ DA:= DA.[17:6]|100 + DA.[11:6]|10 + DA.[5:6]; 00407000120816PK
+ FOR I:= 31, IF (YR.[11:6]|10 + YR.[5:6])MOD 4 = 0 THEN 29 ELSE 28, 31,00408000120816PK
+ 30, 31, 30, 31, 31, 30, 31, 30, 31 DO 00409000
+ BEGIN 00410000
+ MO:= MO + 1; 00411000
+ IF DA = I THEN DA:= DA-I ELSE GO TO JMP; 00412000
+ END; 00413000
+JMP: DA:= (DA DIV 10)*64 + DA MOD 10; 00414000120816PK
+ 00415000
+FOR H:= -0.8, -0.6, -0.4, -0.2, 0.0, 0.2, 0.4, 0.6, 0.8 DO 00416000
+ FOR MU12:= 1, 2, 4, 10, 25, 100, 250, 1000 DO 00417000
+ 00418000
+BEGIN % ***** INNER BLOCK ***** 00419000
+ REAL ARRAY 00420000
+ W[1:NPOINTS], 00421000
+ Y[1:1, 1:NPOINTS+NAB], 00422000
+ Z[1:NAB, 1:NPOINTS+NAB], 00423000
+ COF[1:1, 1:NAB]; 00424000
+ 00425000
+%***********************************************************************00426000
+REAL PROCEDURE G (I, X, Y); 00427000
+ VALUE I, X, Y; REAL X, Y; INTEGER I; 00428000
+ CASE (I - 1) OF 00429000
+ BEGIN 00430000
+ G:= 1; % 100431000
+ G:= X; % 200432000
+ G:= Y; % 300433000
+ G:= X*2 - Y*2; % 400434000120816PK
+ G:= 2.0 | X | Y; % 500435000120816PK
+ G:= X*3 - 3.0 | X | Y*2; % 600436000120816PK
+ G:= 3.0 | X*2 | Y - Y*3; % 700437000120816PK
+ G:= X*4 + Y*4 - 6.0 | X*2 | Y*2; % 800438000120816PK
+ G:= 4.0 | X*3 | Y - 4.0 | X | Y*3; % 900439000120816PK
+ G:= X*5 - 10.0 | X*3 | Y*2 + 5.0 | X | Y*4; %1000440000120816PK
+ G:= Y*5 - 10.0 | Y*3 | X*2 + 5.0 | Y | X*4; %1100441000120816PK
+ G:= X*6 - 15.0 | X*4 | Y*2 + 15.0 | X*2 | Y*4 - Y*6; %1200442000120816PK
+ G:= 6.0 | X*5 | Y + 6.0 | X | Y*5 - 20.0 | X*3 | Y*3; %1300443000120816PK
+ G:= X*7 - 21.0|X*5 | Y*2 + 35.0|X*3 | Y*4 - 7.0|X | Y*6; %1400444000120816PK
+ G:= 7.0 |X*6 | Y - 35.0 | X*4 | Y*3 + 21.0 | X*2 | Y*5 - Y*7; %1500445000120816PK
+ G:= X*8 + Y*8 - 28.0 |X*6 | Y*2 + 70.0 | X*4 | Y*4 - 28.0 00446000120816PK
+ | X*2 | Y*6; %1600447000120816PK
+ G:= 8.0 | X*7 |Y - 56.0 | X*5 | Y*3 + 56.0 | X*3 | Y*5 00448000120816PK
+ - 8.0 |X | Y*7; %1700449000120816PK
+ END G; 00450000
+ 00451000
+%***********************************************************************00452000
+REAL PROCEDURE DG (I, X, Y); 00453000
+ VALUE I, X, Y; INTEGER I; REAL X, Y; 00454000
+ CASE (I - 1) OF 00455000
+ BEGIN 00456000
+ DG:= 0.0; % 100457000
+ DG:= 0.0; % 200458000
+ DG:= 1.0; % 300459000
+ DG:= -2.0 | Y; % 400460000120816PK
+ DG:= 2.0 | X; % 500461000120816PK
+ DG:= -6.0 | X |Y; % 600462000120816PK
+ DG:= 3.0 | X*2 - 3.0 | Y*2; % 700463000120816PK
+ DG:= 4.0 | Y*3 - 12.0 |X*2 | Y; % 800464000120816PK
+ DG:= 4.0 | X*3 - 12.0 | X | Y*2; % 900465000120816PK
+ DG:= -20.0 |X*3 | Y + 20.0 | X | Y*3; %1000466000120816PK
+ DG:= 5.0 | Y*4 - 30.0 | Y*2 |X*2 + 5.0 | X*4; %1100467000120816PK
+ DG:= -30.0 | X*4 |Y + 60.0 | X*2 | Y*3 - 6.0 | Y*5; %1200468000120816PK
+ DG:= 6.0 | X*5 + 30.0 | X | Y*4 - 60.0 | X*3 | Y*2; %1300469000120816PK
+ DG:= -42.0 | X*5 | Y + 140.0 | X*3 | Y*3 - 42.0 | X | Y*5; %1400470000120816PK
+ DG:= 7.0 | X*6 - 105.0 | X*4 | Y*2 + 105.0 | X*2 | Y*4 00471000120816PK
+ - 7.0 | Y*6; %1500472000120816PK
+ DG:= 8.0 |Y*7 - 56.0 | X*6 | Y + 280.0 | X*4 | Y*3 00473000120816PK
+ - 168.0 | X*2 | Y*5; %1600474000120816PK
+ DG:= 8.0 | X*7 - 168.0 | X*5 | Y*2 + 280.0 | X*3 | Y*4 00475000120816PK
+ - 56.0 | X | Y*6; %1700476000120816PK
+ END DG; 00477000
+ 00478000
+%***********************************************************************00479000
+REAL PROCEDURE USTAR (I, X, Y); 00480000
+ VALUE I, X, Y; INTEGER I; REAL X, Y; 00481000
+ BEGIN 00482000
+ NUSTAR:= IF I = 1 THEN NA ELSE NA + NB; 00483000
+ NSUSTAR:= IF I = 1 THEN 1 ELSE NA + 1; 00484000
+ USUM:= 0.0; 00485000
+ FOR KUSTAR:= NSUSTAR STEP 1 UNTIL NUSTAR DO 00486000
+ USUM:= USUM + COF[1,KUSTAR] | G(KUSTAR-NSUSTAR+1, X, Y); 00487000120816PK
+ USTAR:= USUM; 00488000
+ END USTAR; 00489000
+ 00490000
+%***********************************************************************00491000
+REAL PROCEDURE INTEGRALUSTAR (I); 00492000
+ VALUE I; INTEGER I; 00493000
+ BEGIN 00494000
+ ISUM:= 0.0; 00495000
+ IF I = 1 THEN BEGIN YSTRT:= H; YEND:= 0.9999; END 00496000
+ ELSE BEGIN YSTRT:= -0.9999; YEND:= H; END; 00497000
+ YSTEP:= (YEND - YSTRT)/30.00; 00498000
+ FOR YY:= YSTRT STEP YSTEP UNTIL YEND DO 00499000
+ BEGIN XSTEP:= (XX:= SQRT(1.0 - YY*2))/15.0; 00500000120816PK
+ FOR XX:= -XX STEP XSTEP UNTIL 0.0 DO 00501000
+ ISUM:= ISUM + XSTEP | YSTEP | (USTAR (I, XX, YY) 00502000120816PK
+ - (XX*2 + YY*2)/4); 00503000120816PK
+ END; 00504000
+ INTEGRALUSTAR:= 2.0 | ISUM; 00505000120816PK
+ END INTEGRALUSTAR; 00506000
+ 00507000
+%***********************************************************************00508000
+REAL PROCEDURE ARCSIN (X); 00509000
+ VALUE X; REAL X; 00510000
+ ARCSIN:= ARCTAN(X/SQRT(1.0 - X*2)); 00511000120816PK
+ 00512000
+%***********************************************************************00513000
+REAL PROCEDURE EQUATION23 (A); 00514000
+ VALUE A; REAL A; 00515000
+ EQUATION23:= 0.5 - 2.0/3.0/PI | (A | (1.0 - A*2)*1.5 00516000120816PK
+ + 1.5 | A |SQRT(1.0 - A*2) + 1.5 | ARCSIN(A)); 00517000120816PK
+ 00518000
+%***********************************************************************00519000
+ 00520000
+PROCEDURE ORTHO (W, Y, Z, N, M, P, COF); 00521000
+VALUE N, M, P; 00522000
+REAL ARRAY COF, W[1]; 00523000
+REAL ARRAY Y, Z [1, 1]; 00524000
+INTEGER N, M, P; 00525000
+% 00526000
+%COMMENT 00527000
+% -ORTHO- IS TAKEN FROM ACM ALGORITHM 127 [COMM. ACM, VOL.5, 00528000
+% OCTOBER 1962, P. 511, AUTHOR: PHILIP J. WALSH], 00529000
+% AND INCORPORATES THE SUGGESTIONS IN BARRODALE-S 00530000
+% CERTIFICATION [COMM. ACM, VOL.13, #2, FEB.1970, 122] 00531000
+% CODE REDUCED TO ONLY THAT NEEDED TO PERFORM LEAST-SQUARES 00532000
+% DETERMINATION OF COEFFICIENTS [4/70]. 00533000
+% .... P H KIMPEL 3/25/70 U OF DELAWARE 00534000
+% 00535000
+BEGIN 00536000
+INTEGER NPP, M1, N2, M2, R1, RBAR, P2, BEI, I, J, K, THI, ALI, 00537000
+ OMI, R; 00538000
+REAL ARRAY PK, XP [1:N+P], QK[1:M+1], X[1:M+1, 1:N+P]; 00539000
+REAL SUM, DK2, DK; 00540000
+LABEL BOX1, BOX2, BOX3, BOX4, BOX5, BOX6, BOX7, OM1, OM2, BOX8, BOX9, 00541000
+ TH1, TH2, TH3, BOX10, AL1, AL2, BOX12, BE1, BE2, BOX14, FINAL; 00542000
+SWITCH BE:= BE1, BE2; 00543000
+SWITCH TH:= TH1, TH2, TH3; SWITCH AL:= AL1, AL2; 00544000
+SWITCH OM:= OM1, OM2; 00545000
+ NPP:= N + P; R:= 1; M1:= M-1; N2:= N+1; M2:= M+1; 00546000
+ R1:= 0; RBAR:= R; P2:= P+1; BEI:= 1; 00547000
+BOX1: FOR I:= 1 STEP 1 UNTIL M DO BEGIN 00548000
+ FOR J:= 1 STEP 1 UNTIL N DO 00549000
+ X[I,J]:= Z[I,J] END; 00550000
+BOX2: FOR I:= 1 STEP 1 UNTIL M DO BEGIN 00551000
+ FOR J:= N2 STEP 1 UNTIL NPP DO 00552000
+ X[I,J]:= 0.0; X[I,N+I]:= 1.0 END; GO TO BOX3; 00553000
+BOX3: K:= 1; 00554000
+BOX4: THI:= 1; 00555000
+BOX5: ALI:= OMI:= 1; 00556000
+ FOR J:= 1 STEP 1 UNTIL P DO PK[N+J]:= 0.0; 00557000
+BOX6: FOR I:= 1 STEP 1 UNTIL N DO 00558000
+ PK[I]:= X[K,I] | W[I]; 00559000120816PK
+BOX7: GO TO OM[OMI]; 00560000
+ OM1: FOR I:= 1 STEP 1 UNTIL K DO BEGIN SUM:= 0.0; 00561000
+ FOR J:= 1 STEP 1 UNTIL NPP DO 00562000
+ SUM:= SUM + PK[J] | X[I,J]; QK[I]:= SUM END; 00563000120816PK
+ GO TO BOX8; 00564000
+ OM2: DK2:= 0.0; FOR I:= 1 STEP 1 UNTIL NPP DO 00565000
+ DK2:= DK2 + PK[I] | X[K,I]; 00566000120816PK
+ DK:= SQRT(DK2); 00567000
+ FOR I:= 1 STEP 1 UNTIL NPP DO 00568000
+ X[K,I]:= X[K,I]/DK;; 00569000
+ OMI:= 1; GO TO BOX6; 00570000
+BOX8: FOR I:= 1 STEP 1 UNTIL K-1 DO 00571000
+ QK[I]:= -QK[I]; QK[K]:= 1.0; 00572000
+ FOR I:= 1 STEP 1 UNTIL NPP DO BEGIN 00573000
+ SUM:= 0.0; FOR J:= 1 STEP 1 UNTIL K DO 00574000
+ SUM:= SUM + X[J,I] | QK[J]; 00575000120816PK
+ XP[I]:= SUM END; GO TO BOX9; 00576000
+BOX9: GO TO TH[THI]; 00577000
+ TH1: FOR I:= 1 STEP 1 UNTIL NPP DO 00578000
+ X[K,I]:= XP[I]; GO TO BOX10; 00579000
+ TH2: FOR I:= 1 STEP 1 UNTIL P DO 00580000
+ COF[I]:= -XP[N+I]; THI:= 3; GO TO TH1; 00581000
+ TH3: GO TO BOX14; 00582000
+BOX10: GO TO AL[ALI]; 00583000
+ AL1: OMI:= ALI:= 2; GO TO BOX6; 00584000
+ AL2: IF K < M THEN BEGIN K:= K + 1; GO TO BOX4; END 00585000120816PK
+ ELSE GO TO BOX12; 00586000
+BOX12: GO TO BE[BEI]; 00587000
+ BE1: BEI:= THI:= 2; K:= K + 1; GO TO BOX14; 00588000
+ BE2: GO TO BOX14; 00589000
+BOX14: IF RBAR = 0 THEN GO TO FINAL ELSE RBAR:= RBAR - 1; 00590000
+ R1:= R1 + 1; THI:= 2; 00591000
+ FOR I:= 1 STEP 1 UNTIL N DO 00592000
+ X[M2,I]:= Y[R1,I]; 00593000
+ FOR I:= 1 STEP 1 UNTIL P DO 00594000
+ X[M2,N+I]:= 0.0; GO TO BOX5; 00595000
+FINAL: END ORTHO ; 00596000
+%***********************************************************************00597000
+ 00598000
+%***********************************************************************00599000
+% BEGIN EXECUTION (INNER BLOCK) %00600000
+%***********************************************************************00601000
+ ET:= TIME(1); PT:= TIME(2); 00602000
+ COMMENT INITALIZE & SET UP DATA FOR -ORTHO-; 00604000
+%% CALCULATE ARC LENGTHS OF EACH INTERFACE. 00607000
+ ARCC12:= 2.0 |SQRT(1.0 - H*2); 00608000120816PK
+ ARCC1:= 2.0 | (THETA1:= PI/2.0 - ARCTAN(2.0|H/ARCC12)); 00609000120816PK
+ ARCC2:= 2.0 |PI - ARCC1; 00610000120816PK
+%% CALCULATE NO. OF POINTS ON EACH ARC. 00611000
+ N1:= NPOINTS | ARCC1/(TOTALARC:= ARCC1 + ARCC2 + 2|ARCC12); 00612000120816PK
+ N2:= NPOINTS | ARCC2 / TOTALARC; 00613000120816PK
+ IF (N12:= NPOINTS - N1 - N2) MOD 2 = 0 THEN 00614000
+ N12:= N12 DIV 2 00615000
+ ELSE BEGIN 00616000
+ N12:= N12 DIV 2 + 1; 00617000
+ N2:= N2 - 1; 00618000
+ END; 00619000
+%% CALCULATE THE LENGTH OF LINE SEGMENTS BETWEEN POINTS ON EACH 00620000
+%% INTERFACE. 00621000
+ DS1:= ARCC1/(N1 - 1); 00622000
+ DS2:= ARCC2/(N2 - 1); 00623000
+ DS12:= ARCC12/(N12 - 1); 00624000
+ 00625000
+ FOR I:= 1 STEP 1 UNTIL NAB DO 00626000
+ BEGIN 00627000
+ FOR J:= 1 STEP 1 UNTIL N1 DO %% DATA FOR ARC C1. 00628000
+ BEGIN 00629000
+ W[J]:= 1; Y[1,J]:= 0.25; 00630000
+ XX:= SIN(YY:= DS1|(J-1)-THETA1); YY:= COS(YY); 00631000120816PK
+ Z[I,J]:= IF I { NA THEN G(I, XX, YY) ELSE 0; 00632000120816PK
+ END; 00633000
+ FOR J:= N1+1 STEP 1 UNTIL N1+N2 DO %% DATA FOR ARC C2. 00634000
+ BEGIN 00635000
+ W[J]:= DS1/DS2; Y[1,J]:= 0.25; 00636000
+ XX:= SIN(YY:= -THETA1 - DS2|(J-N1-1)); YY:= COS(YY); 00637000120816PK
+ Z[I,J]:= IF I { NA THEN 0 ELSE G(I-NA, XX, YY); 00638000120816PK
+ END; 00639000
+ FOR J:= N1+N2+1 STEP 1 UNTIL NPOINTS-N12 DO %% DATA FOR ARC C12.00640000
+ BEGIN 00641000
+ W[J]:= W[J+N12]:= DS12/DS1; 00642000
+ Y[1,J]:= 0.25 | ((XX:= DS12|(J-N1-N2-1)-ARCC12/2)*2 + H*2) 00643000120816PK
+ | (1 - MU12); 00644000120816PK
+ Y[1,J+N12]:= 0; 00645000
+ IF I { NA THEN 00646000120816PK
+ BEGIN 00647000
+ Z[I,J]:= G(I, XX, H); 00648000
+ Z[I,J+N12]:= DG(I, XX, H); 00649000
+ END ELSE 00650000
+ BEGIN 00651000
+ Z[I,J]:= -G(I-NA, XX, H) | MU12; 00652000120816PK
+ Z[I,J+N12]:= -DG(I-NA, XX, H); 00653000
+ END; 00654000
+ END; 00655000
+ END INITIALIZATION; 00656000
+ 00658000
+%%% THE NUMBER SMASHING COMMENCES. 00659000
+ ORTHO (W, Y, Z, NPOINTS, NAB, NAB, COF[1,*]); %######################00660000
+ 00661000
+%%% UPON EXIT FROM ORTHO, THE YU/SPARROW COEFFICIENTS, A[J], B[J], 00662000
+%%%% ARE CONTAINED IN THE VECTOR COF[1,*]. 00663000
+ 00664000
+ Q1Q1FULL:= 8/PI | INTEGRALUSTAR(1); 00665000120816PK
+ Q2Q2FULL:= 8/PI | INTEGRALUSTAR(2); 00666000120816PK
+ Q1STARQ1FULL:= EQUATION23(H); 00667000
+ Q2STARQ2FULL:= 1 - Q1STARQ1FULL; 00668000
+ TAB22:= Q2Q2FULL | PI/8; 00669000120816PK
+ Q1Q2:= Q1Q1FULL/Q2Q2FULL/MU12; 00670000
+ QMU12:= Q1Q2 | MU12; 00670500120816PK
+ Q1Q1STAR:= Q1Q1FULL/Q1STARQ1FULL; Q2Q2STAR:= Q2Q2FULL/Q2STARQ2FULL;00671000
+ 00672000
+ 00673000
+ IF (PAG:= PAG+1) MOD 3 = 0 THEN 00674000
+ BEGIN 00674800
+ WRITE (OUTPUT[PAGE]); 00674900
+ WRITE (OUTPUT, F3, MO, DA, YR, PAG DIV 3); 00675000
+ END; 00675100
+ WRITE (OUTPUT[DBL], F1, H, MU12); 00676000
+ WRITE (OUTPUT, F2, FOR I:= 0 STEP 1 UNTIL 7 DO 00677000
+ [NDX1[I], COF[1,NDX1[I]], NDX1[I], COF[1,NDX1[I]+NA], NDX2[I], 00678000
+ COF[1,NDX2[I]], NDX2[I], COF[1,NDX2[I]+NA], NAME1[I], 00679000
+ NAME2[I], CALC[I]], 16, COF[1,16], 16, COF[1,16], Q1Q2); 00680000
+ WRITE (OUTPUT, FT, (TIME(2) - PT)/60, (TIME(1) - ET)/60); 00681000
+END INNER BLOCK; 00682000
+WRITE (OUTPUT[DBL], FT); 00683000
+WRITE (OUTPUT[DBL], *, "TOTALS:"); 00684000
+WRITE (OUTPUT, FT, TIME(2)/60, TIME(1)/60); 00685000
+END. 00686000
diff --git a/tools/B5500DeleteStorageDB.html b/tools/B5500DeleteStorageDB.html
new file mode 100644
index 0000000..da416d8
--- /dev/null
+++ b/tools/B5500DeleteStorageDB.html
@@ -0,0 +1,45 @@
+
+
+B5500 Emulator Storage DB Deletion
+
+
+
+
+
+
+
+
+
+
+Delete a Disk Storage Database!
+
+
+
\ No newline at end of file
diff --git a/tools/B5500DeleteSystemConfigDB.html b/tools/B5500DeleteSystemConfigDB.html
new file mode 100644
index 0000000..9e6393c
--- /dev/null
+++ b/tools/B5500DeleteSystemConfigDB.html
@@ -0,0 +1,44 @@
+
+
+B5500 Emulator System Configuration DB Deletion
+
+
+
+
+
+
+
+
+
+
+Delete the System Configuration Database!
+
+
+