*DECK ETABLES 
         IDENT   ETABLES
          SPACE  2
          SST 
          SPACE  2
          ENTRY     SET1
          ENTRY     SET2
          ENTRY     SET3
          ENTRY     SET4
          ENTRY     SET5
          ENTRY     SET6
          ENTRY     SET7
          ENTRY     SET8
          ENTRY     SET9
          ENTRY     SET10 
          ENTRY     R$SUBS
          ENTRY     PPVERBS 
          ENTRY     PPTABLE 
          ENTRY     PPGTEXT 
          ENTRY     PP6BITS 
          ENTRY     RRVERBS 
          ENTRY     RRTABLE 
          ENTRY     RR6BITS 
          ENTRY     STACK 
          ENTRY  LDPPSET
SET1      EQU       * 
SET2      EQU       * 
SET3      EQU       * 
SET4      EQU       * 
SET5      EQU       * 
SET6      EQU       * 
SET7      EQU       * 
SET8      EQU       * 
SET9      EQU       * 
SET10     EQU       * 
R$SUBS    EQU       * 
PPVERBS   EQU       * 
PPTABLE   EQU       * 
PPGTEXT   EQU       * 
PP6BITS   EQU       * 
RRVERBS   EQU       * 
RRTABLE   EQU       * 
RR6BITS   EQU       * 
STACK     EQU       * 
LDPPSET   EQU    *
*CALL DPPPMACRO.
EETABLE    SETUP    EEVERBS,EE6BITS 
SETNO      EQU    12
          TITLE  ETABLES
*         DEFINITION POINTS 
DP20      EQU    20          ENVIRONMENT DIVISION 
DP21      EQU    21          CONFIGURATION SECTION
DP22      EQU    22          SOURCE-COMPUTER
DP23      EQU    23          OBJECT-COMPUTER
DP24      EQU    24          FILE-CONTROL 
DP25      EQU    25          SPECIAL-NAMES
DP26      EQU    26          I-O-CONTROL
DP27      EQU    27          SELECT 
*         CLAUSES 
GROUP13   EQU    13          SPECIAL-NAMES ITEMS
*                            ALPHABET 
*                            CURRENCY 
*                            DECIMAL-POINT
*                            QUOTE
*                            SIGN 
GROUP14   EQU    14          FILE-CONTROL ITEMS 
*                            RESERVE
*                            ORGANIZATION 
*                            ACCESS 
*                            FILE STATUS
*                            RECORD KEY 
*                            ALTERNATE
*                            RELATIVE 
*                            ASSIGN TO IMPLEMENTOR-NAME 
*                            USE
*                            BLOCK COUNT
*                            WORD-ADDRESS KEY 
GROUP15   EQU    15          I-O-CONTROL ITEMS
*                            APPLY
*                            RERUN
*                            SAME 
*                            MULTIPLE 
CLAUSE16  EQU    16          CONFIGURATION SECTION
CLAUSE17  EQU    17          SOURCE-COMPUTER
CLAUSE18  EQU    18          OBJECT-COMPUTER
GROUP19   EQU    19          SOURCE-COMPUTER ITEMS
*                            DEBUGGING MODE 
*                            MEMORY 
*                            SUPERVISOR 
GROUP20   EQU    20          OBJECT-COMPUTER ITEMS
*                            COLLATING SEQUENCE 
*                            ASSIGN OBJECT-PROGRAM
*                            SUPERVISOR 
CLAUSE21  EQU    21          INPUT-OUTPUT SECTION 
CLAUSE22  EQU    22          SPECIAL-NAMES
CLAUSE23  EQU    23          I-O-CONTROL
CLAUSE24  EQU    24          SELECT 
SUB1      EQU    1           ENVIRONMENT DIVISION PROLOGUE
SUB2      EQU    2           ENVIRONMENT DIVISION EPILOGUE
SUB3      EQU    3           QUOTE ROUTINE
SUB4      EQU    4           FN$ABORT ROUTINE 
SUB5      EQU    5           ACCESS MODE SEQUENTIAL 
SUB6      EQU    6           ACCESS MODE RANDOM 
SUB7      EQU    7           ACCESS MODE DYNAMIC
SUB8      EQU    8           ACCESS MODE ABORT
SUB9      EQU    9           ALPHABET-NAME ROUTINE
SUB10     EQU    10          ***** AVAILABLE
SUB11    EQU     11          ***** AVAILABLE
SUB11     EQU    11          ALPHABET-NAME IS NATIVE
SUB12     EQU    12          ALPHABET-NAME IS IMPLEMENTOR-NAME
SUB13     EQU    13          ALPHABET-NAME ABORT ROUTINE
SUB14     EQU    14          CDC-64 ASCII-64 EBCDIC UNI ROUTINE 
SUB15     EQU    15          ALPHABET-NAME IS STANDARD-1
SUB16     EQU    16          ALPHABET-NAME IS NATIVE
SUB17     EQU    17          ALPHABET-NAME IS LITERAL 
SUB18     EQU    18          ALPHABET-NAME IS LITERAL THRU LITERAL
SUB19     EQU    19          ALPHABET-NAME ALSO LITERAL ROUTINE 
SUB20     EQU    20          ALPHABET-NAME STILL MORE LITERALS
SUB21     EQU    21          ALPHABET-NAME LITERAL PROLOGUE 
SUB22     EQU    22          ALTERNATE RECORD KEY ROUTINE 
SUB23     EQU    23          ALTERNATE RECORD KEY DUPLICATES
SUB24     EQU    24          ALTERNATE RECORD KEY DUPLICATES ASCENDING
*                            SEE ALSO SUB74 THRU SUB78
SUB25     EQU    25          APPLY TECHNIQUE ON FILE-NAME 
SUB26     EQU    26          SELECT ASSIGN PROLOGUE 
SUB27     EQU    27          SELECT ASSIGN TO IMPLEMENTOR-NAME
SUB28     EQU    28          SELECT ASSIGN TO DEFINED NAME
SUB29     EQU    29          SELECT ASSIGN TO INPUT 
SUB30     EQU    30          SELECT ASSIGN TO OUTPUT
SUB31     EQU    31          SELECT ASSIGN TO LITERAL 
SUB32     EQU    32          BLOCK COUNT IS DATA-NAME 
SUB33     EQU    33          BLOCK COUNT IS LITERAL 
SUB34     EQU    34          CURRENCY SIGN IS LITERAL 
SUB35     EQU    35          SOURCE/OBJECT COMPUTER LITERAL 
SUB36     EQU    36          MULTIPLE FILE CONTAINS PROLOGUE
SUB37     EQU    37          MULTIPLE FILE CONTAINS FILE-NAME 
SUB38     EQU    38          MULTIPLE FILE POSITION INTEGER 
SUB39     EQU    39          ORGANIZATION IS SEQUENTIAL 
SUB40     EQU    40          ORGANIZATION IS RELATIVE 
SUB41     EQU    41          ORGANIZATION IS INDEXED
SUB42     EQU    42          ORGANIZATION IS DIRECT 
SUB43     EQU    43          ORGANIZATION IS ACTUAL-KEY 
SUB44     EQU    44          ORGANIZATION IS WORD-ADDRESS 
SUB45     EQU    45          ORGANIZATION IS NONE OF THE ABOVE
SUB46     EQU    46          RECORD KEY IS DATA-NAME
SUB47     EQU    47          RELATIVE KEY IS DATA-NAME
SUB48     EQU    48          RERUN END OF REEL OF FILE
SUB49     EQU    49          RERUN INTEGER RECORDS
SUB50     EQU    50          RERUN INTEGER RECORDS OF FILE-NAME 
SUB51     EQU    51          RERUN INTEGER CLOCK UNITS
SUB52     EQU    52          RERUN EVERY CONDITION
SUB53     EQU    53          LINE AND COLUMN
SUB54     EQU    54          FILE-NAME ROUTINE
SUB55     EQU    55          RESERVE INTEGER AREAS
SUB56     EQU    56          SAME RECORD AREA 
SUB57     EQU    57          SAME SORT/SORT-MERGE AREA
SUB58     EQU    58          SAME AREA ROUTINE
SUB59     EQU    59          SAME AREA FILE-NAME ROUTINE
SUB60     EQU    60          SEGMENT-LIMIT ROUTINE
SUB61     EQU    61          SELECT OPTIONAL ROUTINE
SUB62     EQU    62          SELECT FILE-NAME ROUTINE 
SUB63     EQU    63          PROGRAM COLLATING SEQUENCE 
SUB64     EQU    64          SIGN CONTROL IS LEADING
SUB65     EQU    65          SIGN CONTROL IS TRAILING 
SUB66     EQU    66          SIGN CONTROL SEPARATE
SUB67     EQU    67          FILE STATUS ROUTINE
SUB68     EQU    68          USE LITERAL ROUTINE
SUB69     EQU    69          WORD-ADDRESS KEY ROUTINE 
SUB70     EQU    70          SWITCH-N ROUTINE 
SUB71     EQU    71          ON STATUS IS CONDITION-NAME
SUB72     EQU    72          OFF STATUS IS CONDITION-NAME 
SUB73     EQU    73          IMPLEMENTOR-NAME IS MNEMONIC-NAME
SUB74     EQU    74          ALTERNATE KEY OMITTED WHEN ROUTINE 
SUB75     EQU    75          WHEN KEY IS SPACES OR ZEROES 
SUB76     EQU    76          ALTERNATE KEY WHEN DATA-NAME ROUTINE 
SUB77     EQU    77          ALTERNATE KEY LITERAL ROUTINE
SUB78     EQU    78          CLAUSE COUNT ROUTINE 
SUB79     EQU    79          SOURCE-COMPUTER ROUTINE
SUB80     EQU    80          OBJECT-COMPUTER ROUTINE
SUB81     EQU    81          SPECIAL-NAMES ROUTINE
SUB82     EQU    82          INPUT-OUTPUT SECTION ROUTINE 
SUB83     EQU    83          FILE-CONTROL ROUTINE 
SUB84     EQU    84          I-O-CONTROL ROUTINE
SUB85     EQU    85          FILE-CONTROL ENTRY ROUTINE 
SUB86     EQU    86          CONFIGURATION SECTION ROUTINE
SUB87     EQU    87          PERIOD ROUTINE 
SUB88     EQU    88          PSEUDO-FILE-NAME ROUTINE 
SUB89     EQU    89          MULTIPLE FILE CONTAINS EPILOGUE
SUB90     EQU    90          PSEUDO-FILE-NAME POSITION ROUTINE
          TITLE  ETABLES
          TITLE  MASTER TABLE 
TABLETOP  SUBROUT   SUB1 ENVIRONMENT DIVISION PROLOGUE
          DEFPT     DP20 ENVIRONMENT DIVISION 
          RESWORD   ENVIRMNT
          FDIAGNOS  T,36
          FBRANCH   M1
          AAREA 
          RESWORD   DIVISION
          FDIAGNOS  T,6 
          FBRANCH   M1
          PERIOD
          FDIAGNOS  T,7,LASTATOM
          BRANCH    M2
M1        SUBROUT   SUB78 CLAUSE COUNT ROUTINE
          PERIOD
          TSUBROUT  SUB87 PERIOD ROUTINE
M2        CLAUSE    COMMAOPT
          TBRANCH   M1
          ERRBRAN   M4
          BRANRET   MOTHER
          TBRANCH   M1
          ERRBRAN   M4
M3        ENDOFFI 
          TSUBROUT  SUB2 ENVIRONMENT DIVISION EPILOGUE
          TSTOP 
          DIAGNOS   D,1 
M4        ALWDIAG 
          ADVANCE 
          BRANCH    M1
          EJECT 
MOTHER    COMMARW   WITH
          FBRANCH   M7
          RESWORD   DEBUGGNG
          FBRANCH   M5
          BRANRET   T9
          RETURNX 
M5        RESWORD   SUPERVSR
          FBRANCH   M6
          BRANRET   T32 
          RETURNX 
M6        KEEP
          RETURNX 
M7        COMMARW   PROGRAM 
          FBRANCH   M11 
          RESWORD   SEQUENCE
          FBRANCH   M8
          BRANRET   T26 
          RETURNX 
M8        RESWORD   COLLATNG
          FBRANCH   M10 
          RESWORD   SEQUENCE
          FBRANCH   M9
          BRANRET   T26 
          RETURNX 
M9        KEEP
M10       KEEP
          RETURNX 
M11       COMMARW   COLLATNG
          FBRANCH   M13 
          RESWORD   SEQUENCE
          FBRANCH   M12 
          BRANRET   T26 
          RETURNX 
M12       KEEP
          RETURNX 
M13       COMMARW   FILE
          FBRANCH   M15 
          RESWORD   STATUS
          FBRANCH   M14 
          BRANRET   T30 
          RETURNX 
M14       KEEP
          RETURNX 
M15       LITERAL   COMMAOPT
          FBRANCH   M16 
          SUBROUT   SUB3 QUOTE ROUTINE
          SETTFFL 
          FKEEP 
          FBRANCH   M16 
          BRANRET   T18 
          RETURNX 
M16       TSTCONT   GROUP13 SPECIAL-NAMES ITEMS 
          TBRANCH   T37 
          RETURNX 
          TITLE  ACCESS MODE
T1        TSTCONT   GROUP14 FILE-CONTROL ITEMS
          FDIAGNOS  D,154,LASTATOM
          SUBROUT   SUB53 LINE AND COLUMN 
          ALLOW     MODE
          ALLOW     IS
          RESWORD   SEQUENTL
          TSUBROUT  SUB5 ACCESS MODE SEQUENTIAL 
          TBRANCH   T1L1
          RESWORD   RANDOM
          TSUBROUT  SUB6 ACCESS MODE RANDOM 
          TBRANCH   T1L1
          RESWORD   DYNAMIC 
          FSUBROUT  SUB8 ACCESS MODE ERROR
          FDSR      D,156 
          SUBROUT   SUB7 ACCESS MODE DYNAMIC
T1L1      RESWORD   RELATIVE
          FRETTRUE
          SUBROUT   SUB53 LINE AND COLUMN 
          ALLOW     KEY 
          ALLOW     IS
          DATAREF 
          FSUBROUT  SUB4 FN$ABORT ROUTINE 
          FDSR      D,155 
          SUBROUT   SUB47 RELATIVE KEY IS DATA-NAME 
          RETURNX 
          TITLE  ALPHABET ALPHABET-NAME 
T2        TSTCONT   GROUP13 SPECIAL-NAMES ITEMS 
          FDIAGNOS  D,230,LASTATOM
          DIAGNOS   J,277,LASTATOM  RW ALPHABET IS NON-STANDARD 
          DNDEF 
          FDSR      D,510 
          SUBROUT   SUB9 ALPHABET-NAME ROUTINE
          ALLOW     IS
          RESWORD   STNDARD1
          TSUBROUT  SUB15 ALPHABET-NAME STANDARD-1
          TRETURNX
          RESWORD   NATIVE
          TSUBROUT  SUB16 ALPHABET-NAME NATIVE
          TRETURNX
          IMPNAME 
          TBRANCH   T2L1
          TSTFLAG   35 (0 NOT UNDEFINED, 1 NOT DNREF) 
          FDSR      D,511,LASTATOM
          BRANRET   ANCOMMON
          TRETURNX
          SUBROUT   SUB13 ALPHABET-NAME ABORT ROUTINE 
          DSR       D,502 
T2L1      SUBROUT   SUB14 CDC-64 ASCII-64 EBCDIC UNI ROUTINE
          SETTFFL 
          FSUBROUT  SUB16 ALPHABET-NAME IS NATIVE 
          FDSR      D,511,LASTATOM
          RETURNX 
          TITLE  ALTERNATE KEY
T3        TSTCONT   GROUP14 FILE-CONTROL ITEMS
          FDIAGNOS  D,159,LASTATOM
          TSTFLAG   FIPS4 
          FDIAGNOS  T,798,LASTATOM
          RESWORD   RECORD
          FSUBROUT  SUB4 FN$ABORT ROUTINE 
          FDSR      D,160 
          ALLOW     KEY 
          ALLOW     IS
          DATAREF 
          FSUBROUT  SUB4 FN$ABORT ROUTINE 
          FDSR      D,161 
          SUBROUT   SUB22 ALTERNATE RECORD KEY ROUTINE
          RESWORD   DUPLCATS
          TBRANCH   T3L1
          RESWORD   WITH
          FBRANCH   T3L2
          RESWORD   DUPLCATS
          FSUBROUT  SUB4 FN$ABORT ROUTINE 
          FDSR      D,162 
T3L1      SUBROUT   SUB23 ALTERNATE RECORD KEY DUPLICATES 
          RESWORD   ASCENDNG
          TDIAGNOS  J,742,LASTATOM
          TSUBROUT  SUB24 ALTERNATE RECORD KEY DUPLICATES ASCENDING 
T3L2      RESWORD   USE 
          FBRANCH   T3L3
          RESWORD   WHEN
          TBRANCH   T3L2A 
          LITERAL            SEE IF USE LITERAL IS HERE 
          FSUBROUT  SUB4   FN$ABORT ROUTINE 
          FDSR      D,756 
          SUBROUT   SUB68  USE LITERAL ROUTINE
          RETTRUE 
T3L2A     BRANRET   AKCOMMON
          FDSR      D,759 
          BRANCH    T3L4
T3L3      RESWORD   OMITTED 
          FRETTRUE
          RESWORD   WHEN
          FSUBROUT  SUB4  FN$ABORT ROUTINE
          FDSR      D,756 
          RESWORD   KEY 
          TBRANCH   BKCOMMON
          SUBROUT   SUB74  ALTERNATE KEY OMITTED WHEN ROUTINE 
          BRANRET   AKCOMMON
          FDSR      D,759 
T3L4      RESWORD   OMITTED 
          FRETTRUE
          RESWORD   WHEN
          FSUBROUT  SUB4  FN$ABORT ROUTINE
          FDSR      D,756 
          RESWORD   KEY 
          FSUBROUT  SUB4  FN$ABORT ROUTINE
          FDSR      D,799 
BKCOMMON  ALLOW     IS
          LITERAL 
          FSUBROUT  SUB4  FN$ABORT ROUTINE
          FDSR      D,757 
          SUBROUT   SUB75  WHEN KEY IS SPACES OR ZEROES 
          BRANCH    T3L2
  
AKCOMMON  DATAREF 
          FSUBROUT  SUB4 FN$ABORT ROUTINE 
          FRETURNX
          SUBROUT   SUB76 ALTERNATE KEY WHEN DATA-NAME ROUTINE
          ALLOW     CONTAINS
          ALLOW     CHARACTR
          ALLOW     FROM
          LITERAL 
          FSUBROUT  SUB4 FN$ABORT ROUTINE 
          FDSR      D,760 
          SUBROUT   SUB77 ALTERNATE KEY LITERAL ROUTINE 
          RETURNX 
          TITLE  APPLY INPUT-OUTPUT-TECHNIQUE 
T4        TSTCONT   GROUP15 I-O-CONTROL ITEMS 
          FDIAGNOS  D,133,LASTATOM
          DIAGNOS   D,134,LASTATOM
          DIAGNOS   J,743,LASTATOM
          IMPNAME 
          TBRANCH   T4L1
          TSTFLAG   35 (0 NOT UNDEFINED, 1 NOT DNREF) 
          TDSR      D,109 
          INTEGER 
          FDSR      D,109 
T4L1      RESWORD   ON
          FDSR      D,110 
          DATAREF 
          FDSR      D,106 
T4L2      SUBROUT   SUB25 APPLY TECHNIQUE ON FILE-NAME
          DATAREF   COMMAOPT
          FRETTRUE
          BRANCH    T4L2
          TITLE  ASSIGN AND ASSIGN OBJECT-PROGRAM 
T5        RESWORD   OBJCTPRG
          FBRANCH   T5L1
          TSTCONT   GROUP20 OBJECT-COMPUTER ITEMS 
          FDIAGNOS  D,554,LASTATOM
          DIAGNOS   J,735,LASTATOM
          ALLOW     TO
          IMPNAME 
          TRETURNX
          TSTFLAG   35 (0 NOT UNDEFINED, 1 NOT DNREF) 
          FRETTRUE
          INTEGER 
          FDSR      D,555 
          RETTRUE 
  
T5L1      TSTCONT   GROUP14 FILE-CONTROL ITEMS
          FDIAGNOS  D,753,LASTATOM
          SUBROUT   SUB26 SELECT ASSIGN PROLOGUE
          ALLOW     TO
          BRANRET   STUFF   STUFF WITH NO LEADING COMMAS
          FSUBROUT  SUB4 FN$ABORT ROUTINE 
          FDSR      D,179 
          SUBROUT   SUB27 SELECT ASSIGN TO IMPLEMENTOR-NAME 
T5L2      BRANRET   STUFFWC   STUFF WITH COMMAS ALLOWED 
          FRETTRUE
          SUBROUT   SUB27 SELECT ASSIGN TO IMPLEMENTOR-NAME 
          BRANCH    T5L2
  
STUFF     IMPNAME 
          TRETURNX
          TSTFLAG   35 (0 NOT UNDEFINED, 1 NOT DNREF) 
          FSUBROUT  SUB28 SELECT ASSIGN TO DEFINED-NAME 
          FRETURNX
          LITERAL 
          TSUBROUT  SUB31 SELECT ASSIGN TO LITERAL
          TRETURNX
          BRANCH    T5L3
  
STUFFWC   IMPNAME   COMMAOPT
          TRETURNX
          TSTFLAG   35 (0 NOT UNDEFINED, 1 NOT DNREF) 
          FSUBROUT  SUB28 SELECT ASSIGN TO DEFINED-NAME 
          FRETURNX
          LITERAL   COMMAOPT
          TSUBROUT  SUB31 SELECT ASSIGN TO LITERAL
          TRETURNX
T5L3      RESWORD   INPUT 
          TSUBROUT  SUB29 SELECT ASSIGN TO INPUT
          TRETURNX
          RESWORD   OUTPUT
          TSUBROUT  SUB30 SELECT ASSIGN TO OUTPUT 
          RETURNX 
          TITLE  BLOCK COUNT
T6        TSTCONT   GROUP14 FILE-CONTROL ITEMS
          FDIAGNOS  D,243,LASTATOM
          ALLOW     COUNT 
          ALLOW     IS
          DATAREF 
          TSUBROUT  SUB32 BLOCK COUNT IS DATA-NAME
          TRETURNX
          INTEGER 
          TSUBROUT  SUB33 BLOCK COUNT IS LITERAL
          TRETURNX
          SUBROUT   SUB4 FN$ABORT ROUTINE 
          DSR       D,244 
          TITLE CONFIGURATION SECTION 
T7        TSTCONT   CLAUSE16 CONFIGURATION SECTION
          FDIAGNOS  D,186,LASTATOM
          SUBROUT   SUB86 CONFIGURATION SECTION ROUTINE 
          RESWORD   SECTION 
          FDSR      D,187 
          PERIOD
          FDIAGNOS  T,188 
          DEFPT     DP21 CONFIGURATION SECTION
          SETFLAG   48 CONFIGURATION SECTION PRESENT
          RETTRUE 
          TITLE  CURRENCY SIGN
T8        TSTCONT   GROUP13 SPECIAL-NAMES ITEMS 
          FDIAGNOS  D,149,LASTATOM
          ALLOW     SIGN
          RESWORD   IS
          FDIAGNOS  T,150 
          LITERAL 
          FDSR      D,151 
          SUBROUT   SUB34 CURRENCY SIGN IS LITERAL
          RETURNX 
          TITLE  DEBUGGING MODE 
T9        TSTCONT   GROUP19 SOURCE-COMPUTER ITEMS 
          FDIAGNOS  T,193,LASTATOM
          TSTFLAG   FIPS2 
          FDIAGNOS  T,701,LASTATOM
          RESWORD   MODE
          FDSR      T,195 
          RETURNX 
          TITLE  DECIMAL-POINT IS COMMA 
T10       TSTCONT   GROUP13 SPECIAL-NAMES ITEMS 
          FDIAGNOS  D,130,LASTATOM
          RESWORD   IS
          FDSR      D,131 
          RESWORD   COMMA 
          FDSR      D,132 
          RETURNX 
          TITLE  FILE-CONTROL 
T11       DIAGNOS   T,165 
          SUBROUT   SUB83 FILE-CONTROL ROUTINE
          SETFLAG   49 FILE-CONTROL PRESENT 
          AAREA 
          PERIOD
          FDIAGNOS  T,166 
          DEFPT     DP24 FILE-CONTROL 
          RETTRUE 
          TITLE  INPUT-OUTPUT SECTION 
T12       TSTCONT   CLAUSE21 INPUT-OUTPUT SECTION 
          FDIAGNOS  T,141,LASTATOM
          SUBROUT   SUB82 INPUT-OUTPUT SECTION ROUTINE
          AAREA 
          RESWORD   SECTION 
          FDSR      D,163 
          PERIOD
          FDIAGNOS  T,164 
          DEFPT     DP24 FILE-CONTROL 
          SETFLAG   50 INPUT-OUTPUT SECTION PRESENT 
          RESWORD   FILECONT
          FRETTRUE
          SETFLAG   49 FILE-CONTROL PRESENT 
          AAREA 
          PERIOD
          FDIAGNOS  T,166 
          RETTRUE 
          TITLE  I-O-CONTROL PARAGRAPH
T13       TSTCONT   CLAUSE23 I-O-CONTROL
          FDIAGNOS  T,199 
          SUBROUT   SUB84 I-O-CONTROL ROUTINE 
          AAREA 
          PERIOD
          FDIAGNOS  T,173 
          DEFPT     DP26 I-O-CONTROL
          RETTRUE 
          TITLE  MEMORY 
T14       TSTCONT   GROUP19 SOURCE-COMPUTER ITEMS 
          FTSTCONT  GROUP20 OBJECT-COMPUTER ITEMS 
          FDIAGNOS  T,754,LASTATOM
          DIAGNOS   J,732,LASTATOM
          ALLOW     SIZE
          RESWORD   ADDRESS 
          TBRANCH   T14L1 
          INTEGER 
          FDSR      D,550 
          RESWORD   WORDS 
          FRESWORD  CHARACTS
          FRESWORD  MODULES 
          FDSR      D,550 
          RETURNX 
T14L1     BRANRET   LTHRUL
          FDSR      D,551 
T14L2     BRANRET   LTHRUL
          TBRANCH   T14L2 
          RETTRUE 
LTHRUL    LITERAL   COMMAOPT
          FRETURNX
          SUBROUT   SUB35 SOURCE/OBJECT COMPUTER LITERAL
          RESWORD   THRU
          FDSR      D,551 
          LITERAL   COMMAOPT
          FDSR      D,551 
          SUBROUT   SUB35 SOURCE/OBJECT COMPUTER LITERAL
          RETURNX 
          TITLE  MULTIPLE 
T15       TSTCONT   GROUP15 I-O-CONTROL ITEMS 
          FDIAGNOS  D,124,LASTATOM
          TSTFLAG   FIPS3 
          FDIAGNOS  T,710,LASTATOM
          RESWORD   FILE
          FDSR      D,120 
          ALLOW     TAPE
          ALLOW     CONTAINS
          SUBROUT   SUB36 MULTIPLE FILE CONTAINS PROLOGUE 
          BRANRET   MFBODY
          FDSR      D,303 
T15L1     BRANRET   MFBODY
          TBRANCH   T15L1 
          ERRETRN 
          SUBROUT   SUB89 MULTIPLE FILE CONTAINS EPILOGUE 
          RETTRUE 
  
MFBODY    FILEREF   COMMAOPT
          FBRANCH   T15L2 
          SUBROUT   SUB37 MULTIPLE FILE CONTAINS FILE-NAME
          RESWORD   POSITION
          FRETTRUE
          INTEGER 
          FDSR      D,126 
          SUBROUT   SUB38 MULTIPLE FILE POSITION INTEGER
          RETTRUE 
T15L2     IMPNAME   COMMAOPT
          FRETURNX
          RESWORD   POSITION
          FSUBROUT  SUB88 PSEUDO-FILE-NAME ROUTINE
          FRETTRUE
          INTEGER 
          FDSR      D,126 
          SUBROUT   SUB90 PSEUDO-FILE-NAME POSITION ROUTINE 
          RETTRUE 
          TITLE  OBJECT-COMPUTER
T16       TSTCONT   CLAUSE18 OBJECT-COMPUTER
          FDIAGNOS  D,191,LASTATOM
          SUBROUT   SUB80 OBJECT-COMPUTER ROUTINE 
          PERIOD
          FDIAGNOS  T,192 
          DEFPT     DP23 OBJECT-COMPUTER
          SETFLAG   47 OBJECT-COMPUTER PRESENT
          IMPNAME 
          TSUBROUT  SUB78 CLAUSE COUNT ROUTINE
          TRETURNX
          TSTFLAG   35 (0 NOT UNDEFINED, 1 NOT DNREF) 
          FRETTRUE
          INTEGER 
          FDIAGNOS  J,734,LASTATOM
          TSUBROUT  SUB78 CLAUSE COUNT ROUTINE
          RETTRUE 
          TITLE  ORGANIZATION 
T17       TSTCONT   GROUP14 FILE-CONTROL ITEMS
          FDIAGNOS  D,129,LASTATOM
          ALLOW     IS
          RESWORD   SEQUENTL
          TSUBROUT  SUB39 ORGANIZATION IS SEQUENTIAL
          TRETURNX
          RESWORD   RELATIVE
          TSUBROUT  SUB40 ORGANIZATION IS RELATIVE
          TRETURNX
          RESWORD   INDEXED 
          TSUBROUT  SUB41 ORGANIZATION IS INDEXED 
          TRETURNX
          RESWORD   DIRECT
          TDIAGNOS  J,739,LASTATOM
          TSUBROUT  SUB42 ORGANIZATION IS DIRECT
          TRETURNX
          RESWORD   ACTUALKY
          TDIAGNOS  J,741,LASTATOM
          TSUBROUT  SUB43 ORGANIZATION IS ACTUAL-KEY
          TRETURNX
          RESWORD   WORDADDR
          DIAGNOS   J,740,LASTATOM
          TSUBROUT  SUB44 ORGANIZATION IS WORD-ADDRESS
          TRETURNX
          SUBROUT   SUB45 ORGANIZATION NONE OF THE ABOVE
          RETURNX 
          TITLE  QUOTE IS APOSTROPHE
T18       TSTCONT   GROUP13 SPECIAL-NAMES ITEMS 
          FDIAGNOS  D,119,LASTATOM
          RESWORD   IS
          FALLOW    ARE 
          RESWORD   APOSTROP
          FDSR      D,118 
          DIAGRET   J,727,LASTATOM
          TITLE  RECORD KEY 
T19       TSTCONT   GROUP14 FILE-CONTROL ITEMS
          FDIAGNOS  D,157,LASTATOM
          TSTFLAG   FIPS4 
          FDIAGNOS  T,797,LASTATOM
          ALLOW     KEY 
          ALLOW     IS
          DATAREF 
          TSUBROUT  SUB46 RECORD KEY IS DATA-NAME 
          TRETURNX
          SUBROUT   SUB4 FN$ABORT ROUTINE 
          FDSR      D,158 
          TITLE  RELATIVE KEY 
T20       DIAGNOS   D,111,LASTATOM
          ALLOW     KEY 
          ALLOW     IS
          DATAREF 
          FSUBROUT  SUB4 FN$ABORT ROUTINE 
          FDSR      D,155 
          SUBROUT   SUB47 RELATIVE KEY IS DATA-NAME 
          RETURNX 
          TITLE  RERUN
T21       TSTCONT   GROUP15 I-O-CONTROL ITEMS 
          FDIAGNOS  D,142,LASTATOM
          CLRFLAG   41 RERUN, ON IS OMITTED 
          CLRFLAG   42 RERUN ON IMPLEMENTOR NAME
          CLRFLAG   43 RERUN ON FILE NAME 
          CLRFLAG   44 RERUN ON OTHER NAME
          SUBROUT   SUB53 LINE AND COLUMN 
          RESWORD   ON
          FSETFLAG  41
          FBRANCH   T21L2 
          IMPNAME 
          TSETFLAG  42
          TBRANCH   T21L2 
          TSTFLAG   35 (0 NOT UNDDFINED, 1 NOT DNREF) 
          TBRANCH   T21L1 
          SUBROUT   SUB54 FILE NAME ROUTINE 
          SETTFFL 
          TSETFLAG  43
          FSETFLAG  44
          BRANCH    T21L2 
T21L1     LITERAL 
          FDSR      D,340 
          SETFLAG   42 RERUN ON IMPL NAME 
T21L2     ALLOW     EVERY 
          RESWORD   END 
          FBRANCH   T21L4 
          ALLOW     OF
          RESWORD   REEL
          FRESWORD  UNIT
          FDSR      D,143 
T21L3     ALLOW     OF
          DATAREF 
          FDSR      D,144 
          SUBROUT   SUB48 RERUN END OF REEL OF FILE 
          RETURNX 
T21L4     RESWORD   REEL
          FRESWORD  UNIT
          TBRANCH   T21L3 
          INTEGER 
          FBRANCH   T21L6 
          SUBROUT   SUB49 RERUN INTEGER RECORDS 
          RESWORD   RECORDS 
          TBRANCH   T21L5 
          RESWORD   CLKUNITS
          FDSR      D,146 
          SUBROUT   SUB51 RERUN INTEGER CLOCK UNITS 
          RETURNX 
T21L5     ALLOW     OF
          DATAREF 
          FDSR      D,144 
          SUBROUT   SUB50 RERUN INTEGER RECORDS OF FILE NAME
          RETURNX 
T21L6     DATAREF 
          FDSR      D,147 
          SUBROUT   SUB52 RERUN EVERY CONDITION 
          RETURNX 
          TITLE  RESERVE AREAS
T22       TSTCONT   GROUP14 FILE-CONTROL ITEMS
          FDIAGNOS  D,152,LASTATOM
          SUBROUT   SUB53 LINE AND COLUMN 
          INTEGER 
          TSUBROUT  SUB55 RESERVE INTEGER AREAS 
          RESWORD   AREA
          FALLOW    AREAS 
          RETTRUE 
          TITLE  SAME AREA
T23       TSTCONT   GROUP15 I-O-CONTROL ITEMS 
          FDIAGNOS  D,136,LASTATOM
          SUBROUT   SUB53 LINE AND COLUMN 
          RESWORD   RECORD
          TSUBROUT  SUB56 SAME RECORD AREA
          TBRANCH   T23L1 
          RESWORD   SORT
          FRESWORD  SORTMERG
          FSUBROUT  SUB58 SAME AREA ROUTINE 
          FBRANCH   T23L1 
          SUBROUT   SUB57 SAME SORT/SORT-MERGE AREA 
          TSTFLAG   FIPS4 
          FDIAGNOS  T,725,LASTATOM
T23L1     ALLOW     AREA
          ALLOW     FOR 
          DATAREF 
          FDSR      D,137 
          SUBROUT   SUB59 SAME AREA FILE-NAME ROUTINE 
          DATAREF   COMMAOPT
          FDSR      D,138 
T23L2     SUBROUT   SUB59 SAME AREA FILE-NAME ROUTINE 
          DATAREF   COMMAOPT
          FRETTRUE
          BRANCH    T23L2 
          TITLE  SEGMENT-LIMIT
T24       TSTCONT   GROUP20 OBJECT-COMPUTER ITEMS 
          FDIAGNOS  D,121,LASTATOM
          TSTFLAG   FIPS4 
          FDIAGNOS  T,702,LASTATOM
          RESWORD   IS
          FDSR      D,122 
          INTEGER 
          FDSR      D,123 
          SUBROUT   SUB60 SEGMENT LIMIT ROUTINE 
          RETURNX 
          TITLE  SELECT 
T25       TSTCONT   CLAUSE24 SELECT 
          FDIAGNOS  D,176,LASTATOM
          SUBROUT   SUB53 LINE AND COLUMN 
          SUBROUT   SUB85 FILE-CONTROL ENTRY ROUTINE
          RESWORD   OPTIONAL
          PASSTF
          SUBROUT   SUB61 SELECT OPTIONAL ROUTINE 
          DATAREF 
          FDSR      D,177 
          SUBROUT   SUB62 SELECT FILE-NAME ROUTINE
          SETTFFL 
          TDEFPT    DP24 FILE-CONTROL (SORT FILES)
          FDEFPT    DP27 SELECT 
          RETTRUE 
          TITLE  SEQUENCE 
T26       TSTCONT   GROUP20 OBJECT-COMPUTER ITEMS 
          FDIAGNOS  D,500,LASTATOM
          ALLOW     IS
          DATAREF 
          FDSR      D,501 
          SUBROUT   SUB63 PROGRAM COLLATING SEQUENCE
          RETURNX 
          TITLE  SIGN 
T27       TSTCONT   GROUP13 SPECIAL-NAMES ITEMS 
          FDIAGNOS  D,127,LASTATOM
          DIAGNOS   J,736,LASTATOM
          ALLOW     CONTROL 
          ALLOW     IS
          RESWORD   LEADING 
          TSUBROUT  SUB64 SIGN CONTROL IS LEADING 
          TBRANCH   T27L1 
          RESWORD   TRAILING
          FDSR      D,128 
          SUBROUT   SUB65 SIGN CONTROL IS TRAILING
T27L1     RESWORD   SEPARATE
          FRETTRUE
          SUBROUT   SUB66 SIGN CONTROL SEPARATE 
          ALLOW     CHARACTR
          RETTRUE 
          TITLE  SOURCE-COMPUTER
T28       TSTCONT   CLAUSE17 SOURCE-COMPUTER
          FDIAGNOS  D,189,LASTATOM
          SUBROUT   SUB79 SOURCE-COMPUTER ROUTINE 
          PERIOD
          FDIAGNOS  T,190 
          DEFPT     DP22 SOURCE-COMPUTER
          SETFLAG   46 SOURCE-COMPUTER PRESENT
          IMPNAME 
          TSUBROUT  SUB78 CLAUSE COUNT ROUTINE
          TRETURNX
          TSTFLAG   35 (0 NOT UNDEFINED, 1 NOT DNREF) 
          FRETTRUE
          INTEGER 
          FDIAGNOS  J,734,LASTATOM
          TSUBROUT  SUB78 CLAUSE COUNT ROUTINE
          RETTRUE 
          TITLE  SPECIAL-NAMES
T29       TSTCONT   CLAUSE22 SPECIAL-NAMES
          FDIAGNOS  D,148,LASTATOM
          SUBROUT   SUB81 SPECIAL-NAMES ROUTINE 
          AAREA 
          PERIOD
          FDIAGNOS  T,172 
          DEFPT     DP25 SPECIAL-NAMES
          RETTRUE 
          TITLE  STATUS 
T30       TSTCONT   GROUP14 FILE-CONTROL ITEMS
          FDIAGNOS  D,196,LASTATOM
          SUBROUT   SUB53 LINE AND COLUMN 
          ALLOW     IS
          DATAREF 
          FDSR      D,198 
          SUBROUT   SUB67 FILE STATUS ROUTINE 
          RETURNX 
          TITLE  SUBSCHEMA
CDCS      IFNE      OP.DCS,OP.NO
T31       TSTCONT   GROUP13  SPECIAL-NAMES ITEMS
          FDIAGNOS  D,139,LASTATOM
          ALLOW     IS
          DIAGNOS   J,737,LASTATOM
          IMPNAME 
          TRETURNX
          TSTFLAG   35 (0 NOT UNDEFINED, 1 NOT DNREF) 
          DSR       D,270 
CDCS      ELSE
T31       DSR       D,271,LASTATOM
CDCS      ENDIF 
          TITLE  SUPERVISOR 
T32       TSTCONT   GROUP19 SOURCE-COMPUTER ITEMS 
          FTSTCONT  GROUP20 OBJECT-COMPUTER ITEMS 
          FDIAGNOS  D,755,LASTATOM
          DIAGNOS   J,733,LASTATOM
          ALLOW     CONTROL 
          RETTRUE 
          TITLE  TRACE--ON
T33       SETFLAG   CMDTRACE
          RETTRUE 
          TITLE  TRACE--OFF 
T34       CLRFLAG   CMDTRACE
          RETTRUE 
          TITLE  USE
T35       TSTCONT   GROUP14 FILE-CONTROL ITEMS
          FDIAGNOS  D,242,LASTATOM
          DIAGNOS   J,738,LASTATOM
          LITERAL 
          FDSR      D,229 
          SUBROUT   SUB68 USE LITERAL ROUTINE 
          RETURNX 
          TITLE  WORD-ADDRESS KEY 
T36       TSTCONT   GROUP14 FILE-CONTROL ITEMS
          FDIAGNOS  D,245,LASTATOM
          ALLOW     KEY 
          ALLOW     IS
          DATAREF 
          FSUBROUT  SUB4 FN$ABORT ROUTINE 
          FDSR      D,246 
          SUBROUT   SUB69 WORD-ADDRESS KEY ROUTINE
          RETURNX 
          TITLE  ALPHABET NAME STUFF
T37       IMPNAME   COMMAOPT
          TBRANCH   T37L1 
          TSTFLAG   35 (0 NOT UNDEFINED, 1 NOT DNREF) 
          FBRANCH   T37L10
          LITERAL   COMMAOPT
          TBRANCH   T37L1 
          DNDEF     COMMAOPT
          FRETURNX
T37L1     SUBROUT   SUB70 SWITCH-N ROUTINE
          BRANRET   ONOFF 
          TRETURNX
          ERRETRN 
          DNDEF 
          TDIAGNOS  D,180,LASTATOM
          TBRANCH   T37L3 
          IMPNAME 
          FBRANCH   T37L2 
          SUBROUT   SUB14 CDC-64 ASCII-64 EBCDIC UNI
          SETTFFL 
          FDIAGNOS  D,180,LASTATOM
          FBRANCH   T37L3 
          RETURNX 
T37L2     RESWORD   IS
          FBRANCH   T37L4 
          DNDEF 
          TBRANCH   T37L3 
          IMPNAME 
          FBRANCH   T37L4 
          SUBROUT   SUB14 CDC-64 ASCII-64 EBCDIC UNI
          SETTFFL 
          TRETURNX
T37L3     SUBROUT   SUB73 IMPLEMENTOR-NAME IS MNEMONIC-NAME ROUTINE 
          BRANRET   ONOFF 
          RETTRUE 
T37L4     RESWORD   STNDARD1
          TSUBROUT  SUB15 ALPHABET-NAME IS STANDARD-1 
          TRETURNX
          RESWORD   NATIVE
          TSUBROUT  SUB16 ALPHABET-NAME IS NATIVE 
          TRETURNX
          BRANRET   ANCOMMON
          TRETURNX
          SUBROUT   SUB13 ALPHABET-NAME ABORT ROUTINE 
          DSR       D,502 
          EJECT 
ANCOMMON  LITERAL 
          FRETURNX
          TSTFLAG   FIPS3 
          FDIAGNOS  T,703,LASTATOM
          SUBROUT   SUB21 ALPHABET LITERAL PROLOGUE 
          SUBROUT   SUB17 ALPHABET-NAME IS LITERAL ROUTINE
T37L5     RESWORD   THRU
          FBRANCH   T37L6 
          LITERAL 
          FDSR      D,503 
          SUBROUT   SUB18 ALPHABET-NAME IS LITERAL THRU LITERAL 
          BRANCH    T37L8 
T37L6     RESWORD   ALSO
          FBRANCH   T37L8 
          LITERAL 
          FDSR      D,504 
          SUBROUT   SUB19 ALPHABET-NAME ALSO ROUTINE
T37L7     COMMARW   ALSO
          FBRANCH   T37L8 
          LITERAL 
          FDSR      D,504 
          SUBROUT   SUB19 ALPHABET-NAME ALSO LITERAL ROUTINE
          BRANCH    T37L7 
T37L8     LITERAL   COMMAOPT
          FRETTRUE
          SUBROUT   SUB20 ALPHABET-NAME STILL MORE LITERALS 
          BRANCH    T37L5 
          EJECT 
ONOFF     COMMARW   ON
          TBRANCH   T37L9 
          COMMARW   OFF 
          FRETURNX
          ALLOW     STATUS
          RESWORD   IS
          FDSR      D,182 
          DNDEF 
          FDSR      D,113 
          SUBROUT   SUB72 OFF STATUS IS CONDITION-NAME
          COMMARW   ON
          FRETTRUE
          ALLOW     STATUS
          RESWORD   IS
          FDSR      D,181 
          DNDEF 
          FDSR      D,113 
          SUBROUT   SUB71 ON STATUS IS CONDITION-NAME 
          RETURNX 
T37L9     ALLOW     STATUS
          RESWORD   IS
          FDSR      D,181 
          DNDEF 
          FDSR      D,113 
          SUBROUT   SUB71 ON STATUS IS CONDITION-NAME 
          COMMARW   OFF 
          FRETTRUE
          ALLOW     STATUS
          RESWORD   IS
          FDSR      D,182 
          DNDEF 
          FDSR      S,113 
          SUBROUT   SUB72 OFF STATUS IS CONDITION-NAME
          RETURNX 
T37L10    RESWORD   IS
          FKEEP 
          FRETURNX
          DNDEF 
          FKEEP 
          FKEEP 
          FRETURNX
          DIAGNOS   D,762,LASTATOM
          RETTRUE 
          TITLE  CLAUSE COMMAND BRANCH TABLE
          USE    EE6BITS
          VFD    6/0
          VERB   USE         45 
          VERB   SAME        76 
          VERB   SIGN        79 
          VERB   APPLY       98 
          VERB   BLOCK       101
          VERB   QUOTE       121
          VERB   RERUN       123
          VERB   ACCESS      136
          VERB   ASSIGN      138
          VERB   MEMORY      155
          VERB   RECORD      160
          VERB   SELECT      165
          VERB   STATUS      167
          VERB   RESERVE     200
          VERB   CURRENCY    211
          VERB   MULTIPLE    216
          VERB   ALTERNAT    239
          VERB   DEBUGGNG    243
          VERB   SUPERVSR    270
          VERB   IOCONTRL    279
          VERB   FILECONT    288
          VERB   INPTOUTP    289
          VERB   CONFIGUR    294
          VERB   DECIMLPT    297
          VERB   SGMNTLIM    299
          VERB   SPECLNAM    300
          VERB   OBJCTCMP    305
          VERB   SRCECOMP    306
          VERB   RELATIVE    324
          VERB   ORGANIZA    332
          VERB   SEQUENCE    340
          VERB   TRACEON     342
          VERB   TRACEOFF    345
          VERB   ALPHABET    348
          VERB   WORDADDR    352
          VERB   SUBSCHEM    355
          USE    EEVERBS
          VFD    15/0 
          VFD    15/T35      USE
          VFD    15/T23      SAME 
          VFD    15/T27      SIGN 
          VFD    15/T4       APPLY
          VFD    15/T6       BLOCK
          VFD    15/T18      QUOTE
          VFD    15/T21      RERUN
          VFD    15/T1       ACCESS 
          VFD    15/T5       ASSIGN 
          VFD    15/T14      MEMORY 
          VFD    15/T19      RECORD 
          VFD    15/T25      SELECT 
          VFD    15/T30      STATUS 
          VFD    15/T22      RESERVE
          VFD    15/T8       CURRENCY 
          VFD    15/T15      MULTIPLE 
          VFD    15/T3       ALTERNATE
          VFD    15/T9       DEBUGGING
          VFD    15/T32      SUPERVISOR 
          VFD    15/T13      I-O-CONTROL
          VFD    15/T11      FILE-CONTROL 
          VFD    15/T12      INPUT-OUTPUT 
          VFD    15/T7       CONFIGURATION
          VFD    15/T10      DECIMAL-POINT
          VFD    15/T24      SEGMENT-LIMIT
          VFD    15/T29      SPECIAL-NAMES
          VFD    15/T16      OBJECT-COMPUTER
          VFD    15/T28      SOURCE-COMPUTER
          VFD    15/T20      RELATIVE 
          VFD    15/T17      ORGANIZATION 
          VFD    15/T26      SEQUENCE 
          VFD    15/T33      TRACE--ON
          VFD    15/T34      TRACE--OFF 
          VFD    15/T2       ALPHABET 
          VFD    15/T36      WORD-ADDRESS 
          VFD    15/T31      SUB-SCHEMA 
          END 
