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 -- SNAPSHOT -- PHASE 53S                                      PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   FORTRAN COMPILER -- SNAPSHOT -- PHASE 53S
  102                CTL   6611
  103         *
  104         * SAME AS SNAPSHOT IN PHASE 00
  105         *
  106         X1     EQU   89                                                          0089
  107         X2     EQU   94                                                          0094
  108         X3     EQU   99                                                          0099
  109         *
  110         * STUFF IN THE RESIDENT AREA
  111         *
  112         PHASID EQU   110                                                         0110
  113         TOPCOR EQU   688  TOP CORE ADDRESS FROM PARAM CARD                       0688
  114         *
  115         * RETURN IN PHASE 53R AFTER LOADING
  116         *
  117         BEGIN2 EQU   938                                                         0938
  118         *
  119                ORG   333                                                                0333
  120    333  SNAPSH SBR   EXIT&3                                                   4  0333  H 567                4
  121    337         SBR   SXX&6                                                    4  0337  H 408                4
  122    341         MCW   KZ3,ADR5-2  START FIVE-DIGIT ADDRESS AT ZERO             7  0341  M 661 656            4
  123    348         MCW   X3,SX3&6                                                 7  0348  M 099 415            4
  124    355         MCW   X1,SX1&6                                                 7  0355  M 089 422            4
  125    362         SBR   X1,1                                                     7  0362  H 089 001            4
  126    369         SBR   X3,202                                                   7  0369  H 099 202            5
  127    376         CS    332                                                      4  0376  / 332                5
  128    380         CS                                                             1  0380  /                    5
  129    381         MCW   PHASID,210                                               7  0381  M 110 210            5
  130    388         BSS   SKIP,F                                                   5  0388  B 621 F              5
  131         *
  132         * PRINT A HEADER
  133         *
  134    393         CC    1                                                        2  0393  F 1                  5
  135    395         MCW   X2,250                                                   7  0395  M 094 250            5
  136    402  SXX    SBR   216,0       RETURN ADDRESS WAS STORED IN B               7  0402  H 216 000            6
  137    409  SX3    SBR   256,0       X3 WAS STORED IN B                           7  0409  H 256 000            6
  138    416  SX1    SBR   244,0       X1 WAS STORED IN B                           7  0416  H 244 000            6
  139    423         W                                                              1  0423  2                    6
  140    424         CC    K                                                        2  0424  F K                  6
  141    426         ZA    KP2,W2A                                                  7  0426  ? 662 664            6
  142    433  CLEARH CS    332                                                      4  0433  / 332                6
  143    437         CS                                                             1  0437  /                    7
  144    438         CC    J                                                        2  0438  F J                  7
  145    440         MCW   ADR5,306    FIVE-DIGIT ADDRESS                           7  0440  M 658 306            7
  146    447         MCW                                                            1  0447  M                    7
  147    448         SBR   LOOP&6                                                   4  0448  H 465                7
1                          FORTRAN COMPILER -- SNAPSHOT -- PHASE 53S                                      PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148    452         MCW   K9,W2B-1                                                 7  0452  M 665 668            7
  149    459  LOOP   MCW   W2B-1,000                                                7  0459  M 668 000            7
  150    466         MCW   DOTS                                                     4  0466  M 651                8
  151    470         SBR   LOOP&6                                                   4  0470  H 465                8
  152    474         A     KM10,W2B    ADD I0 = -10                                 7  0474  A 667 669            8
  153    481         BWZ   LOOP,W2B-1,2  NO ZONE IN COUNTER HIGH DIGIT?             8  0481  V 459 668 2          8
  154    489         A     KP1,ADR5-2  BUMP HUNDREDS DIGIT OF ADDRESS               7  0489  A 670 656            8
  155    496         W                                                              1  0496  2                    8
  156    497  GET    SW    0&X3        MOVE DATA AND WM TO PRINT AREA               4  0497  , 0?0                8
  157    501         MCW   0&X1,0&X3                                                7  0501  M 0|0 0?0            9
  158    508         BW    DOWM,0&X1   SKIP CLEARING PRINT AREA WM                  8  0508  V 520 0|0 1          9
  159    516         CW    0&X3                                                     4  0516  ) 0?0                9
  160    520  DOWM   C     X1,TOPCOR  DONE?                                         7  0520  C 089 688            9
  161    527         BU    CONT        NO                                           5  0527  B 568 /              9
  162    532         W                                                              1  0532  2                    9
  163    533         WM                                                             2  0533  2 )                  9
  164    535  RX1    MCW   SX1&6,X1   RESTORE INDEX REGS                            7  0535  M 422 089           10
  165    542         MCW   SX3&6,X3                                                 7  0542  M 415 099           10
  166    549         CS    332                                                      4  0549  / 332               10
  167    553         CS                                                             1  0553  /                   10
  168    554         BSS   HALT,G                                                   5  0554  B 563 G             10
  169    559         B     EXIT                                                     4  0559  B 564               10
  170    563  HALT   H                                                              1  0563  .                   10
  171    564  EXIT   B     0-0                                                      4  0564  B 000               11
  172    568  CONT   SBR   X1,1&X1                                                  7  0568  H 089 0|1           11
  173    575         BCE   BUMP3,X3-2,2                                             8  0575  B 632 097 2         11
  174    583         SBR   X3,201                                                   7  0583  H 099 201           11
  175    590         W                                                              1  0590  2                   11
  176    591         WM                                                             2  0591  2 )                 11
  177    593         A     KP1,W2A                                                  7  0593  A 670 664           11
  178    600         C     W2A,KP15                                                 7  0600  C 664 672           12
  179    607         BU    CLEARH                                                   5  0607  B 433 /             12
  180    612         S     W2A                                                      4  0612  S 664               12
  181    616         CCB   CLEARH,1                                                 5  0616  F 433 1             12
  182    621  SKIP   MCW   XQTD,220                                                 7  0621  M 680 220           12
  183    628         W     RX1                                                      4  0628  2 535               12
  184    632  BUMP3  A     KP1,X3                                                   7  0632  A 670 099           12
  185    639         B     GET                                                      4  0639  B 497               13
  186    651  DOTS   DCW   @9........@                                              9  0651                      13
  187    653         DCW   @9-@                                                     2  0653                      13
  188    658  ADR5   DCW   00000      FIVE DIGIT ADDRESS                            5  0658                      13
  189    661  KZ3    DCW   000                                                      3  0661                      13
  190    662  KP2    DCW   &2                                                       1  0662                      13
  191    664  W2A    DCW   #2                                                       2  0664                      13
  192    665  K9     DCW   9                                                        1  0665                      14
  193    667  KM10   DCW   @I0@                                                     2  0667                      14
  194    669  W2B    DCW   #2                                                       2  0669                      14
  195    670  KP1    DCW   &1                                                       1  0670                      14
  196    672  KP15   DCW   &15                                                      2  0672                      14
  197    679         DCW   @EXECUTE@                                                7  0679                      14
1                          FORTRAN COMPILER -- SNAPSHOT -- PHASE 53S                                      PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  198    680  XQTD   DCW   @}@  CHANGED TO D BY RELOADER PHASE 53R                  1  0680              GMARK   14
  199                EX    BEGIN2                                                            B 938               15
  200                END                                                                     / 000 080
1                          FORTRAN COMPILER -- SNAPSHOT -- PHASE 53S                                      PAGE    4
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 ADR5      658    BEGIN2    938    BUMP3     632    CLEARH    433    CONT      568    DOTS      651    DOWM      520   
 EXIT      564    GET       497    HALT      563    K9        665    KM10      667    KP1       670    KP15      672   
 KP2       662    KZ3       661    LOOP      459    PHASID    110    RX1       535    SKIP      621    SNAPSH    333   
 SX1       416    SX3       409    SXX       402    TOPCOR    688    W2A       664    W2B       669    X1         89   
 X2         94    X3         99    XQTD      680