*COMDECK GTEXT                                                           GTEXT
          CONTROL NOLIST;    #GTEXT#
  # # CONTROL EJECT;                                                     GTEXT
  # ****************************************************************** # GTEXT
  # *                                                                * # GTEXT
  # *  THE FOLLOWING SYMBOLS ARE VALUE NAMES FOR THE THREE FIELDS IN * # GTEXT
  # * THE GTEXT ATOMS. THEY ARE NORMALLY USED WITH THE EQUALS        * # GTEXT
  # * FUNCTION IN IFZ COMMANDS.                                      * # GTEXT
  # *    EXAMPLE:                                                    * # GTEXT
  # *            IFZ    ((GCODEOF,REG1),EQ,(EQUALS,GVERB)),ABC       * # GTEXT
  # *                                                                * # GTEXT
  # *  NOTE THAT WHEN A GTEXT VALUE IS CHANGED, THE INITIALIZATION   * # GTEXT
  # *  CODE IN ROUTINE GTXTDMP MUST BE CHANGED CORRESPONDINGLY.      * # GTEXT
  # *                                                                * # GTEXT
  # ****************************************************************** # GTEXT
                                                                         GTEXT
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  # GTEXT
  # * THE GTEXT ATOM WORD HAS TWO 30-BIT FIELDS IN IT.                 # GTEXT
  # * ITS DEFINITION  FOLLOWS:                                         # GTEXT
                                                                         GTEXT
  # #     ARRAY GTEXT [0] S(1);                                          GTEXT
  # #     BEGIN                                                          GTEXT
  # #       ITEM GATOM       I (0);                                      GTEXT
  # #       ITEM GATOM1      U (0, 0, 30);                               GTEXT
  # #       ITEM GATOM2      U (0,30,30);                                GTEXT
  # #     END                                                            GTEXT
                                                                         GTEXT
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  # GTEXT
  # * THESE ARE VALUE NAMES FOR THE GCODE FIELD OF A GTEXT ATOM.       # GTEXT
  # * THEY ARE REFERENCED VIA THE EQUALS FUNCTION.                     # GTEXT
  # *    EXAMPLE:                                                      # GTEXT
  # *            MOVEZ  (EQUALS,GDATAREF),(GCODEOF,REG1)               # GTEXT
  #                                                                      GTEXT
          ORG    1                                                       GTEXT
  #                                                                      GTEXT
          DEF    GDATAREF    #1# ; #GT-DATA-REF (DNAT REFERENCE)       # GTEXT
          DEF    GFILEREF    #2# ; #GT-FILE-REF (FNAT REFERENCE)       # GTEXT
          DEF    GLABLREF    #3# ; #GT-LABEL-REF (PNAT REFERENCE)      # GTEXT
  # #     DEF GLABELREF  #GLABLREF#;   #SYNONYM FOR GLABLREF           #
          DEF    GLITREF     #4# ; #GT-LIT-REF  (LAT REFERENCE)        # GTEXT
          DEF    GPROCREF    #5# ; #GT-PROC-REF (PNAT REFERENCE)       # GTEXT
          DEF    GSUBATOM    #6# ; #GT-SUB-ATOM - GSUBSCR VERB ONLY    # GTEXT
          DEF    GSUBVERB    #7# ; #GT-SUB-VERB                        # GTEXT
          DEF    GSYSREF     #8# ; #GT-SYS-NAME-REF                    # GTEXT
          DEF    GVERB       #9# ; #GT-VERB                            # GTEXT
          DEF    GTEMPREF    #10#; # GT-TEMP-REF (CYBER CGEN ONLY)     # GTEXT
                                                                         GTEXT
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  # GTEXT
  # * THESE ARE VALUE NAMES FOR THE GSCODE FIELD OF A GVERB GTEXT ATOM.# GTEXT
  # * THEY CORRESPOND TO REAL SOURCE OR COMPILER-GENERATED VERBS.      # GTEXT
  # *  THEY ARE REFERENCED VIA THE EQUALS FUNCTION.                    # GTEXT
  # *    EXAMPLE:                                                      # GTEXT
  # *            MOVEZ  (EQUALS,GABORT),(GSCODEOF,REG1)                # GTEXT
  #                                                                      GTEXT
          ORG    1                                                       GTEXT
  #                                                                      GTEXT
*CALL GTEXTVB                                                            GTEXT
                                                                         GTEXT
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  # GTEXT
  # *  THESE ARE VALUE NAMES FOR THE GSCODE FIELD OF A GSUBVERB ATOM.  # GTEXT
  # *  THEY CORRESPOND TO REAL OR COMPILER-GENERATED RESERVED WORDS.   # GTEXT
  # *  THEY ARE REFERENCED VIA THE EQUALS FUNCTION.                    # GTEXT
  # *    EXAMPLE:                                                      # GTEXT
  # *            MOVEZ  (EQUALS,GAFTER),(GSCODEOF,REG1)                # GTEXT
  #                                                                      GTEXT
          ORG    1                                                       GTEXT
  #                                                                      GTEXT
          DEF    GAFTER            #1# ; # GT_AFTER #                    GTEXT
          DEF    GALL              #2# ; # GT_ALL #                      GTEXT
          DEF    GBEFORE           #3# ; # GT_BEFORE #                   GTEXT
          DEF    GCHARS            #4# ; # GT_CHARACTERS #               GTEXT
          DEF    GCOUNT            #5# ; # GT_COUNT #                    GTEXT
          DEF    GDATE             #6# ; # GT_DATE #                     GTEXT
          DEF    GDAY              #7# ; # GT_DAY #                      GTEXT
          DEF    GDAYOFWK          #8# ; # GT_DAY_OF_WEEK #              GTEXT
          DEF    GEGI              #9# ; # GT_EGI #                      GTEXT
          DEF    GEMI              #10# ; # GT_EMI #                     GTEXT
          DEF    GESI              #11# ; # GT_ESI #                     GTEXT
          DEF    GEXCEPT           #12# ; # GT_EXCEPTION #               GTEXT
          DEF    GEXTEND           #13# ; # GT_EXTEND #                  GTEXT
          DEF    GFIRST            #14# ; # GT_FIRST #                   GTEXT
          DEF    GINPUT            #15# ; # GT_INPUT #                   GTEXT
          DEF    GIO               #16# ; # GT_I_O #                     GTEXT
          DEF    GKEYEQ            #17# ; # GT_KEY_EQUAL #               GTEXT
          DEF    GKEYGR            #18# ; # GT_KEY_GREATER #             GTEXT
          DEF    GKEYNLSS          #19# ; # GT_KEY_NOT_LESS #            GTEXT
          DEF    GLEADING          #20# ; # GT_LEADING #                 GTEXT
          DEF    GLOCK             #21# ; # GT_LOCK #                    GTEXT
          DEF    GMESSAGE          #22# ; # GT_MESSAGE #                 GTEXT
          DEF    GNODATA           #23# ; # GT_NO_DATA #                 GTEXT
          DEF    GNOREWND          #24# ; # GT_NO_REWIND #               GTEXT
          DEF    GNULL             #25# ; # GT_NULL #                    GTEXT
          DEF    GOUTPUT           #26# ; # GT_OUTPUT #                  GTEXT
          DEF    GPAGE             #27# ; # GT_PAGE #                    GTEXT
          DEF    GREMOVE           #28# ; # GT_REMOVE #                  GTEXT
          DEF    GREPL             #29# ; # GT_REPLACING #               GTEXT
          DEF    GREVERSE          #30# ; # GT_REVERSED #                GTEXT
          DEF    GRUN              #31# ; # GT_RUN #                     GTEXT
          DEF    GSEGMENT          #32# ; # GT_SEGMENT #                 GTEXT
          DEF    GSIZE             #33# ; # GT_SIZE #                    GTEXT
          DEF    GTALLYNG          #34# ; # GT_TALLYING #                GTEXT
          DEF    GTERMIN           #35# ; # GT_TERMINAL #                GTEXT
          DEF    GTIME             #36# ; # GT_TIME #                    GTEXT
          DEF    GUNTIL            #37# ; # GT_UNTIL #                   GTEXT
          DEF    GDBGSWIT          #38# ; # GT-DEBUG-SWITCH-ATOM       #
          DEF    GSETTO            #39# ; # GT-SET-TO                  #
          DEF    GSETUPBY          #40# ; # GT-SET-UP-BY               #
          DEF    GSETDOWN          #41# ; # GT-SET-DOWN-BY             #
          DEF    GSETSORT          #42# ; # GT-SET-SORT                #
          DEF    GSETMERG          #43# ; # GT-SET-MERGE               #
          DEF    GSETSOMR          #44# ; # GT-SET-SORT-MERGE          #
          DEF    GSETPROG          #45# ; # GT-SET-PROGRAM             #
          DEF    GSETCODE          #46# ; # GT-SET-CODE-SET            #
          DEF    GSETON            #47# ; # GT-SET-ON                  #
          DEF    GSETOFF           #48# ; # GT-SET-OFF                 #
          DEF    GTATEND           #49# ; # GT-AT-END                  #
          DEF    GTINVKEY          #50# ; # GT-INVALID-KEY             #
          DEF    GSTROVER          #51# ; # GT-STRING-OVERFLOW         #
          DEF    GUNSOVER          #52# ; # GT-UNSTRING-OVERFLOW       #
          DEF    GFORTRNR          #53# ; # GT-FORTRAN-R               #
          DEF    GFORTRNX          #54# ; # GT-FORTRAN-X               #
          DEF    GNOADV            #55# ; # GT-NO-ADVANCING            #
        DEF    GDUPLCTS          #56# ; # GT-DUPLICATES                #
          DEF    GDFILE            #57# ; # GT _DELETE FILE            #
          DEF    GFTN5       #58#  ; # GT-FTN5                         #
                                                                         GTEXT
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  # GTEXT
  # *  THESE ARE MISCELLANEOUS VALUE NAMES.                            # GTEXT
                                                                         GTEXT
  # *  THESE ARE VALUE NAMES FOR THE GSCODE FIELD OF GLABLREF AND      # GTEXT
  # *  GPROCREF ATOMS.                                                 # GTEXT
  # *  THEY INDICATE A BRANCH CONDITION.                               # GTEXT
  # *  THEY ARE REFERENCED VIA THE EQUALS FUNCTION.                    # GTEXT
  # *    EXAMPLE:                                                      # GTEXT
  # *            MOVEZ  (EQUALS,GFALSE),(GSCODEOF,REG1)                # GTEXT
  #                                                                      GTEXT
          ORG    1                                                       GTEXT
  #                                                                      GTEXT
          DEF    GFALSE            #1# ; # GT_FALSE #                    GTEXT
          DEF    GTRUE             #2# ; # GT_TRUE #                     GTEXT
                                                                         GTEXT
  # *  THESE ARE VALUE NAMES FOR THE GSCODE FIELD OF GSUBATOM ATOMS.   # GTEXT
  # *  THEY ARE REFERENCED VIA THE EQUALS FUNCTION.                    # GTEXT
  # *    EXAMPLE:                                                      # GTEXT
  # *            MOVEZ  (EQUALS,GADDLIT),(GSCODEOF,REG1)               # GTEXT
  #                                                                      GTEXT
          ORG    1                                                       GTEXT
  #                                                                      GTEXT
          DEF    GADDLIT           #1# ; # GT_PLUS_LITERAL #             GTEXT
                                                                         GTEXT
                                                                         GTEXT
          CONTROL LIST;      #GTEXT#
