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 -- STATEMENT NUMBERS PHASE -- 22                              PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   FORTRAN COMPILER -- STATEMENT NUMBERS PHASE -- 22
  102                CTL   6611
  103         *
  104         * ALL STATEMENT NUMBERS THAT APPEAR IN THE PROGRAM ARE REDUCED
  105         * TO A UNIQUE THREE-CHARACTER REPRESENTATION.  STATEMENT NUMBERS
  106         * WITHIN THE STATEMENT ARE MOVED TO THE BEGINNING OF EACH SOURCE-
  107         * PROGRAM STATEMENT (RIGHTMOST END OF STATEMENT IN STORAGE) THAT
  108         * CONTAINS THOSE ELEMENTS.
  109         *
  110         * ON ENTRY, X1 IS THE TOP OF THE PREFIX OF THE TOP STATEMENT,
  111         * X2 IS ONE BELOW THE BOTTOM STATEMENT, AND 81-83 IS ONE BELOW
  112         * THE BOTTOM OF THE NUMBER TABLE.
  113         *
  114         X1     EQU   89                                                          0089
  115         X2     EQU   94                                                          0094
  116         X3     EQU   99                                                          0099
  117         *
  118         * STUFF IN THE RESIDENT AREA
  119         *
  120         PHASID EQU   110  PHASE ID, FOR SNAPSHOT DUMPS                           0110
  121         GLOBER EQU   184  GLOBAL ERROR FLAG -- WM MEANS ERROR                    0184
  122         SNAPSH EQU   333  CORE DUMP SNAPSHOT                                     0333
  123         LOADNX EQU   700  LOAD NEXT OVERLAY                                      0700
  124         CLEARL EQU   707  CS AT START OF OVERLAY LOADER                          0707
  125         LOADXX EQU   793  EXIT FROM OVERLAY LOADER                               0793
  126         *
  127                ORG   838                                                                0838
  128         LOADDD EQU   *&1          LOAD ADDRESS                                   0838
  129    838  BEGINN CS    0&X2   CLEAR BELOW BOTTOM OF STATEMENTS                  4  0838  / 0!0                4
  130    842         MCW   83,X2  BELOW NUMBER TABLE                                7  0842  M 083 094            4
  131    849         SW    GM                                                       4  0849  , Y83                4
  132    853         LCA   GM,0&X2                                                  7  0853  L Y83 0!0            4
  133    860         SBR   X2                                                       4  0860  H 094                4
  134    864  LOOP   BCE   DONE,0&X1,                                               8  0864  B Y52 0|0            4
  135    872         LCA   0&X1,PREFIX                                              7  0872  L 0|0 Z62            5
  136    879         SAR   X1                                                       4  0879  Q 089                5
  137    883         CW    1&X1                                                     4  0883  ) 0|1                5
  138    887         SW    PREFIX-3                                                 4  0887  , Z59                5
  139    891         LCA   PREFIX,0&X2  MOVE UP ONLY SEQ NUMBER AND CODE            7  0891  L Z62 0!0            5
  140    898         SBR   X2                                                       4  0898  H 094                5
  141    902         CW    1&X2                                                     4  0902  ) 0!1                5
  142    906         BWZ   LBLDEF,PREFIX-4,2                                        8  0906  V |03 Z58 2          6
  143    914  NOLABL LCA   GM,0&X2                                                  7  0914  L Y83 0!0            6
  144    921         SBR   X2                                                       4  0921  H 094                6
  145    925         MCW   PREFIX-3,*&8                                             7  0925  M Z59 939            6
  146    932         BCE   LBLREF,STMTS,0  DOES STATEMENT HAVE LABEL REFS?          8  0932  B |26 Z73 0          6
  147    940         CHAIN 10                                                                            MACRO
1                          FORTRAN COMPILER -- STATEMENT NUMBERS PHASE -- 22                              PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148                BCE                                                            1  0940  B           GEN      6
  149                BCE                                                            1  0941  B           GEN      6
  150                BCE                                                            1  0942  B           GEN      7
  151                BCE                                                            1  0943  B           GEN      7
  152                BCE                                                            1  0944  B           GEN      7
  153                BCE                                                            1  0945  B           GEN      7
  154                BCE                                                            1  0946  B           GEN      7
  155                BCE                                                            1  0947  B           GEN      7
  156                BCE                                                            1  0948  B           GEN      7
  157                BCE                                                            1  0949  B           GEN      8
  158    950         BCE   ENDSTM,PREFIX-3,/                                        8  0950  B 981 Z59 /          8
  159    958  MOVEUP LCA   0&X1,0&X2  MOVE (REST OF) STATEMENT UP                   7  0958  L 0|0 0!0            8
  160    965         SAR   X1                                                       4  0965  Q 089                8
  161    969         C     0&X2                                                     4  0969  C 0!0                8
  162    973         SAR   X2                                                       4  0973  Q 094                8
  163    977         B     LOOP                                                     4  0977  B 864                8
  164         *
  165         * END STATEMENT
  166         *
  167    981  ENDSTM C     0&X1                                                     4  0981  C 0|0                9
  168    985         SAR   X1                                                       4  0985  Q 089                9
  169    989         MCM   4&X2                                                     4  0989  P 0!4                9
  170    993         MN                                                             1  0993  D                    9
  171    994         MN                                                             1  0994  D                    9
  172    995         SAR   X2                                                       4  0995  Q 094                9
  173    999         B     LOOP                                                     4  0999  B 864                9
  174         *
  175         * GOT A STATEMENT LABEL DEFINITION
  176         *
  177  1 003  LBLDEF LCA   PREFIX-4,LABEL                                           7  1003  L Z58 Z79           10
  178  1 010         SBR   X3                                                       4  1010  H 099               10
  179  1 014         SW    2&X3                                                     4  1014  , 0?2               10
  180  1 018         B     CONV50                                                   4  1018  B V63               10
  181  1 022         B     NOLABL                                                   4  1022  B 914               10
  182         *
  183         * STATEMENT IS ONE THAT CONTAINS LABEL REFERENCES
  184         *
  185  1 026  LBLREF BCE   IF,PREFIX-3,E    IF STATEMENT                            8  1026  B T62 Z59 E         10
  186  1 034         BCE   DO,PREFIX-3,D    DO STATEMENT                            8  1034  B S76 Z59 D         10
  187  1 042         BCE   TAPE,PREFIX-3,5  READ INPUT TAPE STATEMENT               8  1042  B /30 Z59 5         11
  188  1 050         BCE   TAPE,PREFIX-3,6  WRITE OUTPUT TAPE STATEMENT             8  1050  B /30 Z59 6         11
  189  1 058         BCE   CGO,PREFIX-3,T   COMPUTED GO TO STATEMENT                8  1058  B |90 Z59 T         11
  190  1 066         BCE   IFSS,PREFIX-3,W  IF ( SENSE SWITCH ... )                 8  1066  B /93 Z59 W         11
  191  1 074         BCE   IFSS,PREFIX-3,K  IF ( SENSE LIGHT ... )                  8  1074  B /93 Z59 K         12
  192  1 082         B     SAVLAB  PUNCH, PRINT, READ, GOTO                         4  1082  B U73               12
  193  1 086         B     MOVEUP                                                   4  1086  B 958               12
  194         *
  195         * COMPUTED GO TO STATEMENT
  196         *
  197  1 090  CGO    B     SAVLAB                                                   4  1090  B U73               12
1                          FORTRAN COMPILER -- STATEMENT NUMBERS PHASE -- 22                              PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  198  1 094         BCE   CGOFIN,0&X1,)                                            8  1094  B /18 0|0 )         12
  199  1 102         BCE   SYNTAX,0&X1,}                                            8  1102  B X55 0|0 } GMARK   12
  200  1 110         SBR   X1                                                       4  1110  H 089               13
  201  1 114         B     CGO                                                      4  1114  B |90               13
  202  1 118  CGOFIN MN    0&X1                                                     4  1118  D 0|0               13
  203  1 122         SAR   X1                                                       4  1122  Q 089               13
  204  1 126         B     MOVEUP                                                   4  1126  B 958               13
  205         *
  206         * READ INPUT TAPE OR WRITE OUTPUT TAPE STATEMENT
  207         *
  208  1 130  TAPE   MCW   X1,STMFIN&3                                              7  1130  M 089 /77           13
  209  1 137  GETCOM BCE   GOTCOM,0&X1,,  GET                                       8  1137  B /61 0|0 ,         13
  210  1 145         BCE   SYNTAX,0&X1,}    DOWN                                    8  1145  B X55 0|0 } GMARK   14
  211  1 153         SBR   X1                 TO                                    4  1153  H 089               14
  212  1 157         B     GETCOM               COMMA                               4  1157  B /37               14
  213  1 161  GOTCOM SW    1&X1                                                     4  1161  , 0|1               14
  214  1 165         MN                                                             1  1165  D                   14
  215  1 166         SAR   X1                                                       4  1166  Q 089               14
  216  1 170         B     SAVLAB                                                   4  1170  B U73               14
  217         *
  218  1 174  STMFIN LCA   0,0&X2                                                   7  1174  L 000 0!0           15
  219  1 181         SBR   X2                                                       4  1181  H 094               15
  220  1 185         CW    1&X2                                                     4  1185  ) 0!1               15
  221  1 189         B     MOVEUP                                                   4  1189  B 958               15
  222         *
  223         * IF ( SENSE SWITCH ... ) OR IF ( SENSE LIGHT ... ) STATEMENT
  224         *
  225  1 193  IFSS   MCW   X1,STMFIN&3                                              7  1193  M 089 /77           15
  226  1 200  GETRP  BCE   GOTRP,0&X1,)  GET                                        8  1200  B S24 0|0 )         15
  227  1 208         BCE   SYNTAX,0&X1,}   DOWN                                     8  1208  B X55 0|0 } GMARK   16
  228  1 216         SBR   X1                TO RIGHT                               4  1216  H 089               16
  229  1 220         B     GETRP               PARENTHESIS                          4  1220  B S00               16
  230  1 224  GOTRP  SW    1&X1                                                     4  1224  , 0|1               16
  231  1 228         MN                                                             1  1228  D                   16
  232  1 229         SAR   X1                                                       4  1229  Q 089               16
  233  1 233         B     SAVLAB                                                   4  1233  B U73               16
  234  1 237         MN    0&X1                                                     4  1237  D 0|0               17
  235  1 241         SAR   X1                                                       4  1241  Q 089               17
  236  1 245         BCE   SYNTAX,0&X1,}                                            8  1245  B X55 0|0 } GMARK   17
  237  1 253         B     SAVLAB                                                   4  1253  B U73               17
  238  1 257  SETCOM LCA   COMMA,0&X2                                               7  1257  L Z80 0!0           17
  239  1 264         SBR   X2                                                       4  1264  H 094               17
  240  1 268         CW    1&X2                                                     4  1268  ) 0!1               17
  241  1 272         B     STMFIN                                                   4  1272  B /74               18
  242         *
  243         * DO STATEMENT
  244         *
  245  1 276  DO     MCW   X1,X3                                                    7  1276  M 089 099           18
  246  1 283  GETEQ  BCE   GOTEQ,0&X3,#  FIND THE                                   8  1283  B S99 0?0 #         18
  247  1 291         SBR   X3              EQUAL SIGN                               4  1291  H 099               18
1                          FORTRAN COMPILER -- STATEMENT NUMBERS PHASE -- 22                              PAGE    4
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  248  1 295         B     GETEQ                                                    4  1295  B S83               18
  249  1 299  GOTEQ  MCW   3&X3,CH2                                                 7  1299  M 0?3 Z81           18
  250  1 306         MCW   COMMA,3&X3                                               7  1306  M Z80 0?3           19
  251  1 313         SBR   W3,3&X3                                                  7  1313  H Z84 0?3           19
  252  1 320         B     SAVLAB                                                   4  1320  B U73               19
  253  1 324         C     W3,X1                                                    7  1324  C Z84 089           19
  254  1 331         BU    SYNTAX                                                   5  1331  B X55 /             19
  255  1 336         MCW   CH2,0&X1                                                 7  1336  M Z81 0|0           19
  256  1 343         LCA   COMMA,0&X2                                               7  1343  L Z80 0!0           20
  257  1 350         SBR   X2                                                       4  1350  H 094               20
  258  1 354         CW    1&X2                                                     4  1354  ) 0!1               20
  259  1 358         B     MOVEUP                                                   4  1358  B 958               20
  260         *
  261         * IF STATEMENT
  262         *
  263  1 362  IF     MCW   X1,STMFIN&3                                              7  1362  M 089 /77           20
  264  1 369  IFLOOP BCE   IFRP,0&X1,)    GET DOWN TO RIGHT PARENTHESIS             8  1369  B T93 0|0 )         20
  265  1 377         BCE   SYNTAX,0&X1,}                                            8  1377  B X55 0|0 } GMARK   21
  266  1 385         SBR   X1                                                       4  1385  H 089               21
  267  1 389         B     IFLOOP                                                   4  1389  B T69               21
  268  1 393  IFRP   MN    0&X1                                                     4  1393  D 0|0               21
  269  1 397         SAR   X1                                                       4  1397  Q 089               21
  270  1 401         BWZ   *&5,0&X1,2  FOLLOWED BY A DIGIT                          8  1401  V U13 0|0 2         21
  271  1 409         B     IFLOOP                                                   4  1409  B T69               21
  272  1 413         BCE   IFLOOP,0&X1,@                                            8  1413  B T69 0|0 @         22
  273  1 421         SW    1&X1                                                     4  1421  , 0|1               22
  274  1 425         B     SAVLAB                                                   4  1425  B U73               22
  275  1 429         MN    0&X1                                                     4  1429  D 0|0               22
  276  1 433         SAR   X1                                                       4  1433  Q 089               22
  277  1 437         BCE   SYNTAX,0&X1,}                                            8  1437  B X55 0|0 } GMARK   22
  278  1 445         B     SAVLAB                                                   4  1445  B U73               22
  279  1 449         MN    0&X1                                                     4  1449  D 0|0               23
  280  1 453         SAR   X1                                                       4  1453  Q 089               23
  281  1 457         BCE   SYNTAX,0&X1,}                                            8  1457  B X55 0|0 } GMARK   23
  282  1 465         B     SAVLAB                                                   4  1465  B U73               23
  283  1 469         B     SETCOM                                                   4  1469  B S57               23
  284         *
  285         * MOVE THE LABEL TO THE LABEL WORK AREA
  286         *
  287  1 473  SAVLAB SBR   SAVLBX&3                                                 4  1473  H V62               23
  288  1 477         MCW   X1,LABMOV&3                                              7  1477  M 089 V47           23
  289  1 484         BWZ   *&5,0&X1,2                                               8  1484  V U96 0|0 2         24
  290  1 492         B     SYNTX2                                                   4  1492  B Y01               24
  291  1 496  SAVLL  MN    0&X1                                                     4  1496  D 0|0               24
  292  1 500         SAR   X1                                                       4  1500  Q 089               24
  293  1 504         BWZ   SAVLL,0&X1,2                                             8  1504  V U96 0|0 2         24
  294  1 512         BCE   ENDLAB,0&X1,,                                            8  1512  B V40 0|0 ,         24
  295  1 520         BCE   ENDLAB,0&X1,}                                            8  1520  B V40 0|0 } GMARK   25
  296  1 528         BCE   ENDLAB,0&X1,)                                            8  1528  B V40 0|0 )         25
  297  1 536         B     SYNTX2                                                   4  1536  B Y01               25
1                          FORTRAN COMPILER -- STATEMENT NUMBERS PHASE -- 22                              PAGE    5
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  298  1 540  ENDLAB SW    1&X1                                                     4  1540  , 0|1               25
  299  1 544  LABMOV LCA   0,LABEL                                                  7  1544  L 000 Z79           25
  300  1 551         CW    1&X1                                                     4  1551  ) 0|1               25
  301  1 555         B     CONV50                                                   4  1555  B V63               25
  302  1 559  SAVLBX B     0                                                        4  1559  B 000               26
  303         *
  304         * CONVERT LABELS TO BASE 50
  305         *
  306  1 563  CONV50 SBR   CONV5X&3                                                 4  1563  H X54               26
  307  1 567         LCA   KZ6,LBLWRK                                               7  1567  L Z52 Y90           26
  308  1 574         C     KZ6,LABEL                                                7  1574  C Z52 Z79           26
  309  1 581         BU    *&5                                                      5  1581  B V90 /             26
  310  1 586         B     ZLAB  LABEL IS ZERO                                      4  1586  B W24               26
  311  1 590         SBR   X3,LABEL&1                                               7  1590  H 099 Z80           26
  312  1 597  ZTRIM  MN    0&X3       TRIM                                          4  1597  D 0?0               27
  313  1 601         SAR   X3           LEADING ZEROS                               4  1601  Q 099               27
  314  1 605         BCE   ZTRIM,0&X3,0   FROM LABEL                                8  1605  B V97 0?0 0         27
  315  1 613         MCW   0&X3,LBLWRK  NONZERO DIGITS OF LABEL                     7  1613  M 0?0 Y90           27
  316  1 620         MCW   K1              AND 1                                    4  1620  M Z85               27
  317  1 624  ZLAB   SW    LBLWRK-1                                                 4  1624  , Y89               27
  318  1 628         CW                                                             1  1628  )                   27
  319  1 629         SW                                                             1  1629  ,                   28
  320  1 630         CW                                                             1  1630  )                   28
  321  1 631         SW                                                             1  1631  ,                   28
  322  1 632         S     K5050,LBLWRK                                             7  1632  S Z89 Y90           28
  323  1 639         S                                                              1  1639  S                   28
  324  1 640         BM    *&8,LBLWRK                                               8  1640  V W55 Y90 K         28
  325  1 648         A     K1,LBLWRK-5                                              7  1648  A Z85 Y85           28
  326  1 655         BM    *&8,LBLWRK-2                                             8  1655  V W70 Y88 K         29
  327  1 663         A     K2,LBLWRK-5                                              7  1663  A Z90 Y85           29
  328  1 670         MZ    X1TAGS,LBLWRK                                            7  1670  Y Z96 Y90           29
  329  1 677         CHAIN 5                                                                             MACRO
  330                MZ                                                             1  1677  Y           GEN     29
  331                MZ                                                             1  1678  Y           GEN     29
  332                MZ                                                             1  1679  Y           GEN     29
  333                MZ                                                             1  1680  Y           GEN     29
  334                MZ                                                             1  1681  Y           GEN     30
  335  1 682         MCW   X1,SX1                                                   7  1682  M 089 Y94           30
  336  1 689         MCW   ACHARS,X1                                                7  1689  M Z99 089           30
  337  1 696         MCW   ALBLWK,X3                                                7  1696  M !02 099           30
  338  1 703  CONV5L MCW   0&X3,*&8                                                 7  1703  M 0?0 X17           30
  339  1 710         SAR   X3                                                       4  1710  Q 099               30
  340  1 714         MCW   0-0,CH                                                   7  1714  M 000 Y91           31
  341  1 721         LCA   CH,0&X2                                                  7  1721  L Y91 0!0           31
  342  1 728         SBR   X2                                                       4  1728  H 094               31
  343  1 732         CW    1&X2                                                     4  1732  ) 0!1               31
  344  1 736         BWZ   CONV5L,0&X3,2                                            8  1736  V X03 0?0 2         31
  345  1 744         MCW   SX1,X1                                                   7  1744  M Y94 089           31
  346  1 751  CONV5X B     0                                                        4  1751  B 000               32
  347         *
1                          FORTRAN COMPILER -- STATEMENT NUMBERS PHASE -- 22                              PAGE    6
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  348         * STATEMENT NUMBER SYNTAX ERROR
  349         *
  350  1 755  SYNTAX CS    332                                                      4  1755  / 332               32
  351  1 759         CS                                                             1  1759  /                   32
  352  1 760         SW    GLOBER                                                   4  1760  , 184               32
  353  1 764         MN    PREFIX,249                                               7  1764  D Z62 249           32
  354  1 771         MN                                                             1  1771  D                   32
  355  1 772         MN                                                             1  1772  D                   32
  356  1 773         MCW   ERR13                                                    4  1773  M !48               33
  357  1 777         W                                                              1  1777  2                   33
  358  1 778         BCV   *&5                                                      5  1778  B X87 @             33
  359  1 783         B     *&3                                                      4  1783  B X89               33
  360  1 787         CC    1                                                        2  1787  F 1                 33
  361  1 789         BW    MORE,FLAG                                                8  1789  V Y09 Y95 1         33
  362  1 797         B     GETUP                                                    4  1797  B Y30               33
  363  1 801  SYNTX2 SW    FLAG                                                     4  1801  , Y95               34
  364  1 805         B     SYNTAX                                                   4  1805  B X55               34
  365  1 809  MORE   MCM   1&X2                                                     4  1809  P 0!1               34
  366  1 813         MN                                                             1  1813  D                   34
  367  1 814         SAR   X2                                                       4  1814  Q 094               34
  368  1 818         BCE   MORE,0&X2,|                                              8  1818  B Y09 0!0 |         34
  369  1 826         CW    FLAG                                                     4  1826  ) Y95               34
  370  1 830  GETUP  MCM   4&X2  MOVE X2 UP TO GMWM                                 4  1830  P 0!4               35
  371  1 834         MN                                                             1  1834  D                   35
  372  1 835         MN                                                             1  1835  D                   35
  373  1 836         SAR   X2                                                       4  1836  Q 094               35
  374  1 840         C     0&X1  GET X1 DOWN TO WM                                  4  1840  C 0|0               35
  375  1 844         SAR   X1                                                       4  1844  Q 089               35
  376  1 848         B     LOOP                                                     4  1848  B 864               35
  377         *
  378         * REACHED BOTTOM OF STATEMENTS
  379         *
  380  1 852  DONE   BSS   SNAPSH,C                                                 5  1852  B 333 C             36
  381  1 857         SBR   LOADXX&3,980                                             7  1857  H 796 980           36
  382  1 864         SBR   CLEARL&3,1599                                            7  1864  H 710 V99           36
  383  1 871         LCA   FORMT1,PHASID                                            7  1871  L !58 110           36
  384  1 878         B     LOADNX                                                   4  1878  B 700               36
  385         *
  386         * DONE
  387         *
  388  1 882         DCW   #1                                                       1  1882                      36
  389  1 883  GM     DC    @}@                                                      1  1883              GMARK   36
  390  1 884  DOT    DC    @.@                                                      1  1884                      36
  391  1 890  LBLWRK DCW   #6                                                       6  1890                      36
  392  1 891  CH     DCW   #1                                                       1  1891                      37
  393  1 894  SX1    DCW   #3                                                       3  1894                      37
  394  1 895  FLAG   DC    #1                                                       1  1895                      37
  395         CHARS  EQU   *&1                                                         1896
  396  1 941         DC    @.")&$*-%#@?ABCDEFGHI!JKLMNOPQR_/STUVWXYZ012345@        46  1941                      39
  397  1 946         DC    @6789.@                                                  5  1946                      39
1                          FORTRAN COMPILER -- STATEMENT NUMBERS PHASE -- 22                              PAGE    7
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  398  1 952  KZ6    DCW   @000000@                                                 6  1952                      39
  399  1 962  PREFIX DCW   #10                                                     10  1962                      39
  400  1 973  STMTS  DCW   @WT65UPLDEGK@  CODES FOR STATEMENTS HAVING LABELS       11  1973                      39
  401  1 979  LABEL  DCW   #6                                                       6  1979                      40
  402  1 980  COMMA  DCW   @,@                                                      1  1980                      40
  403  1 981  CH2    DCW   #1                                                       1  1981                      40
  404  1 984  W3     DCW   #3                                                       3  1984                      40
  405  1 985  K1     DCW   1                                                        1  1985                      40
  406  1 989  K5050  DCW   5050                                                     4  1989                      40
  407  1 990  K2     DCW   2                                                        1  1990                      40
  408  1 996  X1TAGS DCW   @Z Z Z @                                                 6  1996                      41
  409  1 999  ACHARS DSA   CHARS                                                    3  1999  Y96                 41
  410  2 002  ALBLWK DSA   LBLWRK                                                   3  2002  Y90                 41
  411  2 048  ERR13  DCW   @ERROR 13 - STATEMENT NUMBER SYNTAX, STATEMENT @        46  2048                      43
  412  2 058  FORMT1 DCW   @TAMROF ONE@                                            10  2058                      43
  413  2 059  GMWM   DCW   @}@                                                      1  2059              GMARK   43
  414                ORG   201                                                                0201
  415    203         DSA   LOADDD    LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM          3  0203  838                 44
  416                EX    BEGINN                                                            B 838               45
  417                END                                                                     / 000 080
1                          FORTRAN COMPILER -- STATEMENT NUMBERS PHASE -- 22                              PAGE    8
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 ACHARS   1999    ALBLWK   2002    BEGINN    838    CGO      1090    CGOFIN   1118    CH       1891    CH2      1981   
 CHARS    1896    CLEARL    707    COMMA    1980    CONV50   1563    CONV5L   1703    CONV5X   1751    DO       1276   
 DONE     1852    DOT      1884    ENDLAB   1540    ENDSTM    981    ERR13    2048    FLAG     1895    FORMT1   2058   
 GETCOM   1137    GETEQ    1283    GETRP    1200    GETUP    1830    GLOBER    184    GM       1883    GMWM     2059   
 GOTCOM   1161    GOTEQ    1299    GOTRP    1224    IF       1362    IFLOOP   1369    IFRP     1393    IFSS     1193   
 K1       1985    K2       1990    K5050    1989    KZ6      1952    LABEL    1979    LABMOV   1544    LBLDEF   1003   
 LBLREF   1026    LBLWRK   1890    LOADDD    838    LOADNX    700    LOADXX    793    LOOP      864    MORE     1809   
 MOVEUP    958    NOLABL    914    PHASID    110    PREFIX   1962    SAVLAB   1473    SAVLBX   1559    SAVLL    1496   
 SETCOM   1257    SNAPSH    333    STMFIN   1174    STMTS    1973    SX1      1894    SYNTAX   1755    SYNTX2   1801   
 TAPE     1130    W3       1984    X1         89    X1TAGS   1996    X2         94    X3         99    ZLAB     1624   
 ZTRIM    1597