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 -- IF COND PHASE -- PHASE 44                                  PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   FORTRAN COMPILER -- IF COND PHASE -- PHASE 44
  102                CTL   6611
  103         *
  104         * IN-LINE INSTRUCTIONS ARE GENERATED FOR IF ( SENSE SWITCH I )
  105         * AND IF ( SENSE LIGHT I )
  106         *
  107         X1     EQU   89                                                          0089
  108         X2     EQU   94                                                          0094
  109         X3     EQU   99                                                          0099
  110         *
  111         * STUFF IN THE RESIDENT AREA
  112         *
  113         PHASID EQU   110  PHASE ID, FOR SNAPSHOT DUMPS                           0110
  114         GLOBER EQU   184  GLOBAL ERROR FLAG -- WM MEANS ERROR                    0184
  115         SNAPSH EQU   333  CORE DUMP SNAPSHOT                                     0333
  116         LOADNX EQU   700  LOAD NEXT OVERLAY                                      0700
  117         CLEARL EQU   707  CS AT START OF OVERLAY LOADER                          0707
  118         CDOVLY EQU   769  1 IF RUNNING FROM CARDS, N IF FROM TAPE                0769
  119         *
  120                ORG   838                                                                0838
  121         LOADDD EQU   *&1          LOAD ADDRESS                                   0838
  122    838  BEGINN BCE   DONE,0&X1,                                               8  0838  B 870 0|0            4
  123    846         MCW   0&X1,SEQNO                                               7  0846  M 0|0 U45            4
  124    853         MCW        CODE                                                1  0853  M                    4
  125    854         BCE   IFCOND,CODE,W  IF ( SENSE SWITCH I )                     8  0854  B 893 U42 W          4
  126    862         BCE   IFCOND,CODE,K  IF ( SENSE LIGHT I )                      8  0862  B 893 U42 K          4
  127    870  DONE   BSS   SNAPSH,C                                                 5  0870  B 333 C              4
  128    875         SBR   CLEARL&3,GMWM                                            7  0875  H 710 W14            5
  129    882         LCA   CONT,PHASID                                              7  0882  L U69 110            5
  130    889         B     LOADNX                                                   4  0889  B 700                5
  131    893  IFCOND MCW   KLESS,2&X1                                               7  0893  M U70 0|2            5
  132    900         SBR   TSTLES&6,2&X1                                            7  0900  H S03 0|2            5
  133    907         LCA   0&X1,0&X3  SEQNO, CODE, GMWM                             7  0907  L 0|0 0?0            5
  134    914         SAR   X1                                                       4  0914  Q 089                6
  135    918         C     0&X3                                                     4  0918  C 0?0                6
  136    922         SAR   X3                                                       4  0922  Q 099                6
  137    926         LCA   1&X3,2&X3  REPLACE STATEMENT CODE WITH GMWM              7  0926  L 0?1 0?2            6
  138    933         SBR   X3                                                       4  0933  H 099                6
  139    937         MCW   0&X1,ON                                                  7  0937  M 0|0 U36            6
  140    944         MCW                                                            1  0944  M                    6
  141    945         SAR   X1                                                       4  0945  Q 089                7
  142    949         MZ    X2ZONE,ON-1                                              7  0949  Y U71 U35            7
  143    956         MZ    X2ZONE,OFF-1                                             7  0956  Y U71 U32            7
  144    963         BWZ   *&5,SEQNO,2                                              8  0963  V 975 U45 2          7
  145    971         B     *&9                                                      4  0971  B 983                7
  146    975         BWZ   *&15,SEQNO-2,2                                           8  0975  V 997 U43 2          7
  147    983         MCW   SEQNO,X2                                                 7  0983  M U45 094            8
1                          FORTRAN COMPILER -- IF COND PHASE -- PHASE 44                                  PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148    990         MCW   0&X2,SEQNO                                               7  0990  M 0!0 U45            8
  149    997         B     MORE                                                     4  0997  B |20                8
  150         *
  151  1 001  BOTTOM C     0&X1                                                     4  1001  C 0|0                8
  152  1 005         SAR   X1                                                       4  1005  Q 089                8
  153  1 009         SBR   X3,4&X3                                                  7  1009  H 099 0?4            8
  154  1 016         B     BEGINN                                                   4  1016  B 838                8
  155         *
  156  1 020  MORE   MN    0&X1                                                     4  1020  D 0|0                9
  157  1 024         SAR   X1                                                       4  1024  Q 089                9
  158  1 028         BCE   SLITE,CODE,K                                             8  1028  B S54 U42 K          9
  159         *
  160         * IF ( SENSE SWITCH I ) ON, OFF
  161         *
  162  1 036         MCW   0&X1,CH                                                  7  1036  M 0|0 U72            9
  163  1 043         MCW   CH,*&8                                                   7  1043  M U72 |57            9
  164  1 050         BCE   OKSW,K0TO6,0                                             8  1050  B /02 U79 0          9
  165  1 058         B                                                              1  1058  B                    9
  166  1 059         B                                                              1  1059  B                   10
  167  1 060         B                                                              1  1060  B                   10
  168  1 061         B                                                              1  1061  B                   10
  169  1 062         B                                                              1  1062  B                   10
  170  1 063         B                                                              1  1063  B                   10
  171  1 064         CS    332                                                      4  1064  / 332               10
  172  1 068         CS                                                             1  1068  /                   10
  173  1 069         SW    GLOBER                                                   4  1069  , 184               11
  174  1 073         MN    SEQNO,246                                                7  1073  D U45 246           11
  175  1 080         MN                                                             1  1080  D                   11
  176  1 081         MN                                                             1  1081  D                   11
  177  1 082         MCW   ERR37                                                    4  1082  M V22               11
  178  1 086         W                                                              1  1086  2                   11
  179  1 087         BCV   *&5                                                      5  1087  B |96 @             11
  180  1 092         B     *&3                                                      4  1092  B |98               12
  181  1 096         CC    1                                                        2  1096  F 1                 12
  182  1 098         B     BOTTOM                                                   4  1098  B |01               12
  183         *
  184         * SENSE SWITCH NUMBER IS OK
  185         *
  186  1 102  OKSW   A     KP1,CH                                                   7  1102  A V23 U72           12
  187  1 109         MN    CH,BIN                                                   7  1109  D U72 U41           12
  188  1 116         MCW   ON,BIN-1                                                 7  1116  M U36 U40           12
  189  1 123         MCW   OFF,X2                                                   7  1123  M U33 094           12
  190  1 130         MCW   0&X2,X2                                                  7  1130  M 0!0 094           13
  191  1 137         S     KP10,X2&1                                                7  1137  S V25 095           13
  192  1 144         C     SEQNO,X2                                                 7  1144  C U45 094           13
  193  1 151         BE    SAME                                                     5  1151  B S39 S             13
  194  1 156         MCW   OFF,BRANCH                                               7  1156  M U33 U49           13
  195  1 163         LCA   BRANCH,0&X3                                              7  1163  L U49 0?0           14
  196  1 170         LCA   BIN                                                      4  1170  L U41               14
  197  1 174         SBR   X3                                                       4  1174  H 099               14
1                          FORTRAN COMPILER -- IF COND PHASE -- PHASE 44                                  PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  198  1 178  ALMOST C     0&X1                                                     4  1178  C 0|0               14
  199  1 182         SAR   X1                                                       4  1182  Q 089               14
  200  1 186         LCA   1&X1,0&X3                                                7  1186  L 0|1 0?0           14
  201  1 193         SBR   X3                                                       4  1193  H 099               14
  202  1 197  TSTLES BCE   BEGINN,0,<  NOT TOO BIG IF LESS-THAN NOT CLOBBERED       8  1197  B 838 000 <         15
  203  1 205         CS    332                                                      4  1205  / 332               15
  204  1 209         CS                                                             1  1209  /                   15
  205  1 210         CC    1                                                        2  1210  F 1                 15
  206  1 212         MCW   ERROR2,270                                               7  1212  M V61 270           15
  207  1 219         W                                                              1  1219  2                   15
  208  1 220         CC    1                                                        2  1220  F 1                 15
  209  1 222         BCE   HALT,CDOVLY,1                                            8  1222  B S35 769 1         16
  210  1 230         RWD   1                                                        5  1230  U %U1 R             16
  211  1 235  HALT   H     HALT                                                     4  1235  . S35               16
  212         *
  213  1 239  SAME   LCA   BIN,0&X3                                                 7  1239  L U41 0?0           16
  214  1 246         SBR   X3                                                       4  1246  H 099               16
  215  1 250         B     ALMOST                                                   4  1250  B /78               16
  216         *
  217  1 254  SLITE  MCW   0&X1,CH                                                  7  1254  M 0|0 U72           16
  218  1 261         MCW   CH,1275                                                  7  1261  M U72 S75           17
  219  1 268         BCE   OKLITE,K1234,0                                           8  1268  B T17 V65 0         17
  220  1 276         B                                                              1  1276  B                   17
  221  1 277         B                                                              1  1277  B                   17
  222  1 278         B                                                              1  1278  B                   17
  223  1 279         CS    332                                                      4  1279  / 332               17
  224  1 283         CS                                                             1  1283  /                   17
  225  1 284         SW    GLOBER                                                   4  1284  , 184               18
  226  1 288         MN    SEQNO,245                                                7  1288  D U45 245           18
  227  1 295         MN                                                             1  1295  D                   18
  228  1 296         MN                                                             1  1296  D                   18
  229  1 297         MCW   ERR36                                                    4  1297  M W07               18
  230  1 301         W                                                              1  1301  2                   18
  231  1 302         BCV   *&5                                                      5  1302  B T11 @             18
  232  1 307         B     *&3                                                      4  1307  B T13               19
  233  1 311         CC    1                                                        2  1311  F 1                 19
  234  1 313         B     BOTTOM                                                   4  1313  B |01               19
  235         *
  236  1 317  OKLITE MCW   K080,W3                                                  7  1317  M W10 W13           19
  237  1 324         A     CH,W3                                                    7  1324  A U72 W13           19
  238  1 331         MCW   W3,BW-1                                                  7  1331  M W13 U56           19
  239  1 338         MCW   OFF                                                      4  1338  M U33               19
  240  1 342         MCW   W3,SW                                                    7  1342  M W13 U61           20
  241  1 349         MCW   ON,X2                                                    7  1349  M U36 094           20
  242  1 356         MCW   0&X2,X2                                                  7  1356  M 0!0 094           20
  243  1 363         S     KP10,X2&1                                                7  1363  S V25 095           20
  244  1 370         C     SEQNO,X2                                                 7  1370  C U45 094           20
  245  1 377         BE    SAME2                                                    5  1377  B U12 S             21
  246  1 382         MCW   ON,BRANCH                                                7  1382  M U36 U49           21
  247  1 389         LCA   BRANCH,0&X3                                              7  1389  L U49 0?0           21
1                          FORTRAN COMPILER -- IF COND PHASE -- PHASE 44                                  PAGE    4
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  248  1 396         LCA   SW                                                       4  1396  L U61               21
  249  1 400         LCA   BW                                                       4  1400  L U57               21
  250  1 404         SBR   X3                                                       4  1404  H 099               21
  251  1 408         B     ALMOST                                                   4  1408  B /78               21
  252  1 412  SAME2  LCA   SW,0&X3                                                  7  1412  L U61 0?0           22
  253  1 419         LCA   BW                                                       4  1419  L U57               22
  254  1 423         SBR   X3                                                       4  1423  H 099               22
  255  1 427         B     ALMOST                                                   4  1427  B /78               22
  256         *
  257         * DATA
  258         *
  259  1 433  OFF    DCW   #3                                                       3  1433                      22
  260  1 436  ON     DCW   #3                                                       3  1436                      22
  261  1 441  BIN    DCW   @B   &@                                                  5  1441                      22
  262  1 442  CODE   DCW   #1                                                       1  1442                      23
  263  1 445  SEQNO  DCW   #3                                                       3  1445                      23
  264  1 449  BRANCH DCW   @B   @                                                   4  1449                      23
  265  1 457  BW     DCW   @V      1@                                               8  1457                      23
  266  1 461  SW     DCW   @,   @                                                   4  1461                      23
  267  1 469  CONT   DCW   @CONTINUE@                                               8  1469                      23
  268  1 470  KLESS  DCW   @<@                                                      1  1470                      23
  269  1 471  X2ZONE DCW   @K@                                                      1  1471                      24
  270  1 472  CH     DCW   #1                                                       1  1472                      24
  271  1 479  K0TO6  DCW   @0123456@                                                7  1479                      24
  272  1 522  ERR37  DCW   @ERROR 37 - ILLEGAL SENSE SWITCH, STATEMENT @           43  1522                      26
  273  1 523  KP1    DCW   &1                                                       1  1523                      26
  274  1 525  KP10   DCW   &10                                                      2  1525                      26
  275  1 561  ERROR2 DCW   @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@                  36  1561                      27
  276  1 565  K1234  DCW   1234                                                     4  1565                      28
  277  1 607  ERR36  DCW   @ERROR 36 - ILLEGAL SENSE LIGHT, STATEMENT @            42  1607                      30
  278  1 610  K080   DSA   80                                                       3  1610  080                 30
  279  1 613  W3     DCW   #3                                                       3  1613                      30
  280  1 614  GMWM   DCW   @}@                                                      1  1614              GMARK   30
  281                ORG   201                                                                0201
  282    203         DSA   LOADDD    LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM          3  0203  838                 31
  283                EX    BEGINN                                                            B 838               32
  284                END                                                                     / 000 080
1                          FORTRAN COMPILER -- IF COND PHASE -- PHASE 44                                  PAGE    5
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 ALMOST   1178    BEGINN    838    BIN      1441    BOTTOM   1001    BRANCH   1449    BW       1457    CDOVLY    769   
 CH       1472    CLEARL    707    CODE     1442    CONT     1469    DONE      870    ERR36    1607    ERR37    1522   
 ERROR2   1561    GLOBER    184    GMWM     1614    HALT     1235    IFCOND    893    K080     1610    K0TO6    1479   
 K1234    1565    KLESS    1470    KP1      1523    KP10     1525    LOADDD    838    LOADNX    700    MORE     1020   
 OFF      1433    OKLITE   1317    OKSW     1102    ON       1436    PHASID    110    SAME     1239    SAME2    1412   
 SEQNO    1445    SLITE    1254    SNAPSH    333    SW       1461    TSTLES   1197    W3       1613    X1         89   
 X2         94    X2ZONE   1471    X3         99