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 -- CONTINUE PHASE -- PHASE 45                                 PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   FORTRAN COMPILER -- CONTINUE PHASE -- PHASE 45
  102                CTL   6611
  103         *
  104         * NO OBJECT-TIME INSTRUCTIONS ARE GENERATED FOR THESE
  105         * STATEMENTS.  THIS PHASE PASSES INFORMATION REQUIRED BY
  106         * THE RESORT PHASES OF THE COMPILER.
  107         *
  108         X1     EQU   89                                                          0089
  109         X3     EQU   99                                                          0099
  110         *
  111         * STUFF IN THE RESIDENT AREA
  112         *
  113         PHASID EQU   110  PHASE ID, FOR SNAPSHOT DUMPS                           0110
  114         GLOBER EQU   184  GLOBAL ERROR FLAG -- WM MEANS ERROR                    0184
  115         SNAPSH EQU   333  CORE DUMP SNAPSHOT                                     0333
  116         LOADNX EQU   700  LOAD NEXT OVERLAY                                      0700
  117         CLEARL EQU   707  CS AT START OF OVERLAY LOADER                          0707
  118         *
  119                ORG   838                                                                0838
  120         LOADDD EQU   *&1          LOAD ADDRESS                                   0838
  121    838  BEGINN BCE   DONE,0&X1,                                               8  0838  B 861 0|0            4
  122    846         MCW   0&X1,CODSEQ                                              7  0846  M 0|0 925            4
  123    853         BCE   CONT,CODSEQ-3,C  CONTINUE STATEMENT?                     8  0853  B 884 922 C          4
  124    861  DONE   BSS   SNAPSH,C                                                 5  0861  B 333 C              4
  125    866         SBR   CLEARL&3,GMWM                                            7  0866  H 710 931            4
  126    873         LCA   DOMSK,PHASID                                             7  0873  L 930 110            5
  127    880         B     LOADNX                                                   4  0880  B 700                5
  128    884  CONT   LCA   0&X1,0&X3                                                7  0884  L 0|0 0?0            5
  129    891         SAR   X1                                                       4  0891  Q 089                5
  130    895         C     0&X3                                                     4  0895  C 0?0                5
  131    899         SAR   X3                                                       4  0899  Q 099                5
  132    903         LCA   1&X1,2&X3  REPLACE STATEMENT CODE BY GMWM                7  0903  L 0|1 0?2            5
  133    910         C     0&X1                                                     4  0910  C 0|0                6
  134    914         SAR   X1                                                       4  0914  Q 089                6
  135    918         B     BEGINN                                                   4  0918  B 838                6
  136         *
  137         * DATA
  138         *
  139    925  CODSEQ DCW   #4                                                       4  0925                       6
  140    930  DOMSK  DCW   @DOMSK@                                                  5  0930                       6
  141    931  GMWM   DCW   @}@                                                      1  0931              GMARK    6
  142                ORG   201                                                                0201
  143    203         DSA   LOADDD    LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM          3  0203  838                  7
  144                EX    BEGINN                                                            B 838                8
  145                END                                                                     / 000 080
1                          FORTRAN COMPILER -- CONTINUE PHASE -- PHASE 45                                 PAGE    2
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 BEGINN    838    CLEARL    707    CODSEQ    925    CONT      884    DOMSK     930    DONE      861    GLOBER    184   
 GMWM      931    LOADDD    838    LOADNX    700    PHASID    110    SNAPSH    333    X1         89    X3         99