*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