cdc:nos2.source:nam5871:ndltblt
Table of Contents
NDLTBLT
Table Of Contents
- [00002] PROC NDLTBLT
Source Code
- NDLTBLT.txt
- *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
cdc/nos2.source/nam5871/ndltblt.txt · Last modified: 2023/08/05 17:22 by Site Administrator