         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
             TEMP.(7:9) := SEGNR;                              <<*1928>>09835000
             TEMP.(7:9) := SEGNR;                              <<*1928>>11520000
          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
            SENDOCT(LC.(7:9));                                 <<*1928>>17905000
             IF LOGICAL(PINN) >= 1023 THEN GOTO NONO;          <<*1928>>20405000
                IF LOC'SEGTYPE = GSL'SEG  AND SEGNR > 255    OR<<*1928>>20680000
                   LOC'SEGTYPE = PSL'SEG  AND SEGNR > 255    OR<<*1928>>20681000
           LOC'SEGTYPE = PROG'SEG AND SEGNR > MAX'NUMPROGSEG OR<<*1928>>20682000
           LOC'SEGTYPE = SSL'SEG AND                           <<*1928>>20683000
             (NOT((SEGNR <= 254) LOR (256 <= SEGNR <= 510))) OR<<*1928>>20684000
                   SEGNR < 0                                   <<*1928>>20685000
                                                               <<P9322>>22510000
                                                               <<P9322>>22515000
                                                               <<P9322>>22520000
                                                               <<P9322>>22525000
                                                               <<P9322>>22530000
                                                               <<P9322>>22535000
                                                               <<P9322>>22540000
         K:=F(%1074);     <<<CONSOLE LDEV #>>                  <<89946>>22640000
         << For DS debugging of the Virtual Terminal and   >>  <<*9912>>22640100
         << break the I/O needs to go to the console.  The >>  <<*9912>>22640200
         << user must MANUALLY set the following flag for  >>  <<*9912>>22640300
         << I/O to be directed to the console.  This fix   >>  <<*9912>>22640400
         << requires only the following IF statement.      >>  <<*9912>>22640500
         if F(%1322).(0:1) = 1           <<I/O to console? >>  <<*9912>>22640600
           then ldev'in := ldev'out := k;<<Alter I/O ldevs >>  <<*9912>>22640700
          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
                   IF TOS="  " THEN GOTO NEXT;                 <<*1928>>23405000
          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
      TEMP.(7:9) := SEG.(7:9);                                 <<*1928>>27475000
      IF TYPESEG = GSL'SEG  AND SEG > 255             OR       <<*1928>>28330000
         TYPESEG = PSL'SEG  AND SEG > 255             OR       <<*1928>>28331000
         TYPESEG = PROG'SEG AND SEG > MAX'NUMPROGSEG  OR       <<*1928>>28332000
         TYPESEG = SSL'SEG AND                                 <<*1928>>28333000
          (NOT((SEG <= 254) LOR (256 <= SEG <= 510)))          <<*1928>>28335000
