         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
          BYTE DISP'DELIM;                                     <<*9296>>13742000
          IF = THEN                                            <<*9296>>16135500
            BEGIN                                              <<*9296>>16136000
              DEL;                                             <<*9296>>16136500
              TOS:=OPER("..");                                 <<*9296>>16137000
            END;                                               <<*9296>>16137500
          ASSEMBLE(TEST);                                      <<*9296>>16138000
                                                               <<P9322>>22510000
                                                               <<P9322>>22515000
                                                               <<P9322>>22520000
                                                               <<P9322>>22525000
                                                               <<P9322>>22530000
                                                               <<P9322>>22535000
                                                               <<P9322>>22540000
          IF PMBC'UCODE THEN                                   <<P9322>>22791000
             IF PRIV THEN                  << PRIV >>          <<P9322>>22792000
                BEGIN                                          <<P9322>>22792100
                   TOS:=%100003;    << DISABLE PMBC >>         <<P9322>>22792200
                   ASSEMBLE(CON %20104, %11);                  <<P9322>>22792300
                   PMBC'OFF := TRUE;                           <<P9322>>22792400
                END;                                           <<P9322>>22794000
          DISP'DELIM := IF PINFO="." THEN "." ELSE "+";        <<*9296>>24757000
             BEGIN SEND(DISP'DELIM);                           <<*9296>>25375000
        IF PCBI'(PINX).STOVABORTFLAG = 1 OR << stack overflow >>        26905500
           RP > RPL - STTLEN  OR RP < 0   << P out of range  >>         26905600
           THEN BEGIN         <<  cannot run any further  >>            26905700
           RESETCRITICAL (CRIT);                                        26905800
           TERMINATE;                                                   26905900
           END;                                                         26906000
        IF PCBI'(PINX).STOVABORTFLAG = 1 OR << stack overflow >>        26955500
           RP > RPL - STTLEN  OR RP < 0   << P out of range  >>         26955600
           THEN BEGIN         <<  cannot run any further  >>            26956000
           RESETCRITICAL (CRIT);                                        26957000
           TERMINATE;                                                   26958000
           END;                                                         26959000
