github.com/pkimpel.retro-b5500
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-b5500.git synced 2026-02-11 19:05:01 +00:00
Code Releases Activity

Commit DCMCP transcription as of 2012-12-31; continue development of B5500ColdLoader.

Browse Source
This commit is contained in:
paul
2012-12-31 18:00:08 +00:00
parent 1b02f101c8
commit 243ca17428
3 changed files with 420 additions and 167 deletions
Download Patch File Download Diff File Expand all files Collapse all files

111
SYMBOL/DCMCP.esp_m
View File

@@ -18484,3 +18484,114 @@ ST1: IF T=USEV THEN 20594600
EXIT: RETURNVAL:=PROCVAL; % ADJUST RESULT OF TYPED PROC 20594750
P([RETURNRCW],STS,0,RDS,0,XCH,P&P[CTF],STF); 20594751
END CCSECMAINT; 20594800
REAL PROCEDURE CCLABEL; 20594850
BEGIN LABEL EXIT; 20594870
DECLARECCVARIABLES; 20595000
P(RCW,MYMSCW,STF); 20595080
RCW:=RCW & P(XCH)[CTC]; 20595090
CN:=0; 20595150
UNITCODE[UNITNO-23]:= USERID; 20595200
MULTITABLE[UNITNO]:= 0; 20595250
RDCTABLE[UNITNO]:= 1&1[14:38:10]; 20595300
IF UNITNO=23 THEN BEGIN CN:=READERA.[FF];READERA:=CARDLOC END 20595350
ELSE IF UNITNO=24 THEN BEGIN CN:=READERB.[FF];READERB:=CARDLOC END 20595400
ELSE IF UNITNO GEQ 32 THEN BEGIN CN:= CIDROW[UNITNO-32].[3:5]; 20595450
CIDROW[UNITNO-32].[3:5]:= 0; 20595500
CIDROW[UNITNO-32].[18:15]:= CARDLOC; 20595550
M[CARDLOC-4].[3:6]:=20;M[CARDLOC-3]:=UNITNO-32; 20595560
END; 20595600
IF CN THEN BEGIN LABELTABLE[UNITNO]:= "CARD 00" OR 20595650
((IF UNITNO GEQ 32 THEN "C/" ELSE @5772 + UNITNO); 20595700
CCLABEL:=8; GO EXIT; 20595750
END; 20595800
IF T = LABEV THEN BEGIN 20595850
MULTITABLE[UNINTO]:=M[CARDLOC+1].[6:42]; 20595900
STREAM(A:=0,B:=0,C:=0:D:=CARDLOC+3); 20595950
BEGIN DI:=LOC A; SI:=D;DS:=3OCT; 20596000
DS:=5OCT; DS:=2OCT; END; 20596050
P(P(XCH)&P[24:31:17]&P(XCH)[14:38:10], 20596100
[RDCTABLE[UNITNO]],~);% 20596150
LABELTABLE[UNITNO]:=M[CARDLOC+2].[6:42]; 20596200
END 20596250
ELSE IF SCN(UNITNO,CARDLOC,SOURCE,ACCUM,KOUNT,LASTSCAN,DIRECT) 20596300
GEQ IDENT THEN LABELTABLE[UNITNO]:=ACCUM[0] 20596350
ELSE BEGIN IF UNITNO GEQ 32 THEN 20596400
CIDROW[UNITNO-32].[18:15]:=0; 20596450
CCLABEL:=6; GO EXIT; 20596500
END; 20596550
CCLABEL:=6; 20596600
EXIT: RETURNVAL:=PROCVAL; % ADJUST RESULT OF TYPED PROC 20596650
P([RETURNRCW],STS,0,RDS,0,XCH,P&P[CTF],STF); 20596651
END CCLABEL; 20596700
BOOLEAN PROCEDURE CCFIND; 20596750
BEGIN LABEL FINDX; 20596760
DECLARECCVARIABLES; 20596800
P(RCW,MYMSCW,STF); 20596945
RCW:=RCW & P(XCH)[CTC]; 20596947
IF T=ENDFI THEN BEGIN P(0); GO TO FINDX END; 20596950
IF T=DATAV THEN BEGIN P(1); GO TO FINDX; END; 20597000
IF T=LABEV THEN BEGIN P(1); GO TO FINDX; END; 20597050
$ SET OMIT = NOT(DCSPO AND DATACOM ) 20597100
FINDX: CCFIND:=P; 20597450
RETURNVAL:=PROCVAL; % ADJUST RESULT OF TYPED PROC; 20597459
P([RETURNRCW],STS,P&RCW[CTC],0,RDS,0,XCH,P&P[CTF],STF); 20597460
END CCFIND; 20597500
PROCEDURE CONTROLCARD(CARD); VALUE CARD; REAL CARD; 20597550
BEGIN 20597600
LABEL CC,CCTYPE,COMPILE,INITIALIZATION,BEFORETRYNEXT,TRYNEXT, 20597650
CONTROLER,CONTROLA,COMPILEJOB,COMJOB,EXEC,EXRUN,RUN, 20597700
USERS,USES,SECBOMB,UNLOX,LOX,FREES,OPENS,ENTE, 20597750
LCOPY,CHANGE,REMOVE,UNITI,INCSC,ENDF,ENDECK,SAVENO, 20597800
LABE,FINIS,ZIPEXIT,EXIT,SET,RSET,DOWN; 20597850
LABEL CCC,PACK,PACK2,WAIT,ZIPLIST; 20597880
SWITCH TYPE~ UNLOX,USES,LOX,FREES,OPENS,PACK,USERS, 20597900
RUN,COMPILE,EXEC,LCOPY,LCOPY,LCOPY,ENTE,ENTE,REMOVE, 20597950
CHANGE,UNITI,ENDF,WAIT,LABE,LABE,SET,RSET; 20598000
SWITCH SW~ CC,CCTYPE,INITIALIZATION,BEFORETRYNEXT,SECBOMB,ENDECK, 20599000
INCSC,ZIPEXIT,EXIT,PACK2; 20599100
DEFINE ZIPMIX=CARD.[18:6]#, PSOURCE=CARD.[24:6]#; 20600000
DECLARECCVARIABLES; 20600010
REAL SUBROUTINE SCAN; 20600020
SCAN:=SCN(UNITNO,CARDLOC,SOURCE,ACCUM,KOUNT,LASTSCAN,DIRECT); 20600040
$ SET OMIT = NOT(PACKETS) 20600099
SUBROUTINE LISTHECARD; 20600100
IF LASTSCAN.[2:1] THEN 20600110
IF SPOUTUNIT.[CF] GEQ 32 THEN 20600120
IF T!PACKET THEN 20600130
BEGIN 20600140
LASTSCAN.[2:1]:=0; ABORT:=CARDLOC; 20600150
IF UNITNO=31 THEN 20600160
STREAM(E:="END....", CARDLOC); 20600170
BEGIN SI:=CARDLOC; DI:=LOC E; DI:=DI+1; 20600180
L1: IF SC=" " THEN BEGIN SI:=SI+1; GO L1; END; 20600190
IF SC="~" THEN GO FINI; 20600200
IF SC=ALPHA THEN 20600210
IF SC="E" THEN 20600220
BEGIN 20600230
IF 3 SC=DC THEN IF SC=ALPHA THEN ELSE 20600240
BEGIN 20600250
CARDLOC:=SI; DI:=CARDLOC; DS:=LIT"~"; 20600260
GO FINI; 20600270
END; 20600280
SI:=SI-3; DI:=DI-3; GO L2; 20600290
END ELSE % ALPHANUMERIC 20600300
BEGIN 20600310
L2: SI:=SI+1; IF SC=ALPHA THEN GO L2; 20600320
END ELSE % SPECIAL CHR 20600330
SI:=SI+1; 20600340
GO L; 20600350
FINI: 20600360
END; 20600370
ZIPLIST: 20600380
STREAM(EOS:=0; CARDLOC:=[ABORT], PC:=PPCPROCESS, 20600390
ZZP:=UNITNO=31, D:=NT1:=SPACE(10)); 20600400
BEGIN SI:=CARDLOC; SI:=SI+5; SI:=SC; 20600410
DS:=LIT">"; PPC(DS:=4LIT">"); ZZP(DS:=2LIT">"); 20600420
2(36(IF SC="~" THEN JUMP OUT 2 TO DUN; 20600425
ZZP(IF SC="1" THEN BEGIN DS:=CHR; 20600430
LUP: IF SC=" " THEN BEGIN SI:=SI+1; GO LUP; END; 20600435
JUMP OUT 3 TO AGN; END); 20600440
DS:=CHR)); 20600445
AGN: TALLY:=1; EOS:=TALLY; 20600450
DUN: DS:=LIT"~"; 20600455
ZZP(D:=SI; SI:=LOC D; DI:=CARDLOC; DS:=WDS); 20600460

359
tools/B5500ColdLoader.html
View File

@@ -15,11 +15,11 @@
* see http://www.opensource.org/licenses/mit-license.php
************************************************************************
* B5500 Coldstart Disk Subsystem Loader.
*
*
* This script opens an IndexedDB database in the browser (creating it first, if
* necessary) and initializes it as a B5500 Head-per-Track disk file subsystem.
* It creates, as necessary, a separate IDB object store for for the number of
* Electronics Units specified by the "euSet" constant, each consisting of the number
* necessary) and initializes it as a B5500 Head-per-Track disk file subsystem.
* It creates, as necessary, a separate IDB object store for for the number of
* Electronics Units specified by the "euSet" constant, each consisting of the number
* of 30-word segments (sectors) specified by the "EUn" properties of "euSet".
*
* If the ColdStart box is checked on the page, the disk directory structure on
@@ -27,7 +27,7 @@
* the system parameters are created.
*
*
*
*=======================================================================
* The script then reads a Burroughs B5500 Library/Maintenance tape as one
* large blob and extracts all files, converting the 6-bit B5500 Internal Code
* (BIC) characters to 8-bit ASCII. All files are extracted.
@@ -35,7 +35,7 @@
* The blob is assumed to be in the so-called ".bcd" format. Each 7-bit frame
* from the tape is represented as one 8-bit unsigned byte. The low-order six
* bits (mask 0x3F) contain the character value. The next bit (mask 0x40) is
* the parity bit, and the high-order bit (mask 0x80) indicates the byte is
* the parity bit, and the high-order bit (mask 0x80) indicates the byte is
* at the start of a physical tape block. Tape marks (EOF) are indicated by a
* block containing a single 0x8F byte.
*
@@ -45,11 +45,11 @@
* To use, select the .bcd file using the file selection control on the page.
* The script writes a log of activity to the web page.
*
* This version outputs the converted data by opening a browser window for
* each file and inserting the converted text into a <textarea> element in
* that window. From there you can copy the text and paste into another
* This version outputs the converted data by opening a browser window for
* each file and inserting the converted text into a <textarea> element in
* that window. From there you can copy the text and paste into another
* program that can save the data to a local filesystem. This approach is
* being used until we can figure out a better way to get data out of a
* being used until we can figure out a better way to get data out of a
* browser environment and into a local filesystem. Ugh.
************************************************************************
* 2012-12-29 P.Kimpel
@@ -66,14 +66,14 @@ window.onload = function() {
const euSize = 200000; // model I size (5 Storage Units: 6MW or 48MC)
const euPrefix = "EU"; // prefix for EU object store names
const tapeMark = 0x8F; // .bcd file tapemark (EOF) octet code
var config = null; // copy of CONFIG store contents
var disk = null; // the IDB database object
var panel = document.getElementById("TextPanel");
var tapeDir = [];
var euSet = {EU0: euSize, EU1: euSize};
var tapeCtl = {
data: null,
offset: 0,
@@ -82,31 +82,31 @@ window.onload = function() {
eot: false,
blockCount: 0,
blockLength: 0};
var BICtoANSI = [
"0", "1", "2", "3", "4", "5", "6", "7",
"8", "9", "#", "@", "?", ":", ">", "}",
"+", "A", "B", "C", "D", "E", "F", "G",
"H", "I", ".", "[", "&", "(", "<", "~",
"|", "J", "K", "L", "M", "N", "O", "P",
"Q", "R", "$", "*", "-", ")", ";", "{",
" ", "/", "S", "T", "U", "V", "W", "X",
var BICtoANSI = [
"0", "1", "2", "3", "4", "5", "6", "7",
"8", "9", "#", "@", "?", ":", ">", "}",
"+", "A", "B", "C", "D", "E", "F", "G",
"H", "I", ".", "[", "&", "(", "<", "~",
"|", "J", "K", "L", "M", "N", "O", "P",
"Q", "R", "$", "*", "-", ")", ";", "{",
" ", "/", "S", "T", "U", "V", "W", "X",
"Y", "Z", ",", "%", "!", "=", "]", "\""];
var pow2 = [ // powers of 2 from 0 to 52
0x1, 0x2, 0x4, 0x8,
0x10, 0x20, 0x40, 0x80,
0x100, 0x200, 0x400, 0x800,
0x1000, 0x2000, 0x4000, 0x8000,
0x10000, 0x20000, 0x40000, 0x80000,
0x100000, 0x200000, 0x400000, 0x800000,
0x1000000, 0x2000000, 0x4000000, 0x8000000,
0x10000000, 0x20000000, 0x40000000, 0x80000000,
0x100000000, 0x200000000, 0x400000000, 0x800000000,
0x1000000000, 0x2000000000, 0x4000000000, 0x8000000000,
0x10000000000, 0x20000000000, 0x40000000000, 0x80000000000,
0x100000000000, 0x200000000000, 0x400000000000, 0x800000000000,
0x1000000000000, 0x2000000000000, 0x4000000000000, 0x8000000000000,
0x1, 0x2, 0x4, 0x8,
0x10, 0x20, 0x40, 0x80,
0x100, 0x200, 0x400, 0x800,
0x1000, 0x2000, 0x4000, 0x8000,
0x10000, 0x20000, 0x40000, 0x80000,
0x100000, 0x200000, 0x400000, 0x800000,
0x1000000, 0x2000000, 0x4000000, 0x8000000,
0x10000000, 0x20000000, 0x40000000, 0x80000000,
0x100000000, 0x200000000, 0x400000000, 0x800000000,
0x1000000000, 0x2000000000, 0x4000000000, 0x8000000000,
0x10000000000, 0x20000000000, 0x40000000000, 0x80000000000,
0x100000000000, 0x200000000000, 0x400000000000, 0x800000000000,
0x1000000000000, 0x2000000000000, 0x4000000000000, 0x8000000000000,
0x10000000000000];
function $$(id) {
@@ -136,33 +136,61 @@ window.onload = function() {
function spout(text) {
/* Appends "text"+NL as a new text node to the panel DOM element */
var e = document.createTextNode(text + "\n");
panel.appendChild(e);
}
function clearPanel() {
/* Clears the text panel */
var kid;
while (kid = panel.firstChild) {
panel.removeChild(kid);
}
}
function parseNumber(s) {
/* Parses the string "s" as a base-10 number. Returns 0 if it is not a number */
var n = parseInt(s, 10);
return (isNaN(n) ? 0 : n);
}
function rtrim(s) {
/* Trims trailing spaces from "s" and returns the resulting string */
var m = s.match(/^(.*?) *$/);
return m[1];
}
function padToLength(text, len) {
/* Converts the input string "text" to exactly "len" characters,
truncating or padding on the right with spaces as necessary */
var x = text.length;
if (x > len) {
return text.substring(0, len);
} else {
x = len-x;
while (x-- > 0) {
text += " ";
}
return text;
}
}
function stringToANSI(text, bytes, bx) {
/* Translates the characters in a string to ANSI byte-array format.
"text" is the input string, "bytes" is the Uint8Array output buffer,
and "bx" is the offset into that output buffer */
var len = text.length;
var x;
for (x=0; x<len; x++) {
bytes[bx++] = text.charCodeAt(x) & 0xFF;
}
}
function wordsToANSI(words, wx, wLength, bytes, bx) {
/* Translates an array of B5500 words to ANSI byte-array format.
"words" = the array of words
@@ -175,31 +203,31 @@ window.onload = function() {
var x;
var y;
var z;
for (x=0; x<wLength; x++) {
w = words[x+wx] || 0;
for (y=0; y<8; y++) {
z = w % 0x40000000000;
c = (w-z)/0x40000000000;
bytex[bx++] = BICtoANSI[c].charCodeAt(0);
bytes[bx++] = BICtoANSI[c].charCodeAt(0);
w = z*64;
}
}
}
function readTextBlock(ctl) {
function readTextBlock(ctl) {
/* Reads the next block from the tape, translating the character frames to ANSI
character codes and returning the data as a string. A block is terminated when
character codes and returning the data as a string. A block is terminated when
the next frame has its high-order bit set, or the end of the data is reached.
The string returned is always at least one character in length, unless the block
is a tapeMark (in which case the "eof" property is set) or the end of the data
is a tapeMark (in which case the "eof" property is set) or the end of the data
has been reached (in which case the "eof" and "eot" properties are set) */
var c;
var data = ctl.data;
var limit = ctl.dataLength;
var text = "";
var x = ctl.offset;
if (x >= limit) {
ctl.eof = true;
ctl.eot = true;
@@ -227,13 +255,13 @@ window.onload = function() {
}
return text;
}
function readWordBlock(ctl) {
/* Reads the next block from the tape, translating the character frames to an array
of B5500 binary words and returning the array. A block is terminated when
function readWordBlock(ctl) {
/* Reads the next block from the tape, translating the character frames to an array
of B5500 binary words and returning the array. A block is terminated when
the next frame has its high-order bit set, or the end of the data is reached.
The array returned is always at least one element in length, unless the block
is a tapeMark (in which case the "eof" property is set) or the end of the data
is a tapeMark (in which case the "eof" property is set) or the end of the data
has been reached (in which case the "eof" and "eot" properties are set) */
var c;
var data = ctl.data;
@@ -242,7 +270,7 @@ window.onload = function() {
var words = [];
var wx = 0;
var x = ctl.offset;
if (x >= limit) {
ctl.eof = true;
ctl.eot = true;
@@ -269,7 +297,7 @@ window.onload = function() {
c = tapeMark; // to kill the loop
}
} while (c < 128);
// Right-justify the last word as necessary
while (wx++ < 8) {
w *= 64;
@@ -283,13 +311,13 @@ window.onload = function() {
}
return words;
}
function readTapeLabel(ctl) {
/* Reads the next block from the tape and determines if it is a B5500 tape label.
If so, decodes the label into a label object and returns the object */
var rec;
var s;
var lab = {
isLabel: false,
text: "",
@@ -305,7 +333,7 @@ window.onload = function() {
recordCount:0,
memdumpKey: 0,
tapeNumber: ""};
rec = readTextBlock(ctl);
if (!ctl.eof) {
lab.text = rec;
@@ -327,7 +355,7 @@ window.onload = function() {
}
return lab;
}
function readTapeDirectory(ctl) {
/* Reads the Lib/Maint tape directory and returns and array of file names, indexed
starting at 1. If the directory is invalid, returns an empty array */
@@ -340,7 +368,7 @@ window.onload = function() {
var rec;
var w;
var x;
lab = readTapeLabel(ctl);
if (ctl.eof) {
spout("TapeDir: EOF encountered when tape label expected, block=" + ctl.blockCount);
@@ -353,7 +381,7 @@ window.onload = function() {
if (!ctl.eof) {
spout("TapeDir: EOF expected after starting label, block=" + ctl.blockCount);
}
do {
rec = readTextBlock(ctl);
if (!ctl.eof) {
@@ -377,7 +405,7 @@ window.onload = function() {
} while (!done);
}
} while (!ctl.eof);
lab2 = readTapeLabel(ctl);
if (!lab2.isLabel) {
spout("TapeDir: Tape label expected after directory, block=" + ctl.blockCount);
@@ -387,12 +415,12 @@ window.onload = function() {
}
return dir;
}
function readDiskHeader(ctl) {
/* Reads the next block from the tape blob and (partially) decodes it as a B5500
/* Reads the next block from the tape blob and (partially) decodes it as a B5500
disk header, returning the header object */
var block;
var header = {
recordLength: 0,
blockLength: 0,
@@ -408,7 +436,7 @@ window.onload = function() {
segmentsPerRow: 0,
maxRows: 0,
rowAddress: []};
block = readWordBlock(ctl);
if (ctl.eof) {
spout("DiskHeader: EOF encountered reading header, block=" + ctl.blockCount);
@@ -432,7 +460,7 @@ window.onload = function() {
}
return header;
}
function extractFileRow(ctl, header, box, recs) {
/* Extracts the next row from the tape blob and writes it one record at a time to
the "box" textarea object. "recs" is the number of records converted at entry to the
@@ -441,14 +469,14 @@ window.onload = function() {
var blockChars = header.blockLength*8;
var blockRecs = 0;
var bx = 0;
var done = false;
var done = false;
var recChars = header.recordLength*8;
var rowRecs = 0;
var rx = 0;
var segs = 0;
var text = "";
var value = "";
// Assemble the row data from tape blocks
do {
block = readTextBlock(ctl);
@@ -462,7 +490,7 @@ window.onload = function() {
}
}
} while (!done);
// Loop through the file blocks within the row data
while (bx < text.length) {
rx = bx;
@@ -485,7 +513,7 @@ window.onload = function() {
box.value += value;
return rowRecs;
}
function extractFile(ctl, fileNr, fileName) {
/* Extracts the next file in sequence from the tape blob, converts the data
from BIC to ASCII, and writes it to a new window object within the browser.
@@ -501,7 +529,7 @@ window.onload = function() {
var text;
var win;
var x;
spout(" ");
spout("Extracting #" + fileNr + ": " + fileName);
lab = readTapeLabel(ctl);
@@ -515,7 +543,7 @@ window.onload = function() {
if (!ctl.eof) {
spout("TapeDir: EOF expected after starting label, block=" + ctl.blockCount);
}
header = readDiskHeader(ctl);
header = readDiskHeader(ctl);
spout(" " + lab.mfid + "/" + lab.fid +
": REC=" + header.recordLength +
", BLK=" + header.blockLength +
@@ -530,7 +558,7 @@ window.onload = function() {
", CNT=" + header.recordCount +
", SPR=" + header.segmentsPerRow +
", MXR=" + header.maxRows);
text = " Rows @ [";
for (x=0; x<header.rowAddress.length; x++) {
if (x>0) {
@@ -542,13 +570,13 @@ window.onload = function() {
}
}
spout(text + "], allocated=" + rowCount);
text = "Tape " + rtrim(lab.mfid) + "/" + rtrim(lab.fid) + ": " + fileName;
win = window.open("", lab.fid, "width=800,height=600,status,scrollbars");
win.status = text;
win.moveTo((screen.availWidth - 800)/2, (screen.availHeight - 600)/2);
win.focus();
win.document.body.appendChild(
win.document.createElement("tt").appendChild(
win.document.createTextNode(text)));
@@ -557,11 +585,11 @@ window.onload = function() {
box.cols = 90;
box.rows = 30;
win.document.body.appendChild(box);
while (!ctl.eof) {
recs += extractFileRow(ctl, header, box, recs);
recs += extractFileRow(ctl, header, box, recs);
}
lab2 = readTapeLabel(ctl);
if (!lab2.isLabel) {
spout("Extract: Tape label expected after file data, block=" + ctl.blockCount);
@@ -569,10 +597,10 @@ window.onload = function() {
spout("Extract: File ending label mismatch, block=" + ctl.blockCount);
}
spout(" " + lab2.mfid + "/" + lab2.fid + ": records=" + recs);
box.focus();
box.select();
result = !confirm("Copy and save " + fileName + " from the sub-window.\n" +
result = !confirm("Copy and save " + fileName + " from the sub-window.\n" +
"Then click OK to continue or Cancel to quit.");
win.close();
}
@@ -594,12 +622,12 @@ window.onload = function() {
tapeCtl.eof = false;
tapeCtl.eot = false;
tapeCtl.blockCount = 0;
tapeDir = readTapeDirectory(tapeCtl);
for (x=0; x<tapeDir.length; x++) {
spout(tapeDir[x]);
}
for (x=1; x<tapeDir.length; x++) {
if (extractFile(tapeCtl, x, tapeDir[x])) {
break;
@@ -612,39 +640,144 @@ window.onload = function() {
var f = ev.target.files[0];
var reader = new FileReader();
//alert("File selected: " + f.name +
//alert("File selected: " + f.name +
// "\nModified " + f.lastModifiedDate +
// "\nType=" + f.type + ", Size=" + f.size + " octets");
reader.onload = fileLoader_onLoad;
reader.readAsArrayBuffer(f);
}
function loadBootstrap(eu, buffer) {
/* Creates the Halt/Load Button Card image and stores it in segment 1 */
var w = [];
w[ 0] = parseInt("0441341003604231", 8);
w[ 1] = parseInt("7500000000000023", 8);
w[ 2] = parseInt("0211001441310435", 8);
w[ 3] = parseInt("7012700704210014", 8);
w[ 4] = parseInt("4411005441314155", 8);
w[ 5] = parseInt("6461106500000425", 8);
w[ 6] = parseInt("0074013100644131", 8);
w[ 7] = parseInt("0000006200644131", 8);
w[ 8] = parseInt("0000006601044131", 8);
w[ 9] = parseInt("0000007201244131", 8);
w[10] = parseInt("0000007601444131", 8);
w[11] = parseInt("5140000040700137", 8);
w[12] = parseInt("5140000047700461", 8);
w[13] = parseInt("5140000047704223", 8);
w[14] = parseInt("7700000000000037", 8);
w[15] = parseInt("0153020404050000", 8);
w[16] = parseInt("0167010604410440", 8);
w[17] = parseInt("0163010604410010", 8);
w[18] = parseInt("0157010604410660", 8);
w[19] = parseInt("0600017205204131", 8);
wordsToANSI(w, 0, 30, buffer, 0);
eu.put(buffer, 1);
}
function enterFile(mfid, fid, areas, areasize, eu, buffer, directoryTop, labels, fileNr, segNr) {
/* Enters a file into the disk directory. The loader will only create
one directory block, so do not call this routine more than 15 times.
Only the first row is allocated. Returns the next available segment address */
var header = [];
var labelx = 240-(fileNr+1)*16;
stringToANSI(padToLength(mfid, 7), labels, labelx+1);
stringToANSI(padToLength(fid, 7), labels, labelx+9);
if (labelx > 15) {
labels[labelx-9] = 0x4C; // @114, last-entry marker
}
header[0] = 0x41; // BIC "11" = @0101 = 1 rec/block, 1 seg/block
header[3] = 0x1001200; // Date: BIC "00010180" = 1980-01-01
header[7] = areas*areasize-1;
header[8] = areasize;
header[9] = areas;
header[10] = segNr;
wordsToANSI(header, 0, 30, buffer, 0);
eu.put(buffer, directoryTop + 18 - fileNr);
return segNr + areasize;
}
function initializeDisk() {
/* Performs a B5500 Cold Start by initializing the directory structure on
/* Performs a B5500 Cold Start by initializing the directory structure on
the disk, overwriting (and destroying) whatever else was there before */
var buffer = new Uint8Array(240);
var eu = disk.transaction(euPrefix+"0", "readwrite").objectStore(euPrefix+"0");
var fileLabels = new Uint8Array(240);
var fileNr = 0;
var info = [];
var segNr;
var shar = [];
var zeroes = new Uint8Array(240);
var x;
fileLabels[14*16+7] = 0x4C; // @114, last-entry marker
shar[ 0] = 1; // number of shared-disk systems
shar[ 1] = directoryTop;
shar[ 2] = 0;
shar[ 3] = 0;
shar[ 4] = directoryEnd; // DIRECT deck option
eu.put(shar, 0);
eu.put(zeroes, 1); // bootloader will eventually go here
loadBootstrap(eu, buffer); // load the Halt/Load Button Card image
for (x=50; x<directoryTop; x++) {
eu.put(zeroes, x);
}
info[ 0] = 0; // option word
info[ 0] = // option word
// 47: use DRA
// 46: use DRB
pow2[47-45] + // 45: print BOJ
pow2[47-44] + // 44: print EOJ
pow2[47-43] + // 43: type file open
pow2[47-42] + // 42: call TERMINATE procedure
pow2[47-41] + // 41: initialize date @ H/L
pow2[47-40] + // 40: initialize time @ H/L
// 39: use only one breakout tape
// 38: automatically print pbt
pow2[47-37] + // 37: clear write ready status @ terminal
pow2[47-36] + // 36: write disc. code on terminal
pow2[47-35] + // 35: type when compiler files open & close
pow2[47-34] + // 34: type file close
pow2[47-33] + // 33: error msgs when progr recovery used
pow2[47-32] + // 32: type MT retention messages
pow2[47-31] + // 31: type library messages
pow2[47-30] + // 30: type schedule messages
pow2[47-29] + // 29: type file security messages
pow2[47-28] + // 28: prevent I/O below user disk area
pow2[47-27] + // 27: prevent disk RELEASE statement
pow2[47-26] + // 26: printer backup disk release
pow2[47-25] + // 25: check memory links
pow2[47-24] + // 24: type disk error messages
pow2[47-23] + // 23: disk logging
pow2[47-22] + // 22: suppress library error messages
pow2[47-21] + // 21: go to printer back-up only
pow2[47-20] + // 20: dont stack files on PB tapes
pow2[47-19] + // 19: print set or reset messages
// 18: no user disk will unload expired
pow2[47-17] + // 17: run all decks(SHAREDISK)
// 16: olay core to ECM(AUXMEM)
pow2[47-15] + // 15: job core estimates(STATISTICS)
// 14: olay data to ECM(AUXMEM)
pow2[47-13] + // 13: makes system hang on-should HL msg
// 12: enables datacom(TSS, if not DCP)
pow2[47-11] + // 11: library messages for CANDE
pow2[47-10] + // 10: ZIP decks to run on batch(SHAREDISK)
// 9: controls running of batch jobs on TSS
// 8: UNUSED
// 7: UNUSED
// 6: UNUSED
// 5: UNUSED
// 4: UNUSED
// 3: UNUSED
pow2[47- 2] + // 2: Model III I/O channels
// 1: UNUSED
0; // 0: (flag bit)
info[ 1] = 0x1001200; // Date: BIC "00010180" = 1980-01-01
info[ 2] = config.eus; // number of EUs
info[ 3] = 0; // not used
@@ -663,20 +796,26 @@ window.onload = function() {
info[16] = 15; // Q value for datacom input
wordsToANSI(info, 0, 30, buffer, 0);
eu.put(buffer, directoryTop);
segNr = directoryEnd + 1;
segNr = enterFile("SYSTEM", "LOG", 1, 20000, eu, buffer, directoryTop, fileLabels, fileNr, segNr);
fileNr++;
eu.put(fileLabels, directoryTop + 19); // write the directory block file labels
}
function configureDatabase(ev) {
/* Handles the onupgradeneeded event for the database */
var configStore = null;
var disk = ev.target.result;
var stores = disk.objectStoreNames;
function configureEUs(configStore, config) {
var euName;
// Note: for now we won't worry about shrinking or deleting EUs that
// Note: for now we will not worry about shrinking or deleting EUs that
// are in conflict with the contents of euSet.
for (euName in euSet) {
if (euName.indexOf("EU") == 0) {
if (!config[euName]) {
@@ -695,7 +834,7 @@ window.onload = function() {
}
configStore.put(config, 0);
}
if (stores.contains(configName)) {
configStore = disk.transaction(configName).objectStore(configName);
configStore.get(0).onsuccess = function(ev) {
@@ -708,38 +847,38 @@ window.onload = function() {
configureEUs(configStore, config);
}
}
function genericDBError(ev) {
/* Formats a generic alert when otherwise-unhandled database errors occur */
var disk = ev.currentTarget.result;
alert("Database \"" + disk.name + "\" error: " + ev.target.result.error);
}
function openDatabase(name, version) {
/* Attempts to open the disk subsystem database for the specified "name"
and "version". Returns the IDB database object if successful, or null if
and "version". Returns the IDB database object if successful, or null if
unsuccessful */
var db = null;
var req;
req = window.indexedDB.open(name, version);
req.onerror = function(ev) {
alert("Cannot open disk database: " + ev.target.error);
};
req.onblocked = function(ev) {
alert("Database.open is blocked -- cannot continue");
};
req.onsuccess = function(ev) {
disk = ev.target.result; // save the object reference globally for later use
alert("Disk database opened: " + name + " #" + disk.version);
disk.onerror = genericDBError;
$$("ColdstartBtn").disabled = false;
};
req.onupgradeneeded = configureDatabase;
return db;
}
@@ -790,7 +929,7 @@ window.onload = function() {
<div style="position:absolute; top:0; right:0; width:auto">
<input id=FileSelector type=file size=60>
</div>
</div>
<pre id=TextPanel>

117
webUI/prototypes/B5500SPOPrototype.html
View File

@@ -8,6 +8,7 @@
<link id=defaultStyleSheet rel=stylesheet type="text/css" href="B5500SPOPrototype.css">
<script>
"use strict";
window.onload = function() {
const spoNotReady = 0;
@@ -30,7 +31,7 @@ window.onload = function() {
col: 0,
nextCharTime: 0,
finished: null};
var keyFilter = [ // Filter keyCode values to valid B5500 ones
0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F, // 00-0F
0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F, // 10-1F
@@ -40,11 +41,11 @@ window.onload = function() {
0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0x5B,0x3F,0x5D,0x3F,0x3F, // 50-5F
0x3F,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F, // 60-6F
0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0x5B,0x5C,0x5D,0x5E,0x3F]; // 70-7F
var hasClass = function(e, name) {
/* returns true if element "e" has class "name" in its class list */
var classes = e.className;
if (!e) {
return false;
} else if (classes == name) {
@@ -53,30 +54,30 @@ window.onload = function() {
return (classes.search("\\b" + name + "\\b") >= 0);
}
};
var addClass = function(e, name) {
/* Adds a class "name" to the element "e"s class list */
if (!hasClass(e, name)) {
e.className += (" " + name);
}
};
var removeClass = function(e, name) {
/* Removes the class "name" from the element "e"s class list */
e.className = e.className.replace(new RegExp("\\b" + name + "\\b\\s*", "g"), "");
};
var addFrameStyles = function(frame) {
/* Appends the necessary styles for the <iframe> to its internal stylesheet */
frame.contentDocument.head.innerHTML += "<style>" +
"BODY {background-color: #FFE} " +
"PRE {margin: 0; font-size: 10pt; font-family: Lucida Sans Typewriter, Courier New, Courier, monospace}" +
"</style>";
};
var appendEmptyLine = function(count) {
/* Appends "count" <pre> elements to the <iframe>, creating an empty text node
inside each new element */
@@ -91,13 +92,14 @@ window.onload = function() {
line.scrollIntoView();
}
};
var accept = function() {
var inputBtn = $$("SPOInputRequestBtn");
spoState = spoInput;
spoState = spoInput;
addClass(inputBtn, "yellowLit");
window.focus();
msgCtl.buffer = new Uint8Array(80);
msgCtl.length = 0;
msgCtl.index = 0;
@@ -106,11 +108,11 @@ window.onload = function() {
msgCtl.finished = printFinished;
msgTank.push(msgCtl.buffer);
};
var backspaceChar = function() {
/* Handles backspace for SPO input */
var line = $$("SPOUT").contentDocument.body.lastChild.lastChild;
if (msgCtl.length > 0) {
msgCtl.length--;
msgCtl.index--;
@@ -120,12 +122,12 @@ window.onload = function() {
}
}
};
var echoChar = function(c) {
/* Echoes the character code "c" to the SPO printer. Used by keyboard input */
var body = $$("SPOUT").contentDocument.body;
var line = body.lastChild.lastChild;
if (c == 8) {
if (line.nodeValue.length > 0) {
line.nodeValue = line.nodeValue.substring(-1);
@@ -140,7 +142,7 @@ window.onload = function() {
};
var printChar = function() {
/* Prints one character to the SPO. If more characters remain to be printed,
/* Prints one character to the SPO. If more characters remain to be printed,
schedules itself 100 ms later to print the next one, otherwise calls finished().
If the column counter exceeds 72, a CR/LF are output. A CR/LF are also output
at the end of the message */
@@ -158,16 +160,17 @@ window.onload = function() {
msgCtl.index++;
msgCtl.col++;
setTimeout(printChar, delay);
} else { // set up for the final CR/LF
} else { // set up for the final CR/LF
msgCtl.col = 72;
setTimeout(printChar, delay);
}
} else if (msgCtl.col == 72) { // delay to fake the output of a carriage-return
} else if (msgCtl.col == 72) { // delay to fake the output of a carriage-return
msgCtl.col++;
setTimeout(printChar, delay);
} else { // actually output the CR/LF
msgCtl.nextCharTime = nextTime + 100;
setTimeout(printChar, delay + 100);
} else { // actually output the CR/LF
appendEmptyLine(1);
if (msgCtl.index < msgCtl.length) {
if (msgCtl.index < msgCtl.length) {
msgCtl.col = 0; // more characters to print after the CR/LF
setTimeout(printChar, delay);
} else { // message text is exhausted
@@ -186,6 +189,7 @@ window.onload = function() {
body.removeChild(body.firstChild);
}
window.focus();
msgCtl.buffer = buffer;
msgCtl.length = length;
msgCtl.index = 0;
@@ -213,11 +217,11 @@ window.onload = function() {
}
}
};
var setReady = function(ready) {
/* Sets the ready status of the SPO based on the truth of "ready" */
var readyBtn = $$("SPOReadyBtn");
if (ready && spoState == spoNotReady) {
addClass(readyBtn, "yellowLit");
spoState = spoLocal;
@@ -226,13 +230,13 @@ window.onload = function() {
spoState = spoNotReady;
removeClass(readyBtn, "yellowLit");
}
};
};
var setRemote = function(remote) {
/* Sets the remote status of the SPO based on the truth of "remote" */
var localBtn = $$("SPOLocalBtn");
var remoteBtn = $$("SPORemoteBtn");
if (remote && spoState == spoLocal) {
spoState = spoRemote;
addClass(remoteBtn, "yellowLit");
@@ -243,8 +247,8 @@ window.onload = function() {
addClass(localBtn, "yellowLit");
removeClass(remoteBtn, "yellowLit");
}
};
};
var initiateInput = function(ev) {
/* Handles a successful Input Request event and enables the keyboard */
@@ -254,11 +258,11 @@ window.onload = function() {
inputRequested = true;
}
};
var terminateInput = function(ev) {
/* Handles the End of Message event */
var text;
if (spoState == spoInput) {
if (spoLocalRequested) {
setRemote(false);
@@ -269,13 +273,13 @@ window.onload = function() {
text = String.fromCharCode.apply(null, msgCtl.buffer.subarray(0, msgCtl.length));
printChar();
printText("YOU ENTERED: " + text);
}
};
var cancelInput = function(ev) {
/* Handles the Error message event */
if (spoState = spoInput) {
if (spoLocalRequested) {
setRemote(false);
@@ -304,14 +308,13 @@ window.onload = function() {
print(buf, length, printFinished);
}
};
var doTests = function() {
printText("*** B5500 SPO TEST ***");
printText(" ");
printText("WHAT HATH PASADENA WROUGHT?");
printText("");
/*****
printText("123456789.123456789.123456789.123456789.123456789.123456789.123456789.1");
printText("123456789.123456789.123456789.123456789.123456789.123456789.123456789.12");
printText("123456789.123456789.123456789.123456789.123456789.123456789.123456789.123");
@@ -320,23 +323,23 @@ window.onload = function() {
printText("123456789.123456789.123456789.123456789.123456789.123456789.123456789.123456789.123456789.123456789.");
printText("~");
printText("END");
*****/
}
/***** window.onload() outer block *****/
window.resizeBy($$("SPODiv").scrollWidth-document.body.scrollWidth,
$$("SPODiv").scrollHeight-document.body.scrollHeight);
window.moveTo((screen.availWidth-window.outerWidth)/2, (screen.availHeight-window.outerHeight)/2);
window.resizeTo(window.outerWidth+$$("SPODiv").scrollWidth-window.innerWidth+8,
window.outerHeight+$$("SPODiv").scrollHeight-window.innerHeight+8);
window.moveTo(0/*screen.availWidth-window.outerWidth-8*/, screen.availHeight-window.outerHeight-8);
window.focus();
$$("SPORemoteBtn").onclick = function() {
setRemote(true);
};
$$("SPOPowerBtn").onclick = function() {
alert("Don't DO that");
};
$$("SPOLocalBtn").onclick = function() {
spoInputRequested = false;
if (msgTank.length > 0) {
@@ -344,22 +347,22 @@ window.onload = function() {
} else {
setRemote(false);
}
};
$$("SPOInputRequestBtn").onclick = initiateInput;
$$("SPOErrorBtn").onclick = cancelInput;
$$("SPOEndOfMessageBtn").onclick = terminateInput;
window.onkeypress = function(ev) {
var c = ev.charCode;
var index = msgCtl.length;
var nextTime;
var result = false;
var stamp = new Date().getTime();
if (msgCtl.nextCharTime > stamp) {
nextTime = msgCtl.nextCharTime + 100;
} else {
@@ -384,11 +387,11 @@ window.onload = function() {
}
return result;
};
window.onkeydown = function(ev) {
var c = ev.keyCode;
var result = false;
if (spoState == spoRemote) {
if (c == 27) {
initiateInput(ev);
@@ -420,12 +423,12 @@ window.onload = function() {
}
return result;
};
addFrameStyles($$("SPOUT"));
appendEmptyLine(32);
setReady(true);
setRemote(true);
doTests();
};
</script>