CLEAR STORAGE 1     ,008015,022026,030037,044,049,053053N000000N00001026                                         1
CLEAR STORAGE 2     L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?                      2
BOOTSTRAP           ,008015,022029,036040,047054,061068,072/061039              ,0010011040                      3

                          FORTRAN COMPILER -- ARITH PHASE THREE -- PHASE 35                              PAGE    1

 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

 101                JOB   FORTRAN COMPILER -- ARITH PHASE THREE -- PHASE 35
 102                CTL   6611
 103         *
 104         * INITIALIZATION FOR ARITH PHASE FOUR TAKES PLACE.
 105         *
 106         * STUFF IN THE RESIDENT AREA
 107         *
 108         PHASID EQU   110  PHASE ID, FOR SNAPSHOT DUMPS                           0110
 109         SNAPSH EQU   333  CORE DUMP SNAPSHOT                                     0333
 110         LOADNX EQU   700  LOAD NEXT OVERLAY                                      0700
 111         CLEARL EQU   707  CS AT START OF OVERLAY LOADER                          0707
 112         *
 113                ORG   838                                                                0838
 114         LOADDD EQU   *&1          LOAD ADDRESS                                   0838
 115    838  BEGINN BSS   SNAPSH,C                                                 5  0838  B 333 C              4
 116    843         SBR   CLEARL&3,GMWM                                            7  0843  H 710 |68            4
 117    850         LCA   ARITH4,PHASID                                            7  0850  L |67 110            4
 118    857         B     LOADNX                                                   4  0857  B 700                4
 119    910         DC    #50                                                     50  0910                       6
 120    960         DC    #50                                                     50  0960                       8
 121  1 010         DC    #50                                                     50  1010                      10
 122  1 060         DC    #50                                                     50  1060                      12
 123  1 067  ARITH4 DCW   @ARITH 4@                                                7  1067                      12
 124  1 068  GMWM   DCW   @}@                                                      1  1068              GMARK   12
 125                ORG   201                                                                0201
 126    203         DSA   LOADDD    LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM          3  0203  838                 13
 127                EX    BEGINN                                                            B 838               14
 128                END                                                                     / 000 080
                          FORTRAN COMPILER -- ARITH PHASE THREE -- PHASE 35                              PAGE    2

SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

ARITH4   1067    BEGINN    838    CLEARL    707    GMWM     1068    LOADDD    838    LOADNX    700    PHASID    110   
SNAPSH    333