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 -- CONDENSED DECK PHASE ONE -- 57                             PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   FORTRAN COMPILER -- CONDENSED DECK PHASE ONE -- 57
  102                CTL   6611
  103         *
  104         * WHEN REQUESTED (IF THERE ARE NO INPUT ERRORS), THE COMILER
  105         * WILL PUNCH A SELF-LOADING CARD DECK.  THE DECK IS LISTED ON
  106         * THE PRINTER IF SENSE SWITCH B IS ON.  THIS PHASE PUNCHES
  107         * ONLY THE CLEAR-STORAGE AND BOOTSTRAP CARDS.
  108         *
  109         * STUFF IN THE RESIDENT AREA
  110         *
  111         PHASID EQU   110  PHASE ID, FOR SNAPSHOT DUMPS                           0110
  112         GLOBER EQU   184  GLOBAL ERROR FLAG -- WM MEANS ERROR                    0184
  113         ARYTOP EQU   194  TOP OF ARRAYS IN OBJECT CODE                           0194
  114         SNAPSH EQU   333  CORE DUMP SNAPSHOT                                     0333
  115         TOPCOR EQU   688  TOP CORE ADDRESS FROM PARAM CARD                       0688
  116         CONDNS EQU   693  P FOR CONDENSED DECK                                   0693
  117         LOADNX EQU   700  LOAD NEXT OVERLAY                                      0700
  118         CLEARL EQU   707  CS AT START OF OVERLAY LOADER                          0707
  119         TPREAD EQU   780  TAPE READ INSTRUCTION IN OVERLAY LOADER                0780
  120         LOADXX EQU   793  EXIT FROM OVERLAY LOADER                               0793
  121         CLRBOT EQU   833  BOTTOM OF CORE TO CLEAR IN OVERLAY LOADER              0833
  122         *
  123                ORG   838                                                                0838
  124    838  PUNCH  SBR   PUNCHX&3                                                 4  0838  H 858                4
  125    842         A     KP1,175  BUMP SEQUENCE NUMBER                            7  0842  A 883 175            4
  126    849         BSS   *&6,B    PUNCH AND PRINT?                                5  0849  B 859 B              4
  127    854         P                                                              1  0854  4                    4
  128    855  PUNCHX B     0-0                                                      4  0855  B 000                4
  129    859         MCW   180,280                                                  7  0859  M 180 280            4
  130    866         MCW                                                            1  0866  M                    4
  131    867         WP                                                             1  0867  6                    5
  132    868         BCV   *&5                                                      5  0868  B 877 @              5
  133    873         B     *&3                                                      4  0873  B 879                5
  134    877         CC    1                                                        2  0877  F 1                  5
  135    879         B     PUNCHX                                                   4  0879  B 855                5
  136    883  KP1    DCW   &1                                                       1  0883                       5
  137    884  BEGINN BCE   *&5,CONDNS,P  PUNCH CONDENSED DECK?                      8  0884  B 896 693 P          5
  138    892         B     DONE                                                     4  0892  B 956                6
  139    896         BW    DONE,GLOBER                                              8  0896  V 956 184 1          6
  140    904         LCA   ARYTOP,ARYTOP                                            7  0904  L 194 194            6
  141    911         CS    180                                                      4  0911  / 180                6
  142    915         SW    101                                                      4  0915  , 101                6
  143    919         MCW   685,180                                                  7  0919  M 685 180            6
  144    926         BSS   *&5,B                                                    5  0926  B 935 B              6
  145    931         B     CONT                                                     4  0931  B 997                7
  146    935         CC    1                                                        2  0935  F 1                  7
  147    937         CS    332                                                      4  0937  / 332                7
1                          FORTRAN COMPILER -- CONDENSED DECK PHASE ONE -- 57                             PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148    941         CS                                                             1  0941  /                    7
  149    942         MCW   TITLE,260                                                7  0942  M U04 260            7
  150    949         W                                                              1  0949  2                    7
  151    950         CC    J                                                        2  0950  F J                  7
  152    952         B     CONT                                                     4  0952  B 997                8
  153    956  DONE   BSS   SNAPSH,C                                                 5  0956  B 333 C              8
  154    961         SBR   TPREAD&6,884                                             7  0961  H 786 884            8
  155    968         SBR   CLRBOT                                                   4  0968  H 833                8
  156    972         SBR   LOADXX&3,884                                             7  0972  H 796 884            8
  157    979         SBR   CLEARL&3,GMWM                                            7  0979  H 710 U17            8
  158    986         LCA   CONDEK,110                                               7  0986  L U12 110            9
  159    993         B     LOADNX                                                   4  0993  B 700                9
  160    997  CONT   LCA   K0000,175  SEQUENCE NUMBER                               7  0997  L U16 175            9
  161  1 004         BWZ   UNDER4,TOPCOR,2                                          8  1004  V |45 688 2          9
  162  1 012         MCW   B1G4K,152                                                7  1012  M T19 152            9
  163  1 019         B     PUNCH      FIRST BOOTSTRAP GE 4K                         4  1019  B 838                9
  164  1 023         MCW   TOPCOR,B2AG4K                                            7  1023  M 688 T48           10
  165  1 030         MCW   B2BG4K,171                                               7  1030  M T90 171           10
  166  1 037         B     PUNCH      SECOND BOOTSTRAP GE 4K                        4  1037  B 838               10
  167  1 041         B     THIRD                                                    4  1041  B |74               10
  168  1 045  UNDER4 MCW   B1L4K,144                                                7  1045  M /40 144           10
  169  1 052         B     PUNCH      FIRST BOOTSTRAP LT 4K                         4  1052  B 838               10
  170  1 056         MCW   TOPCOR,B2AL4K                                            7  1056  M 688 /69           11
  171  1 063         MCW   B2BL4K,170                                               7  1063  M S10 170           11
  172  1 070         B     PUNCH      SECOND BOOTSTRAP LT 4K                        4  1070  B 838               11
  173  1 074  THIRD  MCW   R40,171                                                  7  1074  M S21 171           11
  174  1 081         CS                                                             1  1081  /                   11
  175  1 082         LCA   B3,146                                                   7  1082  L S67 146           11
  176  1 089         B     PUNCH      THIRD BOOTSTRAP                               4  1089  B 838               11
  177  1 093         B     DONE                                                     4  1093  B 956               12
  178  1 140  B1L4K  DC    @,008015,019026,030,034041,045,053,0570571026@          44  1140                      14
  179  1 169  B2AL4K DCW   @L068112,102106,113/101099/I99@                         29  1169                      14
  180  1 210  B2BL4K DC    @,027A070028)027B0010270B0261,001/001113I0@             41  1210                      16
  181  1 221  R40    DCW   @,0010011040@                                           11  1221                      16
  182  1 267  B3     DC    @,008015,022029,036040,047054,061068,072/061039@        46  1267                      18
  183  1 310         DCW   @,008015,022026,030037,044,049,053053N000000@           43  1310                      20
  184  1 319  B1G4K  DC    @N00001026@                                              9  1319                      20
  185  1 348  B2AG4K DCW   @L068116,105106,110117B101/I9I@                         29  1348                      21
  186  1 390  B2BG4K DC    @#071029C029056B026/B001/0991,001/001117I0?@            42  1390                      23
  187  1 404  TITLE  DCW   @CONDENSED DECK@                                        14  1404                      23
  188  1 412  CONDEK DCW   @CONDECK2@                                               8  1412                      23
  189  1 416  K0000  DCW   @0000@                                                   4  1416                      23
  190  1 417  GMWM   DCW   @}@                                                      1  1417              GMARK   23
  191                EX    BEGINN                                                            B 884               24
  192                END                                                                     / 000 080
1                          FORTRAN COMPILER -- CONDENSED DECK PHASE ONE -- 57                             PAGE    3
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 ARYTOP    194    B1G4K    1319    B1L4K    1140    B2AG4K   1348    B2AL4K   1169    B2BG4K   1390    B2BL4K   1210   
 B3       1267    BEGINN    884    CLEARL    707    CLRBOT    833    CONDEK   1412    CONDNS    693    CONT      997   
 DONE      956    GLOBER    184    GMWM     1417    K0000    1416    KP1       883    LOADNX    700    LOADXX    793   
 PHASID    110    PUNCH     838    PUNCHX    855    R40      1221    SNAPSH    333    THIRD    1074    TITLE    1404   
 TOPCOR    688    TPREAD    780    UNDER4   1045