diff --git a/SYMBOL/DCMCP.esp_m b/SYMBOL/DCMCP.esp_m
index 852dc4d..8981ea3 100644
--- a/SYMBOL/DCMCP.esp_m
+++ b/SYMBOL/DCMCP.esp_m
@@ -6978,3 +6978,51 @@ PROCEDURE STARTADECK(N); VALUE N; REAL N;                               07422000
               IF RUNUMBER GTR 0 THEN STARTADECK(0);                     07469000        
               END;                                                      07472500        
          END;%                                                          07473000        
+ PROCEDURE EXTERNALEND(B); VALUE B; REAL B;                             07473100        
+         BEGIN REAL U; LABEL EXIT;                                      07474000        
+              U ~ UNITIN(TINU,B);                                       07475000        
+              B ~ B.[15:15]-1;                                          07476000        
+              IF 32 { U AND U { PSEUDOMAXT  THEN                        07477000        
+              IF LABELTABLE[U] } 0 THEN                                 07478000        
+ $ SET OMIT = NOT(PACKETS)                                              07478099        
+              IF LABELTABLE[U] NEQ @214 AND PACKETACT[U=32]=0 THEN      07478100        
+ $ POP OMIT                                                             07478101        
+              IF CIDROW[U-32] ! 0 THEN                                  07478500        
+                   BEGIN                                                07479000        
+                        ENDOFDECK[U-32],M[B-1]);                        07479100        
+                        FORGETSPACE(B);                                 07480000        
+                        GO TO EXIT;                                     07481000        
+                   END;                                                 07482000        
+              SPOUT(B INX M[B-1]);                                      07483000        
+         EXIT:END;                                                      07484000        
+PROCEDURE CHANGEPRIORITY(BUFF,MIX); VALUE BUFF,MIX; REAL BUFF,MIX;      07485000        
+BEGIN INTEGER PRIORITY; REAL B;                                         07486000        
+ $ SET OMIT = NOT(PACKETS)                                              07486499        
+      DEFINE UNITNO = PSEUDOMIX[MIX]#;                                  07486500        
+ $ POP OMIT                                                             07486501        
+      BUFF ~ ((B~BUFF).[15:15]-1)&M[P(DUP)-1][9:9:9];                   07487000        
+      STREAM(PRIORITY:B);                                               07488000        
+      BEGIN SI~B;                                                       07489000        
+      N:    IF SC="~" THEN GO TO X;                                     07490000        
+            IF SC<"0" THEN BEGIN SI~SI+1; GO TO N; END; B~SI;           07491000        
+      K:    IF SC}"0" THEN IF SC{"9" THEN                               07492000        
+                   BEGIN TALLY~TALLY+1; SI~SI+1; GO TO K END;           07493000        
+            SI~B; DI~LOC PRIORITY; B~TALLY; DS~B OCT; GO TO Z;          07494000        
+      X:    DI~LOC PRIORITY; SKIP DB; DS~11 SET;                        07495000        
+      Z:                                                                07496000        
+      END STREAM;                                                       07497000        
+       IF (PRIORITY~P) } 0 THEN                                         07498000        
+      IF PRYOR[MIX]}0 THEN%                                             07501000        
+      IF JAR[MIX,*]~0 THEN                                              07502000        
+    BEGIN JAR[MIX,2].[CF]~ PRYOR[MIX]~ P(PRIORITY~                      07503000        
+         IF PRIORITY}32766 THEN 32766 ELSE PRIORITY, DUP) & P[CTF];     07503500        
+            STREAM(J~JAR[MIX,*],MIX,PRIORITY,BUFF);                     07504000        
+            BEGIN DS~10 LIT " PRIORITY=";                               07505000        
+                  SI~LOC PRIORITY; BUFF~DI; DS~6 DEC; DI~DI-6;          07506000        
+                  DS~5 FILL; DI~BUFF; DI~DI+6; DS~LIT":";               07507000        
+                  SI~J; SI~SI+1; DS~7 CHR; SI~SI+1; DS~LIT"/"; DS~7 CHR;07508000        
+                  DS~LIT"="; SI~LOC MIX; DS~2DEC; DS~LIT"~";            07509000        
+                  DI~DI-3; DS~FILL;                                     07509500        
+      END   END;                                                        07510000        
+      SPOUTER(BUFF,UNITNO,1);                                           07511000        
+END CHANGEPRIORITY;                                                     07512000