         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
          MAXLDEV   =  1024, <<MAX # OF CONFIGURED LDEVS>>     <<L9395>>00225000
          MAXUNIT   =   127, << MAX ALLOWABLE UNITS     >>     <<L9395>>00230000
          LDTSIZE   =     7, <<LOGICAL DEVICE TABLE ENTRY>>    <<L9395>>00235000
          LDTXSIZE  =     5, <<LDT EXTENSION>>                 <<L9395>>00240000
          LPDTSIZE  =     4, <<LPDT ENTRY SIZE>>               <<L9395>>00245000
          DVRSIZE   =     7, <<DRIVER TABLE ENTRY SIZE>>       <<L9395>>00250000
          VTABSIZE  =    14, <<VOLUME TABLE ENTRY SIZE>>       <<L9395>>00255000
          PERPORTMAX=    99, <<MAX.  NO. TBUFS/PORT>>          <<L9395>>00260000
          LIDTABSIZE=    33, <<LOGGING ID TABLE ENTRY SIZE>>   <<L9395>>00261000
          CTAB0SIZE =   128, <<CONFIGURATION INFO TABLE SIZE>> <<L9395>>00265000
          NCORESIZES=    60, <<# MEM SIZES>>                   <<L9395>>00270000
          CTABSIZE  =   128, <<CORESIZE-RELATED INFO SIZE>>    <<L9395>>00275000
          COMMSIZE  =   128,                                   <<L9395>>00280000
          INFOSIZE  =   256, <<DISC COLD LOAD INFO TABLE>>     <<L9395>>00285000
          NCST      =    32, <<# OF TEMPORARY CST ENTRIES>>    <<L9395>>00290000
          TCSTSIZE  = NCST*4,<<SIZE OF TEMPORARY CST>>         <<L9395>>00295000
          CSDVRSIZE =     4, <<CS ADDITIONAL DVRS>>            <<L9395>>00300000
          CSDRIVERS =    32, <<MAX CS ADDITIONAL DVRS>>        <<L9395>>00305000
           LASTLOADOPT    = 28,                                         00961000
EQUATE NSYSPROG  = 34, <<#SYSTEM PROGS COMMON TO BOTH>>        <<c9139>>02325000
       NSYSPROG'33=32,  <<#SYSTEM PROGS UNIQUE TO SERIES'33>>  <<09273>>02335000
       NFOSFILES  = 3,  <<#SYSTEM PROGS UNIQUE TO FOS TAPE >>  << 9290>>02340000
       NDATACOMM = 38,   <<#SYSTEM PROGS UNIQUE TO DC>>        <<d9550>>02340500
                   +NFOSFILES + NDATACOMM;                     <<c9139>>02350000
      "HIOFLOP0","HIOMDSC1","PVINIT  ",                        <<c9139>>04130000
$EDIT VOID=04165000                                                     04165000
      "MPECHECK","HIOLPRT2","HIOPPRT0",                        <<c9139>>04170000
      "STORE   ","DEVDATA ","HIOTAPE2",                        <<c9139>>04180000
      "DEFDATA ";                                              <<c9139>>04185000
$EDIT VOID=04190000                                                     04190000
      "HIOCTAP1","TTPCL18 ","TTPCL19 ",                        <<09273>>04275000
      "TTPCL22 ","VFCPCL  ";                                   <<09273>>04276000
      "AUTOINST",   "INSTCAT ",   "IFHPIBFS";                  << 9290>>04285000
BYTE ARRAY DATACOMM(0:NDATACOMM*8-1):=                         <<c9139>>04285555
      "NMFILE  ","NMLOGMON","LINKMGR ",                        <<c9139>>04285611
                            "PCMANAGE",                        <<d9550>>04285666
      "NMCAT   ","NMCAT000","NMCAT001",                        <<c9139>>04285722
      "NMCAT002","NMCAT003","NMCAT004",                        <<c9139>>04285777
      "NMCAT005","NMCAT006","NMCAT007",                        <<c9139>>04285833
      "NMCAT008","NMCAT009","NMCAT010",                        <<c9139>>04285888
      "NMCAT011","NMCAT012","NMCAT013",                        <<c9139>>04285944
      "NMCAT014",                                              <<c9139>>04286000
      "CSDUMMY ","IODS0   ","IODSTRM0",                        <<c9139>>04286111
      "IODSTRMX","IODSX   ","IOINP0  ",                        <<c9139>>04286222
      "IOM3270 ","IOMCONS0","IOMPNLP0",                        <<c9139>>04286333
      "IOMRDR0 ","IOMRJE0 ","IOMRJE1 ",                        <<c9139>>04286444
      "IOPAD0  ","IOPAD1  ","IONRDR0 ",                        <<c9139>>04286555
      "IOMPS0  ","IOMPLP0 ","IOMPTRM0";                                 04286777
    3200, 3328, 3456, 3584, 3712, 3840, 3968, 4096,            <<09307>>04330000
    4608, 5120, 5632, 6144, 6656, 7168, 7680, 8192,            <<09307>>04330100
    8704, 9216, 9728,10240,10752,11264,11776,12288,            <<09307>>04330200
   12800,13312,13824,14336,14848,15360,15872,16384;            <<09307>>04330300
   M138    = 138,                                              <<D9192>>05576000
   M139    = 139,                                              <<D9192>>05577000
   M2473   = 2473,                                             << 9428>>07011000
   M2474   = 2474,                                             << 9428>>07012000
   M2475   = 2475,                                             << 9428>>07013000
$EDIT VOID=14678750                                            <<S9278>>14677500
                                                               <<s9134>>14679000
      TYPE=DISC3 THEN                                          <<S9278>>14695000
$EDIT                                                          <<S9278>>14697500
   fwrite(listfnum,inbuf,-78,0);                               <<w9424>>18300000
   fwrite(listfnum,inbuf,-78,0);                               <<w9424>>18310000
   fwrite(listfnum,inbuf,-78,0);                               <<w9424>>18325000
   fwrite(listfnum,inbuf,-78,0);                               <<w9424>>18340000
            fwrite(listfnum,inbuf,-78,0);                      <<w9424>>18645000
      fwrite(listfnum,inbuf,-78,0);                            <<w9424>>18680000
   fwrite(listfnum,inbuf,0,%61);                               <<w9424>>18700000
      temp'dev,                                                <<09272>>20560000
      old'ldev,                                                << 9123>>20562500
   old'ldev := ldev;    <<save for reseting tables>>           << 9123>>20622500
            temp'dev:=tempclass'w(temp'first'ldev+dev'counter);<<09272>>20705000
            get'ldev'entries(temp'dev);                        <<09272>>20710000
            put'ldev'entries(temp'dev);                        <<09272>>20725000
         get'ldev'entries( old'ldev);   <<refresh tables>>     << 9123>>20802500
      CHECK DEVICE TABLE FOR NON-EXISTENT OUTPUT DEVICES,      <<D9192>>23620000
    MORE THAN ONE DDUMP DEVICE CLASS CONFIGURED, DUPLICATELY   <<D9192>>23622000
              IF DCTB'CLASS'NAME = "DDUMP   "  THEN            <<D9192>>24927000
                BEGIN                                          <<D9192>>24927050
                  IF DCT'NUM'DEVICES > 1 THEN                  <<D9192>>24927060
                    BEGIN                                      <<D9192>>24927070
                      MESSAGE(M139); <<MORE THAN ONE DEVICE>>  <<D9192>>24927080
                              <<CONFIGURED WITH CLASS DDUMP>>  <<D9192>>24927085
                      ERRORS := TRUE;                          <<D9192>>24927090
                    END;                                       <<D9192>>24927100
                END;                                           <<D9192>>24927110
              X:=-8;                                           <<c9139>>29865125
              I:=0;                                            <<c9139>>29865250
              DO BEGIN   <<CHECK IF FULLNAME IS A>>            <<c9139>>29867625
                         <<DATACOMM FILE>>                     <<c9139>>29867750
                 IF FILENAME=DATACOMM(X:=X+8),(8)              <<c9139>>29867875
                    THEN RETURN  <<DON'T ADD TO NOT DUMPED>>   <<c9139>>29868000
                                 <<LIST>>                      <<c9139>>29868125
                 END                                           <<c9139>>29868250
              UNTIL (I:=I+1) = NDATACOMM;                      <<c9139>>29868375
          CTABFNUM := FOPEN(CTABFILE,1,%60);                   << 9112>>42195000
          GETNEWVAL(M2007,TEMP,256, 4096); <<MEMORY SIZE = XXXX<<m9497>>43865000
                phone = bcsldtx,                               <<09308>>44045000
                bmess'ptr;                                     <<09308>>44046000
                                                               <<09308>>44047000
TTFERRS:    MESSAGE(m2453);  << illegal input >>               <<09308>>44665000
                                                               <<09308>>45786000
            move bmess := " ";                                 <<09308>>45787000
            move bmess(1) := bmess, (71);     << blank >>      <<09308>>45788000
               if tl'term'type <> %37   then                   <<09308>>45815000
                  if tl'term'type <> %37   then                <<09308>>45859000
                     move * := " , ", 2;                       <<09308>>45860000
                  << add file name >>                          <<09308>>45861000
                  @bmess'ptr :  = tos;                         <<09308>>45862000
                  move bmess'ptr := tl'entb(name'ptr),(8), 2;  <<09308>>45865000
                  scan bmess'ptr until " ", 1;                 <<09308>>45867000
                  move * := ".", 2;                            <<09308>>45868000
                  << add group name >>                         <<09308>>45870000
                  move * := tl'entb(name'ptr + 8), (8), 2;     <<09308>>45871000
                  @bmess'ptr := tos - 8;                       <<09308>>45875000
                  scan bmess'ptr until " ", 1;                 <<09308>>45877000
                  move * := ".", 2;                            <<09308>>45878000
                  << add account name >>                       <<09308>>45880000
                  move * := tl'entb(name'ptr + 16), (8), 2;    <<09308>>45882000
                  @bmess'ptr := tos - 8;                       <<09308>>45883000
                  scan bmess'ptr until " ", 1;                 <<09308>>45885000
                    IF 0<=S0<=999 THEN                         <<09561>>46760000
          << THIS PREVENTS CS DEVICE DAT FROM CHANGING TO 16>> <<09276>>49142000
          IF NOT ( CSDEV)   THEN                               <<09276>>49143000
             DETERMCTYP(@SAMEPLACE,DCT,FALSE);                 <<09276>>49145000
      REPNUM,                                                  << 9122>>51675000
                                                               << 9122>>51946000
      << Creating new CATALOG file:                         >> << 9122>>51947000
      << 1) Purge temporary file whose name is CATALOG.     >> << 9122>>51948000
      << 2) Create and Activate MAKECAT.PUB.SYS             >> << 9122>>51949000
      << 3) If MAKECAT is successful, a new temporary file  >> << 9122>>51950000
      <<    is created.  If unsuccessful, no temporary file >> << 9122>>51951000
      <<    called CATALOG will exist.                      >> << 9122>>51952000
      << 4) Check if a new temporary file CATALOG was made. >> << 9122>>51953000
      << 5) If in interactive mode and not found, loop back.>> << 9122>>51954000
      << 6) Else in batch mode, then abort.                 >> << 9122>>51955000
      REPNUM := FOPEN( CATALOGFILE'REP,2); << open as temp >>  << 9122>>51956000
      IF = THEN                                                << 9122>>51957000
         FCLOSE( REPNUM, 4, 0); << Purge if it exists >>       << 9122>>51958000
                                                               << 9122>>51980000
                                                               << 9122>>51985000
      REPNUM := FOPEN( CATALOGFILE'REP,2); << open as temp >>  << 9122>>51990000
      IF <> THEN   << Unable to open the new CATALOG file >>   << 9122>>51995000
                                                               << 9122>>52015000
        IF NOT LOGICAL(MODE) THEN                              << 9122>>52020000
           REPNUM := FOPEN( SDFCOMFILE'REP,2);                 << 9122>>52161000
           IF = THEN                                           << 9122>>52162000
              FCLOSE( REPNUM, 4, 0);  << PURGE IF IT EXISTS>>  << 9122>>52163000
                                                               << 9122>>52164000
                                                               <<09275>>52170000
              message( m2719);                                 <<09275>>52220000
              if not logical(mode)   then                      <<09275>>52225000
          GETNEWVAL(M2354,CTAB0(EXTSSECT'),128,32764);         <<09274>>53295000
          I:=-1;                                               <<c9139>>53722500
          X:=-8;                                               <<c9139>>53722625
          WHILE (I:=I+1) < NDATACOMM DO <<CHECK IF DC>>        <<c9139>>53722750
            BEGIN                                              <<c9139>>53722875
              IF DATACOMM(X:=X+8)=PROGNAME,(8)                 <<c9139>>53723000
                 THEN GOTO GETNEWP;                            <<c9139>>53723125
            END;                                               <<c9139>>53723250
          I := -1;                                             <<S9287>>53820010
          X := -8;                                             <<S9287>>53820020
          WHILE (I:=I+1) < NFOSFILES DO                        <<S9287>>53820030
            BEGIN                                              <<S9287>>53820040
            IF FOSFILES (X:=X+8) = PROGNAME,(8)                <<S9287>>53820050
                                   THEN GOTO GETNEWP;          <<S9287>>53820060
            END;                                               <<S9287>>53820070
            IF CARRY THEN                                      <<B9455>>57985000
               BEGIN                                           <<B9455>>57985500
               CONTINUE := FALSE;                              <<B9455>>57986000
               << DELETE TRAILING BLANKS >>                    <<B9455>>57986500
               X := -1;                                        <<B9455>>57987000
               WHILE BPS0(X) = " " DO X := X-1;                <<B9455>>57987500
               TOS := TOS+X+1;                                 <<B9455>>57988000
               BPS0 := CR;                                     <<B9455>>57988500
               END                                             <<B9455>>57989000
$EDIT VOID=58620000                                            << 9183>>58425000
                                                               << 9183>>60905000
$EDIT VOID=60930000                                            << 9183>>60910000
                                                               << 9183>>60936000
$EDIT VOID=61005000                                            << 9183>>60950000
                                                               <<L9395>>61706000
   << --------------------------------------------------- >>   <<L9395>>61707000
   << Begin dumping out the Logging ID table...           >>   <<L9395>>61708000
   << --------------------------------------------------- >>   <<L9395>>61709000
   IF ( NEWLIDTABLEN := CTAB (NLOGPROCS) * LIDTABSIZE +        <<L9395>>61710000
                        LIDTABSIZE)  >   LIDTABLEN THEN        <<L9395>>61715000
      << ------------------------------------------------ >>   <<L9395>>61725000
      << table is being made larger...compute size change >>   <<L9395>>61730000
      << ------------------------------------------------ >>   <<L9395>>61735000
      LIDTABINCR := NEWLIDTABLEN - LIDTABLEN;                  <<L9395>>61740000
      MOVEDLTABLES;                                            <<L9395>>61745000
      << ------------------------------------------------ >>   <<09560>>61750000
      << Initialize the table past the old max # entries  >>   <<09560>>61755000
      << ------------------------------------------------ >>   <<09560>>61760000
                                                               <<09560>>61761000
      I := 1;                                                  <<09560>>61762000
      DO                                                       <<09560>>61763000
        LIDTAB(LIDTABLEN + I * LIDTABSIZE - 1) := -1           <<09560>>61764000
      UNTIL (LIDTABLEN + (I:=I+1)* LIDTABSIZE) > NEWLIDTABLEN; <<09560>>61765000
      END;                                                     <<09560>>61766000
                                                               <<09560>>61767000
    << ----------------------------------------------------- >><<09560>>61768000
    << In case the table has contracted and we do a reload   >><<09560>>61769000
    << from this tape, make sure the Logging ID table is     >><<09560>>61770000
    << cleaned up and the we update the max # of entries...  >><<09560>>61771000
    << ----------------------------------------------------- >><<09560>>61772000
                                                               <<09560>>61773000
    IF NEWLIDTABLEN < LIDTABLEN THEN                           <<09560>>61774000
       BEGIN                                                   <<09560>>61775000
       I := 1;                                                 <<09560>>61776000
       DO                                                      <<09560>>61777000
         LIDTAB(LIDTABSIZE + I * LIDTABSIZE - 1) := -1         <<09560>>61778000
      UNTIL (LIDTABSIZE + (I:=I+1)* LIDTABSIZE) > NEWLIDTABLEN;<<09560>>61779000
      END;                                                     <<09560>>61779100
                                                               <<09560>>61779200
    LIDTAB(1) := CTAB(NLOGPROCS);                              <<09560>>61780000
    WRITETAPE(LIDTAB,NEWLIDTABLEN,0);                          <<09560>>61781000
          X:=-8;                                               <<c9139>>61942500
          I:=0;                                                <<c9139>>61942625
          DO BEGIN                                             <<c9139>>61942750
               MOVE SEGMENT:=DATACOMM(X:=X+8),(8);             <<c9139>>61942875
               FDUMP(SEGMENT);                                 <<c9139>>61943000
             END                                               <<c9139>>61943125
          UNTIL (I:=I+1)=NDATACOMM;                            <<c9139>>61943250
          J:=0;                                                <<c9139>>62227500
          X:=-8;                                               <<c9139>>62227625
          DO BEGIN  <<CHECK FOR DATACOMM FILES>>               <<c9139>>62227750
               DUPLICATE;                                      <<c9139>>62227875
               IF * = DATACOMM(X:=X+8),(8) THEN GOTO NEXTDP;   <<c9139>>62228000
             END                                               <<c9139>>62228125
          UNTIL (J:=J+1)=NDATACOMM;                            <<c9139>>62228250
      INFO'LEN    = 360,      <<# chars in INFO' array>>       <<B9455>>63030000
