*DECK NDLTBLT 
      PROC NDLTBLT; 
      BEGIN 
      CONTROL STEXT;
      DEF MAXDT # 2000 #;    # INITIAL SIZE OF DEFINE TABLE IN CP WORDS#
      DEF MAXLT # 5000 #;    # INITIAL SIZE OF LABEL TABLE IN CP WORDS #
      DEF MAXPAD   #  64 #;  # MAXIMUM PAD PARM LENGTH IN 6-BIT BYTES  #
      DEF MAXPADW  #   5 #;  # MAXIMUM PAD LENGTH: TRUNC( 64*4 / 60)+1 #
      DEF MAXUDATA # 256 #;  # MAX UDATA PARM LENGTH IN 6-BIT BYTES    #
      DEF MAXUDATW #  18 #;  # MAX UDATA LENGTH:   TRUNC(256*4 / 60)+1 #
      DEF MXATAB # 100 #;    # INITIAL SIZE OF APPL TABLE              #
      DEF MXCM # 50 #;       # INITIAL SIZE OF CONSOLE MAP TABLE       #
      DEF MXCOUP # 33 #;     # INITIAL SIZE OF COUPLER TABLE           #
      DEF MXDXREF # 2000 #;  # INITIAL SIZE OF DEVICE XREF TABLE       #
      DEF MXHT # 20 #;       # INITIAL SIZE OF HOST TABLE BUFFER       #
      DEF MXITAB # 100 #;    # INITIAL SIZE OF INCALL TABLE            #
      DEF MXLCR # 25 #;      # INITIAL SIZE OF LINE CONFIG INDEX       #
      DEF MXLCRREC # 20 #;   # INITIAL SIZE OF LINE CONFIG RECORD      #
      DEF MXLC # 20 #;       # INITIAL SIZE OF LINE$CON$REC BUFFER     #
      DEF MXLINDX # 4000 #;  # INITIAL SIZE OF LINE REC INDEX          #
      DEF MXLKT # 20 #;      # INITIAL SIZE OF LINK TABLE BUFFER       #
      DEF MXLLINK # 255 #;   # INITIAL SIZE OF LLT AND LNT             #
      DEF MXLREC # 200 #;    # INITIAL SIZE OF LINE RECORD AREA        #
      DEF MXLXREF # 800 #;   # INITIAL SIZE OF LINE XREF TABLE         #
      DEF MXNCB # 200  #;    # INITIAL SIZE OF NCB BUFFER              #
      DEF MXNFINDX # 50 #;   # INITIAL SIZE OF NCF INDEX               #
      DEF MXOTAB # 100 #;    # INITIAL SIZE OF OUTCALL TABLE           #
      DEF MXPLINK # 100 #;   # INITIAL SIZE OF PHYSICAL LINK TABLE     #
      DEF MXPPTAB # 2 #;     # INITIAL SIZE OF PATHPID TABLE           #
      DEF MXSLINK # 100 #;   # INITIAL SIZE OF SUPLINK TABLE           #
      DEF MXSTBL # 60 #;     # INITIAL SIZE OF STATEMENT TABLE         #
      DEF MXSUPT # 10 #;     # INITIAL SIZE OF SUPERVISOR TABLE BUFFER #
      DEF MXTBUFF # 20 #;    # INITIAL SIZE OF TERMINAL STMT BUFFER    #
      DEF MXTNI # 20 #;      # INITIAL SIZE OF TNI TABLE               #
      DEF MXTNN # 40 #;      # INITIAL SIZE OF TNN TABLE               #
      DEF MXUTAB # 100 #;    # INITIAL SIZE OF USER TABLE              #
      DEF MXNPU # 145 #;     # INITIAL SIZE OF NPU TABLE               #
      DEF MXTBLS # 32 #;     # TOTAL NUMBER OF TABLES, INCLUDING -TEND-#
      DEF ATENTSZ # 1 #;     # APPL TABLE ENTRY SIZE                   #
      DEF CTENTSZ # 1 #;     # COUPLER TABLE ENTRY SIZE                #
      DEF DCENTSZ # 1 #;     # DEVICE XREF TABLE ENTRY SIZE            #
      DEF HTENTSZ # 4 #;     # HOST TABLE ENTRY SIZE                   #
      DEF LCRENTSZ # 2 #;    # LINE CONFIGURE INDEX ENTRY SIZE         #
      DEF LCTENTSZ # 1 #;    # LINE XREF TABLE ENTRY SIZE              #
      DEF LIENTSZ # 1 #;     # LINE RECORD INDEX ENTRY SIZE            #
      DEF LKTENTSZ # 1 #;    # LINK TABLE ENTRY SIZE                   #
      DEF LLENTSZ # 2 #;     # LOGLINK XREF TABLE ENTRY SIZE           #
      DEF LLTENTSZ # 1 #;    # LOGICAL LINK TABLE ENTRY SIZE           #
      DEF LNTENTSZ # 1 #;    # LOGLINK NODE TABLE ENTRY SIZE           #
      DEF LTENTSZ # 1 #;     # LABEL TABLE ENTRY SIZE                  #
      DEF NCFENTSZ # 2 #;    # NCF INDEX ENTRY SIZE                    #
      DEF NPENTSZ # 2 #;     # NPU XREF TABLE ENTRY SIZE               #
      DEF NTENTSZ # 6 #;     # NPU TABLE ENTRY SIZE                    #
      DEF PAD$FN$FIRST #113#;# FIRST FN VALUE FOR SEQUENCE OF PAD 8TETS#
      DEF PLENTSZ # 2 #;     # PHYSICAL LINK XREF TABLE ENTRY SIZE     #
      DEF RTENTSZ # 1 #;     # ROUTING TABLE ENTRY SIZE                #
      DEF SLTENTSZ # 1 #;    # SUPLINK TABLE ENTRY SIZE                #
      DEF TNIENTSZ # 1 #;    # TNI TABLE ENTRY SIZE                    #
      DEF TNNENTSZ # 2 #;    # TNN TABLE ENTRY SIZE                    #
      DEF STENTSZ # 1 #;     # SUPERVISOR TABLE ENTRY SIZE             #
      DEF UTENTSZ # 4 #;     # USER TABLE ENTRY SIZE                   #
      COMMON TABLES;
      BEGIN 
      ITEM NTAB;             # TOTAL NUMBER OF TABLES                  #
      ITEM MEML;             #BEGINNING MEMORY LOCATION OF MANAGED AREA#
      ITEM FL;               # CURRENT TOTAL FIELD LENGTH              #
      BASED ARRAY APPL$TABLE [0:0] S(1);
        BEGIN 
*CALL ATLCF 
        END 
      ITEM AT$LENG;          # APPLICATION TABLE LENGTH                #
      BASED ARRAY CONSOLE$MAP [0:0] S(1); 
        BEGIN                # CONSOLE DEFINED BIT MAP                 #
        ITEM CMWORD     I(00,00,60);
        END 
      ITEM CM$LENG;          # CONSOLE MAP TABLE LENGTH                #
      BASED ARRAY COUP$TABLE [0:0] S(1);
        BEGIN 
        ITEM CTENT U(0,52,8);          # NUMBER OF ENTRIES IN TABLE    #
        ITEM CTNAME C(0,0,7);          # COUPLER NAME                  #
        ITEM CTHNID U(0,44,8);         # HOST/COUPLER NODE I.D.        #
        ITEM CTNID  U(0,52,8);         # NPU NODE ID SUPPORTING COUPLER#
        ITEM CTWORD I(0,0,60);
        END 
      ITEM CT$LENG;                    # COUPLER TABLE LENGTH          #
      BASED ARRAY DEFINE$TABLE [0:0] S(1);
        BEGIN                          # DEFINE TABLE                  #
        ITEM DTWC U(0,42,18);# DEFINE TABLE WORD COUNT                 #
        ITEM DEFNAME C(0,0,7);
        ITEM DEFWCNT U(0,54,6); 
        ITEM DEFSTRNG C(0,0,10);
        ITEM DTWORD U(0,0,60);
        END 
      ITEM DT$LENG;                    # DEFINE TABLE LENGTH           #
      BASED ARRAY DEVICE$XREF [0:0] S(1); 
        BEGIN                # DEVICE CROSS REFERENCE TABLE            #
*CALL DCNCF 
        END 
      ITEM DC$LENG;                    # DEVICE XREF TABLE LENGTH      #
      BASED ARRAY HOST$TABLE [0:0] S(1);
        BEGIN 
        ITEM HTNAME U(0,44,8);         # TABLE IDENTIFIER              #
        ITEM HT$ENT U(0,52,8);         # ENTRY COUNT                   #
        ITEM HT$RO  U(0,44,8);         # ROUTING ORDINAL OF HOST       #
        ITEM HT$SORT U(00,00,42);      # HOST NAME TO BE SORTED        #
        ITEM HT$CH1 U(0,44,8);         # CHARACTER POSITION ONE        #
        ITEM HT$CH2 U(0,52,8);         # CHARACTER POSITION TWO        #
        ITEM HTWORD  (0,0,60);
        END 
      ITEM HT$LENG;                    # HOST TABLE LENGTH             #
      BASED ARRAY INCALL$TABLE [0:0] S(1);
        BEGIN 
*CALL IBLCF 
        END 
      ITEM IB$LENG;          # INCALL BLOCK TABLE LENGTH               #
      BASED ARRAY LABEL$TABLE [0:0] S(1); 
        BEGIN 
        ITEM LABLCNT U(0,42,18);       # NUMBER OF LABELS IN TABLE     #
        ITEM LABLNAM C(0,0,7);         # LABEL-NAME                    #
        ITEM LABLPORT U(0,52,8);       # PORT NUMBER FROM GROUP STMT   #
        ITEM LABEL$WORD I(0,0,60);
        END 
      ITEM LT$LENG;                    # LABEL TABLE LENGTH            #
      BASED ARRAY LIN$CON$INDX [0:0] S(1);
        BEGIN                # LINE CONFIGURATION RECORD INDEX         #
        ITEM LCR$SUP$NAME C(0,30,5);   # IDENTIFIES AS SUPIO INDEX     #
        ITEM LCRWC U(0,48,12);         # TABLE WORD COUNT              #
        ITEM LCRNAME C(0,0,7);         # NAME OF NPU SUPPORTING LINE   #
        ITEM LCRENT U(0,42,8);         # NUMBER OF LINES DEFINED ON NPU#
        ITEM LCRRL U(0,0,30);          # RECORD LENGTH                 #
        ITEM LCRRANINDX U(0,30,30);    # RELATIVE PRU ADDRESS          #
        ITEM LCRWORD (0,0,60);
        END 
      ITEM LCR$LENG;                   # INDEX TABLE LENGTH            #
      BASED ARRAY LIN$CON$REC [0:0] S(1); 
        BEGIN                # LINE CONFIGURATION RECORD               #
        ITEM LCNI U(0,44,8);           # GROUP/ITERATION COUNT         #
        ITEM LCWC U(0,52,8);           # ENTRY WORD COUNT              #
        ITEM LCPORT U(0,44,8);         # PORT NUMBER OF LINE           #
        ITEM LCSPORT U(0,52,8);        # SUB PORT NUMBER               #
        ITEM LCLTYPE U(0,44,8);        # LINE TYPE                     #
        ITEM LCTTYP U(0,52,8);         # TERMINAL TYPE                 #
        ITEM LCTTYP$A B(0,52,1);       # FLAG SET IF AUTO REC LINE     #
        ITEM LCTTYP$IP U(0,53,4);      # NUMERICAL VALUE FOR TIPTYPE   #
        ITEM LC$SRANGE B(0,59,1);      # SPEED RANGE FOR AUTO REC LINES#
        ITEM LCST U(0,44,2);           # LINE STATUS -- DI/EN          #
        ITEM LC$ARSPEED B(0,58,1);     # ARSPEED FLAG IN TT BYTE       #
        ITEM LCFNFV U(0,52,8);         # NUMBER OF FNFV PAIRS          #
        ITEM LCFN U(0,44,8);           # FN VALUE                      #
        ITEM LCFV U(0,52,8);           # FV VALUE                      #
        ITEM LCWORD (0,0,60); 
        END 
      ITEM LC$LENG;                    # LINE CONFIG RECORD BUFFER LENG#
      BASED ARRAY LIN$REC$INDX [0:0] S(1);
        BEGIN                # LINE RECORD INDEX                       #
*CALL LINCF 
        END 
      ITEM LI$LENG;                    # LINE RECORD INDEX TABLE LENGTH#
      BASED ARRAY LINE$RECORD [0:0] S(1); 
        BEGIN 
*CALL LRNCF 
        END 
      ITEM LR$LENG;                    # LINE RECORD TABLE LENGTH      #
      BASED ARRAY LINE$XREF [0:0] S(1); 
        BEGIN                # LINE CROSS REFERENCE TABLE              #
*CALL LCTNCF
        END 
      ITEM LCT$LENG;                   # LINE XREF TABLE LENGTH        #
      BASED ARRAY LINK$TABLE [0:0] S(1);
        BEGIN 
        ITEM LKTNAME U(0,44,8);        # TABLE IDENTIFIER              #
        ITEM LKT$ENT U(0,52,8);        # ENTRY COUNT                   #
        ITEM LKT$TYP U(0,44,2);        # LINE TYPE                     #
        ITEM LKT$ST  U(0,46,2);        # LINK STATUS                   #
        ITEM LKT$FRAME U(0,48,2);      # FRAME CODE                    #
        ITEM LKT$ADD U(0,52,8);        # LINK ADDRESS                  #
        ITEM LKTWORD  (0,0,60); 
        END 
      ITEM LKT$LENG;                   # LINK TABLE LENGTH             #
      BASED ARRAY LLINK$TABLE [0:0] S(2); 
        BEGIN 
        ITEM LLTENT U(0,48,12);        # NUMBER OF ENTRIES IN TABLE    #
        ITEM LLTNAME C(0,0,7);         # LOGLINK NAME                  #
        ITEM LLTHNID U(0,44,8);        # HOST NODE THAT LLINK ORIGINATE#
        ITEM LLTNID  U(0,52,8);        # TERMINAL NODE ID (HOST/NPU)   #
        ITEM LLTHNAME U(1,18,42);      # NAME OF HOST FOR THAT LINK    #
        ITEM LLTWORD I(0,0,60); 
        ITEM LLTWORD1 I(1,0,60);
        END 
      ITEM LLT$LENG;                   # LOGLINK TABLE LENGTH          #
      BASED ARRAY LL$NODE$TABL [0:0] S(1);
        BEGIN 
        ITEM LNTENT  U(0,48,12);       # NUMBER OF ENTRIES IN TABLE    #
        ITEM LNTNAME C(0,0,7);         # TERMINAL NODE NAME            #
        ITEM LNTWORD I(0,0,60); 
        END 
      ITEM LNT$LENG;                   # LOGLINK NODE TABLE LENGTH     #
      BASED ARRAY LOGLINK$XREF [0:0] S(2);
        BEGIN                # LOGICAL LINK CROSS REFERENCE TABLE      #
*CALL LLNCF 
        END 
      ITEM LL$LENG;                    # LOGLINK XREF TABLE LENGTH     #
      BASED ARRAY NCB$BUFFER [0:0] S(1);
        BEGIN 
        ITEM NCBWC (0,0,60);           # WORD COUNT                    #
        ITEM NCBWORD U(0,0,60); 
        END 
      ITEM NCB$LENG;                   # NCB BUFFER LENGTH             #
      BASED ARRAY NCF$INDEX [0:0] S(2); 
        BEGIN 
*CALL NCFNCF
        END 
      ITEM NCF$LENG;                   # NCF INDEX TABLE LENGTH        #
      BASED ARRAY NPU$TABLE [0:0] S(2); 
        BEGIN 
        ITEM NTWC   U(0,51,9);         # NUMBER OF ENTRIES IN TABLE    #
        ITEM NTCNP  U(0,42,9);         # POINTER TO CURRENT NPU HEADER #
        ITEM NTNAME C(0,0,7);          # NPU NAME                      #
        ITEM NTSPLK B(0,42,1);         # SUPLINK STMT EXISTS FLAG      #
        ITEM NTNID  U(0,52,8);         # NODE I.D. OF NPU              #
        ITEM NTWORD I(0,0,60);
        END 
      ITEM NT$LENG;                    # NPU TABLE LENGTH              #
      BASED ARRAY NPU$XREF [0:0] S(2);
        BEGIN                # NPU CROSS REFERENCE TABLE               #
*CALL NPNCF 
        END 
      ITEM NP$LENG;                    # NPU XREF TABLE LENGTH         #
      BASED ARRAY OUTCALL$TABL [0:0] S(1);
        BEGIN 
*CALL OBLCF 
        END 
      ITEM OB$LENG;          # OUTCALL BLOCK TABLE LENGTH              #
      BASED ARRAY PLINK$XREF [0:0] S(2);
        BEGIN                # PHYSICAL LINK CROSS REFERENCE TABLE     #
*CALL PLNCF 
        END 
      ITEM PL$LENG;                    # PHYS LINK XREF TABLE LENGTH   #
      BASED ARRAY PATHPID$TAB[0:0] S(1);
        BEGIN                          # PATH PID TABLE                #
*CALL PPLCF 
        END 
      ITEM PP$LENG;                    # PATH PID TABLE LENGTH         #
      BASED ARRAY ROUTING$TABL [0:0] S(1);
        BEGIN 
        ITEM RTNAME U(0,44,8);         # TABLE IDENTIFIER              #
        ITEM RT$ENT U(0,52,8);         # ENTRY COUNT                   #
        ITEM RT$TYP U(0,44,2);         # ROUTING TYPE                  #
        ITEM RT$RS  U(0,46,6);         # ROUTING STATUS                #
        ITEM RT$LO  U(0,52,8);         # LINK ORDINAL -- PNTR TO LKT   #
        ITEM RTWORD  (0,0,60);
        END 
      ITEM RT$LENG;                    # ROUTING TABLE LENGTH          #
      BASED ARRAY STMT$TABLE [0:0] S(1);   # STATEMENT TABLE           #
        BEGIN 
        ITEM STNAME     C(00,00,03);   # ABBREVIATED STMT NAME         #
        ITEM STSTID     U(00,18,06);   # STATEMENT I.D.                #
        ITEM STLNUM     U(00,24,18);   # LINE NUMBER OF STATEMENT      #
        ITEM STWC       U(00,42,18);   # WORD COUNT OF STMT ENTRY      #
        ITEM STLBPNTR   U(00,00,15);   # POINTER TO LABEL TABLE        #
        ITEM STLBERR    B(00,17,01);   # LABEL ERROR FLAG              #
        ITEM STLABEL    C(00,18,07);   # LABEL-NAME                    #
        ITEM STCMB      U(00,00,06);   # CONSOLE MAP BIT POINTER       #
        ITEM STCMW      U(00,06,10);   # CONSOLE MAP WORD POINTER      #
        ITEM STORD1     U(00,54,06);   # ORDINAL ONE                   #
        ITEM STORD2     U(00,48,06);   # ORDINAL TWO                   #
        ITEM STORD3     U(00,42,06);   # ORDINAL THREE                 #
        ITEM STKWID     U(00,00,09);   # KEYWORD I.D.                  #
        ITEM STVALLEN   U(00,09,06);   # VALUE LENGTH IN CHARACTERS    #
        ITEM STVLERR    B(00,17,01);   # VALUE ERROR FLAG              #
        ITEM STVALNAM   C(00,18,07);   # VALUE CHARACTER STRING        #
        ITEM STVALNUM   U(00,18,42);   # VALUE NUMBER                  #
        ITEM STWORD     I(00,00,60);
        END 
      ITEM STB$LENG;                   # STATEMENT TABLE LENGTH        #
      BASED ARRAY SUP$TABLE [0:0] S(1); 
        BEGIN 
        ITEM ST$NAM U(0,44,8);         # TABLE IDENTIFIER              #
        ITEM ST$ENT U(0,52,8);         # ENTRY COUNT                   #
        ITEM ST$TYP U(0,44,2);         # SUPERVISOR TYPE - LOCAL/REMOTE#
        ITEM ST$RO  U(0,52,8);         # ROUTING ORDINAL -- PNTR TO RT #
        ITEM ST$WRD  (0,0,60);
        END 
      ITEM ST$LENG;                    # SUPERVISOR TABLE LENGTH       #
      BASED ARRAY TERM$BUFFER [0:0] S(1);   # TERMINAL STMT BUFFER     #
        BEGIN 
        ITEM TBNAME     C(00,00,03);   # ABBREVIATED STMT NAME         #
        ITEM TBSTID     U(00,18,06);   # STATEMENT I.D.                #
        ITEM TBLINE     U(00,24,18);   # STATEMENT LINE NUMBER         #
        ITEM TBWC       U(00,54,06);   # BUFFER WORD COUNT             #
        ITEM TBCMB      U(00,00,06);   # CONSOLE MAP BIT POINTER       #
        ITEM TBCMW      U(00,06,10);   # CONSOLE MAP WORD POINTER      #
        ITEM TBORD1     U(00,54,06);   # ORDINAL ONE                   #
        ITEM TBORD2     U(00,48,06);   # ORDINAL TWO                   #
        ITEM TBORD3     U(00,42,06);   # ORDINAL THREE                 #
        ITEM TBKWID     U(00,00,09);   # KEYWORD I.D.                  #
        ITEM TBVALLEN   U(00,09,06);   # VALUE LENGTH IN CHARACTERS    #
        ITEM TBVLERR    B(00,17,01);   # VALUE ERROR FLAG              #
        ITEM TBVALNAM   C(00,18,07);   # VALUE CHARACTER STRING        #
        ITEM TBVALNUM   U(00,18,42);   # VALUE NUMBER                  #
        ITEM TBWORD     I(00,00,60);
        END 
      ITEM TB$LENG;                    # TERMINAL STMT BUFFER LENGTH   #
      BASED ARRAY SUPLINK$TABL [0:0] S(1);
        BEGIN 
        ITEM SLTWC U(0,48,12);         # TABLE WORD COUNT              #
        ITEM SLTNAME C(0,0,7);         # SUPLINK NAME                  #
        ITEM SLTTYPE U(0,42,2);        # SUPLINK TYPE                  #
        ITEM SLTHNID U(0,44,8);        # HOST NODE I.D                 #
        ITEM SLTNID U(0,52,8);         # NPU NODE I.D.                 #
        ITEM SLTWORD (0,0,60);
        END 
      ITEM SLT$LENG;                   # SUPLINK TABLE LENGTH          #
      BASED ARRAY TNI$TABLE [0:0] S(1); 
        BEGIN                # TRUNK NODE I.D. TABLE                   #
        ITEM TNIWC      U(00,42,18);   # TABLE WORD COUNT              #
        ITEM TNIN1      U(00,44,08);   # N1 NODE I.D. VALUE            #
        ITEM TNIN2      U(00,52,08);   # N2 NODE I.D. VALUE            #
        ITEM TNIWORD    I(00,00,60);
        END 
      ITEM TNI$LENG;         # TNI TABLE LENGTH                        #
      BASED ARRAY TNN$TABLE [0:0] S(2); 
        BEGIN                # TRUNK NPU NAME TABLE                    #
        ITEM TNNEC      U(01,42,18);   # TABLE ENTRY COUNT             #
        ITEM TNNN1      C(00,00,07);   # N1 VALUE                      #
        ITEM TNNN2      C(01,00,07);   # N2 VALUE                      #
        ITEM TNNWORD    I(00,00,60);
        ITEM TNNWORD1   I(01,00,60);
        END 
      ITEM TNN$LENG;         # TNN TABLE LENGTH                        #
      BASED ARRAY USER$TABLE [0:0] S(1);
        BEGIN 
*CALL UTLCF 
        END 
      ITEM UT$LENG;          # USER TABLE LENGTH                       #
      BASED ARRAY TEND [0:0] S(1);     # DUMMY END ARRAY OF MANAGER    #
        BEGIN 
        ITEM F$TEND (0,0,60);# CONTAINS ADDRESS AT END OF FL           #
        END 
      ITEM L$TEND;           # CONTAINS TOTAL STORAGE USED             #
      END # TABLES COMMON # 
      END 
      TERM
