                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 220/220 ------           
       00766  0 40200 0 01162        SUB MSK35        IF THERE HAVE BEEN INCONSISTANT                             
       00767 -0 10000 0 00777        TNZ DIAGND                                                                   
       00770  0 53400 1 01152        LXA IR4,1                                                                    
       00771  0 50000 1 77632 NXTEQV CLA TABLE-1,1                                                                
       00772  0 40200 0 01162        SUB MSK35        LAST INCONSISTANCY IS FOLLOWED BY                           
       00773  0 10000 0 00777        TZE DIAGND       ANOTHER WORD OF ONES                                        
       00774  0 56000 1 77632        LDQ TABLE-1,1                                                                
       00775  0 07400 4 01033 NOTEQV TSX ERROR,4                                                                  
       00776  1 00001 1 00771        TXI NXTEQV,1,1                                                               
       00777  0 50000 0 01173 DIAGND CLA ERNBR                                                                    
       01000  0 10000 0 01263        TZE SPACE2       IF NO ERROR, READ IN SECTION II                             
       01001  0 60100 0 00030        STO 24           SAVE FOR BIG D                                              
       01002  0 50000 0 01171        CLA TW13         PUT RECORD NUMBER IN 2 FOR PRINT OUT                        
       01003  0 60100 0 00002        STO 2                                                                        
       01004  0 53400 2 01152        LXA IR4,2                                                                    
       01005  0 76200 0 00201 DIAGRD RTD 1            SPACE OVER REST OF SYSTEM IN FORTRAN                        
       01006  0 70000 0 00000        CPY 0                                                                        
       01007  0 02000 0 01005        TRA DIAGRD                                                                   
       01010  1 00001 2 01011        TXI TST2FL,2,1                                                               
       01011 -3 00001 2 01005 TST2FL TXL DIAGRD,2,1                                                               
       01012  0 76200 0 00221        RTB 1            END FILE SKIP, START TO READ BIG D                          
       01013  0 53400 1 01152        LXA IR4,1                                                                    
       01014  0 70000 1 00031 DCPY   CPY 25,1                                                                     
       01015  1 77777 1 01014        TXI DCPY,1,-1                                                                
       01016  0 76100 0 00000        NOP                                                                          
       01017  0 07400 4 00032 BIGD   TSX 26,4                                                                     
       01020  0 76100 0 00000 REW    NOP              REPLACED BY SPACE2 AT 1263. WAS REWIND                      
       01021  0 76100 0 00000        NOP                                                                          
                                         ENTER WITH AC ZERO. EXIT WITH TSX FROM TABLE                             
                                         WHICH HAS MISSING BETA, IN DEC OF AC AND                                 
                                         ALPHA IN ADDRESS OF AC.                                                  
       01022 -0 63400 4 01170 NOBETA SXD ALFA,4                                                                   
       01023  0 07400 4 01026        TSX SAVALF,4                                                                 
       01024 -0 53400 4 01170        LXD ALFA,4                                                                   
       01025  0 02000 4 00001        TRA 1,4                                                                      
                                         ENTER WITH HASH IN AC. EXIT WITH CONTENTS OF ALPHA IN AC                 
       01026 -0 63400 4 01177 SAVALF SXD ERAS,4                                                                   
       01027 -0 53400 4 01173        LXD ERNBR,4                                                                  
       01030  0 50000 0 01170        CLA ALFA                                                                     
       01031  0 60100 4 77777        STO ERLIST,4                                                                 
       01032  1 00001 4 01044        TXI NEXTA,4,1           SAME RETURN AS ERROR ROUTINE.                        
                                         ENTER WITH MQ=BCD SYMBOL OR HASH,0, ALPHA                                
                                         MAKES 2 WORD ENTRY IN ERROR LIST                                         
                                                  1...KIND OF ERROR,0, TABLE IN WHICH ERROR FOUND                 
                                                  2...CONTENTS OF MQ                                              
                                         EXIT AC HASH, MQ NOT CHANGED                                             
       01033 -0 75400 4 00000 ERROR  PXD 0,4          PUT TSX FROM SECTION SCANNING                               
       01034 -0 53400 4 01173        LXD ERNBR,4      FOR ERROR, IN DEC OF 1ST WORD                               
       01035  0 62200 0 01177        STD ERAS                                                                     
       01036  0 62200 4 77777        STD ERLIST,4                                                                 
       01037  0 50000 0 01152        CLA IR4          PUT TSX FROM DABLE IN WHI+H [*TABLE,WHICH?]                 
       01040  0 77100 0 00022        ARS 18           ERROR WAS FOUND, IN ADDR. OF 1ST WORD                       
       01041  0 62100 4 77777        STA ERLIST,4                                                                 
       01042 -0 60000 4 77776        STQ ERLIST-1,4   PUT MQ IN 2ND WORD                                          
