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 -- SENSE LIGHT PHASE -- PHASE 43                              PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   FORTRAN COMPILER -- SENSE LIGHT PHASE -- PHASE 43
  102                CTL   6611
  103         *
  104         * IN-LINE INSTRUCTIONS ARE GENERATED.
  105         *
  106         X1     EQU   89                                                          0089
  107         X2     EQU   94                                                          0094
  108         X3     EQU   99                                                          0099
  109         *
  110         * STUFF IN THE RESIDENT AREA
  111         *
  112         PHASID EQU   110  PHASE ID, FOR SNAPSHOT DUMPS                           0110
  113         GLOBER EQU   184  GLOBAL ERROR FLAG -- WM MEANS ERROR                    0184
  114         SNAPSH EQU   333  CORE DUMP SNAPSHOT                                     0333
  115         LOADNX EQU   700  LOAD NEXT OVERLAY                                      0700
  116         CLEARL EQU   707  CS AT START OF OVERLAY LOADER                          0707
  117         CDOVLY EQU   769  1 IF RUNNING FROM CARDS, N IF FROM TAPE                0769
  118         *
  119                ORG   838                                                                0838
  120         LOADDD EQU   *&1          LOAD ADDRESS                                   0838
  121    838  BEGINN BCE   DONE,0&X1,                                               8  0838  B 861 0|0            4
  122    846         MCW   0&X1,SEQCOD                                              7  0846  M 0|0 /88            4
  123    853         BCE   SLITE,SEQCOD-3,J                                         8  0853  B 884 /85 J          4
  124    861  DONE   BSS   SNAPSH,C                                                 5  0861  B 333 C              4
  125    866         SBR   CLEARL&3,GMWM                                            7  0866  H 710 S92            4
  126    873         LCA   IFCOND,PHASID                                            7  0873  L /94 110            5
  127    880         B     LOADNX                                                   4  0880  B 700                5
  128    884  SLITE  LCA   0&X1,0&X3                                                7  0884  L 0|0 0?0            5
  129    891         SAR   X1                                                       4  0891  Q 089                5
  130    895         C     0&X3                                                     4  0895  C 0?0                5
  131    899         SAR   X3                                                       4  0899  Q 099                5
  132    903         SBR   TSTBRK&6,1&X1                                            7  0903  H /26 0|1            5
  133    910         MCW   RBRACK,1&X1                                              7  0910  M /95 0|1            6
  134    917         LCA   1&X3,2&X3                                                7  0917  L 0?1 0?2            6
  135    924         SBR   X3                                                       4  0924  H 099                6
  136    928         MCW   SEQCOD,W3                                                7  0928  M /88 /98            6
  137    935         BWZ   *&5,W3,2                                                 8  0935  V 947 /98 2          6
  138    943         B     *&9                                                      4  0943  B 955                6
  139    947         BWZ   *&15,W3-2,2                                              8  0947  V 969 /96 2          7
  140    955         MCW   W3,X2                                                    7  0955  M /98 094            7
  141    962         MCW   0&X2,W3                                                  7  0962  M 0!0 /98            7
  142    969         BCE   SYNTAX,0&X1,}                                            8  0969  B |15 0|0 } GMARK    7
  143    977         MCW   0&X1,W2                                                  7  0977  M 0|0 S00            7
  144    984         BCE   TSTCOD,W2-1,}  SENSE LIGHT NUMBER IS ONE DIGIT?          8  0984  B 996 /99 } GMARK    8
  145    992         B     SYNTAX                                                   4  0992  B |15                8
  146    996  TSTCOD MN    0&X1,*&8                                                 7  0996  D 0|0 |10            8
  147  1 003         BCE   SENSOK,K01234,0  VALID SENSE LIGHT NUMBER?               8  1003  B |68 S05 0          8
1                          FORTRAN COMPILER -- SENSE LIGHT PHASE -- PHASE 43                              PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148  1 011         CHAIN 4                                                                             MACRO
  149                BCE                                                            1  1011  B           GEN      8
  150                BCE                                                            1  1012  B           GEN      8
  151                BCE                                                            1  1013  B           GEN      8
  152                BCE                                                            1  1014  B           GEN      9
  153  1 015  SYNTAX CS    332                                                      4  1015  / 332                9
  154  1 019         CS                                                             1  1019  /                    9
  155  1 020         SW    GLOBER                                                   4  1020  , 184                9
  156  1 024         MN    W3,245                                                   7  1024  D /98 245            9
  157  1 031         MN                                                             1  1031  D                    9
  158  1 032         MN                                                             1  1032  D                    9
  159  1 033         MCW   ERR36                                                    4  1033  M S47               10
  160  1 037         W                                                              1  1037  2                   10
  161  1 038         BCV   *&5                                                      5  1038  B |47 @             10
  162  1 043         B     *&3                                                      4  1043  B |49               10
  163  1 047         CC    1                                                        2  1047  F 1                 10
  164  1 049         SBR   X3,4&X3                                                  7  1049  H 099 0?4           10
  165  1 056         C     0&X1                                                     4  1056  C 0|0               10
  166  1 060         SAR   X1                                                       4  1060  Q 089               11
  167  1 064         B     BEGINN                                                   4  1064  B 838               11
  168  1 068  SENSOK MZ    *-4,0&X1                                                 7  1068  Y |70 0|0           11
  169  1 075         BCE   SENSE0,0&X1,0                                            8  1075  B /62 0|0 0         11
  170  1 083         MN    0&X1,CW&3                                                7  1083  D 0|0 /84           11
  171  1 090         LCA   CW&3,0&X3  LOAD CW INSTRUCTION                           7  1090  L /84 0?0           11
  172  1 097         SBR   X3                                                       4  1097  H 099               12
  173  1 101  ENDSTM C     0&X1                                                     4  1101  C 0|0               12
  174  1 105         SAR   X1                                                       4  1105  Q 089               12
  175  1 109         LCA   1&X1,0&X3  GMWM                                          7  1109  L 0|1 0?0           12
  176  1 116         SBR   X3                                                       4  1116  H 099               12
  177  1 120  TSTBRK BCE   BEGINN,0,]  NOT TOO BIG IF BRACKET NOT CLOBBERED         8  1120  B 838 000 ]         12
  178  1 128         CS    332                                                      4  1128  / 332               12
  179  1 132         CS                                                             1  1132  /                   13
  180  1 133         CC    1                                                        2  1133  F 1                 13
  181  1 135         MCW   ERROR2,270                                               7  1135  M S83 270           13
  182  1 142         W                                                              1  1142  2                   13
  183  1 143         CC    1                                                        2  1143  F 1                 13
  184  1 145         BCE   HALT,CDOVLY,1                                            8  1145  B /58 769 1         13
  185  1 153         RWD   1                                                        5  1153  U %U1 R             13
  186  1 158  HALT   H     HALT                                                     4  1158  . /58               14
  187  1 162  SENSE0 LCA   SW,0&X3  CHAINED SW                                      7  1162  L S84 0?0           14
  188  1 169         LCA   SW2&6    SW 82,84                                        4  1169  L S91               14
  189  1 173         SBR   X3                                                       4  1173  H 099               14
  190  1 177         B     ENDSTM                                                   4  1177  B /01               14
  191  1 181  CW     CW    80                                                       4  1181  ) 080               14
  192  1 188  SEQCOD DCW   #4                                                       4  1188                      14
  193  1 194  IFCOND DCW   @IFCOND@                                                 6  1194                      15
  194  1 195  RBRACK DCW   @]@                                                      1  1195                      15
  195  1 198  W3     DCW   #3                                                       3  1198                      15
  196  1 200  W2     DCW   #2                                                       2  1200                      15
  197  1 205  K01234 DCW   @01234@                                                  5  1205                      15
1                          FORTRAN COMPILER -- SENSE LIGHT PHASE -- PHASE 43                              PAGE    3
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  198  1 247  ERR36  DCW   @ERROR 36 - ILLEGAL SENSE LIGHT, STATEMENT @            42  1247                      17
  199  1 283  ERROR2 DCW   @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@                  36  1283                      17
  200  1 284  SW     SW                                                             1  1284  ,                   18
  201  1 285  SW2    SW    82,84                                                    7  1285  , 082 084           18
  202  1 292  GMWM   DCW   @}@                                                      1  1292              GMARK   18
  203                ORG   201                                                                0201
  204    203         DSA   LOADDD    LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM          3  0203  838                 19
  205                EX    BEGINN                                                            B 838               20
  206                END                                                                     / 000 080
1                          FORTRAN COMPILER -- SENSE LIGHT PHASE -- PHASE 43                              PAGE    4
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 BEGINN    838    CDOVLY    769    CLEARL    707    CW       1181    DONE      861    ENDSTM   1101    ERR36    1247   
 ERROR2   1283    GLOBER    184    GMWM     1292    HALT     1158    IFCOND   1194    K01234   1205    LOADDD    838   
 LOADNX    700    PHASID    110    RBRACK   1195    SENSE0   1162    SENSOK   1068    SEQCOD   1188    SLITE     884   
 SNAPSH    333    SW       1284    SW2      1285    SYNTAX   1015    TSTBRK   1120    TSTCOD    996    W2       1200   
 W3       1198    X1         89    X2         94    X3         99