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 -- LIST PHASE THREE -- PHASE 27                               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   FORTRAN COMPILER -- LIST PHASE THREE -- PHASE 27
  102                CTL   6611
  103         *
  104         * EACH INPUT-OUTPUT STATEMENT IS REDUCED TO THE ADDRESS OF
  105         * THE LIST STRING (WHEN PRESENT), THE FORMAT STRING (WHEN
  106         * PRESENT), AND THE TAPE UNIT NUMBER (WHEN APPLICABLE).
  107         *
  108         * ON ENTRY, X1 IS THE TOP OF THE TOP I/O STATEMENT AND X2
  109         * IS ONE BELOW THE TABLE OF I/O STRINGS, FORMATS AND NUMBERS.
  110         *
  111         * ON EXIT, 83 IS THE TOP OF CODE IN HIGH CORE AND X2 IS ONE
  112         * BELOW THE BOTTOM OF CODE IN HIGH CORE.
  113         *
  114         X1     EQU   89                                                          0089
  115         X2     EQU   94                                                          0094
  116         *
  117         * STUFF IN THE RESIDENT AREA
  118         *
  119         PHASID EQU   110  PHASE ID, FOR SNAPSHOT DUMPS                           0110
  120         SNAPSH EQU   333  CORE DUMP SNAPSHOT                                     0333
  121         LOADNX EQU   700  LOAD NEXT OVERLAY                                      0700
  122         CLEARL EQU   707  CS AT START OF OVERLAY LOADER                          0707
  123         TPREAD EQU   780  TAPE READ INSTRUCTION IN OVERLAY LOADER                0780
  124         LOADXX EQU   793  EXIT FROM OVERLAY LOADER                               0793
  125         CLRBOT EQU   833  BOTTOM OF CORE TO CLEAR IN OVERLAY LOADER              0833
  126         *
  127                ORG   845                                                                0845
  128         LOADDD EQU   *&1          LOAD ADDRESS                                   0845
  129    845  BEGINN MCW   X2,83                                                    7  0845  M 094 083            4
  130    852         SW    GM                                                       4  0852  , |11                4
  131    856         LCA   GM,0&X2  GM BELOW I/O STRING TABLE                       7  0856  L |11 0!0            4
  132    863         SBR   X2                                                       4  0863  H 094                4
  133    867  TESTIO BW    NOTIO,0&X1                                               8  0867  V 918 0|0 1          4
  134    875         B     MOVE  MOVE PREFIX                                        4  0875  B 942                4
  135    879         B     MOVE  MOVE TAPE NUMBER AND LIST (R/W TAPE),              4  0879  B 942                4
  136         *                  TAPE NUMBER AND FORMAT (R/W I/O TAPE),
  137         *                  OR FORMAT (READ/PRINT/PUNCH)
  138    883         BCE   TESTIO,1&X2,}  END OF STATEMENT?                         8  0883  B 867 0!1 } GMARK    5
  139    891         CW    1&X2                                                     4  0891  ) 0!1                5
  140    895         C     0&X1  GET DOWN TO WM                                     4  0895  C 0|0                5
  141    899         SAR   X1                                                       4  0899  Q 089                5
  142    903         SBR   X1,1&X1                                                  7  0903  H 089 0|1            5
  143    910         B     MOVE  MOVE LIST (R/W I/O TAPE) OR ONLY GMWM              4  0910  B 942                5
  144    914         B     TESTIO                                                   4  0914  B 867                5
  145         *
  146         * NOT I/O, COPY EVERYTHING ELSE
  147         *
1                          FORTRAN COMPILER -- LIST PHASE THREE -- PHASE 27                               PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148    918  NOTIO  CW    0&X1                                                     4  0918  ) 0|0                6
  149    922  COPY   BCE   DONE,0&X1,                                               8  0922  B 969 0|0            6
  150    930         B     MOVE  MOVE PREFIX                                        4  0930  B 942                6
  151    934         B     MOVE  MOVE BODY                                          4  0934  B 942                6
  152    938         B     COPY                                                     4  0938  B 922                6
  153         *
  154         * MOVE FROM CODE AREA TO LIST AREA
  155         *
  156    942  MOVE   SBR   MOVEX&3                                                  4  0942  H 968                6
  157    946         LCA   0&X1,0&X2                                                7  0946  L 0|0 0!0            6
  158    953         SAR   X1                                                       4  0953  Q 089                7
  159    957         C     0&X2                                                     4  0957  C 0!0                7
  160    961         SAR   X2                                                       4  0961  Q 094                7
  161    965  MOVEX  B     0-0                                                      4  0965  B 000                7
  162         *
  163    969  DONE   BSS   SNAPSH,D                                                 5  0969  B 333 D              7
  164    974         SBR   TPREAD&6,838                                             7  0974  H 786 838            7
  165    981         SBR   CLRBOT                                                   4  0981  H 833                7
  166    985         SBR   LOADXX&3,937                                             7  0985  H 796 937            8
  167    992         SBR   CLEARL&3,GMWM                                            7  0992  H 710 |18            8
  168    999         LCA   STNUM2,PHASID                                            7  0999  L |17 110            8
  169  1 006         B     LOADNX                                                   4  1006  B 700                8
  170         *
  171  1 011  GM     DCW   @ }@                                                     2  1011                       8
  172  1 017  STNUM2 DCW   @STNUM2@                                                 6  1017                       8
  173  1 018  GMWM   DCW   @}@                                                      1  1018              GMARK    8
  174                ORG   201                                                                0201
  175    203         DSA   LOADDD    LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM          3  0203  845                  9
  176                EX    BEGINN                                                            B 845               10
  177                END                                                                     / 000 080
1                          FORTRAN COMPILER -- LIST PHASE THREE -- PHASE 27                               PAGE    3
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 BEGINN    845    CLEARL    707    CLRBOT    833    COPY      922    DONE      969    GM       1011    GMWM     1018   
 LOADDD    845    LOADNX    700    LOADXX    793    MOVE      942    MOVEX     965    NOTIO     918    PHASID    110   
 SNAPSH    333    STNUM2   1017    TESTIO    867    TPREAD    780    X1         89    X2         94