*COMDECK COM08
          CONTROL NOLIST;    #COM08#
                                                                         SMPA077
#----------------------------------------------------------------------# SMPA077
#     NOTE- ANY CHANGES MADE TO THIS DECK MUST ALSO BE MADE TO SYMT6C. # SMPA077
#----------------------------------------------------------------------# SMPA077
                                                                         SMPA077
                  #-------------------------------------------# 
    COMMON COM08; #                 START  COM08              # 
                  #-------------------------------------------# 
                  #                                           # 
ARRAY ZSYM[127]   #                                           # 
      S(1);ITEM   #                                           # 
                  #                                           # 
          SWORD(0),                                          #**DEBUG**# OPT2B-T
ALNK I(02,42,18), # PRINTER TO ADCONS OBJECT                  # 
APNM I(01,24,18), # ASSOCIATED PROGRAM NAME                   # 
                  # PF1 PFS SET OPT USES -- LABL              # 
ASEQ I(00,24,18), # ALLOCATION SEQUENCE                       # 
BABY I(01,24,18), # LINK TO FIRST ENTRY OF CHAIN UNDER SLC/TBL# 
                  # PFS SETS AL PF2 CODG EDIT OPT USE         # 
BCOR I(00,24,18), # BOUND CORRECTION(OFFSET)                  # 
                  # PFS SETS PFS PF2 USE     BPAR             # 
BPLK I(01,00,18), # BOUND PAIR LINK                           # 
                  # PFS SETS PF2 USES        BPAR             # 
BREG I(02,19,04), # B-REGISTER                                # 
                  # CODG SETS/USES         CONS DATA LOOP TEMP# 
CLAS S:QCLAS      # ENTRY CLAS                                # 
      (00,00,06), # PFS SETS PFS THRU ED USE                  # 
COLK I(00,00,18), #NOT FOR SYMBOLS.  LINK FOR CODE BUFFERS,    #
                  # WHICH REIIDES IN THE SYMBOL TABLE REGION.  #
CONL S:QCONL      # CONSTANT LOADING                          # 
      (01,23,04), # CODG SETS/USES           CONS             # 
C1NL U(02,04,06), # FIRST PARAM FOR CONST LOADING             # 
                  # CODG SETS/USES           CONS             # 
C2NL U(02,10,06), # SECOND PARAM FOR CONST LOADING            # 
                  # CODG SETS/USES           CONS             # 
CONS I(01,00,60), # INTEGER CONSTANT SYNONYM FOR NAME         # 
                  # PFS SETS PFS PF1,2 DP CODG ED USE   NAME  # 
CSTR S:CLIST      # CONSTRUCT NUMBER                          # 
      (01,00,09), # PFS SETS PFS PF1,2 USE                    # 
DBCT B(01,19,01), # DEFINED BY COMPUTATION TRAIT              # 
                  # PF1 SETS OPT USES                         # 
DCIP B(04,34,01), # DIRECT CODE                               # 
                  # SET    OPT2                               # 
                  # USED   OPT2                               # 
                  # CLASS  PROC FUNC CLOS                     # 
DDEL I(01,42,18), # DIMENSION SIZE                            # 
                  # PFS SETS PF1 USES        BPAR             # 
DECL S:QDECL      # DECLARATION STATUS                        # 
      (01,18,02), # PFS SETS/USES            LABL PROC FUNC   # 
DMPY I(01,18,18), # DIMENSION MULTIPLIER                      # 
                  # PFS SETS PFS PF1,2 AL USE BPAR            # 
DSPL I(01,24,18), # DISPLACEMENT                              # 
                  # CODG SETS ED USES        ADCON            # 
ESDC S:QESDC      # EXTERNAL DICTIONARY                       # 
      (00,07,04), # PFS SETS AL,EDIT USE     SLC              # 
FBIT U(01,36,06), # FIRST BIT                                 # 
                  # PFS SETS CODG OPT USE                     # 
FDFP I(00,24,18), # FORMAL PARA LINK TO DECLARED ENTRY        # 
                  # PFS SETS PF2 CODG OPT USE FPAR            # 
FINS U(01,09,11), #ICFT INDEX OF PREAMBLE REPL                       #
                  #CG2 SET AND USES  --- FPAR ONLY              # 
FLCH I(01,42,18), # FORMAL LABEL CHAIN                        # 
                  # PFS SETS/USES     LABL FPAR PROC FUNC DUMY# 
FLPB I(02,24,18), # FORMAL LOOP BASE                          # 
                  # SET    OPT2                               # 
                  # USED   OPT2                               # 
                  # CLASS  LOOP                               # 
FLPX I(02,06,07), # FORMAL LOOP INDEX                         # 
                  # SET    OPT2                               # 
                  # USED   OPT2                               # 
                  # CLASS  LOOP DATA                          # 
FNBR S:QFNBR      # FUNCTION NUMBER OF INTRINSIC FUNCTION     # 
      (00,35,07), # PFS SETS CODG PFS PF2 OPT USE  INSC       # 
FNME R(01,00,60), # FLOATING POINT CONSTANT                   # 
                  # PFS SETS                 NAME             # 
FOLD U(00,25,17), # ASSOCIATED FOLDING NUMBER.                # 
                  # CODGEN  SETS/USES.                        # 
FPLN I(02,24,18), # FORMAL PARAMETER LINK                     # 
                  # PFS SETS CGN USES        PROC FUNC        # 
FPRI S:QFPRI      # FORMAL PARA CALL TYPE       CLOS PROC FUNC# 
      (01,21,02), # PFS SETS CGN OPT USE                      # 
FRGT B(00,11,01), # BRANCH VIA PROC/SWITCH FLAG               # 
                  # PF1 SETS CODG OPT USE    LABL             # 
FSEQ I(01,42,18), #SEQUENCE NUMBER IN ICF IN WHICH PREAMBLE OCCURS   #
                  #CG2 SET AND USES --- FPAR ONLY                  #
FTGT B(01,11,01), # FORWARD BRANCH TARGET TRAIT               # 
                  # SET    PF1 OPT1                           # 
                  # USED   OPT1 OPT2                          # 
                  # CLASS  LABL                               # 
FTXT I(00,24,18), # ST INDEX OF FIRST ENTRY OF A SYMPL TEXT   # 
                  # SET    USETEXT                            # 
                  # USED   CRFLST                             # 
                  # CLAS   TEXT                               # 
FVAL U(02,43,17), # FOLDING VALUE                             # 
                  # SET    PF1 OPT2                           # 
                  # USED   OPT2                               # 
                  # CLASS  ARRY DATA TABL FUNC CONS LOOP      # 
FVNS B(02,42,01), # FOLDING VALUE NOT SET                     # 
                  # SET    OPT2                               # 
                  # USED   OPT2                               # 
                  # CLASS  ARRY DATA TABL FUNC CONS LOOP      # 
                  # CLASS  FUNC                               # 
FVTP I(03,00,18), # FUNCTION NAME TEMP.                       # 
                  # CLAS   FUNC.                              # 
GLNK I(03,00,18), # GLOBAL NAMES LINK                         # 
                  # SET    OPT1                               # 
                  # USED   OPT1                               # 
                  # CLASS  PROC FUNC CLOS SWCH PROG           # 
GNLT I(03,42,18), # GLOBAL-NAMES-LIST TEMP LINK               #          CEXEC/A
                  # SET    OPT1                               # 
                  # PF1 SETS, OPT USES CGII PF2 SETS USES LABL# 
                  # CLASS  PROC FUNC                          # 
GSET B(01,20,01), # GLNK SET-IF FALSE THEN NOT SET            # 
                  # SET    OPT1                               # 
                  # USED   OPT1                               # 
                  # CLASS  PROC FUNC CLOS SWCH PROG           # 
HLNK I(00,24,18), # HASH LINK                                 # 
                  #                                           # 
ICFS U(01,00,18), # POINTS TO ICF INDEX OF LAST SAVE.         # 
                  # CG1  SETS-USES.                           # 
INAM I(01,00,60), # INTEGER CONSTANT NAME. SYNONYM FOR NAME   # 
                  # PFS SETS PFS PF1,2 DP CODG ED USE         # 
INRT B(00,11,01), # REACTIVE/INERT ARRAY                      # 
                  # SET BY PFS,  USED BY CG2.                 # 
INVR U(02,00,42), # INVARIANT PART OF ADCON                   # 
                  # CGI SET/ ED USE     ADCN                  # 
IVTR B(00,11,01), # INDICATES CURRENTLY ACTIVE INDUCTION VAR. # 
                  # SET    BY     PF1,OPT2                    # 
                  # USED   BY     OPT2                        # 
                  # CLAS          LOOP                        # 
IVUC U(02,13,05), # INDUCTION VARIABLE USE COUNT              # 
                  # SET    PF1 OPT2                           # 
                  # USED   OPT2                               # 
                  # CLASS  LOOP                               # 
IVUS B(1,18,1),   #INDUCTION VARIABLE IN USE                  #          CEXEC-S
                  #SET, USED IN OPT.   CLAS.. DATA, TITM      #          CEXEC-S
LBCT I(01,31,11), # NO. OF LABELS IN SWITCH DECLARATION       # 
                  # SET    OPT1                               # 
                  # USED   OPT1 OPT2                          # 
                  # CLASS  SWCH                               # 
LBIL B(01,10,01), # LABEL BEGINS INNERMOST LOOP               # 
                  # CODG SETS/USES           LABL             # 
LBLB I(01,00,18), # LABEL LIST BASE                           # 
                  # SET    PF1 OPT1                           # 
                  # USED   OPT1 OPT2                          # 
                  # CLASS  PROC FUNC CLOS SWCH PROG           # 
LBLN U(04,07,09), #NO. OF GLOBALLY REFERENCEC LABELS          #          CEXEC-S
                  #SET - OPT1, USED - OPT2. CLAS - LABL       #          CEXEC-S
LBLX U(04,00,07), #LABEL LIST STARTING INDEX                  #          CEXEC-S
                  # SET -  OPT1, USED - OPT2. CLAS - LABL     #          CEXEC-S
LBND I(00,07,17), # LOWER BOUND OF ARRAY                               # JUNK 
                  # SET BY PF12  , USED BY EDITOR(CID)  , CLASS = BPAR # JUNK 
LBNL I(02,42,18), # LABEL OF NEXT LOOP                        # 
                  # CODG SETS/USES           LABL             # 
LBSN B(00,10,01), # LABEL SEEN INDICATOR                      # 
                  # CODG SETS/USES           LABL             # 
LCCT U(02,10,13), # LOOP CONTROL COUNT TRAIT                  # 
                  # SET    PF1 OPT1                           # 
                  # USED   OPT2                               # 
                  # CLASS  LABL                               # 
LDST I(02,42,18), # LOAD STORE                                # 
                  # CODG SETS/USES                            # 
LENT I(01,00,18), # LAST ENTRY IN ASEQ CHAIN UNDER SLC        # 
                  # PFS SETS PFS PF1 AL CODG OPT ED USE   SLC # 
LEVL S:QLEVEL     # SCM/LCM/ECS  STORAGE INDICATOR.           # 
      (00,12,02), # SET  BY  PF1                              # 
                  # USED BY  CG2, EDITOR                      # 
LFSR I(02,10,13), # LABEL FIRST SEQ REF                       # 
                  # CODG SETS/USES           LABL             # 
LICF I(02,24,18), # ICF SEQUENCE NUMBER OF LABEL              # 
                  # CG2 SETS/USES            LABEL            # 
LMOM I(02,42,18), # LINK TO SYNONYMOUS LABEL                  # 
                  # SET    OPT1                               # 
                  # USED   OPT1 OPT2                          # 
                  # CLASS  LABL                               # 
LOCN I(01,42,18), # RELATIVE LOCN                             # 
                  # AL SETS AL ED USE                         # 
LPTR B(01,12,01), # LABEL PROCESSED INDICATOR                 # 
                  # SET    PF1 OPT1                           # 
                  # USED   OPT1                               # 
                  # CLASS  LABL                               # 
LRCT I(01,00,10), # COPY OF LABEL REF COUNT                   # 
                  # SET    PF1 OPT1                           # 
                  # USED   OPT1                               # 
                  # CLASS  LABL                               # 
LREF I(02,00,10), # LABEL REFERENCE COUNT                     # 
                  # PF1  SETS OPT USES CGII PF2 SETS USES LABL# 
LSEQ I(02,24,18), # LAST SEQ                                  # 
                  # CODG SETS/USES                            # 
LSKY B(01,19,01), # LOAD/STORE KEY                            # 
                  # CODGJ2-3 SET USE.                         # 
LTXT I(01,42,18), # ST INDEX OF LAST WORD+1 OF A SYMPL TEXT   # 
                  # SET    USETEXT                            # 
                  # USED   CRFLST                             # 
                  # CLAS   TEXT                               # 
LUSX U(02,18,06), # LAST USE SEARCH INDEX                     # 
                  # SET    PF1 OPT2                           # 
                  # USED   OPT2                               # 
                  # CLASS  DATA LOOP                          # 
MAMA I(03,42,18), # LINK TO TABLE ENTRY                       # 
                  # PFS SETS PFS AL CODG OPT USE    TITM STRG # 
MCNS I(01,42,18), # ARRAY MULTIPLIER                          # 
                  # PFS SETS/USES                 TABL        # 
MERV I(02,42,18), # MULTIPLE ENTRY POINT RETURN VALU.         # 
                  # CG2 SETS,  EDITOR USES.     PROC, FUNC.   # 
MFAC I(03,12,12), # SUBSCRIPT BYTE ADDRESSING MULT FACTOR     # 
                  # AL SETS PF2 OPT USE    ARRY TITM STRG TABL# 
MPRC B(02,11,01), # MAIN PROG FLAG                            # 
                  # PFS SETS ED USES       PROC FUNC PROG CLOS# 
MUEN B(01,18,01), # MULTIPLE ENTRY                            # 
                  # CODG SETS/USES           FUNC PROC        # 
MUFV B(01,19,01), # MULTIPLE FUNCTION VALUE                   # 
                  # CODG SETS/USES           FUNC PROC        # 
NAME C(01,00,10), # NAME WORD                                 # 
                  # PFS SETS PFS PF1,2 DP CODG ED USE   NAME  # 
NBIT U(01,30,06), # NUMBER OF BITS                            # 
NBYT I(01,27,09), # NUMBER OF BYTES                           # 
                  # PFS SETS AL PF2 CODG USE                  # 
NCHR U(00,07,08), # NUMBER OF CHARACTERS IN NAME              # 
                  # PFS SETS PFS PF1 DP CODG ED USE   NAME    # 
NCSR S:CLIST      # CONSTRUCT NUMBER IN LOOKUP                # 
      (00,15,09), #                          NAME             # 
NDIM U(02,11,03), # NUMBER OF DIMENSIONS                      # 
                  # PFS SETS PF2 PFS AL   ARRY TABL TITM STRG # 
NFPR I(01,24,18), # NEXT FORMAL PARAMETER                     # 
                  # PFS SETS PFS PF2 OPT CODG USE    FPAR     # 
NLNK I(00,42,18), # NEXT LINK                                 # 
NNAM B(00,06,01), # NO NAME FLAG                              # 
NPMC I(01,09,06), # NUMBER OF PARAMETERS IN A MACRO           # 
NTLE I(00,42,18), # NEXT TEMP LIST ENTRY                      # 
                  # CODG SETS/USES           TEMP             # 
                  # PF1 SETS/AL USES              TABL        # 
NWDS U(02,11,05), # NUM WORDS IN TEMP                         # 
                  # CGI SETS/USES TEMP                        # 
OBRT B(01,13,01), # OUTERMOST BRANCH TRAIT                    # 
                  # SET    PF1 OPT2                           # 
                  # USED   OPT2                               # 
                  # CLASS  LABL                               # 
OLAY B(00,10,01), # OVERLAY INDICATER.                        # 
                  # SET BY  PF1                               # 
                  # USED BY OPT2                              # 
                  # CLAS   ARRY,DATA,TABL,TITM,STRG,DUMY      # 
PACK S:QPACK      # TYPE OF TARGET MACHINE WORD PACKING       # 
      (02,04,02), # PF1 SETS CODG OPT USE                     # 
PARLNK I(1,42,18),# LINK TO NEXT PARAMETER OF A MACRO OR NEXT # 
                  #       OUTERMOST MACRO CALL                # 
PORS B(00,15,01), # PARALLEL/SERIAL FLAG                      # 
                  # PFS SETS PF2 CODG OPT USE    TABL         # 
POSI S:QPOSI      # POSITIONING                               # 
      (01,21,03), # CODG SETS ED USES        ADCN             # 
PRVB I(04,35,18), # PROCEDURE REDEFINED VARIABLE BASE         # 
                  # SET    OPT1                               # 
                  # USED   OPT2                               # 
                  # CLASS  CLOS FUNC PROC PROG                # 
PRVN U(04,18,16), # PROCEDURE REDEFINED VARIABLE NUMBER       # 
                  # SET    OPT1                               # 
                  # USED   OPT2                               # 
                  # CLASS  CLOS FUNC PROC PROG                # 
PRVX U(03,35,07), # PROCEDURE REDEFINED VARIABLE INDEX        # 
                  # SET    OPT1                               # 
                  # USED   OPT2                               # 
                  # CLASS  CLOS FUNC PROC PROG                # 
PUVB I(03,42,18), # PROCEDURE USED VARIABLE BASE              # 
                  # SET    OPT1                               # 
                  # USED   OPT2                               # 
                  # CLASS  CLOS FUNC PROC PROG                # 
PUVE I(01,00,18), # POINTER TO PROC-USED-VAR LIST ENTRY      #           CEXEC-U
                  # SET/USED - OPT     CLAS DATA, TITM, TEMP #           CEXEC-U
PUVN U(03,18,16), # PROCEDURE USED VARIABLE NUMBER            # 
                  # SET    OPT1                               # 
                  # USED   OPT1 OPT2                          # 
                  # CLASS  CLOS FUNC PROC PROG                # 
PUVX U(04,53,07), # PROCEDURE USED VARIABLE INDEX             # 
                  # SET    OPT1                               # 
                  # USED   OPT1 OPT2                          # 
                  # CLASS  CLOS FUNC PROC PROG                # 
RICS B(02,18,01), # INDICATES THAT ENTITY IS REDEFINED        # 
                  # CODG SETS/USES                            # 
RLNK I(01,24,18), # LINK TO ATTRIBUTE ENTRY WHICH RESOLVS DUMY# 
                  # PFS SETS PFS PF2 USE     DUMY             # 
RLNO I(01,00,07), # RELOCATION NUMBER                         # 
                  # ED SETS/USES                              # 
SBEG U(00,16,08), # SCOPE BEGIN NUMBER                        # 
SBSC I(03,42,18), # SUBSCRIPT EXPRESSION LINK                 # 
                  # PF1 SETS AL PF2 USE      ARRY TABL        # 
SIGN B(00,15,01), # SIGNED DATA INDICATOR                     # 
                  # PFS SETS PFS PF2 CODG    ARRY DATA TITM   # 
SIND B(01,19,01), # PRESET DATA INDICATOR                     # 
                  # PFS SETS AL USES       DATA TITM ARRY STRG# 
SLLK I(02,42,18), # LINK TO STATUS LIST                       # 
                  # PFS SETS PFS PF1 USE. FUNC DATA TITM STRG # 
                  #                                 ARRY FILE # 
SMOM I(01,00,18), # STATUS MOTHER                             # 
                  # PFS SETS PFS PF2 USE     SCON             # 
SPTR I(01,24,18), # LINK TO DEF STRING                        # 
                  # PFS SETS PFS PF1 USE     DEF              # 
                  # AL SETS CODG ED OP USE                    # 
SSIZ I(01,42,18), # SECTION SIZE                              # 
                  #                          SLC              # 
STEX I(02,42,18), # STEP EXPRESSION ICF PTR.                  # 
                  # CGI SETS/USES            LOOP             # 
SUBC B(01,20,01), # SUBSUMATION OF CONSTANT                   # 
                  # SET    OPT2                               # 
                  # USED   OPT2                               # 
                  # CLASS  DATA                               # 
SYMR I( 0,42,18), # UTILITY                                   # 
                  # ALL SET/USE         ALL CLASSES           # 
SYM0 I( 0, 0,60), # NAME USED FOR GENERAL ZSYM REFERENCES     # 
                  # SET/USED THROUGHOUT COMPILER              # 
SYSV I(00,24,18), #                                           # 
                  # PFS SETS PFS CODG USE    SCON             # 
TDRC I(01,00,18), # TEST DIRECTION                            # 
                  # CGI SETS/USES            LOOP             # 
TENT I(02,24,18), # NO. ENTRIES IN TABLE                      # 
TLNK I(00,42,18), # LINK TO NEXT S"TEXT" ENTRY                # 
                  # SET    USETEXT                            # 
                  # USED   CRFLST                             # 
                  # CLAS   TEXT                               # 
TLUS B(01,20,01), # TEMP LAST USE INDICATOR                   # 
                  # CG2 SETS/USES            TEMP             # 
                  # PFS SETS PFS PF1,2 OPT AL USE    TABL     # 
TNAM C(01,00,07), # NAME OF SYMPL TEXT                        # 
                  # SET    USETEXT                            # 
                  # USED   CRFLST                             # 
                  # CLAS   TEXT                               # 
TPCH I(02,42,18), # TEMP CHAIN                                # 
                  # PFS SETS PFS CODG USE                     # 
TPCI I(01,24,18), # TEMP COMPUTATION INDEX                    # 
                  # CODG SETS/USES           TEMP             # 
TPFO B(02,07,01), # INDICATES TEMP USED AS FOR-LOOP CONSTANT. # 
                  # PF13 SETS.   CG1, CG2  USE.               # 
TPGN B(02,06,01), # INDICATES PASS GENERATING TEMP            # 
                  # PASS 1 = FALSE , PASS 2 (CG1) = TRUE      # 
TTYP S:QTTYP      # TABLE TYPE                                # 
      (02,19,04), # PFS SETS PF1 AL CODG ED USE    TABL       # 
TYPE S:QTYPE      # DATA TYPE                                 # 
      (02,00,04), #                                           # 
USES I(01,00,18), # LIST OF USES OF THIS ITEM                 # 
                  # CODG SETS/USES                            # 
UNDEC B(0,14,01), # INDICATES VARIABLE NOT FULLY DECLARED.    # 
                  # PF1SUB SETS              EDITOR USES      # 
VCLK I(00,07,18), # VALU CHAIN LINK                           # 
                  # CODJ SETS/USES                            # 
VLNK I(00,42,18), # LINKS VALU ENTRIES.                       # 
                  # CODJ  SETS/USES.                          # 
WDEN I(03,00,12), # WORD IN ENTRY OF TABLE ITEM               # 
                  # PFS SETS PFS AL PF2 CODG OP USE           # 
WELB B(00,10,01), # BADLY/WELL - BEHAVED  DATA/TABL/TEMP/CONS # 
                  # SET  BY  PFS                              # 
                  # USED BY  CG2                              # 
WENT I(03,00,12), # NO. WORDS PER TABLE ENTRY                 # 
                  # PFS SETS AL PF2 OPT USE    TABL           # 
XRCH B(02,23,01), # PROC/LABEL REACHABLE EXTERNALLY           #          CEXEC-S
                  #SET/USED OPT1,2. PROC,FUNC,PRGM,LABL,SWCH  #          CEXEC-S
XRFL I(00,24,18), # CROSS REFERENCE LINK                      # 
                  # CRSREF SETS/USES                          # 
XTRN S:QXTRN      # EXTERNAL REFERENCE TYPE                   # 
      (00,07,03); # PFS SETS AL CODG OPT ED USE               # 
                  #                                           # 
                  #-------------------------------------------# 
                  #                END COM08                  # 
                  #-------------------------------------------# 
  
#         DEFINE LEVEL OF SYMBOL TABLE                                 #
  
*CALL SYMTBLV 
  
      CONTROL IFNQ SYMTBLV,0; 
      CONTROL LEVEL2 COM08; 
      CONTROL ENDIF;
  
          CONTROL LIST;      #COM08#
