                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 213/213 ------           
       00174  0 56000 1 77633 LDQD   LDQ TABLE,1                                                                  
       00175  0 07400 4 01066 TSXD   TSX CHECKA,4                                                                 
       00176  1 00001 1 00177        TXI TXLD,1,1            1 WORD ENTRIES                                       
       00177 -3 00000 1 00174 TXLD   TXL LDQD,1,0                                                                 
       00200  0 76200 0 00222 UPPRTB RTB 2                   NO SCAN OF HOLARG RECORD                             
       00201  0 02000 0 00052        TRA RDREC                                                                    
       00202 -3 00000 1 00052 TEIFNO TXL RDREC,1,0           INITIALIZE END OF ENTRIES TEST                       
       00203  2 00001 1 00205        TIX SAVEE,1,1                                                                
       00204  0 53400 1 01152        LXA IR4,1                                                                    
       00205 -0 63400 1 00214 SAVEE  SXD TXLE,1                                                                   
       00206  0 53400 1 01152        LXA IR4,1                                                                    
       00207  0 50000 1 77633 CLAE   CLA TABLE,1             MINUS ENTRY MEANS BETA IS                            
       00210  0 12000 0 00213        TPL TSTE                DUPLICATED IN SOURCE PROGRAM                         
       00211  0 56000 1 77633        LDQ TABLE,1                                                                  
       00212  0 07400 4 01033 TSXE   TSX ERROR,4                                                                  
       00213  1 00001 1 00214 TSTE   TXI TXLE,1,1                                                                 
       00214 -3 00000 1 00207 TXLE   TXL CLAE,1,0                                                                 
       00215  0 50000 0 01164        CLA ADTIFG                                                                   
       00216  0 62100 0 00056        STA COPY                                                                     
       00217  0 02000 0 00052        TRA RDREC                                                                    
       00220 -3 00000 1 01260 TIFGO  TXL PATIF,1,0           IF NO ENTRIES, IGNORE TRAD IDENTIFICATION            
       00221  2 00002 1 00223        TIX SAVEF,1,2                                                                
       00222  0 53400 1 01152        LXA IR4,1                                                                    
       00223 -0 63400 1 00310 SAVEF  SXD TXLF,1                                                                   
       00224  0 50000 0 01165        CLA ADTRAD              SET READ LOOP TO READ TRAD                           
       00225  0 60100 0 00056        STO COPY                UPWARDS IN MEMORY. BUT                               
       00226  0 50000 0 01166        CLA CPTRAD              KEEP TRACK OF WORD COUNT                             
       00227  0 62100 0 00057        STA CPTXI               AS USUAL                                             
       00230  0 53400 4 01152        LXA IR4,4                                                                    
       00231  0 02000 0 00052        TRA RDREC                                                                    
       00232  0 50000 0 01163 TRAD   CLA ADTABL              RESTORE COPY LOOP                                    
       00233  0 60100 0 00056        STO COPY                                                                     
       00234  0 50000 0 00060        CLA COPYAA                                                                   
       00235  0 62100 0 00057        STA CPTXI                                                                    
       00236  1 77777 4 00237        TXI SXDG,4,-1                                                                
       00237 -0 63400 4 00572 SXDG   SXD BETANB,4            SAVE NUMBER OF ENTRIES IN BETA TABLE                 
       00240  0 50000 0 00030        CLA 24                  ADD ONE TO LAST TEIFNO                               
       00241  0 76100 0 00000        NOP                     GET LAST TEIFNO                                      
       00242  0 77100 0 00022        ARS 18                                                                       
       00243  0 60000 0 75434        STZ BETA                                                                     
       00244  0 62100 0 75434        STA BETA                                                                     
       00245  0 76200 0 00223        RTB 3                                                                        
       00246  0 53400 2 01152        LXA IR4,2               READ IN TABLE OF NON EXECUTABLE                      
       00247  0 70000 0 00000 CPNON  CPY 0                   STATEMENTS AND SAVE                                  
       00250 -0 53400 4 00000        LXD 0,4                 DECREMENT OF TABLE IN                                
       00251  0 02000 0 00253        TRA PXDH                ADDRESS OF MEMORY                                    
       00252  0 02000 0 00257        TRA SAVXNB                                                                   
       00253 -0 75400 4 00000 PXDH   PXD 0,4                                                                      
       00254  0 77100 0 00022        ARS 18                                                                       
       00255  0 60100 2 74303        STO NONEXT,2                                                                 
       00256  1 00001 2 00247        TXI CPNON,2,1                                                                
       00257  2 00001 2 00261 SAVXNB TIX SAVEH,2,1           SET END OF ENTRIES TEST                              
       00260  0 53400 2 01152        LXA IR4,2                                                                    
       00261 -0 63400 2 01055 SAVEH  SXD TXLH,2              SET END OF ENTRIES TEST                              
