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 -- CONSTANTS PHASE THREE -- 20                                PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20
  102                CTL   6611
  103         *
  104         * CONSTANTS ARE PLACED IN THEIR OBJECT-TIME LOCATIONS AT THE
  105         * LOWER END OF STORAGE.  THE OBJECT-TIME ADDRESSES REPLACE
  106         * THE CONSTANTS WHEREVER THEY APPEAR.
  107         *
  108         * ON ENTRY, X1 AND TOPCOD ARE THE TOP OF THE PREFIX OF THE TOP
  109         * STATEMENT, AND 81-83 IS THE NEXT AVAILABLE PLACE IN THE
  110         * NUMBER TABLE.
  111         *
  112         * ON EXIT, X1 IS THE TOP OF THE PREFIX OF THE TOP STATEMENT
  113         * AND 81-83 IS THE BOTTOM OF THE NUMBER TABLE.
  114         *
  115         X1     EQU   89                                                          0089
  116         X2     EQU   94                                                          0094
  117         X3     EQU   99                                                          0099
  118         *
  119         * STUFF IN THE RESIDENT AREA
  120         *
  121         PHASID EQU   110  PHASE ID, FOR SNAPSHOT DUMPS                           0110
  122         NEGAR2 EQU   142  LOOKS LIKE NEGARY -- SEE PHASE 20                      0142
  123         NEGAR3 EQU   157  LOOKS LIKE NEGARY -- SEE PHASE 20                      0157
  124         ARYSIZ EQU   160  TOTAL ARRAY SIZE & 2                                   0160
  125         NEGARY EQU   163  16000 - ARYSIZ                                         0163
  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         LOADNX EQU   700  LOAD NEXT OVERLAY                                      0700
  130         CLEARL EQU   707  CS AT START OF OVERLAY LOADER                          0707
  131         CDOVLY EQU   769  READ (1) INSTRUCTION IF RUNNING FROM CARDS             0769
  132         TPREAD EQU   780  TAPE READ INSTRUCTION IN OVERLAY LOADER                0780
  133         LOADXX EQU   793  EXIT FROM OVERLAY LOADER                               0793
  134         CLRBOT EQU   833  BOTTOM OF CORE TO CLEAR IN OVERLAY LOADER              0833
  135         TOPCOD EQU   840  TOP OF CODE & X00 - 1                                  0840
  136         DIFF   EQU   845  TOP OF CORE - TOPCOD AS FIVE DIGITS                    0845
  137         BNDRY  EQU   848                                                         0848
  138         *
  139                ORG   849                                                                0849
  140         LOADDD EQU   *&1          LOAD ADDRESS                                   0849
  141         *
  142         * CONVERT TOPCOR TO DECIMAL
  143         *
  144    849  BEGINN S     W2H                                                      4  0849  S !48                4
  145    853         S     W2L                                                      4  0853  S !50                4
  146    857         MZ    TOPCOR,W2H-1                                             7  0857  Y 688 !47            4
  147    864         MZ    TOPCOR-2,W2L-1                                           7  0864  Y 686 !49            4
1                          FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20                                PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148    871         BWZ   *&12,W2L-1,2                                             8  0871  V 890 !49 2          4
  149    879         A     KA0,W2L                                                  7  0879  A !52 !50            4
  150    886         B     *-18                                                     4  0886  B 871                5
  151    890         BWZ   *&12,W2H-1,2                                             8  0890  V 909 !47 2          5
  152    898         A     KQ4,W2H                                                  7  0898  A !54 !48            5
  153    905         B     *-18                                                     4  0905  B 890                5
  154    909         A     W2L-1,W2H                                                7  0909  A !49 !48            5
  155    916         MCW   TOPCOR,ARYSZW                                            7  0916  M 688 !71            5
  156    923         MCW   W2H                                                      4  0923  M !48                6
  157    927         ZA    ARYSZW                                                   4  0927  ? !71                6
  158    931         MZ    *-4,ARYSZW                                               7  0931  Y 933 !71            6
  159    938         MCW   X2,SX2                                                   7  0938  M 094 !57            6
  160    945         S     W2H2                                                     4  0945  S !59                6
  161    949         S     W2L2                                                     4  0949  S !61                6
  162         *
  163         * CONVERT ARYTOP TO DECIMAL
  164         *
  165    953         MZ    ARYTOP,W2H2-1                                            7  0953  Y 194 !58            6
  166    960         MZ    ARYTOP-2,W2L2-1                                          7  0960  Y 192 !60            7
  167    967         BWZ   *&12,W2L2-1,2                                            8  0967  V 986 !60 2          7
  168    975         A     KA0,W2L2                                                 7  0975  A !52 !61            7
  169    982         B     *-18                                                     4  0982  B 967                7
  170    986         BWZ   *&12,W2H2-1,2                                            8  0986  V |05 !58 2          7
  171    994         A     KQ4,W2H2                                                 7  0994  A !54 !59            8
  172  1 001         B     *-18                                                     4  1001  B 986                8
  173  1 005         A     W2L2-1,W2H2                                              7  1005  A !60 !59            8
  174  1 012         MCW   ARYTOP,W5                                                7  1012  M 194 !66            8
  175  1 019         MCW   W2H2                                                     4  1019  M !59                8
  176  1 023         ZA    W5                                                       4  1023  ? !66                8
  177  1 027         MZ    *-4,W5                                                   7  1027  Y |29 !66            9
  178         *
  179         * CONVERT W5-ARYSZW, WHIICH IS ARRAY SIZES & 2,  TO MACHINE
  180         * ADDRESS
  181         *
  182  1 034         S     W5,ARYSZW                                                7  1034  S !66 !71            9
  183  1 041         C     KP0,ARYSZW                                               7  1041  C !76 !71            9
  184  1 048         BE    NOARYS                                                   5  1048  B /61 S              9
  185  1 053         MN    ARYSZW,ARYSIZ                                            7  1053  D !71 160            9
  186  1 060         MN                                                             1  1060  D                    9
  187  1 061         MN                                                             1  1061  D                    9
  188  1 062         SAR   *&4                                                      4  1062  Q |69               10
  189  1 066         MCW   0,X2  WHY NOT JUST MCW  ARYSZW-3,X2 ?                    7  1066  M 000 094           10
  190  1 073         MCW   K0                                                       4  1073  M !77               10
  191  1 077         A     X2                                                       4  1077  A 094               10
  192  1 081         MZ    ZONES&X2,ARYSIZ                                          7  1081  Y !J6 160           10
  193  1 088         CW                                                             1  1088  )                   10
  194  1 089         SBR   *&7                                                      4  1089  H |99               10
  195  1 093         MZ    ZONES-1&X2,0  WHY NOT MZ   ZONES-1&X2,ARYSIZ-2 ?         7  1093  Y !J5 000           11
  196  1 100         MCW   K16K,W5B                                                 7  1100  M !82 !87           11
  197  1 107         S     ARYSZW,W5B                                               7  1107  S !71 !87           11
1                          FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20                                PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  198  1 114         MN    W5B,NEGARY                                               7  1114  D !87 163           11
  199  1 121         MN                                                             1  1121  D                   11
  200  1 122         MN                                                             1  1122  D                   11
  201  1 123         SAR   *&4                                                      4  1123  Q /30               11
  202  1 127         MCW   0,X2  WHY NOT MCW  W5B-3,X2 ?                            7  1127  M 000 094           12
  203  1 134         MCW   K0                                                       4  1134  M !77               12
  204  1 138         A     X2                                                       4  1138  A 094               12
  205  1 142         MZ    ZONES&X2,NEGARY                                          7  1142  Y !J6 163           12
  206  1 149         CW                                                             1  1149  )                   12
  207  1 150         SBR   *&7                                                      4  1150  H /60               12
  208  1 154         MZ    ZONES-1&X2,0  WHY NOT MZ   ZONES-1&X2,NEGARY-2 ?         7  1154  Y !J5 000           12
  209  1 161  NOARYS MCW   SX2,X2                                                   7  1161  M !57 094           13
  210  1 168         MA    NEGARY,NEGAR2                                            7  1168  # 163 142           13
  211  1 175         MA    NEGARY,NEGAR3                                            7  1175  # 163 157           13
  212  1 182         MCW   TOPCOD,SAVTOP&3                                          7  1182  M 840 U82           13
  213  1 189         MZ    S,SAVTOP&2  X2 ZONE                                      7  1189  Y !88 U81           13
  214  1 196         MCW   X2,SX2B                                                  7  1196  M 094 !91           14
  215  1 203         MCW   KB1,2599                                                 7  1203  M !92 N99           14
  216  1 210  LOOP   BCE   BOTTOM,0&X1,                                             8  1210  B X76 0|0           14
  217  1 218         MCW   0&X1,SEQCOD                                              7  1218  M 0|0 !96           14
  218  1 225         LCA   0&X1,PREFIX                                              7  1225  L 0|0 J06           14
  219  1 232         SAR   X1                                                       4  1232  Q 089               15
  220  1 236         SBR   X3                                                       4  1236  H 099               15
  221  1 240         LCA   PREFIX,0&X2                                              7  1240  L J06 0!0           15
  222  1 247         SBR   X2                                                       4  1247  H 094               15
  223  1 251         BCE   ENDSTM,SEQCOD-3,/  END STATEMENT?                        8  1251  B X46 !93 /         15
  224  1 259  SCHUND BCE   GOTUN6,0&X1,_                                            8  1259  B S93 0|0 _         15
  225  1 267         CHAIN 5                                                                             MACRO
  226                BCE                                                            1  1267  B           GEN     15
  227                BCE                                                            1  1268  B           GEN     16
  228                BCE                                                            1  1269  B           GEN     16
  229                BCE                                                            1  1270  B           GEN     16
  230                BCE                                                            1  1271  B           GEN     16
  231  1 272         BCE   ENDSTM,0&X1,}                                            8  1272  B X46 0|0 } GMARK   16
  232  1 280         CHAIN 5                                                                             MACRO
  233                BCE                                                            1  1280  B           GEN     16
  234                BCE                                                            1  1281  B           GEN     16
  235                BCE                                                            1  1282  B           GEN     17
  236                BCE                                                            1  1283  B           GEN     17
  237                BCE                                                            1  1284  B           GEN     17
  238  1 285         SBR   X1                                                       4  1285  H 089               17
  239  1 289         B     SCHUND                                                   4  1289  B S59               17
  240         *
  241         * GOT X1 TO WITHIN SIX OF UNDERSCORE.  GET TO IT EXACTLY.
  242         *
  243  1 293  GOTUN6 BCE   GOTUND,0&X1,_                                            8  1293  B T09 0|0 _         17
  244  1 301         SBR   X1                                                       4  1301  H 089               17
  245  1 305         B     GOTUN6                                                   4  1305  B S93               18
  246         *
  247         * GOT X1 TO THE UNDERSCORE ABOVE A NUMBER
1                          FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20                                PAGE    4
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  248         *
  249  1 309  GOTUND SW    1&X1                                                     4  1309  , 0|1               18
  250  1 313         CW                                                             1  1313  )                   18
  251  1 314         CW                                                             1  1314  )                   18
  252  1 315         CW                                                             1  1315  )                   18
  253  1 316         SAR   X1                                                       4  1316  Q 089               18
  254  1 320         BCE   GOTGM,4&X1,}  CAN THIS HAPPEN?                           8  1320  B T43 0|4 } GMARK   18
  255  1 328         LCA   0&X3,0&X2  MOVE UP EVERYTHING ABOVE NUMBER.              7  1328  L 0?0 0!0           19
  256  1 335         SBR   X2                                                       4  1335  H 094               19
  257  1 339         CW    1&X2                                                     4  1339  ) 0!1               19
  258  1 343  GOTGM  SBR   X3,2&X1                                                  7  1343  H 099 0|2           19
  259         *
  260         * GET X1 DOWN TO A PUNCTUATION MARK BELOW THE NUMBER
  261         *
  262  1 350  SCHPUN MCW   0&X1,W1                                                  7  1350  M 0|0 J07           19
  263  1 357         SAR   X1                                                       4  1357  Q 089               19
  264  1 361         MCW   W1,*&8                                                   7  1361  M J07 T75           20
  265  1 368         BCE   GOTPUN,PUNCT,0                                           8  1368  B T88 J16 0         20
  266  1 376         CHAIN 8                                                                             MACRO
  267                BCE                                                            1  1376  B           GEN     20
  268                BCE                                                            1  1377  B           GEN     20
  269                BCE                                                            1  1378  B           GEN     20
  270                BCE                                                            1  1379  B           GEN     20
  271                BCE                                                            1  1380  B           GEN     20
  272                BCE                                                            1  1381  B           GEN     21
  273                BCE                                                            1  1382  B           GEN     21
  274                BCE                                                            1  1383  B           GEN     21
  275  1 384         B     SCHPUN                                                   4  1384  B T50               21
  276  1 388  GOTPUN SW    2&X1  AT THE BOTTOM OF THE NUMBER                        4  1388  , 0|2               21
  277  1 392         ZA    0&X3,HASH                                                7  1392  ? 0?0 J20           21
  278  1 399         A     4&X1,HASH                                                7  1399  A 0|4 J20           21
  279  1 406         BCE   BLANK,2&X1,                                              8  1406  B X04 0|2           22
  280  1 414  BBACK  MZ    KB4,HASH                                                 7  1414  Y J24 J20           22
  281  1 421         MZ                                                             1  1421  Y                   22
  282  1 422         MZ                                                             1  1422  Y                   22
  283  1 423         MCW                                                            1  1423  M                   22
  284  1 424         S     DIFF-1,HASH  COMPUTE                                     7  1424  S 844 J20           22
  285  1 431         BWZ   *-14,HASH,B    MOD                                       8  1431  V U24 J20 B         22
  286  1 439         A     DIFF-1,HASH      (DIFF-1,HASH)                           7  1439  A 844 J20           23
  287  1 446         MZ    KB1,HASH                                                 7  1446  Y !92 J20           23
  288  1 453         MCW   X2,SX2C                                                  7  1453  M 094 J32           23
  289  1 460         MCW                                                            1  1460  M                   23
  290  1 461         MCW   HASH,X1                                                  7  1461  M J20 089           23
  291  1 468         A     X1                                                       4  1468  A 089               23
  292  1 472         A     HASH,X1                                                  7  1472  A J20 089           24
  293  1 479  SAVTOP NOP   0                                                        4  1479  N 000               24
  294  1 483         SAR   X1                                                       4  1483  Q 089               24
  295  1 487         MCW   NOP,BOTHSH                                               7  1487  M J33 W71           24
  296  1 494  HLOOP  BCE   NOTFND,0&X1,  NOT FOUND IF HASH ENTRY BLANK              8  1494  B W26 0|0           24
  297  1 502         BCE   BOTHSH,0&X1,<                                            8  1502  B W71 0|0 <         24
1                          FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20                                PAGE    5
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  298  1 510         MCW   0&X1,X2                                                  7  1510  M 0|0 094           25
  299  1 517         SAR   X1                                                       4  1517  Q 089               25
  300  1 521         C     0&X3,0&X2                                                7  1521  C 0?0 0!0           25
  301  1 528         BU    HLOOP                                                    5  1528  B U94 /             25
  302  1 533         C     0&X2,0&X3                                                7  1533  C 0!0 0?0           25
  303  1 540         BU    HLOOP                                                    5  1540  B U94 /             25
  304         *
  305         * FOUND IN THE HASH TABLE
  306         *
  307  1 545  FOUND  MCW   X2,SX2D                                                  7  1545  M 094 J36           26
  308  1 552         MCW   SX2D,SX2E                                                7  1552  M J36 J39           26
  309  1 559         MA    NEGARY,SX2D                                              7  1559  # 163 J36           26
  310  1 566         MCW   SX2C,X2                                                  7  1566  M J32 094           26
  311  1 573         MCW                                                            1  1573  M                   26
  312  1 574         LCA   SX2D,0&X2                                                7  1574  L J36 0!0           26
  313  1 581         SBR   X2                                                       4  1581  H 094               27
  314  1 585         CW    1&X2                                                     4  1585  ) 0!1               27
  315  1 589         MCW   SX2E,*&7                                                 7  1589  M J39 W02           27
  316  1 596         BWZ   FPNUM,0-0,2                                              8  1596  V W93 000 2         27
  317  1 604         MZ    KB1,2&X2  SET INTEGER ZONE                               7  1604  Y !92 0!2           27
  318  1 611  NUMFIN SBR   X1,1&X1                                                  7  1611  H 089 0|1           27
  319  1 618         SBR   X3                                                       4  1618  H 099               28
  320  1 622         B     SCHUND                                                   4  1622  B S59               28
  321         *
  322         * NOT FOUND, ENTER IT
  323         *
  324  1 626  NOTFND MCW   83,X2                                                    7  1626  M 083 094           28
  325  1 633         MCW   83,0&X1                                                  7  1633  M 083 0|0           28
  326  1 640         MCW   0&X3,0&X2                                                7  1640  M 0?0 0!0           28
  327  1 647         SBR   X1                                                       4  1647  H 089               28
  328  1 651         SBR   83                                                       4  1651  H 083               28
  329  1 655         BCE   TOOBIG,0&X1,<                                            8  1655  B X12 0|0 <         29
  330  1 663         SW    1&X1                                                     4  1663  , 0|1               29
  331  1 667         B     FOUND                                                    4  1667  B V45               29
  332         *
  333         * BOTTOM OF HASH TABLE
  334         *
  335  1 671  BOTHSH NOP   TOOBIG                                                   4  1671  N X12               29
  336  1 675         MCW   S,BOTHSH  SHOULD THIS BE B INSTEAD OF S?                 7  1675  M !88 W71           29
  337  1 682         MCW   BNDRY,X1                                                 7  1682  M 848 089           29
  338  1 689         B     HLOOP                                                    4  1689  B U94               29
  339         *
  340         * FOUND FLOATING-POINT NUMBER
  341         *
  342  1 693  FPNUM  MZ    *-6,2&X2  SET FLOATING POINT ZONE                        7  1693  Y W93 0!2           30
  343  1 700         B     NUMFIN                                                   4  1700  B W11               30
  344         *
  345         * A BLANK IN THE NUMBER
  346         *
  347  1 704  BLANK  SW    3&X1                                                     4  1704  , 0|3               30
1                          FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20                                PAGE    6
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  348  1 708         B     BBACK                                                    4  1708  B U14               30
  349         *
  350         * TOO BIG
  351         *
  352  1 712  TOOBIG CS    332                                                      4  1712  / 332               30
  353  1 716         CS                                                             1  1716  /                   30
  354  1 717         CC    1                                                        2  1717  F 1                 30
  355  1 719         MCW   ERROR2,270                                               7  1719  M J75 270           31
  356  1 726         W                                                              1  1726  2                   31
  357  1 727         CC    1                                                        2  1727  F 1                 31
  358  1 729         BCE   HALT,CDOVLY,1                                            8  1729  B X42 769 1         31
  359  1 737         RWD   1                                                        5  1737  U %U1 R             31
  360  1 742  HALT   H     HALT                                                     4  1742  . X42               31
  361         *
  362         * GOT TO WITHIN SIX OF A GM WITHOUT SEEING UNDERSCORE.
  363         * MOVE THE REMAINDER OF THE STATEMENT UP.
  364         *
  365  1 746  ENDSTM LCA   0&X3,0&X2                                                7  1746  L 0?0 0!0           31
  366  1 753         SAR   X3                                                       4  1753  Q 099               32
  367  1 757         C     0&X2                                                     4  1757  C 0!0               32
  368  1 761         SAR   X2                                                       4  1761  Q 094               32
  369  1 765         MCW   X3,X1                                                    7  1765  M 099 089           32
  370  1 772         B     LOOP                                                     4  1772  B S10               32
  371         *
  372         * REACHED THE BOTTOM OF STATEMENTS
  373         *
  374  1 776  BOTTOM MCW   SX2B,X1                                                  7  1776  M !91 089           32
  375  1 783         CS    332                                                      4  1783  / 332               32
  376  1 787         CS                                                             1  1787  /                   33
  377  1 788         MCW   CONSTS,223                                               7  1788  M J98 223           33
  378         *
  379         * CONVERT 81-83 TO DECIMAL
  380         *
  381  1 795         S     W2H3                                                     4  1795  S K00               33
  382  1 799         S     W2L3                                                     4  1799  S K02               33
  383  1 803         MZ    83,W2H3-1                                                7  1803  Y 083 J99           33
  384  1 810         MZ    81,W2L3-1                                                7  1810  Y 081 K01           33
  385  1 817         BWZ   *&12,W2L3-1,2                                            8  1817  V Y36 K01 2         33
  386  1 825         A     KA0,W2L3                                                 7  1825  A !52 K02           34
  387  1 832         B     *-18                                                     4  1832  B Y17               34
  388  1 836         BWZ   *&12,W2H3-1,2                                            8  1836  V Y55 J99 2         34
  389  1 844         A     KQ4,W2H3                                                 7  1844  A !54 K00           34
  390  1 851         B     *-18                                                     4  1851  B Y36               34
  391  1 855         A     W2L3-1,W2H3                                              7  1855  A K01 K00           34
  392  1 862         MCW   83,W5C                                                   7  1862  M 083 K08           35
  393  1 869         MCW   W2H3                                                     4  1869  M K00               35
  394  1 873         ZA    W5C                                                      4  1873  ? K08               35
  395  1 877         MZ    *-4,W5C                                                  7  1877  Y Y79 K08           35
  396  1 884         S     ARYSZW,W5C                                               7  1884  S !71 K08           35
  397  1 891         MZ    KB1,W5C                                                  7  1891  Y !92 K08           35
1                          FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20                                PAGE    7
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  398  1 898         A     KP1,W5C                                                  7  1898  A K03 K08           36
  399  1 905         MCW   83,X3                                                    7  1905  M 083 099           36
  400  1 912         MA    NEGARY,X3                                                7  1912  # 163 099           36
  401  1 919         SBR   X3,1&X3                                                  7  1919  H 099 0?1           36
  402  1 926         MCW   ARYTOP,247                                               7  1926  M 194 247           36
  403  1 933         MCW   HYPHEN                                                   4  1933  M K09               36
  404  1 937         MCW   X3                                                       4  1937  M 099               37
  405  1 941         MCW   KB3                                                      4  1941  M K12               37
  406  1 945         MCW   W5                                                       4  1945  M !66               37
  407  1 949         MCW   TO                                                       4  1949  M K16               37
  408  1 953         MCW   W5C                                                      4  1953  M K08               37
  409  1 957         CC    J                                                        2  1957  F J                 37
  410  1 959         W                                                              1  1959  2                   37
  411  1 960         CC    J                                                        2  1960  F J                 38
  412  1 962         BCV   *&5                                                      5  1962  B Z71 @             38
  413  1 967         B     *&3                                                      4  1967  B Z73               38
  414  1 971         CC    1                                                        2  1971  F 1                 38
  415         *
  416         * LOAD NEXT OVERLAY
  417         *
  418  1 973         BSS   SNAPSH,D                                                 5  1973  B 333 D             38
  419  1 978         SBR   TPREAD&6,838                                             7  1978  H 786 838           38
  420  1 985         SBR   CLRBOT                                                   4  1985  H 833               38
  421  1 989         SBR   LOADXX&3,838                                             7  1989  H 796 838           39
  422  1 996         SBR   CLEARL&3,2598                                            7  1996  H 710 N98           39
  423  2 003         LCA   SUBSCR,PHASID                                            7  2003  L K22 110           39
  424  2 010         B     LOADNX                                                   4  2010  B 700               39
  425         *
  426         * DATA
  427         *
  428  2 015         DCW   @ 9@                                                     2  2015                      39
  429         ZONES  EQU   *&1                                                         2016
  430  2 046         DCW   @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@                       31  2046                      40
  431  2 048  W2H    DCW   #2  HIGH-ORDER ZONES FROM TOPCOR                         2  2048                      40
  432  2 050  W2L    DCW   #2  LOW-ORDER ZONES FROM TOPCOR                          2  2050                      40
  433  2 052  KA0    DCW   @A0@  USED TO CONVERT MACHINE ADDRESS TO DECIMAL         2  2052                      40
  434  2 054  KQ4    DCW   @?4@  USED TO CONVERT MACHINE ADDRESS TO DECIMAL         2  2054                      40
  435  2 057  SX2    DCW   #3                                                       3  2057                      41
  436  2 059  W2H2   DCW   #2                                                       2  2059                      41
  437  2 061  W2L2   DCW   #2                                                       2  2061                      41
  438  2 066  W5     DCW   #5                                                       5  2066                      41
  439  2 071  ARYSZW DCW   #5  ARRAY SIZE & 2                                       5  2071                      41
  440  2 076  KP0    DCW   @0000?@                                                  5  2076                      41
  441  2 077  K0     DCW   @0@                                                      1  2077                      41
  442  2 082  K16K   DCW   @16000@                                                  5  2082                      42
  443  2 087  W5B    DCW   #5                                                       5  2087                      42
  444  2 088  S      DCW   @S@                                                      1  2088                      42
  445  2 091  SX2B   DCW   #3                                                       3  2091                      42
  446  2 092  KB1    DCW   #1                                                       1  2092                      42
  447  2 096  SEQCOD DCW   #4  STATEMENT CODE AND SEQUENCE NUMBER                   4  2096                      42
1                          FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20                                PAGE    8
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  448  2 106  PREFIX DCW   #10  ENTIRE STATEMENT PREFIX                            10  2106                      42
  449  2 107  W1     DCW   #1                                                       1  2107                      43
  450  2 116  PUNCT  DCW   @#}@*-&)$,@                                              9  2116                      43
  451  2 120  HASH   DCW   #4                                                       4  2120                      43
  452  2 124  KB4    DCW   #4                                                       4  2124                      43
  453  2 132  SX2C   DCW   #8                                                       8  2132                      43
  454  2 133  NOP    NOP                                                            1  2133  N                   43
  455  2 136  SX2D   DCW   #3                                                       3  2136                      43
  456  2 139  SX2E   DCW   #3                                                       3  2139                      44
  457  2 175  ERROR2 DCW   @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@                  36  2175                      44
  458  2 198  CONSTS DCW   @CONSTANTS LOCATED FROM @                               23  2198                      45
  459  2 200  W2H3   DCW   #2                                                       2  2200                      45
  460  2 202  W2L3   DCW   #2                                                       2  2202                      45
  461  2 203  KP1    DCW   &1                                                       1  2203                      45
  462  2 208  W5C    DCW   #5                                                       5  2208                      45
  463  2 209  HYPHEN DCW   @-@                                                      1  2209                      45
  464  2 212  KB3    DCW   #3                                                       3  2212                      45
  465  2 216  TO     DCW   @ TO @                                                   4  2216                      46
  466  2 222  SUBSCR DCW   @SUBSCR@                                                 6  2222                      46
  467  2 223  GMWM   DCW   @}@                                                      1  2223              GMARK   46
  468                ORG   201                                                                0201
  469    203         DSA   LOADDD    LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM          3  0203  849                 47
  470                EX    BEGINN                                                            B 849               48
  471                END                                                                     / 000 080
1                          FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20                                PAGE    9
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 ARYSIZ    160    ARYSZW   2071    ARYTOP    194    BBACK    1414    BEGINN    849    BLANK    1704    BNDRY     848   
 BOTHSH   1671    BOTTOM   1776    CDOVLY    769    CLEARL    707    CLRBOT    833    CONSTS   2198    DIFF      845   
 ENDSTM   1746    ERROR2   2175    FOUND    1545    FPNUM    1693    GMWM     2223    GOTGM    1343    GOTPUN   1388   
 GOTUN6   1293    GOTUND   1309    HALT     1742    HASH     2120    HLOOP    1494    HYPHEN   2209    K0       2077   
 K16K     2082    KA0      2052    KB1      2092    KB3      2212    KB4      2124    KP0      2076    KP1      2203   
 KQ4      2054    LOADDD    849    LOADNX    700    LOADXX    793    LOOP     1210    NEGAR2    142    NEGAR3    157   
 NEGARY    163    NOARYS   1161    NOP      2133    NOTFND   1626    NUMFIN   1611    PHASID    110    PREFIX   2106   
 PUNCT    2116    S        2088    SAVTOP   1479    SCHPUN   1350    SCHUND   1259    SEQCOD   2096    SNAPSH    333   
 SUBSCR   2222    SX2      2057    SX2B     2091    SX2C     2132    SX2D     2136    SX2E     2139    TO       2216   
 TOOBIG   1712    TOPCOD    840    TOPCOR    688    TPREAD    780    W1       2107    W2H      2048    W2H2     2059   
 W2H3     2200    W2L      2050    W2L2     2061    W2L3     2202    W5       2066    W5B      2087    W5C      2208   
 X1         89    X2         94    X3         99    ZONES    2016