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 -- RESORT 4 PHASE -- PHASE 50A                                PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   FORTRAN COMPILER -- RESORT 4 PHASE -- PHASE 50A
  102                CTL   6611
  103         *
  104         * THE STATEMENTS ARE RELOCATED TO THE POSITIONS THEY WILL OCCUPY
  105         * AT OBJECT TIME.  THE STATEMENT NUMBER TABLE IS ADJUSTED TO
  106         * TO SHOW THE OBJECT TIME LOCATIONS OF THE STATEMENTS.
  107         *
  108         * ON ENTRY X3 IS AT THE TOP OF THE MOVED-DOWN CODE.
  109         *
  110         X1     EQU   89                                                          0089
  111         X2     EQU   94                                                          0094
  112         X3     EQU   99                                                          0099
  113         *
  114         * STUFF IN THE RESIDENT AREA
  115         *
  116         PHASID EQU   110  PHASE ID, FOR SNAPSHOT DUMPS                           0110
  117         TBLBOT EQU   145  ONE BELOW NUMBERS, FORMATS, I/O LISTS                  0145
  118         SEQTAB EQU   148  BOTTOM OF SEQUENCE NUMBER TABLE - 2                    0148
  119         NSTMTS EQU   183  NUMBER OF STATEMENTS, INCLUDING GENERATED STOP         0183
  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         *
  124         * STUFF FROM THE PREVIOUS PHASE
  125         *
  126         W3     EQU   859                                                         0859
  127         TOPC5  EQU   870  TOPC AS FIVE DIGITS                                    0870
  128         ADR5B  EQU   891                                                         0891
  129         ADR5   EQU   896                                                         0896
  130         CONV35 EQU   969  CONVERT ADDRESS IN ADR5 TO DIGITS IN ADR5B             0969
  131         TOOBIG EQU   1092                                                        1092
  132         *
  133                ORG   1175                                                               1175
  134         LOADDD EQU   *&1          LOAD ADDRESS                                   1175
  135  1 175  BEGINN MCW   SEQTAB,X1                                                7  1175  M 148 089            4
  136  1 182         SBR   X1,1&X1                                                  7  1182  H 089 0|1            4
  137  1 189         C     TBLBOT,X1                                                7  1189  C 145 089            4
  138  1 196         BE    ATBOT                                                    5  1196  B S60 S              4
  139  1 201  LOOP   SBR   X1,3&X1                                                  7  1201  H 089 0|3            4
  140  1 208         MCW   0&X1,X2                                                  7  1208  M 0|0 094            5
  141  1 215         BWZ   *&12,X2-1,2                                              8  1215  V S34 093 2          5
  142  1 223         MCW   0&X2,0&X1                                                7  1223  M 0!0 0|0            5
  143  1 230         B     TSTBOT                                                   4  1230  B S48                5
  144  1 234         MA    W3,X2                                                    7  1234  # 859 094            5
  145  1 241         MCW   X2,0&X1                                                  7  1241  M 094 0|0            6
  146  1 248  TSTBOT C     X1,TBLBOT                                                7  1248  C 089 145            6
  147  1 255         BU    LOOP                                                     5  1255  B S01 /              6
1                          FORTRAN COMPILER -- RESORT 4 PHASE -- PHASE 50A                                PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148  1 260  ATBOT  MCW   W3,X1                                                    7  1260  M 859 089            6
  149  1 267         MA    X3,X1                                                    7  1267  # 099 089            6
  150  1 274         MCW   X1,NEWX3&6                                               7  1274  M 089 U69            7
  151  1 281         SBR   ADR5,0&X3                                                7  1281  H 896 0?0            7
  152  1 288         B     CONV35                                                   4  1288  B 969                7
  153  1 292         MCW   ADR5B,TOPC5                                              7  1292  M 891 870            7
  154  1 299         MCW   ADR5B,W5                                                 7  1299  M 891 W68            7
  155  1 306         MCW   W3,ADR5                                                  7  1306  M 859 896            7
  156  1 313         B     CONV35                                                   4  1313  B 969                8
  157  1 317         A     ADR5B,TOPC5                                              7  1317  A 891 870            8
  158  1 324         C     K16000,TOPC5                                             7  1324  C W63 870            8
  159  1 331         BL    *&8                                                      5  1331  B T43 T              8
  160  1 336         S     K16000,TOPC5                                             7  1336  S W63 870            8
  161  1 343         MCW   SEQTAB,ADR5                                              7  1343  M 148 896            8
  162  1 350         B     CONV35                                                   4  1350  B 969                9
  163  1 354         C     ADR5B,TOPC5                                              7  1354  C 891 870            9
  164  1 361         BH    TOOBIG                                                   5  1361  B |92 U              9
  165  1 366         MZ    X1,TSTZON&7                                              7  1366  Y 089 V77            9
  166  1 373         MCW   X1-2,TSTCHR&7                                            7  1373  M 087 V97            9
  167  1 380         MCW   NSTMTS,X2                                                7  1380  M 183 094            9
  168  1 387         MA    W3,NSTMTS                                                7  1387  # 859 183           10
  169  1 394         C     TOPC5,W5                                                 7  1394  C 870 W68           10
  170  1 401         BH    FINDW2                                                   5  1401  B V14 U             10
  171  1 406  MORE   LCA   0&X3,0&X1                                                7  1406  L 0?0 0|0           10
  172  1 413         SAR   X3                                                       4  1413  Q 099               10
  173  1 417         C     0&X1                                                     4  1417  C 0|0               10
  174  1 421         SAR   X1                                                       4  1421  Q 089               10
  175  1 425         BCE   *&5,0&X3,:  AT TOP OF MOVED-UP CODE                      8  1425  B U37 0?0 :         11
  176  1 433         B     MORE                                                     4  1433  B U06               11
  177         *
  178         * DONE
  179         *
  180  1 437  CSLOOP CS    0&X1                                                     4  1437  / 0|0               11
  181  1 441         SBR   X1                                                       4  1441  H 089               11
  182  1 445         C     X1,BOTCLR  AT THE BOTTOM OF CORE TO CLEAR?               7  1445  C 089 W71           11
  183  1 452         BU    CSLOOP     NO, CLEAR MORE                                5  1452  B U37 /             11
  184  1 457         CW    0&X1                                                     4  1457  ) 0|0               11
  185  1 461         CW                                                             1  1461  )                   12
  186  1 462         CW                                                             1  1462  )                   12
  187  1 463  NEWX3  SBR   X3,0                                                     7  1463  H 099 000           12
  188  1 470         SW    0&X1,1&X3                                                7  1470  , 0|0 0?1           12
  189  1 477         MCW   W3,X2                                                    7  1477  M 859 094           12
  190  1 484         BSS   SNAPSH,D                                                 5  1484  B 333 D             12
  191  1 489         SBR   CLEARL&3,GMWM                                            7  1489  H 710 W88           12
  192  1 496         LCA   SHIFT,PHASID                                             7  1496  L W80 110           13
  193  1 503         B     LOADNX                                                   4  1503  B 700               13
  194         *
  195         * MOVE THE CODE TO ITS FINAL PLACE
  196         *
  197  1 507  FINDWM A     KP1,X2                                                   7  1507  A W81 094           13
1                          FORTRAN COMPILER -- RESORT 4 PHASE -- PHASE 50A                                PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  198  1 514  FINDW2 BW    *&5,1&X2                                                 8  1514  V V26 0!1 1         13
  199  1 522         B     FINDWM                                                   4  1522  B V07               13
  200  1 526         MCW   X2,X1                                                    7  1526  M 094 089           13
  201  1 533         MA    W3,X1                                                    7  1533  # 859 089           14
  202  1 540         LCA   0&X2,0&X1  MOVE ONE FIELD TO ITS FINAL PLACE             7  1540  L 0!0 0|0           14
  203  1 547         C     X2,X3                                                    7  1547  C 094 099           14
  204  1 554         BU    FINDWM                                                   5  1554  B V07 /             14
  205  1 559         LCA   KB2,2&X3                                                 7  1559  L W83 0?2           14
  206  1 566         CW    1&X3                                                     4  1566  ) 0?1               14
  207  1 570  TSTZON BWZ   TSTCHR,X3,2  CLEAR MOVED-AWAY CODE                       8  1570  V V90 099 2         15
  208  1 578         CS    0&X3                                                     4  1578  / 0?0               15
  209  1 582         SBR   X3                                                       4  1582  H 099               15
  210  1 586         B     TSTZON                                                   4  1586  B V70               15
  211  1 590  TSTCHR BCE   CLR00F,X3-2,0                                            8  1590  B W10 097 0         15
  212  1 598         CS    0&X3                                                     4  1598  / 0?0               15
  213  1 602         SBR   X3                                                       4  1602  H 099               15
  214  1 606         B     TSTCHR                                                   4  1606  B V90               16
  215  1 610  CLR00F C     X3,X1                                                    7  1610  C 099 089           16
  216  1 617         BE    CLRFIN                                                   5  1617  B W41 S             16
  217  1 622         LCA   KB1,0&X3                                                 7  1622  L W84 0?0           16
  218  1 629         CW    0&X3                                                     4  1629  ) 0?0               16
  219  1 633         SBR   X3                                                       4  1633  H 099               16
  220  1 637         B     CLR00F                                                   4  1637  B W10               16
  221  1 641  CLRFIN MCW   NSTMTS,X1                                                7  1641  M 183 089           17
  222  1 648         MA    K15999,X1                                                7  1648  # W87 089           17
  223  1 655         B     CSLOOP                                                   4  1655  B U37               17
  224         *
  225         * DATA
  226         *
  227  1 663  K16000 DCW   16000                                                    5  1663                      17
  228  1 668  W5     DCW   #5                                                       5  1668                      17
  229  1 671  BOTCLR DSA   DOWNTO  TEST FOR BOTTOM OF CLEARING                      3  1671  W99                 17
  230  1 680  SHIFT  DCW   @SHIFT CFL@                                              9  1680                      18
  231  1 681  KP1    DCW   &1                                                       1  1681                      18
  232  1 683  KB2    DCW   #2                                                       2  1683                      18
  233  1 684  KB1    DCW   #1                                                       1  1684                      18
  234  1 687  K15999 DSA   15999                                                    3  1687  I9I                 18
  235  1 688  GMWM   DCW   @}@                                                      1  1688              GMARK   18
  236                ORG   *&X00                                                              1700
  237         DOWNTO EQU   *                                                           1699
  238                ORG   201                                                                0201
  239    203         DSA   LOADDD    LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM          3  0203  /75                 19
  240                EX    BEGINN                                                            B /75               20
  241                END                                                                     / 000 080
1                          FORTRAN COMPILER -- RESORT 4 PHASE -- PHASE 50A                                PAGE    4
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 ADR5      896    ADR5B     891    ATBOT    1260    BEGINN   1175    BOTCLR   1671    CLEARL    707    CLR00F   1610   
 CLRFIN   1641    CONV35    969    CSLOOP   1437    DOWNTO   1699    FINDW2   1514    FINDWM   1507    GMWM     1688   
 K15999   1687    K16000   1663    KB1      1684    KB2      1683    KP1      1681    LOADDD   1175    LOADNX    700   
 LOOP     1201    MORE     1406    NEWX3    1463    NSTMTS    183    PHASID    110    SEQTAB    148    SHIFT    1680   
 SNAPSH    333    TBLBOT    145    TOOBIG   1092    TOPC5     870    TSTBOT   1248    TSTCHR   1590    TSTZON   1570   
 W3        859    W5       1668    X1         89    X2         94    X3         99