diff --git a/SYMBOL/DCMCP.esp_m b/SYMBOL/DCMCP.esp_m
index ca38769..f6ac2b8 100644
--- a/SYMBOL/DCMCP.esp_m
+++ b/SYMBOL/DCMCP.esp_m
@@ -3911,3 +3911,109 @@ RETRY: 04678300
TM ~ @ 1737000000000000; 04678650
% TAPE MARK. 04678700
IOD ~ NFLAG([TM]) & OIOD[3:3:5]; 04678750
+ DOIONOW; 04678800
+ % WRITE TAPE-MARK. 04678850
+ FIB[13].[28:10] ~ REEL; 04678900
+ IF LABELED THEN 04678950
+ BEGIN 04679000
+ STREAM(BC~FIB[6], RC~FIB[7], BKUP~PBT, D~LABELA); 04679050
+ BEGIN 04679100
+ DI ~ DI+39; DS ~ LIT"1"; 04679150
+ % END OF REEL FLAG. 04679200
+ BKUP(DI ~ DI+12; JUMP OUT TO OWT); 04679250
+ SI ~ LOC BC; DS ~ 5 DEC; DS ~ 7 DEC; 04679300
+OWT: DS ~ LIT"1"; 04679350
+ % SPECIAL FLAG FOR SORT AND USE PROCEDURES 04679400
+ END; 04679450
+ IOD ~ NFLAG(LABELA) & OIOD[3:3:5]; 04679500
+ IF NOT PBT THEN IF ALFA THEN 04679550
+ IOD.[21:1] ~ 0; 04679600
+ DOIONOW; 04679650
+ % BUILD I/O DESCRIPTOR AND WRITE THE TRAILER LABEL. 04679700
+ IOD ~ NFLAG([TM]) & OIOD[3:3:5]; 04679750
+ DOIONOW; 04679800
+ END; 04679850
+ IOD ~ IOD & @42[18:42:6]; 04679900
+ % BUILD THE REWIND DESCRIPTOR. 04679950
+ DOIONOW; 04680000
+ STOPTIMING(FNUM,1023); 04680050
+ FPB ~ PRT[MIX,3]; 04680100
+ LABELTABLE[U] ~ @214; % RW/L 04680150
+ MULTITABLE[U] ~ RDCTABLE[U] ~ PRNTABLE[U] ~ 0; 04680200
+ IF LABELED THEN 04680250
+ BEGIN 04680300
+ STREAM(R~REEL, BKUP~PBT, D~LABELA); 04680350
+ BEGIN 04680400
+ SI ~ LOC R; DI ~ DI+24; DS ~ 3 DEC; 04680450
+ % LOAD REEL NUMBER INTO LABEL. 04680500
+ DI ~ DI+12; DS ~ LIT"0"; 04680550
+ BKUP(DI ~ DI+12; JUMP OUT TO OWT); 04680600
+ DS ~ 12 LIT"0"; 04680650
+OWT: DS ~ LIT "0"; 04680700
+ % CLEAN OUT OLD TRAILER LABEL INFO. 04680750
+ END; 04680800
+ IF NOT PBT THEN IF ALFA THEN 04680850
+ LABELA.[7:1] ~ 1; 04680900
+ U ~ LABELASCRATCH(LABELA); 04680950
+ % FIND TAPE FOR LABELED OUTPUT. 04681000
+ IF U=(-1) THEN GO ERROROUT; 04681050
+ % OPERATOR DS-ED. 04681100
+ END ELSE 04681150
+ BEGIN 04681200
+ U ~ FINDOUTPUT(FPB[FNUM],FPB[FNUM+1],REEL,0,0,2,0,TM); 04681250
+ % FIND UNLABELED OUTPUT TAPE. 04681300
+ IF U=(-1) THEN GO ERROROUT; 04681350
+ T2 ~ 0; 04681400
+ STREAM(PRN~PRNTABLE[U].[30:18], D~[T2]); 04681450
+ BEGIN SI ~ LOC PRN; DS ~ 8 DEC; 04681500
+ DI ~ DI-7; DS ~ 6 FILL; 04681550
+ END; 04681600
+ $ SET OMIT = PACKETS 04681650
+ FILEMESSAGE(" OUT" & TINU[U][6:30:18],T2, 04681800
+ FPB[FNUM],FPB[FNUM+1],REEL,0,0,OPNMESS); 04681850
+ END; 04681900
+ RDCTABLE[U] ~ (*P(DUP)) & MIX[8:42:6]; 04681950
+ PRNTABLE[U] ~ (*P(DUP)) & TOPIOD[15:33:15]; 04682000
+ FPB[FNUM+3].[36:6] ~ U+1; 04682050
+ % LOAD LOGICAL UNIT NUMBER +1 INTO FPB. 04682100
+ TEMP ~ OIOD.[3:4]; 04682150
+ % LUN OF OLD UNIT. 04682200
+ S ~ UNIT[TEMP].[FF]; 04682250
+ % SAVE OFF INDEX INTO IOQUE 04682300
+ UNIT[TEMP] ~ (*P(DUP)) & @77777[14:29:19]; 04682350
+ % CLEAR UNIT TABLE ON OLD UNIT. 04682400
+ UNIT[U] ~ OLDU; 04682450
+ % LOAD NEW UNIT TABLE ENTRY. 04682500
+ OIOD ~ OIOD & TINU[U][3:3:5]; 04682550
+ % LOAD OIOD WITH NEW UNIT NUMBER. 04682600
+ FOR I ~ 0 STEP 1 UNTIL NUMBUFFS-1 DO 04682650
+ IF TANK[I].[7:1] THEN 04682700
+ TANK[I] ~ (*P(DUP)) & OIOD[3:3:5]; 04682750
+ % LOAD NEW UNIT DESIGNATE INTO I/O DESCRIPTOR TANK. 04682800
+ TINU[U] ~ (*P(DUP)) & TINU[TEMP][24:24:6]; 04682850
+ TINU[TEMP] ~ (*P(DUP)) & 0[24:42:6]; 04682900
+ IF RC THEN GO KAPUT; 04682950
+ IF FIRSTRECIO!0 THEN IOD ~ OIOD&FIRSTRECIO[8:8:10]&FIRSTRECIO[CTC] 04683000
+ % TEST FOR BLOCK LESS THAN MAX LENGTH--VARIABLE LENGTH--. 04683050
+ ELSE IOD ~ OIOD & FIRSTREC[CTC]; 04683100
+ DOIONOW; 04683150
+ % WRITE FIRST RECORD 04683200
+ IF RESULT.[28:1] THEN % CHECK FOR WRITE ERROR 04683250
+ BEGIN 04683300
+PROB: 04683350
+ FIB[13].[28:10] ~ REEL-1; 04683400
+ % DECREMENT REEL COUNT. 04683450
+ STREAM(A~TINU[U], T~T2~SPACE(6)); 04683500
+ BEGIN 04683550
+ DS ~ 23 LIT"#REEL SWITCH FAILED ON "; 04683600
+ SI ~ LOC A; SI ~ SI+5; DS ~ 3 CHR; 04683650
+ DS ~ 22 LIT", ANOTHER REEL PLEASE~"; 04683700
+ END; 04683750
+ SPOUTER(T2,UNITNO,1); 04683800
+ GO RETRY; 04683850
+ END; 04683900
+ IF SECRECIO!0 THEN IOD ~ OIOD&SECRECIO[8:8:10]&SECRECIO[CTC] 04683950
+ % CHECK FOR LESS THAN MAX LENGTH BLOCKS--VARIABLE LENGTH-- 04684000
+ ELSE IOD ~ OIOD & SECREC[CTC]; 04684050
+ % STANDARD LENGTH 04684100
+ DOIONOW; 04684150
diff --git a/emulator/B5500DDPanel.js b/emulator/B5500DDPanel.js
new file mode 100644
index 0000000..a24416a
--- /dev/null
+++ b/emulator/B5500DDPanel.js
@@ -0,0 +1,98 @@
+/***********************************************************************
+* retro-b5500/emulator B5500DDPanel.js
+************************************************************************
+* Copyright (c) 2012, Nigel Williams and Paul Kimpel.
+* Licensed under the MIT License, see http://www.opensource.org/licenses/mit-license.php
+************************************************************************
+* JavaScript object definition for the B5500 Distribution & Display panel
+* utility constructors.
+************************************************************************
+* 2012-06-18 P.Kimpel
+* Original version, from thin air.
+***********************************************************************/
+
+/***********************************************************************
+* Panel Lamp *
+***********************************************************************/
+function B5500DDLamp(x, y) {
+ /* Constructor for the lamp objects used within D&D. x & y are the
+ coordinates of the lamp within its containing element */
+
+ this.state = 0; // current lamp state, 0=off
+
+ // visible DOM element
+ this.element = document.createElement("div");
+ this.element.className = "ddLamp";
+ this.element.style.left = String(x) + "px";
+ this.element.style.top = String(y) + "px";
+}
+
+/**************************************/
+
+B5500DDLamp.prototype.onColor = "#FF9900";
+B5500DDLamp.prototype.offColor = "#999999";
+
+/**************************************/
+B5500DDLamp.prototype.set = function(v) {
+ /* Changes the visible state of the lamp according to the low-order
+ bit of "v". */
+ newState = v & 1;
+
+ if (this.state ^ newState) { // the state has changed
+ this.element.backgroundColor = (v & 1 ? this.onColor : this.offColor);
+ this.state = newState;
+ }
+}
+
+
+/***********************************************************************
+* Panel Register *
+***********************************************************************/
+function B5500DDRegister(bits, x, y, rows, caption) {
+ /* Constructor for the register objects used within D&D:
+ bits: number of bits in register
+ x: horizontal coordinate of upper-left corner [hSpacing increments]
+ y: vertical coordinate of upper-left corner [vSpacing increments]
+ rows: number of rows used to display the bit lamps
+ */
+ var cols = Math.floor((bits+rows-1)/rows);
+ var height = rows*this.vSpacing;
+ var width = cols*this.hSpacing;
+ var b;
+ var cx = Math.floor((x-0.25)*this.hSpacing);
+ var cy = Math.floor((y-0.25)*this.vSpacing);
+ var lamp;
+
+ this.bits = bits; // number of bits in the register
+ this.left = cx; // horizontal offset relative to container
+ this.top = cy; // vertical offset relative to container
+ this.caption = caption; // panel caption
+ this.lamps = new Array(bits+1); // bit lamps
+
+ // visible DOM element
+ this.element = document.createElement("div");
+ this.element.className = "ddRegister";
+ this.element.style.left = String(cx) + "px";
+ this.element.style.top = String(cy) + "px";
+ this.element.style.width = width;
+ this.element.style.height = height;
+
+ cx = Math.floor((cols+0.25)*this.hSpacing);
+ for (b=1; b<=bits; b++) {
+ if ((b-1)%rows == 0) {
+ cy = Math.floor((rows-0.75)*this.vSpacing);
+ cx -= this.hSpacing;
+ } else {
+ cy -= this.vSpacing;
+ }
+ lamp = new B5500DDLamp(cx, cy);
+ this.lamps[b] = lamp;
+ this.element.appendChild(lamp.element);
+ }
+}
+
+/**************************************/
+
+B5500DDRegister.prototype.hSpacing = 24; // horizontal lamp spacing, pixels
+B5500DDRegister.prototype.vSpacing = 24; // vertical lamp spacing, pixels
+
diff --git a/emulator/B5500DistributionAndDisplay.css b/emulator/B5500DistributionAndDisplay.css
index 9f91b17..ba0c0cf 100644
--- a/emulator/B5500DistributionAndDisplay.css
+++ b/emulator/B5500DistributionAndDisplay.css
@@ -78,11 +78,13 @@ DIV.ddLamp {
width: 12px;
height: 12px;
font-size: 4px;
+ background-color: #FF9900;
border-radius: 8px;
- border: 2px solid black}
+ border: 1px solid black}
DIV.ddRegister {
position: absolute;
+ border: 1px solid black;
font-size: 6px}
IMG#BurroughsLogoImage {
diff --git a/emulator/B5500DistributionAndDisplay.js b/emulator/B5500DistributionAndDisplay.js
index 87dc82f..45518d5 100644
--- a/emulator/B5500DistributionAndDisplay.js
+++ b/emulator/B5500DistributionAndDisplay.js
@@ -10,96 +10,6 @@
* Original version, from thin air.
***********************************************************************/
-/***********************************************************************
-* Panel Lamp *
-************************************************************************
-function B5500DDLamp(x, y) {
- /* Constructor for the lamp objects used within D&D. x & y are the
- coordinates of the lamp within its containing element */
-
- this.state = 0; // current lamp state, 0=off
-
- // visible DOM element
- this.element = document.createElement("div");
- this.element.className = "ddLamp";
- this.element.style.left = String(x) + "px";
- this.element.style.top = String(y) + "px";
-}
-
-/**************************************/
-
-B5500DDLamp.prototype.onColor = "#FF9900";
-B5500DDLamp.prototype.offColor = "#999999";
-
-/**************************************/
-B5500DDLamp.prototype.set = function(v) {
- /* Changes the visible state of the lamp according to the low-order
- bit of "v". */
- newState = v & 1;
-
- if (this.state ^ newState) { // the state has changed
- this.element.backgroundColor = (v & 1 ? this.onColor : this.offColor);
- this.state = newState;
- }
-}
-
-
-/***********************************************************************
-* Panel Register *
-***********************************************************************/
-B5500DDRegister(bits, x, y, rows, caption) {
- /* Constructor for the register objects used within D&D:
- bits: number of bits in register
- x: horizontal coordinate of upper-left corner [hSpacing increments]
- y: vertical coordinate of upper-left corner [vSpacing increments]
- rows: number of rows used to display the bit lamps
- */
- var cols = Math.floor((bits+rows-1)/rows);
- var height = rows*this.vSpacing;
- var width = cols*this.hSpacing;
- var b;
- var cx = Math.floor((x-0.25)*this.hSpacing);
- var cy = Math.floor((y-0.25)*this.vSpacing);
- var lamp;
-
- this.bits = bits; // number of bits in the register
- this.left = cx; // horizontal offset relative to container
- this.top = cy; // vertical offset relative to container
- this.caption = caption; // panel caption
- this.lamps = new Array(bits+1); // bit lamps
-
- // visible DOM element
- this.element = document.createElement("div");
- this.element.className = "ddRegister";
- this.element.style.left = String(cx) + "px";
- this.element.style.top = String(cy) + "px";
- this.element.style.width = width;
- this.element.style.height = height;
-
- cx = (x+cols)*this.hSpacing;
- for (b=1; b<=bits; b++) {
- if ((b-1)%rows == 0) {
- cy = (y+rows-1)*this.vSpacing;
- cx -= this.xSpacing;
- } else {
- cy -= this.vSpacing;
- }
- lamp = new B5500DDLamp(cx, cy);
- this.lamps[b] = lamp;
- this.element.appendChild(lamp);
- }
-}
-
-/**************************************/
-
-B5500DDRegister.prototype.hSpacing = 18; // horizontal lamp spacing, pixels
-B5500DDRegister.prototype.vSpacing = 18; // vertical lamp spacing, pixels
-
-
-
-/***********************************************************************
-* Distribution And Display Module *
-************************************************************************/
function B5500DistributionAndDisplay() {
/* Constructor for the Distribution And Display module object */
@@ -128,8 +38,8 @@ B5500DistributionAndDisplay.prototype.clear = function() {
clearTimeout(this.timer);
}
- this.nextTimeStamp = new Date().getTime() + this.rtcTick;
- this.timer = setTimeout(this.tock, this.rtcTick);
+ this.nextTimeStamp = new Date().getTime() + this.refreshPeriod;
+ this.timer = setTimeout(this.tock, this.refreshPeriod);
}
}
@@ -147,8 +57,6 @@ B5500DistributionAndDisplay.prototype.openProcessorPanel(p, caption) {
panel = {module:p, window:win, caption:caption};
this.panels[caption] = panel;
}
-
- win.appendChild(new B5500DDRegister(39, 1, 1, 3, "X REG"));
}
/**************************************/
diff --git a/emulator/B5500ProcessorPanel.html b/emulator/B5500ProcessorPanel.html
new file mode 100644
index 0000000..32c6e33
--- /dev/null
+++ b/emulator/B5500ProcessorPanel.html
@@ -0,0 +1,25 @@
+
+
+B5500 Distribution & Display Processor Panel
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/emulator/B5500ProcessorPanel.js b/emulator/B5500ProcessorPanel.js
new file mode 100644
index 0000000..3f03f98
--- /dev/null
+++ b/emulator/B5500ProcessorPanel.js
@@ -0,0 +1,24 @@
+/***********************************************************************
+* retro-b5500/emulator B5500ProcessorPanel.js
+************************************************************************
+* Copyright (c) 2012, Nigel Williams and Paul Kimpel.
+* Licensed under the MIT License, see http://www.opensource.org/licenses/mit-license.php
+************************************************************************
+* JavaScript object definition for the B5500 D&D Processor panels.
+************************************************************************
+* 2012-06-18 P.Kimpel
+* Original version, from thin air.
+***********************************************************************/
+
+/**************************************/
+function B5500ProcessorPanel(win) {
+ /* Constructor for the B5500 D&D Processor Panel object. Creates the
+ panel UI on window "win" */
+ var body = win.document.body;
+
+ this.X = new B5500DDRegister(39, 1, 1, 3, "X REG");
+ body.appendChild(this.X.element);
+
+ this.J = new B5500DDRegister(4, 14, 1, 3, "J REG");
+ body.appendChild(this.J.element);
+}