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 -- SCANNER -- PHASE 03                                        PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   FORTRAN COMPILER -- SCANNER -- PHASE 03
  102         *
  103         * SCANNER PHASE: INSERT STATEMENT NUMBERS (NOT LABELS)
  104         * CLASSIFY STATEMENTS (FORMAT STATEMENTS ALREADY CLASSIFIED)
  105         *
  106                CTL   6611
  107         *
  108         X1     EQU   89                                                          0089
  109         X2     EQU   94                                                          0094
  110         X3     EQU   99                                                          0099
  111         *
  112         * STUFF IN THE RESIDENT AREA
  113         *
  114         PHASID EQU   110  PHASE ID, FOR SNAPSHOT DUMPS                           0110
  115         SNAPSH EQU   333  CORE DUMP SNAPSHOT ROUTINE                             0333
  116         *
  117         PWORD  EQU   685  THE WORD PARAM                                         0685
  118         TOPCOR EQU   688  TOP CORE ADDRESS FROM PARAM CARD                       0688
  119         IMOD   EQU   690  INTEGER MODULUS -- NUMBER OF DIGITS                    0690
  120         MANTIS EQU   692  FLOATING POINT MANTISSA DIGITS                         0692
  121         CONDNS EQU   693  P FOR CONDENSED DECK                                   0693
  122         SNAPSW EQU   694  S FOR SNAPSHOT                                         0694
  123         C1410  EQU   695  T IF RUN ON 1410 IN 1401 COMPATIBILITY MODE            0695
  124         FMTSW  EQU   696  X FOR NO FORMAT, L FOR LIMITED FORMAT                  0696
  125         *                BLANK FOR ORDINARY, A FOR A CONVERSION
  126         PARAM  EQU   699  PARAMETER CARD IS STORED HERE                          0699
  127         *
  128         LOADNX EQU   700  LOAD NEXT OVERLAY                                      0700
  129         CLEARL EQU   707  CLEAR INSTRUCTION IN LOADNX                            0707
  130         LOADEX EQU   793  BRANCH THAT EXITS LOADNX                               0793
  131         *
  132         * SIGNALS USED WHEN LOADING FROM CARDS
  133         *
  134                ORG   101                                                                0101
  135                DCW   @:@  COLON 5-8                                           1  0101                       4
  136                ORG   101                                                                0101
  137                DCW   @SCANNER@                                                7  0107                       5
  138         *
  139                ORG   838                                                                0838
  140         LOADDD EQU   *&1          LOAD ADDRESS                                   0838
  141         *
  142         * START HERE.
  143         * CHECK MODULUS AND MANTISSA
  144         *
  145    838  BEGINN MCW   TOPCOR,CORCHK&6                                          7  0838  M 688 985            6
  146    845         SW    IMOD-1,MANTIS-1                                          7  0845  , 689 691            6
  147    852         BCE   IDEF,IMOD,   INTEGER MODULUS BLANK ON PARAMETER CARD     8  0852  B 864 690            6
1                          FORTRAN COMPILER -- SCANNER -- PHASE 03                                        PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148    860         B     ISPEC        NO, USE SPECIFIED MODULUS                   4  0860  B 871                6
  149    864  IDEF   MCW   INTDEF,IMOD  YES, USE DEFAULT MODULUS                    7  0864  M M42 690            6
  150    871  ISPEC  BCE   FDEF,MANTIS,  FLOATING POINT MANTISSA BLANK?             8  0871  B 883 692            7
  151    879         B     FSPEC        NO, USE SPECIFIED MANTISSA                  4  0879  B 890                7
  152    883  FDEF   MCW   FLTDEF,MANTIS  YES, USE DEFAULT MANTISSA                 7  0883  M M44 692            7
  153    890  FSPEC  C     IMOD,INTMIN  COMPARE MODULUS TO MINIMUM                  7  0890  C 690 M46            7
  154    897         BH    BADMOD                                                   5  0897  B U69 U              7
  155    902         C     IMOD,DIGMAX  CHECK INTEGER MODULUS                       7  0902  C 690 M48            7
  156    909         BL    BADMOD                                                   5  0909  B U69 T              8
  157    914  MANCHK C     MANTIS,DIGMAX  CHECK FLOATING POINT MANTISSA             7  0914  C 692 M48            8
  158    921         BL    BADMAN                                                   5  0921  B U95 T              8
  159    926         C     MANTIS,FLTMIN                                            7  0926  C 692 M50            8
  160    933         BH    BADMAN                                                   5  0933  B U95 U              8
  161         *
  162         * REPORT MODULUS AND MANTISSA
  163         *
  164    938  BADRET CS    332                                                      4  0938  / 332                8
  165    942         CS                                                             1  0942  /                    8
  166    943         MCW   MODMSG,210                                               7  0943  M M60 210            9
  167    950         MCS   IMOD,213                                                 7  0950  Z 690 213            9
  168    957         W                                                              1  0957  2                    9
  169    958         CS    299                                                      4  0958  / 299                9
  170    962         MCW   MANMSG,211                                               7  0962  M M71 211            9
  171    969         MCS   MANTIS,214                                               7  0969  Z 692 214            9
  172    976         W                                                              1  0976  2                    9
  173    977         CC    J                                                        2  0977  F J                 10
  174         *
  175    979  CORCHK BCE   CORCHK,0-0,0  TOPCOR STORED INTO B                       8  0979  B 979 000 0         10
  176    987         B                                                              1  0987  B                   10
  177    988         SBR   MVBACK&6    STORES TOPCOR-2                              4  0988  H T24               10
  178    992         SBR   MVSTMT&3                                                 4  0992  H 999               10
  179    996  MVSTMT LCA   0-0,STMTSV  COPY STATEMENT TO WORK AREA                  7  0996  L 000 L97           10
  180  1 003         SAR   MVSTMT&3    READY FOR NEXT STATEMENT                     4  1003  Q 999               10
  181  1 007         MCW   STMTNO,STMTSV  INSERT STATEMENT NUMBER INTO STMT         7  1007  M M00 L97           11
  182  1 014         A     K1,STMTNO        AND BUMP IT                             7  1014  A M01 M00           11
  183  1 021         BCE   CLASS2,STMTYP,F  FORMAT STMT IS ALREADY CLASSIFIED       8  1021  B T14 L94 F         11
  184         *
  185         * SKIP OVER THE LABEL IF ANY
  186         *
  187  1 029         SBR   CHKLBL&6,STMTST                                          7  1029  H |49 L93           11
  188  1 036         SBR   STMTPT,STMTST-1  INITIALIZE STATEMENT POINTER            7  1036  H M04 L92           11
  189  1 043  CHKLBL BCE   STSTMT,STMTST,:  FOUND THE START OF THE STATEMENT?       8  1043  B |75 L93 :         12
  190  1 051         SBR   CHKLBL&6                                                 4  1051  H |49               12
  191  1 055         SBR   CHKLB2&6                                                 4  1055  H |65               12
  192  1 059  CHKLB2 BCE   CHKLB2,0,  DECREASE B REGISTER                           8  1059  B |59 000           12
  193  1 067         SBR   STMTPT     SET STATEMENT POINTER                         4  1067  H M04               12
  194  1 071         B     CHKLBL                                                   4  1071  B |43               12
  195         *
  196         * START PROCESSING THE STATEMENT PROPER.
  197         * CHECK FOR ASSIGNMENT STATEMENT.
1                          FORTRAN COMPILER -- SCANNER -- PHASE 03                                        PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  198         *
  199  1 075  STSTMT MCW   STMTPT,ENDCHK&6                                          7  1075  M M04 |95           12
  200  1 082         MCW   STMTPT,EQTEST&6                                          7  1082  M M04 /08           13
  201  1 089  ENDCHK BCE   CKWORD,0,}   END OF STATEMENT?                           8  1089  B /73 000 } GMARK   13
  202  1 097         B                                                              1  1097  B                   13
  203  1 098         SBR   ENDCHK&6                                                 4  1098  H |95               13
  204  1 102  EQTEST BCE   EQ,0-0,#                                                 8  1102  B /19 000 #         13
  205  1 110         B                                                              1  1110  B                   13
  206  1 111         SBR   EQTEST&6                                                 4  1111  H /08               13
  207  1 115         B     ENDCHK                                                   4  1115  B |89               14
  208         *
  209         * ASSIGNMENT STATEMENT.
  210         *
  211  1 119  EQ     SW    ENDCHK&4                                                 4  1119  , |93               14
  212  1 123         MCW   ENDCHK&6,SVCHAR&3                                        7  1123  M |95 /37           14
  213  1 130         CW    ENDCHK&4                                                 4  1130  ) |93               14
  214  1 134  SVCHAR MCW   0-0,CHAR                                                 7  1134  M 000 M05           14
  215  1 141         SAR   SVCHAR&3                                                 4  1141  Q /37               14
  216  1 145         BCE   LPAREN,CHAR,%                                            8  1145  B T49 M05 %         14
  217  1 153         BCE   LPAREN,CHAR,}                                            8  1153  B T49 M05 } GMARK   15
  218  1 161         BCE   CKWORD,CHAR,,                                            8  1161  B /73 M05 ,         15
  219  1 169         B     SVCHAR                                                   4  1169  B /34               15
  220         *
  221         * CHECK KEYWORD
  222         *
  223  1 173  CKWORD MCW   STMTPT,*&4                                               7  1173  M M04 /83           15
  224  1 180         MCW   0-0,WORD                                                 7  1180  M 000 M15           15
  225  1 187         SW    WORD                                                     4  1187  , M15               15
  226  1 191         SW                                                             1  1191  ,                   15
  227  1 192         MCW   WORD,*&8                                                 7  1192  M M15 S06           16
  228  1 199         BCE   BFCS1,KBFCS,  IS 1ST LETTER B, F, C OR S?                8  1199  B S37 M24           16
  229  1 207         CHAIN 3                                                                             MACRO
  230                BCE                                                            1  1207  B           GEN     16
  231                BCE                                                            1  1208  B           GEN     16
  232                BCE                                                            1  1209  B           GEN     16
  233  1 210         MCW   WORD-1,*&8                                               7  1210  M M14 S24           16
  234  1 217  TQINUA BCE   QINUA2,KQINUA,  IS 2ND LETTER Q, I, N, U OR A?           8  1217  B S71 M20           16
  235  1 225         CHAIN 4                                                                             MACRO
  236                BCE                                                            1  1225  B           GEN     17
  237                BCE                                                            1  1226  B           GEN     17
  238                BCE                                                            1  1227  B           GEN     17
  239                BCE                                                            1  1228  B           GEN     17
  240  1 229         SW    STMTYP                                                   4  1229  , L94               17
  241  1 233         B     OTHER                                                    4  1233  B U22               17
  242         *
  243         * FIRST LETTER IS B(ACKSPACE), F(ORMAT), C(ONTINUE),
  244         * S(TOP) OR S(ENSELIGHT)
  245         *
  246  1 237  BFCS1  C     WORD-2,KNSE  IS WORD [BFCS].NSE?                         7  1237  C M13 M74           17
  247  1 244         BE    SENSE                                                    5  1244  B S60 S             18
1                          FORTRAN COMPILER -- SCANNER -- PHASE 03                                        PAGE    4
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  248  1 249         MCW   WORD,STMTYP  USE FIRST LETTER (BFCS) FOR STMT TYPE       7  1249  M M15 L94           18
  249  1 256         B     CLASSD                                                   4  1256  B T09               18
  250  1 260  SENSE  MCW   TSENSE,STMTYP                                            7  1260  M M75 L94           18
  251  1 267         B     CLASSD                                                   4  1267  B T09               18
  252         *
  253         * SECOND LETTER IS (E)Q(UIVALENCE), (D)I(MENSION),
  254         * (E)N(D) OR (E)N(DFILE), (P)U(NCH) OR (P)A(USE)
  255         *
  256  1 271  QINUA2 MCW   WORD-1,STMTYP                                            7  1271  M M14 L94           18
  257  1 278         BCE   N2,TQINUA&7,N                                            8  1278  B S90 S24 N         19
  258  1 286         B     CLASSD                                                   4  1286  B T09               19
  259         *
  260         * SECOND LETTER IS N.  CHECK FOR ENDFILE.
  261         *
  262  1 290  N2     C     WORD-2,KDFILE  IS WORD .NDFILE?                          7  1290  C M13 M80           19
  263  1 297         BE    CLASSD                                                   5  1297  B T09 S             19
  264  1 302         MCW   TSLASH,STMTYP  SET TYPE TO /                             7  1302  M M81 L94           19
  265         *
  266         * STATEMENT IS CLASSIFIED
  267         *
  268  1 309  CLASSD CW    WORD                                                     4  1309  ) M15               19
  269  1 313         CW                                                             1  1313  )                   19
  270  1 314  CLASS2 CW    STMTYP                                                   4  1314  ) L94               20
  271  1 318  MVBACK LCA   STMTSV,0  MOVE THE STATEMENT BACK                        7  1318  L L97 000           20
  272  1 325         SBR   MVBACK&6                                                 4  1325  H T24               20
  273  1 329         SBR   CKBLNK&6                                                 4  1329  H T43               20
  274  1 333         SBR   83        ADDRESS BELOW LAST STMT, FOR NEXT PHASE        4  1333  H 083               20
  275  1 337  CKBLNK BCE   DONE,0-0,                                                8  1337  B W72 000           20
  276  1 345         B     MVSTMT                                                   4  1345  B 996               20
  277         *
  278         * LEFT PARENTHESIS OR GROUP MARK
  279         *
  280  1 349  LPAREN MCW   EQTEST&6,X1                                              7  1349  M /08 089           21
  281  1 356         BCE   RPAREN,1&X1,)                                            8  1356  B T69 0|1 )         21
  282  1 364         B                                                              1  1364  B                   21
  283  1 365         B     CLASS2                                                   4  1365  B T14               21
  284  1 369  RPAREN BCE   LPAR2,2&X1,%                                             8  1369  B T85 0|2 %         21
  285  1 377         SBR   X1                                                       4  1377  H 089               21
  286  1 381         B     RPAREN                                                   4  1381  B T69               21
  287  1 385  LPAR2  BCE   F,3&X1,F                                                 8  1385  B T97 0|3 F         22
  288  1 393         B     CLASS2                                                   4  1393  B T14               22
  289  1 397  F      BCE   CLASS2,6&X1,:                                            8  1397  B T14 0|6 :         22
  290  1 405         CHAIN 2                                                                             MACRO
  291                BCE                                                            1  1405  B           GEN     22
  292                BCE                                                            1  1406  B           GEN     22
  293  1 407         MCW   TARITH,STMTYP                                            7  1407  M M82 L94           22
  294  1 414         SW    195                                                      4  1414  , 195               22
  295  1 418         B     CLASS2                                                   4  1418  B T14               23
  296         *
  297         * FIRST LETTER IS NOT BFCS AND SECOND LETTER IS NOT QINUA
1                          FORTRAN COMPILER -- SCANNER -- PHASE 03                                        PAGE    5
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  298         *
  299  1 422  OTHER  CW    WORD                                                     4  1422  ) M15               23
  300  1 426         CW                                                             1  1426  )                   23
  301  1 427         C     WORD,KFI  IF ( SENSE...?                                 7  1427  C M15 M32           23
  302  1 434         BU    NOTIF                                                    5  1434  B V21 /             23
  303  1 439         BCE   SLITE,WORD-8,L                                           8  1439  B U58 M07 L         23
  304  1 447         MCW   TSSW,STMTYP  SENSE SWITCH                                7  1447  M M40 L94           23
  305  1 454         B     CLASS2                                                   4  1454  B T14               24
  306         *
  307         * NINTH CHARACTER IS L -- ASSUME IF ( SENSE LIGHT ... )
  308         *
  309  1 458  SLITE  MCW   TSLITE,STMTYP                                            7  1458  M M83 L94           24
  310  1 465         B     CLASS2                                                   4  1465  B T14               24
  311         *
  312         * BAD MODULUS MESSAGE
  313         *
  314  1 469  BADMOD CS    332                                                      4  1469  / 332               24
  315  1 473         CS                                                             1  1473  /                   24
  316  1 474         MCW   MSG42,218                                                7  1474  M N01 218           24
  317  1 481         W                                                              1  1481  2                   24
  318  1 482         CC    J                                                        2  1482  F J                 25
  319  1 484         MCW   INTDEF,IMOD                                              7  1484  M M42 690           25
  320  1 491         B     MANCHK                                                   4  1491  B 914               25
  321         *
  322         * BAD MANTISSA MESSAGE
  323         *
  324  1 495  BADMAN CS    332                                                      4  1495  / 332               25
  325  1 499         CS                                                             1  1499  /                   25
  326  1 500         MCW   MSG43,219                                                7  1500  M N20 219           25
  327  1 507         W                                                              1  1507  2                   25
  328  1 508         CC    J                                                        2  1508  F J                 26
  329  1 510         MCW   FLTDEF,MANTIS                                            7  1510  M M44 692           26
  330  1 517         B     BADRET                                                   4  1517  B 938               26
  331         *
  332         * NOT AN IF STATEMENT, CHECK FOR OTHERS
  333         *
  334  1 521  NOTIF  BCE   DO,WORD,D                                                8  1521  B V95 M15 D         26
  335  1 529         BCE   LPAR3,WORD-2,%                                           8  1529  B W06 M13 %         26
  336  1 537         BCE   LPAR5,WORD-4,%                                           8  1537  B W17 M11 %         26
  337  1 545         BCE   GOTO,WORD,G                                              8  1545  B W28 M15 G         27
  338  1 553         BCE   PRINT,WORD,P                                             8  1553  B W39 M15 P         27
  339  1 561         BWZ   READ,WORD-4,2                                            8  1561  V W50 M11 2         27
  340  1 569         BCE   RWD,WORD-5,D                                             8  1569  B W61 M10 D         27
  341  1 577         MCW   K1,STMTYP                                                7  1577  M M01 L94           27
  342  1 584         MN    WORD-5,STMTYP  USE NUMERIC OF SIXTH CHAR                 7  1584  D M10 L94           28
  343  1 591         B     CLASS2                                                   4  1591  B T14               28
  344         *
  345         * FIRST LETTER IS D(O)
  346         *
  347  1 595  DO     MCW   TDO,STMTYP                                               7  1595  M M39 L94           28
1                          FORTRAN COMPILER -- SCANNER -- PHASE 03                                        PAGE    6
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  348  1 602         B     CLASS2                                                   4  1602  B T14               28
  349         *
  350         * THIRD CHARACTER IS LEFT PARENTHESIS
  351         *
  352  1 606  LPAR3  MCW   TIF,STMTYP                                               7  1606  M M38 L94           28
  353  1 613         B     CLASS2                                                   4  1613  B T14               28
  354         *
  355         * FIFTH CHARACTER IS LEFT PARENTHESIS -- ASSUME COMPUTED GOTO
  356         *
  357  1 617  LPAR5  MCW   TCGO,STMTYP                                              7  1617  M M37 L94           29
  358  1 624         B     CLASS2                                                   4  1624  B T14               29
  359         *
  360         * FIRST CHARACTER IS G
  361         *
  362  1 628  GOTO   MCW   TGO,STMTYP                                               7  1628  M M36 L94           29
  363  1 635         B     CLASS2                                                   4  1635  B T14               29
  364         *
  365         * FIRST CHARACTER IS P
  366         *
  367  1 639  PRINT  MCW   TPRINT,STMTYP                                            7  1639  M M35 L94           29
  368  1 646         B     CLASS2                                                   4  1646  B T14               29
  369         *
  370         * FIFTH CHARACTER IS NUMERIC -- ASSUME IT'S READ
  371         *
  372  1 650  READ   MCW   TREAD,STMTYP                                             7  1650  M M34 L94           30
  373  1 657         B     CLASS2                                                   4  1657  B T14               30
  374         *
  375         * SIXTH CHARACTER IS D -- ASSUME REWIND
  376         *
  377  1 661  RWD    MCW   TREW,STMTYP                                              7  1661  M M33 L94           30
  378  1 668         B     CLASS2                                                   4  1668  B T14               30
  379         *
  380         * ALL DONE
  381         *
  382  1 672  DONE   BSS   SNAPSH,C                                                 5  1672  B 333 C             30
  383  1 677         SBR   LOADEX&3,1010                                            7  1677  H 796 |10           30
  384  1 684         SBR   CLEARL&3,2599                                            7  1684  H 710 N99           31
  385  1 691         LCA   SORTER,PHASID                                            7  1691  L N30 110           31
  386  1 698         B     LOADNX                                                   4  1698  B 700               31
  387  1 702         DCW   #1                                                       1  1702                      31
  388  1 703         DCW   #1                                                       1  1703                      31
  389         *
  390         STMTST EQU   2393  STATEMENT START                                       2393
  391         STMTYP EQU   2394  STATEMENT TYPE -- F FOR FORMAT                        2394
  392         STMTSV EQU   2397                                                        2397
  393         *
  394         * CONSTANTS AND WORK AREAS
  395         *
  396                ORG   2398                                                               2398
  397  2 400  STMTNO DCW   001                                                      3  2400                      32
1                          FORTRAN COMPILER -- SCANNER -- PHASE 03                                        PAGE    7
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  398  2 401  K1     DCW   1                                                        1  2401                      32
  399  2 404  STMTPT DCW   #3  STATEMENT POINTER                                    3  2404                      32
  400  2 405  CHAR   DCW   #1  CHARACTER BEING EXAMINED                             1  2405                      32
  401  2 415  WORD   DCW   #10                                                     10  2415                      32
  402  2 420  KQINUA DC    @QINUA@   TEST SECOND CHARACTER OF STATEMENT             5  2420                      32
  403  2 424  KBFCS  DC    @BFCS@    TEST FIRST CHARACTER OF STATEMENT              4  2424                      32
  404  2 430  KFI    DCW   @ESNES%FI@  IF(SENSE SPELLED BACKWARD                    8  2432                      32
  405  2 433  TREW   DC    @Z@       STATEMENT CODE FOR REWIND                      1  2433                      32
  406  2 434  TREAD  DC    @L@       STATEMENT CODE FOR READ                        1  2434                      32
  407  2 435  TPRINT DC    @P@       STATEMENT CODE FOR PRINT                       1  2435                      32
  408  2 436  TGO    DC    @G@       STATEMENT CODE FOR GOTO                        1  2436                      32
  409  2 437  TCGO   DC    @T@       STATEMENT CODE FOR COMPUTED GOTO               1  2437                      33
  410  2 438  TIF    DC    @E@       STATEMENT CODE FOR IF                          1  2438                      33
  411  2 439  TDO    DC    @D@       STATEMENT CODE FOR DO                          1  2439                      33
  412  2 440  TSSW   DC    @W@       STATEMENT CODE FOR IF ( SENSE SWITCH ...       1  2440                      33
  413  2 442  INTDEF DCW   05  DEFAULT INTEGER MODULUS                              2  2442                      33
  414  2 444  FLTDEF DCW   08  DEFAULT FLOATING POINT MANTISSA DIGITS               2  2444                      33
  415  2 446  INTMIN DCW   01  MINIMUM INTEGER MODULUS                              2  2446                      33
  416  2 448  DIGMAX DCW   20  MAXIMUM INT MOD AND MAX FP MANTISSA                  2  2448                      33
  417  2 450  FLTMIN DCW   02  MINIMUM FLOATING POINT MANTISSA DIGITS               2  2450                      34
  418  2 460  MODMSG DCW   @MODULUS IS@                                            10  2460                      34
  419  2 471  MANMSG DCW   @MANTISSA IS@                                           11  2471                      34
  420  2 474  KNSE   DCW   @ESN@     NSE (PART OF SENSELIGHT) SPELT BACKWARD        3  2474                      34
  421  2 475  TSENSE DCW   @J@       STATEMENT CODE FOR SENSE LIGHT                 1  2475                      34
  422  2 480  KDFILE DCW   @ELIFD@   DFILE (PART OF ENDFILE) SPELT BACKWARD         5  2480                      34
  423  2 481  TSLASH DCW   @/@       STATEMENT CODE FOR END                         1  2481                      34
  424  2 482  TARITH DCW   @R@       STATEMENT CODE FOR ARITHMETIC                  1  2482                      35
  425  2 483  TSLITE DCW   @K@       STATEMENT CODE FOR IF ( SENSE LIGHT...         1  2483                      35
  426  2 501  MSG42  DCW   @ERROR 42 - MODULUS@                                    18  2501                      35
  427  2 520  MSG43  DCW   @ERROR 43 - MANTISSA@                                   19  2520                      35
  428  2 530  SORTER DCW   @SORTER ONE@                                            10  2530                      36
  429                ORG   2600                                                               2600
  430  2 600  GMWM   DCW   @}@                                                      1  2600              GMARK   37
  431                ORG   201                                                                0201
  432    203         DSA   LOADDD    LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM          3  0203  838                 38
  433                EX    BEGINN                                                            B 838               39
  434                END                                                                     / 000 080
1                          FORTRAN COMPILER -- SCANNER -- PHASE 03                                        PAGE    8
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 BADMAN   1495    BADMOD   1469    BADRET    938    BEGINN    838    BFCS1    1237    C1410     695    CHAR     2405   
 CHKLB2   1059    CHKLBL   1043    CKBLNK   1337    CKWORD   1173    CLASS2   1314    CLASSD   1309    CLEARL    707   
 CONDNS    693    CORCHK    979    DIGMAX   2448    DO       1595    DONE     1672    ENDCHK   1089    EQ       1119   
 EQTEST   1102    F        1397    FDEF      883    FLTDEF   2444    FLTMIN   2450    FMTSW     696    FSPEC     890   
 GMWM     2600    GOTO     1628    IDEF      864    IMOD      690    INTDEF   2442    INTMIN   2446    ISPEC     871   
 K1       2401    KBFCS    2424    KDFILE   2480    KFI      2432    KNSE     2474    KQINUA   2420    LOADDD    838   
 LOADEX    793    LOADNX    700    LPAR2    1385    LPAR3    1606    LPAR5    1617    LPAREN   1349    MANCHK    914   
 MANMSG   2471    MANTIS    692    MODMSG   2460    MSG42    2501    MSG43    2520    MVBACK   1318    MVSTMT    996   
 N2       1290    NOTIF    1521    OTHER    1422    PARAM     699    PHASID    110    PRINT    1639    PWORD     685   
 QINUA2   1271    READ     1650    RPAREN   1369    RWD      1661    SENSE    1260    SLITE    1458    SNAPSH    333   
 SNAPSW    694    SORTER   2530    STMTNO   2400    STMTPT   2404    STMTST   2393    STMTSV   2397    STMTYP   2394   
 STSTMT   1075    SVCHAR   1134    TARITH   2482    TCGO     2437    TDO      2439    TGO      2436    TIF      2438   
 TOPCOR    688    TPRINT   2435    TQINUA   1217    TREAD    2434    TREW     2433    TSENSE   2475    TSLASH   2481   
 TSLITE   2483    TSSW     2440    WORD     2415    X1         89    X2         94    X3         99