                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 377/381 ------           
       00100  0 70000 0 05742 M10055 CPY ERAS            TAPE 4 T0 GET T0 FIRST RECORD                F3800530    
       00101  0 02000 0 00100        TRA M10055          OF COMPD0 FILE.                              F3B00540    
       00102  0 02000 0 00104        TRA M10060          END OF TRALEV FILE.                          F3800550    
       00103  0 02000 0 00077        TRA M10055-1        SPACE 0VER NEXT TRALEV RECORD.               F3B00560    
       00104  0 53400 2 02173 M10060 LXA M1CON,2         LOAD 0 INTO IRB.                             F3B00570    
       00105  1 00021 2 00106        TXI M10060+2,2,17                                                F3B00580    
       00106  0 76400 0 00222        BST 146             BACKSPACE BINARY TAPE 2 BY                   F3B00590    
       00107  2 00001 2 00106        TIX M10060+2,2,1    13 RECORDS T0 P0SITIDN TAPE 2                F3B00600    
       00110  0 53400 1 02167        LXA M1ECTR,1        T0 READ COMPAIL RECORD COUNT FILE.           F3B00610    
       00111  0 76200 0 00222 M10063 RDS 146                                                          F3B00620    
       00112  0 70000 0 05742        CPY ERAS                                                         F3B00630    
       00113  0 07400 2 00064        TSX M10043,2                                                     F3B00640    
       00114  0 76100 0 00111        NOP M10063          BACKSPACE TAPE 2 0VER COMPAIL                F3B00650    
       00115  0 53400 2 05742        LXA ERAS,2          RECORD COUNT, A EOF MARK, AND                F3B00660    
       00116  1 00002 2 00117        TXI M10070,2,2      0VER CDMPAIL RECORDS                         F3B00670    
       00117  0 76400 0 00222 M10070 BST 146             T0 P0SITION TAPE 2 T0 FIRST                  F3B00680    
       00120  2 00001 2 00117        TIX M10070,2,1      RECORD OF COMPAIL FILE.                      F3B00690    
       00121 -0 76000 0 00141        MSE 97              TURN-OFF SENSE LIGHTS 1,3, AND 4.            F3B00700    
       00122  0 76100 0 00000        NOP                 SENSE LIGHT 2 USED BY SEC. 2                 F3B00710    
       00123 -0 76000 0 00143        MSE 99              T0 INDICATE T0 SEC. 3 THERE                  F3B00720    
       00124  0 76100 0 00000        NOP                 ARE N0 COMPD0 INSTR IF                       F3B00730    
       00125 -0 76000 0 00144        MSE 100             LIGHT 2 IS 0N.                               F3B00740    
       00126  0 76100 0 00000        NOP                                                              F3B00750    
                                         CHANGE TAG TABLE EDIT                                        F3B00760    
       00127  0 53400 4 02167 PEC00  LXA M1ECTR,4        LOAD 5 INTO IRC DR RD ERROR CTR.             F3B00770    
       00130  0 76200 0 00303 PEC01  RDS 195             UNEDITED CHTG TABLE 0N L0G 0R 3.             F3B00780    
       00131  0 46000 0 02173        LDA M1CON           0=DR 0RG UCHTG - 2                           F3B00790    
       00132  0 70000 0 05742        CPY ERAS            TABLE LENGTH T0 ERAS                         F3B00800    
       00133  0 70000 0 05743        CPY ERAS+1          CHECK SUM INTO ERAS+1.                       F3B00810    
       00134 -0 50000 0 05742        CAL ERAS            CHECK DRUM READ                              F3B00820    
       00135  0 40200 0 05743        SUB ERAS+1          TEST IF TABLE LENGTH READ                    F3B00830    
       00136  0 10000 0 00141        TZE PEC02           C0RRECTLY FR0H DRUM 3.                       F3B00840    
       00137  2 00001 4 00130        TIX PEC01,4,1       READ DRUM 5 TIMES IF LENGTH WR0NG.           F3B00850    
       00140  0 07400 4 00004        TSX 4,4             DRUM READ 5 TIMES UNSUCCESSFULLY.            F3B00860    
       00141  0 53400 4 02167 PEC02  LXA M1ECTR,4        LOAD 5 INTO IRC DR RD ERROR CTR.             F3B00870    
       00142  0 50000 0 05742 PEC03  CLA ERAS            TEST IF THERE ARE ANY ENTRIES                F3B00880    
       00143  0 10000 0 00235        TZE PEC20           IN CHG TAG TABLE.                            F3B00890    
       00144  0 73400 3 00000        PAX 0,3             1RR1HHNN))UUMJ,IJJD*H)T0 IRA, IRB            F3B00900    
       00145  0 40200 0 00154        SUB PEC05           COMPUTE CORE ADDRESS INTO WHICH              F3B00910    
       00146  0 62100 0 00151        STA PEC04           CHG TAG TABLE ENTRIES T0 BE                  F3B00920    
       00147  0 76200 0 00303        RDS 195             READ PLUS TABLE LENGTH FOR TIX 0PER.         F3B00930    
       00150  0 46000 0 02175        LDA M1CON+2         DRUM READ ADDRESS OF 2.                      F3B00940    
       00151  0 70000 1 00000 PEC04  CPY 0,1             READ CHG TAG TABLE INTO UCHTG BLOCK          F3B00950    
       00152  2 00001 1 00151        TIX PEC04,1,1                                                    F3B00960    
       00153  0 53400 1 02173        LXA M1CON,1         LOAD 0 INTD IRA.                             F3B00970    
       00154 -0 50000 1 05266 PEC05  CAL UCHTG,1         UNEDITED CHG TAG TABLE ENTR)ES C0NSIST       F3B00980    
       00155  0 36100 1 05267        ACL UCHTG+1,1       OF 3 WORDS. TEST L0G SUH OF                  F3B00990    
       00156  0 40200 1 05270        SUB UCHTG+2,1       2 WORDS EQUALS DRUM CHECK                    F3B01000    
       00157  0 10000 0 00162        TZE PEC06           SUM FOR THE ENTRY.                           F3B01010    
       00160  2 00001 4 00142        TIX PEC03,4,1       DRUM READ ERROR. TRY 5 TIMES.                F3B01020    
       00161  0 07400 4 00004        TSX 4,4             DRUM READ 5 TIMES UNSUCCESSFULLT.            F3B01030    
       00162  1 77775 1 00163 PEC06  TXI PEC07,1,-3      M0DIFY TABLE ADDR FOR NEXT 3 WORDS.          F3B01040    
       00163  2 00003 2 00154 PEC07  TIX PEC05,2,3       TEST FOR END CHG TAG BLOCK                   F3B01050    
                                         BEGIN ED)T OF UCHTG                                  -.-     F3B01060    
