1                                        ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 211/211 ------           
                        00031        ORG 25                                                                       
                        77777 ERLIST SYN 32767                                                                    
                        77633 TABLE  SYN ERLIST-100                                                               
                        75435  TRADT SYN ERLIST-1250                                                              
                        75434  BETA  SYN ERLIST-1251                                                              
                        75433 TIFGOT SYN ERLIST-1252                                                              
                        75433 ALPHA  SYN ERLIST-1252                                                              
                        74303 NONEXT SYN ERLIST-1852                                                              
       00031  0 77200 0 00202        REW 2                                                                        
       00032  0 77200 0 00203        REW 3                                                                        
       00033  0 53400 4 01151        LXA IR2,4                                                                    
       00034  0 76200 0 00202 RDFILE RTD 2                   WILL READ ANY KIND OF END FILE MARK                  
       00035  0 70000 0 00000        CPY 0                                                                        
       00036  0 02000 0 00034        TRA RDFILE                                                                   
       00037  2 00001 4 00034        TIX RDFILE,4,1           SPACE OVER 2 FILES AND OVER 1ST RECORD OF           
       00040  0 76200 0 00222        RTB 2                    3RD FILE                                            
       00041  0 76100 0 00000        NOP                                                                          
       00042  0 53400 1 01152        LXA IR4,1                                                                    
       00043  0 70000 1 77634  CP    CPY TABLE+1,1                                                                
       00044  1 00001 1 00043        TXI CP,1,1                                                                   
       00045  0 02000 0 00031        TRA825                  START AGAIN, CANNOT GET END FILE                     
       00046  2 00001 1 00124        TIX FORSUB,1,1          DROP COUNT OF 2ND FILE                               
       00047  0 76200 0 00222  OVER  RTB 2                   SPACE OVER END FILE AFTER FORSUB                     
       00050  0 76200 0 00222        RTB 2                   SPACE OVER FLOCON                                    
       00051  0 76200 0 00222        RTB 2                   SPACE OVER FORMAT                                    
       00052  0 53400 1 01152 RDREC  LXA IR4,1                                                                    
       00053  0 76200 0 00222        RTB 2                                                                        
       00054  0 70000 0 01174        CPY IDENT                                                                    
       00055  0 70000 0 01175        CPY WDCONT                                                                   
       00056  0 70000 1 77633  COPY  CPY TABLE,1             ALTERNATE FOR READING TRAD CPY TRAD,2                
       00057  1 00001 1 00056 CPTXI  TXI COPY,1,1                                       TIX COPYAA,1,1            
       00060  1 77777 4 00056 COPYAA TXI COPY,4,-1                                                                
       00061 -0 75400 1 00000        PXD 0,1                                                                      
       00062  0 02000 0 01254  RDA   TRA PTCH                NOP GOES HERE AFTER SIZ TABLES ARE READ              
       00063  0 40200 0 01175 SUBWDS SUB WDCONT                                                                   
       00064  0 10000 0 00135 RDAAB  TZE SIZ          TZE IDNTFY REPLACES THIS AFTER SIZ TABLES READ              
       00065 -0 53400 4 01201        LXD BST,4                                                                    
       00066 -3 00016 4 00072        TXL TRY,4,14                                                                 
       00067  0 56000 0 01174        LDQ IDENT                                                                    
       00070  0 07400 4 01033 BADWC  TSX ERROR,4                                                                  
       00071  0 02000 0 00777        TRA DIAGND                                                                   
       00072  1 00001 4 00073  TRY   TXI RDSXD,4,1                                                                
       00073 -0 63400 4 01201 RDSXD  SXD BST,4                                                                    
       00074  0 76400 0 00202        BST 2                                                                        
       00075  0 02000 0 00052        TRA RDREC                                                                    
       00076  0 60000 0 01201 IDNTFY STZ BST                 FORMAT SIZE AND ALL TAPE TABLES HAVE                 
       00077  0 53400 2 01253        LXA TAPTAB,2            IDENTIFICATION WORD AS FIRST WORD OF                 
       00100  0 50000 0 01174        CLA IDENT               TAPE RECORD, NOT INCLUDED IN WORD                    
       00101  0 34000 2 01253  CAS   CAS TAPTAB,2            COUNT                                                
       00102  0 02000 0 00104        TRA NEXT                                                                     
       00103  0 02000 0 00116        TRA HAVE                                                                     
       00104  2 00002 2 00101  NEXT  TIX CAS,2,2                                                                  
       00105 -0 53400 4 01202        LXD BSTA,4              BACK SPACE RECORD AND TRY AGAIN 15 TIMES             
