diff --git a/SYMBOL/DCMCP.esp_m b/SYMBOL/DCMCP.esp_m
index 12b2a70..c454c92 100644
--- a/SYMBOL/DCMCP.esp_m
+++ b/SYMBOL/DCMCP.esp_m
@@ -19719,3 +19719,35 @@ FOG:     FORGETSPACE(FRONT);                                            22350000
                    END;                                                 22424500        
               END;%                                                     22425000        
          END;%                                                          22426000        
+         INTRNSC[MOM.[8:10]] ~ (*P(DUP))&MOM[FTC];%                     22427000        
+         FORGETSPACE(FRONT);%                                           22428000        
+         P(AWAKEN,DEL,TRUE);                                            22429000        
+EXIT:                                                                   22429100        
+ $ SET OMIT = NOT(NEWLOGGING)                                           22429199        
+ $ SET OMIT = NOT(WORKSET)                                              22429210        
+         IF P1MIX NEQ 0 THEN                                            22429220        
+            IKATTUNEPO1NUX]:=(*P(DUP))+(CLOCK+P(RTR)-MCPTEMP);          22429230        
+ $ POP OMIT % WORKSET                                                   22429231        
+         P(RTN);                                                        22429300        
+    END OF OVERLAY;%    REVISION OF MAY 31, 1967...                     22430000        
+    PROCEDURE CHANGEABORT(X);  VALUE X;  REAL X;%                       22900000        
+    BEGIN ARRAY A[*];, B[*];%                                           22901000        
+         REAL J, T;%                                                    22902000        
+                                                                        22903000        
+         A~[M[SPACE(210)]]&210[8:38:10];                                22904000        
+         SLEEP([TOGLE], ABORTMASK);%                                    22905000        
+         LOCKTOG(ABORTMASK);                                            22906000        
+         DISKWAIT(-A.[CF],210,ESPDISKTOP+1);                            22907000        
+         WHILE (A[0]:=XCLOCK+P(RTR)) GEQ WITCHINGHOUR DO MIDNIGHT;      22909000        
+         A[1] ~ DATE;%                                                  22910000        
+         J ~ 3|P1MIX;%                                                  22911000        
+         A[J] ~ A[J+1] ~ A[J+2] ~ 0;%                                   22912000        
+         B~JARROW[P1MIX];   %CANT WATCH JAR AND LOSE CONTROL, TOO.      22913000        
+         A[J+90] ~ B[0];                                                22914000        
+         A[J+91] ~ B[1];                                                22915000        
+         A[J+92] ~ X&B[5][1:25:23];                                     22916000        
+         A[180+P1MIX]~USERCODE[P1MIX];                                  22917000        
+         DISKWAIT(A.[CF],210,ESPDISKTOP+1);                             22918000        
+         UNLOCKTOG(ABORTMASK);                                          22919000        
+         FORGETSPACE(A);%                                               22920000        
+    END;%                                                               22921000