Retro1.org codex

*DECK     TEXTNVF 
PROC TEXTNVF; 
# TITLE TEXTNVF - SYMPL TEXT FOR NVF.                                  #
 
      BEGIN    # TEXTNVF #
# 
**    TEXTNVF - SYMPL TEXT FOR NVF. 
* 
*     S.H. FISHER    82/06/02 
*     C.J. BRION     83/10/10 
* 
*     THIS PROC GENERATES A SYMPL TEXT FOR COMPILING NVF. 
*     IT CONTAINS DEFINITIONS OF SYMBOLS, PARAMETERS, COMMON BLOCKS 
*     ECT... USED THROUGHOUT THE PROGRAM. 
* 
# 
 
CONTROL STEXT;
 
 
# 
****
# 
      DEF SPTACSIZ$  #66#;   # MAX SIZE OF SUB PTAC ENTRY              #
      DEF SPTACSIZ2$ #67#;   # MAX SIZE OF SUB PTAC ENTRY + 1          #
      DEF  ACNLSIZ$  #2#;    # NUMBER OF WORDS PER ACN LIST ENTRY      #
      $BEGIN
      DEF  TRAPVCB$  #50#;
      $END
      DEF  NVFAN$    #1#;    # APPLICATION NUMBER OF NVF #
      DEF  ALTSIZ$   #4#;    # NUMBER OF WORDS PER ALT ENTRY           #
      DEF  ASTSIZ$   #5#;    # NUMBER OF WORDS PER AST ENTRY           #
      DEF  DEFAL$    #128#;    # DEFAULT AL VALUE              #
      DEF  DEFLL$    #4#;    # DEFAULT LL VALUE                        #
      DEF  PIDLLSIZ$ #2#;    # NUMBER OF WORDS PER LLPID LLINK ENTRY   #
      DEF  PTACSIZ$  #30#;   # NUMBER OF WORDS PER PTAC ENTRY          #
      DEF  PAACSIZ$  #30#;   # NUMBER WORDS PER PAAC ENTRY #
      DEF  AATIME$   #1#;    # A-A TIME REQUEST ID #
      DEF  TATIME$   #2#;    # T-A TIME REQUEST ID #
      DEF  TSTIME$   #3#;    # TERMINAL SESSION TIME REQUEST ID        #
      DEF  PDCTSIZ$  #9#;    # NUM OF WORDS IN CONSOLE PORTION OF PDCT #
      DEF  EMPTY$    #1#;    # NUMBER WRDS IN EMPTY IN/OUTCALL BLK  # 
      DEF  RAUSIZ$   #2#;    # NUMBER OF WORDS PER RAU ENTRY           #
      DEF  RMLSIZ$   #1#;    # NUMBER OF WORDS PER RML ENTRY           #
      DEF  VBRECDN$  #56#;   # VCB REC SIZE SAME AS VBRECD$ IN TXVCBNV #
      DEF  MULTI$    #1#;    # MULTI HOST MODE INDICATOR #
      DEF  SINGL$    #2#;    # SINGLE HOST MODE IND # 
      DEF  VBESIZN$  #8#;    # VCB NTRY SIZ SAME AS VBESIZ$ IN TXVCBNV #
      DEF  VSQSIZ$   #3#;    # NUMBER OF WORDS PER VSQ ENTRY           #
      DEF  AASECLEV$ #16#;   # A-A SECURITY LEVEL # 
      DEF  VSSQSIZ$  #4#;    # NUMBER OF WORDS PER VCBSSQ ENTRY        #
      DEF  LCFVRN$   #4#;    # NUMBER OF WORDS IN LCF VERSION MSG      #
      DEF  HOPORD$   #0#;    # HOP ACN LIST ORDINAL                    #
      DEF  HOPPL$    #31#;   # HOP PAGE LENGTH                         #
      DEF  HOPTPL$   #32#;   # HOP TURN PAGE LENGTH                    #
      DEF  NOXPAR$   #X"3400"#;  # NON-TRANSPARENT INPUT INDICATOR     #
      DEF  NSAWBP$   #O"77"#;# NS ACCESS WORD BIT POSITION             #
      DEF  NVFPID$   #2#;    # NVF PROGRAM I.D. FOR FIELD LENGTH DUMP  #
      DEF  RVD$      #7#;    # READ VCB DATA TAG #
      DEF  WVD$      #1#;    # WRITE VCB DATA TAG # 
      $BEGIN
      DEF  STRNUM$      #300#; # DEBUG TABLE LEN #
      $END
# 
*     REASON CODE DEFINITIONS FOR A-A FEATURE FOR RELEASE 1 OF SINGLE 
*     HOST REPLACEMENT. 
# 
 
      DEF  RCNOVCB$     # 1 #;            # NO AVAIL VCB #
      DEF  RCMAXCN$     # 10 #;           # APPL AT MAX CON # 
      DEF  RCNOAPP$     # 9 #;            # APPL UNAVAILABLE #
      DEF  RCNOPATH$    # 8 #;            # NO PATH TO DEST APPL #
      DEF  RCBADREQ$    # 4 #;            # INVALID CON REQ # 
      DEF  RCUNKAPP$    # 13 #;           # UNKNOWN APPL #
# 
*     THE FOLLOWING DEFS ARE USED TO DETERMINE WHETHER A USER-
*     VOLUNTEERED APPLICATION IS A RESERVED NAME. 
# 
      DEF  LOGIN$       # 1 #;            # NAME IS "LOGIN" OR "HELLO" #
      DEF  LOGOUT$      # 2 #;            # NAME IS "LOGOUT" OR "BYE"  #
      DEF  NORESNAM$    # 0 #;            # NOT A RESERVED NAME        #
# 
*     THE FOLLOWING DEFS ARE HARD CODED VALUES FOR THE FLOW CONTROL 
*     PARAMETERS TO BE USED FOR THE SINGLE HOST A-A FEATURE.
# 
 
      DEF  INTRABL$     # 7 #;           # ABL VALUE #
      DEF  INTRADBL$    # 5 #;           # DBL VALUE #
      DEF  INTRADBZ$    # 2043 #;        # DBZ VALUE #
      DEF  INTRAUBL$    # 7 #;           # UBL VALUE #
      DEF  INTRAUBZ$    # 2000 #;        # UBZ VALUE #
 
 
 
# 
*     DEFS OF NVF INTERNAL APPLICATION BLOCK TYPES(ABTS) AND PSEUDO 
*     PFC/SFC-S FOR PROTOCOL REPONSES SENT FROM HOP I-LAYER TO
*     HOP C-LAYER.
# 
      DEF  HOPTX$    #10#;   # HOP TERMINAL TEXT ABT                   #
      DEF  APPPR$    #9#;    # PROTOCOL RESPONSE ABT                   #
      DEF  APPPTX$   #8#;    # PROMPT TEXT ABT                         #
      DEF  APPTTX$   #7#;    # TERMINAL TEXT ABT                       #
      DEF  HOPSRTN$  #X"D045"#;        # HOP/START/N PSEUD0 PFC/SFC    #
      DEF  HOPENDN$  #X"D046"#;        # HOP/END/N PSEUD0 PFC/SFC      #
# 
****
# 
 
# 
**    THE FOLLOWING STATUS LIST IS FOR USE BY THE HOP PROTOCOL EVENT
*     PROCESSOR FOR CASING ON EVENT TYPES.
# 
      STATUS HPESTAT
        HOPSRT,              # HOP/START                               #
        HOPENDW,             # HOP/END-WARNING                         #
        HOPEND,              # HOP/END #
        ; 
 
 
# 
**    HCNST  - STATES ALLOWED FOR THE HOP ACN ENTRY.
* 
*     THIS STATUS LIST DEFINES THE ALLOWED STATES FOR THE ACN LIST
*     ENTRY FOR THE HOP.  BECAUSE WE COMMUNICATE WITH THE HOP VIA A 
*     TOTALLY DIFFERENT PROTOCOL THAN THAT FOR NOPS (WHO ARE TERMINAL 
*     USERS), A DIFFERENT SET OF STATES ARE REQUIRED. 
# 
 
      STATUS HCNST
        INACT,               # INACTICE, NOT ASSIGNED                  #
        CREATE,              # HOP/START IN PROGRESS                   #
        ACTIVE,              # BOTH INPUT AND OUTPUT ALLOWED           #
        COMMAND,             # COMMAND IN PROGRESS,ONLY OUTPUT ALLOWED #
        BREAK,               # BREAK OUTSTANDING                       #
        ENDED,               # HOP/END IN PROGRESS                     #
        RESTART,             # START WHILE END IN PROGRESS             #
        STARTEND,            # END WHILE START IN PROGRESS             #
        STARTBRK,            # BREAK WHILE START IN PROGRESS           #
        RESBREAK;            # START + BREAK WHILE END IN PROGRESS     #
 
 
# 
**    THE FOLLOWING STATUS LIST DEFINES ALL THE ERRORS THAT IS RETURNED 
*     BY THE SERIAL SEARCHER.  THESE ARE SET IN THE VCBSSQ ENTRIES BY 
*     *NVFVPSR* AND RECOGNIZED BY *NVFOFVD*.
* 
# 
      STATUS SSEC 
        NOERROR,             # NO ERRORS DETECTED                      #
        NOMATCH,             # NO MATCH FOUND IN THE VCB FILE          #
        ABRT;                # ABORT COMMAND FLAG IS SET               #
 
 
 
 
 
 
 
# 
**     LCFVRSN - COMMON BLOCK FOR LCF VERSION MESSAGE.
* 
*     THIS IS A COMMON BLOCK FOR THE LCF VERSION MESSAGE. 
*     IT IS BUILT BY *NVFIAST* WHEN READING THE LCF AT
*     INITIALIZATION TIME.  AND USED BY *NVFOPHC* WHEN
*     PROCESSING THE "HISTORY,ALL" COMMAND. 
* 
# 
 
      COMMON LCFVRSN; 
      BEGIN    # LCFVRSN #
 
 
      ARRAY LCFVRN[00:00] S(LCFVRN$); 
        BEGIN 
        ITEM LFV$VRN    C(00,00,12);   # "LCF VERSION "                #
        ITEM LFV$DAT    C(01,12,20);   # LCF CREATION TIME AND DATE    #
        ITEM LFV$ZERO   U(03,12,48);   # ZERO BYTE TERMINATOR          #
        END 
 
      END    # LCFVRSN #
 
 
# 
**    NVFCITM - COMMON ITEM DEFINITIONS.
* 
*     NVFCITM IS A COMMON BLOCK CONTAINING GLOBAL ITEM DEFINIATIONS FOR 
*     VARIOUS OVERLAYS OF NVF.
# 
      COMMON NVFCITM; 
      BEGIN    # NVFCITM #
 
      ITEM ABORTCMDF  B;     # ABORT-COMMAND FLAG                      #
      ITEM AL         I;     # AL VALUE FROM CONTROL CARD              #
      ITEM LLVAL      I;     # LL VALUE FROM CONTROL CARD              #
      ITEM NVFSTATE   B;     # TRUE IF IDLE/DISABLE HOST INITIATED     #
      ITEM SSBUSYF    B;     # SERIAL SEARCHER BUSY FLAG               #
      ITEM VAPMASK    U;     # VALID APPLICATION MASK                  #
 
      END  # END NVFCITM #
 
# 
**    NVFCARY - COMMON BASED ARRAY DEFINITIONS. 
* 
*     NVFCARY IS A COMMON BLOCK CONTAINING GLOBAL BASED ARRAY 
*     DEFINITIONS FOR THE VARIOUS OVERLAYS OF NVF.
# 
      COMMON NVFCARY; 
      BEGIN    # NVFCARY #
 
# 
**    TVCBSSQ - TEMPLATE FOR AN ENTRY IN VCBSSQ.
* 
*     THE FOLLOWING BASED ARRAY IS A TEMPLATE FOR AN ENTRY IN THE 
*     VCB-SERIAL-SEARCH-DATA-QUEUE (VCBSSQ).
# 
      BASED ARRAY TVCBSSQ[00:00] S(VSSQSIZ$); 
        BEGIN 
        ITEM TSS$TN     C(00,00,07);   # TERMINAL NAME                 #
        ITEM TSS$DT     U(00,47,04);   # DEVICE TYPE                   #
        ITEM TSS$UWORD  U(01,00,60);   # USER REFERENCE WORD           #
        ITEM TSS$LTIME  U(02,00,18);   # LOGIN TIME                    #
        ITEM TSS$CATIME U(02,18,18);   # CONNECTION TO APPL TIME       #
        ITEM TSS$AACN   U(02,36,12);   # APPL-CONNECTION-NUMBER        #
        ITEM TSS$EC     U(02,48,03);   # ERROR CODE                    #
        ITEM TSS$APENDF B(02,51,01);   # LAST APPL FLAG # 
        ITEM TSS$VENDF  B(02,58,01);   # END VCB SERIAL SEARCH FLAG    #
        ITEM TSS$SWAPNM C(03,00,07);   # SWITCHED APPL NAME            #
        ITEM TSS$SWAPAN U(03,51,09);   # SWITCHED APPL NUMBER          #
        END 
 
 
# 
**    TVSQ - TEMPLATE FOR AN ENTRY IN VSQ.
* 
*     TVSQ IS A TEMPLATE FOR AN ENTRY IN THE VCB-SERIAL-SEARCH-REQUEST
*     QUEUE (VSQ).
# 
 
      BASED ARRAY TVSQ[00:00] S(VSQSIZ$); 
        BEGIN 
        ITEM TVS$APENDF B(00,48,01);   # LAST APPL FLAG # 
        ITEM TVS$WORDP  U(00,51,06);   # WORD POSITION                 #
        ITEM TVS$SGLEF  B(00,59,01);   # SINGLE-ENTRY-FLAG             #
        ITEM TVS$VALUE  U(01,00,60);   # VALUE TO SEARCH               #
        ITEM TVS$MASK   U(02,00,60);   # MASK FOR THE VALUE            #
        END 
 
      END    # NVFCARY #
 
 
# 
**     NVFCB - NVF CONTROL BLOCK. 
* 
*     THIS COMMON BLOCK CONTAINS ITEMS RELATING TO NVF CONTROL AND
*     IDENTIFICATION. 
* 
# 
 
      COMMON NVFCB; 
 
        BEGIN # NVFCB # 
 
        ITEM CRNT$NIN;       # CURRENT INVOCATION NUMBER               #
        ITEM CRNT$DPN;       # CURRENT DUMP NUMBER                     #
        ITEM DBGFLAG    B;   # DEBUG CODE ON FLAG                      #
 
        END # NVFCB # 
 
 
# 
**    NVFINTR - COMMON BLOCK OF INTERRUPT LOCATIONS FOR MONITOR 
*               ROUTINES. 
* 
*     NVFINTR IS A COMMON BLOCK CONTAINING A GROUP OF WHOLE WORD ITEMS
*     THAT FUNCTION AS INTERRUPT CELLS FOR THE ROUTINES THAT ARE CALLED 
*     BY THE STATUS WORKLIST PROCESSOR TO PROCESS ONE OR MORE QUEUES. 
*     THESE CELLS PROVIDE A LINKAGE BETWEEN ONE OR MORE QUEUES AND A
*     SINGLE GIVEN MONITOR ROUTINE.  THIS ASSOCIATION IS MADE AT
*     INITIALIZATION TIME WHEN *WDF* AND *QWD* TABLES (IN SSTEXT) ARE 
*     BUILT BY PROC NVFIBWD.  WHENEVER THE STATUS WORKLIST PROCESSOR IS 
*     WATCHING A GIVEN INTERRUPT CELL AND THAT CELL BECOMES OR IS 
*     NONZERO, THE CORRESPONDING MONITOR ROUTINE IS CALLED.  THE
*     MONITORS THEMSELVES DETERMINE WHEN A GIVEN CELL WILL BE WATCHED 
*     VIA THE FORMAL RETURN PARAMETER ARRAY *SWTESS* (COMMON DECK). 
*     WHENEVER AN ENTRY IS PLACED IN A GIVEN QUEUE, THE ASSOCIATED
*     INTERRUPT WORD IS INCREMENTED.  (NOTE: NOT ALL MONITOR ROUTINES 
*     ARE TRIGGERED BY THESE INTERRUPT CELLS.  SOME ARE TRIGGERED BY, 
*     E.G., THE COMPLETE BIT).
# 
      COMMON NVFINTR; 
      BEGIN 
      ITEM INVTICR    I;     # INTERRUPT FOR PROC *NVFTICR*            #
      ITEM INVVRVF    I;     # INTERRUPT FOR PROC *NVFVRVF*            #
      ITEM INVVPSR    I;     # INTRP. FOR *NVFVPSR* TRIGGER BY VSQ     #
      ITEM INVPSR     I;     # INTRP. FOR *NVFVPSR* TRIGGER BY *NVFVFSD#
 
      END  # END NVFINTR #
 
# 
**
*E
**    TABLES - MEMORY MANAGEMENT COMMON BLOCK.
* 
*     COMMON BLOCK OF BASED ARRAY POINTER WORD AND LENGTH FOR TABLES
*     AND QUEUES USED BY THE *TABLE MANAGER*.  ORDER OF *MEMLOC* AND
*     *FL* MUST BE PRESERVED FOR USE BY THE *TABLE MANAGER*.
*     FOR QUEUES, THE ENTRY-SIZE IS VARIABLE IN LENGTH AND EACH ENTRY 
*     HAS THE FOLLOWING FORMAT: 
*       1) A ONE WORD WORD-COUNT FOR THE NUMBER OF WORDS IN THE ENTRY.
*       2) A ONE WORD HEADER (ABH FORMAT), AND
*       3) AN SM OR DATA AREA WITH A MAXIMUM SIZE OF 12 WORDS.
# 
      COMMON TABLES;
      BEGIN 
      ITEM MEMLOC     I;     # 1ST MEMORY LOCATION OF MANAGED TBL AREA #
      ITEM FL         I;     # FIELD LENGTH                            #
 
 
 
 
# 
**    ACN - APPLICATION CONNECTION NUMBER LIST. 
* 
*     ACN LIST TABLE CONTAINS INFORMATION NEEDED BY THE C-LAYER ABOUT 
*     ALL CONNECTIONS TO NVF. 
* 
*     THE FOLLOWING IS THE FORMAT OF AN ACN LIST ENTRY.  EACH ENTRY 
*     IS 2-WORDS LONG.
* 
* 
*                 1         2         3         4         5 
*       012345678901234567890123456789012345678901234567890123456789
*TEXT 
*TEXT 
*T,WORD0,1/I,1/B,4/CST,3/,3/BL,18/ABN,12/DBZ,18/ACN 
*ENDTEXT
*T,WORD1,3/,6/BKCNT,6/BLCNT,3/,5/PCHA,1/G,9/,6/TRC,3/,9/WBCNT,9/PL
*ENDTEXT
* 
# 
      BASED ARRAY ACN[00:00] S(ACNLSIZ$); 
        BEGIN 
# 
****
# 
        ITEM ACN$WORD0         U(00,00,60);   # FIRST WORD REFERENCE   #
        ITEM ACN$INIT          B(00,00,01);   # TRUE WHEN FC/INIT DONE #
        ITEM ACN$BLKF          B(00,01,01);   # BLK BLOCK RECEIVED FLAG#
        ITEM ACN$HOPST   S:HCNST(00,02,04);   # HOP PSEUDO ACN STATE   #
        ITEM ACN$STATE         U(00,02,04);   # STATE OF CONNECTION    #
        ITEM ACN$ABL           U(00,09,03);   # APPLICATION BLOCK LIM  #
        ITEM ACN$ABN           U(00,12,18);   # APPLICATION BLOCK NUM  #
        ITEM ACN$CNUM          U(00,12,18);   # TIMER CANCEL NUMBER    #
        ITEM ACN$DBZ           U(00,30,12);   # APPLICATION BLOCK SIZE #
        ITEM ACN$ACN           U(00,42,18);   # APPLICATION CONNECT NR #
        ITEM ACN$WORD1         U(01,00,60);   # SECOND WORD REFERENCE  #
        ITEM ACN$BKCNT         I(01,03,06);   # OUTSTANDING BREAK CNT  #
        ITEM ACN$BLCNT         U(01,09,06);   # OUTSTANDING BLOCK CNT  #
        ITEM ACN$PCHAR         C(01,18,01);   # HOP PAGE CHARACTER     #
        ITEM ACN$PWAIT         B(01,23,01);   # PAGE WAIT FLAG         #
        ITEM ACN$BLKCNT        U(01,27,06);   # BLK BLOCKS RECEIVED    #
        ITEM ACN$TRC           U(01,33,06);   # TERMINATE REASON CODE  #
        ITEM ACN$IGNOR         B(01,39,01);   # HOP IGNORE FLAG        #
        ITEM ACN$WBCNT         U(01,42,09);   # WAITING BLOCK COUNT    #
        ITEM ACN$PL            U(01,51,09);   # PAGE LENGTH            #
# 
****
# 
        END 
      ITEM ACNLNGTH    I;    # LENGTH OF ACN TABLE                     #
 
 
# 
**    ASQ - APPLICATION SM QUEUE. 
* 
*     ASQ IS THE INPUT QUEUE TO THE MAINTAIN APPLICATION STATUS 
*     PROCESS.  IT CONTAINS SMS PERTINENT TO ESTABLISHING AND 
*     TERMINATING COMMUNICATION BETWEEN AN APPLICATION AND THE
*     NETWORK.
# 
      BASED ARRAY ASQ[00:00] S(1);
        BEGIN 
        ITEM ASQ$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM ASQLNGTH   I;               # ASQ QUEUE LENGTH              #
 
# 
**
*E
**    AST - APPLICATION STATUS TABLE. 
* 
*     AST TABLE CONTAINS AN ENTRY FOR EACH APPLICATION REPRESENTED IN 
*     THE NOS VALIDATION COMMON DECK - COMTNAP.  THIS IS A FIXED ENTRY- 
*     SIZE TABLE. 
* 
* 
*     THE FOLLOWING IS THE FORMAT OF AN AST ENTRY.  EACH ENTRY
*     IS THREE WORDS LONG.
* 
* 
*                 1         2         3         4         5 
*       012345678901234567890123456789012345678901234567890123456789
*TEXT 
*T,WORD0,42/ANAM,9/,9/AN
*T,WORD1,24/JSN,18/,6/AWBP,1/B,1/U,1/D,1/N,2/,6/AAL 
*T,WORD2,18/MCN,18/TACN,18/AACN,1/P,1/F,1/K,1/N,1/A,1/
*ENDTEXT
* 
* 
# 
      BASED ARRAY AST[00:00] S(ASTSIZ$);
        BEGIN 
# 
****
# 
        ITEM AST$WORD0  U(00,00,60);   # WORD 0 REFERENCE              #
        ITEM AST$WORD1  U(01,00,60);   # WORD 1 REFERENCE              #
        ITEM AST$WORD2  U(02,00,60);   # WORD 2 REFERENCE              #
        ITEM AST$WORD3  U(03,00,60);   # WORD 3 REFERENCE              #
        ITEM AST$WORD4  U(04,00,60);   # WORD 4 REFERENCE              #
        ITEM AST$ANAM   C(00,00,07);   # APPLICATION NAME              #
        ITEM AST$PANAM  C(00,00,07);   # PRIMARY APPL NAME             #
        ITEM AST$UPANAM U(00,00,42);   # PRIMARY APPL NAME             #
        ITEM AST$AN     U(00,51,09);   # APPLICATION NUMBER            #
        ITEM AST$JSN    C(01,00,04);   # JOB SEQUENCE NUMBER           #
        ITEM AST$RETRY  U(01,24,08);   # RETRY COUNT                   #
        ITEM AST$XFERF  B(01,32,01);   # NETWORK XFER CALLS ALLOWED    #
        ITEM AST$AWBP   U(01,42,06);   # ACCESS WORD BIT POSITION      #
        ITEM AST$BNUF   B(01,48,01);   # AWBP NOT UNIQUE TO APPL FLAG  #
        ITEM AST$UIDF   B(01,49,01);   # UNIQUE IDENTIFR REQUIRED FLAG #
        ITEM AST$DIF    B(01,50,01);   # APPLICATION DISABLED FLAG     #
        ITEM AST$DNF    B(01,51,01);   # APPLICATION DOWN FLAG         #
        ITEM AST$SNPF   B(01,52,01);   # SEC NETON PENDING FLAG        #
        ITEM AST$PRUF   B(01,53,01);   # ALLOWED TO USE PRU INTERFACE  #
        ITEM AST$AAL    U(01,54,06);   # APPLICATION ACCESS LEVEL      #
        ITEM AST$RICN   B(02,05,01);   # THIS APP RESTRICT INCOMG CONN #
        ITEM AST$MXICN  U(02,06,12);   # MAX INCOMMING CONNS ALLOWED   #
        ITEM AST$MCN    U(02,18,12);   # TOTAL NUM OF CONN APPL ALLOWED#
        ITEM AST$TACN   U(02,30,12);   # CUREENT NUMBER OF T-A CONN    #
        ITEM AST$AACN   U(02,42,12);   # CURRENT NUMBER OF A-A CONN    #
        ITEM AST$PPF    B(02,54,01);   # PRIVILEGED PROGRAM FLAG       #
        ITEM AST$PUF    B(02,55,01);   # PRIVILEGED USER FLAG (UNUSED) #
        ITEM AST$KDSPF  B(02,56,01);   # PERMISSION TO USE K-DSP FLAG  #
        ITEM AST$NON    B(02,57,01);   # NET/OFF/N NEEDED              #
        ITEM AST$AFN    B(02,58,01);   # FAIL/APPL/N NEEDED            #
        ITEM AST$RS     B(02,59,01);   # REQUEST STARTABLE FLAG        #
        ITEM AST$SANAM  C(03,00,07);   # SEC APPL NAME                 #
        ITEM AST$USANAM U(03,00,42);   # SEC APPL NAME                 #
        ITEM AST$RACN   I(03,42,12);   # TOTAL NUMBER OF RESERVED CONN #
        ITEM AST$ICCN   U(04,06,12);   # TOTAL NUMBER OF INCOMING CONN #
        ITEM AST$MXCOP  U(04,18,04);   # MAXIMUM COPIES                #
        ITEM AST$CUCOP  U(04,22,04);   # NUMBER ACTIVE COPIES          #
        ITEM AST$PNCOP  U(04,26,04);   # NUMBER PENDING COPIES         #
        ITEM AST$PAPAST U(04,30,09);   # PRIMARY AST ORDINAL #
        ITEM AST$TCAN   U(04,42,18);   # CANCEL NUMBER FOR START TIMER #
# 
****
# 
        END 
      ITEM ASTLNGTH   I;               # LENGTH OF AST TABLE           #
 
 
# 
**
*E
**    ALTB - AUTO LOGIN TABLE.
* 
*     ALTB IS USED TO STORE AUTO LOGIN INFORMATION.  EACH ENTRY SHOULD
*     CONTAIN A TERMINAL NAME, FAMILY, USER, AND APPLICATION NAMES. 
*     THIS TABLE IS ACCESSED WHEN THE AUTO LOGIN FLAG IN THE INCOMING 
*     CR/ITE/R SM IS SET. 
* 
* 
*     THE FOLLOWING IS THE FORMAT OF AN ALTB ENTRY.  EACH ENTRY 
*     IS FOUR WORDS LONG. 
* 
* 
*                 1         2         3         4         5 
*       012345678901234567890123456789012345678901234567890123456789
*TEXT 
*T,WORD0,42/TNAM,18/
*T,WORD1,42/FNAM,3/FI,15/ 
*T,WORD2,42/UNAM,3/UI,15/ 
*T,WORD3,42/ANAM,3/AI,15/ 
*ENDTEXT
* 
* 
# 
      BASED ARRAY ALTB [00:00] S(ALTSIZ$);
        BEGIN 
# 
****
# 
        ITEM ALT$TNAM   C(00,00,07);   # TERMINAL NAME                 #
        ITEM ALT$FNAM   C(01,00,07);   # FAMILY NAME                   #
        ITEM ALT$FIND   U(01,42,03);   # FAMILY INDICATOR              #
        ITEM ALT$UNAM   C(02,00,07);   # USER NAME                     #
        ITEM ALT$UIND   U(02,42,03);   # USER INDICATOR                #
        ITEM ALT$ANAM   C(03,00,07);   # APPLICATION NAME              #
        ITEM ALT$AIND   U(03,42,03);   # APPLICATION INDICATOR         #
        ITEM ALT$WRD0   U(00,00,60);
        ITEM ALT$WRD1   U(01,00,60);
        ITEM ALT$WRD2   U(02,00,60);
        ITEM ALT$WRD3   U(03,00,60);
# 
****
# 
        END 
 
 
      ITEM ALTL;                       # AUTO LOGIN TABLE LENGTH       #
 
 
# 
**    CPMRQ - CPM REQUEST QUEUE.
* 
*     CPMRQ IS THE INPUT QUEUE TO ISSUE-CPM-REQUEST ROUTINE.  IT
*     CONTAINS CPM REQUEST 56B (VALID) AND/OR 73B (DECREMENT FAMILY 
*     COUNT). 
# 
      BASED ARRAY CPMRQ[00:00] S(1);
        BEGIN 
        ITEM CPM$WORD    U(00,00,60);   # FULL WORD REFERENCE          #
        END 
      ITEM CPMLNGTH   I;                # CPMRQ QUEUE LENGTH           #
 
# 
**    CTQ - CONNECTION TRAFFIC QUEUE. 
* 
*     CTQ IS THE INPUT QUEUE TO THE C-LAYER.  IT CONTAINS CONNECTION
*     SMS, PROTOCOL SMS, DATA BLOCKS, TERMINAL TEXT, AND PROTOCOL 
*     RESPONSE SMS. 
# 
      BASED ARRAY CTQ[00:00] S(1);
        BEGIN 
        ITEM CTQ$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM CTQLNGTH   I;               # CTQ QUEUE LENGTH              #
 
# 
**    IFMC - INCREMENTED FAMILY COUNT TABLE 
* 
*     THIS TABLE IS USED TO HOLD THE FAMILY NAMES AND THE NUMBER OF 
*     INCREMENTED FAMILY COUNT FOR THE PARTICULAR FAMILY NAME.
*     WHEN NAM CRASHES, THIS TABLE WILL BE USED TO DECREMENT ALL THE
*     FAMILY COUNTS THAT WERE INCREMENTED BY NVF. 
# 
      BASED ARRAY IFMC[00:00] S(1); 
        BEGIN 
        ITEM IFMC$WORD   U(00,00,60);   # FULL WORD REFERENCE          #
        ITEM IFMC$FNAM   C(00,00,07);   # FAMILY NAME                  #
        ITEM IFMC$COUNT  U(00,48,12);   # INCREMENTED FAMILY COUNT     #
        END 
      ITEM IFCLNGTH   I;               # IFC TABLE LENGTH              #
 
# 
**    OPTQ - OPERATOR TYPEIN QUEUE. 
* 
*     OPTQ IS THE INPUT QUEUE TO RECOGNIZE OPERATOR COMMAND PROCESS.
*     IT CONTAINS ALL INCOMING COMMANDS FROM THE HOP. 
# 
      BASED ARRAY OPTQ[00:00] S(1); 
        BEGIN 
        ITEM OPQ$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM OPQL       I;     # LENGTH OF OPERATOR TYPEIN QUEUE         #
 
 
# 
**    PEQ - PROTOCOL EVENT QUEUE. 
* 
*     PEQ RECEIVES ALL CONNECTION/OPERATOR RELATED ASYNCHROOUS
*     SUPERVISORY MESSAGES THAT MUST BE PROCESSED BY THE
*     HOP-PROTOCOL-EVENT PROCESS EXCEPT FOR THE FC/BRK SM,
*     WHICH IS PASSED TO THE INNER LAYER AS AN OPERATOR TYPEIN
*     (THE FC/BRK IS USED AS A PIPE CLEANER BETWEEN THE 
*     CONNECTION AND INNER LAYERS AND HENCE MUST BE PROCESSED 
*     AFTER(SYNCHRONOUS WITH) ANY TYPEINS ALREADY QUEUED FOR
*     THE INNER LAYER). 
# 
 
      BASED ARRAY PEQ[00:00] S(1);
        BEGIN 
        ITEM PEQ$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM PEQL       I;               # PEQ QUEUE LENGTH              #
 
 
# 
**    HCQ - HOP PROGRAM CONTROL QUEUE.
* 
*     HCQ IS THE INPUT QUEUE TO PERFORM PROGRAM CONTROL PROCESS.  IT
*     CONTAINS SMS PERTINENT TO COMMUNICATION BETWEEN THE HOP AND NVF 
*     FOR PROGRAM CONTROL.
# 
      BASED ARRAY HCQ[00:00] S(1);
        BEGIN 
        ITEM HCQ$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM HCQLNGTH   I;               # HCQ QUEUE LENGTH              #
 
# 
**    OTQ - OUTGOING TRAFFIC QUEUE. 
* 
*     OTQ CONTAINS OUTGOING SMS AND DATA BLOCKS FROM NVF TO NIP.
# 
      BASED ARRAY OTQ[00:00] S(1);
        BEGIN 
        ITEM OTQ$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM OTQLNGTH   I;               # OTQ QUEUE LENGTH              #
 
# 
**    PDCT - PASSIVE DEVICE CONNECTION TABLE
* 
*     PDCT TABLE CONTAINS AN ENTRY FOR EACH TERMINAL THAT IS A CLUSTER
*     TYPE TERMINAL, I.E., ONE THAT SUPPORTS BATCH DEVICES.  THIS IS A
*     VARIABLE ENTRY-SIZE TABLE, WITH EACH ENTRY CONTAINING CONSOLE 
*     INFORMATION FOLLOWED BY PASSIVE DEVICE INFORMATION.  THE CONSOLE
*     INFORMATION PORTION OF THE ENTRY HAS A FIXED SIZE OF *PDCTSIZ$* 
*     WORDS.  THE PASSIVE INFORMATION PORTION OF THE ENTRY IS VARIABLE
*     IN SIZE, DEPENDING ON THE NUMBER OF PASSIVE DEVICES, EACH DEVICE
*     TAKING UP ONE WORD. 
# 
      BASED ARRAY PDCT[00:00] S(1); 
        BEGIN 
        ITEM PDT$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        ITEM PDT$CN     C(00,00,07);   # TERMINAL NAME OF CONSOLE      #
        ITEM PDT$WC     U(00,54,06);   # NUMBER OF WORDS IN THIS ENTRY #
        ITEM PDT$CAPP   C(00,00,07);   # APPLICATION NAME              #
        ITEM PDT$CSTAT  U(00,45,03);   # STATE OF CONSOLE DEVICE       #
        ITEM PDT$CVCB   U(00,48,12);   # VCB ORDINAL OF CONSOLE DEVICE #
        ITEM PDT$FWORD  U(00,00,60);   # REFERENCE FAMILY WORD         #
        ITEM PDT$FNAM   C(00,00,07);   # FAMILY NAME                   #
        ITEM PDT$FORD   U(00,48,06);   # FAMILY ORDINAL                #
        ITEM PDT$UWORD  U(00,00,60);   # REFERENCE USER WORD           #
        ITEM PDT$AHMT   U(00,00,60);   # SYSTEM RESOURCE AVAIL TO USER #
        ITEM PDT$AHDS   U(00,00,60);   # SYSTEM RESOURCE AVAIL TO USER #
        ITEM PDT$AAWC   U(00,00,60);   # ACCESS CONTROL WORD           #
        ITEM PDT$ATWD   U(00,00,60);   # TERMINAL CHARACTERISTICS      #
        ITEM PDT$AAVW   U(00,00,60);   # APPLICATION VALIDATION WORD   #
        ITEM PDT$PN     C(00,00,07);   # TERMINAL NAME OF PASSIVE DEF  #
        ITEM PDT$PSTAT  U(00,45,03);   # STATE OF PASSIVE DEVICE       #
        ITEM PDT$PVCB   U(00,48,12);   # VCB ORDINAL OF PASSIVE DEVICE #
        END 
      ITEM PDTLNGTH   I;     # LENGTH OF PDCT TABLE                    #
 
# 
**
*E
**    PTAC - PENDING TERMINAL TO APPLICATION CONNECTION TABLE 
* 
*     PTAC TABLE CONTAINS AN ENTRY FOR EACH TERMINAL CONNECTED TO 
*     *NVF*.   THIS IS A FIXED ENTRY-SIZE TABLE.
* 
* 
*     THE FOLLOWING IS THE FORMAT OF A PTAC ENTRY.  EACH ENTRY
*TEXT 
*     IS 30-WORDS LONG. 
*ENDTEXT
* 
* 
*                 1         2         3         4         5 
*       012345678901234567890123456789012345678901234567890123456789
*TEXT 
*T,WORD0,42/TNAM,3/,1/I,1/E,1/A,12/ACN
*TEXT 
*T,WORD1,12/VCB,3/AB,4/SDT,4/DT,5/TC,4/DO,8/PW,8/PL,11/XBZ,1/I
*ENDTEXT
*T,WORD2,42/OCN,6/SL,11/DBZ,1/
*T,WORD3,30/CNTIME,30/SWTIME
*T,WORD4,42/FNAM,6/,6/FORD,1/ ,1/F,1/V,1/S,1/L,1/ 
*T,WORD5,6/UBZ,54/
*T,WORD6,42/UNUM,18/
*T,WORD7,42/SWTAPP,18/
*T,WORD8,60/
*T,WORD9,60/AHMT
*T,WORD10,60/AHDS 
*T,WORD11,12/AAWC,24/ABITS,24/
*T,WORD12,60/ATWD 
*T,WORD13,60/ASWI 
*T,WORD14,42/ALIFAM,3/FI,15/
*T,WORD15,42/ALIUSR,3/UI,15/
*T,WORD16,42/ALIAPP,3/AI,15/
*T,WORD17,42/ADSAPP,6/ASTOR,11/,1/V 
*TEXT 
*T,WORD18,42/VLTFAM,5/VLTF,3/USE,3/APP,4/STAT,3/PRO 
*ENDTEXT
*T,WORD19,42/VLTUSR,18/CNUM 
*TEXT 
*T,WORD20,42/VLTPW,9/ ,8/RC,1/A 
*T,WORD21,42/VLTAPP,6/UBZ,2/ ,7/INLGTH,1/D,1/P,1/I
*ENDTEXT
*TEXT 
*T,WORD22,60/CHARGE NUMBER
*T,WORD23,60/PROJECT NUMBER 
*T,WORD24,60/PROJECT NUMBER 
*TEXT 
*T,WORD25,30/LCNTIM,30/LSWTIM 
*T,WORD26,9/PRIAN,1/ ,8/LRC 
*T,WORD27,60/PID
*T,WORD28,60/PID
*T,WORD29,60/EXPDAT 
*ENDTEXT
*ENDTEXT
*ENDTEXT
* 
* 
# 
      BASED ARRAY PTAC[00:00] S(PTACSIZ$);
        BEGIN 
# 
****
# 
        ITEM PTA$TWORD  U(00,00,60);   # REFERENCE TERMINAL NAME WORD  #
        ITEM PTA$TN     C(00,00,07);   # TERMINAL NAME                 #
        ITEM PTA$TNAM   U(00,00,42);   # TERM NAME (INTEGER FIELD)     #
        ITEM PTA$NET    B(00,42,01);   # NETWORK TYPE                  #
        ITEM PTA$RCNA   B(00,43,01);   # CR/RCN/A SENT FLAG            #
        ITEM PTA$LCF    B(00,44,01);   # LOANED CONNECTION FLAG        #
        ITEM PTA$ICF    B(00,45,01);   # INTERACTIVE CAPABILITY FLAG   #
        ITEM PTA$SPTAC  B(00,46,01);   # SUB PTAC EXISTS FLAG          #
        ITEM PTA$ALIF   B(00,47,01);   # AUTO-LOGIN FLAG               #
        ITEM PTA$ACN    U(00,48,12);   # APPLICATION CONNECTION NUMBER #
        ITEM PTA$VCB    U(01,00,12);   # VCB ORDINAL                   #
        ITEM PTA$ABL    U(01,12,03);   # APPLICATION BLOCK LIMIT       #
        ITEM PTA$SDT    U(01,15,04);   # SUB-DEVICE TYPE               #
        ITEM PTA$DT     U(01,19,04);   # DEVICE TYPE                   #
        ITEM PTA$TC     U(01,23,05);   # TERMINAL CLASS                #
        ITEM PTA$DO     U(01,28,04);   # DEVICE ORDINAL                #
        ITEM PTA$PW     U(01,32,08);   # PAGE WIDTH                    #
        ITEM PTA$PL     U(01,40,08);   # PAGE LENGTH                   #
        ITEM PTA$XBZ    U(01,48,11);   # TRANSMISSION BLOCK SIZE       #
        ITEM PTA$IUVF   B(01,59,01);   # INITIAL USER VALIDATION FLAG  #
        ITEM PTA$OCN    C(02,00,07);   # OWNING CONSOLE NAME           #
        ITEM PTA$SL     U(02,44,04);   # SECURITY LEVEL                #
        ITEM PTA$DBZ    U(02,48,11);   # DOWNLINE BLOCK SIZE           #
        ITEM PTA$HW     B(02,59,01);   # HARDWIRED FLAG                #
        ITEM PTA$CNTIME U(03,00,30);   # CONNECT TIME - MODDHHMMSS     #
        ITEM PTA$SWTIME U(03,30,30);   # SWITCH TIME - MODDHHMMSS      #
        ITEM PTA$FWORD  U(04,00,60);   # REFERENCE FAMILY WORD         #
        ITEM PTA$FNAM   C(04,00,07);   # FAMILY NAME                   #
        ITEM PTA$FORD   U(04,45,09);   # FAMILY ORDINAL                #
        ITEM PTA$IFCTF  B(04,55,01);   # INCREMENT FAMILY COUNT FLAG   #
        ITEM PTA$DVERR  B(04,56,01);   # DEVICE ERROR FLAG             #
        ITEM PTA$SCINV  U(04,57,02);   # REF SECURITY CT AND INV LOGIN #
        ITEM PTA$SCEF   B(04,57,01);   # SECURITY COUNT EXHAUSTED FLAG #
        ITEM PTA$INVLF  B(04,58,01);   # INVALID LOGIN FLAG            #
        ITEM PTA$PWORD  U(05,00,60);   # REFERENCE PASSWORD            #
        ITEM PTA$PASSWD C(05,00,07);   # PASSWORD                      #
        ITEM PTA$UWORD  U(06,00,60);   # REFERENCE USER WORD           #
        ITEM PTA$UNUM   C(06,00,07);   # USER NUMBER                   #
        ITEM PTA$UIDX   U(06,42,18);   # USER INDEX                    #
        ITEM PTA$AWORD  U(07,00,60);   # REFERENCE APPLICATION WORD    #
        ITEM PTA$SWTAPP C(07,00,07);   # APPLICATION TO SWITCH TO      #
        ITEM PTA$SWTAN  U(07,42,09);   # SWITCHED APPL NUMBER          #
        ITEM PTA$VTP    U(07,52,08);   # VTP VERSION                   #
        ITEM PTA$AHMT   U(09,00,60);   # SYSTEM RESOURCE AVAIL TO USER #
        ITEM PTA$AHDS   U(10,00,60);   # SYSTEM RESOURCE AVAIL TO USER #
        ITEM PTA$AAWC   U(11,00,60);   # ACCESS CONTROL WORD           #
        ITEM PTA$CACA   B(11,33,01);   # CONCURRENT ACCESS ALLOWED     #
        ITEM PTA$COPI   B(11,34,01);   # PERSONAL ID NOT NEEDED        #
        ITEM PTA$WSV    B(02,42,01);   # WAIT FOR SECOND VALIDATION    #
        ITEM PTA$IFU    B(02,43,01);   # INVALID FAMILY/USER NAME      #
        ITEM PTA$ATWD   U(12,00,60);   # TERMINAL CHARACTERISTICS      #
        ITEM PTA$AAVW   U(13,00,60);   # APPLICATION VALIDATION WORD   #
        ITEM PTA$ALIFAM C(14,00,07);   # AUTO-LOGIN FAMILY NAME        #
        ITEM PTA$FAMIND U(14,42,03);   # MANDATORY/DEFAULT FAMILY      #
        ITEM PTA$AFWRD  U(14,00,60);
        ITEM PTA$ALIUSR C(15,00,07);   # AUTO-LOGIN USER NAME          #
        ITEM PTA$USRIND U(15,42,03);   # MANDATORY/DEFAULT USER        #
        ITEM PTA$AUWRD  U(15,00,60);
        ITEM PTA$ALIAPP C(16,00,07);   # AUTO-LOGIN APPLICATION NAME   #
        ITEM PTA$APPIND U(16,42,03);   # MANDATORY/PRIMARY APPLICATION #
        ITEM PTA$AAWRD  U(16,00,60);
        ITEM PTA$VDSAPP C(17,00,07);   # VALIDUS APPLICATION NAME      #
        ITEM PTA$VDSF   B(17,59,01);   # VALIDUS APPL EXIST FLAG       #
        ITEM PTA$VLTFAM C(18,00,07);   # VOLUNTEERED FAMILY NAME       #
        ITEM PTA$VLTF   U(18,42,05);   # REF ALL VOLUNTEERED FLAGS     #
        ITEM PTA$VFF    B(18,42,01);   # VOLUNTEERED FAMILY EXIST FLAG #
        ITEM PTA$VUF    B(18,43,01);   # VOLUNTEERED USER EXIST FLAG   #
        ITEM PTA$VPF    B(18,44,01);   # VOLUNTEERED PASSWD EXIST FLAG #
        ITEM PTA$VAF    B(18,45,01);   # VOLUNTEERED APPL EXIST FLAG   #
        ITEM PTA$VPIDF  B(18,46,01);   # VOLUNTEERED PERSONAL ID FLAG  #
        ITEM PTA$USERCT U(18,47,03);   # USER RETRY COUNT              #
        ITEM PTA$APPLCT U(18,50,03);   # APPLICATION RETRY COUNT       #
        ITEM PTA$STATE  U(18,53,04);   # STATE OF THIS TERMINAL        #
        ITEM PTA$PROMPT U(18,57,03);   # CURRENT PROMPT FOR TERMINAL   #
        ITEM PTA$VLTUSR C(19,00,07);   # VOLUNTEERED USER NAME         #
        ITEM PTA$CNUM   U(19,42,18);   # TIMER CANCELLATION NUMBER     #
        ITEM PTA$VLTPW  C(20,00,07);   # VOLUNTEERED PASSWORD          #
        ITEM PTA$RC     U(20,51,08);   # REASON CODE FOR CR/TRM SM     #
        ITEM PTA$AFF    B(20,59,01);   # APPLICATION FAILED FLAG       #
        ITEM PTA$VAWORD U(21,00,60);   # REF VOLUNTEERED APPL WORD     #
        ITEM PTA$VLTAPP C(21,00,07);   # VOLUNTEERED APPLICATION NAME  #
        ITEM PTA$UBZ    U(21,42,06);   # UPLINE BLOCK SIZE             #
        ITEM PTA$INLGTH U(21,50,07);   # CHARACTER LENGTH OF LOGIN LINE#
        ITEM PTA$INVPID B(21,57,01);   # INVALID PERSONAL ID ENTERED   #
        ITEM PTA$PWEXPF B(21,58,01);   # PASSWORD EXPIRATION DATE SET  #
        ITEM PTA$INVAF  B(21,59,01);   # INVALID APPLICATION FLAG      #
        ITEM PTA$LCNTIM U(25,00,30);   # LOAN CONNECT TIME             #
        ITEM PTA$LSWTIM U(25,30,30);   # LOAN SWITCH TIME              #
        ITEM PTA$PRIAN  U(26,00,09);   # PRI APPL NUMBER               #
        ITEM PTA$LRC    U(26,10,08);   # LOAN CONNECTION REASON CODE   #
        ITEM PTA$PID    C(27,00,20);   # PERSONAL IDENTIFIER FIELD     #
        ITEM PTA$APPPID C(27,00,07);   # PID ACTUALLY AN APPL ENTRY    #
        ITEM PTA$EXPDAT C(29,00,10);   # PASSWORD EXPIRATION DATE      #
 
        ITEM PTA$CHGNUM C(22,00,10);   # CHARGE NUMBER                 #
        ITEM PTA$PRJNUM C(23,00,20);   # PROJECT NUMBER                #
# 
****
# 
        END 
      ITEM PTALNGTH   I;               # LENGTH OF PTAC TABLE          #
 
# 
**    SPTAC - SUB PTAC TABLE. 
* 
*     THIS TABLE CONTAINS THE OPTIONAL WORDS OF THE CR/RCN/R SM 
*     FOR A LOANED CONNECTION TYPE. 
# 
      BASED ARRAY SPTAC[00:00] S(1);
        BEGIN 
        ITEM SPT$WORD   U(00,00,60);
        ITEM SPT$VCB    U(00,12,12);     # OWNING PTAC VCB ORDINAL     #
        ITEM SPT$ESIZE  U(00,48,12);     # ENTRY SIZE IN CM WORDS      #
        ITEM SPT$WRD2   U(01,00,60);
        END 
 
      ITEM SPTACL       I;               # LENGTH OF SPTAC TABLE       #
 
# 
**
* 
**    RAU - RESTRICTED APPLICATION USER TABLE.
* 
*     RAU TABLE CONTAINS AN ENTRY FOR EACH APPLICATION THAT CAN HAVE
*     ONLY 1 UNIQUE FAMILY/USER CONNECTED TO IT.  THIS IS A FIXED 
*     ENTRY-SIZE TABLE. 
* 
* 
*     THE FOLLOWING IS THE FORMAT OF A RAU ENTRY.  EACH ENTRY 
*     IS 1-WORD LONG. 
* 
* 
*                 1         2         3         4         5 
*       012345678901234567890123456789012345678901234567890123456789
*TEXT 
*TEXT 
*T,9/AN,21/,18/UIDX,3/,9/FORD 
*ENDTEXT
*ENDTEXT
* 
* 
# 
      BASED ARRAY RAU[00:00] S(RAUSIZ$);
        BEGIN 
# 
****
# 
        ITEM RAU$AN     U(00,00,09);   # APPLICATION NUMBER            #
        ITEM RAU$FNAM   C(01,00,07);   # FAMILY NAME                   #
        ITEM RAU$UIDX   U(01,42,18);   # USER INDEX                    #
# 
****
# 
        END 
      ITEM RAULNGTH   I;               # LENGTH OF RAU TABLE           #
 
# 
**
* 
**    RML - RESTRICT MULTIPLE LOGINS TABLE. 
* 
*     THE RML TABLE CONTAINS AN ENTRY FOR EACH INTERACTIVE USER WHICH 
*     IS RESTRICTED MULTIPLE CONCURRENT LOGINS. 
* 
*     THE FOLLOWING IS THE FORMAT OF A RML ENTRY.  EACH ENTRY 
*     IS 1-WORD LONG. 
* 
*TEXT 
*T,42/FAMILY NAME,18/USER INDEX 
*ENDTEXT
* 
* 
# 
      BASED ARRAY RML[00:00] S(RMLSIZ$);
        BEGIN 
# 
****
# 
        ITEM RML$FNAM   C(00,00,07);   # FAMILY ORDINAL                #
        ITEM RML$UIDX   U(00,42,18);   # USER INDEX                    #
# 
****
# 
        END 
      ITEM RMLLNGTH   I;               # LENGTH OF RML TABLE           #
 
# 
**    TAINPQ - TERMINAL TO APPLICATION INPUT QUEUE. 
* 
*     TAINPQ IS THE INPUT QUEUE TO THE T-A PROCESS.  IT CONTAINS
*     CONNECTION SMS, PROTOCOL SMS, AND DATA BLOCKS.  EACH ENTRY IS 
*     COPIED TO A FIXED BUFFER PRIOR TO BEING PROCESSED.
# 
      BASED ARRAY TAINPQ[00:00] S(1); 
        BEGIN 
        ITEM TAQ$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM TAQLNGTH   I;               # TAINPQ QUEUE LENGTH           #
 
# 
**    TRQ - TIMER REQUEST QUEUE.
* 
*     TRQ IS USED TO RETAIN TIMER REQUESTS UNTIL THE TIME 
*     HAS EXPIRED.  THEN THE TIMER REQUEST BLOCK IS RETURNED
*     TO THE REQUESTOR.  IT IS USED ONLY BY THE FOLLOWING 
*     SS ROUTINES:  
*       *SSCATR*  *SSCCTR*  *SSCRTR*
# 
      BASED ARRAY TRQ[00:00] S(1);
        BEGIN 
        ITEM TRQ$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM TRQLNGTH   I;               # TRQ QUEUE LENGTH              #
 
# 
**    USQ - UNSOLICITED STATUS QUEUE. 
* 
*     USQ IS THE INPUT QUEUE TO UPDATE-HISTORY-BUFFER PROCESS.
*     IT CONTAINS REPORTS OF SIGNIFICANT EVENTS, PERTINENT TO NVF,
*     OCCURRING IN THE NETWORK WHICH MAY REQUIRE OPERATOR ATTENTION.
# 
      BASED ARRAY USQ[00:00] S(1);
        BEGIN 
        ITEM USQ$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM USQLNGTH   I;               # USQ QUEUE LENGTH              #
 
# 
**    HSBUF - HISTORY BUFFER. 
* 
*     HSBUF CONTAINS REPORTS OF SIGNIFICANT EVENTS, PERTINENT TO NVF
*     OCCURRING IN THE NETWORK WHICH MAY REQUIRE OPERATOR ATTAEENTION.
*     IT IS A SUBSET OF UNSOLICITED-STATUS-QUEUE (USQ). 
# 
 
      BASED ARRAY HSBUF[00:00] S(1);
        BEGIN 
        ITEM HSB$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        ITEM HSB$ZERO   U(00,48,12);   # ZERO BYTE TERMINATOR          #
        END 
      ITEM HSBL;             # HISTORY BUFFER LENGTH                   #
 
 
# 
**    VCBRDQ - VCB (VALIDATION CONTROL BLOCK) READ DATA QUEUE.
* 
*     VCBRDQ IS THE INPUT QUEUE TO RECEIVE-VCB-DATA PROCESS.  IT
*     CONTAINS INFORMATION PERTAINING TO A CONNECTION THAT HAS BEEN 
*     SUCCESSFULLY SWITCHED TO AN APPLICATION.
# 
      BASED ARRAY VCBRDQ[00:00] S(1); 
        BEGIN 
        ITEM VRD$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM VRDLNGTH   I;               # VCBRDQ QUEUE LENGTH           #
 
# 
**    VSQ - VCB (VALIDATION CONTROL BLOCK) SERIAL-SEARCH REQUEST QUEUE. 
* 
*     VSQ IS THE INPUT QUEUE TO THE PROCESS-SERIAL-SEARCH-REQUEST 
*     ROUTINE.  IT CONTAINS REQUEST(S) FOR AN ENTRY(IES) IN THE 
*     VCB FILE THAT MATCHES A GIVEN SET OF VALUES.
# 
      BASED ARRAY VSQ[00:00] S(1);
        BEGIN 
        ITEM VSQ$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM VSQL       I;               # VSQ QUEUE LENGTH              #
 
# 
**    VCBSSQ - VCB (VALIDATION CONTROL BLOCK) SERIAL SEARCH DATA QUEUE. 
* 
*     VCBSSQ IS THE DESTINATION QUEUE FOR DATA FROM A SERIAL SEARCH OF
*     THE VCB FILE.  IT CONTAINS DATA IN THE FORMAT OF ONE VCB RECORD 
*     PER ENTRY.  IT IS BUILT BY *NVFVDCD* AND PROCESSED BY *NVFVFSD*.
*     THE DEFINED ARRAY ENTRY SIZE IS ONE WORD TO FACILITATE STORAGE
*     MOVING. 
# 
      BASED ARRAY VCBSSQ[00:00] S(1); 
        BEGIN 
        ITEM VSS$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM VSSLNGTH   I;               # VCBSSQ QUEUE LENGTH           #
 
# 
**    VDATAQ - VALIDATION DATA QUEUE. 
* 
*     VDATAQ IS THE INPUT QUEUE TO VERIFY-VALIDATION-DATA PROCESS.  IT
*     CONTAINS VALIDATION DATA RETURNED FOR A CPM 56B REQUEST.  EACH
*     ENTRY IS COPIED TO A FIXED BUFFER PRIOR TO BEING PROCESSED. 
# 
      BASED ARRAY VDATAQ[00:00] S(1); 
        BEGIN 
        ITEM VDQ$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM VDQLNGTH   I;               # VDATAQ QUEUE LENGTH           #
 
# 
**    VRQ - VCB (VALIDATION CONTROL BLOCK) REQUEST QUEUE. 
* 
*     VRQ IS THE INPUT QUEUE TO READ-VCB-FILE ROUTINE.  IT CONTAINS 
*     READ/WRITE VCB FILE REQUEST.
# 
      BASED ARRAY VRQ[00:00] S(1);
        BEGIN 
        ITEM VRQ$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        END 
      ITEM VRQLNGTH   I;               # VRQ QUEUE LENGTH              #
 
# 
**    VWBT - VCB WRITE BLOCK TABLE. 
* 
*     VWBT IS THE DESTINATION TABLE FOR DATA FROM A VCB WRITE REQUEST.
*     IT CONTAINS DATA IN THE FORMAT OF ONE VCB RECORD PER ENTRY.  IT 
*     IS BUILD BY *NVFVDCD* AND PROCESSED BY *NVFVWVF*. 
# 
      BASED ARRAY VWBT[00:00] S(VBRECDN$);
        BEGIN 
        ITEM VWB$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        ITEM VWB$ORD    U(00,48,12);   # VCB ORDINAL                   #
        ITEM VWB$RPA    U(00,48,09);   #   RELATIVE PRU ADDRESS        #
        ITEM VWB$ENTRY  U(00,57,03);   #   ENTRY NUMBER                #
        END 
      ITEM VWBLNGTH   I;               # VWBT TABLE LENGTH             #
 
# 
**    VWT - VCB WRITE REQUEST TABLE.
* 
*     VWT CONTAINS PENDING WRITE REQUESTS.  IT IS BUILT BY *NVFVRVF*
*     AND PROCESSED BY *NVFVDCD*. 
# 
      BASED ARRAY VWT[00:00] S(VBESIZN$); 
        BEGIN 
        ITEM VWT$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        ITEM VWT$ORD    U(00,48,12);   # VCB ORDINAL                   #
        END 
      ITEM VWTLNGTH   I;               # VWT TABLE LENGTH              #
 
 
 
 
# 
**    WBQ - WAITING BLOCK QUEUE.
* 
*     THIS QUEUE CONTAINS BLOCKS FOR ALL ACN S THAT CANNOT BE SENT. 
*     THE CONNECTION MAY NOT HAVE BEEN INITIALIZED OR THE OUTSTANDING 
*     BLOCK COUNT MAY BE AT LIMIT OR IN A INHIBITED OR WAITING STATE. 
* 
# 
      BASED ARRAY WBQ[00:00] S(1);
        BEGIN 
        ITEM WBQ$WORD   U(00,00,60);   # FULL WORD REFERENCE           #
        ITEM WBQ$LICNT  U(00,12,12);   # HOP LINE COUNT                #
        ITEM WBQ$ESIZE  U(00,48,12);   # ENTRY SIZE IN CM WORDS        #
        ITEM WBQ$ABT    U(01,00,06);   # APP. BLOCK TYPE               #
        ITEM WBQ$ABHACN U(01,06,12);   # ACN IN ABH                    #
        ITEM WBQ$ABN    U(01,18,18);   # APPLICATION BLOCK NUMBER      #
        ITEM WBQ$ACT    U(01,36,04);   # APP. CHARACTER TYPE           #
        ITEM WBQ$NCP    U(00,43,01);   # NO CURSOR POSITION FLAG      # 
        ITEM WBQ$NFE    U(01,44,01);   # NO FORMAT EFFECTOR            #
        ITEM WBQ$TLC    U(01,48,12);   # TEXT LENGTH                   #
        ITEM WBQ$PSFC   U(02,00,16);   # PSC/SFC IN SM                 #
        ITEM WBQ$CRSACN U(02,24,12);   # ACN IN CR/SWT                 #
        ITEM WBQ$HIAF   B(02,59,01);   # HOP INPUT ALLOWED FLAG        #
        END 
      ITEM WBQLNGTH   I;     # LENGTH OF WBQ TABLE                     #
 
 
 
 
# 
**    IWBQ - INCOMING WAITING BLOCK QUEUE.
* 
*     THIS QUEUE IS USED TO BUFFER BLK BLOCKS AS THEY COME INTO NVF.
*     THESE BLOCKS ARE KEPT HERE UNTIL THE MSG BLOCK COMES IN 
*     INDICATING THE END OF THE TEXT.  THE BLOCK IS THEN SENT TO THE
*     INNER LAYER FOR PROCESSING AND EDITING. 
# 
      BASED ARRAY IWBQ [00:00] S(1);
        BEGIN 
        ITEM IWQ$WORD   I(00,00,60);   # FULL WORD REFERENCE           #
        ITEM IWQ$ACN    U(00,06,12);   # ACN VALUE OF BLK BLOCK        #
        ITEM IWQ$WC     U(00,48,12);   # ENTRY WORD COUNT              #
        END 
      ITEM IWBQL      I;               # IWBQ TABLE LENGTH             #
 
 
 
 
# 
**
*E
**    PAAC - PENDING A-A CONNECTION TABLE.
* 
*     THIS QUEUE HOLDS THE PENDING CONNECTION ENTRIES FOR APPLI-
*     CATION TO APPLICATION CONNECTIONS.
* 
* 
*     THE FOLLOWING IS THE FORMAT OF A PAAC ENTRY.  EACH ENTRY
*     IS 15-WORDS LONG. 
* 
* 
*                 1         2         3         4         5 
*       012345678901234567890123456789012345678901234567890123456789
*TEXT 
*T,WORD0,18/RHID,4/MOD,2/,12/NACN,12/ACN,12/VCB 
*T,WORD1,4/SL,2/,4/ST,2/,8/IAPRC,1/ ,24/ABITS,4/DT,3/HR,8/PORT
*T,WORD2,42/IAPNM,8/IAPAN,1/ ,9/IAPAST
*T,WORD3,42/RAPNM,8/RAPAN,1/ ,9/RAPAST
*T,WORD4,42/FAM,6/FORD,7/,1/F,1/P,2/SC,1/ 
*T,WORD5,42/USER,18/USRIDX
*T,WORD6,30/OUTCUR(INCUR),30/OUTNXT(INNXT)
*T,WORD7,30/CNTIME,30/SWTIME
*T,WORD8,42/SWAP,8/SWAPAN,1/ ,9/SWAPAST 
*T,WORD9,8/NUMOUT,1/ ,8/SNODE,1/ ,8/DNOD,34/
*T,WORD10,60/AAWC 
*T,WORD11,60/ 
*T,WORD12,60/ 
*T,WORD13,60/ 
*T,WORD14,60/ 
*ENDTEXT
* 
* 
# 
 
      BASED ARRAY PAAC [00:00] S(PAACSIZ$); 
        BEGIN 
# 
****
# 
        ITEM PA$RHID    C(00,00,03);     # REMOTE HOST ID # 
        ITEM PA$URHID   U(00,00,18);
        ITEM PA$MODE    U(00,18,04);     # MULTI ORSINGLE HOST MODE # 
        ITEM PA$NACN    U(00,24,12);     # NVF ACN #
        ITEM PA$ACN     U(00,36,12);     # CONNECTED APPL ACN # 
        ITEM PA$VCB     U(00,48,12);     # VCB ORDINAL OF CONNECTION #
        ITEM PA$SL      U(01,00,04);     # SECURITY OR ACCESS LEVEL # 
        ITEM PA$ICMCN   B(01,05,01);     # THIS IS AN INCOMMING CONN #
        ITEM PA$STATE   U(01,06,06);     # STATE OF PAAC #
        ITEM PA$IAPRC   U(01,12,08);     # REASON CODE FROM CR/IAP/R #
        ITEM PA$DT      U(01,21,04);     # DEVICE TYPE,5=INTR,6=INTER # 
        ITEM PA$ICT     U(01,27,04);     # INPUT CHAR TYPE #
        ITEM PA$SMAN    U(01,31,09);     # CR/IAP/SM APPL NUM (REPEAT)# 
        ITEM PA$IAPNM   C(02,00,07);     # CALLING APPL NAME #
        ITEM PA$IAPAN   U(02,42,09);     # CALLING APPL NUMBER #
        ITEM PA$WORD3   U(03,00,60);
        ITEM PA$RAPNM   C(03,00,07);     # CALLED APPL NAME # 
        ITEM PA$RAPAN   U(03,42,09);     # CALLED APPL NUMBER # 
        ITEM PA$VAL0    U(04,00,60);     # VALIDATION WORD 0 #
        ITEM PA$FAM     C(04,00,07);     # FAMILY NAME #
        ITEM PA$FORD    U(04,48,06);     # FAMILY ORDINAL # 
        ITEM PA$UPFCF   B(04,55,01);     # INC FAM COUNT FLAG # 
        ITEM PA$UPWF    B(04,56,01);     # USE PASSWORD FLAG #
        ITEM PA$SCINV   U(04,57,02);     # REF SEC COUNT & INV LOGIN #
        ITEM PA$SCEF    B(04,57,01);     # SEC COUNT EXHAUSTED FLAG # 
        ITEM PA$INVLF   B(04,58,01);     # INVALID LOGIN FLAG # 
        ITEM PA$VAL1    U(05,00,60);     # VALIDATION WORD 1 #
        ITEM PA$VAL2    U(06,00,60);     # VALIDATION WORD 2 #
        ITEM PA$USER    C(06,00,07);     # USER NAME #
        ITEM PA$USRIDX  U(06,42,18);     # USER INDEX # 
        ITEM PA$OUTCUR  U(05,00,30);     # CURRENT OUTCALL RWD #
        ITEM PA$INCUR   U(05,00,30);     # CURRENT INCALL RWD # 
        ITEM PA$OUTNXT  U(05,30,30);     # NEXT OUTCALL RWD # 
        ITEM PA$INNXT   U(05,30,30);     # NEXT INCALL RWD #
        ITEM PA$VAL3    U(07,00,60);     # VALIDATION WORD 3 #
        ITEM PA$CNTIME  U(07,00,30);     # CONNECT TIME # 
        ITEM PA$SWTIME  U(07,30,30);     # SWITCH TIME #
        ITEM PA$VAL4    U(08,00,60);     # VALIDATION WORD 4 #
        ITEM PA$VAL5    U(09,00,60);     # VALIDATION WORD 5 #
        ITEM PA$AHMT    U(09,00,60);     # RESOURCE AVAILABLE TO USER # 
        ITEM PA$VAL6    U(10,00,60);     # VALIDATION WORD 6 #
        ITEM PA$AHDS    U(10,00,60);     # RESOURCE AVAILABLE TO USER # 
        ITEM PA$VAL7    U(11,00,60);     # VALIDATION WORD 7 #
        ITEM PA$AAWC    U(11,00,60);     # ACCESS CONTROL WORD #
        ITEM PA$ABITS   U(11,12,24);     # REF APPL BITS OF AAWC #
        ITEM PA$VAL8    U(12,00,60);     # VALIDATION WORD 8 #
        ITEM PA$ATWD    U(12,00,60);     # UNUSED VALIDATION WORD # 
        ITEM PA$VAL9    U(13,00,60);     # VALIDATION WORD 9 #
        ITEM PA$AAVW    U(13,00,60);     # APPLICATION VALIDATION WORD #
        ITEM PA$SWAP    C(14,00,07);     # SWITCHED APPL NAME # 
        ITEM PA$SWAPAN  U(14,42,09);     # SWITCHED APPL AN # 
        ITEM PA$NUMOUT  U(15,00,08);     # NUMBER OUTCALL ATTEMPTS #
        ITEM PA$VSTATE  U(15,27,06);     # VCB STATE #
        ITEM PA$SMSIZ   U(15,33,08);     # WRD LENGTH OF RAP #
        ITEM PA$FACWRD  U(15,41,08);     # START WORD FOR SM FACS # 
        ITEM PA$FACSBIT U(15,49,08);     # START BIT FOR SM FACS #
        ITEM PA$ICWRD2  U(16,00,60);     # INCALL BLK WRD 2 # 
        ITEM PA$PRI     B(16,00,01);     # PRIORITY FLAG #
        ITEM PA$DBL     U(16,04,08);     # DOWNLINE BLK LIMIT # 
        ITEM PA$DBZ     U(16,12,16);     # DOWNLINE BLK SIZE #
        ITEM PA$ABL     U(16,28,08);     # APPL BLK LIMIT # 
        ITEM PA$UBL     U(16,36,08);     # UPLINE BLK LIMIT # 
        ITEM PA$UBZ     U(16,44,08);     # UPLINE BLK SIZE #
        ITEM PA$PORT    U(16,52,08);     # ACCESS PORT #
        ITEM PA$ICWRD3  U(17,00,60);     # INCALL BLK WORD 3 #
        ITEM PA$WS      U(17,16,04);     # WINDOW SIZE #
        ITEM PA$DPLS    U(17,20,08);     # DATA PACKET LEN #
        ITEM PA$WININ   U(17,28,04);     # WIN SIZE IN #
        ITEM PA$WINOUT  U(17,32,04);     # WIN SIZE OUT # 
        ITEM PA$DPLIN   U(17,36,08);     # PKT SIZE IN #
        ITEM PA$DPLOUT  U(17,44,08);     # PKT SIZE OUT # 
        ITEM PA$RHWRD   U(00,00,60);
        ITEM PA$CNWRD   U(01,00,60);
        ITEM PA$IAPWRD  U(02,00,60);
        ITEM PA$RAPWRD  U(03,00,60);
        ITEM PA$FWORD   U(04,00,60);
        ITEM PA$UWORD   U(06,00,60);
        ITEM PA$TIMWRD  U(07,00,60);
        ITEM PA$SWAPWRD U(14,00,60);
        ITEM PA$LLWRD   U(15,00,60);
        ITEM PA$RAPSM   U(18,00,60);     # CR/RAP/N SM AREA # 
        ITEM PA$RAPSM0  U(18,00,60);     # WRD 0 OF RAP SM #
        ITEM PA$RAPSM1  U(19,00,60);     # WRD 1 OF RAP SM #
        ITEM PA$RAPSM2  U(20,00,60);     # WRD 2 OF RAP SM #
        ITEM PA$RAPSM3  U(21,00,60);     # WRD 3 OF RAP SM #
        ITEM PA$RAPSM4  U(22,00,60);     # WRD 4 OF RAP SM #
        ITEM PA$SNODE   U(20,00,08);     # SOURCE NODE #
        ITEM PA$DNOD    U(20,08,08);     # DESTINATION NODE # 
        ITEM PA$WSIZ    U(20,16,08);     # WINDOW SIZE #
        ITEM PA$PSIZ    U(20,24,08);     # PKT SIZE # 
        ITEM PA$DTEL    U(20,32,08);     # ZERO LEN DTE LEN # 
        ITEM PA$FCL     U(20,40,08);     # FACILITY OCTET LEN # 
        ITEM PA$NOFAC   U(20,48,12);     # EMPTY SPACE #
        ITEM PA$CNUM    U(23,00,18);     # CANCELLATION NUMBER #
        ITEM PA$LID     C(23,18,03);     # LOGICAL IDENTIFIER          #
        ITEM PA$ULID    U(23,18,18);
        ITEM PA$PID     C(23,36,03);     # PHYSICAL IDENTIFIER         #
        ITEM PA$UPID    U(23,36,18);
        ITEM PA$LPIDFC  U(23,54,06);     # LID/PID FUNCTION CODE       #
        ITEM PA$CUACPID U(24,00,11);     # CURRENT ACPID LOCATION      #
        ITEM PA$NXACPID U(24,11,11);     # NEXT ACPID LOCATION         #
        ITEM PA$LIDSTAT U(24,22,08);     # LID STATUS                  #
        ITEM PA$PIDSTAT U(24,30,08);     # PID STATUS                  #
        ITEM PA$ACPIDL  U(24,38,08);     # LEN OF ACPID ENTRY          #
        ITEM PA$PIDBIAS U(24,46,08);     # PID ENTRY BIAS TO ACPID ETRY#
        ITEM PA$ACPIDNUM U(25,00,08);    # NUMBER OF PIDS IN ACPID     #
        ITEM PA$IAPPIDF B(25,30,01);     # IAP SM PID SPECIFIED FLAG   #
        ITEM PA$IAPSFF  B(25,33,01);     # IAP STORE/FORWARD PID FLAG  #
        ITEM PA$OUTSPEC B(25,36,01);     # OUTCALL PARMS ON CR/IAP SM  #
        ITEM PA$PATHNXT U(25,37,11);     # NEXT PATH AVAIL IN LLPID    #
        ITEM PA$PIDCUR  U(25,48,12);     # CUR PID LOCATION IN LLPID   #
        END 
 
# 
****
# 
 
      ITEM PACLNGTH     I;               # LENGTH OF PAAC TABLE # 
 
# 
**    AAINPQ - APPL TO APPL INPUT QUEUE.
* 
*     THIS QUEUE IS THE INPUT QUEUE TO THE A-A PROCESS. 
# 
 
      BASED ARRAY AAINPQ [00:00] S(1);
        BEGIN 
        ITEM AAQ$WORD   U(00,00,60);     # FULL WORD REF #
        END 
 
      ITEM AAQL  I;                      # LEN OF AAINPQ #
 
 
 
 
 
# 
**    OUTSMQ - OUTCALL REQUEST MESSAGE QUEUE. 
* 
*     THIS QUEUE IS THE MAIN INPUT QUEUE FOR THE OUTCALL REQUEST
*      OVERLAY. IT WILL CONTAIN CR/IAP/R SMS. 
# 
 
      BASED ARRAY OUTSMQ [00:00] S(1);
        BEGIN 
        ITEM OUTS$WORD    U(00,00,60);     # WORD REFERENCE # 
        END 
 
      ITEM OUTSMQL           I;          # LENGTH OF OUTSMQ # 
 
# 
**    INSMQ - INCALL MESSAGE QUEUE. 
* 
*     THIS QUEUE IS THE MAIN INPUT QUEUE FOR THE INCALL REQUEST 
*     OVERLAY. IT WILL CONTAIN CR/RAP/R SMS.
# 
 
      BASED ARRAY INSMQ [00:00] S(1); 
        BEGIN 
        ITEM INS$WORD   U(00,00,60);     # WORD REFERENCE # 
        END 
 
      ITEM INSMQL       I;               # LENGTH OF INSMQ #
 
 
# 
**    AAVCBRDQ - A-A VCB RECEIVE DATA QUEUE.
* 
*     RECEIVE VCB DATA QUEUE FOR A-A. 
# 
 
      BASED ARRAY AAVCBRDQ [00:00] S(1);
        BEGIN 
        ITEM AAVC$WORD  U(00,00,60);
        END 
 
      ITEM AAVCLNGTH    I;               # AAVCDATAQ LENGTH # 
 
# 
**    FACTAB - TABLE FOR HOLDING THE FACILITY PAIRS FOR A-A.
# 
 
      BASED ARRAY FACTAB [00:00] S(1);
        BEGIN 
        ITEM FACT$WORD  U(00,00,60);
        END 
 
      ITEM FACTABL      I;               # LENGTH OF FACTAB # 
 
# 
*     LLPID - LOGICAL LINK TO PID TABLE.
# 
 
      BASED ARRAY LLPID [00:00] S(1); 
        BEGIN 
        ITEM LLP$WORD   U(00,00,60);     # WORD REFERENCE # 
        ITEM LLP$PNAME  C(00,00,03);     # PID NAME # 
        ITEM LLP$ACLL   U(00,37,11);     # ACTIVE LOG LINKS FOR PID # 
        ITEM LLP$PIDSTAT B(00,48,01);    # PID ACCESSIBLE FLAG #
        ITEM LLP$LLCNT  U(00,49,11);     # LOG LINKS DEFINED FOR PID #
        ITEM LLP$WORD1  U(01,00,60);     # WORD 1 REFERENCE # 
        ITEM LLP$DN     U(01,00,08);     # DESTINATION NODE OF LLINK #
        ITEM LLP$SN     U(01,08,08);     # SOURCE NODE OF LLINK # 
        ITEM LLP$PORT   U(01,16,08);     # NPU CALL ACCESS PORT # 
        ITEM LLP$DTEL   U(01,24,08);     # CALLED DTE ADDR LENGTH # 
        ITEM LLP$LLSTAT B(01,59,01);     # LLINK STATUS # 
        ITEM LLP$DTEA   U(02,00,60);     # DTE ADDRESS #
        END 
 
      ITEM LLPIDL       I;               # LENGTH OF LLPID TABLE #
 
# 
**    ACPID - ACTIVE PID TABLE. 
* 
*     THIS TABLE CONTAINS ENTRIES FOR EACH A-A CONNECTION THAT
*     DICTATES THE USE OF LID/PID ATTRIBUTES IN ORDER TO
*     ESTABLISH AN A-A OUTCALL. 
# 
      BASED ARRAY ACPID [00:00] S(1); 
        BEGIN 
        ITEM ACP$WORD0       U(00,00,60); 
        ITEM ACP$WORD1       U(01,00,60); 
        ITEM ACP$WORD2       U(02,00,60); 
        ITEM ACP$WORD3       U(03,00,60); 
        ITEM ACP$SMID        U(00,00,12);   # ENTRY IDENTIFIER         #
        ITEM ACP$ESIZ        U(00,48,12);   # ENTRY SIZE IN CM WORDS   #
        ITEM ACP$VCB         U(01,18,18);   # OWNING PAAC VCB ORDINAL  #
        ITEM ACP$FC          U(02,00,12);   # FUNCTION CODE - SETPIDA  #
        ITEM ACP$SPANP       U(02,12,12);   # NUNBER PIDS - SETPIDA    #
        ITEM ACP$SPARES1     U(02,24,11);   # RESERVED                 #
        ITEM ACP$SPANWID     B(02,35,01);   # NETWORD ID-SETPIDA       #
        ITEM ACP$SPARES2     U(02,36,06);   # RESERVED                 #
        ITEM ACP$RC          U(02,42,08);   # RETURN REASON CODE       #
        ITEM ACP$RES3        U(02,50,10);   # RESERVED                 #
        ITEM ACP$CBIT        B(02,59,01);   # FET BUSY BIT             #
        ITEM ACP$SPAPID      C(03,00,03);   # 3 CHAR PID-SETPIDA       #
        ITEM ACP$SPAUPID     U(03,00,18); 
        ITEM ACP$SPARES3     U(03,18,38);   # RESERVED                 #
        ITEM ACP$SPAST       U(03,56,04);   # RETURN NETWORK STATUS    #
        ITEM ACP$GLCWC       U(02,00,12);   # WORD COUNT-GETLIDC       #
        ITEM ACP$GLCRES1     U(02,12,30);   # RESERVED                 #
        ITEM ACP$GLCLID      C(03,00,03);   # 3 CHAR LID-GETLIDC       #
        ITEM ACP$GLCULID     U(03,00,18); 
        ITEM ACP$GLCRES2     U(03,18,30);   # RESERVED                 #
        ITEM ACP$GLCNP       U(03,48,12);   # NUMBER PIDS-GETLIDC      #
        ITEM ACP$GLCPID      C(04,00,03);   # 3 CHAR PID 1-GETLIDC     #
        ITEM ACP$GLCUPID     U(04,00,18); 
        ITEM ACP$GLCSF       B(04,18,01);   # STORE AND FORWARD-GETLIDC#
        ITEM ACP$GLCRES3     U(04,19,37);   # RESERVED                 #
        ITEM ACP$GLCST       U(04,56,04);   # RET PID STATUS-GETLIDC   #
        ITEM ACP$GPAPID      C(02,00,03);   # 3 CHAR PID-GETPIDA       #
        ITEM ACP$GPAUPID     U(02,00,18); 
        ITEM ACP$GPARES1     U(02,18,24);   # RESERVED                 #
        ITEM ACP$GPARPID     C(03,00,03);   # 3 CHAR PID-GETPIDA       #
        ITEM ACP$GPARUPID    U(03,00,18); 
        ITEM ACP$GPARES2     U(03,18,38);   # RESERVED                 #
        ITEM ACP$GPAST       U(03,56,04);   # RET PID STATUS-GETPIDA   #
        END 
 
      ITEM ACPIDL            I;            # ACPID TABLE LENGTH        #
# 
**    AALPID - A-A LID/PID FUNCTION QUEUE.
* 
*     THIS IS AN INPUT QUEUE TO THE MAIN A-A DISPATCHER.
*     IT CONTAINS STATUS QUEUE ENTRIES FROM COMPLETED 
*     GETLIDC AND GETPIDA SFM FUNCTION REQUESTS.
# 
      BASED ARRAY AALPID [00:00] S(1);
        BEGIN 
        ITEM AAL$WORD        U(00,00,60); 
        END 
 
      ITEM AALPIDL           I;          # LENGTH OF AALPID TABLE      #
 
# 
**    LPIDFXQ - LID/PID FUNCTION QUEUE. 
* 
*     THIS QUEUE IS AN INPUT QUEUE TO THE OUTCALL REQUEST OVERLAY.
*     IT CONTAINS THE COMPLETED STATUS FROM A GETLIDC OR GETPIDA
*     RA+1 FUNCTION CALL. 
# 
      BASED ARRAY LPIDFXQ [00:00] S(1); 
        BEGIN 
        ITEM LP$WC           U(00,48,12);   # ENTRY SIZE IN CM WORDS   #
        ITEM LP$VCB          U(01,24,12);   # OWNING PAAC VCB          #
        END 
 
      ITEM LPIDFXQL          I;             # LENGTH OF LPIDFXQ        #
 
# 
**    APOUTCL - APPLICATION SUPPLIED OUTCALL PARAMETERS 
* 
*     THIS TABLE IS USED TO HOLD THE APPLICATION SUPPLIED OUTCALL 
*     PARAMETERS WHICH MAY BE SPECIFIED IN THE CR/IAP/R SM. 
# 
      BASED ARRAY APOUTCL [00:00] S(1); 
        BEGIN 
        ITEM APO$VCB      U(00,36,12);      # OWNING PAAC VCB          #
        ITEM APO$WC       U(00,48,12);      # ENTRY SIZE IN CM WORDS   #
        ITEM APO$WORD     U(00,00,60);      # FULL WORD REFERENCE      #
        END 
 
      ITEM APOUTCLL       I;                # LENGTH OF APOUTCL        #
 
# 
**    TEND - DUMMY LAST TABLE.
* 
*     TEND TABLE SERVES NO PURPOSE EXCEPT TO TERMINATE THE VECTOR OF
*     TABLE POINTERS USED BY THE *TABLE MANAGER*. 
# 
      BASED ARRAY TEND[00:00] S(1); 
        BEGIN 
        ITEM TND$FL     I(00,00,60);   # CONTAINS ADDRESS AT END OF FL #
        END 
      ITEM TNDTEND    I;               # CONTAINS TOTAL STORAGE USED   #
 
      END  # END TABLES # 
 
      END  # END TEXTNVF #
 
TERM