*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