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
0                          FORTRAN COMPILER -- ARITH PHASE THREE -- PHASE 35                              PAGE    1
0 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
1                          FORTRAN COMPILER -- ARITH PHASE THREE -- PHASE 35                              PAGE    2
0SYMBOL  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