Retro1.org codex

*DECK     TEXTCS
PROC TEXTCS;
# TITLE TEXTCS - SYMPL TEXT FOR CS.  #
 
      BEGIN  # TEXTCS # 
# 
**    TEXTCS - SYMPL TEXT FOR CS. 
* 
*     D. G. DEPEW           81/08/12. 
*     C. J. BRION           82/04/23. 
*     A. LIM                82/06/10. 
* 
*     THIS PROC GENERATES A SYMPL TEXT FOR COMPILING CS.
*     IT CONTAINS DEFINITIONS OF SYMBOLS, PARAMETERS, COMMON BLOCKS ETC.
*     USED THROUGHOUT THE PROGRAM.
# 
 
 
      CONTROL STEXT ; 
 
# 
**    GLOBAL DEFINITIONS FOR THE CS PROGRAM 
# 
 
      DEF  OCBSIZ$      # 10 #;           # NUMBER OF WORDS IN OCB #
      DEF  ACNESIZ$     # 2 #;            # NUMBER WORDS PER ACN ENTRY #
      DEF  HBFESIZ$     # 9 #;            # HISTORY BUFFER ENTRY SIZE  #
      DEF  MINACN$      # 2 #;            # MINIMUM ACN ALLOWED TO CS # 
      DEF  MAXACN$      # 11 #;           # MAXIMUM NUMBER CONNECTIONS #
      DEF  MXHSBLCNT$   # 90 #;           # MAX NUM LINES IN HIS BUF# 
      DEF  HOPORD$      # 1 #;            # HOP OCB ORDINAL # 
      DEF  DEFPL$       # 22 #;           # DEFAULT HIST TERM PL #
      DEF  HOPIPL$      # 30 #;           # INTERNAL HOP PL # 
      DEF  HOPTPL$      # 32 #;           # HOP TURN PAGE LENGTH  # 
      DEF  NPCBSZ$      # 8 #;            # NUMBER OF WORDS IN NPUCB #
      DEF  AUDGR1$      # 1 #;            # AUDIENCE GROUP 1 #
      DEF  AUDGR2$      # 2 #;            # AUDIENCE GROUP 2 #
      DEF  AUDGR3$      # 3 #;            # AUDIENCE GROUP 3 #
      DEF  AUDGR4$      # 4 #;            # AUDIENCE GROUP 4 #
      DEF  AUDGR6$      # 6 #;            # AUDIENCE GROUP 6 #
      DEF  CSPID$       # 03 #;           # CS PROGRAM I.D. FOR DUMPS  #
      DEF  DTIME$       # 30 #;           # DELAY TIME FOR NEED GO MSG #
      DEF  DEFCP$       # 100 #;          # DEFAULT CP VALUE           #
      DEF  DEFBU$       #   0 #;          # DEFAULT BU VALUE           #
      DEF  MINCP$       #  50 #;          # MINIMUM CP VALUE           #
      DEF  MAXCP$       # 100 #;          # MAXIMUM CP VALUE           #
      DEF  MINBU$       #   0 #;          # MINIMUM BU VALUE           #
      DEF  MAXBU$       # 500 #;          # MAXIMUM BU VALUE           #
 
 
 
# 
**    CSWDF - WORKLIST DEFINITIONS. 
* 
*     THIS STATUS LIST DEFINES THE SYMBOLS TO BE USED IN MAKING 
*     WORKLIST REQUESTS.
*     THE ORDER IN THE STATUS LIST SETS THE PRIORITY OF THE WORKLIST
*     REQUEST, FIRST IS HIGHEST PRIORITY, LAST IS LOWEST PRIORITY.
*     THE ORDER CAN BE CHANGED (REARRIANGE PRIORITIES) AND THE PROGRAM
*     RECOMPILIED WITHOUT ANY OTHER CHANGES.
# 
 
      STATUS CSWDF
        SCRTR,                         #RETURN TIMER REQUEST           #
        SACNI,                         #CONTROL NETWORK INTERFACE      #
        SOEOP,                         #EXECUTE OVERLAY PROGRAM        #
        CTDNQ,
        CTSNR,                         #START NCF READ REQUEST         #
        CSDNS,                         #DISPATCH NPU SUPERVISION  # 
        CSDOS,                         # DISPATCH OPERATOR SUPERVISION# 
        CCDQE,                         # DISPATCH CONN TRAFFIC #
        CEDEQ,                         # IDENTIFY EVENT ENTRY # 
        CSDPE,                         # DISPATCH PROTOCOL EVENT #
        CSDNR,                         # DETERMINE NPU REQUIREMENT #
        CSDRC,                         # DISPATCH ROUTED COMMAND #
        CSROC,                         # RECOGNIZE OPERATOR COMMAND # 
        CSRSS,                         # ROUTE SOLICITED STATUS        #
        COBOE,                         # BROADCAST OP EVENT     # 
        COROO,                         # ROUTE OP OUTPUT #
        COGHL,                         # GET HISTORY LINES #
        DUMMY,                         # DUMMY ENTRY FOR DISABLING     #
      ; 
 
 
# 
**    CSODF - OVERLAY DEFINITIONS.
* 
*     THIS STATUS LIST DEFINES THE SYMBOLS TO BE USED AS OVERLAY NUMBERS
*     IN MAKING A TYPE 2 (OVERLAY ENTRY POINT CALL) WORKLIST REQUEST. 
*     THE ORDER IN THE STATUS LIST SETS THE OVERLAY NUMBER, WITH THE
*     FIRST ONE BEING OVERLAY 0,0, SECOND 1,0 ETC...
*     THE ORDER CAN BE CHANGED IF SO DECIDED TO CHANGE THE OVERLAY
*     NUMBERS, AND THE PROGRAM RECOMPILED WITHOUT ANY OTHER CHANGES.
# 
 
      STATUS CSODF
        CLMAN,               # 0,0- MAIN OVERLAY                       #
        CLEVT,               # 1,0- EVENT PROCESSING OVERLAY           #
        CLOIO,               # 2,0- OPERATOR I/O PROCESSING OVERLAY    #
        CLCMR,               # 3,0- COMMAND RECOGNITION OVERLAY        #
        CLCMP,               # 4,0- COMMAND PREPROCESSING OVERLAY      #
        CLOSS,               # 5,0- OPERATOR SUPERVISION SM OVERLAY    #
      ; 
 
 
# 
*     THE FOLLOWING STATUS LISTS ARE ENTRY POINT DEFINITIONS FOR THE
*     VARIOUS OVERLAYS WE DEFINED IN THE ABOVE LIST (CSODF).
*     EACH STATUS LIST DEFINES THE SYMBOLS TO BE USED AS ENTRY POINT
*     NUMBERS WITHIN THE OVERLAY IN MAKING A WORKLIST REQUEST.
*     THE ORDER IN THE LIST SETS THE ENTRY POINT NUMBER, AND THE
*     ORDER CAN BE CHANGED, AND THE PROGRAM RECOMPILED WITHOUT
*     ANY OTHER CHANGES.
# 
 
 
# 
*     EPEVT - ENTRY POINT DEFINITIONS FOR EVENT PROCESSING OVERLAY. 
# 
 
      STATUS EPEVT
        CSRSS,               # ROUTE SOLICITED STATUS                  #
        CEDEQ,               # IDENTIFY EVENT ENTRY                    #
      ; 
 
 
# 
*     EPOIO - ENTRY POINT DEFINITIONS FOR OPERATOR I/O PROCESSING OVL.
# 
 
      STATUS EPOIO
        CCDQE,               # DISPATCH CONNECTION TRAFFIC             #
        COBOE,               # BROADCAST OPERATOR EVENT                #
        COGHL,               # GENERATE HISTORY LINE                   #
        COROO,               # ROUTE OPERATOR OUTPUT                   #
      ; 
 
 
# 
*     EPCMR - ENTRY POINT DEFINITIONS FOR COMMAND RECOGNITION OVL.
# 
 
      STATUS EPCMR
        CSROC,               # RECOGNIZE OPERATOR COMMAND              #
      ; 
 
 
# 
*     EPCMP - ENTRY POINT DEFINITIONS FOR COMMAND PREPROCESSOR OVL. 
# 
 
      STATUS EPCMP
        CSDNR,               # DETERMINE NPU REQUIREMENT               #
        CSDRC,               # DISPATCH ROUTED COMMAND                 #
      ; 
 
 
# 
*     EPOSS - ENTRY POINT DEFINITIONS FOR OPERATOR SUPERVISION SM OVL.
# 
 
      STATUS EPOSS
        CSDPE,               # DISPATCH PROTOCOL EVENT                 #
        CSDOS,               # DISPATCH OPERATOR SUPERVISION           #
      ; 
 
 
 
# 
**    SUPSTAT -SUPERVISION STATES OF NPU. 
* 
*     THIS STATUS LIST DEFINES THE SYMBOLS TO BE USED FOR SETTING THE 
*     SUPERVISION STATE OF THE NPUCB. 
# 
      STATUS SUPSTAT
        SUPLOST,                         # SUPERVISION LOST           # 
        SUP,                             # SUPERVISED                 # 
        NCFMIS,                          # NCF MISMATCH               # 
        LEVMIS;                          # LEVEL MISMATCH             # 
 
 
 
 
# 
**    SMID - SUPERVISORY MESSAGE IDENTIFICATION LIST. 
* 
*     THIS LIST DICTATES THE INTERNAL IDENTIFICATION CODES FOR ALL
*     SUPERVISORY MESSAGE TRAFFIC, AS WELL AS VARIOUS INTERNAL TYPED
*     TRAFFIC FOR THE CS PROGRAM. THIS LIST MUST MATCH THE PSFCTBL
*     ARRAY DEFINITION IN THE PROC *CSDDNT*. ANY CHANGE TO THIS LIST
*     OR TO THE PSFCTBL ARRAY DEFINITION MUST CAUSE A COMPARABLE
*     CHANGE TO THE OTHER. SERIOUS CIRCUMSTANCES MAY OCCUR OTHERWISE. 
# 
 
      STATUS SMID 
        CNFTE,       # 0 #
        CNFRCTM,     # 0.1# 
        SUPCB,       # 1 #
        SUPIN,       # 2 #
 
#       UNSOLICITED PFCSFCS # 
#       ******************* # 
 
 
        ALMOP,       # 3 #
        LOGER,       # 4 #
        CDILI,       # 5 #
        CDILL,       # 6 #
        CDITE,       # 7 #
        CDITR,       # 8 #
        MSGOP,       # 9 #
        STILI,       # 10 # 
        STINP,       # 11 # 
        STITR,       # 12 # 
        STIAP,       # 12.1 # 
        STITE,       # 12.2 # 
        STUTE,       # 13 # 
        STULI,       # 14 # 
        STULL,       # 15 # 
        STUTR,       # 16 # 
        STUNP,       # 17 # 
        STUCP,       # 18 # 
        STUVC,       # 19 # 
        OLDDT,       # 20 # 
        SUPGO,       # 21 # 
 
#       CONNECTION TRAFFIC PFCSFCS #
#       ************************** #
 
        SHUINS,      # 22 # 
        CONREQ,      # 23 # 
        HOPSTRT,     # 24 # 
        CONCB,       # 25 # 
        FCACK,       # 26 # 
        INTRUSR,     # 27 # 
        FCINA,       # 28 # 
        FCINIT,      # 29 # 
        FCNAK,       # 30 # 
        TCHTCH,      # 31 # 
        HOPALT,      # 32 # 
        HOPBRK,      # 33 # 
        HOPCMD,      # 34 # 
        HOPENDD,     # 35 # 
        HOPIG,       # 36 # 
        HOPPAGE,     # 37 # 
        CONENDN,     # 38 # 
        BIMARK,      # 38.1 # 
 
 
#       OPERATOR SUPERVISION PFCSFCS #
#       **************************** #
 
        HOPDU,       # 39 # 
        HOPTRCE,     # 40 # 
        HOPNOTR,     # 41 # 
        HOPREL,      # 42 # 
        HOPRS,       # 43 # 
        HOPDB,       # 43.1 # 
        HOPDE,       # 43.2 # 
        TRSNPN,      # 44 # 
        TRSTRN,      # 45 # 
        LISLIN,      # 46 # 
        LISNPN,      # 47 # 
        LLSLLN,      # 48 # 
        LLSNPN,      # 49 # 
        CPSCPN,      # 50 # 
        CPSNPN,      # 51 # 
        NPSNPN,      # 52 # 
        TESLIN,      # 53 # 
        TESLLN,      # 54 # 
        TESNPN,      # 55 # 
        TESTEN,      # 56 # 
        VCSLIN,      # 57 # 
        VCSNPN,      # 58 # 
        VCSVCN,      # 59 # 
        MSGLIN,      # 60 # 
        MSGLLN,      # 61 # 
        MSGNPN,      # 62 # 
        MSGTEN,      # 63 # 
        MSGLIA,      # 64 # 
        MSGLLA,      # 65 # 
        MSGTEA,      # 66 # 
        OLDINN,      # 67 # 
        OLDINA,      # 68 # 
 
#       SOLICITED STATUS PFCSFCS #
#       ************************ #
 
        STUTEN,      # 69 # 
        STULIN,      # 70 # 
        STULLN,      # 71 # 
        STUTRN,      # 72 # 
        STUNPN,      # 73 # 
        STUCPN,      # 74 # 
        STUVCN,      # 74.1 # 
 
#       IGNORE THESE PFCSFCS #
#       ******************** #
        CTRTCD,      # 75 # 
        CTRCCD,      # 75.1 # 
        CTRCHRN,     # 75.2 # 
        CTRCHRA,     # 75.3 # 
        CTRCTDN,     # 75.4 # 
        CTRCTDA,     # 75.5 # 
        CTRRTCA,     # 75.6 # 
        CTRRCCA,     # 75.7 # 
 
 
#       OUTGOING TRAFFIC PFCSFCS #
#       ************************ #
 
        CNFTEN,      # 76 # 
        CNFRCTN,     # 76.1#
        CNFTEA,      # 77 # 
        CNFRCTA,     # 77.1#
        SUPGON,      # 78 # 
        MSGLI,       # 79 # 
        MSGLL,       # 80 # 
        MSGNP,       # 81 # 
        MSGTE,       # 82 # 
        CPSCP,       # 83 # 
        CPSNP,       # 84 # 
        DIBLI,       # 85 # 
        DIBLL,       # 86 # 
        DIBTE,       # 87 # 
        DIBTR,       # 88 # 
        DIBVC,       # 89 # 
        ENBLI,       # 90 # 
        ENBLL,       # 91 # 
        ENBTE,       # 92 # 
        ENBTR,       # 93 # 
        ENBVC,       # 94 # 
        LISLI,       # 95 # 
        LISNP,       # 96 # 
        LLSLL,       # 97 # 
        LLSNP,       # 98 # 
        NPSNP,       # 99 # 
        OLDTM,       # 100 #
        SUPINN,      # 101 #
        SUPINA,      # 102 #
        HOPDIS,      # 103 #
        HOPLG,       # 104 #
        TESLI,       # 105 #
        TESLL,       # 106 #
        TESNP,       # 107 #
        TESTE,       # 108 #
        TRSNP,       # 109 #
        TRSTR,       # 110 #
        VCSLI,       # 111 #
        VCSNP,       # 112 #
        VCSVC,       # 113 #
        CONREQN,     # 114 #
        CONENDR,     # 115 #
        NPIIN,       # 115.1 #
        OLDIN,       # 115.2 #
 
#       INTERNAL PFCSFCS      # 
#       ********************* # 
 
        STUFIN,      # 115.3 #
        CMDTXT,      # 116 #
        CTRLON,      # 117 #
        CTRLOFF,     # 118 #
        DATAIN,      # 119 #
        HOPSRTN,     # 120 #
        CONCBW,      # 121 #
        TTEXT,       # 122 #
        HIST,        # 122.1 #
        SUPINUN,     # 123 #
        SUPGOI,      # 124 #
           ;
 
 
 
 
# 
**    OVLST - STATES ALLOWED FOR THE DIAGNOSTIC PROGRAM IN NPU. 
# 
 
      STATUS OVLST
        IDLE,                  # IDLE, NO OPERATOR CONNECTED #
        BUSY,                  # OPERATOR CONNECTED # 
        LOADING;               # AWAITING RESPONSE TO CONNECT REQUEST # 
 
# 
**    ACNST - STATES ALLOWED FOR AN ACN ENTRY.
* 
*     THIS STATUS LIST DEFINES THE ALLOWED STATES FOR AN ACN ENTRY. 
# 
 
      STATUS ACNST
        INACT,                            # INACTIVE #
        CREATE,                           # CREATE IN PROGRESS #
        ACTIVE,                           # BOTH INPUT AND OUTPUT OK #
        COMMAND,                          # COMMAND IN PROGRESS # 
        BREAK,                            # BREAK OUTSTANDING # 
        ENDED,                            # END IN PROGRESS # 
        BROKEN,                           # CONNECTION BROKEN # 
        CLEARI;                           # CLEAR INPUT # 
 
 
# 
**    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     #
 
 
 
 
# 
**    OPTYP - OPERATOR TYPES. 
* 
*     THIS STATUS LIST DEFINES THE TYPES OF OPERATORS SUPPORTED BY CS.
# 
 
      STATUS OPTYP
        HOP,                 # HOST OPERATOR                           #
        NOP,                 # NPU OPERATOR                            #
        DOP;                 # DIAGNOSTIC OPERATOR                     #
 
 
 
 
# 
**    CSINTR - MONITOR ROUTINE INTERRUPT LOCATIONS. 
* 
*     CSINTR 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. 
*     (SOME QUEUES ARE PROCESSED BY MONITOR TYPE ROUTINES AND OTHER 
*     QUEUES (OF LOWER PRIORITY) ARE PROCESSED BY WORKLIST ROUTINES.) 
*     THESE CELLS PROVIDE A LINKAGE BETWEEN ONE OR MORE QUEUES AND A
*     SINGLE, GIVEN MONITOR ROUTINE.  THIS ASSOCIATION IS MADE AT 
*     INITIALIZATION TIME WHEN TABLES *WDF* AND *QWD* (IN SSTEXT) ARE 
*     BUILT BY PROC CSIBWD.  WHENEVER THE STATUS WORKLIST PROCESSOR IS
*     WATCHING A GIVEN INTERRUPT CELL AND THAT CELL BECOMES OR IS NON-
*     ZERO, THE CORRESPONDING MONITOR ROUTINE IS CALLED.  THE MONITORS
*     THEMSELVES DETERMINE WHEN A GIVEN CELL WILL BE WATCHED VIA THE
*     FORMAL RETURN PARAMETER ARRAY *SWTESS* (COMMOM DECK).  WHENEVER AN
*     ENTRY IS PLACED IN A GIVEN QUEUE, THE ASSOCIATED INTERRUPT WORD 
*     IS INCREMENTED.  (NOT ALL MONITOR ROUTINES ARE TRIGGERRED BY THESE
*     INTERRUPT CELLS.  OTHERS ARE TRIGGERRED BY ,E.G., THE NSUP WORD OR
*     THE FIRST WORD OR IN POINTER OF THE NCF FET.) 
# 
 
      COMMON CSINTR;
        BEGIN 
        ITEM ICSTSNR  I;     # INTERRUPT FOR PROC CSTSNR               #
        END 
 
# 
**    CSCB - CS PROGRAM CONTROL BLOCK.
* 
*     THE CS CONTROL BLOCK IS A COMMON BLOCK THAT CONTAINS PROGRAM
*     WIDE INFORMATION. 
# 
      COMMON CSCB;
        BEGIN 
# 
****
# 
        ITEM CRNT$DPN   I;                #CURRENT DUMP NUMBER        # 
        ITEM CRNT$NIN   I;                #CURRENT INVOCATION NUR     # 
        ITEM CSACNOP    U;                #CONTROL NOP OCB ORDINAL    # 
        ITEM CSTRACE    U;                #COUNT OF TRACE MSGS        # 
        ITEM CSSTATE    B;                #STATE OF CS PROGRAM        # 
        ITEM CSNPCNT    U;                #COUNT OF NPUCBS DEFINED    # 
        ITEM CSNPSUP    U;                #COUNT OF NPUS SUPERVISED   # 
        ITEM CSNCFVER   C(20);            # NCF FILE VERSION #
        ITEM CSNCFLEV   C(3);             # NCF VERSION LEVEL # 
        ITEM DBGFLAG    B;                # DEBUG FLAG                # 
        ITEM CSCP       U;             # CS CONTROL CARD CP VALUE      #
        ITEM CSBU       U;             # CS CONTROL CARD BU VALUE      #
# 
****
# 
        END 
 
 
 
 
 #
**
*E
**    TABLES - MEMORY MANAGEMENT COMMON BLOCK.
* 
*     A COMMON BLOCK OF BASED-ARRAY POINTER WORD AND LENGTH FOR TABLES/Q
*     USED BY THE TABLE-MANAGER.
 #
 
      COMMON TABLES;
      BEGIN                            # TABLES                        #
      ITEM MEMLOC     I;        # BEGINNING MEMORY LOC OF MANAGED AREA #
      ITEM FL         I;        # CURRENT TOTAL FIELD LENGTH           #
 
 
 
# 
**
*E
**    LRI - LINE RECORD INDEX.
* 
*     THE LINE RECORD INDEX IS A TABLE THAT TRANSLATES AN NPU NODE ID 
*     AND PORT NUMBER INTO THE RELATIVE PRU ADDRESS OF THE CORRESPONDING
*     LINE RECORD IN THE NCF.  THE TABLE IS CREATED BY NDL AND USED BY
*     CS DURING TERMINAL CONFIGURATION, AND IS PASSED TO CS VIA THE NCF.
*     THE TABLE IS DESCRIBED IN APPENDIX F OF THE NDL ERS.  THE ENTRY 
*     SIZE IS FIXED AT ONE WORD PER ENTRY.  THE TABLE HEADER IS NOT USED
*     AND IS DISCARDED BY CS.  A DUMMY LAST ENTRY IS ADDED DURING 
*     INITIALIZATION.  THIS ENTRY CONTAINS AN NPU NODE ID OF 255 AND A
*     PORT NUMBER OF 255 (HIGHEST VALID PORT NUMBER IS 254).  THIS
*     INSURES THAT THE SEARCH OF THE LINE RECORD INDEX ALWAYS GETS A HIT
*     (AT LEAST ON THE LAST ENTRY).  A DUMMY FIRST ENTRY IS ALSO ADDED
*     DURING INITIALIZATION.  THIS ENTRY IS ALL ZEROES AND ENSURES THAT 
*     THE SEARCH OF THE LINE RECORD INDEX FOR A LARGER CONCATENATED 
*     NPU/PORT IS NEVER SATISFIED BY THE FIRST ENTRY (ELIMINATES SOME 
*     SPECIAL CASING).
* 
* 
*     THE FOLLOWING IS THE FORMAT OF A LINE RECORD INDEX ENTRY.  EACH 
*     ENTRY IS ONE WORD LONG. 
* 
* 
*                 1         2         3         4         5 
*       012345678901234567890123456789012345678901234567890123456789
*TEXT 
*T,8/LINID,8/LIPORT,8/LIGC,12/,24/LIRPA 
*ENDTEXT
# 
 
      BASED ARRAY LRI [00:00] S(1); 
        BEGIN 
# 
****
# 
*CALL LINCF 
# 
****
# 
        END 
 
      ITEM LRIL;              #LENGTH OF LINE RECORD INDEX             #
 
 
 
 
# 
**
**    OCB - OPERATOR CONTROL BLOCK. 
* 
*     THE OPERATOR CONTROL BLOCK MANAGED TABLE CONTAINS AN ENTRY FOR
*     EACH OPERATOR THAT IS TO BE CONNECTED TO THIS CS. INITIAL  IM-
*     PLEMENTATION OF R7 CS WILL ALLOW TEN TERMINAL OPERATORS (NOPS)
*     AND ONE HOST OPERATOR (HOP).
* 
*     THE FOLLOWING IS THE FORMAT OF AN OPERATOR CONTROL BLOCK.  EACH 
*     ENTRY IS THREE WORDS LONG.
* 
* 
*                 1         2         3         4         5 
*       012345678901234567890123456789012345678901234567890123456789
*TEXT 
*T,WORD0,42/TNAM,12/ACN,6/ORD 
*T,WORD1,42/UNAM,2/O,8/NCNT,1/C,1/N,6/
*T,WORD2,18/VERB,8/CNP1,8/CNP2,8/PL,1/S,9/,8/SDCNT
*ENDTEXT
# 
 
      BASED ARRAY OCB [01:MAXACN$] S(OCBSIZ$);
        BEGIN 
# 
****
# 
        ITEM OC$WORD         U(00,00,60);  #FULL WORD REFERENCE       # 
        ITEM OC$WORD1        U(01,00,60);  #FULL WORD 1 REF # 
        ITEM OC$WORD2        U(02,00,60);  #FULL WORD 2 REF # 
        ITEM OC$TNAM         C(00,00,07);  #TERMINAL NAME             # 
        ITEM OC$SVCNAM       C(00,00,05);  #SVC NAME                  # 
        ITEM OC$ACN          U(00,42,12);  #APPL CONNECTION NUMBER    # 
        ITEM OC$ORD          U(00,54,06);  #OCB ORDINAL VALUE         # 
        ITEM OC$UNAM         C(01,00,07);  #USER NAME                 # 
        ITEM OC$TYPE   S:OPTYP(01,42,02);  #OPERATOR TYPE             # 
        ITEM OC$NCNT         U(01,44,08);  #AFFECTED NPU COUNT        # 
        ITEM OC$PAGEC      U(01,52,02);   # RIGHT K-DISPLAY PAGE NUM   #
        ITEM OC$RPL        U(01,54,06);   # RIGHT K-DISPLAY LENGTH     #
        ITEM OC$VERB         C(02,00,03);  #CURRENT CMD VERB          # 
        ITEM OC$UVERB        U(02,00,18); 
        ITEM OC$CNPU         U(02,18,08);  #CURRENT CMD FOR NPU       # 
        ITEM OC$PL           U(02,26,08);  #PAGE LENGTH AT TERMINAL   # 
        ITEM OC$STATE        B(02,34,01);  #STATE OF THE OCB          # 
        ITEM OC$WC           U(02,36,06);  # SM CM WORD COUNT          #
        ITEM OC$CBPD         B(02,42,01);  #CB PENDING FLAG           # 
        ITEM OC$NTO          B(02,43,01);  #NO TIMEOUT FLAG           # 
        ITEM OC$TLC          U(02,48,12);  # SM TLC VALUE              #
        ITEM OC$SM           I(03,00,60);  # SM FIRST WORD             #
# 
****
# 
        END 
 
      ITEM OCBL;                        #LENGTH OF OCB TABLE          # 
 
 
 
 
 
# 
**
**    ACN - APPLICATION CONNECTION NUMBER LIST. 
* 
*     THE ACN LIST CONTAINS AN ACN ENTRY FOR EACH OPERATOR CONNECTION 
*     TO CS. EACH ENTRY CONTAINS INFORMATION REGARDING THE CONNECTION.
* 
*     THE FOLLOWING IS THE FORMAT OF AN ACN LIST ENTRY.  EACH ENTRY 
*     IS TWO WORDS LONG.
* 
* 
*                 1         2         3         4         5 
*       012345678901234567890123456789012345678901234567890123456789
*TEXT 
*T,WORD0,1/I,4/CST,7/,18/ABN,12/DBZ,18/ACN
*T,WORD1,3/,6/BKCNT,6/BLCNT,6/ABL,9/,6/PCHAR,3/,1/G,2/,9/WBCNT,9/PL 
*ENDTEXT
* 
* 
# 
 
      BASED ARRAY ACN [01:MAXACN$] S(ACNESIZ$); 
        BEGIN 
# 
****
# 
        ITEM ACN$WORD0        U(00,00,60);  # FULL WORD0 REFERENCE #
        ITEM ACN$INIT         B(00,00,01);  # INIT SEEN FLAG #
        ITEM ACN$HOPST  S:HCNST(00,02,04);  # HOP PSEUDO ACN STATE #
        ITEM ACN$NOPST  S:ACNST(00,02,04);  # NOP ACN STATE # 
        ITEM ACN$ABN          U(00,12,18);  # APPL BLOCK NUMBER # 
        ITEM ACN$DBZ          U(00,30,12);  # DOWNLINE BLK SIZE # 
        ITEM ACN$ACN          U(00,42,18);  # CONNECTION NUMBER # 
        ITEM ACN$WORD1        U(01,00,60);  # FULL WORD1 REFERENCE #
        ITEM ACN$BKCNT        U(01,03,06);  # NUMBER OF BREAKS COUNT #
        ITEM ACN$BLCNT        U(01,09,06);  # OUTSTANDING BLK COUNT # 
        ITEM ACN$ABL          U(01,15,06);  # APPL BLOCK LIMIT #
        ITEM ACN$PCHAR      C(01,30,01);  # HOP PAGE CHARACTER  # 
        ITEM ACN$PWAIT        B(01,35,01);  # PAGE WAIT FLAG #
        ITEM ACN$IGNOR        B(01,39,01);  # HOP IGNORE FLAG # 
        ITEM ACN$WBCNT        U(01,42,09);  # WAITING BLK COUNT # 
        ITEM ACN$PL           U(01,51,09);  # PAGE LENGTH # 
# 
****
# 
        END 
 
      ITEM ACNL;               # LENGTH OF ACN TABLE #
 
 
 
 
 
# 
**
* 
*     LLXREF - LOGICAL LINK XREF TABLE. 
* 
*     THE LOGICAL LINK XREF TABLE WILL RESIDE INITIALLY IN A MANAGED
*     TABLE. IT CONTAINS A TWO WORD ENTRY FOR EACH LOGICAL LINK 
*     DEFINED IN THE NCF.  IT IS EVENTUALLY WRITTEN OUT TO THE OVERLAYS 
*     THAT NEED IT. 
# 
 
      BASED ARRAY LLXRS [00:00] S(2); 
        BEGIN 
        ITEM LXS$WORD      U(00,00,60);  #FULL WORD REFERENCE          #
        END 
 
      ITEM LLXREFLS;                    #LENGTH OF LLXREF TABLE       # 
 
 
 
 
# 
**    PLXREFS - PHYSICAL LINK CROSS REFERENCE TABLE.
* 
*     THE PHYSICAL LINK XREF TABLE CONTAINS A TWO-WORD ENTRY FOR EACH 
*     COUPLER OR TRUNK DEFINED FOR THE NETWORK. THIS TABLE WILL INITIAL-
*     LY RESIDE IN A MANAGED TABLE. IT IS INITIALIZED BY CSIBXT FROM THE
*     NCF.  IT IS EVENTUALLY WRITTEN OUT TO THE OVERLAYS THAT NEED IT.
# 
      BASED ARRAY PLXREFS [00:00] S(2); 
        BEGIN 
        ITEM PXS$WORD      U(00,00,60);    #FULL WORD REFERENCE        #
        END 
 
      ITEM PLXREFLS;                      #LENGTH OF PLXREF TABLE     # 
 
 
# 
**    LIXS - LINE CROSS REFERENCE TABLE . 
* 
*     THE LINE CROSS REFERENCE TABLE CONTAINS INFORMATION ABOUT EACH
*     LINE DEFINED IN THE NCF. THIS MANAGED TABLE IS BUILT AT INITIALI- 
*     ZATION TIME BY THE CSIBXT PROC.  IT IS EVENTUALLY MADE A PART OF
*     THE OVERLAYS WHICH REQUIRES THE INFORMATION IN THE TABLE. 
# 
 
      BASED ARRAY LIXS [00:00] S(1);
        BEGIN 
        ITEM LIXS$WORD  U(00,00,60);      # FULL WORD REFERENCE # 
        END 
 
      ITEM LIXLS;                         #LENGTH OF LIX TABLE #
 
 
# 
**    DEXS - DEVICE CROSS REFERENCE TABLE.
* 
*     THE DEVICE CROSS REFERENCE TABLE CONTAINS AN ENTRY FOR EACH DEVICE
*     OR TERMDEV STATEMENT IN THE NDL SOURCE. THIS TABLE IS BUILT BY
*     PROC CSIBXT AT INITIALIZATION TIME.  THE TABLE IS WRITTEN TO THE
*     OVERLAYS WHICH REQUIRES ITS INFORMATION.
# 
 
      BASED ARRAY DEXS [00:00] S(1);
        BEGIN 
        ITEM DXS$WORD   U(00,00,60);      # FULL WORD REFERENCE # 
        END 
 
      ITEM DEXLS;                         # LENGTH OF DEX TABLE # 
 
 
 
 
# 
**
*E
**    NPUCB - NPU CONTROL BLOCK ARRAY.
* 
*     THE NPUCB ARRAY WILL RESIDE IN A MANAGED TABLE.  THERE EXISTS AN
*     ENTRY FOR EACH NPU DEFINED IN THE NETWORK CONFIGURATION FILE. 
*     THE MANAGED TABLE IS INITIAILIZED BY CSIBNP FROM INFORMATION
*     THAT IS READ FROM THE NPU CROSS REFERENCE TABLE ON THE NCF. 
* 
*     THE FOLLOWING IS THE FORMAT OF AN NPU CONTROL BLOCK.  EACH BLOCK
*     IS FOUR WORDS LONG. 
* 
* 
*                 1         2         3         4         5 
*       012345678901234567890123456789012345678901234567890123456789
*TEXT 
*T,WORD,42/NAME,8/NID,8/HID,1/R,1/D 
*T,WORD1,16/CSUM,12/OPSD,12/OPST,12/OPOV,8/STAT 
*T,WORD2,1/L,5/,36/VAR,18/DNID
*T,WORD3,8/OVSTATE,52/
*ENDTEXT
# 
      BASED ARRAY NPUCB [00:00] S(NPCBSZ$); 
        BEGIN 
# 
****
# 
        ITEM NPU$WORD      U(00,00,60);    #FULL WORD REFERENCE        #
        ITEM NPU$WORD1     U(01,00,60);    #FULL WORD 1 REF # 
        ITEM NPU$WORD2     U(02,00,60);    #FULL WORD 2 REF # 
        ITEM NPU$WORD3     U(03,00,60);    #FULL WORD 3 REF # 
      ITEM NPU$WORD4    U(04,00,60);
      ITEM NPU$WORD5    U(05,00,60);
      ITEM NPU$WORD6    U(06,00,60);
      ITEM NPU$WORD7    U(07,00,60);
        ITEM NPU$NAME      C(00,00,07);    #NAME OF NPU                #
        ITEM NPU$NID       U(00,42,08);    #NODE NUMBER OF NPU         #
        ITEM NPU$HID       U(00,50,08);    #HOST NODE NUMBER           #
        ITEM NPU$RIND      B(00,58,01);    #REMOTE INDICATOR,1=REMOTE  #
        ITEM NPU$DMPF      B(00,59,01);    #LONG TERM DMP FLAG         #
        ITEM NPU$CSUM      U(01,00,16);    #NPUCHECKSUM FOR SUPER-     #
                                           #VISION COMPARE OF NCF      #
        ITEM NPU$OPSD      U(01,16,12);    #CURRENT SEND OPERATOR OCB  #
                                           #ORDINAL                    #
        ITEM NPU$OPST      U(01,28,12);    #CURRENT STATUS OPERATOR    #
                                           #OCB ORDINAL                #
        ITEM NPU$OPOV      U(01,40,12);    #CURRENT OVERLAY OPERATOR   #
                                           #OCB ORDINAL                #
        ITEM NPU$STAT      U(01,52,08);    #NPUSTATE                   #
        ITEM NPU$LRF       B(02,00,01);    #LOAD REQUEST FLAG          #
        ITEM NPU$VAR       C(02,06,06);    # NPU VARIENT NAME          #
        ITEM NPU$DNID      C(02,42,03);    # DISPLAY CODED NODE NUM    #
        ITEM NPU$CNID      U(02,42,18);    # DCD INTEGER NID #
        ITEM NPU$OVSTATE   U(03,00,08);     # OVERLAY STATE # 
        ITEM NPU$CP        U(03,08,09);    # CPU UTILIZATION           #
        ITEM NPU$BU        U(03,17,09);    # BUFFER AVAILABILITY       #
        ITEM NPU$GFLAG     B(03,27,01);    # NEED GO FLAG              #
        ITEM NPU$CNUM      U(03,30,18);    # TIMER CANCEL NUMBER       #
        ITEM NPU$CNOP      U(03,48,12);    # CONTROLLING NOP FOR NPU   #
        ITEM NPU$RFLGS     U(04,12,48);    # REPORT BIT MAP            #
        ITEM NPU$STFLGS    U(05,12,48);    # PENDING STATUS REQ BIT MAP#
        ITEM NPU$SDFLGS    U(06,12,48);    # PENDING SEND REQ BIT MAP  #
        ITEM NPU$OVFLGS    U(07,12,48);    # DIAG OPERATOR BIT MAP     #
# 
****
# 
        END 
 
      ITEM NPUCBL;                         #LENGTH OF NPUCB            #
 
 
 
 
# 
**    NPXREF - NPU CROSS REFERENCE TABLE. 
* 
*     THE NPU XREF TABLE CONTAINS INFORMATION ABOUT EACH NPU DEFINED IN 
*     THE NCF. THE TABLE IS READ INTO CS AT INITIALIZATION TIME AND 
*     EACH ENTRY'S INFORMATION IS TRANSFERRED INTO THE APPROPRIATE
*     NPUCB MANAGED TABLE ENTRY.
# 
      BASED ARRAY NPXREF [00:00] S(2);
        BEGIN 
        ITEM NPX$WORD       U(00,00,60);    #FULL WORD REFERENCE       #
        ITEM NPX$NAME       C(00,00,07);    #NAME OF NPU               #
        ITEM NPX$NID        U(00,52,08);    #NODE NUMBER OF NPU        #
        ITEM NPX$VAR        C(01,00,06);    #NPU VARIENT NAME          #
        ITEM NPX$CSUM       U(01,44,16);    #NPU SUPERVISION CHECKSUM  #
        END 
 
      ITEM NPXREFL;                         #LENGTH OF NPXREF TABLE    #
 
 
 
# 
**    TRQ - TIMER REQUEST QUEUE.
* 
*     THIS QUEUE IS USED FOR TIMER REQUEST BLOCKS.  CURRENTLY THE ONLY
*     USE FOR THIS QUEUE IS THE REPETITION OF *GO NEEDED* MESSAGE.
*     IT IS ONLY USED BY THE EVENT PROCESSOR.  (SEE SERVICES AND
*     SCHEDULING OVERVIEW FOR THE FORMAT OF THE TIMER REQUEST BLOCK.) 
* 
# 
      BASED ARRAY TRQ [00:00] S(1); 
        BEGIN 
        ITEM TRQ$WORD   I(00,00,60);   # FULL WORD DEFINITION          #
        END 
 
      ITEM TRQL;             # NUMBER OF WORDS ALLOCATED TO TRQ        #
 
 
 
 
# 
**    EVQ - EVENT QUEUE.
* 
*     THE EVENT QUEUE IS THE MAIN INPUT QUEUE FOR THE EVENT PROCESSOR.
*     IT RESIDES IN A MANAGED TABLE.  THIS QUEUE RECEIVES UNSOLICITED 
*     STATUS SM-S, SUPERVISION EVENTS, AND ROUTED SOLICITED STATUS SM-S.
# 
 
      BASED ARRAY EVQ[00:00] S(1);
        BEGIN 
        ITEM EVQ$WORD   U(00,00,60);      # FULL WORD REFERENCE # 
        ITEM EVQ$CODE   U(00,00,12);      # EVENT CODE, ALIAS SMID #
        ITEM EVQ$WC     U(00,48,12);      # WORD CNT OF ENTRY # 
        END 
 
        ITEM EVQL;                        # LENGTH OF EVENT QUEUE # 
 
 
 
 
# 
**    CNQ - CONNECTION TRAFFIC QUEUE. 
* 
*     THE CONNECTION TRAFFIC QUEUE IS THE MAIN INPUT QUEUE FOR THE
*     CONNECTION LAYER.  IT CONTAINS CONNECTION SMS, FLOW CONTROL SMS,
*     SPECIAL HOP SMS, INBOUND DATA BLOCKS, OUTBOUND TERMINAL TEXT, 
*     AND PROTOCOL RESPONSES. 
# 
 
      BASED ARRAY CNQ[00:00] S(1);
        BEGIN 
        ITEM CNQ$WORD   U(00,00,60);      # FULL WORD REFERENCE # 
        ITEM CNQ$ID     U(00,00,12);      # CONNECTION TRAFFIC ID # 
        ITEM CNQ$WC     U(00,48,12);      # WORD CNT OF ENTRY # 
        END 
 
      ITEM CNQL;             # LENGTH OF CONN TRAFFIC Q # 
 
 
 
 
# 
**    OPTQ - OPERATOR TYPEIN QUEUE
* 
*     OPTQ RECEIVES ALL INCOMING COMMANDS (TYPEINS) FROM ALL OPERATORS
*     (REGARDLESS OF TYPE) THAT THIS CS IS CURRENTLY SUPPORTING.  AN
*     ENTRY IN THIS CONTAINS THREE PARTS.  THE FIRST PART IS THE ENTRY
*     SIZE WORD (AS PER ALL OTHER VARIABLE ENTRY SIZE QUEUES).  THE 
*     SECOND PART IS A SINGLE WORD CONTAINING THE ACN (EQUALS ACN LIST
*     ORDINAL, EQUALS OCB ORDINAL) OF THE OPERATOR, A BREAK OCCURRED
*     FLAG (INDICATES THIS TYPEIN IS A USER BREAK) AND THE COUNT OF 
*     CHARACTERS IN THE TYPEIN (ZERO FOR A BREAK), ALL IN ABH FORMAT. 
*     THE THIRD PART IS THE TEXT STRING OF THE TYPEIN IN DISPLAY CODE.
# 
 
      BASED ARRAY OPTQ [00:00] S(1);
        BEGIN 
        ITEM OPQ$WORD   U(00,00,60);  #WHOLE WORD REFERENCE            #
        END 
 
      ITEM OPQL;             #LENGTH OF OPERATOR TYPEIN QUEUE          #
 
# 
**    VCQ - VALID COMMAND QUEUE.
* 
*     THE VALID COMMAND QUEUE CONTAINS THE VALIDATED COMMAND FROM THE 
*     COMMAND RECOGNIZER. THE ORIGINAL OPERATOR TYPE-IN ALSO IS APPEND- 
*     ED TO THE ENTRY.
# 
 
      BASED ARRAY VCQ [00:00] S(1); 
        BEGIN 
        ITEM VCQ$WORD   U(00,00,60);
        END 
 
      ITEM VCQL;                          # LENGTH OF VCQ TABLE # 
 
# 
**    HRQ - HISTORY REQUEST QUEUE 
* 
*     THE HISTORY REQUEST QUEUE CONTAINS REQUESTS MADE BY 
*     OPERATORS TO SEE THE CS HISTORY BUFFER.  EACH ENTRY HAS THE 
*     SAME FORMAT AS THE VALID COMMAND QUEUE.  IT HAS A WORD
*     COUNT WORD, A HEADER WORD WITH INFORMATION ABOUT THE
*     COMMAND, THE ORIGINAL OPERATOR TYPE-IN, AND A STRUCTURED
*     VERSION OF THE COMMAND AS GENERATED BY THE COMMAND RECOGNIZER.
# 
 
      BASED ARRAY HRQ [00:00] S(1); 
        BEGIN 
        ITEM HRQ$WORD   U(00,00,60);
        END 
 
      ITEM HRQL;                       # LENGTH ALLOCATED TO HRQ TABLE #
 
 
 
# 
**    ORQ - OPERATOR RESPONSE QUEUE.
* 
*     THE OPERATOR RESPONSE QUEUE RECEIVES ALL THE MESSAGES SENT TO A 
*     GROUP OF OPERATORS.  EACH ENTRY CONTAINS A WORD COUNT WORD, AN
*     ABH WORD WHICH CONTAINS THE AUDIENCE GROUP NUMBER IN THE ABH
*     ADDRESS FIELD AND THE TEXT LENGTH, AND THE ACTUAL TEXT TO BE SENT 
*     TO THE OPERATORS IDENTIFIED BY THE GROUP NUMBER.
# 
      BASED ARRAY ORQ [00:00] S(1); 
        BEGIN 
        ITEM ORQ$WORD    U(00,00,60); 
        END 
 
      ITEM ORQL;             # LENGTH ALLOCATED TO THE ORQ             #
 
 
 
 
# 
**    RCQ - ROUTED COMMAND QUEUE. 
* 
*     THE ROUTED COMMAND QUEUE CONTAINS THE COMMANDS THAT HAVE HAD THE
*     PHYSICAL ADDRESSES RESOLVED FROM THE CROSS REFERENCE TABLES.
* 
# 
 
      BASED ARRAY RCQ [00:00] S(1); 
        BEGIN 
        ITEM RCQ$WORD   U(00,00,60);
        END 
 
      ITEM RCQL;                          # LENGTH OF RCQ TABLE # 
 
 
 
 
 
# 
**    PEQ - PROTOCOL EVENT QUEUE
* 
*     PEQ RECEIVES ALL CONNECTION/OPERATOR RELATED ASYNCHRONOUS 
*     SUPERVISORY MESSAGES THAT MUST BE PROCESSED BY THE INNER LAYER
*     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).  AN ENTRY IN THIS QUEUE CONSISTS OF THREE PARTS (AS 
*     ALWAYS, A LA *CNQ*) - THE ENTRY SIZE WORD (ALSO CONTAINS A CS 
*     DEFINED SM DISPATCHING CODE), THE ABH OF THE INCOMING SM AND
*     THE SM BODY.
# 
 
      BASED ARRAY PEQ [00:00] S(1); 
        BEGIN 
        ITEM PEQ$WORD   U(00,00,60);  #WHOLE WORD REFERENCE            #
        END 
 
      ITEM PEQL;             #LENGTH OF PROTOCOL EVENT QUEUE           #
 
 
 
 
# 
**    OSQ - OPERATOR SUPERVISIOM SM QUEUE.
* 
*     THE OPERATOR SUPERVISION SM QUEUE IS AN INPUT QUEUE TO THE INNER
*     LAYER (PROCESS 3) DISPATCHER. IT RESIDES IN A MANAGED TABLE.
* 
# 
 
      BASED ARRAY OSQ[00:00] S(1);
        BEGIN 
        ITEM OSQ$WORD   U(00,00,60);      #FULL WORD REFERENCE #
        ITEM OSQ$ID     U(00,00,12);      # INTERNAL IDENTIFIER # 
        ITEM OSQ$WC     U(00,48,12);      # WORD CNT OF ENTRY # 
        END 
 
      ITEM OSQL;             # LENGTH OF OP SUPERVISION Q # 
 
 
 
 
# 
**    SSQ - SOLICITED STATUS QUEUE. 
* 
*     THE SOLICITED STATUS SM QUEUE IS AN INPUT QUEUE INTO THE INNER
*     LAYER (PROCESS 3) FROM THE NETWORK DISPATCHER (CSDDNT). ALL 
*     SOLICITED STATUS SMS ARE QUEUED HERE. 
# 
 
      BASED ARRAY SSQ[00:00] S(1);
        BEGIN 
        ITEM SSQ$WORD   U(00,00,60);      # FULL WORD REFERENCE # 
        ITEM SSQ$ID     U(00,00,12);      # INTERNAL IDENTIFIER # 
        ITEM SSQ$WC     U(00,48,12);      # WORD CNT OF ENTRY # 
        END 
 
      ITEM SSQL;             # SOL STATUS Q LENGTH #
 
 
 
 
 
 
# 
**    CTQ - CONFIGURE TERMINAL REQUEST QUEUE. 
* 
*     CTQ CONTAINS ALL INCOMING CNF/TE/R SMS FROM NPUS THAT THIS CS IS
*     SUPERVISING.  AN ENTRY IN THIS QUEUE CONSISTS OF THREE PARTS.  THE
*     FIRST PART IS A SINGLE WORD CONTAINING THE SIZE OF THE ENTRY IN CM
*     WORDS (THE SIZE WORD IS INCLUDED IN THE WORD COUNT).  THE SECOND
*     PART IS THE APPLICATION BLOCK HEADER OF THE CNF/TE/R SM.  THE 
*     THIRD PART IS THE BODY OF THE CNF/TE/R SM BEGINNING WITH THE
*     PFC/SFC.  THE ARRAY ENTRY SIZE IS ONE WORD TO EASE STORAGE MOVING.
# 
 
      BASED ARRAY CTQ [00:00] S(1); 
        BEGIN 
        ITEM CTQ$WORD   U(00,00,60);  #WHOLE WORD FOR STORAGE MOVING   #
        ITEM CTQ$ESIZE  U(00,48,12);  #ENTRY SIZE IN CM WORDS          #
        ITEM CTQ$NPUID  U(01,14,08);  #SOURCE NODE IN ABH WORD         #
        ITEM CTQ$PORT   U(02,16,08);  #PORT NUMBER IN 1ST WD OF SM BODY#
        END 
 
      ITEM CTQL;             # LENGTH OF CONFIGURE TERMINAL REQ QUEUE  #
 
 
 
# 
**    NRQ - NCF READ REQUESTS QUEUE.
* 
*     NRQ CONTAINS ALL CNF/TE/R SMS FOR WHICH THE READING OF THE CORRECT
*     LINE RECORD HAS BEEN INITIATED.  AN ENTRY IN THIS QUEUE CONSISTS
*     OF THREE PARTS.  THE FIRST PART IS A SINGLE WORD CONTAINING THE 
*     SIZE OF THE ENTRY IN CM WORDS (THE SIZE WORD IS INCLUDED IN THE 
*     WORD COUNT) AND THE LINE RECORD INDEX ORDINAL OF THE LINE RECORD
*     BEING READ.  THE SECOND AND THIRD PARTS ARE THE ABH AND BODY OF 
*     THE CNF/TE/R SM EXACTLY AS FOR THE CONFIGURE TERMINAL REQUEST 
*     QUEUE.  THE DEFINED ARRAY ENTRY SIZE IS ONE WORD TO FACILITATE
*     STORAGE MOVING. 
# 
 
      BASED ARRAY NRQ [00:00] S(1); 
        BEGIN 
        ITEM NRQ$WORD   U(00,00,60);  #WHOLE WORD FOR STORAGE MOVING   #
        ITEM NRQ$LRIORD U(00,12,12);  #LINE RECORD INDEX ENTRY ORDINAL #
        ITEM NRQ$ESIZE  U(00,48,12);  #ENTRY SIZE IN CM WORDS          #
        END 
 
      ITEM NRQL;             #LENGTH OF NCF READ REQUESTS QUEUE        #
 
 
 
# 
**    NDQ - NCF DATA QUEUE. 
* 
*     NDQ CONTAINS ALL CNF/TE/R SMS AND THEIR ASSOCIATED NCF LINE 
*     RECORDS.  THE LAST ENTRY IN THIS QUEUE MAY CONTAIN ONLY PART OF 
*     ITS LINE RECORD IF THAT LINE RECORD HAS NOT YET BEEN COMPLETELY 
*     READ.  AN ENTRY IN THIS QUEUE CONSISTS OF FOUR PARTS.  THE FIRST
*     PART IS A SINGLE WORD CONTAINING THE FOLLOWING FIELDS:  
* 
*       - A FLAG TO INDICATE IF THE ENTRY IS COMPLETE (ENTIRE LINE
*         RECORD HAS BEEN READ).
*       - THE ORDINAL OF THE LINE RECORD INDEX ENTRY. 
*       - THE LENGTH OF THE LINE RECORD (OR OF THAT PORTION WHICH HAS 
*         BEEN READ SO FAR) IN CM WORDS.
*       - THE SIZE OF THE ORIGINAL CONFIGURE TERMINAL REQUEST (INCLUDES 
*         THIS WORD PLUS THE ABH AND BODY OF THE CNF/TE/R SM) IN CM 
*         WORDS.  I.E., THIS IS THE SAME SIZE AS THE ORIGINAL CONFIGURE 
*         TERMINAL REQUEST AND NCF READ REQUEST QUEUE ENTRIES.
*       - THE TOTAL SIZE OF THIS ENTRY (INCLUDING THIS WORD) IN CM WDS. 
* 
*     THE SECOND AND THIRD PARTS ARE THE ABH AND BODY OF THE CNF/TE/R SM
*     EXACTLY AS FOR THE CONFIGURE TERMINAL REQUEST QUEUE.  THE FOURTH
*     PART IS THE NCF LINE RECORD (OR THAT PORTION WHICH HAS BEEN READ
*     SO FAR).  THE DEFINED ARRAY ENTRY SIZE IS ONE WORD TO FACILITATE
*     STORAGE MOVING. 
# 
 
      BASED ARRAY NDQ [00:00] S(1); 
 
        BEGIN 
        ITEM NDQ$WORD   U(00,00,60);  #WHOLE WORD FOR STORAGE MOVING   #
        ITEM NDQ$CFLAG  B(00,00,12);  #ENTRY COMPLETE FLAG (T=COMPLETE)#
        ITEM NDQ$LRIORD U(00,12,12);  #LINE RECORD INDEX ENTRY ORDINAL #
        ITEM NDQ$LRSIZE U(00,24,12);  #LENGTH OF LINE RECORD           #
        ITEM NDQ$TCSIZE U(00,36,12);  #SIZE OF CONFIGURE TERMINAL REQ  #
        ITEM NDQ$ESIZE  U(00,48,12);  #ENTRY SIZE IN CM WORDS          #
        ITEM NDQ$PFSF   U(0,0,16) ;   # PFCSFC OF MESSAGE IN QUEUE     #
        END 
 
      ITEM NDQL;             #LENGTH OF NCF DATA QUEUE                 #
 
 
 
 
 
# 
**    NPUQ - NPU SUPERVISION SM QUEUE.
* 
*     NPUQ CONTAINS SUPERVISORY MESSAGES PERTAINING TO THE COMING 
*     AND GOING OF NPUS.
# 
 
      BASED ARRAY NPUQ [00:00] S(1);
 
        BEGIN 
        ITEM NP$WORD    U(00,00,60);  #WHOLE WORD FOR STORAGE MOVING   #
        END 
 
      ITEM NPUQL;            #LENGTH OF THE NPU SUPERVISION SM QUEUE   #
 
 
 
 
 
# 
**    OTQ - OUTGOING TRAFFIC QUEUE. 
* 
*     A VARIABLE LENGTH ENTRY FIFO QUEUE CONTAINING SM-S AND DATA BLOCKS
*     OUTGOING FROM CS TO NIP.  EACH ENTRY FORMAT IS: 
*       1) A ONE WORD WORD-COUNT FOR THE NUMBER OF WORDS IN THE ENTRY.
*       2) A ONE WORD ABH - APPLICATION BLOCK HEADER, AND 
*       3) SM-TEXT OR DATA-BLOCK. 
# 
 
      BASED ARRAY OTQ [00:00] S(1); 
        BEGIN 
        ITEM OTQ$WORD   U(00,00,60);
        END 
 
      ITEM OTQL   I;               # OTQ QUEUE 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 AN 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$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$SMACN  U(02,24,12);   # ACN IN SM BODY                #
        ITEM WBQ$HIAF   B(02,59,01);   # HOP INPUT ALLOWED FLAG        #
        END 
 
      ITEM WBQL;             # LENGTH OF WAITING BLOCK QUEUE           #
 
 
 
 
 
# 
**    ODEQ - OPERATOR DIRECTED EVENT QUEUE. 
* 
*     THIS QUEUE CONTAINS ENTRIES THAT CONTAIN AN EVENT LINE THAT 
*     IS INTENDED TO A SPECIFIC OPERATOR. 
# 
 
      BASED ARRAY ODEQ [00:00] S(1);
        BEGIN 
        ITEM ODE$WORD   U(00,00,60);     # FULL WORD REF #
        ITEM ODE$WC     U(00,48,12);     # NUM WORDS IN ENTRY # 
        END 
 
      ITEM ODEQL;                        # LENGTH OF ODEQ # 
 
# 
**    HBFQ - HISTORY BUFFER QUEUE.
* 
*     THIS QUEUE CONTAINS ONE ENTRY THAT HOLDS ALL THE TEXT LINES 
*     INTENDED TO COMPRISE THE HISTORY BUFFER. THE PROGRAM DEFINI-
*     TION MXHSBLCNT$ IN TEXTCS DICTATES THE MAXIMUM NUMBER OF
*     LINES THAT ARE ALLOWED TO BE IN THE HISTORY BUFFER. 
# 
 
      BASED ARRAY HBFQ [01:01] S(HBFESIZ$); 
        BEGIN 
        ITEM HBF$WORD   U(00,00,60);     # FULL WORD REF #
        ITEM HBF$AGRP   U(08,00,03);     # AUDIENCE GROUP OF MESSAGE #
        ITEM HBF$NORD   U(08,03,09);     # ORDINAL OF NPU THAT SENT MSG#
        ITEM HBF$LFLG   B(08,53,01);     # LIST FLAG #
        ITEM HBF$WC     U(08,54,06);     # MESSAGE WORD COUNT # 
        END 
 
      ITEM HBFQL;                        # LENGTH OF HBFQ # 
 
 
# 
**        TEND - DUMMY LAST TABLE.
* 
*         SERVES NO PURPOSE EXCEPT TO TERMINATE THE VECTOR OF 
*         TABLE POINTERS USED BY MANAGER. 
* 
# 
      BASED ARRAY TEND [0:0] S(1);     # DUMMY END ARRAY OF MANAGER    #
        BEGIN 
        ITEM TEN$WORD   U(00,00,60);  # CONTAINS ADDRESS AT END OF FL  #
        END 
 
      ITEM TENL;             # CONTAINS TOTAL STORAGE USED             #
 
      ITEM V24FLAG B ;             # CCP 2.4 FLAG                      #
      ITEM CCPVERS U       ;       # CCP VERSION                       #
 
      END                              # TABLES                        #
      DEF PAGE1 #1# ; 
      DEF PAGE2 #2# ; 
      DEF PAGE3 #3# ; 
      DEF NPG   #3# ;              # CURRENT NUMBER OF PAGE FOR RIGHT  #
                                   # K DISPLAY SCREEN                  #
 
      DEF RKPAGESZ #116#;          # SIZE OF RIGHT K-DISPLAY IN WORD   #
 
 
      END #TEXTCS # 
 TERM