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 -- PHASE 56                                 PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   FORTRAN COMPILER -- SNAPSHOT PHASE -- PHASE 56
  102                CTL   6611
  103         *
  104         * A SNAPSHOT OF THE GENERATED PROGRAM IS PRINTED IF REQUESTED
  105         * (IF THERE WERE NO SOURCE PROGRAM ERRORS WHICH WOULD MAKE
  106         * PROGRAM EXECUTION UNREWARDING).
  107         *
  108         X1     EQU   89                                                          0089
  109         X3     EQU   99                                                          0099
  110         *
  111         * STUFF IN THE RESIDENT AREA
  112         *
  113         PHASID EQU   110  PHASE ID, FOR SNAPSHOT DUMPS                           0110
  114         GLOBER EQU   184  GLOBAL ERROR FLAG -- WM MEANS ERROR                    0184
  115         SNAPSH EQU   333  CORE DUMP SNAPSHOT ROUTINE                             0333
  116         TOPCOR EQU   688  TOP CORE ADDRESS FROM PARAM CARD                       0688
  117         SNAPSW EQU   694  S FOR SNAPSHOT                                         0694
  118         FMTSW  EQU   696  X FOR NO FORMAT, L FOR LIMITED FORMAT                  0696
  119         *                BLANK FOR ORDINARY, A FOR A CONVERSION
  120         LOADNX EQU   700  LOAD NEXT OVERLAY                                      0700
  121         CLEARL EQU   707  CLEAR INSTRUCTION IN LOADNX                            0707
  122         LOADEX EQU   793  BRANCH THAT EXITS LOADNX                               0793
  123         *
  124                ORG   838                                                                0838
  125    838  BEGINN BCE   *&5,SNAPSW,S                                             8  0838  B 850 694 S          4
  126    846         B     DONE                                                     4  0846  B /28                4
  127    850         BW    ERROR,GLOBER                                             8  0850  V /58 184 1          4
  128         *
  129         * SET THE BOTTOM OF THE DUMP, DEPENDING ON THE FORMAT SWITCH
  130         *
  131    858         SBR   X1,4200  ASSUME NORMAL FORMAT                            7  0858  H 089 20|            4
  132    865         SBR   X3,201                                                   7  0865  H 099 201            4
  133    872         BCE   FMTX,FMTSW,X                                             8  0872  B 900 696 X          5
  134    880         BCE   FMTL,FMTSW,L                                             8  0880  B 925 696 L          5
  135    888         BCE   FMTA,FMTSW,A                                             8  0888  B 950 696 A          5
  136    896         B     GOTBOT                                                   4  0896  B 971                5
  137    900  FMTX   SBR   X1,1600                                                  7  0900  H 089 W00            5
  138    907         MCW   K1600,BOT    BOTTOM OF DUMP                              7  0907  M T26 T21            6
  139    914         MCW   K1696,TOP    TOP OF FIXED CODE                           7  0914  M T30 T00            6
  140    921         B     GOTBOT                                                   4  0921  B 971                6
  141    925  FMTL   SBR   X1,2000                                                  7  0925  H 089 !00            6
  142    932         MCW   K2000,BOT    BOTTOM OF DUMP                              7  0932  M T35 T21            6
  143    939         MCW   K2015,TOP    TOP OF FIXED CODE                           7  0939  M T39 T00            6
  144    946         B     GOTBOT                                                   4  0946  B 971                7
  145    950  FMTA   SBR   X1,4600                                                  7  0950  H 089 60|            7
  146    957         MCW   K4600,BOT    BOTTOM OF DUMP                              7  0957  M T44 T21            7
  147    964         MCW   K4616,TOP    TOP OF FIXED CODE                           7  0964  M T48 T00            7
1                          FORTRAN COMPILER -- SNAPSHOT PHASE -- PHASE 56                                 PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148    971  GOTBOT CC    1                                                        2  0971  F 1                  7
  149    973         CS    332                                                      4  0973  / 332                7
  150    977         CS                                                             1  0977  /                    7
  151    978         MCW   SNAP,260                                                 7  0978  M T74 260            8
  152    985         W                                                              1  0985  2                    8
  153    986         CC    J                                                        2  0986  F J                  8
  154    988         CS    332                                                      4  0988  / 332                8
  155    992         CS                                                             1  0992  /                    8
  156    993         MCW   IOAREA,239                                               7  0993  M U13 239            8
  157  1 000         W                                                              1  1000  2                    8
  158  1 001         CC    J                                                        2  1001  F J                  9
  159  1 003         CS    332                                                      4  1003  / 332                9
  160  1 007         CS                                                             1  1007  /                    9
  161  1 008         MCW   TOP,248                                                  7  1008  M T00 248            9
  162  1 015         W                                                              1  1015  2                    9
  163  1 016         CC    K                                                        2  1016  F K                  9
  164  1 018         ZA    KP3,LINES                                                7  1018  ? U14 U67            9
  165  1 025  OUTER  CS    332                                                      4  1025  / 332               10
  166  1 029         CS                                                             1  1029  /                   10
  167  1 030         CC    J                                                        2  1030  F J                 10
  168  1 032         MCW   BOT,311                                                  7  1032  M T21 311           10
  169  1 039         MCW                                                            1  1039  M                   10
  170  1 040         MCW                                                            1  1040  M                   10
  171  1 041         SBR   INDIC&6                                                  4  1041  H |58               10
  172  1 045         MCW   K9,W2-1                                                  7  1045  M U15 U18           11
  173  1 052  INDIC  MCW   W2-1,0                                                   7  1052  M U18 000           11
  174  1 059         MCW   DOTS                                                     4  1059  M T09               11
  175  1 063         SBR   INDIC&6                                                  4  1063  H |58               11
  176  1 067         A     KM90,W2                                                  7  1067  A U17 U19           11
  177  1 074         BWZ   INDIC,W2-1,2                                             8  1074  V |52 U18 2         11
  178  1 082         A     KP1,BOT-2                                                7  1082  A U20 T19           12
  179  1 089         W                                                              1  1089  2                   12
  180  1 090  INNER  SW    0&X3                                                     4  1090  , 0?0               12
  181  1 094         MCW   0&X1,0&X3                                                7  1094  M 0|0 0?0           12
  182  1 101         BW    *&5,0&X1                                                 8  1101  V /13 0|0 1         12
  183  1 109         CW    0&X3                                                     4  1109  ) 0?0               12
  184  1 113         C     X1,TOPCOR                                                7  1113  C 089 688           12
  185  1 120         BU    MORE                                                     5  1120  B /88 /             13
  186  1 125         W                                                              1  1125  2                   13
  187  1 126         WM                                                             2  1126  2 )                 13
  188  1 128  DONE   BSS   SNAPSH,C                                                 5  1128  B 333 C             13
  189  1 133         SBR   LOADEX&3,884                                             7  1133  H 796 884           13
  190  1 140         SBR   CLEARL&3,GMWM                                            7  1140  H 710 U70           13
  191  1 147         LCA   CONDEK,PHASID                                            7  1147  L U28 110           13
  192  1 154         B     LOADNX                                                   4  1154  B 700               14
  193  1 158  ERROR  CC    J                                                        2  1158  F J                 14
  194  1 160         CS    332                                                      4  1160  / 332               14
  195  1 164         CS                                                             1  1164  /                   14
  196  1 165         MCW   DEFER,237                                                7  1165  M U65 237           14
  197  1 172         W                                                              1  1172  2                   14
1                          FORTRAN COMPILER -- SNAPSHOT PHASE -- PHASE 56                                 PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  198  1 173         BCV   *&5                                                      5  1173  B /82 @             14
  199  1 178         B     *&3                                                      4  1178  B /84               15
  200  1 182         CC    1                                                        2  1182  F 1                 15
  201  1 184         B     DONE                                                     4  1184  B /28               15
  202  1 188  MORE   SBR   X1,1&X1      MORE HUNDREDS TO PRINT                      7  1188  H 089 0|1           15
  203  1 195         BCE   MORECH,X3-2,2                                            8  1195  B S42 097 2         15
  204  1 203         SBR   X3,201                                                   7  1203  H 099 201           15
  205  1 210         W                                                              1  1210  2                   15
  206  1 211         WM                                                             2  1211  2 )                 16
  207  1 213         A     KP1,LINES                                                7  1213  A U20 U67           16
  208  1 220         C     LINES,KP15                                               7  1220  C U67 U69           16
  209  1 227         BU    OUTER                                                    5  1227  B |25 /             16
  210  1 232         S     LINES                                                    4  1232  S U67               16
  211  1 236         CC    1                                                        2  1236  F 1                 16
  212  1 238         B     OUTER                                                    4  1238  B |25               16
  213  1 242  MORECH A     KP1,X3       MORE CHARACTERS TO PUT IN LINE              7  1242  A U20 099           17
  214  1 249         B     INNER                                                    4  1249  B |90               17
  215  1 300  TOP    DCW   @FIXED OBJECT TIME ROUTINES LOCATED FROM 333-4279@      48  1300                      19
  216  1 309  DOTS   DCW   @9........@                                              9  1309                      19
  217  1 310         DCW   9                                                        1  1310                      19
  218  1 316         DCW   @-AREA-@                                                 6  1316                      19
  219  1 321  BOT    DCW   04200                                                    5  1321                      19
  220  1 326  K1600  DCW   01600                                                    5  1326                      20
  221  1 330  K1696  DCW   1696                                                     4  1330                      20
  222  1 335  K2000  DCW   02000                                                    5  1335                      20
  223  1 339  K2015  DCW   2015                                                     4  1339                      20
  224  1 344  K4600  DCW   04600                                                    5  1344                      20
  225  1 348  K4616  DCW   4616                                                     4  1348                      20
  226  1 374  SNAP   DCW   @SNAPSHOT OF OBJECT PROGRAM@                            26  1374                      21
  227  1 413  IOAREA DCW   @INPUT/OUTPUT AREAS LOCATED FROM 001-332@               39  1413                      22
  228  1 414  KP3    DCW   &3                                                       1  1414                      23
  229  1 415  K9     DCW   9                                                        1  1415                      23
  230  1 417  KM90   DCW   @I0@                                                     2  1417                      23
  231  1 419  W2     DCW   #2                                                       2  1419                      23
  232  1 420  KP1    DCW   &1                                                       1  1420                      23
  233  1 428  CONDEK DCW   @CONDECK1@                                               8  1428                      23
  234  1 465  DEFER  DCW   @SNAPSHOT DEFERRED DUE TO INPUT ERRORS@                 37  1465                      24
  235  1 467  LINES  DCW   #2                                                       2  1467                      24
  236  1 469  KP15   DCW   &15                                                      2  1469                      25
  237  1 470  GMWM   DCW   @}@                                                      1  1470              GMARK   25
  238                EX    BEGINN                                                            B 838               26
  239                END                                                                     / 000 080
1                          FORTRAN COMPILER -- SNAPSHOT PHASE -- PHASE 56                                 PAGE    4
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 BEGINN    838    BOT      1321    CLEARL    707    CONDEK   1428    DEFER    1465    DONE     1128    DOTS     1309   
 ERROR    1158    FMTA      950    FMTL      925    FMTSW     696    FMTX      900    GLOBER    184    GMWM     1470   
 GOTBOT    971    INDIC    1052    INNER    1090    IOAREA   1413    K1600    1326    K1696    1330    K2000    1335   
 K2015    1339    K4600    1344    K4616    1348    K9       1415    KM90     1417    KP1      1420    KP15     1469   
 KP3      1414    LINES    1467    LOADEX    793    LOADNX    700    MORE     1188    MORECH   1242    OUTER    1025   
 PHASID    110    SNAP     1374    SNAPSH    333    SNAPSW    694    TOP      1300    TOPCOR    688    W2       1419   
 X1         89    X3         99