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 -- DIMENSION PHASE TWO -- 12                                  PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12
  102                CTL   6611
  103         *
  104         * ARRAYS ARE ASSIGNED THEIR OBJECT-TIME ADDRESSES.
  105         *
  106         * ON ENTRY, X3 IS ONE BELOW THE GROUP MARK BELOW THE BOTTOM OF
  107         * THE ARRAY TABLE, AND 86 IS THE ADDRESS OF THE LOW-ORDER DIGIT
  108         * OF THE OFFSET FIELD OF THE TOPMOST (FIRST) ARRAY TABLE ENTRY
  109         * IF THERE ARE ANY ARRAYS, OR BLANK IF THERE IS NO ARRAY TABLE.
  110         *
  111         * ON EXIT THE FIXED-WIDTH FIELDS OF THE ARRAY TABLE ELEMENTS ARE
  112         * THE BASE ADDRESS AS FIVE DIGITS, THE TOP ADDRESS AS THREE
  113         * CHARACTERS WITH A TYPE ZONE IN THE SECOND CHARACTER, THE
  114         * ARRAY ELEMENT WIDTH (IMOD OR MANTIS&2) AND JUNK, AND THE
  115         * ADDRESS OF THE LOW-ORDER DIGIT OF THE FIRST ARRAY ELEMENT
  116         * AS THREE CHARACTERS WITH A TYPE ZONE IN THE SECOND CHARACTER.
  117         *
  118         X1     EQU   89                                                          0089
  119         X2     EQU   94                                                          0094
  120         X3     EQU   99                                                          0099
  121         *
  122         * STUFF IN THE RESIDENT AREA
  123         *
  124         PHASID EQU   110  PHASE ID, FOR SNAPSHOT DUMPS                           0110
  125         GLOBER EQU   184  GLOBAL ERROR FLAG -- WM MEANS ERROR                    0184
  126         ARYTOP EQU   194  TOP OF ARRAYS IN OBJECT CODE                           0194
  127         SNAPSH EQU   333  CORE DUMP SNAPSHOT                                     0333
  128         TOPCOR EQU   688  TOP CORE ADDRESS FROM PARAM CARD                       0688
  129         IMOD   EQU   690  INTEGER MODULUS -- NUMBER OF DIGITS                    0690
  130         MANTIS EQU   692  FLOATING POINT MANTISSA DIGITS                         0692
  131         FMTSW  EQU   696  X FOR NO FORMAT, L FOR LIMITED FORMAT                  0696
  132         *                BLANK FOR ORDINARY, A FOR A CONVERSION
  133         LOADNX EQU   700  LOAD NEXT OVERLAY                                      0700
  134         CLEARL EQU   707  CS AT START OF OVERLAY LOADER                          0707
  135         *
  136                ORG   838                                                                0838
  137         LOADDD EQU   *&1          LOAD ADDRESS                                   0838
  138    838  BEGINN BCE   ORD,FMTSW,    ORDINARY FORMATTING?                       8  0838  B 891 696            4
  139    846         SBR   X2,BASE5A                                                7  0846  H 094 !60            4
  140    853         BCE   OTH,FMTSW,A   A-CONVERSION FORMATTING?                   8  0853  B !33 696 A          4
  141    861         SBR   X2,BASE5L                                                7  0861  H 094 !68            4
  142    868         BCE   OTH,FMTSW,L   LIMITED FORMATTING?                        8  0868  B !33 696 L          4
  143    876         SBR   X2,BASE5X                                                7  0876  H 094 !76            5
  144    883         BCE   OTH,FMTSW,X   NO FORMATTING?                             8  0883  B !33 696 X          5
  145    891  ORD    MCW   X3,83                                                    7  0891  M 099 083            5
  146    898         A     KP2,MANTIS  ADD EXPONENT WIDTH TO MANTISSA WIDTH         7  0898  A J30 692            5
  147    905         SW    GM                                                       4  0905  , !85                5
1                          FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12                                  PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148    909         LCA   GM,1&X3    PUT A GMWM BELOW BOTTOM OF ARRAY TABLE        7  0909  L !85 0?1            6
  149    916         BCE   NOARY,86,  NO ARRAYS?                                    8  0916  B V98 086            6
  150    924         MCW   86,X3                                                    7  0924  M 086 099            6
  151    931  AGAIN  S     W6                                                       4  0931  S J36                6
  152    935         MCW   6&X3,NEXT                                                7  0935  M 0?6 J39            6
  153    942         BCE   NOEQV,1&X3,   NO EQUIVALENCE CLASS LINK?                 8  0942  B T43 0?1            7
  154    950         MCW   3&X3,X2     NEXT MEMBER OF EQUIVALENCE CLASS             7  0950  M 0?3 094            7
  155    957         ZA    0&X3,W10-4  OFFSET                                       7  0957  ? 0?0 !91            7
  156    964         M     5&X2,W10-1                                               7  0964  @ 0!5 !94            7
  157    971         A     0&X2,W10-1  OFFSET OF NEXT IN EQUIVALENCE CLASS          7  0971  A 0!0 !94            7
  158    978         MCW   W10-1,0&X3                                               7  0978  M !94 0?0            8
  159    985  NOEQVR MCW   0&X3,W6                                                  7  0985  M 0?0 J36            8
  160    992         SAR   X3                                                       4  0992  Q 099                8
  161    996         S     KP1,W6                                                   7  0996  S J40 J36            8
  162  1 003         MCW   X3,X2                                                    7  1003  M 099 094            8
  163  1 010  MORE   MCM   2&X2      GET X2 ABOVE THE GMWM                          4  1010  P 0!2                8
  164  1 014         MN                AND THEN                                     1  1014  D                    8
  165  1 015         MN                  BACK DOWN                                  1  1015  D                    9
  166  1 016         SAR   X2              BELOW IT                                 4  1016  Q 094                9
  167  1 020         BCE   MORE,1&X2,|                                              8  1020  B |10 0!1 |          9
  168  1 028         MCW   0&X2,CH   FIRST CHARACTER OF VARIABLE NAME               7  1028  M 0!0 J41            9
  169  1 035         MCW   CH,*&8                                                   7  1035  M J41 |49            9
  170  1 042         BCE   INTVAR,IJKLMN,0  INTEGER VARIABLE?                       8  1042  B T32 J47 0          9
  171  1 050         B                                                              1  1050  B                    9
  172  1 051         B                                                              1  1051  B                   10
  173  1 052         B                                                              1  1052  B                   10
  174  1 053         B                                                              1  1053  B                   10
  175  1 054         B                                                              1  1054  B                   10
  176  1 055         A     MANTIS,W6    FLOATING POINT VARIABLE                     7  1055  A 692 J36           10
  177  1 062  VAR    MCW   W6,14&X3     LOW-ORDER TO WHAT WAS PREV                  7  1062  M J36 0A4           10
  178  1 069         MCW   W6-3,X2      THOUSANDS TO X2                             7  1069  M J33 094           10
  179  1 076         A     X2           DOUBLE IT                                   4  1076  A 094               11
  180  1 080         MZ    ZONES&X2,12&X3  THOUSANDS ZONES                          7  1080  Y !R8 0A2           11
  181  1 087         MZ    ZONES&1&X2,14&X3    TO VARIABLE ADDRESS                  7  1087  Y !R9 0A4           11
  182  1 094         ZA    KZ1,W10-4    CLEAR                                       7  1094  ? J48 !91           11
  183  1 101         MCW   0&X3,W10-4   GET FIRST DIMENSION                         7  1101  M 0?0 !91           11
  184  1 108         MCW   KB1            AND A BLANK                               4  1108  M !96               11
  185  1 112         SBR   PREP&6                                                   4  1112  H /39               12
  186  1 116         NOP   0&X3         GET X2                                      4  1116  N 0?0               12
  187  1 120         MCW                  DOWN TO                                   1  1120  M                   12
  188  1 121         SAR   X2               SECOND DIMENSION                        4  1121  Q 094               12
  189  1 125         BCE   NODIM2,0&X2,}  NO SECOND DIMENSION IF GM?                8  1125  B /47 0!0 } GMARK   12
  190  1 133  PREP   MCW   0&X2,0-0                                                 7  1133  M 0!0 000           12
  191  1 140         M     0&X3,W10-4                                               7  1140  @ 0?0 !91           12
  192  1 147  NODIM2 LCA   KB3,8&X3     CLOBBER EQUIVALENCE LINK                    7  1147  L J51 0?8           13
  193  1 154         MCW   X1,SX1       SAVE X1                                     7  1154  M 089 J54           13
  194  1 161         MCW   14&X3,X1     ADDRESS TO X1                               7  1161  M 0A4 089           13
  195  1 168         MCW   CH,*&8                                                   7  1168  M J41 /82           13
  196  1 175         BCE   INTVR2,IJKLM2,0  INTEGER VARIABLE?                       8  1175  B T65 J60 0         13
  197  1 183         B                                                              1  1183  B                   13
1                          FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12                                  PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  198  1 184         B                                                              1  1184  B                   13
  199  1 185         B                                                              1  1185  B                   14
  200  1 186         B                                                              1  1186  B                   14
  201  1 187         B                                                              1  1187  B                   14
  202  1 188         M     MANTIS,W10-1  FIRST DIMENSION * WIDTH                    7  1188  @ 692 !94           14
  203  1 195         MZ    KZAB,7&X3     MARK FLOATING-POINT ZONE                   7  1195  Y J61 0?7           14
  204  1 202         MCW   MANTIS,10&X3                                             7  1202  M 692 0A0           14
  205  1 209  VAR2   MZ    7&X3,13&X3    COPY TYPE ZONE                             7  1209  Y 0?7 0A3           14
  206  1 216         MCW   SX1,X1                                                   7  1216  M J54 089           15
  207  1 223         S     10&X3,W6      SUBTRACT VARIABLE WIDTH                    7  1223  S 0A0 J36           15
  208  1 230         A     W10-1,W6                                                 7  1230  A !94 J36           15
  209  1 237         MN    W6,8&X3       LOW-ORDER DIGITS                           7  1237  D J36 0?8           15
  210  1 244         MN                    TO WHAT WAS THE                          1  1244  D                   15
  211  1 245         MN                      EQUIVALENCE CLASS LINK                 1  1245  D                   15
  212  1 246         SAR   *&4                                                      4  1246  Q S53               15
  213  1 250         MCW   0-0,X2                                                   7  1250  M 000 094           16
  214  1 257         MCW   KZ1                                                      4  1257  M J48               16
  215  1 261         A     X2                                                       4  1261  A 094               16
  216  1 265         MZ    ZONES&1&X2,8&X3                                          7  1265  Y !R9 0?8           16
  217  1 272         CW                  WHY NOT                                    1  1272  )                   16
  218  1 273         SBR   *&7             JUST                                     4  1273  H S83               16
  219  1 277         MZ    ZONES&X2,0        MZ   ZONES&X2,6&X3 ?                   7  1277  Y !R8 000           16
  220  1 284         A     KP1,W6                                                   7  1284  A J40 J36           17
  221  1 291         S     W6,BASE5    COMPUTE BASE5 = MAX(BASE5,W6)                7  1291  S J36 !49           17
  222  1 298         BM    NEGDIF,BASE5                                             8  1298  V T54 !49 K         17
  223  1 306         A     W6,BASE5                                                 7  1306  A J36 !49           17
  224  1 313  TSTMOR BCE   NOMORE,NEXT,  NO MORE ARRAYS IF NEXT IS BLANK            8  1313  B T90 J39           17
  225  1 321         MCW   NEXT,X3                                                  7  1321  M J39 099           18
  226  1 328         B     AGAIN                                                    4  1328  B 931               18
  227         *
  228  1 332  INTVAR A     IMOD,W6                                                  7  1332  A 690 J36           18
  229  1 339         B     VAR                                                      4  1339  B |62               18
  230         *
  231         * AT THE END OF AN EQUIVALENCE CLASS (MAYBE THE ONLY ONE
  232         * IN IT).
  233         *
  234  1 343  NOEQV  MCW   BASE5,0&X3                                               7  1343  M !49 0?0           18
  235  1 350         B     NOEQVR                                                   4  1350  B 985               18
  236         *
  237  1 354  NEGDIF MCW   W6,BASE5                                                 7  1354  M J36 !49           19
  238  1 361         B     TSTMOR                                                   4  1361  B T13               19
  239         *
  240  1 365  INTVR2 M     IMOD,W10-1   FIRST DIMENSION * WIDTH                     7  1365  @ 690 !94           19
  241  1 372         MZ    KZB,7&X3     MARK INTEGER ZONE                           7  1372  Y J62 0?7           19
  242  1 379         MCW   IMOD,10&X3                                               7  1379  M 690 0A0           19
  243  1 386         B     VAR2                                                     4  1386  B S09               19
  244         *
  245         * NO MORE ARRAY TABLE ELEMENTS
  246         *
  247         * CONVERT TOPCOR TO FIVE DIGITS
1                          FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12                                  PAGE    4
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  248         *
  249  1 390  NOMORE S     W2A                                                      4  1390  S J64               20
  250  1 394         S     W2B                                                      4  1394  S J66               20
  251  1 398         MZ    TOPCOR,W2A-1                                             7  1398  Y 688 J63           20
  252  1 405         MZ    TOPCOR-2,W2B-1                                           7  1405  Y 686 J65           20
  253  1 412  LOOP1K BWZ   MOD4,W2B-1,2  MULTIPLE OF 4K?                            8  1412  V U31 J65 2         20
  254  1 420         A     KA0,W2B                                                  7  1420  A J68 J66           20
  255  1 427         B     LOOP1K                                                   4  1427  B U12               21
  256  1 431  MOD4   BWZ   BELOW4,W2A-1,2                                           8  1431  V U50 J63 2         21
  257  1 439         A     KQ4,W2A                                                  7  1439  A J70 J64           21
  258  1 446         B     MOD4                                                     4  1446  B U31               21
  259  1 450  BELOW4 A     W2B-1,W2A                                                7  1450  A J65 J64           21
  260  1 457         MCW   TOPCOR,TOP5                                              7  1457  M 688 !81           21
  261  1 464         MCW   W2A                                                      4  1464  M J64               22
  262  1 468         ZA    TOP5                                                     4  1468  ? !81               22
  263  1 472         MZ    *-4,TOP5                                                 7  1472  Y U74 !81           22
  264         *
  265         * TEST FOR TOO BIG PROGRAM
  266         *
  267  1 479         S     BASE5,TOP5  TOPCOR - TOP OF ARRAYS                       7  1479  S !49 !81           22
  268  1 486         S     KP1,TOP5                                                 7  1486  S J40 !81           22
  269  1 493         BM    TOOBIG,TOP5                                              8  1493  V V66 !81 K         22
  270  1 501         MN    TOP5,TOP3   LOW-ORDER                                    7  1501  D !81 !84           23
  271  1 508         MN                  DIGITS OF                                  1  1508  D                   23
  272  1 509         MN                    FREE SPACE                               1  1509  D                   23
  273  1 510         SAR   *&4                                                      4  1510  Q V17               23
  274  1 514         MCW   0-0,X2      THOUSANDS TO X2                              7  1514  M 000 094           23
  275  1 521         MCW   KZ1           AND A ZERO                                 4  1521  M J48               23
  276  1 525         A     X2          DOUBLE IT                                    4  1525  A 094               23
  277  1 529         MZ    ZONES&1&X2,TOP3                                          7  1529  Y !R9 !84           24
  278  1 536         CW                WHY NOT                                      1  1536  )                   24
  279  1 537         SBR   *&7           JUST                                       4  1537  H V47               24
  280  1 541         MZ    ZONES&X2,0      MCW  ZONES&X2,TOP3-2?                    7  1541  Y !R8 000           24
  281  1 548         MCW   BASE3,ARYTOP                                             7  1548  M !52 194           24
  282  1 555         MA    TOP3,ARYTOP                                              7  1555  # !84 194           24
  283  1 562         B     NOTBIG                                                   4  1562  B W05               24
  284  1 566  TOOBIG BW    NOTBIG,W10  DON'T REPEAT ERROR MESSAGE                   8  1566  V W05 !95 1         25
  285  1 574         CS    332                                                      4  1574  / 332               25
  286  1 578         CS                                                             1  1578  /                   25
  287  1 579         MCW   ERROR2,270                                               7  1579  M K06 270           25
  288  1 586         W                                                              1  1586  2                   25
  289  1 587         SW    GLOBER,W10     SET GLOBAL AND DON'T REPEAT FLAGS         7  1587  , 184 !95           25
  290  1 594         S     TOP5                                                     4  1594  S !81               25
  291  1 598  NOARY  MCW   TOPCOR,ARYTOP                                            7  1598  M 688 194           26
  292  1 605  NOTBIG MCW   BASE3,86                                                 7  1605  M !52 086           26
  293  1 612         CC    L                                                        2  1612  F L                 26
  294  1 614         BCV   *&5                                                      5  1614  B W23 @             26
  295  1 619         B     *&3                                                      4  1619  B W25               26
  296  1 623         CC    1                                                        2  1623  F 1                 26
  297  1 625         CS    332                                                      4  1625  / 332               26
1                          FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12                                  PAGE    5
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  298  1 629         CS                                                             1  1629  /                   27
  299  1 630         MCW   STORGE,247                                               7  1630  M K51 247           27
  300  1 637         W                                                              1  1637  2                   27
  301  1 638         CC    J                                                        2  1638  F J                 27
  302  1 640         MCW   83,X3                                                    7  1640  M 083 099           27
  303         *
  304         * PRINT THE ARRAYS AND THEIR ADDRESSES
  305         *
  306  1 647  NOTHER NOP   10&X3                                                    4  1647  N 0A0               27
  307  1 651         MCM                                                            1  1651  P                   27
  308  1 652         SAR   X3                                                       4  1652  Q 099               28
  309  1 656         CS    299                                                      4  1656  / 299               28
  310  1 660  MORE3  BCE   MORE2,0&X3,|                                             8  1660  B Z72 0?0 |         28
  311  1 668         B                                                              1  1668  B                   28
  312  1 669         MN    0&X3                                                     4  1669  D 0?0               28
  313  1 673         MN                                                             1  1673  D                   28
  314  1 674         SAR   X3                                                       4  1674  Q 099               28
  315  1 678         BCE   NOARYS,0&X3,:   NO ARRAYS IF COLON                       8  1678  B Z84 0?0 :         29
  316  1 686         MN    201                                                      4  1686  D 201               29
  317  1 690         MN                                                             1  1690  D                   29
  318  1 691         SAR   X2                                                       4  1691  Q 094               29
  319  1 695         SBR   X3,0&X3                                                  7  1695  H 099 0?0           29
  320         *
  321         * MOVE VARIABLE TO PRINT AREA -- NEED TO REVERSE IT
  322         *
  323  1 702  MOVE   MCW   0&X3,CH2                                                 7  1702  M 0?0 K52           29
  324  1 709         SAR   X3                                                       4  1709  Q 099               29
  325  1 713         MCW   CH2,2&X2                                                 7  1713  M K52 0!2           30
  326  1 720         SBR   X2                                                       4  1720  H 094               30
  327  1 724         BW    MOVFIN,1&X3                                              8  1724  V X36 0?1 1         30
  328  1 732         B     MOVE                                                     4  1732  B X02               30
  329  1 736  MOVFIN C     0&X3      SKIP                                           4  1736  C 0?0               30
  330  1 740         C                 THE                                          1  1740  C                   30
  331  1 741         C                   FIXED                                      1  1741  C                   30
  332  1 742         C                     WIDTH                                    1  1742  C                   31
  333  1 743         SAR   X2                FIELDS                                 4  1743  Q 094               31
  334  1 747         A     TOP5,5&X2                                                7  1747  A !81 0!5           31
  335  1 754         MA    TOP3,8&X2                                                7  1754  # !84 0!8           31
  336  1 761         MA    TOP3,14&X2                                               7  1761  # !84 0J4           31
  337  1 768         MCS   5&X2,218                                                 7  1768  Z 0!5 218           31
  338  1 775         MCW   8&X2,234                                                 7  1775  M 0!8 234           32
  339  1 782         MZ    KB1,233                                                  7  1782  Y !96 233           32
  340  1 789         SW    220                                                      4  1789  , 220               32
  341         *
  342         * CONVERT TOP ADDRESS OF ARRAY TO FIVE DIGITS
  343         *
  344  1 793         S     W2C                                                      4  1793  S K54               32
  345  1 797         S     W2D                                                      4  1797  S K56               32
  346  1 801         MZ    8&X2,W2C-1                                               7  1801  Y 0!8 K53           32
  347  1 808         MZ    6&X2,W2D-1                                               7  1808  Y 0!6 K55           33
1                          FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12                                  PAGE    6
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  348  1 815  LP1KA  BWZ   MOD4A,W2D-1,2  MULTIPLE OF 4K?                           8  1815  V Y34 K55 2         33
  349  1 823         A     KA0,W2D                                                  7  1823  A J68 K56           33
  350  1 830         B     LP1KA                                                    4  1830  B Y15               33
  351  1 834  MOD4A  BWZ   LOW4,W2C-1,2                                             8  1834  V Y53 K53 2         33
  352  1 842         A     KQ4,W2C                                                  7  1842  A J70 K54           34
  353  1 849         B     MOD4A                                                    4  1849  B Y34               34
  354  1 853  LOW4   A     W2D-1,W2C                                                7  1853  A K55 K54           34
  355  1 860         MCW   8&X2,224                                                 7  1860  M 0!8 224           34
  356  1 867         MCW   W2C                                                      4  1867  M K54               34
  357  1 871         ZA    224                                                      4  1871  ? 224               34
  358  1 875         MZ    *-4,224                                                  7  1875  Y Y77 224           35
  359  1 882         MCW   HYPHEN,219                                               7  1882  M K57 219           35
  360  1 889         MN    5&X2,230                                                 7  1889  D 0!5 230           35
  361  1 896         MN                                                             1  1896  D                   35
  362  1 897         MN                                                             1  1897  D                   35
  363  1 898         SAR   *&4                                                      4  1898  Q Z05               35
  364  1 902         MCW   0,X2                                                     7  1902  M 000 094           35
  365  1 909         MCW   KZ1                                                      4  1909  M J48               36
  366  1 913         A     X2                                                       4  1913  A 094               36
  367  1 917         MZ    ZONES&1&X2,230                                           7  1917  Y !R9 230           36
  368  1 924         CW                                                             1  1924  )                   36
  369  1 925         SBR   *&7                                                      4  1925  H Z35               36
  370  1 929         MZ    ZONES&X2,0                                               7  1929  Y !R8 000           36
  371  1 936         BCV   *&5                                                      5  1936  B Z45 @             36
  372  1 941         B     *&3                                                      4  1941  B Z47               37
  373  1 945         CC    1                                                        2  1945  F 1                 37
  374  1 947         W                                                              1  1947  2                   37
  375  1 948         CS    299                                                      4  1948  / 299               37
  376  1 952         MCM   1&X3                                                     4  1952  P 0?1               37
  377  1 956         SAR   X3                                                       4  1956  Q 099               37
  378  1 960         BCE   DONE,0&X3,                                               8  1960  B !08 0?0           37
  379  1 968         B     NOTHER  DO ANOTHER ONE                                   4  1968  B W47               38
  380         *
  381  1 972  MORE2  MCM   0&X3                                                     4  1972  P 0?0               38
  382  1 976         SBR   X3                                                       4  1976  H 099               38
  383  1 980         B     MORE3                                                    4  1980  B W60               38
  384         *
  385         * PRINT NO ARRAYS MESSAGE
  386         *
  387  1 984  NOARYS CS    332                                                      4  1984  / 332               38
  388  1 988         CS                                                             1  1988  /                   38
  389  1 989         MCW   NOARYM,209                                               7  1989  M K66 209           38
  390  1 996         W                                                              1  1996  2                   39
  391  1 997         BCV   *&5                                                      5  1997  B !06 @             39
  392  2 002         B     DONE                                                     4  2002  B !08               39
  393  2 006         CC    1                                                        2  2006  F 1                 39
  394         *
  395         * DONE
  396         *
  397  2 008  DONE   CC    L                                                        2  2008  F L                 39
1                          FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12                                  PAGE    7
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  398  2 010         BSS   SNAPSH,E                                                 5  2010  B 333 E             39
  399  2 015         SBR   CLEARL&3,GMWM                                            7  2015  H 710 K73           39
  400  2 022         LCA   VARBL1,PHASID                                            7  2022  L K72 110           40
  401  2 029         B     LOADNX                                                   4  2029  B 700               40
  402         *
  403         * FORMATTING OTHER THAN ORDINARY FORMATTING
  404         *
  405  2 033  OTH    MCW   0&X2,BASE3  BASE ADDRESS                                 7  2033  M 0!0 !52           40
  406  2 040         MCW                 AND DECIMAL EQUIVALENT & 1                 1  2040  M                   40
  407  2 041         B     ORD                                                      4  2041  B 891               40
  408         *
  409         * DATA
  410         *
  411  2 049  BASE5  DCW   04280  DECIMAL FORMAT BASE ADDRESS FOR ARRAYS            5  2049                      40
  412         *                   EVENTUALLY, 1 ABOVE TOP OF ARRAYS
  413  2 052  BASE3  DSA   4279   BASE5 - 1 IN MACHINE ADDRESS FORMAT               3  2052  27Z                 40
  414  2 057         DCW   04617                                                    5  2057                      41
  415  2 060  BASE5A DSA   4616   A FORMAT BASE ADDRESS FOR ARRAYS                  3  2060  61W                 41
  416  2 065         DCW   02016                                                    5  2065                      41
  417  2 068  BASE5L DSA   2015   L FORMAT BASE ADDRESS FOR ARRAYS                  3  2068  !15                 41
  418  2 073         DCW   01697                                                    5  2073                      41
  419  2 076  BASE5X DSA   1696   X (NO) FORMAT BASE ADDRESS FOR ARRAYS             3  2076  W96                 41
  420  2 081  TOP5   DCW   00000  TOPCOR AS FIVE DIGITS                             5  2081                      41
  421  2 084  TOP3   DCW   000    TOPCOR LESS ARRAYS AS 3 CHARACTERS                3  2084                      42
  422  2 085  GM     DC    @}@                                                      1  2085              GMARK   42
  423  2 095  W10    DCW   #10                                                     10  2095                      42
  424  2 096  KB1    DCW   #1                                                       1  2096                      42
  425  2 098  ZONES  DCW   @ 9@                                                     2  2098                      42
  426  2 129         DCW   @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@                       31  2129                      43
  427  2 130  KP2    DCW   &2                                                       1  2130                      43
  428  2 136  W6     DCW   #6                                                       6  2136                      43
  429  2 139  NEXT   DCW   #3                                                       3  2139                      44
  430  2 140  KP1    DCW   &1                                                       1  2140                      44
  431  2 141  CH     DCW   #1                                                       1  2141                      44
  432  2 147  IJKLMN DCW   @IJKLMN@                                                 6  2147                      44
  433  2 148  KZ1    DCW   0                                                        1  2148                      44
  434  2 151  KB3    DCW   #3                                                       3  2151                      44
  435  2 154  SX1    DCW   #3  SAVE AREA FOR X1                                     3  2154                      44
  436  2 160  IJKLM2 DCW   @IJKLMN@                                                 6  2160                      45
  437  2 161  KZAB   DCW   &1  A AND B ZONES                                        1  2161                      45
  438  2 162  KZB    DCW   -1  B ZONE                                               1  2162                      45
  439  2 164  W2A    DCW   #2                                                       2  2164                      45
  440  2 166  W2B    DCW   #2                                                       2  2166                      45
  441  2 168  KA0    DCW   @A0@                                                     2  2168                      45
  442  2 170  KQ4    DCW   @?4@                                                     2  2170                      45
  443  2 206  ERROR2 DCW   @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@                  36  2206                      46
  444  2 251  STORGE DCW   @STORAGE ASSIGNMENT-ARRAYS & EQUATED VARIABLES@         45  2251                      48
  445  2 252  CH2    DCW   #1                                                       1  2252                      48
  446  2 254  W2C    DCW   #2                                                       2  2254                      48
  447  2 256  W2D    DCW   #2                                                       2  2256                      48
1                          FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12                                  PAGE    8
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  448  2 257  HYPHEN DCW   @-@                                                      1  2257                      48
  449  2 266  NOARYM DCW   @NO ARRAYS@                                              9  2266                      49
  450  2 272  VARBL1 DCW   @VARBL1@                                                 6  2272                      49
  451  2 273  GMWM   DCW   @}@                                                      1  2273              GMARK   49
  452                ORG   201                                                                0201
  453    203         DSA   LOADDD    LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM          3  0203  838                 50
  454                EX    BEGINN                                                            B 838               51
  455                END                                                                     / 000 080
1                          FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12                                  PAGE    9
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 AGAIN     931    ARYTOP    194    BASE3    2052    BASE5    2049    BASE5A   2060    BASE5L   2068    BASE5X   2076   
 BEGINN    838    BELOW4   1450    CH       2141    CH2      2252    CLEARL    707    DONE     2008    ERROR2   2206   
 FMTSW     696    GLOBER    184    GM       2085    GMWM     2273    HYPHEN   2257    IJKLM2   2160    IJKLMN   2147   
 IMOD      690    INTVAR   1332    INTVR2   1365    KA0      2168    KB1      2096    KB3      2151    KP1      2140   
 KP2      2130    KQ4      2170    KZ1      2148    KZAB     2161    KZB      2162    LOADDD    838    LOADNX    700   
 LOOP1K   1412    LOW4     1853    LP1KA    1815    MANTIS    692    MOD4     1431    MOD4A    1834    MORE     1010   
 MORE2    1972    MORE3    1660    MOVE     1702    MOVFIN   1736    NEGDIF   1354    NEXT     2139    NOARY    1598   
 NOARYM   2266    NOARYS   1984    NODIM2   1147    NOEQV    1343    NOEQVR    985    NOMORE   1390    NOTBIG   1605   
 NOTHER   1647    ORD       891    OTH      2033    PHASID    110    PREP     1133    SNAPSH    333    STORGE   2251   
 SX1      2154    TOOBIG   1566    TOP3     2084    TOP5     2081    TOPCOR    688    TSTMOR   1313    VAR      1062   
 VAR2     1209    VARBL1   2272    W10      2095    W2A      2164    W2B      2166    W2C      2254    W2D      2256   
 W6       2136    X1         89    X2         94    X3         99    ZONES    2098