diff --git a/SYMBOL/DCMCP.esp_m b/SYMBOL/DCMCP.esp_m
index 57530ef..26cee96 100644
--- a/SYMBOL/DCMCP.esp_m
+++ b/SYMBOL/DCMCP.esp_m
@@ -16085,3 +16085,80 @@ SKIP:                                                                   20108800
        FORGETSPACE(L+2);                                                20120800        
        END; % IF PRT SPACE WAS TOO LARGE                                20120900        
     %   ZERO OUT STACK TO EASE PROBLEMS OF CONGENITAL DUMP-READERS      20121000        
+    M[STACKLOC] := @3333333333333333;                                   20121100        
+    MOVE(T-STACKLOC-1,STACKLOC,STACKLOC+1);                             20121200        
+                                                                        20121300        
+%  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  20121400        
+%  READ IN PRT FROM DISK                                                20121500        
+%  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  20121600        
+                                                                        20121700        
+    DISKWAIT(-T, SEG0[3].[CF], ACTUALDISKADDRESS(SEG0[2].[CF]));        20121800        
+    % SEG0[2] = RELATIVE DISK ADDRESS OF THE PRT IN THE CODE FILE       20121900        
+    % SEG0[3] = SIZE OF THE PRT                                         20122000        
+    TRP:=PRTROW[MIX]:=[M[T]]&1023[8:38:10]; % DESCRIPTOR TO THE PRT     20122100        
+                                                                        20122200        
+%   *****  *****  *****     ****    ***   *****  *****                  20122300        
+%   *      *      *         *   *    *    *        *                    20122400        
+%   *****  *****  *  **     *   *    *    *        *                    20122500        
+%       *  *      *   *     *   *    *    *        *                    20122600        
+%   *****  *****  *****     ****    ***   *****    * 0                  20122700        
+                                                                        20122800        
+    IF REENTRY THEN                                                     20123000        
+        BEGIN                                                           20123100        
+        % RE-ENTRANT JOB, PRT[4] POINTS TO EXISTING SEGMENT DICTIONARY  20123200        
+        COMMENT BUILD PHONY ICW, IRCW, & INCW;                          20123300        
+        M[STACKLOC]   := @2222222222222222;                             20123400        
+        M[STACKLOC+1] := -FLAG(0&(TRP)[6:33:9]);                        20123500        
+        M[STACKLOC+2] := -FLAG(0);                                      20123600        
+        TRP[8]        := -FLAG(STACKLOC+2);                             20123700        
+        TRP[10]       := TRP&(STACKLOC+1)[18:33:15];                    20123800        
+        END % REENTRY                                                   20123900        
+    ELSE                                                                20124000        
+        BEGIN                                                           20124100        
+        NFO[(MIX-1)|NDX+1] :=                                           20124700        
+        TRP[4]:=[M[T:=GETSPACE(SEG0[1].[CF],SEGDICTAREAV,1)+2]];   %167-20124900        
+        DISKWAIT(-T, SEG0[1].[CF], ACTUALDISKADDRESS(SEG0[0].[CF]));    20125000        
+        % SEG0[0]= RELATIVE DISK ADDRESS OF SEGMENT DICTIONARY          20125100        
+        % SEG0[1]= SIZE OF THE SEGMENT DICTIONARY                       20125200        
+        M[TRP[4]] := SEG0[1].[CF] -1; % SEGDICT[0]=SIZE OF DICTIONARY   20125300        
+ $ SET OMIT = NOT(AUXMEM)                                               20125400        
+        END; % NOT REENTRY                                              20126400        
+                                                                        20126600        
+%   ****   *****  *      *****  *****                                   20126700        
+%   *   *  *   *  *      *   *  *                                       20126800        
+%   *   *  *****  *      *   *  *                                       20126900        
+%   *   *  *   *  *      *   *  *                                       20127000        
+%   ****   *   *  *****  *****  *****                                   20127100        
+                                                                        20127200        
+    STREAM(D:=DALOCROW[MIX]:=SAVEARRAYDESC(DALOCSIZE,DALOCROWAREAV));   20127300        
+        BEGIN                                                           20127500        
+        SI:=D; SI:=SI-8; DS:=DALOCSIZE WDS;                             20127600        
+        END;                                                            20127700        
+    IF OLAYDISK NEQ 0 THEN % OLAY DISK OBTAINED ABOVE                   20127800        
+       BEGIN                                                            20127900        
+       DALOC[MIX.0] := @200002;                                         20128000        
+       DALOC[MIX,1] := OLAYDISK;                                        20128100        
+       OLAYDISK     := 0;                                               20128200        
+       END;                                                             20128300        
+    OLAYMASK := TWO(MIX) OR OLAYMASK; % OLAYS NOW ALLOWABLE             20128400        
+                                                                        20128500        
+%   *****  *****   *****    *****   *****  *    *                       20128600        
+%   *      *   *  *  *  *  *  *  *  *   *  **   *                       20128700        
+%   *      *   *  *  *  *  *  *  *  *   *  * *  *                       20128800        
+%   *      *   *  *  *  *  *  *  *  *   *  *  * *                       20128900        
+%   *****  *****  *  *  *  *  *  *  *****  *   **                       20129000        
+                                                                        20129100        
+    % PLACE "COMMON" VALUE IN FIRST SIMPLE VARIABLE IN THE PRT          20129200        
+    NT1 := S[19]; % COMMON VALUE IN SHEET[19]                           20129300        
+    FOR I:= @25 STEP 1 WHILE NT1 NEQ 0 AND I LSS SEG0[3] DO             20129400        
+    IF TRP[I]=0 THEN % SIMPLE VARIABLE (NOT A DESCRIPTOR)               20129500        
+        BEGIN                                                           20129600        
+        TRP[I]:=NT1;                                                    20129700        
+        NT1:=0;                                                         20129800        
+        END;                                                            20129900        
+    DELINK; % DELINK SHEET ENTRY FROM SHEET QUEUE                       20130000        
+                                                                        20130100        
+EXIT:                                                                   20140000        
+                                                                        20140100        
+    P([RETURNRCW],  STS, 0, RDS, 0, XCH, P&P[CTF], STF);                20140200        
+    END PROCEDURE SELECTRUN2;                                           20140300        
diff --git a/webUI/B5500Console.html b/webUI/B5500Console.html
index 8cc5810..7150fde 100644
--- a/webUI/B5500Console.html
+++ b/webUI/B5500Console.html
@@ -19,12 +19,12 @@ var PAStateChange = function() {
     var aControl = document.getElementById("AControlBtn");
     var delay = Math.random();
 
-    if (paState) {
+    if (paState || !pbState) {          // PA will go to Normal State onlyl if PB is already in Normal State
         paState = 0;
         aNormal.className = "yellowButton";
         aControl.className = "yellowButton yellowLit";
-        delay = Math.log(delay+1)*1000;
-    } else {
+        delay = Math.log(delay+1)*250;
+    } else {              
         paState = 1;
         aNormal.className = "yellowButton yellowLit";
         aControl.className = "yellowButton";
diff --git a/webUI/B5500ProcessorPanel.html b/webUI/B5500ProcessorPanel.html
index 04db30d..340e44a 100644
--- a/webUI/B5500ProcessorPanel.html
+++ b/webUI/B5500ProcessorPanel.html
@@ -11,7 +11,7 @@
 <script src="B5500ProcessorPanel.js"></script>
 
 <script>
-var displayRefreshPeriod = 200;          // milliseconds
+var displayRefreshPeriod = 75;          // milliseconds
 var lastRefresh = new Date().getTime();
 var nextRefresh = 0;
 var panel;
@@ -28,10 +28,10 @@ var updateDisplay = function updateDisplay() {
     var meter = document.getElementById("idleMeter");
     var that = updateDisplay.that;
 
-    panel.X.update(Math.random()*0x8000000000);
+    panel.X.update((Math.random()/65536+Math.random())*0x8000000000);
     panel.A.update((Math.random()/65536+Math.random())*0x1000000000000);
-    panel.B.update(Math.random()*0x1000000000000);
-    panel.P.update(Math.random()*0x1000000000000);
+    panel.B.update((Math.random()/65536+Math.random())*0x1000000000000);
+    panel.P.update((Math.random()/65536+Math.random())*0x1000000000000);
     panel.J.update(Math.random()*0x10);
     panel.Q.update(Math.random()*0x200000);
     panel.R.update(Math.random()*0x200);
@@ -67,8 +67,8 @@ var updateDisplay = function updateDisplay() {
 };
 
 window.onload = function() {
-    window.resizeTo(750, 600);
-    window.moveTo(screen.availWidth-750, screen.availHeight-600);
+    window.resizeTo(750, 540);
+    window.moveTo(screen.availWidth-750, screen.availHeight-540);
     document.title = "B5500 Processor A";
     panel = new B5500ProcessorPanel(window);
     updateDisplay.that = this;