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 -- GOTO PHASE -- PHASE 41                                     PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   FORTRAN COMPILER -- GOTO PHASE -- PHASE 41
  102                CTL   6611
  103         *
  104         * AN UNCONDITIONAL BRANCH INSTRUCTION IS GENERATED IN-LINE
  105         * IN PLACE OF THE ORIGINAL STATEMENT
  106         *
  107         X1     EQU   89                                                          0089
  108         X3     EQU   99                                                          0099
  109         *
  110         * STUFF IN THE RESIDENT AREA
  111         *
  112         PHASID EQU   110  PHASE ID, FOR SNAPSHOT DUMPS                           0110
  113         SNAPSH EQU   333  CORE DUMP SNAPSHOT                                     0333
  114         LOADNX EQU   700  LOAD NEXT OVERLAY                                      0700
  115         CLEARL EQU   707  CS AT START OF OVERLAY LOADER                          0707
  116         *
  117                ORG   838                                                                0838
  118         LOADDD EQU   *&1          LOAD ADDRESS                                   0838
  119    838  LOOP   BCE   DONE,0&X1,                                               8  0838  B 861 0|0            4
  120    846         MCW   0&X1,CODSEQ                                              7  0846  M 0|0 962            4
  121    853         BCE   GOTO,CODSEQ-3,G  GOTO STATEMENT?                         8  0853  B 884 959 G          4
  122    861  DONE   BSS   SNAPSH,C                                                 5  0861  B 333 C              4
  123    866         SBR   CLEARL&3,GMWM                                            7  0866  H 710 975            4
  124    873         LCA   STOPPZ,PHASID                                            7  0873  L 972 110            5
  125    880         B     LOADNX                                                   4  0880  B 700                5
  126         *
  127    884  GOTO   LCA   0&X1,0&X3  SEQNO, CODE, GMWM                             7  0884  L 0|0 0?0            5
  128    891         SAR   X1                                                       4  0891  Q 089                5
  129    895         C     0&X3                                                     4  0895  C 0?0                5
  130    899         SAR   X3                                                       4  0899  Q 099                5
  131    903         LCA   1&X3,2&X3  MOVE GMWM UP                                  7  0903  L 0?1 0?2            5
  132    910         SBR   X3                                                       4  0910  H 099                6
  133    914         LCA   0&X1,0&X3  MOVE LABEL UP                                 7  0914  L 0|0 0?0            6
  134    921         SAR   X1                                                       4  0921  Q 089                6
  135    925         C     0&X3                                                     4  0925  C 0?0                6
  136    929         SAR   X3                                                       4  0929  Q 099                6
  137    933         MCW   BRANCH,1&X3  REPLACE GMWM BY BRANCH                      7  0933  M 973 0?1            6
  138    940         LCA   1&X1           WITH THE GMWM BELOW IT                    4  0940  L 0|1                6
  139    944         SBR   X3                                                       4  0944  H 099                7
  140    948         MZ    X2ZONE,4&X3                                              7  0948  Y 974 0?4            7
  141    955         B     LOOP                                                     4  0955  B 838                7
  142         *
  143         * DATA
  144         *
  145    962  CODSEQ DCW   #4  STATEMENT CODE AND SEQUENCE NUMBER                   4  0962                       7
  146    972  STOPPZ DCW   @STOP/PAUSE@                                            10  0972                       7
  147    973  BRANCH B                                                              1  0973  B                    7
1                          FORTRAN COMPILER -- GOTO PHASE -- PHASE 41                                     PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148    974  X2ZONE DCW   @K@                                                      1  0974                       7
  149    975  GMWM   DCW   @}@                                                      1  0975              GMARK    8
  150                ORG   201                                                                0201
  151    203         DSA   LOADDD    LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM          3  0203  838                  9
  152                EX    LOOP                                                              B 838               10
  153                END                                                                     / 000 080
1                          FORTRAN COMPILER -- GOTO PHASE -- PHASE 41                                     PAGE    3
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 BRANCH    973    CLEARL    707    CODSEQ    962    DONE      861    GMWM      975    GOTO      884    LOADDD    838   
 LOADNX    700    LOOP      838    PHASID    110    SNAPSH    333    STOPPZ    972    X1         89    X2ZONE    974   
 X3         99