                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 186/186 ------           
       01220  2 00001 1 01174        TIX A14PTS-1,1,1              TEST FOR 2 TAPE CHECKS,            F1P00540    
       01221  0 07400 4 00004        TSX DIAG,4         STOP FOR 5TH READ CHECK                       F1P00550    
       01222  0 77000 0 00222 A10PTS WEF 146                       END OF COMPAIL ON TAPE 2           F1P00560    
       01223  0 76600 0 00222        WRS 146                                                          F1P00570    
       01224  0 70000 0 02245        CPY CMPREC                                                       F1P00580    
                                         PROGRAM  TO SAVE FORSUB TABLE                                F1P00590    
       01225 -0 53400 1 00470        LXD BK,1                                                         F1P00600    
       01226 -3 00000 1 01234        TXL WEF,1,0                   TEST FOR EMPTY TABLE               F1P00610    
       01227  0 53400 2 07730        LXA L(0),2                                                       F1P00620    
       01230  0 70000 2 00471        CPY FORSUB,2                                                     F1P00630    
       01231  1 77777 2 01232        TXI A15PTS,2,-1                                                  F1P00640    
       01232  1 00001 1 01233 A15PTS TXI A15PTS+1,1,1                                                 F1P00650    
       01233  3 00000 1 01230        TXH A15PTS-2,1,0                                                 F1P00660    
       01234  0 77000 0 00222 WEF    WEF 146                                                          F1P00670    
                                         PROGRAM FOR SAVING FLOCON TABLE                              F1P00680    
       01235 -0 53400 4 00421 FL00   LXD FLCNIX-3,4      (N)                                          F1P00690    
       01236 -0 75400 4 00000        PXD 0,4                                                          F1P00700    
       01237  0 77100 0 00022        ARS 18                                                           F1P00710    
       01240  0 60100 0 02244        STO FLSIZE    LOAD FLSIZE WITH N                                 F1P00720    
       01241 -3 00000 4 01276        TXL FL09,4,0      IS TABLE EMPTY                                 F1P00730    
       01242 -0 50000 0 07742        CAL MSK                                                          F1P00740    
       01243  0 32000 0 00422        ANS FLCNIX-2                                                     F1P00750    
       01244  0 32000 0 00421        ANS FLCNIX-3                                                     F1P00760    
       01245  0 50000 0 00421        CLA FLCNIX-3     GET NUMBER OF WORDS IN FLOCON INCLUDING CK SUMS F1P00770    
       01246  0 40200 0 00422        SUB FLCNIX-2                                                     F1P00780    
       01247  0 62100 0 01256        STA FL04       SAVE L                                            F1P00790    
       01250  0 53400 2 07735 FL01   LXA L(5),2            SET TO TRY FIVE TIMES IF CK SUM FAILS      F1P00800    
       01251  0 53400 4 01256 FL02   LXA FL04,4    (L)                                                F1P00810    
       01252  0 76200 0 00302        RDR 2                                                            F1P00820    
       01253  0 46000 0 00422        LDA FLCNIX-2                                                     F1P00830    
       01254  0 70000 4 05453 FL03   CPY OTA+450,4       COPY FLOCON FROM DRUM                        F1P00840    
       01255  2 00001 4 01254        TIX FL03,4,1                                                     F1P00850    
       01256 -0 75400 0 00000 FL04   PXD **,0                                                         F1P00860    
       01257  0 53400 4 01256        LXA FL04,4      COMPUTE CK SUM OF ENTRIES VERSUS CK SUM OF CK    F1P00870    
       01260  0 53400 1 07737        LXA L(50),1     SUMS. TABLE IS OF FORM A CK SUM FOR FIFTY WORDS  F1P00880    
       01261  0 36100 4 05453 FL05   ACL OTA+450,4   FOLLOWED BY THE FIFTY WORDS                      F1P00890    
       01262  0 76000 0 00006        COM                                                              F1P00900    
       01263 -2 00001 4 01307        TNX ERROR,4,1                                                    F1P00910    
       01264  0 36100 4 05453 FL06   ACL OTA+450,4                                                    F1P00920    
       01265 -2 00001 4 01271        TNX FL07,4,1      FINAL ENRTY , GET OUT OF CK SUM LOOP           F1P00930    
       01266  2 00001 1 01264        TIX FL06,1,1                                                     F1P00940    
       01267  0 76000 0 00006        COM                                                              F1P00950    
       01270  1 00061 1 01261        TXI FL05,1,49                                                    F1P00960    
       01271  0 76000 0 00006 FL07   COM                                                              F1P00970    
       01272  0 10000 0 01275        TZE FL08   TEST CK SUM                                           F1P00980    
       01273  2 00001 2 01251        TIX FL02,2,1   CK SUM FAILED, TRY AGAIN                          F1P00990    
       01274  0 07400 4 00004        TSX DIAG,4            CK SUM FAILED FIVE TIMES                   F1P01000    
       01275  0 53400 4 01256 FL08   LXA FL04,4   (L)                                                 F1P01010    
       01276  0 76600 0 00222 FL09   WTB 2                                                            F1P01020    
       01277  0 70000 0 02244        CPY FLSIZE                                                       F1P01030    
       01300 -3 00000 4 01310        TXL PROFOR,4,0      IS FLOCON EMPTY                              F1P01040    
       01301  0 53400 1 07737        LXA L(50),1                                                      F1P01050    
       01302 -2 00001 4 01307 FL10   TNX ERROR,4,1                                                    F1P01060    
       01303  0 70000 4 05453 FL11   CPY OTA+450,4                                                    F1P01070    
