                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 212/212 ------           
       00106 -3 00016 4 00112        TXL TRYA,4,14           IF  NECESSARY                                        
       00107  0 56000 0 01174        LDQ IDENT                                                                    
       00110  0 07400 4 01033 NOIDEN TSX ERROR,4                                                                  
       00111  0 02000 0 00777        TRA DIAGND                                                                   
       00112  1 00001 4 00113 TRYA   TXI IDNSXD,4,1                                                               
       00113 -0 63400 4 01202 IDNSXD SXD BSTA,4                                                                   
       00114  0 76400 0 00202        BST 2                                                                        
       00115  0 02000 0 00052        TRA RDREC                                                                    
       00116  0 60000 0 01202 HAVE   STZ BSTA                                                                     
       00117  0 50000 2 01254        CLA TAPTAB+1,2                                                               
       00120  0 62100 0 00121        STA TRA                                                                      
       00121  0 02000 0 00000 TRA    TRA 0                                                                        
       00122  0 76200 0 00222 NOTIFG RTB 2                   IF NO TIFGO ENTRY, IGNORE TRAD ENTRY                 
       00123  0 02000 0 00052        TRA RDREC                                                                    
       00124  2 00002 1 00126 FORSUB TIX SAVEA,1,2                                                                
       00125  0 53400 1 01152        LXA IR4,1                                                                    
       00126 -0 63400 1 00133 SAVEA  SXD TXLA,1                                                                   
       00127  0 53400 1 01152        LXA IR4,1                                                                    
       00130  0 56000 1 77633 LDQA   LDQ TABLE,1                                                                  
       00131  0 07400 4 01066 TSXA   TSX CHECKA,4                                                                 
       00132  1 00002 1 00133        TXI TXLA,1,2                                                                 
       00133 -3 00000 1 00130 TXLA   TXL LDQA,1,0                                                                 
       00134  0 02000 0 00047        TRA OVER                                                                     
       00135 -3 00000 1 00146 SIZ    TXL SETRD,1,0           IF NO ENTRIES, GET NEXT TAPE RECORDS                 
       00136  2 00002 1 00140        TIX SAVEB,1,2           REDUCE WORD COUNT FOR END OF ENTRIES TEST            
       00137  0 53400 1 01152        LXA IR4,1               IF TOO SMALL, SET TO ZERO                            
       00140 -0 63400 1 00145 SAVEB  SXD TXLB,1                                                                   
       00141  0 53400 1 01152        LXA IR4,1               START AT FIRST ENTRY, THAT IS IR IS ZERO             
       00142  0 56000 1 77633 LDQB   LDQ TABLE,1                                                                  
       00143  0 07400 4 01066 TSXB   TSX CHECKA,4                                                                 
       00144  1 00002 1 00145        TXI TXLB,1,2            GET NEXT 2 WORD ENTRY                                
       00145 -3 00000 1 00142  TXLB  TXL LDQB,1,0                                                                 
       00146  0 76200 0 00222 SETRD  RTB 2                   SPACE OVER GAP AT END OF 4TH FILE                    
       00147  0 76200 0 00222        RTB 2                   SPACE OVER 5 WORD END RECORD                         
       00150  0 50000 0 01232        CLA AFTRSZ                                                                   
       00151  0 62100 0 00064        STA RDAAB                                                                    
       00152  0 50000 0 01205        CLA NOP                                                                      
       00153  0 60100 0 00062        STO RDA                 RESET TEST AT END OF READ LOOP                       
       00154  0 02000 0 00052        TRA RDREC                                                                    
       00155 -3 00000 1 00052 SUBARG TXL RDREC,1,0           INITIALIZATION OF END ENTRIES TEST                   
       00156  2 00001 1 00160        TIX SAVEC,1,1                                                                
       00157  0 53400 1 01152        LXA IR4,1                                                                    
       00160 -0 63400 1 00165 SAVEC  SXD TXLC,1                                                                   
       00161  0 53400 1 01152        LXA IR4,1                                                                    
       00162  0 56000 1 77633 LDQC   LDQ TABLE,1                                                                  
       00163  0 07400 4 01066 TSXC   TSX CHECKA,4                                                                 
       00164  1 00001 1 00165        TXI TXLC,1,1            1 WORD ENTRIES                                       
       00165 -3 00000 1 00162 TXLC   TXL LDQC,1,0                                                                 
       00166  0 02000 0 00052        TRA RDREC                                                                    
       00167 -3 00000 1 00200 UPPER  TXL UPPRTB,1,0          INITIALIZE END OF ENTRIES TEST                       
       00170  2 00001 1 00172        TIX SAVED,1,1                                                                
       00171  0 53400 1 01152        LXA IR4,1                                                                    
       00172 -0 63400 1 00177 SAVED  SXD TXLD,1                                                                   
       00173  0 53400 1 01152        LXA IR4,1                                                                    
