9            REM BINARY AND SYMBOLIC SUBROUTINE LOADER FOR 704 FORTRAN II                 
1                                        BINARY AND SYMBOLIC SUBROUTINE LOADER FOR 704 FORTRAN II                 
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 76/960 ------           
                        77477  LIST  SYN 32575                                                                    
                        77452  TABL  SYN 32554                                                                    
                        77453 TOOMCH SYN LIST-20                                                                  
                        00000        ORG 0                                                                        
       00000  0 53400 1 00000  VR    LXA 0,1                                                                      
       00001  0 70000 1 00002  SM    CPY 2,1                                                                      
       00002  1 77777 1 00001        TXI SM,1,-1                                                                  
       00003  0 00000 1 00000  TG    HTR 0,1                                                                      
       00004 -0 76000 0 00007        LTM                                                                          
       00005  0 76200 0 00321 X      RCD                                                                          
       00006  0 70000 1 77452 RB     CPY LIST-21,1                                                                
       00007  1 77777 1 00006  LB    TXI RB,1,-1                                                                  
       00010  0 00000 0 00000 R                                                                                   
       00011  3 77470 1 00005        TXH X,1,-200                                                                 
       00012 -0 53400 1 77715        LXD M,1                                                                      
       00013 -0 63400 1 77715        SXD M,1                                                                      
       00014  0 60000 0 77453        STZ LIST-20                                                                  
       00015  0 76200 0 00321  READ  RCD                                                                          
       00016  0 70000 0 00000        CPY VR                                                                       
       00017  0 02000 0 77500        TRA TEST                                                                     
       00020  0 00000 0 00015        HTR READ                                                                     
       00021  0 60000 2 00000  END   STZ 0,2                                                                      
       00022  2 00001 2 00021        TIX END,2,1                                                                  
       00023  0 14000 0 00024        TOV PROG                                                                     
 A     00024  0 02000 0 00000  PROG  TRA                                                                          
       00025  0 00000 0 00000 T                                                                                   
       00026  0 00000 0 00030  S         24                                                                       
       00027 +000000077777     ADDRS OCT 000000077777                                                             
                        77500        ORG LIST+1                                                                   
       77500  0 50000 0 00000  TEST  CLA VR                                                                       
       77501  0 70000 0 00001        CPY SM                                                                       
       77502 -0 12000 0 77626        TMI PASS1              PREFIX IS  4 IF PROGRAM CARD                          
       77503  0 10000 0 00015        TZE READ                                                                     
       77504  0 60000 0 77777        STZ PRTST              SIGNAL END LOADING SEQUENTIAL PROG. CARDS             
       77505 -0 53400 1 00000        LXD VR,1                                                                     
       77506 -3 00037 1 77516        TXL REG,1,31                                                                 
       77507  3 00040 1 00000        TXH 0,1,32                                                                   
       77510  0 62100 0 00025        STA T                                                                        
       77511  0 40000 0 00026        ADD S                                                                        
       77512  0 62100 0 00026        STA S                                                                        
       77513  0 50000 0 00001        CLA SM                                                                       
       77514  0 62100 0 77520        STA U                                                                        
       77515  0 02000 0 00015        TRA READ                                                                     
       77516  0 62100 0 00010  REG   STA R                                                                        
       77517  0 77100 0 00017        ARS 15                                                                       
       77520 -0 73400 4 00000  U     PDX 0,4                                                                      
       77521 -3 00001 4 77524        TXL NR,4,1                                                                   
       77522  0 07400 2 77611        TSX LT,2                                                                     
       77523  0 62100 0 00010        STA R                                                                        
       77524 -0 50000 0 00000  NR    CAL VR                                                                       
       77525  0 77100 0 00022        ARS 18                                                                       
       77526  0 40000 0 00010        ADD R                                                                        
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 77/961 ------           
       77527  0 62100 0 77531        STA TR                                                                       
       77530 -0 53400 2 00000        LXD VR,2                                                                     
 D     77531 -3 00000 2 00000  TR    TXL 0,2                                                                      
       77532  0 62100 0 77577        STA TA                                                                       
       77533  0 62100 0 77601        STA SA                                                                       
       77534  0 62100 0 77572        STA SD                                                                       
       77535  0 62100 0 77566        STA TD                                                                       
       77536  0 62100 0 77543  B     STA CP                                                                       
       77537 -0 50000 0 00000        CAL VR                                                                       
       77540 -3 00001 4 77543        TXL CP,4,1                                                                   
       77541 -0 70000 0 00007        CAD LB                                                                       
       77542 -0 70000 0 00006        CAD RB                                                                       
       77543 -0 70000 2 00000  CP    CAD 0,2                                                                      
       77544  2 00001 2 77543        TIX CP,2,1                                                                   
       77545 -3 00000 4 77551        TXL CT,4,0                                                                   
       77546 -3 00001 4 00015        TXL READ,4,1                                                                 
       77547 -3 00002 4 77551        TXL CT,4,2                                                                   
       77550 -3 00003 4 77561        TXL RL,4,3                                                                   
       77551  0 60200 0 00000  CT    SLW VR                                                                       
       77552  0 50000 0 00001        CLA SM                                                                       
       77553  0 10000 0 77557        TZE RT                                                                       
       77554  0 40200 0 00000        SUB VR                                                                       
       77555  0 10000 0 77557        TZE RT                                                                       
       77556  0 42000 0 00000        HPR                                                                          
       77557 -3 00001 4 00015  RT    TXL READ,4,1                                                                 
       77560  3 00003 4 77642        TXH SR,4,3                                                                   
       77561  0 56000 0 00006  RL    LDQ RB                                                                       
       77562  0 50000 0 00007  DB    CLA LB                                                                       
       77563 -0 76300 0 00001        LGL 1                                                                        
       77564  0 60200 0 00007        SLW LB                                                                       
       77565  0 12000 0 77573        TPL AB                                                                       
       77566  0 50000 1 00000  TD    CLA 0,1                                                                      
       77567  0 77100 0 00022        ARS 18                                                                       
       77570  0 07400 2 77604        TSX CB,2                                                                     
       77571  0 76700 0 00022        ALS 18                                                                       
       77572  0 62200 1 00000  SD    STD 0,1                                                                      
       77573  0 50000 0 00007  AB    CLA LB                                                                       
       77574 -0 76300 0 00001        LGL 1                                                                        
       77575  0 60200 0 00007        SLW LB                                                                       
       77576  0 12000 0 77602        TPL TV                                                                       
       77577  0 50000 1 00000  TA    CLA 0,1                                                                      
       77600  0 07400 2 77604        TSX CB,2                                                                     
       77601  0 62100 1 00000  SA    STA 0,1                                                                      
       77602  2 00001 1 77562  TV    TIX DB,1,1                                                                   
       77603  0 02000 0 00015        TRA READ                                                                     
       77604  0 62100 0 00010  CB    STA R                                                                        
       77605  0 50000 0 00007        CLA LB                                                                       
       77606 -0 76300 0 00001        LGL 1                                                                        
       77607  0 60200 0 00007        SLW LB                                                                       
       77610 -0 12000 0 77612        TMI LTA     WILL ADDRESS BE MISLEADING                                       
       77611  0 76000 0 00141   LT   SLN 1       NO, CODE IS 10, TURN ON SENSE LIGHT                              
       77612  0 50200 0 00010  LTA   CLS R       DOES THIS ADDRESS REFER TO PROGRAM OR DATA                       
       77613  0 40000 0 00025        ADD T                                                                        
       77614  0 12000 0 77622        TPL ADDS                                                                     
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 78/962 ------           
       77615 -0 76000 0 00141        SLT 1       APPEARS TO BE DATA, BUT WHAT WAS CODE                            
       77616  0 02000 0 77624        TRA PROGRM  ACTUALLY PROGRAM, ADD CURRENT INCREMENT                          
       77617  0 50000 0 00010  DATA  CLA R       IS DATA REFERENCE, DECREMENT                                     
       77620  0 40100 0 77520        ADM U                                                                        
       77621  0 02000 2 00001        TRA 1,2                                                                      
       77622 -0 76000 0 00141  ADDS  SLT 1       APPEARS TO BE PROGRAM, WHAT WAS CODE                             
       77623  0 02000 0 77617        TRA DATA    ACTUALLY IS DATA REFERENCE, DECREMENT                            
       77624  0 40200 0 00026 PROGRM SUB S                                                                        
       77625  0 02000 2 00001        TRA 1,2                                                                      
       77626 -0 73400 2 00000  PASS1 PDX 0,2                - WORD COUNT IN DEC. OF AC                            
       77627 -3 00000 2 77770        TXL PASS2,2,0          WORD COUNT IS 0, GO TO 2ND PASS                       
       77630  0 40000 0 77771        ADD TAG                - LENGTH OF SYMB. TABLE IN DEC.                       
       77631  0 40000 0 77640        ADD DECTWO             TO ALLOW SPACE IN TABLE FOR LOC. + LENGTH             
       77632  0 62200 0 77713        STD STOP               STORE NEW LENGTH IN INST. TO STOP RELOC.              
       77633  0 40200 0 77715        SUB M                  ADDRS. TABLE + 1 - WORD COUNT + LENGTH TAB            
       77634  0 62200 0 77667        STD OVLP               STORE L0WEST ADDRS. FOUND, TO COMPARE TO S            
       77635  0 36100 0 00000        ACL VR                                                                       
       77636  0 40200 0 77640        SUB DECTWO                                                                   
       77637  0 77100 0 00022        ARS 18                                                                       
       77640  2 00002 2 77641 DECTWO TIX TXB,2,2                                                                  
       77641  0 07400 4 77536 TXB    TSX B,4               FORCE IR 4 FOR CHECK SUM, BUT NOT RELOCATE             
       77642 -0 53400 1 77771  SR    LXD TAG,1              LOAD OLD TABLE LENGTH                                 
       77643  0 50000 0 77777        CLA PRTST              HAS ANOTHER PROGRAM CARD PRECEEDED                    
       77644  0 10000 0 77652        TZE ONLY1              THIS ONE                                              
       77645  0 50000 0 00007        CLA LB                 YES, LB HAS NAME, RB HAS                              
       77646  0 60100 1 77451        STO TABL-1,1           ENTRY POINT                                           
       77647  0 50000 0 00006        CLA RB                                                                       
       77650  0 60100 1 77452        STO TABL,1                                                                   
       77651  2 00002 1 77704        TIX NCARDS,1,2         SKIP, COMPARISONS ALREADY DONE                        
       77652  0 50000 0 00026  ONLY1 CLA S                  STORE LOCATION OF TRA VECTOR IN                       
       77653  0 60000 1 77451        STZ TABL-1,1                                                                 
       77654  0 60100 1 77452        STO TABL,1            SYMBOL TABLE,  S  HAS ADDRESS ONLY                     
       77655 -0 53400 4 00007        LXD LB,4                                                                     
       77656  3 00000 4 77661        TXH CLAS,4,0                                                                 
       77657  0 50000 0 77776        CLA BTMASK                                                                   
       77660  0 60100 1 77451        STO TABL-1,1                                                                 
       77661  0 50000 0 00007  CLAS  CLA LB                 STORE LENGTH OF VECTOR IN                             
       77662  0 62200 1 77451        STD TABL-1,1           SYMBOL TABLE                                          
       77663  0 62100 0 00025        STA T                  STORE LENGTH OF ROUTINE IN T                          
       77664  0 40000 0 00026        ADD S                  UPDATE S                                              
       77665  0 62100 0 00026        STA S                                                                        
       77666  0 73400 2 00000        PAX 0,2                COMPARE S TO LOWEST ADDRESS OF TABLE                  
       77667  3 00000 2 00003 OVLP   TXH TG,2,0             TRA TG, TABLE + INST. OVERLAP                         
       77670  0 50000 0 77520        CLA U                  FIND LOWEST ADDRESS DATA WILL USE                     
       77671  0 40200 0 00006        SUB RB                                                                       
       77672  0 73400 4 00000        PAX 0,4                                                                      
       77673 -0 75400 4 00000        PXD 0,4                                                                      
       77674  0 77100 0 00022        ARS 18                                                                       
       77675  0 10000 0 77677        TZE ACLA                                                                     
       77676  0 34000 0 00027        CAS ADDRS                                                                    
       77677  0 50000 0 00027 ACLA   CLA ADDRS                                                                    
       77700  0 76100 0 00000        NOP                                                                          
       77701  0 60100 0 00027        STO ADDRS                                                                    
       77702  0 40200 0 00026        SUB S                                                                        
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 79/963 ------           
       77703 -0 12000 0 77453        TMI TOOMCH             TRA TOOMCH, DATA + INSTR. WILL OVERLAP                
       77704 -0 63400 2 77777 NCARDS SXD PRTST,2           SIGNAL TO SEQUENTIAL PROGRAM CARDS                     
       77705  0 60000 0 00007        STZ LB                 MAY COMPLEMENT IF 1 IS FOUND                          
       77706  1 00002 1 77707        TXI LTT,1,2            TO GET PAST LOC. + LENGTH OF VECTOR                   
       77707  0 50000 1 77452 LTT    CLA TABL,1                                                                   
       77710  0 07400 2 77604        TSX CB,2               RELOCATE ENTRY POINTS IN TABLE                        
       77711  0 62100 1 77452        STA TABL,1                                                                   
       77712  1 00002 1 77713        TXI STOP,1,2                                                                 
       77713 -3 00000 1 77707  STOP  TXL LTT,1,0                                                                  
       77714 -0 63400 1 77771        SXD TAG,1              SAVE LENGTH OF TABLE                                  
       77715 -2 77452 0 00015 M      TNX READ,0,TABL                                                              
       77716 -0 50000 2 77453  VEC   CAL TABL+1,2                                                                 
       77717 -0 10000 0 77723        TNZ G3                                                                       
       77720  0 50000 2 77454        CLA TABL+2,2                                                                 
       77721  0 62100 0 00024        STA PROG                                                                     
       77722  0 02000 0 77770        TRA PASS2                                                                    
       77723 -0 32000 0 77776  G3    ANA BTMASK                                                                   
       77724 -0 10000 0 77770        TNZ PASS2                                                                    
       77725  0 50000 2 77453        CLA TABL+1,2                                                                 
       77726 -0 73400 4 00000  OLDU  PDX 0,4                LENGTH OF VECTOR                                      
       77727  0 77100 0 00022        ARS 18                                                                       
       77730  0 40000 2 77454        ADD TABL+2,2           PLUS LOACTION OF VECTOR                               
       77731  0 62100 0 77736        STA A                                                                        
       77732  0 62100 0 77764        STA AA                                                                       
       77733  0 62100 0 77766        STA AAA                                                                      
       77734  0 62100 0 77741        STA ABB                                                                      
       77735 -0 53400 1 77771  NXTVC LXD TAG,1              LENGTH OF SYMBOL TABLE                                
       77736 -0 50000 4 00000 A      CAL 0,4                                                                      
       77737 -0 32000 0 77776        ANA BTMASK                                                                   
       77740  0 10000 0 77767        TZE TIXVEC                                                                   
       77741  0 50000 4 00000  ABB   CLA 0,4                LOOK FOR FIRST NAME IN TRA VECTOR                     
       77742  0 34000 1 77453 NXTNAM CAS TABL+1,1           IN SYMBOL TABLE                                       
       77743  0 02100 0 77745  TTR   TTR G4                                                                       
       77744  0 02000 0 77763        TRA FIX                                                                      
       77745  2 00002 1 77742  G4    TIX NXTNAM,1,2         LOOK AT NEXT NAME IN TABLE                            
       77746  0 60100 0 00006 SAVNAM STO RB                                                                       
       77747 -0 53400 1 77753        LXD TWTY,1                                                                   
       77750  0 50000 1 77477  CMPR  CLA LIST,1                                                                   
       77751  0 10000 0 77757        TZE STONAM             STORE IN FIRST EMPTY CELL                             
       77752  0 34000 0 00006        CAS RB                 IF NEW NAME                                           
       77753 -2 00024 0 77755  TWTY  TNX G2,0,20                                                                  
       77754  0 02000 0 77767        TRA TIXVEC             ALREADY IN TABLE, IGNORE                              
       77755  2 00001 1 77750  G2    TIX CMPR,1,1                                                                 
       77756  0 00000 0 77770        HTR PASS2             MORE THAN 20 ENTRIES TO BE SEARCHED FOR                
       77757  0 50000 0 00006 STONAM CLA RB                                                                       
       77760  0 60100 1 77477        STO LIST,1                                                                   
       77761  0 60000 1 77500        STZ LIST+1,1                                                                 
       77762  0 02000 0 77767        TRA TIXVEC                                                                   
       77763  0 50000 0 77743  FIX   CLA TTR                                                                      
       77764  0 60100 4 00000  AA    STO 0,4                                                                      
       77765  0 50000 1 77454        CLA TABL+2,1                                                                 
       77766  0 62100 4 00000  AAA   STA 0,4                                                                      
       77767  2 00001 4 77735 TIXVEC TIX NXTVC,4,1          GET NEXT NAME IN VECTOR                               
       77770  1 00002 2 77771  PASS2 TXI TAG,2,2            IR 2 IS 0 AT BEGINING                                 
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 80/964 ------           
       77771 -3 00000 2 77716  TAG   TXL VEC,2,0                                                                  
       77772  0 50000 0 77453        CLA TABL+1             0 IF ALL NAMES WERE FOUND                             
       77773 -0 10000 0 77775        TNZ SEARCH                                                                   
       77774  1 00324 2 00021        TXI END,2,212          CLEARS SYMBOL TABLE, LIST + LOADER                    
       77775  0 00000 0 00014 SEARCH HTR READ-1                                                                   
       77776 -300000000000    BTMASK OCT 700000000000                                                             
       77777  0 00000 0 00000  PRTST                                                                              
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     230           0           0           0           0
 LIB       0           0           0           0           0
 COL     230           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      237                  
0NUMBER OF SYMBOLS,  DEF    74,DEFOP     0,UNDEF     0      
9            REM MU LBL 3  0026 CARDS  LOWER BINARY LOADER-ONE CARD           MULBL301    
1                                        MU LBL 3  0026 CARDS  LOWER BINARY LOADER-ONE CARD           MULBL301    
       00000  0 53400 4 00000  LBL3  LXA 0,4         CLEAR IR4                                        LBL30002    
       00001  0 70000 4 00002        CPY 2,4         COPY LOADER INTO 2,3, ETC                        LBL30003    
       00002  1 77777 4 00001        TXI 1,4,32767   REPEAT UNTIL LOADER IN                           LBL30004    
       00003  0 00000 0 00037        HTR 31          MASK FOR WORD COUNT                              LBL30005    
       00004 -0 76000 0 00007        LTM             END OF CARD, LEAVE TRAPPING MODE                 LBL30006    
       00005  0 76200 0 00321        RCD             SELECT CARD READER                               LBL30007    
       00006  0 70000 0 00000        CPY 0           9L IN 0 AND MQ                                   LBL30008    
       00007  0 76300 0 00021        LLS 17          WORD COUNT IN AC ADDRESS                         LBL30009    
       00010 -0 32000 0 00003        ANA 3           EXTRACT WORD COUNT (=WC)                         LBL30010    
       00011  0 70000 0 00001        CPY 1           9R IN 1 (CHECK SUM)                              LBL30011    
       00012  0 10000 0 00000        TZE 0           IF WC=0, HAVE TRANSFER CARD, GO TO IT            LBL30012    
       00013  0 73400 4 00000        PAX 0,4         IF WC NOT 0, PUT IT IN IR4                       LBL30013    
       00014  0 40000 0 00000        ADD 0           (WC+LA) IN AC ADDRESS (LA=LOAD ADDRESS)          LBL30014    
       00015  0 62100 0 00020        STA 16          PLANT (WC+LA) AS CPY ADDRESS                     LBL30015    
       00016  0 62100 0 00021        STA 17          AND AS ACL ADDRESS                               LBL30016    
       00017 -0 50000 0 00000        CAL 0           PREPARE FOR LOGICAL SUM                          LBL30017    
       00020  0 70000 4 00000        CPY 0,4         COPY WORD FORM BINARY CARD                       LBL30018    
       00021  0 36100 4 00000        ACL 0,4         AND ADD IT TO LOGICAL SUM                        LBL30019    
       00022  2 00001 4 00020        TIX 16,4,1      REPEATING UNTIL DONE                             LBL30020    
       00023  0 60200 0 00002        SLW 2           FORM (CARD SUM) - (CHECK SUM)                    LBL30021    
       00024  0 50000 0 00002        CLA 2           X                                                LBL30022    
       00025  0 40200 0 00001        SUB 1           X                                                LBL30023    
       00026  0 10000 0 00005        TZE 5           IF 0, PROCEED TO NEXT CARD                       LBL30024    
       00027  0 00000 0 00005        HTR 5           IF NOT 0, HALT, PROCEED ON START                 LBL30025    
                        00000        END 0                                                            LBL30026    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      27           0           0           0           0
 LIB       0           0           0           0           0
 COL      27           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       35                  
0NUMBER OF SYMBOLS,  DEF     1,DEFOP     0,UNDEF     0      
9            REM TAPE DUPLICATING PROGRAM    F2TCVP                                       
1                                        TAPE DUPLICATING PROGRAM    F2TCVP                                       
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 71/955 ------           
                        00030        ORG 24                                                                       
       00030  0 77200 0 00225 DUP000 REW SOURCE                                                                   
       00031  0 77200 0 00221        REW OBJECT                                                                   
       00032 -0 76000 0 00012        RTT                   TURN OFF RTT TRIGGER                                   
 ATD   00033  3 00000 0 00000        TXH                                                                          
       00034 -0 53400 7 00040        LXD DUP020,7          INITIALIZE INDEX REGISTERS TO 27                       
       00035  0 76200 0 00225        RDS SOURCE            READ 1-CS FROM SOURCE                                  
       00036  0 70000 1 00507 DUP010 CPY RECORD+27,1                                                              
       00037  1 77777 1 00036        TXI DUP010,1,-1                                                              
       00040  0 00033 0 00000 DUP020 HTR 0,0,27            MACHINE ERROR                                          
       00041  0 76600 0 00333        IOD                   EOR-DELAY                                              
       00042 -0 76000 0 00012        RTT                                                                          
       00043  0 00000 0 00030        HTR DUP000            RTT ERROR-- TRY AGAIN                                  
       00044  0 76600 0 00221        WRS OBJECT            WRITE 1-CS ONTO OBJECT                                 
       00045  0 70000 2 00507 DUP030 CPY RECORD+27,2                                                              
       00046  2 00001 2 00045        TIX DUP030,2,1                                                               
       00047  0 76600 0 00333        IOD                                                                          
       00050 -0 76000 0 00012        RTT                   TURN OFF RTT TRIGGER                                   
       00051  3 00000 0 00156 DUP031 TXH DUP170,0,0                                                               
       00052  0 76400 0 00221        BST OBJECT                                                                   
       00053  0 76200 0 00221        RDS OBJECT            READ BACK 1-CS FROM OBJECT                             
       00054  0 70000 0 00453 DUP040 CPY DUMMY                                                                    
       00055  0 02000 0 00060        TRA DUP050                                                                   
 A     00056  0 00000 0 00000        HTR                                                                          
       00057  0 02000 0 00065        TRA DUP060            EOR                                                    
       00060  0 50000 4 00507 DUP050 CLA RECORD+27,4                                                              
       00061  0 34000 0 00453        CAS DUMMY                                                                    
       00062  0 00000 0 00030        HTR DUP000            WORD COMP. FAILS-READING                               
       00063  1 77777 4 00054        TXI DUP040,4,-1                                                              
       00064  0 00000 0 00030        HTR DUP000            FROM OBJECT                                            
       00065  3 00000 4 00321 DUP060 TXH DUP280,4,0        ERROR-INCOMPLETE OBJECT RECORD                         
       00066  0 76600 0 00333        IOD                                                                          
       00067 -0 76000 0 00012        RTT                                                                          
       00070  0 00000 0 00030        HTR DUP000            RTT ERROR READING BACK OBJECT 1-CS                     
       00071 -0 53400 7 00051 DUP070 LXD DUP031,7          INITIALIZE INDEX REG TO 0                              
 T     00072 -0 75400 0 00000        PXD                   CLEAR AC                                               
       00073  0 76200 0 00225 DUP071 RDS SOURCE            READ SOURCE  1ST/2ND FILE RECORD                       
       00074  0 70000 1 00454        CPY RECORD,1                                                                 
       00075  1 77777 1 00100        TXI DUP090,1,-1                                                              
       00076  0 02000 0 00144 DUP080 TRA DUP160            EOF                                                    
 A     00077  0 00000 0 00000        HTR                   MACNINE ERROR                                          
       00100 -0 70000 1 00454 DUP090 CAD RECORD,1                                                                 
       00101  1 77777 1 00100        TXI DUP090,1,-1                                                              
 A     00102  0 00000 0 00000        HTR                   MACHINE ERROR                                          
       00103  0 76000 0 00006        COM                   EOR                                                    
       00104  0 36100 0 00454        ACL RECORD                                                                   
       00105  0 76000 0 00006        COM                                                                          
       00106  0 10000 0 00110        TZE DUP100                                                                   
       00107  0 00000 0 00322        HTR DUP290            CKSM FAILS READING SOURCE 1ST/2ND FILE                 
       00110  0 76600 0 00333 DUP100 IOD                                                                          
       00111 -0 76000 0 00012        RTT                                                                          
       00112  0 00000 0 00324        HTR DUP300            RTT ERROR-BST AND TRY AGAIN                            
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 72/956 ------           
       00113 -0 63400 1 00120        SXD DUP120,1                                                                 
       00114 -0 63400 1 00137        SXD DUP150,1                                                                 
       00115  0 76600 0 00221        WRS OBJECT            WRITE OBJECT 1ST/2ND FILE RECORD                       
       00116  0 70000 2 00454 DUP110 CPY RECORD,2                                                                 
       00117  1 77777 2 00120        TXI DUP120,2,-1                                                              
       00120  3 00000 2 00116 DUP120 TXH DUP110,2,**                                                              
       00121  0 76600 0 00333 DUP121 IOD                                                                          
       00122 -0 76000 0 00012        RTT                   TURN OFF RTT TRIGGER                                   
 ATD   00123  3 00000 0 00000        TXH                                                                          
       00124  0 76400 0 00221        BST OBJECT                                                                   
       00125  0 76200 0 00221        RDS OBJECT            READ BACK OBJECT 1ST/2ND FILE RECORD                   
       00126  0 70000 0 00453 DUP130 CPY DUMMY                                                                    
       00127  0 02000 0 00132        TRA DUP140                                                                   
 A     00130  0 00000 0 00000        HTR                   MACHINE ERROR                                          
       00131  0 02000 0 00137        TRA DUP150            EOR                                                    
       00132  0 50000 4 00454 DUP140 CLA RECORD,4                                                                 
       00133  0 34000 0 00453        CAS DUMMY                                                                    
       00134  0 00000 0 00326        HTR DUP310            C0MP. ERROR ON 1ST/2ND FILE RECORD                     
       00135  1 77777 4 00126        TXI DUP130,4,-1                                                              
       00136  0 00000 0 00326        HTR DUP310            DITTO                                                  
       00137  3 00000 4 00330 DUP150 TXH DUP320,4,**       ERROR-INCOMPLETE OBJECT RECORD                         
       00140  0 76600 0 00333        IOD                                                                          
       00141 -0 76000 0 00012        RTT                                                                          
       00142  0 00000 0 00326        HTR DUP310            RTT ERROR-BST AND TRY AGAIN                            
       00143  0 02000 0 00071        TRA DUP070                                                                   
       00144  0 76600 0 00333 DUP160 IOD                                                                          
       00145 -0 76000 0 00012        RTT                                                                          
       00146  0 00000 0 00336        HTR DUP340            RTT ERROR - BST TWICE ON SOURCE                        
       00147  0 77000 0 00221        WEF OBJECT            WRITE 1ST EOF                                          
       00150  0 76600 0 00333        IOD                                                                          
       00151 -0 76000 0 00012        RTT                   TURN OFF RTT TRIGGER                                   
 ATD   00152  3 00000 0 00000        TXH                                                                          
       00153  0 50000 0 00051        CLA DUP031                                                                   
       00154  0 62100 0 00076        STA DUP080                                                                   
       00155  0 02000 0 00071        TRA DUP070                                                                   
       00156  0 76600 0 00333 DUP170 IOD                                                                          
       00157 -0 76000 0 00012        RTT                                                                          
       00160  0 00000 0 00336        HTR DUP340            RTT ERROR- BST TWICE ON SOURCE                         
       00161  0 77000 0 00221        WEF OBJECT            WRITE 2ND EOF                                          
       00162  0 76600 0 00333 DUP171 IOD                                                                          
       00163 -0 76000 0 00012        RTT                   TURN OFF RTT TRIGGER                                   
 ATD   00164  3 00000 0 00000        TXH                                                                          
       00165 -0 53400 7 00051 DUP180 LXD DUP031,7          INITIALIZE INDEX REG TO 0                              
 T     00166 -0 75400 0 00000        PXD                   CLEAR AC                                               
       00167  0 76200 0 00225 DUP181 RDS SOURCE            READ SOURCE 3RD FILE RECORD                            
       00170 -0 70000 1 00454        CAD RECORD,1                                                                 
       00171  1 77777 1 00174        TXI DUP190,1,-1                                                              
       00172  0 02000 0 00242        TRA DUP270            EOF                                                    
 A     00173  0 00000 0 00000        HTR                   MACHINE ERROR                                          
       00174  0 70000 1 00454 DUP190 CPY RECORD,1          CPY CKSM INTO RECORD+1                                 
       00175  1 77777 1 00176        TXI DUP200,1,-1                                                              
       00176 -0 70000 1 00454 DUP200 CAD RECORD,1                                                                 
       00177  1 77777 1 00176        TXI DUP200,1,-1                                                              
 A     00200  0 00000 0 00000        HTR                   MACHINE ERROR                                          
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 73/957 ------           
       00201  0 76000 0 00006        COM                   EOR                                                    
       00202  0 36100 0 00455        ACL RECORD+1                                                                 
       00203  0 76000 0 00006        COM                                                                          
       00204  0 10000 0 00206        TZE DUP210                                                                   
       00205  0 00000 0 00342        HTR DUP350            CKSM FAILS READING SOURCE 3RD FILE                     
       00206  0 76600 0 00333 DUP210 IOD                                                                          
       00207 -0 76000 0 00012        RTT                                                                          
       00210  0 00000 0 00342        HTR DUP350            RTT ERROR-BST                                          
       00211 -0 63400 1 00216        SXD DUP230,1                                                                 
       00212 -0 63400 1 00235        SXD DUP260,1                                                                 
       00213  0 76600 0 00221        WRS OBJECT            WRITE OBJECT 3RD FILE RECORD                           
       00214  0 70000 2 00454 DUP220 CPY RECORD,2                                                                 
       00215  1 77777 2 00216        TXI DUP230,2,-1                                                              
       00216  3 00000 2 00214 DUP230 TXH DUP220,2,**                                                              
       00217  0 76600 0 00333 DUP231 IOD                                                                          
       00220 -0 76000 0 00012        RTT                   TURN 0FF RTT TRIGGER                                   
 ATD   00221  3 00000 0 00000        TXH                                                                          
       00222  0 76400 0 00221        BST OBJECT                                                                   
       00223  0 76200 0 00221        RDS OBJECT            READ BACK  OBJECT 3RD FILE RECORD                      
       00224  0 70000 0 00453 DUP240 CPY DUMMY                                                                    
       00225  0 02000 0 00230        TRA DUP250                                                                   
 A     00226  0 00000 0 00000        HTR                   MACHINE ERROR                                          
       00227  0 02000 0 00235        TRA DUP260            EOR                                                    
       00230  0 50000 4 00454 DUP250 CLA RECORD,4                                                                 
       00231  0 34000 0 00453        CAS DUMMY                                                                    
       00232  0 00000 0 00344        HTR DUP360            COMP. ERROR ON 3RD FILE                                
       00233  1 77777 4 00224        TXI DUP240,4,-1                                                              
       00234  0 00000 0 00344        HTR DUP360            ERROR- INCOMPLETE OBJECT RECORD                        
 D     00235  3 00000 4 00346 DUP260 TXH DUP370,4                                                                 
       00236  0 76600 0 00333        IOD                                                                          
       00237 -0 76000 0 00012        RTT                                                                          
       00240  0 00000 0 00344        HTR DUP360            RTT ERROR-BST                                          
       00241  0 02000 0 00165        TRA DUP180                                                                   
       00242  0 76600 0 00333 DUP270 IOD                                                                          
       00243 -0 76000 0 00012        RTT                                                                          
       00244  0 00000 0 00352        HTR DUP390            RTT ERROR - BST TWICE                                  
       00245  0 77000 0 00221        WEF OBJECT            WRITE 3RD FILE EOF                                     
       00246 -0 53400 7 00051 FILE40 LXD DUP031,7          DUPLICATE FILE 4                                       
 T     00247 -0 75400 0 00000        PXD                                                                          
       00250  0 76200 0 00225        RDS SOURCE            READ SOURCE FILE 4 RECORD                              
       00251  0 70000 1 00454 FILE41 CPY RECORD,1                                                                 
       00252  1 77777 1 00251        TXI FILE41,1,-1                                                              
       00253  0 02000 0 00310        TRA FILE47            EOF                                                    
       00254  0 76600 0 00333        IOD                   EOR                                                    
       00255 -0 76000 0 00012        RTT                                                                          
       00256  0 00000 0 00356        HTR FIL4E1            RTT ERROR - BST AND TRY AGAIN                          
       00257 -0 63400 1 00264        SXD FILE43,1                                                                 
       00260 -0 63400 1 00303        SXD FILE46,1                                                                 
       00261  0 76600 0 00221        WRS OBJECT            WRITE OBJECT 4TH FILE RECORD                           
       00262  0 70000 2 00454 FILE42 CPY RECORD,2                                                                 
       00263  1 77777 2 00264        TXI FILE43,2,-1                                                              
       00264  3 00000 2 00262 FILE43 TXH FILE42,2,**                                                              
       00265  0 76600 0 00333 FILE50 IOD                                                                          
       00266 -0 76000 0 00012        RTT                   TURN OFF RTT TRIGGER                                   
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 74/958 ------           
 ATD   00267  3 00000 0 00000        TXH                                                                          
       00270  0 76400 0 00221        BST OBJECT                                                                   
       00271  0 76200 0 00221        RDS OBJECT            READ BACK OBJECT 4TH FILE RECORD                       
       00272  0 70000 0 00453 FILE44 CPY DUMMY                                                                    
       00273  0 02000 0 00276        TRA FILE45                                                                   
 A     00274  0 00000 0 00000        HTR                   MACHINE ERROR                                          
       00275  0 02000 0 00303        TRA FILE46            EOR                                                    
       00276  0 50000 4 00454 FILE45 CLA RECORD,4                                                                 
       00277  0 34000 0 00453        CAS DUMMY                                                                    
       00300  0 00000 0 00360        HTR FIL4E2            COMP. ERROR ON 4TH FILE RECORD                         
       00301  1 77777 4 00272        TXI FILE44,4,-1                                                              
       00302  0 00000 0 00360        HTR FIL4E2            COMP. ERROR ON 4TH FILE RECORD                         
       00303  3 00000 4 00366 FILE46 TXH FIL4E4,4,**       ERROR - INCOMPLETE OBJECT RECORD                       
       00304  0 76600 0 00333        IOD                                                                          
       00305 -0 76000 0 00012        RTT                                                                          
       00306  0 00000 0 00360        HTR FIL4E2            RTT ERROR - BST AND TRY AGAIN                          
       00307  0 02000 0 00246        TRA FILE40                                                                   
       00310  0 76600 0 00333 FILE47 IOD                                                                          
       00311 -0 76000 0 00012        RTT                                                                          
       00312  0 00000 0 00362        HTR FIL4E3            RTT ERROR - BST TWICE ON SOURCE                        
       00313  0 77000 0 00221        WEF OBJECT            WRITE 4TH FILE EOF                                     
       00314  0 77200 0 00225        REW SOURCE                                                                   
       00315  0 77200 0 00221        REW OBJECT                                                                   
       00316 -0 76000 0 00012        RTT                                                                          
 ATD   00317  3 00000 0 00000        TXH                                                                          
 A     00320  0 00000 0 00000        HTR                   FINAL STOP.                                            
       00321  0 00000 0 00030 DUP280 HTR DUP000                                                                   
       00322 -0 76000 0 00012 DUP290 RTT                                                                          
 ATD   00323  3 00000 0 00000        TXH                                                                          
       00324  0 76400 0 00225 DUP300 BST SOURCE                                                                   
       00325  0 02000 0 00071        TRA DUP070                                                                   
       00326 -0 53400 4 00051 DUP310 LXD DUP031,4                                                                 
       00327  0 02000 0 00121        TRA DUP121                                                                   
       00330  0 00000 0 00331 DUP320 HTR DUP330                                                                   
       00331 -0 76000 0 00012 DUP330 RTT                                                                          
 ATD   00332  3 00000 0 00000        TXH                                                                          
       00333  0 76400 0 00225        BST SOURCE                                                                   
       00334  0 76400 0 00221        BST OBJECT                                                                   
       00335  0 02000 0 00071        TRA DUP070                                                                   
       00336  0 76400 0 00225 DUP340 BST SOURCE                                                                   
       00337  0 76400 0 00225        BST SOURCE                                                                   
       00340  0 76200 0 00225        RDS SOURCE                                                                   
       00341  0 02000 0 00073        TRA DUP071                                                                   
       00342  0 76400 0 00225 DUP350 BST SOURCE                                                                   
       00343  0 02000 0 00162        TRA DUP171                                                                   
       00344 -0 53400 4 00051 DUP360 LXD DUP031,4                                                                 
       00345  0 02000 0 00217        TRA DUP231                                                                   
       00346  0 00000 0 00347 DUP370 HTR DUP380                                                                   
       00347  0 76400 0 00225 DUP380 BST SOURCE                                                                   
       00350  0 76400 0 00221        BST OBJECT                                                                   
       00351  0 02000 0 00162        TRA DUP171                                                                   
       00352  0 76400 0 00225 DUP390 BST SOURCE                                                                   
       00353  0 76400 0 00225        BST SOURCE                                                                   
       00354  0 76200 0 00225        RDS SOURCE                                                                   
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 75/959 ------           
       00355  0 02000 0 00167        TRA DUP181                                                                   
       00356  0 76400 0 00225 FIL4E1 BST SOURCE                                                                   
       00357  0 02000 0 00246        TRA FILE40                                                                   
       00360 -0 53400 4 00051 FIL4E2 LXD DUP031,4                                                                 
       00361  0 02000 0 00265        TRA FILE50                                                                   
       00362  0 76400 0 00225 FIL4E3 BST SOURCE                                                                   
       00363  0 76400 0 00225        BST SOURCE                                                                   
       00364  0 76200 0 00225        RDS SOURCE                                                                   
       00365  0 02000 0 00250        TRA FILE40+2                                                                 
       00366  0 00000 0 00367 FIL4E4 HTR FIL4E5                                                                   
       00367 -0 76000 0 00012 FIL4E5 RTT                                                                          
 ATD   00370  3 00000 0 00000        TXH                                                                          
       00371  0 76400 0 00225        BST SOURCE                                                                   
       00372  0 76400 0 00221        BST OBJECT                                                                   
       00373  0 02000 0 00246        TRA FILE40                                                                   
                        00225 SOURCE SYN 149                                                                      
                        00221 OBJECT SYN 145                                                                      
                        00454 RECORD SYN 300                                                                      
                        00453 DUMMY  SYN 299                                                                      
                        00030        END 24                                                                       
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     240           0           0           0           0
 LIB       0           0           0           0           0
 COL     240           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      249                  
0NUMBER OF SYMBOLS,  DEF    64,DEFOP     0,UNDEF     0      
9            REM MU LBL 3  0026 CARDS  LOWER BINARY LOADER-ONE CARD           MULBL301    
1                                        MU LBL 3  0026 CARDS  LOWER BINARY LOADER-ONE CARD           MULBL301    
       00000  0 53400 4 00000  LBL3  LXA 0,4         CLEAR IR4                                        LBL30002    
       00001  0 70000 4 00002        CPY 2,4         COPY LOADER INTO 2,3, ETC                        LBL30003    
       00002  1 77777 4 00001        TXI 1,4,32767   REPEAT UNTIL LOADER IN                           LBL30004    
       00003  0 00000 0 00037        HTR 31          MASK FOR WORD COUNT                              LBL30005    
       00004 -0 76000 0 00007        LTM             END OF CARD, LEAVE TRAPPING MODE                 LBL30006    
       00005  0 76200 0 00321        RCD             SELECT CARD READER                               LBL30007    
       00006  0 70000 0 00000        CPY 0           9L IN 0 AND MQ                                   LBL30008    
       00007  0 76300 0 00021        LLS 17          WORD COUNT IN AC ADDRESS                         LBL30009    
       00010 -0 32000 0 00003        ANA 3           EXTRACT WORD COUNT (=WC)                         LBL30010    
       00011  0 70000 0 00001        CPY 1           9R IN 1 (CHECK SUM)                              LBL30011    
       00012  0 10000 0 00000        TZE 0           IF WC=0, HAVE TRANSFER CARD, GO TO IT            LBL30012    
       00013  0 73400 4 00000        PAX 0,4         IF WC NOT 0, PUT IT IN IR4                       LBL30013    
       00014  0 40000 0 00000        ADD 0           (WC+LA) IN AC ADDRESS (LA=LOAD ADDRESS)          LBL30014    
       00015  0 62100 0 00020        STA 16          PLANT (WC+LA) AS CPY ADDRESS                     LBL30015    
       00016  0 62100 0 00021        STA 17          AND AS ACL ADDRESS                               LBL30016    
       00017 -0 50000 0 00000        CAL 0           PREPARE FOR LOGICAL SUM                          LBL30017    
       00020  0 70000 4 00000        CPY 0,4         COPY WORD FORM BINARY CARD                       LBL30018    
       00021  0 36100 4 00000        ACL 0,4         AND ADD IT TO LOGICAL SUM                        LBL30019    
       00022  2 00001 4 00020        TIX 16,4,1      REPEATING UNTIL DONE                             LBL30020    
       00023  0 60200 0 00002        SLW 2           FORM (CARD SUM) - (CHECK SUM)                    LBL30021    
       00024  0 50000 0 00002        CLA 2           X                                                LBL30022    
       00025  0 40200 0 00001        SUB 1           X                                                LBL30023    
       00026  0 10000 0 00005        TZE 5           IF 0, PROCEED TO NEXT CARD                       LBL30024    
       00027  0 00000 0 00005        HTR 5           IF NOT 0, HALT, PROCEED ON START                 LBL30025    
                        00000        END 0                                                            LBL30026    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      27           0           0           0           0
 LIB       0           0           0           0           0
 COL      27           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       35                  
0NUMBER OF SYMBOLS,  DEF     1,DEFOP     0,UNDEF     0      
9            REM           FNEDT2       REVISED FORTRAN EDITING PROGRAM       EDT 0001    
1                                                  FNEDT2       REVISED FORTRAN EDITING PROGRAM       EDT 0001    
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 57/941 ------           
                                                                                                      EDT 0002    
                        00040        ORG 32                                                           EDT 0003    
       00040  0 77200 0 00201        REW 1                      REWIND                                EDT 0004    
       00041  0 77200 0 00205        REW 5                           TAPES                            EDT 0005    
       00042 -0 50000 0 00162        CAL IDEOF                  INITIALISE THIS CARD                  EDT 0006    
       00043  0 60200 0 00163        SLW THISCD                      TO END FILE                      EDT 0007    
       00044  0 07400 4 00166        TSX ONE2CS,4               TSX TO TRANSCRIBE SPECIAL FIRST RCD   EDT 0008    
       00045 -0 50000 0 00163 REENTR CAL THISCD                 MAIN LOOP REENTRY                     EDT 0009    
       00046  0 76700 0 00003        ALS 3                           MOVE THIS CARD                   EDT 0010    
       00047  0 60200 0 00164        SLW LASTCD                      INTO LAST CARD                   EDT 0011    
       00050  0 76200 0 00321        RCD                        READ                                  EDT 0012    
       00051 -0 53400 1 00161        LXD ZERO14,1                    THE NEXT CARD                    EDT 0013    
       00052  0 70000 1 00010 A1     CPY CDBUF,1                     INTO                             EDT 0014    
       00053  1 77777 1 00052        TXI A1,1,-1                     CARD BUFFER                      EDT 0015    
       00054  0 00000 0 00054 A2     HTR A2                     FALSE END OF FILE IN READING CARD     EDT 0016    
       00055 -0 50000 0 00010        CAL CDBUF                  TEST                                  EDT 0017    
       00056  0 76000 0 00006        COM                                                              EDT 0018    
       00057  0 62200 0 00063        STD A4                                                           EDT 0019    
       00060 -0 50000 0 00010        CAL CDBUF                       CHECK                            EDT 0020    
       00061 -0 53400 1 00161        LXD ZERO14,1                                                     EDT 0021    
       00062  1 77777 1 00063 A3     TXI A4,1,-1                                                      EDT 0022    
       00063 -3 00063 1 00066 A4     TXL A5,1,*                      SUM                              EDT 0023    
       00064  0 36100 1 00011        ACL CDBUF+1,1                                                    EDT 0024    
       00065  0 02000 0 00062        TRA A3                                                           EDT 0025    
       00066  0 76000 0 00006 A5     COM                                                              EDT 0026    
       00067  0 36100 0 00011        ACL CDBUF+1                                                      EDT 0027    
       00070  0 76000 0 00006        COM                                                              EDT 0028    
       00071  0 10000 0 00073        TZE A6                                                           EDT 0029    
       00072  0 42000 0 00000        HPR                        CHECK SUM ERROR IN READING CARD       EDT 0030    
       00073 -0 50000 0 00010 A6     CAL CDBUF                  SET UP                                EDT 0031    
       00074  0 77100 0 00041        ARS 33                          THIS CARD                        EDT 0032    
       00075  0 62100 0 00163        STA THISCD                      AND                              EDT 0033    
       00076 -0 50100 0 00164        ORA LASTCD                      SITUATION                        EDT 0034    
       00077  0 60200 0 00165        SLW SITWD                       WORD                             EDT 0035    
       00100  0 53400 1 00161        LXA ZERO14,1               TABLE SEARCH                          EDT 0036    
       00101 -0 50000 1 00161 A7     CAL TABLE+14,1                                                   EDT 0037    
       00102  0 76500 0 00022        LRS 18                          FOR                              EDT 0038    
       00103  0 34000 0 00165        CAS SITWD                                                        EDT 0039    
       00104  0 02000 0 00106        TRA A8                          SITUATION                        EDT 0040    
       00105  0 02000 0 00110        TRA A9                                                           EDT 0041    
       00106  2 00001 1 00101 A8     TIX A7,1,1                                                       EDT 0042    
       00107  0 00000 0 00107 ILLEGL HTR ILLEGL                 SEARCH FAILED. ILLEGAL SITUATION.     EDT 0043    
       00110  0 76300 0 00022 A9     LLS 18                                                           EDT 0044    
       00111  0 62100 0 00112        STA A10                                                          EDT 0045    
       00112  0 02000 0 00112 A10    TRA *                                                            EDT 0046    
                                                                                                      EDT 0047    
                                                 THERE FOLLOW THE 8 POSSIBLE SITUATION SUBROUTINES    EDT 0048    
                                                                                                      EDT 0049    
       00113  0 07400 4 00210 EOFEND TSX LB,4                   SEQUENCE EOF-END                      EDT 0050    
       00114  0 07400 4 00214 EOFMR  TSX SAVE,4                 SEQUENCE EOF-MR                       EDT 0051    
       00115  0 07400 4 00225        TSX CLEAR,4                                                      EDT 0052    
       00116  0 07400 4 00233        TSX READ,4                                                       EDT 0053    
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 58/942 ------           
       00117  0 02000 0 00045        TRA REENTR                                                       E0T 0054    
       00120  0 07400 4 00214 EOFNR  TSX SAVE,4                 SEQUENCE EOF-NR                       E0T 0055    
       00121  0 07400 4 00225        TSX CLEAR,4                                                      EDT 0056    
       00122  0 02000 0 00045        TRA REENTR                                                       EDT 0057    
       00123  0 07400 4 00302 PRGEND TSX WRITE,4                SEQUENCE PROG-END                     EDT 0058    
       00124  0 07400 4 00210        TSX LB,4                        MR-END                           EDT 0059    
       00125  0 07400 4 00302 PRGEOF TSX WRITE,4                SEQUENCE PR0G-EOF                     EDT 0060    
       00126  0 77000 0 00221        WEF 145                         MR-EOF                           EDT 0061    
       00127  0 02000 0 00045        TRA REENTR                                                       EDT 0062    
       00130  0 07400 4 00330 PRGPRG TSX MOVE,4                 SEQUENCE PROG-PROG                    EDT 0063    
       00131  0 02000 0 00045        TRA REENTR                      MR-PR0G, NR-PROG                 EDT 0064    
       00132  0 07400 4 00302 PRGMR  TSX WRITE,4                SEQUENCE PROG-MR                      EDT 0065    
       00133  0 07400 4 00214        TSX SAVE,4                      MR-MR                            EDT 0066    
       00134  0 07400 4 00225        TSX CLEAR,4                                                      EDT 0067    
       00135  0 07400 4 00233        TSX READ,4                                                       EDT 0068    
       00136  0 02000 0 00045        TRA REENTR                                                       EDT 0069    
       00137  0 07400 4 00302 PRGNR  TSX WRITE,4                SEQUENCE PROG-NR                      EDT 0070    
       00140  0 07400 4 00214        TSX SAVE,4                      MR-NR                            EDT 0071    
       00141  0 07400 4 00225        TSX CLEAR,4                                                      EDT 0072    
       00142  0 02000 0 00045        TRA REENTR                                                       EDT 0073    
       00143  0 00047 0 00113 TABLE      EOFEND,0,39            TABLE OF SITUATIONS                   EDT 0074    
       00144  0 00041 0 00114            EOFMR,0,33                                                   EDT 0075    
       00145  0 00042 0 00120            EOFNR,0,34                                                   EDT 0076    
       00146  0 00007 0 00123            PRGEND,0,7                                                   EDT 0077    
       00147  0 00004 0 00125            PRGEOF,0,4                                                   EDT 0078    
       00150  0 00000 0 00130            PRGPRG,0,0                                                   EDT 0079    
       00151  0 00001 0 00132            PRGMR,0,1                                                    EDT 0080    
       00152  0 00002 0 00137            PRGNR,0,2                                                    EDT 0081    
       00153  0 00017 0 00123            PRGEND,0,15                                                  EDT 0082    
       00154  0 00014 0 00125            PRGEOF,0,12                                                  EDT 0083    
       00155  0 00010 0 00130            PRGPRG,0,8                                                   E0T 0084    
       00156  0 00011 0 00132            PRGMR,0,9                                                    EDT 0085    
       00157  0 00012 0 00137            PRGNR,0,10                                                   EDT 0086    
       00160  0 00020 0 00130            PRGPRG,0,16                                                  EDT 0087    
       00161  0 00000 0 00016 ZERO14     14                                                           EDT 0088    
       00162  0 00000 0 00004 IDEOF      4                                                            EDT 0089    
       00163  0 00000 0 00000 THISCD                                                                  EDT 0090    
       00164  0 00000 0 00000 LASTCD                                                                  EDT 0091    
       00165  0 00000 0 00000 SITWD                                                                   EDT 0092    
                        00010 CDBUF  SYN 8                                                            EDT 0093    
                                                 THERE FOLLOW THE 7 SUBROUTINES                       EDT 0094    
                                                      ONE2CS, LB, SAVE, CLEAR, READ, WRITE, MOVE      EDT 0095    
                                                                                                      EDT 0096    
       00166 -0 76000 0 00012 ONE2CS RTT                        TRANSCRIBES                           EDT 0097    
       00167  0 76100 0 00000        NOP                             SPECIAL                          EDT 0098    
       00170  0 76200 0 00225        RTB 5                           IST RECORD                       EDT 0099    
       00171 -0 53400 1 00161        LXD ZERO14,1                                                                 
       00172  0 53400 2 00207        LXA ZEROTW,2                                                                 
       00173  0 76200 0 00321        RCD                                                                          
       00174  0 70000 1 00353 CS1    CPY MAINBF,1                                                                 
       00175  1 77777 1 00174        TXI CS1,1,-1                                                                 
       00176  0 00000 0 00176        HTR *                                                                        
       00177  2 00001 2 00173        TIX CS1-1,2,1                                                                
       00200 -0 53400 1 00161        LXD ZERO14,1                                                                 
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 59/943 ------           
       00201  0 76600 0 00221        WTB 1                                                                        
       00202  0 70000 1 00353 CS2    CPY MAINBF,1                                                                 
       00203  1 77777 1 00204        TXI CS3,1,-1                                                                 
       00204  3 77745 1 00202 CS3    TXH CS2,1,-27                                                                
       00205  0 76600 0 00333        IOD                                                                          
       00206  0 02000 4 00001        TRA 1,4                                                                      
       00207  0 00000 0 00002 ZEROTW     2                                                                        
                                                                                                      EDT 0124    
       00210  0 76200 0 00321 LB     RCD                        PRESSES LOAD CARDS BUTTON             EDT 0125    
       00211  0 70000 0 00000        CPY 0                                                            EDT 0126    
       00212  0 70000 0 00001        CPY 1                                                            EDT 0127    
       00213  0 02000 0 00000        TRA 0                                                            EDT 0128    
                                                                                                      EDT 0129    
       00214 -0 50000 0 00012 SAVE   CAL CDBUF+2                SAVES CONTROL INFORMATION             EDT 0130    
       00215  0 60200 0 00222        SLW EIGHTL                      FROM MR OR NR CARD               EDT 0131    
       00216  0 62100 0 00224        STA NEWBEG                                                       EDT 0132    
       00217 -0 50000 0 00013        CAL CDBUF+3                                                      EDT 0133    
       00220  0 60200 0 00223        SLW EIGHTR                                                       EDT 0134    
       00221  0 02000 4 00001        TRA 1,4                                                          EDT 0135    
       00222  0 00000 0 00000 EIGHTL                                                                  EDT 0136    
       00223  0 00000 0 00000 EIGHTR                                                                  EDT 0137    
       00224  0 00000 0 00000 NEWBEG                                                                  EDT 0138    
                                                                                                      EDT 0139    
       00225 -0 75400 0 00000 CLEAR  PXD 0,0                    CLEARS MAIN BUFFER                    EDT 0140    
       00226  0 53400 1 00232        LXA BUFSIZ,1                                                     EDT 0141    
       00227  0 60200 1 00000 CL1    SLW 0,1                                                          EDT 0142    
       00230  2 00001 1 00227        TIX CL1,1,1                                                      EDT 0143    
       00231  0 02000 4 00001        TRA 1,4                                                          EDT 0144    
       00232  0 00000 0 77425 BUFSIZ     -MAINBF                                                      EDT 0145    
                                                                                                      EDT 0I46    
       00233 -0 76000 0 00012 READ   RTT                        READS RECORD                          EDT 0147    
       00234  0 76100 0 00000        NOP                             FROM                             EDT 0148    
       00235  0 76200 0 00225        RTB 5                           1NSTER TAPE                      EDT 0149    
       00236 -0 75400 0 00000        PXD 0,0                         INTO MAIN BUFFER                 EDT 0I50    
       00237 -0 53400 1 00161        LXD ZERO14,1                                                     EDT 0I51    
       00240  0 70000 0 00277        CPY CHKSUM                                                       EDT 0152    
       00241  0 02000 0 00243        TRA RD1                                                          EDT 0153    
       00242  0 02000 0 00233        TRA READ                                                         EDT 0154    
       00243 -0 70000 0 00300 RD1    CAD FSTWD                                                        EDT 0155    
       00244 -0 32000 0 00301        ANA ADDMK                                                        EDT 0156    
       00245  0 40200 0 00224        SUB NEWBEG                                                       E0T 0157    
       00246 -0 12000 0 00267        TMI RD6                                                          E0T 0158    
       00247  0 76000 0 00006        COM                                                              EDT 0159    
       00250  0 73400 1 00000 RD2    PAX 0,1                                                          EDT 0160    
       00251 -0 50000 0 00300        CAL FSTWD                                                        EDT 0161    
       00252 -3 00352 1 00271 RD3    TXL RD7,1,MAINBF-1                                               EDT 0162    
       00253 -0 70000 1 00352        CAD MAINBF-1,1                                                   E0T 0163    
       00254  1 77777 1 00252 RD4    TXI RD3,1,-1                                                     E0T 0164    
       00255  0 00000 0 00001 L1     HTR 1                      FALSE EOF IN READING MASTER TAPE      EDT 0165    
       00256 -0 77300 0 00377 RD5    RQL 255                                                          EDT 0166    
       00257 -0 77300 0 00377        RQL 255                                                          EDT 0167    
       00260 -0 76000 0 00012        RTT                                                              EDT 0I68    
       00261  0 02000 0 00275        TRA RD8                                                          EDT 0169    
       00262  0 76000 0 00006        COM                                                              EDT 0170    
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 60/944 ------           
       00263  0 36100 0 00277        ACL CHKSUM                                                       EDT 0171    
       00264  0 76000 0 00006        COM                                                              EDT 0172    
       00265 -0 10000 0 00275        TNZ RD8                                                          EDT 0173    
       00266  0 02000 4 00001        TRA 1,4                                                          EDT 0174    
       00267  0 40000 0 00255 RD6    ADD L1                                                           EDT 0175    
       00270  0 02000 0 00250        TRA RD2                                                          EDT 0176    
       00271 -0 70000 0 00000 RD7    CAD 0                                                            EDT 0I77    
       00272  0 02000 0 00254        TRA RD4                                                          EDT 0I78    
       00273  0 02000 0 00255        TRA L1                                                           EDT 0179    
       00274  0 02000 0 00256        TRA RD5                                                          EDT 0180    
       00275  0 76400 0 00205 RD8    BST 5                                                            EDT 0181    
       00276  0 00000 0 00233        HTR READ                   ERROR IN READING MASTER TAPE          EDT 0182    
       00277  0 00000 0 00000 CHKSUM                                                                  EDT 0183    
       00300  0 00000 0 00000 FSTWD                                                                   EDT 0184    
       00301  0 00000 0 77777 ADDMK      -1                                                           EDT 0185    
                                                                                                      EDT 0186    
       00302  0 50000 0 00223 WRITE  CLA EIGHTR                 WRITES RECORD FROM MAIN BUFFER        EDT 0187    
       00303  0 40200 0 00224        SUB NEWBEG                      INTO SECONDARY TAPE              EDT 0188    
       00304 -0 12000 4 00001        TMI 1,4                                                          EDT 0189    
       00305  0 76700 0 00022        ALS 18                                                           EDT 0190    
       00306  0 76000 0 00006        COM                                                              EDT 0191    
       00307  0 62200 0 00315        STD WR2                                                          EDT 0192    
       00310  0 62200 0 00324        STD WR4                                                          EDT 0193    
       00311 -0 53400 3 00161        LXD ZERO14,3                                                     EDT 0194    
       00312 -0 50000 0 00222        CAL EIGHTL                                                       EDT 0195    
       00313  0 36100 1 00353 WR1    ACL MAINBF,1                                                     EDT 0196    
       00314  1 77777 1 00315        TXI WR2,1,-1                                                     EDT 0197    
       00315  3 00315 1 00313 WR2    TXH WR1,1,*                                                      EDT 0198    
       00316  0 60200 0 00277        SLW CHKSUM                                                       EDT 0199    
       00317  0 76600 0 00221        WTB 1                                                            EDT 0200    
       00320  0 70000 0 00277        CPY CHKSUM                                                       EDT 0201    
       00321  0 70000 0 00222        CPY EIGHTL                                                       EDT 0202    
       00322  0 70000 2 00353 WR3    CPY MAINBF,2                                                     EDT 0203    
       00323  1 77777 2 00324        TXI WR4,2,-1                                                     EDT 0204    
       00324  3 00324 2 00326 WR4    TXH WR5,2,*                                                      EDT 0205    
       00325  0 02000 4 00001        TRA 1,4                                                          EDT 0206    
       00326  3 00353 2 00322 WR5    TXH WR3,2,MAINBF                                                 EDT 0207    
       00327  0 00000 4 00001        HTR 1,4                    TRYING TO WRITE TOO LONG A RECORD     EDT 0208    
                                                                                                      EDT 0209    
       00330 -0 50000 0 00010 MOVE   CAL CDBUF                  MOVES A PROGRAM CARD FROM             EDT 0210    
       00331  0 76000 0 00006        COM                             THE CARD BUFFER INTO THE         EDT 0211    
       00332  0 62200 0 00343        STD MV3                         CORRECT PART OF THE MAIN BUFFER  EDT 0212    
       00333 -0 53400 1 00161        LXD ZERO14,1                                                     EDT 0213    
       00334 -0 50000 0 00010        CAL CDBUF                                                        EDT 0214    
       00335 -0 32000 0 00301        ANA ADDMK                                                        EDT 0215    
       00336  0 40200 0 00224        SUB NEWBEG                                                       EDT 0216    
       00337 -0 12000 0 00350        TMI MV5                                                          EDT 0217    
       00340  0 76000 0 00006        COM                                                              EDT 0218    
       00341  0 73400 2 00000 MV1    PAX 0,2                                                          EDT 0219    
       00342  1 77777 1 00343 MV2    TXI MV3,1,-1                                                     EDT 0220    
       00343 -3 00343 1 00352 MV3    TXL MV6,1,*                                                      EDT 0221    
       00344 -0 50000 1 00011        CAL CDBUF+1,1                                                    EDT 0222    
       00345 -3 00352 2 00347        TXL MV4,2,MAINBF-1                                               EDT 0223    
       00346  0 60200 2 00352        SLW MAINBF-1,2                                                   EDT 0224    
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 61/945 ------           
       00347  1 77777 2 00342 MV4    TXI MV2,2,-1                                                     EDT 0225    
       00350  0 40000 0 00255 MV5    ADD L1                                                           EDT 0226    
       00351  0 02000 0 00341        TRA MV1                                                          EDT 0227    
       00352  0 02000 4 00001 MV6    TRA 1,4                                                          EDT 0228    
                                                                                                      EDT 0229    
       00353  0 00000 0 00000 MAINBF                            MAIN BUFFER STARTS HERE               EDT 0230    
                        00040        END 32                                                           EDT 0231    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     227           0           0           0           0
 LIB       0           0           0           0           0
 COL     227           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      236                  
0NUMBER OF SYMBOLS,  DEF    67,DEFOP     0,UNDEF     0      
9            REM 704 FORTRAN SELF LOADING RECORD 1 TO CS.                                 
1                                        704 FORTRAN SELF LOADING RECORD 1 TO CS.                                 
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 005/005 ------           
       00000  0 53400 1 00000        LXA 0,1                                                                      
       00001  0 70000 1 00002        CPY 2,1                                                                      
       00002  1 00001 1 00001        TXI 1,1,1                                                                    
       00003  0 70000 1 00031        CPY 25,1                                                                     
       00004  0 00000 0 00003        HTR 3                                                                        
       00005  0 10000 0 00000        TZE 0                                                                        
       00006  0 76000 0 00006        COM                                                                          
       00007  0 36100 0 00002        ACL 2                                                                        
       00010  0 76000 0 00006        COM                                                                          
       00011  0 02000 0 00027        TRA 23                                                                       
       00012 -0 76000 0 00012        RTT                                                                          
       00013  0 76600 0 00333        IOD                                                                          
       00014  0 00000 0 00000        HTR 0                                                                        
       00015  1 77777 1 00015        TXI 13,1,-1                                                                  
       00016 -0 70000 1 00000        CAD 0,1                                                                      
       00017 -0 50000 0 00017        CAL 15                                                                       
       00020  0 62100 0 00026        STA 22                                                                       
       00021  0 77100 0 00022        ARS 18                                                                       
       00022  0 62100 0 00015        STA 13                                                                       
       00023 -0 50000 0 00017        CAL 15                                                                       
       00024  0 70000 0 00017        CPY 15                                                                       
       00025  0 70000 0 00002        CPY 2                                                                        
       00026  0 76200 0 00221        RTB 1                                                                        
       00027 -0 53400 1 00027        LXD 23,1                                                                     
       00030  0 70000 0 00003        CPY 3                                                                        
       00031 -0 76000 0 00007        LTM                                                                          
       00032  0 76400 0 00221        BST 145                                                                      
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      31           0           0           0           0
 LIB       0           0           0           0           0
 COL      31           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       39                  
0NUMBER OF SYMBOLS,  DEF     1,DEFOP     0,UNDEF     0      
9            FUL                                                                          
1                       00000        ORG 0                                                                        
       00000  2 00002 0 00000        PTW 0,,2           CONTROL WORD                                              
       00001 -203422000526           OCT -203422000526  CHECKSUM                                                  
       00002  0 00342 0 00110        PZE80110,,0342     ORIGIN, ENTRY POINT                                       
       00003  0 00000 0 00416        PZE80416           LAST LOCATION                                             
                                         FORTRAN II CARD-TO-TAPE                                                  
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 006/006 ------           
                        00110        ORG 72                                                                       
       00110  0 76200 0 00321  BEGIN RCD 1                                                                        
       00111 -0 53400 1 00125        LXD ADD01,1                                                                  
       00112 -0 53400 2 00127        LXD ADD02,2                                                                  
       00113  0 70000 0 00340  ADD23 CPY L9ROW            COPY 92                                                 
 TD    00114 -3 00000 0 00116        TXL ADD03,                                                                   
       00115  0 02000 4 00002        TRA 2,4              EOF TR                                                  
       00116 -0 60000 0 00332  ADD03 STQ DATA1            STORE 9L                                                
       00117 -0 63400 1 00125        SXD ADD01,1                                                                  
       00120 -0 63400 2 00127        SXD ADD02,2                                                                  
       00121 -0 53400 1 00135        LXD ADD04,1                                                                  
       00122  0 70000 0 00341        CPY R9ROW            COPY 9R                                                 
       00123 -0 60000 0 00333        STQ DATA2            STORE 9R                                                
       00124  0 07400 2 00265        TSX SUB1,2           EXIT ENTRY1 SUB1                                        
 TD    00125 -3 00000 0 00130  ADD01 TXL ADD05            RETURN1                                                 
       00126  0 76700 0 00001        ALS 1                RETURN2                                                 
 TD    00127 -3 00000 0 00317  ADD02 TXL ADD06            EXIT TO ENTRY2 SUB1                                     
       00130  0 70000 0 00334 ADD05  CPY DATA3                                                                    
       00131 -0 60000 0 00332        STQ DATA1                                                                    
       00132  0 70000 0 00335        CPY DATA4            COPY RIGHT                                              
       00133 -0 60000 0 00333        STQ DATA2                                                                    
       00134  0 07400 2 00265        TSX SUB1,2                                                                   
       00135 -3 00010 0 00140  ADD04 TXL ADD07,0,8        RETURN1                                                 
       00136  0 76700 0 00003        ALS 3                RETURN2                                                 
 TD    00137 -3 00000 0 00316        TXL ADD08                                                                    
       00140 -0 50000 0 00340  ADD07 CAL L9ROW                                                                    
       00141  0 60200 0 00332        SLW DATA1                                                                    
       00142 -0 50000 0 00341        CAL R9ROW                                                                    
       00143  0 60200 0 00333        SLW DATA2                                                                    
       00144 -3 00001 1 00170  ADD14 TXL ADD09,1,1                                                                
       00145  0 70000 0 00340  ADD15 CPY L9ROW                                                                    
 TD    00146 -3 00000 0 00151        TXL ADD10                                                                    
       00147  0 00000 0 00110  ADD12 HTR BEGIN            EOF                                                     
 TD    00150 -3 00000 0 00210        TXL ADD11            EOR                                                     
       00151 -0 50000 0 00340  ADD10 CAL L9ROW                                                                    
       00152 -0 32000 0 00332        ANA DATA1                                                                    
       00153 -0 10000 0 00147        TNZ ADD12                                                                    
       00154 -0 50000 0 00340        CAL L9ROW                                                                    
       00155 -0 60200 0 00332        ORS DATA1                                                                    
       00156  0 70000 0 00341        CPY R9ROW                                                                    
       00157 -0 50000 0 00341        CAL R9ROW                                                                    
       00160 -0 32000 0 00333        ANA DATA2                                                                    
       00161 -0 10000 0 00147        TNZ ADD12                                                                    
       00162 -0 50000 0 00341        CAL R9ROW                                                                    
       00163 -0 60200 0 00333        ORS DATA2                                                                    
       00164 -2 00001 1 00204        TNX ADD13,1,1                                                                
       00165  0 07400 2 00265        TSX SUB1,2                                                                   
 TD    00166 -3 00000 0 00144        TXL ADD14             RETURN1                                                
 TD    00167 -3 00000 0 00316        TXL ADD08             RETURN2                                                
       00170 -0 50000 0 00334  ADD09 CAL DATA3                                                                    
       00171 -0 50100 0 00332        ORA DATA1                                                                    
       00172  0 60200 0 00334        SLW DATA3                                                                    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 007/007 ------           
       00173  0 70000 0 00336        CPY DATA5                                                                    
       00174 -0 32000 0 00336        ANA DATA5                                                                    
       00175  0 60200 0 00332        SLW DATA1                                                                    
       00176 -0 50000 0 00335        CAL DATA4                                                                    
       00177 -0 50100 0 00333        ORA DATA2                                                                    
       00200  0 60200 0 00335        SLW DATA4                                                                    
       00201  0 70000 0 00337        CPY DATA6                                                                    
       00202 -0 32000 0 00337        ANA DATA6                                                                    
       00203  0 60200 0 00333        SLW DATA2                                                                    
       00204  0 07400 2 00265  ADD13 TSX SUB1,2                                                                   
 TD    00205 -3 00000 0 00145        TXL ADD15             RETURN1                                                
       00206  0 76700 0 00004        ALS 4                 RETURN2                                                
 TD    00207 -3 00000 0 00316        TXL ADD08                                                                    
       00210 -0 50000 0 00332  ADD11 CAL DATA1                                                                    
       00211  0 60200 0 00340        SLW L9ROW                                                                    
       00212 -0 50000 0 00334        CAL DATA3                                                                    
       00213  0 76000 0 00006        COM                                                                          
       00214 -0 32000 0 00336        ANA DATA5                                                                    
       00215  0 32000 0 00332        ANS DATA1                                                                    
       00216 -0 50000 0 00333        CAL DATA2                                                                    
       00217  0 60200 0 00341        SLW R9ROW                                                                    
       00220 -0 50000 0 00335        CAL DATA4                                                                    
       00221  0 76000 0 00006        COM                                                                          
       00222 -0 32000 0 00337        ANA DATA6                                                                    
       00223  0 32000 0 00333        ANS DATA2                                                                    
       00224  0 07400 2 00265        TSX SUB1,2                                                                   
 TD    00225 -3 00000 0 00233        TXL ADD16              RETURN1                                               
       00226  0 60200 0 00331        SLW DATA0              RETURN2                                               
       00227  0 76700 0 00002        ALS 2                                                                        
       00230  0 36100 0 00331        ACL DATA0                                                                    
       00231  0 76700 0 00001        ALS 1                                                                        
 TD    00232 -3 00000 0 00316        TXL ADD08                                                                    
       00233 -0 50000 0 00334  ADD16 CAL DATA3                                                                    
       00234  0 76000 0 00166        SWT 6                                                                        
       00235  0 02000 0 00241        TRA ADD34                                                                    
 TD    00236 -3 00000 0 00407 ADD32  TXL ADD31                                                                    
       00237  0 76600 0 00205 ADD33  WTD 5                                                                        
       00240  0 02000 0 00242        TRA ADD29                                                                    
       00241  0 76600 0 00202 ADD34  WTD 2                                                                        
       00242 -0 50100 0 00336 ADD29  ORA DATA5                                                                    
       00243 -0 50100 0 00340        ORA L9ROW                                                                    
       00244  0 76000 0 00006        COM                                                                          
       00245  0 60200 0 00332        SLW DATA1                                                                    
       00246 -0 50000 0 00335        CAL DATA4                                                                    
       00247 -0 50100 0 00337        ORA DATA6                                                                    
       00250 -0 50100 0 00341        ORA R9ROW                                                                    
       00251  0 76000 0 00006        COM                                                                          
       00252  0 60200 0 00333        SLW DATA2                                                                    
       00253  0 07400 2 00265        TSX SUB1,2                                                                   
 TD    00254 -3 00000 0 00262        TXL ADD17                 RETURN1                                            
       00255  0 60200 0 00331        SLW DATA0                 RETURN2                                            
       00256  0 76700 0 00001        ALS 1                                                                        
       00257  0 36100 0 00331        ACL DATA0                                                                    
       00260  0 76700 0 00004        ALS 4                                                                        
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 008/008 ------           
 TD    00261 -3 00000 0 00316        TXL ADD08                                                                    
       00262 -0 53400 1 00125  ADD17 LXD ADD01,1                                                                  
       00263 -0 53400 2 00127        LXD ADD02,2                                                                  
       00264  0 02000 4 00003        TRA 3,4                                                                      
       00265 -0 63400 1 00327  SUB1  SXD ADD18,1                                                                  
       00266  0 76000 0 00141        SLN 1                                                                        
       00267 -0 50000 4 00001        CAL 1,4                                                                      
       00270  0 40000 0 00330        ADD CONS1                                                                    
       00271  0 56000 0 00332        LDQ DATA1                                                                    
       00272  0 62100 0 00317  ADD22 STA ADD06                                                                    
       00273  0 62100 0 00316        STA ADD08                                                                    
       00274  3 00001 1 00300        TXH ADD19,1,1                                                                
       00275 -0 60000 0 00331        STQ DATA0                INDEX=1                                             
       00276 -0 50000 0 00331        CAL DATA0                                                                    
       00277  0 10000 0 00322        TZE ADD20                                                                    
       00300  0 53400 1 00330  ADD19 LXA CONS1,1                                                                  
 T     00301 -0 75400 0 00014  ADD21 PXD 12                   CLEAN ACC                                           
       00302 -0 76300 0 00001        LGL 1                    1ST IN ACC                                          
       00303  0 76700 0 00005        ALS 5                    100000                                              
       00304 -0 76300 0 00001        LGL 1                    1000001                                             
       00305  0 76700 0 00005        ALS 5                    100000100000                                        
       00306 -0 76300 0 00001        LGL 1                    1000001000001                                       
       00307  0 76700 0 00005        ALS 5                                                                        
       00310 -0 76300 0 00001        LGL 1                                                                        
       00311  0 76700 0 00005        ALS 5                                                                        
       00312 -0 76300 0 00001        LGL 1                                                                        
       00313  0 76700 0 00005        ALS 5                                                                        
       00314 -0 76300 0 00001        LGL 1                                                                        
       00315  0 02000 2 00002        TRA 2,2                  1000001000001000001000001000001                     
       00316  0 36100 1 00000  ADD08 ACL 0,1                  ADDRESS COMPUTED AT ADD22 IN ADDRESS                
       00317  0 60200 1 00000  ADD06 SLW 0,1                  ENTRY2 ADDRESS PREV. COMPUTED AT ADD22              
       00320  2 00001 1 00301        TIX ADD21,1,1                                                                
       00321 -0 53400 1 00327        LXD ADD18,1                                                                  
       00322 -0 76000 0 00141  ADD20 SLT 1                                                                        
       00323  0 02000 2 00001        TRA 1,2                  OFF                                                 
       00324  0 56000 0 00333        LDQ DATA2                SENSE LIGHT ON                                      
       00325 -0 50000 4 00001        CAL 1,4                                                                      
       00326  0 40100 0 00301        ADM ADD21                                                                    
       00327 -3 00000 0 00272  ADD18 TXL ADD22,0,**           IR1 STORED IN DECREMENT                             
       00330  0 00000 0 00006  CONS1 HTR 6                                                                        
 A     00331  0 00000 0 00000  DATA0 HTR                                                                          
 A     00332  0 00000 0 00000  DATA1 HTR                      9L ROW                                              
 A     00333  0 00000 0 00000  DATA2 HTR                      9R ROW                                              
 A     00334  0 00000 0 00000  DATA3 HTR                                                                          
 A     00335  0 00000 0 00000  DATA4 HTR                                                                          
 A     00336  0 00000 0 00000  DATA5 HTR                                                                          
 A     00337  0 00000 0 00000  DATA6 HTR                                                                          
 A     00340  0 00000 0 00000  L9ROW HTR                                                                          
 A     00341  0 00000 0 00000  R9ROW HTR                                                                          
       00342  0 77200 0 00202 START  REW 2                                                                        
       00343  0 76000 0 00140        SLN 0                                                                        
       00344  0 76200 0 00321  ADD27 RCD 1                                                                        
       00345  0 07400 4 00113        TSX ADD23,4                                                                  
       00346  0 00000 0 00373        HTR RECOR                                                                    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 009/009 ------           
 TD    00347 -3 00000 0 00355        TXL ADD24                 RETURN3                                            
       00350  0 76000 0 00142        SLN 2                     RETURN4                                            
       00351 -0 53400 4 00354        LXD ADD25,4                                                                  
       00352  0 70000 4 00407  ADD26 CPY BLOCK,4                                                                  
       00353  2 00001 4 00352        TIX ADD26,4,1                                                                
       00354 -3 00014 0 00344  ADD25 TXL ADD27,0,12                                                               
       00355 -0 76000 0 00142  ADD24 SLT 2                                                                        
       00356  0 02000 0 00363        TRA ADD28                 OFF                                                
       00357  0 76000 0 00166        SWT 6                                                                        
       00360  0 02000 0 00414        TRA ADD30                                                                    
       00361  0 77000 0 00205        WEF 5                                                                        
       00362  0 77200 0 00205        REW 5                                                                        
       00363  0 76200 0 00221  ADD28 RTB 1                                                                        
       00364  0 70000 0 00373        CPY RECOR                                                                    
       00365  0 02000 0 00363        TRA ADD28                                                                    
       00366  0 02000 0 00004        TRA 4                     EOF                                                
       00367  0 77200 0 00201        REW 1                                                                        
       00370  0 76200 0 00221        RTB 1                                                                        
       00371  0 76200 0 00221        RTB 1                                                                        
       00372  0 07400 4 00004        TSX 4,4                                                                      
 A     00373  0 00000 0 00000  RECOR HTR                                                                          
                        00407 BLOCK  BES 11                                                                       
       00407  0 77200 0 00205 ADD31  REW 5                                                                        
       00410  0 50200 0 00236        CLS ADD32                                                                    
       00411  0 60100 0 00236        STO ADD32                                                                    
       00412 -0 50000 0 00334        CAL DATA3                                                                    
       00413  0 02000 0 00237        TRA ADD33                                                                    
       00414  0 77000 0 00202 ADD30  WEF 2                                                                        
       00415  0 77200 0 00202        REW 2                                                                        
       00416  0 02000 0 00363        TRA ADD28                                                                    
 A                      00000        END                                                                          
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     203           0           0           0           0
 LIB       0           0           0           0           0
 COL     203           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      210                  
0NUMBER OF SYMBOLS,  DEF    49,DEFOP     0,UNDEF     0      
9            FUL                                                                          
1                       00000        ORG 0                                                                        
       00000  2 00002 0 00000        PTW 0,,2               CONTROL WORD                                          
       00001 -2 04000 0 10021        MTW BEGIN+STOP,,BEGIN  CHECKSUM                                              
       00002  0 04000 0 04000        PZE BEGIN,,BEGIN       ORIGIN, ENTRY POINT                                   
       00003  0 00000 0 04021        PZE STOP               LAST LOCATION                                         
                                         EXAMPLE OF DIAGNOSTIC CALLER FOR 704 FORTRAN II                          
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 85/969 ------           
                                                                                                                  
                                         RECNBR IS SYNONYMOUS WITH THE NUMBER OF THE RECORD T0 WHICH              
                                         THE DIAGNOSTIC CALLER PERTAINS. REC*** IS THE FORTRAN RECORD             
                                         NUMBER ASSIGNED TO THE DIAGNOSTIC CALLER.                                
                                         BEGIN IS SYNONYMOUS WITH THE LOAD ADDRESS OF THE DIAGNOSTIC              
                                         CALLER. BEG**** HAS THE SAME VALUE AS BEGIN.                             
                                                                                                                  
                        00163 RECNBR SYN 115                                                          REC  ***    
                        04000 BEGIN  SYN84000                                                         REC ****    
                        04000        ORG BEGIN             CALL DIAG FROM FILE                        CD1  1      
       04000 -0 63400 2 00000        SXD 0,2                                                          CD1  2      
       04001 -0 53400 1 04014        LXD MEM,1                                                        CD1  3      
       04002 -0 53400 2 04012        LXD FILTST,2          * FILES TO BE SPACED OVER                  CD1  4      
       04003  0 76600 0 00304        WDR 4                 0 TO 2047 WRITTEN ON DRUM 4                CD1  5      
       04004  0 70000 1 04000 COPY   CPY 2048,1                                                       CD1  6      
       04005  2 00001 1 04004        TIX COPY,1,1          NEXT TIME LOOP WILL COPY INTO 25           CD1  7      
       04006  1 03746 1 04010        TXI A,1,2022          UNTIL END OF RECORD SKIP                   CD1  S      
       04007  0 02000 0 00032        TRA 26                IGNORE RECORD NUMBER                       CD1  9      
       04010  0 76200 0 00221 A      RTB 1                                                            CD1 10      
       04011  0 70000 0 04000        CPY BEGIN             SPACE OVER RECORDS IN THIS FILE            CD1 11      
       04012 -2 00003 0 04010 FILTST TNX A,0,3                                                        CD1 12      
       04013  0 02000 0 04015        TRA B                 HAVE ALL 3 FILES BEEN SPACED OVER          CD1 13      
       04014  0 04000 0 00163 MEM    HTR RECNBR,0,2048                                                CD1 14      
       04015  2 00001 2 04010 B      TIX A,2,1             NO, GO BACK TO A                           CD1 15      
       04016  0 50000 0 04014        CLA MEM                                                          CD1 16      
       04017  0 62100 0 00002        STA 2                                                            CD1 17      
       04020  0 76200 0 00221        RTB 1                 YES, READ IN MAIN DIAGNOSTIC               CD1 18      
       04021  0 02000 0 04004 STOP   TRA COPY                                                         CD1 19      
 A                      00000        END                                                              CD1 20      
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      38           0           0           0           0
 LIB       0           0           0           0           0
 COL      38           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       45                  
0NUMBER OF SYMBOLS,  DEF     8,DEFOP     0,UNDEF     0      
9            FUL                                                                          
1                       00000        ORG 0                                                                        
       00000  2 00002 0 00000        PTW 0,,2              CONTROL WORD                                           
       00001 -2 00210 0 01410        MTW81410,,0210        CHECKSUM                                               
       00002  0 00210 0 00210        PZE80210,,0210        ORIGIN, ENTRY POINT                                    
       00003  0 00000 0 01200        PZE81200              LAST LOCATION                                          
                                         AST                                                                      
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 010/010 ------           
                                         ************* FORTRAN II SECTION SIX ************************F6R00010    
                                         FORTRAN 2   RECORD 0003  -  CIT TO SAP CONVERSION.           F6R00011    
                                                                                                      F6R00012    
                                         CIT TO SAP CONVERSION                                        F6R00020    
                        00161  ZERO  EQU 113                                                          F6R00030    
                        00162  ONE   EQU 114                                                          F6R00040    
                        00177  SW1   EQU 127                                                          F6R00050    
                        00200  SW2   EQU 128                                                          F6R00060    
                        00210        ORG 136                                                          F6R00030    
       00210  0 50000 0 00162  START CLA ONE                                                          F6R00040    
       00211  0 34000 0 00200        CAS SW2                                                          F6R00050    
       00212  0 02000 0 00700        TRA ADD01         SW2 EQUAL ZERO, ASSUME SWITCH TWO UP,          F6R00060    
       00213  0 02000 0 00216        TRA LIB1          SW2 EQUAL ONE, ASSUME SWITCH TWO DOWN,         F6R00070    
       00214  0 76000 0 00162        SWT 2             EQUAL TWO. TEST SWITCH TWO                     F6R00080    
       00215  0 02000 0 00700        TRA ADD01                                                        F6R00090    
       00216  0 77200 0 00204  LIB1  REW 4             SW TWO DOWN.                                   F6R00100    
       00217  0 77000 0 00202        WEF 2                                                            F6R00110    
       00220 -0 53400 2 00221        LXD ADD02,2       SET READ ERROR COUNTER.                        F6R00120    
       00221  1 00005 0 00223  ADD02 TXI ADD03,0,5                                                    F6R00130    
       00222  0 76400 0 00204  ADD05 BST 4                                                            F6R00140    
       00223  0 76200 0 00224  ADD03 RTB 4             READ TAPE 4                                    F6R00150    
       00224  0 53400 1 00726        LXA DATA1,1                                                      F6R00160    
       00225  0 70000 1 01162  ADD04 CPY REC03,1       CPY INTO REC-1, REC-2,---                      F6R00170    
       00226  1 00001 1 00225        TXI ADD04,1,1                                                    F6R00180    
       00227  0 02000 0 00700        TRA ADD01         END OF FILE ON TAPE 4.                         F6R00190    
       00230  0 77100 0 00377        ARS 255                                                          F6R00200    
       00231  0 77100 0 00377        ARS 0255                                                         F6R00210    
       00232 -0 76000 0 00012        RTT                                                              F6R00220    
       00233  2 00001 2 00222        TIX ADD05,2,1     IF ERROR.                                      F6R00230    
       00234 -0 63400 1 00440        SXD ADD06,1       SAVE COUNT OF NO. OF WORDS READ IN.            F6R00240    
       00235  0 53400 1 00677        LXA ADD07,1       SET XR1=0                                      F6R00250    
       00236 -0 63400 1 00442  IN207 SXD ADD08,1       SAVE XR1.                                      F6R00260    
       00237 -0 50000 1 01163        CAL RECOR,1       STORE SL IN DATA2                              F6R00270    
       00240  0 60200 0 00775        SLW DATA2         STORE OP IN DATA3                              F6R00280    
       00241 -0 50000 1 01162        CAL REC03,1                                                      F6R00290    
       00242  0 60200 0 00776        SLW DATA3                                                        F6R00300    
       00243 -0 50000 1 01161        CAL REC02,1       STORE SA IN DATA4                              F6R00310    
       00244  0 60200 0 00777        SLW DATA4                                                        F6R00320    
       00245 -0 50000 1 01160        CAL REC01,1       STORE RA IN DATA5                              F6R00330    
       00246  0 60200 0 01000        SLW DATA5                                                        F6R00340    
       00247  0 56000 0 00710        LDQ DATA6                                                        F6R00350    
       00250 -0 60000 0 01007        STQ E1005         STORE BLANKS IN E1006,1007,1010,1005           F6R00360    
       00251 -0 60000 0 01010        STQ E1006                                                        F6R00370    
       00252 -0 60000 0 01011        STQ E1007                                                        F6R00380    
       00253 -0 60000 0 01012        STQ E1010                                                        F6R00390    
       00254 -0 50000 0 00775        CAL DATA2         TEST SYMBOLIC LOCATION.                        F6R00400    
       00255  0 10000 0 00305        TZE ADD09         IF ZERO, GO TO ADD09.                          F6R00410    
       00256  0 76500 0 00036        LRS 30            NOT ZERO. SEE IF SL(1) EQUAL ZERO.             F6R00420    
       00257  0 10000 0 00303        TZE ADD10         SL(1) EQUAL ZERO, GO TO ADD10.                 F6R00430    
       00260  0 40200 0 00722        SUB DATA7         SL(1) NOT EQUAL ZERO. SEE IF EQUAL 15.         F6R00440    
       00261 -0 10000 0 00264        TNZ ADD11         SL(1) NOT EQUAL 15, GO TO ADD11                F6R00450    
       00262 -0 50000 0 00710        CAL DATA6         SL(1) EQUAL 15. PUT BLANKS IN AC AND           F6R00460    
       00263  0 02000 0 00306        TRA ADD12         GO TO ADD12                                    F6R00470    
       00264  0 40000 0 00722  ADD11 ADD DATA7         RESOTRE SL(1) IN AC.                           F6R00480    
       00265  0 40200 0 00614        SUB LIB3                                                         F6R00490    
       00266  0 10000 0 00612        TZE LIB2          IF SL(1)=$, GO TO LIB2                         F6R00500    
       00267  0 40000 0 00614        ADD LIB3                                                         F6R00510    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 011/011 ------           
       00270  0 40200 0 00616        SUB LIB5                                                         F6R00520    
       00271  0 10000 0 00617        TZE LIB6          IF SL(1)=(, GO TO LIB6                         F6R00530    
       00272  0 40000 0 00616        ADD LIB5                                                         F6R00540    
       00273  0 40200 0 00722        SUB DATA7                                                        F6R00550    
       00274  0 12000 0 00301        TPL ME1           GO TO ME1 IF SL(1) GREATER THEN 15 (I.E.,ALPHA-F6R00560    
       00275  0 40000 0 00722        ADD DATA7                                                        F6R00570    
       00276 -0 77300 0 00001        RQL 1             SL(1) LESS THEN 15, NOT ZERO, ASSEMBLE SYMBOL. F6R00580    
       00277  0 07400 1 00603        TSX SUB1,1        AND GO TO SUB1 (TIV TYPE ENTRY).               F6R00590    
       00300  0 02000 0 00306        TRA ADD12                                                        F6R00600    
       00301 -0 50000 0 00775  ME1   CAL DATA2                                                        F6R00610    
       00302  0 02000 0 00306        TRA ADD12                                                        F6R00620    
       00303 -0 76300 0 00015  ADD10 LGL 13           IFN. ASSEMBLE SYMBOL AND GO TO SUB2.            F6R00630    
       00304  0 07400 1 00654        TSX SUB2,1                                                       F6R00640    
       00305 -0 76300 0 00044  ADD09 LGL 36           SYMBOLIC LOC EQUAL ZERO. PUT BLANKS IN ACC.     F6R00650    
       00306  0 60200 0 01005  ADD12 SLW E1003        STORE ACC. IN E1003.                            F6R00660    
       00307  0 56000 0 00776  IN245 LDQ DATA3        SELECT OP IN MQ.                                F6R00670    
       00310  0 50200 0 00717        CLS DATA8                                                        F6R00680    
       00311 -0 76300 0 00022        LGL 18                                                           F6R00690    
       00312 -0 60000 0 01001        STQ E0777        STORE DECREMENT IN E0777.                       F6R00700    
       00313  0 56000 0 00710        LDQ DATA6        LOAD MQ WITH BLANKS                             F6R00710    
       00314 -0 76300 0 00006        LGL 6                                                            F6R00720    
       00315  0 76700 0 00006        ALS 6                                                            F6R00730    
       00316  0 60100 0 01006        STO E1004        STORE IN E1004.                                 F6R00740    
       00317  0 34000 0 00707        CAS DATA9        IS OP EQUAL OCT.                                F6R00750    
       00320  0 02000 0 00325        TRA ADD13        OP LESS THEN OCT                                F6R00760    
       00321  0 02000 0 00566        TRA ADD14        OP EQUAL OCT. GO TO ADD14.                      F6R00770    
       00322  0 34000 0 00706        CAS DAT10        OP GREATER THEN OCT. SEE IF OP=BCD.             F6R00780    
       00323  0 02000 0 00325        TRA ADD13                                                        F6R00790    
       00324  0 02000 0 00525        TRA ADD15        OP EQUAL BCD. GO TO ADD15.                      F6R00800    
       00325  0 56000 0 00777  ADD13 LDQ DATA4        OP NOT BCD OR OCT.                              F6R00810    
 T     00326 -0 75400 0 00000        PXD              SELECT SA IN MQ.                                F6R00820    
       00327 -0 76300 0 00006        LGL 6                                                            F6R00830    
       00330 -0 10000 0 00343        TNZ IN301        SA(1) NOT EQUAL ZERO. GO TO IN301.              F6R00840    
       00331 -0 76300 0 00014        LGL 12           SA(1) EQUAL ZERO. TEST FOR INTERNAL             F6R00850    
       00332 -0 10000 0 00352        TNZ IN310        FORMULA NUMBER TYPE. IF YES, GO TO IN310.       F6R00860    
       00333  0 56000 0 00710        LDQ DATA6        SA(1),SA(2),SA(3) EQUAL ZERO. LOAD MQ WITH      F6R00870    
       00334  0 50000 0 01000        CLA DATA5        TEST FOR NOW-ZERO TAG OR RELATIVE ADDRESS.      F6R00880    
       00335 -0 10000 0 00510        TNZ IN446        NOT EQUAL ZERO. GO TO IN446                     F6R00890    
       00336  0 50000 0 01001        CLA E0777        RA EQUAL ZERO. TEST FOR NON-ZERO DECREMENT.     F6R00900    
       00337 -0 10000 0 00362        TNZ IN320        NOT ZERO, GO TO IN320                           F6R00910    
       00340 -0 50000 0 00715        CAL DT713        ZERO, OR A BLANK TO RT-HAND END OF E1004.       F6R00920    
       00341 -0 60200 0 01006        ORS E1004                                                        F6R00930    
       00342  0 02000 0 00431        TRA IN367                                                        F6R00940    
       00343  0 34000 0 00717  IN301 CAS DATA8        TEST IF SA(1)=16.                               F6R00950    
       00344  0 02000 0 00355        TRA IN313        GREATER THEN 16(TRUE SYMBOL). GO TO IN313.      F6R00960    
       00345  0 07400 4 00004        TSX 4,4          EQUAL IS ERROR.                                 F6R00970    
       00346  0 07400 1 00603        TSX SUB1,1       LESS THEN 16 (TIV ENTRY TYPE). GO TO SUB1.      F6R00980    
       00347  0 76500 0 00036        LRS 30           RETURN FROM SUB1.                               F6R00990    
       00350 -0 77300 0 00001        RQL 1                                                            F6R01000    
       00351  0 02000 0 00355        TRA IN313                                                        F6R01010    
       00352  0 07400 1 00654  IN310 TSX SUB2,1       INTERNAL FORMULA NO. TYPE.                      F6R01020    
 T     00353 -0 75400 0 00000        PXD                                                              F6R01030    
       00354 -0 76300 0 00006        LGL 6                                                            F6R01040    
       00355 -0 60200 0 01006  IN313 ORS E1004                                                        F6R01050    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 012/012 ------           
       00356 -0 60000 0 01002        STQ E1000                                                        F6R01060    
       00357 -0 50000 0 00715        CAL DT713                                                        F6R01070    
       00360 -0 60200 0 01002        ORS E1000                                                        F6R01080    
       00361  0 56000 0 01002        LDQ E1000                                                        F6R01090    
       00362 -0 50000 0 00355  IN320 CAL IN313                                                        F6R01100    
       00363  0 07400 1 00445        TSX IN403,1                                                      F6R01110    
       00364  0 50000 0 01000        CLA DATA5       SELECT RELATIVE ADDRESS.                         F6R01120    
       00365  0 77100 0 00022        ARS 18                                                           F6R01130    
       00366  0 10000 0 00377        TZE IN335       RA EQUAL ZERO, GO TO IN335                       F6R01140    
       00367  0 56000 0 00710        LDQ DATA6       RA NOT EQUAL ZERO, LOAD MQ WITH BLANKS AND       F6R01150    
       00370  0 07400 1 00464        TSX IN422,1     GO TO IN422                                      F6R01160    
       00371  0 50000 0 01000        CLA DATA5       SET ACC. EQUAL RA.                               F6R01170    
       00372  0 12000 0 00375        TPL IN333       IF RA POSITIVE, GO TO IN333.                     F6R01180    
       00373 -0 50000 0 00716        CAL DT714       IF RA NEGATIVE, SELECT OCTAL 40 (MINUS)          F6R01190    
       00374  0 02000 0 00376        TRA IN334       AND GO TO IN334.                                 F6R01200    
       00375 -0 50000 0 00717  IN333 CAL DATA8       SELECT OCTAL 20 (PLUS)                           F6R01210    
       00376  0 07400 1 00460  IN334 TSX IN416,1                                                      F6R01220    
       00377  0 50000 0 01000  IN335 CLA DATA5       SET ACC. EQUAL RA. ANA OCTAL 77777               F6R01230    
       00400 -0 32000 0 00726        ANA DATA1                                                        F6R01240    
       00401 -0 10000 0 00406        TNZ IN344       IF NOT ZERO, GO TO IN344.                        F6R01250    
       00402  0 50000 0 01001        CLA E0777       ZERO. TEST IF E0777 EQUAL ZERO.                  F6R01260    
       00403  0 10000 0 00425        TZE IN363       IF ZERO, GO TO IN363.                            F6R01270    
       00404  0 56000 0 00713        LDQ DT711       NOT ZERO, LOAD MQ WITH 0 IN 1ST CHARAC, REST     F6R01280    
       00405  0 02000 0 00414        TRA IN352       AND GO TO IN 352                                 F6R01290    
       00406  0 56000 0 00712  IN344 LDQ DT710                                                        F6R01300    
       00407  0 34000 0 00724        CAS DT722                                                        F6R01310    
       00410  0 02000 0 00413        TRA IN351                                                        F6R01320    
       00411  0 02000 0 00413        TRA IN351                                                        F6R01330    
       00412  0 56000 0 00710        LDQ DATA6                                                        F6R01340    
       00413  0 07400 1 00464  IN351 TSX IN422,1                                                      F6R01350    
       00414  0 50000 0 00714  IN352 CLA DT712                                                        F6R01360    
       00415  0 07400 1 00460        TSX IN416,1                                                      F6R01370    
       00416  0 50000 0 01001        CLA E0777                                                        F6R01380    
       00417  0 10000 0 00425        TZE IN363                                                        F6R01390    
       00420  0 77100 0 00022        ARS 18                                                           F6R01400    
       00421  0 56000 0 00710        LDQ DATA6                                                        F6R01410    
       00422  0 07400 1 00464        TSX IN422,1                                                      F6R01420    
       00423  0 50000 0 00714        CLA DT712                                                        F6R01430    
       00424  0 07400 1 00460        TSX IN416,1                                                      F6R01440    
 T     00425 -0 75400 0 00006  IN363 PXD 6                                                            F6R01450    
       00426  0 56000 0 00710        LDQ DATA6                                                        F6R01460    
       00427 -0 76300 2 00044        LGL 36,2                                                         F6R01470    
       00430 -0 60200 0 00430  IN366 ORS *                                                            F6R01480    
       00431  0 76600 0 00202  IN367 WTD 2                                                            F6R01490    
       00432  0 53400 1 00425        LXA IN363,1                                                      F6R01500    
       00433  0 70000 1 01013  IN371 CPY E1011,1                                                      F6R01510    
       00434  2 00001 1 00433        TIX IN371,1,1                                                    F6R01520    
       00435  0 76600 0 00333        IOD                                                              F6R01530    
       00436 -0 53400 1 00442        LXD ADD08,1                                                      F6R01540    
       00437  1 00004 1 00440        TXI ADD06,1,4                                                    F6R01550    
       00440 -3 00440 1 00236  ADD06 TXL IN207,1,*                                                    F6R01560    
       00441 -0 53400 2 00221        LXD ADD02,2                                                      F6R01570    
       00442  1 00442 0 00223  ADD08 TXI ADD03,0,*                                                    F6R01580    
       00443 -3 00036 2 00454  IN401 TXL IN412,2,30  IF SHIFT LESS THEN OR EQUAL 30, GO TO SELECT     F6R01590    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 013/013 ------           
       00444 -0 50000 0 00461        CAL IN417       SHIFT GREATER THEN 30. PREPARE TO MODIFY ADDRES  F6R01600    
       00445  0 40000 0 00725  IN403 ADD DT723       COMPUTE ADDRESS FOR STORING WORD.                F6R01610    
       00446  0 62100 0 00461        STA IN417                                                        F6R01620    
       00447  0 62100 0 00430        STA IN366                                                        F6R01630    
       00450  0 62100 0 00452        STA IN410                                                        F6R01640    
 T     00451 -0 75400 0 00000        PXD             CLEAR ACC.                                       F6R01650    
       00452  0 60200 0 00452  IN410 SLW *           STORE ZERO IN WORD.                              F6R01660    
       00453 -0 73400 2 00000        PDX 0,2         SET XR2 EQUAL TO ZERO                            F6R01670    
       00454 -0 76300 0 00006  IN412 LGL 6           SELECT CHARACTER                                 F6R01680    
       00455  0 34000 0 00715        CAS DT713       IS CHARACTER BLANK.                              F6R01690    
       00456  0 02000 0 00460        TRA IN416       NO.                                              F6R01700    
       00457  0 02000 1 00001        TRA 1,1         YES, RETURN TO PROGRAM                           F6R01710    
       00460  0 76700 2 00036  IN416 ALS 30,2        NO, SHIFT CHARACTER                              F6R01720    
       00461 -0 60200 0 00461  IN417 ORS *                                                            F6R01730    
 T     00462 -0 75400 0 00000        PXD                                                              F6R01740    
       00463  1 00006 2 00443        TXI IN401,2,6   ADJUST XR2 SHIFT AND GO TO IN401.                F6R01750    
       00464 -0 60000 0 01004  IN422 STQ E1002                                                        F6R01760    
       00465 -0 63400 1 00774        SXD DT772,1                                                      F6R01770    
       00466  0 76500 0 00043  IN424 LRS 35                                                           F6R01780    
       00467 -0 73400 1 00000        PDX 0,1                                                          F6R01790    
       00470  0 60200 0 01003        SLW E1001                                                        F6R01800    
       00471  0 22100 0 00723  IN427 DVP DT721                                                        F6R01810    
       00472  0 76700 1 00000        ALS 0,1                                                          F6R01820    
       00473 -0 60200 0 01003        ORS E1001                                                        F6R01830    
       00474 -0 60000 0 01002        STQ E1000                                                        F6R01840    
       00475  0 50000 0 01002        CLA E1000                                                        F6R01850    
       00476  0 10000 0 00501        TZE IN437                                                        F6R01860    
       00477  0 76000 0 00000        CLM 0                                                            F6R01870    
       00500  1 77772 1 00471        TXI IN427,1,-6                                                   F6R01880    
       00501 -0 50000 0 01003  IN437 CAL E1001                                                        F6R01890    
       00502  0 56000 0 01004        LDQ E1002                                                        F6R01900    
       00503 -0 76300 0 00001        LGL 1                                                            F6R01910    
       00504  0 56000 0 01004  IN442 LDQ E1002                                                        F6R01920    
       00505  0 76500 1 00006        LRS 6,1                                                          F6R01930    
       00506 -0 53400 1 00774        LXD DT772,1                                                      F6R01940    
       00507  0 02000 1 00001        TRA 1,1                                                          F6R01950    
       00510  0 77100 0 00022  IN446 ARS 18                                                           F6R01960    
       00511  0 10000 0 00362        TZE IN320                                                        F6R01970    
       00512  0 07400 1 00464        TSX IN422,1                                                      F6R01980    
       00513  0 50000 0 01000        CLA DATA5                                                        F6R01990    
       00514  0 12000 0 00517        TPL IN455                                                        F6R02000    
       00515 -0 50000 0 00716        CAL DT714                                                        F6R02010    
       00516  0 02000 0 00521        TRA IN457                                                        F6R02020    
 T     00517 -0 75400 0 00000  IN455 PXD                                                              F6R02030    
       00520 -0 76300 0 00006        LGL 6                                                            F6R02040    
       00521 -0 60200 0 01006  IN457 ORS E1004                                                        F6R02050    
       00522 -0 50000 0 00355        CAL IN313                                                        F6R02060    
       00523  0 07400 1 00445        TSX IN403,1                                                      F6R02070    
       00524  0 02000 0 00377        TRA IN335                                                        F6R02080    
       00525  0 56000 0 00777  ADD15 LDQ DATA4                                                        F6R02090    
       00526 -0 50000 0 00717        CAL DATA8                                                        F6R02100    
       00527  0 16200 0 00532        TQP IN470                                                        F6R02110    
       00530  0 40000 0 00717        ADD DATA8                                                        F6R02120    
       00531  0 76500 0 00000        LRS 0                                                            F6R02130    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 014/014 ------           
       00532 -0 60200 0 01006  IN470 ORS E1004                                                        F6R02140    
       00533  0 76700 0 00003        ALS 3                                                            F6R02150    
       00534 -0 76300 0 00003        LGL 3                                                            F6R02160    
       00535  0 76700 0 00003        ALS 3                                                            F6R02170    
       00536 -0 76300 0 00003        LGL 3                                                            F6R02180    
       00537  0 76700 0 00003        ALS 3                                                            F6R02190    
       00540 -0 76300 0 00003        LGL 3                                                            F6R02200    
       00541  0 76700 0 00003        ALS 3                                                            F6R02210    
       00542 -0 76300 0 00003        LGL 3                                                            F6R02220    
       00543  0 76700 0 00003        ALS 3                                                            F6R02230    
       00544 -0 76300 0 00003        LGL 3                                                            F6R02240    
       00545  0 76700 0 00003        ALS 3                                                            F6R02250    
       00546 -0 76300 0 00003        LGL 3                                                            F6R02260    
       00547  0 60200 0 01007        SLW E1005                                                        F6R02270    
       00550  0 76700 0 00003        ALS 3                                                            F6R02280    
       00551 -0 76300 0 00003        LGL 3                                                            F6R02290    
       00552  0 76700 0 00003        ALS 3                                                            F6R02300    
       00553 -0 76300 0 00003        LGL 3                                                            F6R02310    
       00554  0 76700 0 00003        ALS 3                                                            F6R02320    
       00555 -0 76300 0 00003        LGL 3                                                            F6R02330    
       00556  0 76700 0 00003        ALS 3                                                            F6R02340    
       00557 -0 76300 0 00003        LGL 3                                                            F6R02350    
       00560  0 76700 0 00003        ALS 3                                                            F6R02360    
       00561 -0 76300 0 00003        LGL 3                                                            F6R02370    
       00562  0 76700 0 00003        ALS 3                                                            F6R02380    
       00563 -0 76300 0 00003        LGL 3                                                            F6R02390    
       00564  0 60200 0 01010        SLW E1006                                                        F6R02400    
       00565  0 02000 0 00431        TRA IN367                                                        F6R02410    
       00566  0 50000 0 00777  ADD14 CLA DATA4                                                        F6R02420    
       00567  0 40200 0 00721        SUB DT717                                                        F6R02430    
       00570 -0 10000 0 00574        TNZ IN532                                                        F6R02440    
       00571 -0 50000 0 00706        CAL DAT10                                                        F6R02450    
       00572  0 60200 0 01006        SLW E1004                                                        F6R02460    
       00573  0 02000 0 00525        TRA ADD15                                                        F6R02470    
       00574 -0 50000 0 00725  IN532 CAL DT723                                                        F6R02480    
       00575 -0 60200 0 01006        ORS E1004                                                        F6R02490    
       00576 -0 50000 0 00777        CAL DATA4                                                        F6R02500    
       00577  0 60200 0 01007        SLW E1005                                                        F6R02510    
       00600 -0 50000 0 00710        CAL DATA6                                                        F6R02520    
       00601  0 60200 0 01010        SLW E1006                                                        F6R02530    
       00602  0 02000 0 00431        TRA IN367                                                        F6R02540    
       00603 -0 63400 1 00705  SUB1  SXD DT703,1     SAVE XR1 FOR RETURN                              F6R02550    
       00604  0 73400 4 00000        PAX 0,4         STORE CHARACTER IN XR4                           F6R02560    
       00605  0 40200 0 00722        SUB DATA7       IS CHARACTER *.                                  F6R02570    
       00606 -0 10000 0 00621        TNZ IN550       NO, GO TO IN 550.                                F6R02580    
       00607 -0 50000 0 00720        CAL DT716       YES, SELECT *.                                   F6R02590    
       00610  0 56000 0 00710        LDQ DATA6       LOAD MQ WITH BLANKS.                             F6R02600    
       00611  0 02000 0 00355        TRA IN313       GO TO IN 313.                                    F6R02610    
       00612  0 02000 0 01164  LIB2  TRA RPCH1                                                        F6R02620    
       00613  0 02000 0 00306        TRA ADD12                                                        F6R02630    
       00614  000000000053     LIB3  BCD 100000$                                                      F6R02640    
       00615  536060606060     LIB4  BCD 1$                                                           F6R02650    
       00616  000000000074     LIB5  BCD 100000(                                                      F6R02660    
       00617 -0 50000 0 00775  LIB6  CAL DATA2                                                        F6R02670    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 015/015 ------           
       00620  0 02000 0 00306        TRA ADD12                                                        F6R02680    
       00621 -0 50000 4 00772  IN550 CAL DT770,4     SELECT APPROPRIATE NUMERIC OR ALPHABETIC         F6R02690    
       00622  0 76700 0 00006        ALS 6           CHARACTER.                                       F6R02700    
       00623 -0 50100 0 00773        ORA DT771       FOLLOWED BY LEFT PARENTHESIS                     F6R02710    
       00624  0 76700 0 00030        ALS 24          AND SHIFT INTO PROPER POSITION.                  F6R02720    
       00625  0 60200 0 01002        SLW E1000                                                        F6R02730    
       00626  0 53400 3 00636        LXA IN565,3                                                      F6R02740    
       00627 -0 77300 0 00014        RQL 12                                                           F6R02750    
 T     00630 -0 75400 0 00000        PXD 0                                                            F6R02760    
       00631 -0 76300 0 00003        LGL 3           TAG BITS INTO ACC. ADDRESS                       F6R02770    
       00632 -0 10000 0 00636        TNZ IN565       TAG BITS EQUAL ZERO. NO, GO TO IN565             F6R02780    
       00633 -2 00001 1 00646  IN562 TNX IN575,1,1   YES. IF FINISHED WITH WORD, GO TO IN 575         F6R02790    
       00634 -0 76300 0 00005        LGL 5           NOT FINISHED WITH WORD. TEST ADDRESS BITS        F6R02800    
       00635  0 10000 0 00633        TZE IN562       ADDRESS BITS ZERO.                               F6R02810    
       00636  0 73400 4 00004  IN565 PAX 4,4         ADDRESS BITS NOT ZERO.                           F6R02820    
       00637 -0 50000 4 00772        CAL DT770,4     SELECT CHARACTER.                                F6R02830    
       00640 -2 00001 1 00647        TNX IN576,1,1                                                    F6R02840    
       00641  0 76700 2 00026        ALS 22,2        SHIFT INTO PROPER POSITION .                     F6R02850    
       00642 -0 60200 0 01002        ORS E1000                                                        F6R02860    
 T     00643 -0 75400 0 00000        PXD                                                              F6R02870    
       00644 -0 76300 0 00005        LGL 5                                                            F6R02880    
       00645  1 00006 2 00636        TXI IN565,2,6   ADJUST SHIFT.                                    F6R02890    
       00646 -0 50000 0 00715  IN575 CAL DT713                                                        F6R02900    
       00647  0 56000 0 00710  IN576 LDQ DATA6                                                        F6R02910    
       00650 -0 76300 2 00026        LGL 22,2                                                         F6R02920    
       00651 -0 50100 0 01002        ORA E1000                                                        F6R02930    
       00652 -0 53400 1 00705        LXD DT703,1                                                      F6R02940    
       00653  0 02000 1 00001        TRA 1,1                                                          F6R02950    
       00654  0 60100 0 01002  SUB2  STO E1000                                                        F6R02960    
       00655 -0 76300 0 00010        LGL 8                                                            F6R02970    
 T     00656 -0 75400 0 00000        PXD 0                                                            F6R02980    
       00657  0 76500 0 00035        LRS 29                                                           F6R02990    
       00660  0 22100 0 00723        DVP DT721                                                        F6R03000    
       00661 -0 10000 0 00663        TNZ IN612                                                        F6R03010    
       00662 -0 50000 0 00715        CAL DT713       IF SUBSIDIARY NO. IS ZERO, SELECT A BLANK        F6R03020    
       00663  0 60200 0 01004  IN612 SLW E1002                                                        F6R03030    
       00664 -0 76300 0 00044        LGL 36                                                           F6R03040    
       00665 -0 63400 1 00774        SXD DT772,1                                                      F6R03050    
       00666  0 73400 1 00000        PAX 0,1                                                          F6R03060    
       00667 -0 50000 1 00760        CAL IN756,1     SELECT ALPHABETIC CHARACTER.                     F6R03070    
       00670  0 76700 0 00006        ALS 6                                                            F6R03080    
       00671 -0 50100 0 01004        ORA E1002                                                        F6R03090    
       00672  0 56000 0 00710        LDQ DATA6                                                        F6R03100    
       00673 -0 76300 0 00030        LGL 24                                                           F6R03110    
       00674  0 60200 0 01004        SLW E1002                                                        F6R03120    
       00675  0 50000 0 01002        CLA E1000                                                        F6R03130    
       00676  0 02000 0 00466        TRA IN424                                                        F6R03140    
       00677  0 00000 0 00000  ADD07 HTR 0                                                            F6R03150    
       00700  0 77000 0 00202  ADD01 WEF 2                                                            F6R03160    
       00701  0 77200 0 00204        REW 4                                                            F6R03170    
       00702  0 77200 0 00202        REW 2                                                            F6R03180    
       00703  0 76200 0 00221        RTB 1                                                            F6R03190    
       00704  0 02000 0 00004        TRA 4                                                            F6R03200    
       00705  0 00000 0 00000  DT703 HTR 0                                                            F6R03210    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 016/016 ------           
       00706 -204623636000     DAT10 OCT 604623636000                                                 F6R03220    
       00707 -202223246000     DATA9 OCT 602223246000                                                 F6R03230    
       00710 -206060606060     DATA6 OCT 606060606060                                                 F6R03240    
       00711 +336060606060     DT707 OCT 336060606060                                                 F6R03250    
       00712 -236060606060     DT710 OCT 636060606060                                                 F6R03260    
       00713 +006060606060     DT711 OCT 006060606060                                                 F6R03270    
       00714 +000000000073     DT712 OCT 73                                                           F6R03280    
       00715 +000000000060     DT713 OCT 60                                                           F6R03290    
       00716 +000000000040     DT714 OCT 40                                                           F6R03300    
       00717 +000000000020     DATA8 OCT 20                                                           F6R03310    
       00720 +000000000054     DT716 OCT 54                                                           F6R03320    
       00721 -377777777777     DT717 OCT 777777777777                                                 F6R03330    
       00722 +000000000017     DATA7 OCT 17                                                           F6R03340    
       00723 +000000000012     DT721 OCT 12                                                           F6R03350    
       00724 +000000000005     DT722 OCT 5                                                            F6R03360    
       00725 +000000000001     DT723 OCT 1                                                            F6R03370    
       00726 +000000077777     DATA1 OCT 77777                                                        F6R03380    
       00727 +000000000071     DT725 OCT 71                                                           F6R03390    
       00730 +000000000070           OCT 70                                                           F6R03400    
       00731 +000000000067           OCT 67                                                           F6R03410    
       00732 +000000000066           OCT 66                                                           F6R03420    
       00733 +000000000065           OCT 65                                                           F6R03430    
       00734 +000000000064           OCT 64                                                           F6R03440    
       00735 +000000000063           OCT 63                                                           F6R03450    
       00736 +000000000062           OCT 62                                                           F6R03460    
       00737 +000000000051     DT735 OCT 51                                                           F6R03470    
       00740 +000000000050           OCT 50                                                           F6R03480    
       00741 +000000000047           OCT 47                                                           F6R03490    
       00742 +000000000046           OCT 46                                                           F6R03500    
       00743 +000000000045           OCT 45                                                           F6R03510    
       00744 +000000000044           OCT 44                                                           F6R03520    
       00745 +000000000043           OCT 43                                                           F6R03530    
       00746 +000000000042           OCT 42                                                           F6R03540    
       00747 +000000000041           OCT 41                                                           F6R03550    
       00750 +000000000031           OCT 31                                                           F6R03560    
       00751 +000000000030           OCT 30                                                           F6R03570    
       00752 +000000000027           OCT 27                                                           F6R03580    
       00753 +000000000026           OCT 26                                                           F6R03590    
       00754 +000000000025           OCT 25                                                           F6R03600    
       00755 +000000000024           OCT 24                                                           F6R03610    
       00756 +000000000023           OCT 23                                                           F6R03620    
       00757 +000000000022           OCT 22                                                           F6R03630    
       00760 +000000000021     IN756 OCT 21                                                           F6R03640    
       00761 +000000000011           OCT 11                                                           F6R03650    
       00762 +000000000010           OCT 10                                                           F6R03660    
       00763 +000000000007           OCT 7                                                            F6R03670    
       00764 +000000000006           OCT 6                                                            F6R03680    
       00765 +000000000005           OCT 5                                                            F6R03690    
       00766 +000000000004           OCT 4                                                            F6R03700    
       00767 +000000000003           OCT 3                                                            F6R03710    
       00770 +000000000002           OCT 2                                                            F6R03720    
       00771 +000000000001           OCT 1                                                            F6R03730    
       00772 +000000000000     DT770 OCT 0                                                            F6R03740    
       00773 +000000000034     DT771 OCT 34                                                           F6R03750    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 017/017 ------           
       00774  0 00000 0 00000  DT772 HTR 0                                                            F6R03760    
       00775  0 00000 0 00000  DATA2 HTR 0                                                            F6R03770    
       00776  0 00000 0 00000  DATA3 HTR 0                                                            F6R03780    
       00777  0 00000 0 00000  DATA4 HTR 0                                                            F6R03790    
       01000  0 00000 0 00000  DATA5 HTR 0                                                            F6R03800    
       01001  0 00000 0 00000  E0777 HTR 0                                                            F6R03810    
       01002  0 00000 0 00000  E1000 HTR 0                                                            F6R03820    
       01003  0 00000 0 00000  E1001 HTR 0                                                            F6R03830    
       01004  0 00000 0 00000  E1002 HTR 0                                                            F6R03840    
       01005  0 00000 0 00000  E1003 HTR 0                                                            F6R03850    
       01006  0 00000 0 00000  E1004 HTR 0                                                            F6R03860    
       01007  0 00000 0 00000  E1005 HTR 0                                                            F6R03870    
       01010  0 00000 0 00000  E1006 HTR 0                                                            F6R03880    
       01011  0 00000 0 00000  E1007 HTR 0                                                            F6R03890    
       01012  0 00000 0 00000  E1010 HTR 0                                                            F6R03900    
       01013  0 00000 0 00000  E1011 HTR 0                                                            F6R03910    
       01014  0 00000 0 00000        HTR 0                                                            F6R03920    
       01015  0 00000 0 00000        HTR 0                                                            F6R03930    
       01016  0 00000 0 00000        HTR 0                                                            F6R03940    
       01017  0 00000 0 00000  E1015 HTR 0                                                            F6R03950    
                        01164  REC   BES 100                                                          F6R03960    
       01164  0 76300 0 00006  RPCH1 LLS 6                                                            F6R03961    
       01165  0 40200 0 00614        SUB LIB3                                                         F6R03962    
       01166  0 10000 0 01171        TZE LIB2A                                                        F6R03963    
       01167 -0 50000 0 00615        CAL LIB4         SINGLE DOLLAR SIGN                              F6R03964    
       01170  0 02000 0 00306        TRA ADD12                                                        F6R03965    
       01171 -0 50000 0 01173  LIB2A CAL DOL2         DOUBLE DOLLAR SIGN.                             F6R03966    
       01172  0 02000 0 00306        TRA ADD12                                                        F6R03967    
       01173  535360606060     DOL2  BCD 1$$                                                          F6R03968    
                        01160  REC01 SYN REC-4                                                        F6R03979    
                        01161  REC02 SYN REC-3                                                        F6R03980    
                        01162  REC03 SYN REC-2                                                        F6R03990    
                        01163  RECOR SYN REC-1                                                        F6R04000    
 A                      00000        END                                                              F6R04010    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     431           0           0           0           0
 LIB       0           0           0           0           0
 COL     431           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      438                  
0NUMBER OF SYMBOLS,  DEF   115,DEFOP     0,UNDEF     0      
9            REM EXAMPLE OF DIAGNOSTIC CALLER FOR 704 FORTRAN II                          
1                                        EXAMPLE OF DIAGNOSTIC CALLER FOR 704 FORTRAN II                          
                                         ------ SCANNED 9/6/07 304349-VOLUME_III.PDF PAGE 85/969 ------           
                                                                                                                  
                                         RECNBR IS SYNONYMOUS WITH THE NUMBER OF THE RECORD T0 WHICH              
                                         THE DIAGNOSTIC CALLER PERTAINS. REC*** IS THE FORTRAN RECORD             
                                         NUMBER ASSIGNED TO THE DIAGNOSTIC CALLER.                                
                                         BEGIN IS SYNONYMOUS WITH THE LOAD ADDRESS OF THE DIAGNOSTIC              
                                         CALLER. BEG**** HAS THE SAME VALUE AS BEGIN.                             
                                                                                                                  
                        00000 RECNBR SYN ***                                                          REC  ***    
                        00000 BEGIN  SYN ****                                                         REC ****    
                        00000        ORG 0                 FORCE NEW MASTER RECORD                    MR 1        
       00000  0 00000 0 00000        HTR BEGIN,0,BEGIN     CARD FOR EDITOR, NEEDS                     MR 2        
       00001  0 00000 0 00021        HTR STOP              9 ROW, COL. 3 PUNCH                        MR 3        
                        00000        ORG BEGIN             CALL DIAG FROM FILE                        CD1  1      
       00000 -0 63400 2 00000        SXD 0,2                                                          CD1  2      
       00001 -0 53400 1 00014        LXD MEM,1                                                        CD1  3      
       00002 -0 53400 2 00012        LXD FILTST,2          * FILES TO BE SPACED OVER                  CD1  4      
       00003  0 76600 0 00304        WDR 4                 0 TO 2047 WRITTEN ON DRUM 4                CD1  5      
       00004  0 70000 1 04000 COPY   CPY 2048,1                                                       CD1  6      
       00005  2 00001 1 00004        TIX COPY,1,1          NEXT TIME LOOP WILL COPY INTO 25           CD1  7      
       00006  1 03746 1 00010        TXI A,1,2022          UNTIL END OF RECORD SKIP                   CD1  S      
       00007  0 02000 0 00032        TRA 26                IGNORE RECORD NUMBER                       CD1  9      
       00010  0 76200 0 00221 A      RTB 1                                                            CD1 10      
       00011  0 70000 0 00000        CPY BEGIN             SPACE OVER RECORDS IN THIS FILE            CD1 11      
       00012 -2 00003 0 00010 FILTST TNX A,0,3                                                        CD1 12      
       00013  0 02000 0 00015        TRA B                 HAVE ALL 3 FILES BEEN SPACED OVER          CD1 13      
       00014  0 04000 0 00000 MEM    HTR RECNBR,0,2048                                                CD1 14      
       00015  2 00001 2 00010 B      TIX A,2,1             NO, GO BACK TO A                           CD1 15      
       00016  0 50000 0 00014        CLA MEM                                                          CD1 16      
       00017  0 62100 0 00002        STA 2                                                            CD1 17      
       00020  0 76200 0 00221        RTB 1                 YES, READ IN MAIN DIAGNOSTIC               CD1 18      
       00021  0 02000 0 00004 STOP   TRA COPY                                                         CD1 19      
 A                      00000        END                                                              CD1 20      
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      34           0           0           0           0
 LIB       0           0           0           0           0
 COL      34           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       43                  
0NUMBER OF SYMBOLS,  DEF     8,DEFOP     0,UNDEF     0      
9            REM AST                                                                      
1                                        AST                                                                      
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 018/018 ------           
                                         ************* FORTRAN II SECTION SIX ************************F6S00010    
                                         FORTRAN 2   RECORD 005  -  ON-LINE PRINT.                    F6S00011    
                                                                                                      F6S00012    
                                         MODIFICATIONS TO TPH1 TO PRINT WITH                          F6S00020    
                                         SENSE SWITCH CHANGES                                         F6S00030    
                        00210        ORG 136                                                          F6S00040    
       00210  0 77200 0 00202        REW 2                                                            F6S00050    
       00211 -0 53400 1 00225        LXD FILES,1                                                      F6S00060    
       00212  0 50000 0 00162        CLA ONE                                                          F6S00070    
       00213  0 34000 0 00200        CAS SW2          TEST SENSE SWITCH TWO.                          F6S00080    
       00214  0 02000 0 00217        TRA LIB1         UP                                              F6S00090    
       00215  0 02000 0 00220        TRA ASKER        DOWN                                            F6S00100    
       00216  0 76000 0 00162        SWT 2                                                            F6S00110    
       00217 -2 00001 1 00234  LIB1  TNX CARDS,1,1    UP, ANY FILES TO DO. GO RETURN TO LOADER IF NOT F6S00120    
       00220  0 50000 0 00162  ASKER CLA ONE          SWITCH 2 DOWN (OR UP BUT FILES TO DO)           F6S00130    
       00221  0 34000 0 00201        CAS SW3          TEST SENSE SWITCH THREE.                        F6S00140    
       00222  0 02000 0 00225        TRA FILES        UP, GO TO RETURN TO LOADER                      F6S00150    
       00223  0 02000 0 00226        TRA LIB2         DOWN                                            F6S00160    
       00224  0 76000 0 00163        SWT 3                                                            F6S00170    
       00225  1 00003 0 00234  FILES TXI CARDS,,3     UP, GO RETURN TO LOADER                         F6S00180    
       00226 -0 63400 1 00231  LIB2  SXD COUNT,1      SWITCH THREE DOWN.                              F6S00190    
       00227  0 76600 0 00361        WPR              TO PRINT FILE OF TAPE TWO.                      F6S00200    
       00230  0 76000 0 00361        SPR 1                                                            F6S00210    
 TD    00231  1 00000 0 00237  COUNT TXI PRINT                                                        F6S00220    
       00232 -0 53400 1 00231  PARTS LXD COUNT,1                                                      F6S00230    
       00233  2 00001 1 00220        TIX ASKER,1,1                                                    F6S00240    
       00234  0 76200 0 00221  CARDS RTB 1            RETURN TO LOADER                                F6S00250    
       00235  0 02000 0 00004        TRA 4                                                            F6S00260    
       00236  0 00000 0 00005  ME8   HTR 5                                                            F6S00270    
       00237 -0 76000 0 00012  PRINT RTT                                                              F6S00280    
       00240  0 76100 0 00000        NOP                                                              F6S00290    
       00241 -0 53400 4 00236  ME9   LXD ME8,4                                                        F6S00300    
       00242 -0 53400 2 00246  I113  LXD I117,2       SET RECORD LENGTH EQUAL 20                      F6S00310    
       00243  0 76000 0 00141        SLN 1            TURN ON SENSE LIGHT 1                           F6S00320    
       00244  0 76200 0 00202        RTD 2            SELECT TAPE TWO IN BCD MODE                     F6S00330    
       00245  0 70000 2 00551  I116  CPY D65,2        AND COPY RECORD.                                F6S00340    
       00246 -3 00024 0 00261  I117  TXL I132,,20                                                     F6S00350    
       00247  0 02000 0 00232        TRA PARTS        END OF FILE.                                    F6S00360    
       00250  1 00001 2 00251  I121  TXI I122,2,1                                                     F6S00370    
       00251 -0 75400 2 00000  I122  PXD 0,2                                                          F6S00380    
       00252 -0 76000 0 00012        RTT              TEST TAPE CHECK.                                F6S00390    
       00253 -3 00000 0 00263        TXL I134,0,0     ERROR.                                          F6S00400    
       00254  0 40000 0 00260  I125  ADD I131         PRINT THIS RECORD.                              F6S00410    
       00255  0 62200 0 00257        STD I130                                                         F6S00420    
       00256  0 07400 4 00267        TSX I143,4                                                       F6S00430    
       00257  0 00000 0 00525  I130  HTR D41+1                                                        F6S00440    
       00260 -3 00551 0 00241  I131  TXL ME9,0,D65                                                    F6S00450    
       00261  2 00001 2 00245  I132  TIX I116,2,1     NEXT WORD BUT NO                                F6S00460    
       00262 -3 00000 0 00251        TXL I122,0,0     MORE THEN 20.                                   F6S00470    
       00263  2 00001 4 00265  I134  TIX I136,4,1     TEST FOR ANOTHER TRY.                           F6S00480    
       00264  0 07400 4 00004        TSX 4,4                                                          F6S00490    
       00265  0 76400 0 00202  I136  BST 2            TRY AGAIN.                                      F6S00500    
       00266 -3 00000 0 00242        TXL I113,0,0                                                     F6S00510    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 019/019 ------           
       00267  0 50000 4 00001  I143  CLA 1,4          SUBSTITUTE CODING.                              F6S00520    
       00270  0 62200 0 00432        STD I302                                                         F6S00530    
       00271  0 77100 0 00022        ARS 18                                                           F6S00540    
       00272  0 40000 0 00432        ADD I302                                                         F6S00550    
       00273  0 62100 0 00305        STA I161                                                         F6S00560    
       00274  0 62100 0 00341        STA I211                                                         F6S00570    
       00275  0 40200 4 00001        SUB 1,4                                                          F6S00580    
       00276 -0 63400 4 00432        SXD I302,4                                                       F6S00590    
       00277  0 73400 4 00000        PAX 0,4                                                          F6S00600    
       00300 -0 63400 4 00301        SXD I155,4                                                       F6S00610    
       00301  3 00301 0 00000  I155  TXH 0,0,*                                                        F6S00620    
       00302  0 76600 0 00361        WPR             SELECT PRINTER                                   F6S00630    
       00303  0 50000 0 00431        CLA I301        FIND LAST NON-BLANK GROUP.                       F6S00640    
       00304 -0 53400 4 00354        LXD I224,4                                                       F6S00650    
       00305  0 34000 4 00305  I161  CAS *,4                                                          F6S00660    
       00306  1 77777 4 00311        TXI I165,4,-1                                                    F6S00670    
       00307  1 00001 4 00305  I163  TXI I161,4,1                                                     F6S00680    
       00310  1 77777 4 00311        TXI I165,4,-1                                                    F6S00690    
       00311 -0 63400 4 00360  I165  SXD I230,4      STORE END TEST.                                  F6S00700    
       00312 -0 63400 4 00372        SXD I242,4                                                       F6S00710    
       00313 -0 63400 4 00316        SXD I172,4                                                       F6S00720    
       00314 -0 63400 4 00421        SXD I271,4                                                       F6S00730    
       00315 -0 53400 4 00301        LXD I155,4                                                       F6S00740    
 D     00316 -2 00000 4 00322  I172  TNX I176,4                                                       F6S00750    
       00317 -3 00014 4 00321        TXL I175,4,12                                                    F6S00760    
       00320  0 76000 0 00370        SPR 8           FIRST CYCLE.                                     F6S00770    
       00321 -0 53400 4 00301  I175  LXD I155,4      INITIALIZE GROUP COUNT.                          F6S00780    
       00322  0 53400 2 00333  I176  LXA I203,2      INITIALIZE LEFT SETUP.                           F6S00790    
       00323 -0 53400 1 00375        LXD I245,1                                                       F6S00800    
       00324  0 50000 0 00162        CLA ONE                                                          F6S00810    
       00325  0 34000 0 00202        CAS SW4                                                          F6S00820    
       00326  0 02000 0 00331        TRA I201                                                         F6S00830    
       00327  0 02000 0 00332        TRA LIB5                                                         F6S00840    
       00330  0 76000 0 00164        SWT 4                                                            F6S00850    
       00331 -3 00331 0 00333  I201  TXL I203,0,*                                                     F6S00860    
       00332  0 76100 0 00000  LIB5  NOP                                                              F6S00870    
 T     00333 -0 75400 0 00000  I203  PXD                                                              F6S00880    
       00334  0 60200 1 00524  I204  SLW D41,1      CLEAR CARD IMAGE.                                 F6S00890    
       00335  0 60200 1 00504        SLW D21,1                                                        F6S00900    
       00336  2 00001 1 00334        TIX I204,1,1                                                     F6S00910    
       00337 -0 50000 0 00433  I207  CAL I303       INITIALIZE COLUMN INDICATOR.                      F6S00920    
       00340  0 60200 0 00000  I210  SLW 0                                                            F6S00930    
       00341  0 56000 4 00341  I211  LDQ *,4        OBTAIN GROUP.                                     F6S00940    
       00342 -0 63400 4 00331        SXD I201,4     STORE GROUP COUNT.                                F6S00950    
       00343  0 53400 4 00345        LXA I215,4     SET CHARACTER COUNT.                              F6S00960    
 T     00344 -0 75400 0 00000  I214  PXD                                                              F6S00970    
       00345 -0 76300 0 00006  I215  LGL 6                                                            F6S00980    
       00346  0 73400 1 00000        PAX 0,1                                                          F6S00990    
       00347 -0 50000 0 00000        CAL 0          POSITION COLUMN INDICATOR.                        F6S01000    
       00350  0 77100 4 00006        ARS 6,4                                                          F6S01010    
       00351  2 00020 1 00375        TIX I245,1,16  TEST FOR DIGIT.                                   F6S01020    
       00352  3 00017 1 00400        TXH I250,1,15  TEST FOR Y-Z ONE                                  F6S01030    
       00353 -0 60200 3 00521        ORS D36,3      STORE DIGIT.                                      F6S01040    
       00354  2 00001 4 00344  I224  TIX I214,4,1   COUNT CHARACTERS.                                 F6S01050    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 020/020 ------           
       00355  0 77100 0 00001  I225  ARS 1          SHIFT AND TEST COLUMN.                            F6S01060    
       00356 -0 53400 4 00331        LXD I201,4     RESTORE GROUP COUNT.                              F6S01070    
       00357  1 77777 4 00360        TXI I230,4,-1  COUNT GROUPS.                                     F6S01080    
 D     00360 -3 00000 4 00362  I230  TXL I232,4     TEST FOR LAST NON-BLANK GROUP.                    F6S01090    
       00361 -0 10000 0 00340        TNZ I210       TEST FOR END OF ROW.                              F6S01100    
       00362 -0 50000 2 00506  I232  CAL D23,2      FORM TRUE 8,4                                     F6S01110    
       00363 -0 60200 2 00511        ORS D26,2      AND 3 ROWS AND                                    F6S01120    
       00364 -0 60200 2 00516        ORS D33,2      MOVE 8,4 AND 8,3                                  F6S01130    
       00365  0 60200 2 00507        SLW D24,2      ROWS.                                             F6S01140    
       00366 -0 50000 2 00505        CAL D22,2                                                        F6S01150    
       00367 -0 60200 2 00511        ORS D26,2                                                        F6S01160    
       00370 -0 60200 2 00515        ORS D32,2                                                        F6S01170    
       00371  0 60200 2 00506        SLW D23,2                                                        F6S01180    
 D     00372 -3 00000 4 00415  I242  TXL I265,4     TEST FOR END.                                     F6S01190    
       00373  3 00017 2 00415        TXH I265,2,15  TEST FOR RIGHT HALF.                              F6S01200    
       00374  1 00020 2 00337        TXI I207,2,16  INITIALIZE RIGHT HALF.                            F6S01210    
       00375  2 00020 1 00403  I245  TIX I253,1,16  TEST FOR 16/CH/32                                 F6S01220    
       00376  3 00017 1 00406        TXH I256,1,15  TEST FOR X-ZONE                                   F6S01230    
       00377 -0 60200 3 00521        ORS D36,3      STORE DIGIT.                                      F6S01240    
       00400 -0 60200 2 00523  I250  ORS D40,2      STORE Y-ZONE.                                     F6S01250    
       00401  2 00001 4 00344        TIX I214,4,1   COUNT CHARACTERS.                                 F6S01260    
 TD    00402 -3 00000 0 00355  I252  TXL I225       OBTAIN NEXT GROUP.                                F6S01270    
       00403  2 00020 1 00411  I253  TIX I261,1,16  TEST FOR 32/CH/48.                                F6S01280    
       00404  3 00017 1 00354        TXH I224,1,15  TEST FOR BLANK.                                   F6S01290    
       00405 -0 60200 3 00521        ORS D36,3      STORE DIGIT.                                      F6S01300    
       00406 -0 60200 2 00522  I256  ORS D37,2      STORE X-ZONE.                                     F6S01310    
       00407  2 00001 4 00344        TIX I214,4,1   COUNT CHARACTERS.                                 F6S01320    
 TD    00410 -3 00000 0 00355  I260  TXL I225       OBTAIN NEXT GROUP.                                F6S01330    
       00411 -0 60200 2 00521  I261  ORS D36,2      STORE 0-ZONE.                                     F6S01340    
       00412 -0 60200 3 00521        ORS D36,3      STORE DIGIT.                                      F6S01350    
       00413  2 00001 4 00344        TIX I214,4,1   COUNT CHARACTERS.                                 F6S01360    
 TD    00414 -3 00000 0 00355        TXL I225                                                         F6S01370    
       00415 -0 53400 1 00430  I265  LXD I300,1     COPY LOOP.                                        F6S01380    
       00416  0 70000 1 00524  I266  CPY D41,1      CARD IMAGE COPIES.                                F6S01390    
       00417  0 70000 1 00504        CPY D21,1                                                        F6S01400    
       00420  2 00001 1 00416        TIX I266,1,1   COUNT COPIES.                                     F6S01410    
 D     00421  3 00000 4 00426  I271  TXH I276,4     TEST FOR SECOND CYCLE.                            F6S01420    
       00422 -0 53400 1 00402        LXD I252,1     NO, RELOAD INDEX REGISTERS                        F6S01430    
       00423 -0 53400 2 00410        LXD I260,2     AND RETURN.                                       F6S01440    
       00424 -0 53400 4 00432        LXD I302,4                                                       F6S01450    
       00425  0 02000 4 00002        TRA 2,4                                                          F6S01460    
       00426  0 76600 0 00361  I276  WPR            SELECT PRINTER AGAIN.                             F6S01470    
       00427  0 76000 0 00371        SPR 9          SECOND CYCLE.                                     F6S01480    
       00430 -3 00014 0 00322  I300  TXL I176,0,12  CONVERT REST OF LINE                              F6S01490    
       00431  606060606060     I301  BCD 1                                                            F6S01500    
       00432  0 00000 0 00001  I302  HTR 1                                                            F6S01510    
       00433 -0 00000 0 00000  I303  MZE                                                              F6S01520    
                        00504        BES 40                                                           F6S01530    
       00504  0 00000 0 00000  D21   HTR 0                                                            F6S01540    
       00505  0 00000 0 00000  D22   HTR 0                                                            F6S01550    
       00506  0 00000 0 00000  D23   HTR 0                                                            F6S01560    
       00507  0 00000 0 00000  D24   HTR 0                                                            F6S01570    
       00510  0 00000 0 00000  D25   HTR 0                                                            F6S01580    
       00511  0 00000 0 00000  D26   HTR 0                                                            F6S01590    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 021/021 ------           
       00512  0 00000 0 00000  D27   HTR 0                                                            F6S01600    
       00513  0 00000 0 00000  D30   HTR 0                                                            F6S01610    
       00514  0 00000 0 00000  D31   HTR 0                                                            F6S01620    
       00515  0 00000 0 00000  D32   HTR 0                                                            F6S01630    
       00516  0 00000 0 00000  D33   HTR 0                                                            F6S01640    
       00517  0 00000 0 00000  D34   HTR 0                                                            F6S01650    
       00520  0 00000 0 00000  D35   HTR 0                                                            F6S01660    
       00521  0 00000 0 00000  D36   HTR 0                                                            F6S01670    
       00522  0 00000 0 00000  D37   HTR 0                                                            F6S01680    
       00523  0 00000 0 00000  D40   HTR 0                                                            F6S01690    
       00524  0 00000 0 00000  D41   HTR 0                                                            F6S01700    
                        00551  D65   BES 20                                                           F6S01710    
                        00161  ZERO  EQU 113                                                          F6R00030    
                        00162  ONE   EQU 114                                                          F6R00040    
                        00177  SW1   EQU 127                                                          F6R00050    
                        00200  SW2   EQU 128                                                          F6R00060    
                        00201  SW3   EQU 129                                                                      
                        00202  SW4   EQU 130                                                                      
 A                      00000        END                                                              F6S01720    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     185           0           0           0           0
 LIB       0           0           0           0           0
 COL     185           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      194                  
0NUMBER OF SYMBOLS,  DEF    82,DEFOP     0,UNDEF     0      
9            REM ************* FORTRAN II SECTION SIX ************************F6T00010    
1                                        ************* FORTRAN II SECTION SIX ************************F6T00010    
                                         ----------- SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 022/022 --------    
                                         FORTRAN 2   RECORD 007  -  TAPE 3,7 TO 2,6.                  F6T00011    
                                                                                                      F6T00012    
                        00161  ZERO  EQU 113                                                                      
                        00162  ONE   EQU 114                                                                      
                        00177  SW1   EQU 127                                                                      
                        00200  SW2   EQU 128                                                                      
                                         DUMP TAPE2 ONTO TAPE6 AND TAPE3 ONTO                         F6T00020    
                                         TAPE7 IF BATCH COMPILING                                     F6T00030    
                        00210        ORG 136                                                          F6T00030    
       00210  0 77200 0 00202        REW 2              REWIND TAPES TWO AND THREE.                   F6T00040    
       00211  0 77200 0 00203        REW 3                                                            F6T00050    
       00212 -0 53400 1 00161        LXD ZERO,1                                                       F6T00060    
       00213  0 76000 0 00166        SWT 6              TEST SENSE SWITCH 6 TO SEE IF BATCH COMPILING.F6T00070    
       00214  0 02000 0 00317        TRA FINI           UP. DO NOT DUMP TAPES BUT GO TO FINI.         F6T00080    
       00215 -0 76000 0 00012  A11   RTT                                                              F6T00090    
       00216  0 76100 0 00000        NOP                                                              F6T00100    
       00217 -0 53400 4 00242  A6    LXD SEVEN,4        SET READ ERROR COUNTER.                       F6T00110    
       00220 -0 53400 2 00161  A2    LXD ZERO,2                                                       F6T00120    
       00221  0 76200 0 00202        RTD 2              READ A RECORD OF TAPE TWO.                    F6T00130    
       00222  0 70000 2 01371  A1    CPY REC-1,2                                                      F6T00140    
       00223  1 00001 2 00222        TXI A1,2,1                                                       F6T00150    
       00224  0 02000 0 00247        TRA EOF            EOF                                           F6T00160    
       00225  0 77100 0 00377        ARS 255                                                          F6T00170    
       00226  0 77100 0 00375        ARS 253                                                          F6T00180    
       00227 -0 76000 0 00012        RTT                                                              F6T00190    
       00230  0 02000 0 00243        TRA ERROR          ERROR                                         F6T00200    
       00231  1 77777 2 00232        TXI NEXT2,2,-1                                                   F6T00210    
       00232 -0 63400 2 00237  NEXT2 SXD A4,2           SAVE WORD COUNT OF RECORD TO USE WHEN WRITING.F6T00220    
       00233 -0 53400 2 00161        LXD ZERO,2                  ONTO TAPE6                           F6T00230    
       00234  0 76600 0 00206        WTD 6              WRITE RECORD JUST READ ONTO TAPE SIZE         F6T00240    
       00235  0 70000 2 01371  A3    CPY REC-1,2                                                      F6T00250    
       00236  1 00001 2 00237        TXI A4,2,1                                                       F6T00260    
       00237 -3 00237 2 00235  A4    TXL A3,2,*                                                       F6T00270    
       00240  0 76600 0 00333        IOD                                                              F6T00280    
       00241  0 02000 0 00215        TRA A11           GO READ NEXT RECORD FROM TAPE TWO.             F6T00290    
       00242  0 00005 0 00000  SEVEN     0,0,5                                                        F6T00300    
       00243  0 76400 0 00202  ERROR BST 2             READ ERROR PROCEDURE.                          F6T00310    
       00244  2 00001 4 00220        TIX A2,4,1                                                       F6T00320    
       00245  0 07400 4 00004        TSX 4,4                                                          F6T00330    
       00246  0 00000 0 00246  ER    HTR ER                                                           F6T00340    
       00247  0 77000 0 00206  EOF   WEF 6             AT END OF FILE ONE TAPE TWO. WRITE END OF FILE.F6T00350    
       00250  1 00001 1 00251        TXI A5,1,1                                                       F6T00360    
                                                       ON TAPE SIX.                                   F6T00370    
       00251  3 00001 1 00324  A5    TXH TEST2,1,1     TWO FILES DONE. YES, GO TEST SWITCH TWO.       F6T00380    
       00252  0 76200 0 00202        RTD 2             NO                                             F6T00390    
       00253  0 02000 0 00217        TRA A6                                                           F6T00400    
       00254  0 50000 0 00162  TAPE7 CLA ONE           TEST SENSE SWITCH ONE.                         F6T00410    
       00255  0 34000 0 00177        CAS SW1                                                          F6T00420    
       00256  0 02000 0 00314        TRA EOF3+1                                                       F6T00430    
       00257  0 02000 0 00262        TRA A7                                                           F6T00440    
       00260  0 76000 0 00161        SWT 1                                                            F6T00450    
       00261  0 02000 0 00314        TRA EOF3+1                                                       F6T00460    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 023/023 ------           
       00262 -0 53400 4 00242  A7    LXD SEVEN,4       DOWN. SET READ ERROR COUNTER.                  F6T00470    
       00263 -0 53400 2 00161  A12   LXD ZERO,2                 ONTO TAPE7                            F6T00480    
       00264  0 76200 0 00223        RTB 3             READ A RECORD FROM TAPE THREE                  F6T00490    
       00265  0 70000 2 01371  A8    CPY REC-1,2                                                      F6T00500    
       00266  1 00001 2 00265        TXI A8,2,1                                                       F6T00510    
       00267  0 02000 0 00313        TRA EOF3          EOF OF FILE.                                   F6T00520    
       00270  0 77100 0 00377        ARS 255                                                          F6T00530    
       00271  0 77100 0 00377        ARS 255                                                          F6T00540    
       00272 -0 76000 0 00012        RTT                                                              F6T00550    
       00273  0 02000 0 00307        TRA ERR3          ERROR.                                         F6T00560    
       00274  1 77777 2 00275        TXI NEXT1,2,-1                                                   F6T00570    
       00275 -0 63400 2 00302  NEXT1 SXD A10,2         SAVE WORD COUNT OF RECORD.                     F6T00580    
       00276 -0 53400 2 00161        LXD ZERO,2                                                       F6T00590    
       00277  0 76600 0 00227        WTB 7             WRITE THE RECORD ONTO TAPE SEVEN.              F6T00600    
       00300  0 70000 2 01371  A9    CPY REC-1,2                                                      F6T00610    
       00301  1 00001 2 00302        TXI A10,2,1                                                      F6T00620    
       00302 -3 00302 2 00300  A10   TXL A9,2,*        TEST END OF RECORD.                            F6T00630    
       00303  0 76600 0 00333        IOD                                                              F6T00640    
       00304 -0 76000 0 00012        RTT                                                              F6T00650    
       00305  0 76100 0 00000        NOP                                                              F6T00660    
       00306  0 02000 0 00262        TRA A7            GO READ NEXT RECORD.                           F6T00670    
       00307  0 76400 0 00203  ERR3  BST 3                                                            F6T00680    
       00310  2 00001 4 00263        TIX A12,4,1       READ ERROR PROCEDURE.                          F6T00690    
       00311  0 07400 4 00004        TSX 4,4                                                          F6T00700    
       00312  0 00000 0 00312  ERR4  HTR ERR4                                                         F6T00710    
       00313  0 77000 0 00207  EOF3  WEF 7             AT EOF ON 3, WRITE EOF ON 7.                   F6T00720    
       00314  0 76200 0 00221        RTB 1                                                            F6T00730    
       00315  0 76200 0 00221        RTB 1                                                            F6T00740    
       00316  0 76200 0 00221        RTB 1                                                            F6T00750    
       00317  0 77200 0 00202  FINI  REW 2             REWINDS TAPES 2,3, AND 4 AND                   F6T00760    
       00320  0 77200 0 00203        REW 3             RETURNS TO LOADER,                             F6T00770    
       00321  0 77200 0 00204        REW 4                                                            F6T00780    
       00322  0 76200 0 00221        RTB 1                                                            F6T00790    
       00323  0 02000 0 00004        TRA 4                                                            F6T00800    
       00324  0 50000 0 00162  TEST2 CLA ONE           AFTER 2ND FILE FROM 2 TO 6,                    F6T00810    
       00325  0 34000 0 00200        CAS SW2           TEST SENSE SWITCH 2.                           F6T00820    
       00326  0 02000 0 00254        TRA TAPE7                                                        F6T00830    
       00327  0 02000 0 00332        TRA WT3                                                          F6T00840    
       00330  0 76000 0 00162        SWT 2                                                            F6T00850    
       00331  0 02000 0 00254        TRA TAPE7         UP. GO TEST SWITCH 1.                          F6T00860    
       00332 -0 53400 1 00251  WT3   LXD A5,1          DOWN. RESET INDEX REGISTER 1 TO 1.             F6T00870    
       00333  0 50000 0 00331        CLA WT3-1         CHANGE A5 TRANSFER ADDRESS TO TAPE7.           F6T00880    
       00334  0 62100 0 00251        STA A5                                                           F6T00890    
       00335  0 02000 0 00217        TRA A6                                                           F6T00900    
                        00336        BSS 40                                                           F6T00910    
                        01372  REC   BES 500                                                          F6T00920    
 A                      00000        END                                                              F6T00930    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     102           0           0           0           0
 LIB       0           0           0           0           0
 COL     102           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      111                  
0NUMBER OF SYMBOLS,  DEF    30,DEFOP     0,UNDEF     0      
9            REM SUCCESSFUL COMPILATION RECORD                                F1SC0010    
1                                        SUCCESSFUL COMPILATION RECORD                                F1SC0010    
                                         ----------- SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 024/024 --------    
                                         CONTROL IS RETURNED TO THIS RECORD AT THE COMPLETION OF A    F1SC0020    
                                         SINGLE PROBLEM COMPILATION, OR AT THE END OF BATCH           F1SC0030    
                                         COMPILATION.  TAPE 1 IS REWOUND AND A LOAD BUTTON            F1SC0040    
                                         SEQUENCE IS EXECUTED AT THE CARD READER.                     F1SC0050    
                                         AN INSTALLATION MAY CHANGE THIS RECORD TO SUIT ITS OWN       F1SC0060    
                                         OPERATING NEEDS.                                             F1SC0070    
                                                                                                      F1SC0080    
                                         MASTER RECORD CARD = F0090000.                               F1SC0090    
                        00030        ORG 24                                                           F1SC0100    
       00030 -0 76000 0 00007 START  LTM                                                              F1SC0110    
       00031  0 77200 0 00201        REW 1                                                            F1SC0120    
       00032  0 76200 0 00321        RCD 209             CARD READER LOAD BUTTON SEQUENCE.            F1SC0130    
       00033  0 70000 0 00000        CPY 0                                                            F1SC0140    
       00034  0 02000 0 00036        TRA SECCPY                                                       F1SC0150    
       00035  0 00000 0 77777        HTR 32767           CARD READER EMPTY, HALT.                     F1SC0160    
       00036  0 70000 0 00001 SECCPY CPY 1                                                            F1SC0170    
       00037  0 02000 0 00000        TRA 0                                                            F1SC0180    
                        00030        END 24                                                           F1SC0190    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      20           0           0           0           0
 LIB       0           0           0           0           0
 COL      20           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       29                  
0NUMBER OF SYMBOLS,  DEF     2,DEFOP     0,UNDEF     0      
9            REM SOURCE PROGRAM ERROR RECORD.  THIS RECORD TESTS SL3 AND SL6  F1SPE010    
1                                        SOURCE PROGRAM ERROR RECORD.  THIS RECORD TESTS SL3 AND SL6  F1SPE010    
                                         ----------- SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 025/025 --------    
                                         TO DETERMINE IF A CARD READER LOAD BUTTON SEQUENCE IS TO BE  F1SPE020    
                                         EXECUTED, OR IF THE NEXT PROGRAM IS TO BE COMPILED.  SL3-ON  F1SPE030    
                                         IF TAPE 5 CANNOT BE READ OR EOF ON TAPE 5 BEFORE END CARD    F1SPE040    
                                         IS FOUND.  SS6-ON IF IN BATCH COMPILE MODE.                  F1SPE050    
                                                                                                      F1SPE060    
                                         MASTER RECORD CARD = F0100000.                               F1SPE070    
                        00030        ORG 24                                                           F1SPE080    
       00030 -0 76000 0 00007        LTM                                                              F1SPE090    
       00031 -0 76000 0 00141        SLT 1               SL1-ON IF PROGRAM TO BE RE-TRIED.            F1SPE100    
       00032  0 02000 0 00034        TRA SS6TST                                                       F1SPE110    
       00033  0 02000 0 00053        TRA SKIPCM          SKIP TO COMMON RECORD                        F1SPE120    
       00034  0 76000 0 00166 SS6TST SWT 6               SS6-ON IF IN BATCH MODE.                     F1SPE130    
       00035  0 02000 0 00041        TRA READCD          SINGLE COMPILATION. READ CARD READER SEQ.    F1SPE140    
       00036 -0 76000 0 00143        SLT 3               ON IF END CARD ERROR FOUND BY BATCH MONITOR  F1SPE150    
       00037  0 02000 0 00055        TRA SKIPBM          SKIP TO BATCH MONITOR RECORD                 F1SPE160    
       00040  0 77200 0 00206        REW 6                                                            F1SPE170    
       00041  0 77200 0 00204 READCD REW 4                                                            F1SPE180    
       00042  0 77200 0 00203        REW 3                                                            F1SPE190    
       00043  0 77200 0 00202        REW 2                                                            F1SPE200    
       00044  0 77200 0 00201        REW 1                                                            F1SPE210    
       00045  0 76200 0 00321        RCD 209             CARD READER LOAD BUTTON SEQUENCE.            F1SPE220    
       00046  0 70000 0 00000        CPY 0                                                            F1SPE230    
       00047  0 02000 0 00051        TRA SECCPY                                                       F1SPE240    
       00050  0 00000 0 77777        HTR 32767           CARD READ EMPTY.                             F1SPE250    
       00051  0 70000 0 00001 SECCPY CPY 1                                                            F1SPE260    
       00052  0 02000 0 00000        TRA 0                                                            F1SPE270    
       00053  0 76200 0 00221 SKIPCM RTB 1               SKIP OVER FILE 1 MARK TO BATCH MONITOR.      F1SPE280    
       00054  0 76200 0 00221        RTB 1               SKIP OVER BATCH MONITOR RECORD               F1SPE290    
       00055  0 76200 0 00221 SKIPBM RTB 1               AND/OR SKIP MACHINE ERROR RECORD             F1SPE300    
       00056  0 02000 0 00004        TRA 4               TO 1-CS TO READ NEXT RECORD                  F1SPE310    
                        00030        END 24                                                           F1SPE320    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      33           0           0           0           0
 LIB       0           0           0           0           0
 COL      33           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       42                  
0NUMBER OF SYMBOLS,  DEF     5,DEFOP     0,UNDEF     0      
9            REM  MONITOR PROGRAM FOR BATCH COMPILATION                       F1BM0010    
1                                         MONITOR PROGRAM FOR BATCH COMPILATION                       F1BM0010    
                                         ----------- SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 026/026 --------    
                                         MASTER RECORD CARD F0120000                                  F1BM0020    
                        00030        ORG 24                                                           F1BM0030    
       00030  0 76000 0 00166 START  SWT 6                         TEST SW6, UP = SINGLE PROBLEM,     F1BM0040    
       00031  0 02000 0 00146        TRA ADD93+1         SKIP OVER MACHINE ERROR RECORD AND GO TO SEC1F1BM0050    
       00032  0 76000 0 00140        SLN 0                         TURN OFF LIGHTS                    F1BM0060    
       00033  0 53400 4 00237 ADD01  LXA L(5),4          COUNTER FOR 5 TRIES TO READ TAPE 5.          F1BM0070    
       00034 -0 50000 0 00245        CAL BLANKS                                                       F1BM0080    
       00035  0 60200 0 00233        SLW BUFFER-1                                                     F1BM0090    
       00036  0 60200 0 00232        SLW BUFFER-2                                                     F1BM0100    
       00037 -0 76000 0 00012        RTT                           TURN OFF INDICATOR                 F1BM0110    
       00040  0 76100 0 00000        NOP                                                              F1BM0120    
       00041  0 76200 0 00205 ADD015 RTD 5                                                            F1BM0130    
       00042  0 53400 3 00243        LXA L(14),3                   ASSUME 14 WORDS PER RECORD         F1BM0140    
       00043  0 70000 1 00234 ADD02  CPY BUFFER,1                                                     F1BM0150    
       00044  0 02000 0 00047        TRA ADD03                                                        F1BM0160    
       00045  0 02000 0 00161        TRA ADD90                     EOF                                F1BM0170    
       00046  0 02000 0 00050        TRA ADD04                     EOR                                F1BM0180    
       00047  2 00001 1 00043 ADD03  TIX ADD02,1,1                                                    F1BM0190    
       00050  0 77100 0 00377 ADD04  ARS 255                                                          F1BM0200    
       00051  0 77100 0 00377        ARS 255                                                          F1BM0210    
       00052 -0 76000 0 00012        RTT                           TEST TAPE INDICATOR                F1BM0220    
       00053  0 02000 0 00150        TRA ADD80                     ON, PREPARE TO READ AGAIN          F1BM0230    
       00054  0 76600 0 00202        WTD 2                         OFF, WRITE THIS RECORD ON TAPE 2   F1BM0240    
       00055  0 70000 2 00234 ADD05  CPY BUFFER,2                                                     F1BM0250    
       00056  2 00001 2 00055        TIX ADD05,2,1                                                    F1BM0260    
       00057  0 76600 0 00333        IOD                                                              F1BM0270    
       00060 -0 76000 0 00012        RTT                                                              F1BM0280    
       00061  0 76100 0 00000        NOP                                                              F1BM0290    
 D     00062  3 00000 0 00074 ADD70  TXH ADD71,0         ROUTINE TO RESTORE PRINTER CARRIAGE AND PRINTF1BM0300    
       00063  0 07400 4 00332        TSX PRINT,C         FIRST STATEMENT OF CURRENT SOURCE PROGRAM    F1BM0310    
       00064  0 00234 0 00215        PZE RESTR,0,BUFFER                                               F1BM0320    
       00065  0 76600 0 00361        WPR                                                              F1BM0330    
       00066  0 76600 0 00361        WPR                                                              F1BM0330    
       00067  0 76600 0 00361        WPR                                                              F1BM0330    
       00070  0 76600 0 00361        WPR                                                              F1BM0330    
       00071  0 76600 0 00361        WPR                                                              F1BM0330    
       00072  0 50200 0 00062        CLS ADD70           CHANGE TXH TO TXL                            F1BM0350    
       00073  0 60100 0 00062        STO ADD70                                                        F1BM0360    
       00074  0 76000 0 00141 ADD71  SLN 1               SL1-ON IF AT LEAST 1 SOURCE STATMENT ON TP 2 F1BM0370    
       00075 -0 75400 0 00000        PXD 0,0                       EXITS                              F1BM0380    
       00076  0 56000 0 00216        LDQ BUFFER-14                 TEST FOR COMMENT CARD              F1BM0390    
       00077 -0 76300 0 00006        LGL 6                                                            F1BM0400    
       00100  0 40200 0 00244        SUB L(C)                                                         F1BM0410    
       00101  0 10000 0 00033        TZE ADD01                     YES, GO READ NEXT TAPE RECORD      F1BM0420    
       00102 -0 76300 0 00030        LGL 24                        DISCARD FORMULA NUMBER             F1BM0430    
       00103 -0 75400 0 00000        PXD 0,0                                                          F1BM0440    
       00104 -0 76300 0 00006        LGL 6                                                            F1BM0450    
       00105  0 10000 0 00110        TZE ADD06                     TEST FOR CONTINUATION CARD         F1BM0460    
       00106  0 40200 0 00246        SUB BLANK                                                        F1BM0470    
       00107 -0 10000 0 00033        TNZ ADD01                     YES, GO READ NEXT TAPE RECORD      F1BM0480    
       00110  0 53400 1 00242 ADD06  LXA L(12),1                   THIS RECORD IS OF FIRST CARD OF    F1BM0490    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 027/027 ------           
       00111  0 53400 2 00241        LXA L(7),2                    FORTRAN STATEMENT. PREPARE TO TEST F1BM0500    
       00112  0 50000 0 00234        CLA BUFFER                    FOR END(..,..,..,..,..) CARD       F1BM0510    
       00113  0 60100 0 00232        STO BUFFER-2                  POSITION ENDMARK                   F1BM0520    
       00114  0 56000 0 00217        LDQ BUFFER-13                                                    F1BM0530    
       00115  0 07400 4 00200        TSX SUB1,4                                                       F1BM0540    
       00116  0 40200 0 00247        SUB L(E)                      TEST FIRST CHAR FOR E              F1BM0550    
       00117 -0 10000 0 00033        TNZ ADD01                                                        F1BM0560    
       00120  0 07400 4 00200        TSX SUB1,4                                                       F1BM0570    
       00121  0 40200 0 00250        SUB L(N)                      TEST SECOND CHAR FOR N             F1BM0580    
       00122 -0 10000 0 00033        TNZ ADD01                                                        F1BM0590    
       00123  0 07400 4 00200        TSX SUB1,4                                                       F1BM0600    
       00124  0 40200 0 00251        SUB L(D)                      TEST THIRD CHAR FOR D              F1BM0610    
       00125 -0 10000 0 00033        TNZ ADD01                                                        F1BM0620    
       00126  0 07400 4 00200        TSX SUB1,4                                                       F1BM0630    
       00127  0 40200 0 00252        SUB L(()                      TEST FOURTH CHAR FOR (             F1BM0640    
       00130 -0 10000 0 00033        TNZ ADD01                                                        F1BM0650    
       00131  0 07400 4 00200        TSX SUB1,4                                                       F1BM0660    
       00132  0 07400 4 00200        TSX SUB1,4                                                       F1BM0670    
       00133  0 40200 0 00253        SUB COMMA                     TEST SIXTH CHAR FOR ,              F1BM0680    
       00134 -0 10000 0 00033        TNZ ADD01                                                        F1BM0690    
       00135  0 07400 4 00200        TSX SUB1,4                                                       F1BM0700    
       00136  0 07400 4 00200        TSX SUB1,4                                                       F1BM0710    
       00137  0 40200 0 00253        SUB COMMA                     TEST EIGHTH CHAR FOR ,             F1BM0720    
       00140 -0 10000 0 00033        TNZ ADD01                                                        F1BM0730    
       00141  0 07400 4 00200        TSX SUB1,4                                                       F1BM0740    
       00142  0 07400 4 00200        TSX SUB1,4                                                       F1BM0750    
       00143  0 40200 0 00253        SUB COMMA                     TEST TENTH CHAR FOR ,              F1BM0760    
       00144 -0 10000 0 00033        TNZ ADD01                                                        F1BM0770    
       00145  0 77000 0 00202 ADD93  WEF 2                         THIS IS END CARD, TERMINATE FILE   F1BM0780    
       00146  0 76200 0 00221        RTB 1               SKIP OVER MACHINE ERROR RECORD.              F1BM0790    
       00147  0 02000 0 00004        TRA 4                         GO TO 1-CS FOR SECTION ONE         F1BM0800    
       00150  0 76400 0 00205 ADD80  BST 5                         TAPE ERROR                         F1BM0810    
       00151  2 00001 4 00041        TIX ADD015,4,1                                                   F1BM0820    
       00152  0 07400 4 00332        TSX PRINT,4                                                      F1BM0830    
       00153  0 00301 0 00254            TP5ERR,0,TP5END                                              F1BM0840    
       00154  0 76000 0 00143 SPROER SLN 3               SL3-ON IF TAPE CANNOT BE READ OR END CARD    F1BM0850    
       00155  0 76400 0 00201 BSTRTN BST 1               TROUBLE.                                     F1BM0860    
       00156  0 76400 0 00201        BST 1               BACKSPACE SYSTEM TAPE TO SOURCE PROGRAM ERRORF1BM0870    
       00157  0 76400 0 00201        BST 1               RECORD.                                      F1BM0880    
       00160  0 02000 0 00004        TRA 4               CALL IN 1 - CS.                              F1BM0890    
       00161 -0 76000 0 00141 ADD90  SLT 1                         IS THERE A PROBLEM TO BE COMPILED  F1BM0900    
       00162  0 02000 0 00167        TRA ADD91                     FINISHED, REWIND ALL TYPES         F1BM0910    
       00163  0 07400 4 00332        TSX PRINT,4                                                      F1BM0920    
       00164  0 00315 0 00301            ENDCD,0,CDTEND                                               F1BM0930    
       00165  0 77200 0 00205        REW 5                                                            F1BM0940    
       00166  0 02000 0 00154        TRA SPROER                                                       F1BM0950    
       00167  0 76400 0 00201 ADD91  BST 1                                                            F1BM0970    
       00170  0 77200 0 00206        REW 6                                                            F1BM0974    
       00171  0 77200 0 00205        REW 5                                                            F1BM0976    
       00172  0 07400 4 00332        TSX PRINT,C                                                      F1BM0980    
       00173  0 00332 0 00315            REMA,0,ENDA                                                  F1BM0990    
       00174  0 07400 4 00332        TSX PRINT,C                                                      F1BM1000    
       00175  0 00216 0 00215        HTR RESTR,0,RESTR+1                                              F1BM1010    
       00176  0 16100 0 00177        TQO *+1                                                          F1BM1020    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 028/028 ------           
       00177  0 02000 0 00155        TRA BSTRTN                                                       F1BM1030    
       00200 -0 75400 0 00000 SUB1   PXD 0,0                       SUBROUTINE TO BRING NEXT NON BLANK F1BM1040    
       00201  2 00001 2 00205        TIX ADD50,2,1                 CHAR OF BUFFER REGION TO AC.       F1BM1050    
       00202  0 53400 2 00240        LXA L(6),2                                                       F1BM1060    
       00203  0 56000 1 00234        LDQ BUFFER,1                                                     F1BM1070    
       00204  1 77777 1 00205        TXI ADD50,1,-1                                                   F1BM1080    
       00205 -0 76300 0 00006 ADD50  LGL 6                                                            F1BM1090    
       00206  0 34000 0 00246        CAS BLANK                                                        F1BM1100    
       00207  0 02000 0 00211        TRA ADD51                                                        F1BM1110    
       00210  0 02000 0 00200        TRA SUB1                                                         F1BM1120    
       00211  0 34000 0 00235 ADD51  CAS ENDMK                                                        F1BM1130    
       00212  0 02000 4 00001        TRA 1,4                                                          F1BM1140    
       00213  0 02000 0 00033        TRA ADD01                                                        F1BM1150    
       00214  0 02000 4 00001        TRA 1,4                                                          F1BM1160    
       00215  016060606060    RESTR  BCD 11                                                           F1BM1165    
                        00234 BUFFER BES 14                                                           F1BM1170    
       00234 -377777777777           OCT 777777777777                                                 F1BM1180    
       00235 +000000000077    ENDMK  OCT 77                                                           F1BM1190    
       00236  0 00000 0 00003 L(3)       3                                                            F1BM1200    
       00237  0 00000 0 00005 L(5)       5                                                            F1BM1210    
       00240  0 00000 0 00006 L(6)       6                                                            F1BM1220    
       00241  0 00000 0 00007 L(7)       7                                                            F1BM1230    
       00242  0 00000 0 00014 L(12)      12                                                           F1BM1240    
       00243  0 00000 0 00016 L(14)      14                                                           F1BM1250    
       00244  000000000023    L(C)   BCD 100000C                                                      F1BM1260    
       00245  606060606060    BLANKS BCD 1                                                            F1BM1270    
       00246  000000000060    BLANK  BCD 100000                                                       F1BM1280    
       00247  000000000025    L(E)   BCD 100000E                                                      F1BM1290    
       00250  000000000045    L(N)   BCD 100000N                                                      F1BM1300    
       00251  000000000024    L(D)   BCD 100000D                                                      F1BM1310    
       00252  000000000074    L(()   BCD 100000(                                                      F1BM1320    
       00253  000000000073    COMMA  BCD 100000,                                                      F1BM1330    
       00254  006060606060    TP5ERR BCD 90     TAPE 5 CONTAINING SOURCE SUBPROGRAM READ 5 TIMES      F1BM1340    
       00255  632147256005    
       00256  602346456321    
       00257  314531452760    
       00260  624664512325    
       00261  606264224751    
       00262  462751214460    
       00263  512521246005    
       00264  606331442562    
       00265  606445626423           BCD 9 UNSUCCESSFULLY. TAPE 5 NOW POSITIONED AT RECORD WHICH      F1BM1350    
       00266  232562622664    
       00267  434370336063    
       00270  214725600560    
       00271  454666604746    
       00272  623163314645    
       00273  252460216360    
       00274  512523465124    
       00275  606630312330    
       00276  602321454546           BCD 3 CANNOT BE  READ.                                           F1BM1360    
       00277  636022256060    
       00300  512521243360    
                        00301 TP5END BSS 0                                                            F1BM1370    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 029/029 ------           
       00301  006060606060    ENDCD  BCD 90     END CARD MISSING OR MISPUNCHED FOR LAST SUBPROGR      F1BM1380    
       00302  254524602321    
       00303  512460443162    
       00304  623145276046    
       00305  516044316247    
       00306  644523302524    
       00307  602646516043    
       00310  216263606264    
       00311  224751462751    
       00312  214460222531           BCD 3AM BEING COMPILED.                                          F1BM1390    
       00313  452760234644    
       00314  473143252433    
                        00315 CDTEND BSS 0                                                            F1BM1400    
       00315  016060606060    REMA   BCD 71                                                           F1BM1410    
       00316  606060606060    
       00317  606060606060    
       00320  606060606060    
       00321  606060606060    
       00322  606060606060    
       00323  606060606060    
       00324  606330256043           BCD 6 THE LAST PROBLEM HAS BEEN PROCESSED.                       F1BM1420    
       00325  216263604751    
       00326  462243254460    
       00327  302162602225    
       00330  254560475146    
       00331  232562622524    
                        00332 ENDA   BSS 0                                                            F1BM1430    
                                                                                                      F1BM1450    
                                         PRINT CONTROL SUBROUTINE.                                    F1BM1460    
                        00001  A     EQU 1                                                            F1BM1470    
                        00002  B     EQU 2                                                            F1BM1480    
                        00004  C     EQU 4                                                            F1BM1490    
                        00332 PRINT  BSS 0                                                            F1BM1500    
       00332  0 50000 4 00001  RAN   CLA 1,4                                                          F1BM1510    
       00333  0 62100 0 00374        STA RNA                                                          F1BM1520    
       00334  0 77100 0 00022        ARS 18                                                           F1BM1530    
       00335  0 60100 0 00375        STO RNB                                                          F1BM1540    
       00336 -0 63400 4 00376        SXD RNC,4                                                        F1BM1550    
       00337  0 50000 0 00374  RN40  CLA RNA                                                          F1BM1560    
       00340  0 40000 0 00377        ADD RND                                                          F1BM1570    
       00341  0 34000 0 00375        CAS RNB                                                          F1BM1580    
       00342  0 76100 0 00000        NOP                                                              F1BM1590    
       00343  0 02000 0 00364        TRA RN50                                                         F1BM1600    
       00344  0 76700 0 00022        ALS 18                                                           F1BM1610    
       00345  0 40000 0 00374        ADD RNA                                                          F1BM1620    
       00346  0 60100 0 00350        STO RAN10                                                        F1BM1630    
       00347  0 07400 4 00401        TSX WOT,C                                                        F1BM1640    
 A     00350  0 00000 0 00000  RAN10 HTR                                                              F1BM1650    
       00351  0 50000 0 00350        CLA RAN10                                                        F1BM1660    
       00352  0 77100 0 00022        ARS 18                                                           F1BM1670    
       00353  0 40200 0 00400        SUB RNE                                                          F1BM1680    
       00354  0 62100 0 00361        STA RN20                                                         F1BM1690    
       00355  0 40200 0 00400        SUB RNE                                                          F1BM1700    
       00356  0 62100 0 00362        STA RN30                                                         F1BM1710    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 030/030 ------           
       00357  0 62100 0 00374        STA RNA                                                          F1BM1720    
       00360  0 50000 0 00613        CLA BLNKS                                                        F1BM1730    
 A     00361  0 60100 0 00000  RN20  STO                                                              F1BM1740    
 A     00362  0 60100 0 00000  RN30  STO                                                              F1BM1750    
       00363  0 02000 0 00337        TRA RN40                                                         F1BM1760    
       00364  0 50000 0 00375  RN50  CLA RNB                                                          F1BM1770    
       00365  0 76700 0 00022        ALS 18                                                           F1BM1780    
       00366  0 40000 0 00374        ADD RNA                                                          F1BM1790    
       00367  0 60100 0 00371        STO RN60                                                         F1BM1800    
       00370  0 07400 4 00401        TSX WOT,C                                                        F1BM1810    
 A     00371  0 00000 0 00000  RN60  HTR                                                              F1BM1820    
       00372 -0 53400 4 00376        LXD RNC,C                                                        F1BM1830    
       00373  0 02000 4 00002        TRA 2,C                                                          F1BM1840    
 A     00374  0 00000 0 00000  RNA   HTR                                                              F1BM1850    
 A     00375  0 00000 0 00000  RNB   HTR                                                              F1BM1860    
 A     00376  0 00000 0 00000  RNC   HTR                                                              F1BM1870    
       00377  0 00000 0 00024  RND   HTR 20                                                           F1BM1880    
       00400  0 00000 0 00001  RNE   HTR 1                                                            F1BM1890    
                                                                                                      F1BM1900    
                                         PRINT SUBROUTINE.                                            F1BM1910    
       00401 -0 63400 1 00551  WOT   SXD X1,1                                                         F1BM1920    
       00402 -0 63400 2 00557        SXD X2,2                                                         F1BM1930    
       00403  0 50000 4 00001        CLA 1,4          PRINT ROUTINE                                   F1BM1940    
       00404  0 62100 0 00432        STA T5           X                                               F1BM1950    
       00405  0 62200 0 00614        STD X4           X                                               F1BM1960    
       00406  0 77100 0 00022        ARS 18           X                                               F1BM1970    
       00407  0 40000 0 00614        ADD X4           X                                               F1BM1980    
       00410  0 62100 0 00463        STA PR2          X                                               F1BM1990    
       00411  0 62100 0 00510        STA CI9          X                                               F1BM2000    
       00412  0 40200 4 00001        SUB 1,4          B-A+1 IN AC                                     F1BM2010    
       00413  0 10000 4 00002        TZE 2,4                                                          F1BM2020    
       00414 -0 12000 4 00002        TMI 2,4                                                          F1BM2030    
       00415 -0 63400 4 00614        SXD X4,4                                                         F1BM2040    
       00416  0 73400 4 00013  L11   PAX 11,4                                                         F1BM2050    
       00417 -0 63400 4 00422        SXD PR6,4                                                        F1BM2060    
       00420 -0 50000 0 00564        CAL WP           INITIALIZE SWITCH                               F1BM2070    
       00421  0 60100 0 00564        STO WP           X                                               F1BM2080    
 TD    00422  3 00000 0 00423  PR6   TXH T4                                                           F1BM2090    
       00423  0 76600 0 00361  T4    WPR                                                              F1BM2100    
 TD    00424 -3 00000 0 00430  Z2    TXL S3                                                           F1BM2110    
 ATD   00425 -3 00000 0 00000  OZ2   TXL                                                              F1BM2120    
       00426  0 76000 0 00364  SP4   SPR 4                                                            F1BM2130    
 TD    00427 -3 00000 0 00461        TXL RPR+2                                                        F1BM2140    
       00430  0 50200 0 00564  S3    CLS WP           SET SWITCH FOR MASKING                          F1BM2150    
       00431  0 60100 0 00564        STO WP           CHARACTER FROM TYPE WHEEL 1                     F1BM2160    
       00432 -0 50000 0 00432  T5    CAL *            OBTAIN FIRST CHARACTER                          F1BM2170    
       00433  0 77100 0 00036        ARS 30           X                                               F1BM2180    
       00434  0 10000 0 00426        TZE SP4          DOUBLE SPACE IF ZERO                            F1BM2190    
       00435  0 34000 0 00615        CAS YZONE        TEST FOR SPACE SUPPRESS                         F1BM2200    
 TD    00436 -3 00000 0 00440        TXL BK           NO                                              F1BM2210    
 TD    00437 -3 00000 0 00460        TXL RPR+1        SUPPRESS SPACE                                  F1BM2220    
       00440  0 34000 0 00616  BK    CAS BNK          TEST FOR BLANK                                  F1BM2230    
 TD    00441 -3 00000 0 00443        TXL DIGF         NO                                              F1BM2240    
 TD    00442 -3 00000 0 00461        TXL RPR+2        BLANK                                           F1BM2250    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 031/031 ------           
       00443  0 76000 0 00372  DIGF  SPR 10           SET CHANNEL SKIP                                F1BM2260    
       00444 -0 32000 0 00445        ANA MK           MASK OUT ZONE                                   F1BM2270    
       00445  0 73400 1 00017  MK    PAX 15,1         OBTAIN SPR COMBINATION                          F1BM2280    
       00446  1 00001 1 00447        TXI N2,1,1       X                                               F1BM2290    
       00447 -2 00010 1 00451  N2    TNX N3,1,8       X                                               F1BM2300    
       00450  0 76000 0 00370        SPR 8            X                                               F1BM2310    
       00451 -2 00004 1 00453  N3    TNX N4,1,4       X                                               F1BM2320    
       00452  0 76000 0 00364        SPR 4            X                                               F1BM2330    
       00453 -2 00002 1 00455  N4    TNX N5,1,2       X                                               F1BM2340    
       00454  0 76000 0 00362        SPR 2            X                                               F1BM2350    
       00455 -2 00001 1 00457  N5    TNX RPR,1,1      X                                               F1BM2360    
       00456  0 76000 0 00361        SPR 1            X                                               F1BM2370    
       00457  0 76600 0 00361  RPR   WPR                                                              F1BM2380    
       00460  0 76000 0 00365        SPR 5            SUPPRESS SPACE                                  F1BM2390    
       00461  0 50000 0 00613        CLA BLNKS        FIND LAST NON-BLANK GROUP                       F1BM2400    
       00462 -0 53400 4 00523        LXD CI4,4        X                                               F1BM2410    
       00463  0 34000 4 00000  PR2   CAS 0,4          X                                               F1BM2420    
       00464  1 77777 4 00467        TXI PR1,4,-1     X                                               F1BM2430    
       00465  1 00001 4 00463        TXI PR2,4,1      X                                               F1BM2440    
       00466  1 77777 4 00467        TXI PR1,4,-1     X                                               F1BM2450    
       00467 -0 63400 4 00527  PR1   SXD CI6,4        STORE END TEST                                  F1BM2460    
       00470 -0 63400 4 00541        SXD CI8,4        X                                               F1BM2470    
       00471 -0 63400 4 00474        SXD PR8,4        X                                               F1BM2480    
       00472 -0 63400 4 00601        SXD WP4,4        X                                               F1BM2490    
       00473 -0 53400 4 00422        LXD PR6,4        X                                               F1BM2500    
 D     00474 -2 00000 4 00500  PR8   TNX PR5,4                                                        F1BM2510    
       00475 -3 00014 4 00477        TXL PR3,4,12                                                     F1BM2520    
       00476  0 76000 0 00370        SPR 8            FIRST CYCLE                                     F1BM2530    
       00477 -0 53400 4 00422  PR3   LXD PR6,4        INITIALIZE GROUP COUNT                          F1BM2540    
       00500  0 53400 2 00502  PR5   LXA PR7,2        INITIALIZE LEFT SETUP                           F1BM2550    
       00501 -0 53400 1 00544        LXD YZ1,1        CLEAR CARD IMAGE                                F1BM2560    
 T     00502 -0 75400 0 00000  PR7   PXD              X                                               F1BM2570    
       00503  0 60200 1 00662  PR4   SLW LT,1         X                                               F1BM2580    
       00504  0 60200 1 00642        SLW RT,1         X                                               F1BM2590    
       00505  2 00001 1 00503        TIX PR4,1,1      X                                               F1BM2600    
       00506 -0 50000 0 00620  CIR   CAL COL1         INITIALIZE COLUMN INDICATOR                     F1BM2610    
       00507  0 60200 0 00621  CI2   SLW COL          X                                               F1BM2620    
       00510  0 56000 4 00000  CI9   LDQ 0,4          OBTAIN GROUP                                    F1BM2630    
       00511 -0 63400 4 00425        SXD OZ2,4        STORE GROUP COUNT                               F1BM2640    
       00512  0 53400 4 00514        LXA Q6,4         SET CHARACTER COUNT                             F1BM2650    
 T     00513 -0 75400 0 00000  CI1   PXD                                                              F1BM2660    
       00514 -0 76300 0 00006  Q6    LGL 6                                                            F1BM2670    
       00515  0 73400 1 00000        PAX 0,1                                                          F1BM2680    
       00516 -0 50000 0 00621        CAL COL          POSITION COLUMN INDICATOR                       F1BM2690    
       00517  0 77100 4 00006        ARS 6,4          X                                               F1BM2700    
       00520  2 00020 1 00544        TIX YZ1,1,16     TEST FOR DIGIT                                  F1BM2710    
       00521  3 00017 1 00547        TXH YZ2,1,15     TEST FOR Y-ZONE                                 F1BM2720    
       00522 -0 60200 3 00657  CI5   ORS D,3          STORE DIGIT                                     F1BM2730    
       00523  2 00001 4 00513  CI4   TIX CI1,4,1      COUNT CHARACTERS                                F1BM2740    
       00524  0 77100 0 00001  CI3   ARS 1            SHIFT AND TEST COLUMN                           F1BM2750    
       00525 -0 53400 4 00425        LXD OZ2,4        RESTORE GROUP COUNT                             F1BM2760    
       00526  1 77777 4 00527        TXI CI6,4,-1     COUNT GROUPS                                    F1BM2770    
 D     00527 -3 00000 4 00531  CI6   TXL CI7,4        TEST FOR LAST NON-BLANK GROUP                   F1BM2780    
       00530 -0 10000 0 00507        TNZ CI2          TEST FOR END OF ROW                             F1BM2790    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 032/032 ------           
       00531 -0 50000 2 00644  CI7   CAL 8.3,2        FORM TRUE 8.4                                   F1BM2800    
       00532 -0 60200 2 00647        ORS D-8,2        AND 3 ROWS AND                                  F1BM2810    
       00533 -0 60200 2 00654        ORS D-3,2        MOVE 8.4 AND 8.3                                F1BM2820    
       00534  0 60200 2 00645        SLW 8.2,2        ROWS                                            F1BM2830    
       00535 -0 50000 2 00643        CAL 8.4,2        FORM TRUE 8.4                                   F1BM2840    
       00536 -0 60200 2 00647        ORS D-8,2        X                                               F1BM2850    
       00537 -0 60200 2 00653        ORS D-4,2        X                                               F1BM2860    
       00540  0 60200 2 00644        SLW 8.3,2        X                                               F1BM2870    
 D     00541 -3 00000 4 00564  CI8   TXL WP,4         TEST FOR END                                    F1BM2880    
       00542  3 00017 2 00564        TXH WP,2,15      TEST FOR RIGHT HALF                             F1BM2890    
       00543  1 00020 2 00506        TXI CIR,2,16     INITIALIZE RIGHT HALF                           F1BM2900    
       00544  2 00020 1 00552  YZ1   TIX XZ1,1,16     TEST FOR 16/CH/32                               F1BM2910    
       00545  3 00017 1 00555        TXH XZ2,1,15     TEST FOR X-ZONE                                 F1BM2920    
       00546 -0 60200 3 00657        ORS D,3          STORE DIGIT                                     F1BM2930    
       00547 -0 60200 2 00661  YZ2   ORS Y,2          STORE Y-ZONE                                    F1BM2940    
       00550  2 00001 4 00513        TIX CI1,4,1      COUNT CHARACTERS                                F1BM2950    
 TD    00551 -3 00000 0 00524  X1    TXL CI3          OBTAIN NEXT GROUP                               F1BM2960    
       00552  2 00020 1 00560  XZ1   TIX OZ1,1,16     TEST FOR 32/CH/48                               F1BM2970    
       00553  3 00017 1 00523        TXH CI4,1,15     TEST FOR BLANK                                  F1BM2980    
       00554 -0 60200 3 00657        ORS D,3          STORE DIGIT                                     F1BM2990    
       00555 -0 60200 2 00660  XZ2   ORS X,2          STORE X-ZONE                                    F1BM3000    
       00556  2 00001 4 00513        TIX CI1,4,1      COUNT CHARACTERS                                F1BM3010    
 TD    00557 -3 00000 0 00524  X2    TXL CI3          OBTAIN NEXT GROUP                               F1BM3020    
       00560 -0 60200 2 00657  OZ1   ORS Z,2          STORE 0-ZONE                                    F1BM3030    
       00561 -0 60200 3 00657        ORS D,3          STORE DIGIT                                     F1BM3040    
       00562  2 00001 4 00513        TIX CI1,4,1      COUNT CHARACTERS                                F1BM3050    
 TD    00563 -3 00000 0 00524        TXL CI3                                                          F1BM3060    
 TD    00564  3 00000 0 00566  WP    TXH WP9          INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL     F1BM3070    
 TD    00565 -3 00000 0 00572        TXL WP7          NO PROGRAM                                      F1BM3080    
       00566 -0 53400 1 00612  WP9   LXD WP2,1        MASK OUT FIRST COL. OF CARD IMAGE               F1BM3090    
       00567 -0 50000 0 00617        CAL MK2          X                                               F1BM3100    
       00570  0 32000 1 00662  ANS   ANS LT,1         X                                               F1BM3110    
       00571  2 00001 1 00570        TIX ANS,1,1      X                                               F1BM3120    
       00572 -0 53400 1 00424  WP7   LXD Z2,1         COPY LOOP                                       F1BM3130    
       00573  0 70000 1 00646  CRAN  CPY LT-12,1                                                      F1BM3140    
       00574  0 70000 1 00626        CPY RT-12,1      X                                               F1BM3150    
       00575  1 77777 1 00576        TXI T2,1,-1                                                      F1BM3160    
       00576  3 77764 1 00573  T2    TXH CRAN,1,-12                                                   F1BM3170    
       00577 -0 50000 0 00564        CAL WP           RESET SWITCH FOR SECOND CYCLE                   F1BM3180    
       00600  0 60100 0 00564        STO WP           X                                               F1BM3190    
 D     00601  3 00000 4 00610  WP4   TXH WP5,4                                                        F1BM3200    
       00602 -0 53400 1 00551        LXD X1,1         NO, RELOAD INDEX REGISTERS AND RETURN           F1BM3210    
       00603 -0 53400 2 00557        LXD X2,2         X                                               F1BM3220    
       00604 -0 53400 4 00614  WT2   LXD X4,4         X                                               F1BM3230    
       00605  0 02000 4 00002  L2    TRA 2,4          X                                               F1BM3240    
       00606  0 76600 0 00361  RPR2  WPR                                                              F1BM3250    
 TD    00607 -3 00000 0 00461        TXL PR2-2                                                        F1BM3260    
       00610  0 76600 0 00361  WP5   WPR                                                              F1BM3270    
       00611  0 76000 0 00371        SPR 9            SECOND CYCLE                                    F1BM3280    
       00612 -3 00014 0 00500  WP2   TXL PR5,0,12     CONVERT REST OF LINE                            F1BM3290    
       00613  606060606060     BLNKS BCD 1                                                            F1BM3300    
 A     00614  0 00000 0 00000  X4    HTR                                                              F1BM3310    
       00615 +000000000020     YZONE OCT 20                                                           F1BM3320    
       00616 +000000000060     BNK   OCT 60                                                           F1BM3330    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 033/033 ------           
       00617 +377777777777     MK2   OCT 377777777777                                                 F1BM3340    
       00620 -0 00000 0 00000  COL1  MZE                                                              F1BM3350    
                        00621  COL   BSS 1                                                            F1BM3360    
                        00642  RT    BES 16                                                           F1BM3370    
                        00642  8.5   BSS 1                                                            F1BM3380    
                        00643  8.4   BSS 1                                                            F1BM3390    
                        00644  8.3   BSS 1                                                            F1BM3400    
                        00645  8.2   BSS 1                                                            F1BM3410    
                        00657  D     BES 9                                                            F1BM3420    
                        00657  Z     BSS 1                                                            F1BM3430    
                        00660  X     BSS 1                                                            F1BM3440    
                        00661  Y     BSS 1                                                            F1BM3450    
                        00662  LT    SYN Y+1                                                          F1BM3460    
                        00644  8.4L  SYN LT-14                                                        F1BM3470    
                        00624  8.4R  SYN RT-14                                                        F1BM3480    
                        00662        BSS 27                                                           F1BM3490    
                        00030        END 24                                                           F1BM3500    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     362           0           0           0           0
 LIB       0           0           0           0           0
 COL     362           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      410                  
0NUMBER OF SYMBOLS,  DEF   131,DEFOP     0,UNDEF     0      
9            REM MACHINE ERROR RECORD. THIS RECORD HALTS TO PERMIT OPERATOR   F1ME0010    
1                                        MACHINE ERROR RECORD. THIS RECORD HALTS TO PERMIT OPERATOR   F1ME0010    
                                         ----------- SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 034/034 --------    
                                         INTERVENTION. IF THE SAME SOURCE PROGRAM IS TO BE RE-TRIED,  F1ME0020    
                                         OPERATOR SHOULD PRESS START.  IF NEXT SOURCE PROGRAM IS TO BEF1ME0030    
                                         COMPILED, THE OPERATOR MUST MANUALLY TURN SL1-ON, AND PRESS  F1ME0040    
                                         START.                                                       F1ME0050    
                                                                                                      F1ME0060    
                                         MASTER RECORD CARD = F0130000.                               F1ME0070    
                        00030        ORG 24                                                           F1ME0080    
       00030  0 00000 0 00031        HTR NEXTIN                                                       F1ME0090    
       00031 -0 76000 0 00141 NEXTIN SLT 1                                                            F1ME0100    
       00032  0 02000 0 00004        TRA 4               GO TO 1 - CS TO REPEAT PROBLEM.              F1ME0110    
       00033  0 76400 0 00201        BST 1               BACKSPACE OVER MACHINE ERROR RECORD.         F1ME0120    
       00034  0 76400 0 00201        BST 1               BACKSPACE OVER BATCH MONITOR                 F1ME0130    
       00035  0 02000 0 00004        TRA 4               TO 1-CS TO READ NEXT RECORD.                 F1ME0160    
                        00030        END 24                                                           F1ME0170    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      16           0           0           0           0
 LIB       0           0           0           0           0
 COL      16           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       25                  
0NUMBER OF SYMBOLS,  DEF     1,DEFOP     0,UNDEF     0      
9            REM PST                                                                      
1                                        PST                                                                      
                                         ----------- SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 035/035 --------    
                                         APPLIED PROGRAMMING, IBM , L. MAY AND A. S. NOBLE JR.                    
                                         704 FORTRAN II / SECTONR ONE.                   29 OCT 58                
                                                                                                                  
                                         SECTION 1= READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETIC4F10000     
                                         FORMULAS, COMPILES THE OBJECT (OUTPUT) INSTRUCTIONS. FOR     4F10001     
                                         NONARITHMETIC STATEMENTS INCLUDING INPUT-OUTPUT, DOES A      4F10002     
                                         PARTIAL COMPILATION, AND RECORDS THE REMAINING INFORMATION   4F10003     
                                         IN TABLES.                                                   4F10004     
                                                   THE FIVE MAJOR DIVISIONS OF SECTION 1 ARE=         4F10005     
                                         COMMON, STATES A, B, C, AND D. COMMON REMAINS IN LOWER MEMORY4F10006     
                                         THROUGHTOUT SECTION1. STATE A READS IN AND CLASSIFIES ALL    4F10007     
                                         STATEMENTS, AND TREATS NONARITHMETIC STATEMENTS. STATES B,   4F10008     
                                         C, AND D TREAT ARITHMETIC FORMULAS.                          4F10009     
                                                                                                      4F10010     
                                         SECTION 1 / COMMON =                                         4F10011     
                                         704 FORTRAN MASTER RECORD CARD / COMMON = F0140000.          4F10012     
                        00000        ORG 0                                                            4F100121    
       00000  0 00004 0 00030        PZE ORGCOM,,1TOCS                                                4F100122    
       00001  0 00000 0 03437        PZE ORGA-1                                                       4F100123    
                                                                                                      4F10013     
                                         PART 1 / WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS=     4F10014     
                                                                   EIFNO AND SENSE SWITCH SIMULATORS. 4F10015     
                                                                   TAPE TABLE BUFFERS.                4F10016     
                                                                   TAPE TABLE PARAMETERS - INTET.     4F10017     
                                                                   DRUM TABLE PARAMETERS.             4F10018     
                                                                   FORSUB COUNT AND BUFFER.           4F10019     
                                                                   CIB BUFFER AND PARAMETERS.         4F10020     
                                                                   REMAINING WORKING STORAGE.         4F10021     
                                         PART 2 / CONSTANTS USED BY SECTION ONE.                      4F10022     
                                         PART 3 / SUBROUTINES USED BY SECTION ONE=                    4F10023     
                                         NAME                      FUNCTION                           4F10024     
                                         C0150,2                   SCAN, AND CONVERT NUMERICS.        4F10025     
                                         C0160,2                   SCAN CHARACTERS.                   4F10026     
                                         C0180,2                   CONVERT NUMERICS.                  4F10027     
                                         C0190X,4                  INITIALIZE C0190 TO 1ST WORD OF F. 4F10028     
                                         C0390,4                   INSERT CHARACTER.                  4F10029     
                                         C0190,4                   OBTAIN NEXT NON-BLANK CHAR IN AC.  4F10030     
                                         C1T00,4                   COMPILED INSTRUCTION TABLE ENTRIES.4F10031     
                                         DIM.SR,4                  DIMENSION TABLE SEARCH.            4F10032     
                                         DRTABS(,4)                DRUM TABLE ENTRIES.                4F10033     
                                         GETIFN,4                  GET INTERNAL FORMULA NUMBER.       4F10034     
                                         JIF(GIF),4                JUMPS (GETS) IFN IN SL AND TL.     4F10035     
                                         MTR000                    MONITOR STATES FROM DRUM.          4F10036     
                                         RA000,4                   COMPUTER RELATIVE ADDRESS.         4F10037     
                                         RDRX,4                    READ DRUM INTO BUFR.               4F10038     
                                         SR6DC1,1                  CONVERT 6 BCD DIGITS TO 1 BINARY.  4F10039     
                                         SS000,4                   SCAN AND PROCESS SUBSCRIPTS.       4F10040     
                                         SUBX00,4                  ADD BLANKS TO SUBROUTINE NAMES.    4F10041     
                                         TESTFX,1                  TEST FOR FIXED OR FLOATING POINT.  4F10042     
                                         TEST..,4                  TEST CHARACTER IN AC.              4F10043     
                                         TET00,1                   TAPE TABLE ENTRIES.                4F10044     
                                                                                                      4F10045     
                                         DIAG                      DIAGNOSTIC CALLERS.                4F10046     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 036/036 ------           
                                                                                                      4F10047     
                                         THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=          4F10048     
                                                                                                      4F10049     
                                         ** IN THE ADDRES, TAG, OR DECREMENT OF AN INSTRUCTION        4F10050     
                                         INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.   4F10051     
                                         * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF   4F10052     
                                         THIS LOGICAL BLOCK OR SUBROUTINE.                            4F10053     
                                         C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.         4F10054     
                                         P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).  4F10055     
                                                                                                      4F10056     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10057     
                                                                                                      4F10058     
                                         COMMON/1-WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS=     4F10059     
                        00030 ORGCOM ORG 24                                                           4F10060     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10061     
                                                                                                      4F10062     
                                         EIFNO AND SENSE SWITCH SIMULATORS.                           4F10063     
       00030  0 00000 0 00000 EIFNO  PZE **,,**                    EXTERNAL,,INTERAL FORMULA NUMBER.  4F10064     
       00031  0 00000 0 00002 ENDI1  PZE 2                         SIMULATOR FOR SENSE SWITCH 1.      4F10065     
       00032  0 00000 0 00002 ENDI2  PZE 2                         SIMULATOR FOR SENSE SWITCH 2.      4F10066     
       00033  0 00000 0 00002 ENDI3  PZE 2                         SIMULATOR FOR SENSE SWITCH 3.      4F10067     
       00034  0 00000 0 00002 ENDI4  PZE 2                         SIMULATOR FOR SENSE SWITCH 4.      4F10068     
       00035  0 00000 0 00002 ENDI5  PZE 2                         SIMULATOR FOR SENSE SWITCH 5.      4F10069     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10070     
                                                                                                      4F10071     
                                         BUFFERS USED BY TET00 FOR THE TAPE TABLES.                   4F10072     
                        00036 TEIFNO BSS 10                        EXTERNAL,,INTERNAL FORMULA NUMBERS.4F10073     
                        00050 TDO    BSS 10                        DO STATEMENTS.                     4F10074     
                        00062 TIFGO  BSS 10                        IF AND GO TO STATEMENTS.           4F10075     
                        00074 TRAD   BSS 10                        IF AND GO TO TRANSFER ADDRESSES.   4F10076     
                        00106 FORTAG BSS 10                        INDEXES TO TAU AND SIGMA TABLES.   4F10077     
                        00120 FORVAR BSS 10                        RIGHT - NON-SUB. FX. PT. VARIABLES.4F10078     
                        00132 FORVAL BSS 10                        LEFT  - NON-SUB. FX. PT. VARIABLES.4F10079     
                        00144 FRET   BSS 10                        FREQUENCY STATEMENTS.              4F10080     
                        00156 EQUIT  BSS 10                        EQUIVALENCE STATEMENTS.            4F10081     
                        00170 CLOSUB BSS 10                        NAMES OF SUBROUTINES.              4F10082     
                        00202 FORMAT BSS 10                        FORMAT STATEMENTS.                 4F10083     
                        00214 SUBDEF BSS 10                        SUBROUTINE DEFINITION STATEMENTS.  4F10084     
                        00226 COMMON BSS 10                        UPPER MEMORY STORAGE STATEMENTS.   4F10085     
                        00240 HOLARG BSS 10                        HOLLERITH ARGUMENTS FOR SUBROUTINE.4F10086     
                        00252 NONEXC BSS 10                        NON-EXECUTED STATEMENTS.           4F10087     
                        00264 TSTOPS BSS 10                        STOP STATEMENTS.                   4F10088     
                        00276 CALLFN BSS 10                        1ST / LAST IFN FOR CALL STATEMENTS.4F10089     
                        00310 FMTEFN BSS 10                        TABLE OF FORMAT EXTERNAL FORMNOS.  4F10090     
                                          END OF THE TAPE TABLE BUFFERS.                              4F10091     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10092     
                                                                                                      4F10093     
                                         INTET/ TABLE PARAMETERS USED BY TET00, WHERE                 4F10094     
                                                                   O = ORIGIN OF TABLE BUFFER,        4F10095     
                                                                   B = BUFFER CAPACITY,               4F10096     
                                                                   A = ADDRESS OF TABLE ENTRY,        4F10097     
                                                                   E = ENTRY LENGTH IN WORDS,         4F10098     
                                                                   C = COUNT OF BLOCKS PUT ON TAPE,   4F10099     
                                                                   P = PORTION OF BUFFER THAT IS FULL,4F10100     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 037/037 ------           
                                                                                                      4F10101     
       00322  0 00012 0 00036 INTET  PZE TEIFNO,,10                00) 0,,B.                          4F10102     
       00323  0 00001 0 00030        PZE EIFNO,,1                      A,,E.                          4F10103     
       00324  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10104     
                                                                                                      4F10105     
       00325  0 00012 0 00050        PZE TDO,,10                   01) 0,,B.                          4F10106     
       00326  0 00005 0 01105        PZE 1C,,5                         A,,E.                          4F10107     
       00327  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10108     
                                                                                                      4F10109     
       00330  0 00012 0 00062        PZE TIFGO,,10                 02) 0,,B.                          4F10110     
       00331  0 00002 0 01105        PZE 1C,,2                         A,,E.                          4F10111     
       00332  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10112     
                                                                                                      4F10113     
       00333  0 00012 0 00074        PZE TRAD,,10                  03) 0,,B.                          4F10114     
       00334  0 00001 0 01112        PZE 1G,,1                         A,,E.                          4F10115     
       00335  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10116     
                                                                                                      4F10117     
       00336  0 00012 0 00106        PZE FORTAG,,10                04) 0,,B.                          4F10118     
       00337  0 00001 0 01347        PZE G,,1                          A,,E.                          4F10119     
       00340  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10120     
                                                                                                      4F10121     
       00341  0 00012 0 00120        PZE FORVAR,,10                05) 0,,B.                          4F10122     
       00342  0 00002 0 01347        PZE G,,2                          A,,E.                          4F10123     
       00343  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10124     
                                                                                                      4F10125     
       00344  0 00012 0 00132        PZE FORVAL,,10                06) 0,,B.                          4F10126     
       00345  0 00002 0 01347        PZE G,,2                          A,,E.                          4F10127     
       00346  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10128     
                                                                                                      4F10129     
       00347  0 00012 0 00144        PZE FRET,,10                  07) 0,,B.                          4F10130     
       00350  0 00001 0 01112        PZE 1G,,1                         A,,E.                          4F10131     
       00351  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10132     
                                                                                                      4F10133     
       00352  0 00012 0 00156        PZE EQUIT,,10                 08) 0,,B.                          4F10134     
       00353  0 00002 0 01105        PZE 1C,,2                         A,,E.                          4F10135     
       00354  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10136     
                                                                                                      4F10137     
       00355  0 00012 0 00170        PZE CLOSUB,,10                09) 0,,B.                          4F10138     
       00356  0 00001 0 01347        PZE G,,1                          A,,E.                          4F10139     
       00357  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10140     
                                                                                                      4F10141     
       00360  0 00012 0 00202        PZE FORMAT,,10                10) 0,,B.                          4F10142     
       00361  0 00002 0 01347        PZE G,,2                          A,,E.                          4F10143     
       00362  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10144     
                                                                                                      4F10145     
       00363  0 00012 0 00214        PZE SUBDEF,,10                11) 0,,B.                          4F10146     
       00364  0 00001 0 01112        PZE 1G,,1                         A,,E.                          4F10147     
       00365  0 00000 0 00000 SBDFCN PZE **,,**                        C,,P.                          4F10148     
                                                                                                      4F10149     
       00366  0 00012 0 00226        PZE COMMON,,10                12) 0,,B.                          4F10150     
       00367  0 00001 0 01112        PZE 1G,,1                         A,,E.                          4F10151     
       00370  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10152     
                                                                                                      4F10153     
       00371  0 00012 0 00240        PZE HOLARG,,10                13) 0,,B.                          4F10154     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 038/038 ------           
       00372  0 00001 0 01112        PZE 1G,,1                         A,,E.                          4F10155     
       00373  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10156     
                                                                                                      4F10157     
       00374  0 00012 0 00252        PZE NONEXC,,10                14) 0,,B.                          4F10158     
       00375  0 00001 0 00030        PZE EIFNO,,1                      A,,E.                          4F10159     
       00376  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10160     
                                                                                                      4F10161     
       00377  0 00012 0 00264        PZE TSTOPS,,10                15) 0,,B.                          4F10162     
       00400  0 00001 0 00030        PZE EIFNO,,1                      A,,E.                          4F10163     
       00401  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10164     
                                                                                                      4F10165     
       00402  0 00012 0 00276        PZE CALLFN,,10                16) 0,,B.                          4F10166     
       00403  0 00001 0 01123        PZE CALLNM,,1                     A,,E.                          4F10167     
       00404  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10168     
                                                                                                      4F10169     
       00405  0 00012 0 00310        PZE FMTEFN,,10                17) 0,,B.                          4F10170     
       00406  0 00001 0 01366        PZE SET,,1                        A,,E.                          4F10171     
       00407  0 00000 0 00000        PZE **,,**                        C,,P.                          4F10172     
                                                                                                      4F10173     
                        00410        BSS 3                         EXPANSION SPACE INTET.             4F10174     
                                          END OF TAPE TABLE PARAMETERS.                               4F10175     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10176     
                                                                                                      4F10177     
                                         ....IX/ TABLE PARAMETERS USED BY DRTABS, WHERE               4F10178     
                                                                   ARG1 = 1ST LOCATION OF ARGUMENT,   4F10179     
                                                                   L    = LENGTH OF ARGUMENT IN WORDS,4F10180     
                                                                   TDA  = LOC. OF NEXT DRUM ENTRY,    4F10181     
                                                                   N    = NO. OF ENTRIES ON DRUM,     4F10182     
                                                                   ***  = TXL FOR ENTRY SUM TABLES,   4F10183     
                                                                   ***  = TXH FOR BLOCK SUM TAB(FLCN),4F10184     
                                                                   FDA  = LOC. OF 1ST DRUM ENTRY,     4F10185     
                                                                   K    = BUFFER CAPACITY IN ENTRIES, 4F10186     
                                                                   DBL  = K*(L+1) FOR ENTRY SUM TABLE,4F10187     
                                                                   DBL  = K*L+1   FOR BLOCK SUM TABLE,4F10188     
                                                                   J    = DRUM CAPACITY IN ENTRIES,   4F10189     
                                                                   I    = 5 - DRUM NUMBER.            4F10190     
                                                                                                      4F10191     
       00413  0 00001 0 01350        PZE G+1,,1                    FIXCON) ARG1+L,,L                  4F10192     
       00414  0 00000 0 00002        PZE FIXCON,,**                        TDA,,N                     4F10193     
       00415 -3 00062 0 00002 TXLOP  TXL FIXCON,,50*1                  *** FDA,,K*L                   4F10194     
       00416  0 00144 0 00144        PZE 50*2,,100                         DBL,,J                     4F10195     
       00417  1 00003 0 02073 FXCNIX TXI ALT,,5-2                      TXI ATL,,I                     4F10196     
                                                                                                      4F10197     
       00420  0 00001 0 01350        PZE G+1,,1                    FLOCON) ARG1+L,,L                  4F10198     
       00421  0 00000 0 00312        PZE FLOCON,,**                        TDA,,N                     4F10199     
       00422 -3 00062 0 00312 TXHOP  TXL FLOCON,,50*1                  *** FDA,,K*L                   4F10200     
       00423  0 00702 0 00063        PZE 50*1+1,,450                       DBL,,J                     4F10201     
       00424  1 00003 0 02073 FLCNIX TXI ALT,,5-2                      TXI ATL,,I                     4F10202     
                                                                                                      4F10203     
       00425  0 00002 0 01133        PZE E+3+2,,2                  TAU1  ) ARG1+L,,L                  4F10204     
       00426  0 00000 0 00000        PZE TAU1,,**                          TDA,,N                     4F10205     
       00427 -3 00062 0 00000        TXL TAU1,,25*2                    *** FDA,,K*L                   4F10206     
       00430  0 00144 0 00113        PZE 25*3,,100                         DBL,,J                     4F10207     
       00431  1 00001 0 02073 TAU1IX TXI ALT,,5-4                      TXI ATL,,I                     4F10208     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 039/039 ------           
                                                                                                      4F10209     
       00432  0 00004 0 01135        PZE E+3+4,,4                  TAU2  ) ARG1+L,,L                  4F10210     
       00433  0 00000 0 00454        PZE TAU2,,**                          TDA,,N                     4F10211     
       00434 -3 00060 0 00454        TXL TAU2,,12*4                    *** FDA,,K*L                   4F10212     
       00435  0 00132 0 00074        PZE 12*5,,90                          DBL,,J                     4F10213     
       00436  1 00001 0 02073 TAU2IX TXI ALT,,5-4                      TXI ATL,,I                     4F10214     
                                                                                                      4F10215     
       00437  0 00006 0 01137        PZE E+3+6,,6                  TAU3  ) ARG1+L,,L                  4F10216     
       00440  0 00000 0 07246        PZE TAU3,,**                          TDA,,N                     4F10217     
       00441 -3 00060 0 07246        TXL TAU3,,8*6                     *** FDA,,K*L                   4F10218     
       00442  0 00113 0 00070        PZE 8*7,,75                           DBL,,J                     4F10219     
       00443  1 00001 0 02073 TAU3IX TXI ALT,,5-4                      TXI ATL,,I                     4F10220     
                                                                                                      4F10221     
       00444  0 00001 0 01142        PZE E+11+1,,1                 SIGMA1) ARG1+L,,L                  4F10222     
       00445  0 00001 0 01230        PZE SIGMA1+2,,1                       TDA,,N                     4F10223     
       00446 -3 00036 0 01226        TXL SIGMA1,,30,*                  *** FDA,,K*L                   4F10224     
       00447  0 00036 0 00074        PZE 30*2,,30                          DBL,,J                     4F10225     
       00450  1 00003 0 02073 SIG1IX TXI ALT,,5-2                      TXI ATL,,I                     4F10226     
                                                                                                      4F10227     
       00451  0 00002 0 01107        PZE 1C+2,,2                   DIM1  ) ARG1+L,,L                  4F10228     
       00452  0 00000 0 00310        PZE DIM1,,**                          TDA,,N                     4F10229     
       00453 -3 00000 0 00310 ORGDM1 TXL DIM1,,0                       *** FDA,,K*L                   4F10230     
       00454  0 00144 0 00000        PZE 0,,100                            DBL,,J                     4F10231     
       00455  1 00002 0 02071 DIM1IX TXI DIMALT,,5-3                   TXI ATL,,I                     4F10232     
                                                                                                      4F10233     
       00456  0 00002 0 01107        PZE 1C+2,,2                   DIM2  ) ARG1+L,,L                  4F10234     
       00457  0 00000 0 00764        PZE DIM2,,**                          TDA,,N                     4F10235     
       00460 -3 00000 0 00764 ORGDM2 TXL DIM2,,0                       *** FDA,,K*L                   4F10236     
       00461  0 00144 0 00000        PZE 0,,100                            DBL,,J                     4F10237     
       00462  1 00002 0 02071 DIM2IX TXI DIMALT,,5-3                   TXI ATL,,I                     4F10238     
                                                                                                      4F10239     
       00463  0 00003 0 01110        PZE 1C+3,,3                   DIM3  ) ARG1+L,,L                  4F10240     
       00464  0 00000 0 01440        PZE DIM3,,**                          TDA,,N                     4F10241     
       00465 -3 00000 0 01440 ORGDM3 TXL DIM3,,0                       *** FDA,,K*L                   4F10242     
       00466  0 00144 0 00000        PZE 0,,100                            DBL,,J                     4F10243     
       00467  1 00002 0 02071 DIM3IX TXI DIMALT,,5-3                   TXI ATL,,I                     4F10244     
                                          END OF DRUM TABLE PARAMETERS.                               4F10245     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10246     
                                                                                                      4F10247     
                                         COUNT AND BUFFER FOR TABLE OF FUNCTION NAMES AND DEGREES.    4F10248     
                        00470 BK     BSS 1                        FORSUB COUNTER.                     4F10249     
                        00471 FORSUB BSS 100                      NAMES AND DEGREES OF FUNCTIONS.     4F10250     
                                          END OF FUNCTION COUNT AND BUFFER.                           4F10251     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10252     
                                                                                                      4F10253     
                                         PARAMETERS AND BUFFER FOR COMPILED INSTRUCTION TABLE.        4F10254     
       00635  0 00144 0 00000 BS     PZE ,,100                     CIB CAPACITY (4 * 25).             4F10255     
       00636  0 00000 0 00000 EC     PZE ,,**                      ENTRY COUNT = NO. WORDS IN CIB.    4F10256     
       00637  0 00000 0 00000 BBOX   PZE ,,**                      2S COMPLEMENT OF THE ENTRY COUNT.  4F10257     
                        00640 CIB    BSS 100                       COMPILED INSTRUCTION BUFFER.       4F10258     
                                          END OF CIT PARAMETERS AND BUFFER.                           4F10259     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10260     
                                                                                                      4F10261     
                                         ALL OF THE ABOVE BUFFERS AND PARAMETERS ARE USED BY 1 PRIME. 4F10262     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 040/040 ------           
                        01100        ORG 576                                                          4F102625    
                        01100 ERASE  BSS 5                         COMMON WORKING STORAGE.            4F10263     
                        01105 1C     BSS 5                         COMMON WORKING STORAGE.            4F10264     
                        01112 1G     BSS 1                         COMMON WORKING STORAGE.            4F10265     
                        01113 2G     BSS 1                         COMMON WORKING STORAGE FOR STATE A.4F10266     
                        01114 3G     BSS 1                                                            4F10267     
                        01115 1H     BSS 1                                                            4F10268     
                        01116 2H     BSS 1                                                            4F10269     
                        01117 3LBAR  BSS 1                         STORAGE USED BY ARITHMETIC.        4F10270     
                        01120 ARERAS BSS 1                         STORAGE USED BY ARITHMETIC.        4F10271     
       01121 -0 00001 0 00004 ARGCNT MZE 4,,1                      ARGUMENT COUNTER USED BY C30,C32.  4F10272     
                        01122 ARGCTR BSS 1                         STORAGE USED BY ARITHMETIC.        4F10273     
       01123  0 00000 0 00000 CALLNM PZE **,,**                                                       4F10274     
                        01124 CHSAVE BSS 1                         WORKING STORAGE USED BY ROYCNV.    4F10275     
                        01125 DIMSAV BSS 1                         WORKING STORAGE USED BY SS000.     4F10276     
                        01126 E      BSS 14                        WORKING STORAGE USED BY SS000.     4F10277     
                        01144 EPSM3  BSS 3                                                            4F10278     
                        01147  EPS   BSS 1                         EPSILON - VARIABLE USED BY RA000.  4F10279     
                        01150 E1C    BSS 1                         COMMON WORKING STORAGE.            4F10280     
                        01151  EFN   BSS 1                         EXTERNAL FORMULA NUMBER (F-1).     4F10281     
                        01152 F      BSS 111                       ASSEMBLED STATEMENT REGION.        4F10282     
                        01331 FIRSTC BSS 1                         USED BY SS000,TESTFX,C3000.        4F10283     
                        01332 FSNAME BSS 1                         NAME OF FUNCTION.                  4F10284     
                        01333 FT     BSS 12                        SOURCE PROGRAM INPUT BUFFER.       4F10285     
                        01347 G      BSS 2                                                            4F10286     
                        01351  GTAG  BSS 1                         VARIABLE USED BY IOT, RA.          4F10287     
       01352  307400000000    HOLCNT BCD 1H(0000                   WORKING STORAGE USED BY C3300.     4F10288     
                        01353 I      BSS 1                                                            4F10289     
                        01354 LEFT   BSS 3                         STORAGE USED BY ARITHMETIC.        4F10290     
       01357  0 00000 0 00000 LENGTH PZE **,,**                                                       4F10291     
                        01360 NBAR   BSS 1                         STORAGE USED BY ARITHMETIC.        4F10292     
                        01361  N2    BSS 1                                                            4F10293     
                        01362 OPNWRD BSS 1                         ERASEABLE USED BY STATE D.         4F10294     
       01363  0 00000 0 00000 PHI(I) PZE **,,**                                                       4F10295     
       01364  0 00000 0 00010  RAT   PZE 8,,**                     VARIABLE USED BY IOT.              4F10296     
                        01365 RESIDU BSS 1                         REMAINDER OF F-REGION WORD.(C0190) 4F10297     
       01366  1 00000 0 00000  SET   PON  **                                                          4F10298     
                        01367  SL    BSS 1                                                            4F10299     
                        01370 SYMBOL BSS 1                         WORKING STORAGE USED BY SS000.     4F10300     
       01371  0 00000 0 00370  TL    PZE 31*8,,**                                                     4F10301     
       01372  0 00000 0 00000 TLINE  PZE **                        VARIABLE USED BY IOT.              4F10302     
                                          END OF COMMON WORKING STORAGE, BUFFERS, AND PARAMETERS.     4F10303     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10304     
                                                                                                      4F10305     
                                         COMMON/2-CONSTANTS USED BY SECTION ONE=                      4F10306     
                                                                                                      4F10307     
       01373 +000000000012    TEN    OCT 12                         (1010) - CTEST-11                 4F10308     
       01374 +000000000077    ENDMK  OCT 77                         111111 - CTEST-10                 4F10309     
       01375 +000000000074    OPEN   OCT 74                         (      - CTEST-9                  4F10310     
       01376 +000000000073    COMMA  OCT 73                         ,      - CTEST-8                  4F10311     
       01377 +000000000034    CLOS   OCT 34                         )      - CTEST-7                  4F10312     
       01400 +000000000013    EQUAL  OCT 13                         =      - CTEST-6                  4F10313     
       01401 +000000000040    11Z    OCT 40                         -      - CTEST-5                  4F10314     
       01402 +000000000061    SLASH  OCT 61                         /      - CTEST-4                  4F10315     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 041/041 ------           
       01403 +000000000033    POINT  OCT 33                         .      - CTEST-3                  4F10316     
       01404 +000000000020    12Z    OCT 20                         +      - CTEST-2                  4F10317     
       01405 +000000000054    STAR   OCT 54                         *      - CTEST-1                  4F10318     
                        01406 CTEST  BSS 0                          ADDRESS USED FOR INDEXING ABOVE.  4F10319     
                                                                                                      4F10320     
       01406  000000000000    L(0)   BCD 1000000                    0                                 4F10321     
       01407  000000000001    L(1)   BCD 1000001                    1                                 4F10322     
       01410  000000000002    L(2)   BCD 1000002                    2                                 4F10323     
       01411  000000000003    L(3)   BCD 1000003                    3                                 4F10324     
       01412  000000000004    L(4)   BCD 1000004                    4                                 4F10325     
       01413  000000000005    L(5)   BCD 1000005                    5                                 4F10326     
       01414  000000000006    L(6)   BCD 1000006                    6                                 4F10327     
       01415  000000000007    L(7)   BCD 1000007                    7                                 4F10328     
       01416  000000000010    L(8)   BCD 1000008                    8                                 4F10329     
       01417  000000000011    L(9)   BCD 1000009                    9                                 4F10330     
       01420 +000000000014    MINUS  OCT 14                         -                                 4F10331     
       01421  000000000023    L(C)   BCD 100000C                    C                                 4F10332     
       01422  000000000026    L(F)   BCD 100000F                    F                                 4F10333     
       01423  000000000030    L(H)   BCD 100000H                    H                                 4F10334     
       01424 +000000000032    CHAR2  OCT 32                         CONSTANT USED BY CD000.           4F10335     
       01425  000000000046    L(O)   BCD 100000O                    O (ALPHABETIC)                    4F10336     
       01426 +000000000052    CHAR3  OCT 52                         CONSTANT USED BY CD000.           4F10337     
       01427 +000000000053    SPECOP OCT 53                         00000$                            4F10338     
       01430 +000000000060    BLANK  OCT 60                         0000000000060                     4F10339     
       01431  000000000062    L(S)   BCD 100000S                    S                                 4F10340     
       01432  000000000063    L(T)   BCD 100000T                    T                                 4F10341     
       01433  000000000067    L(X)   BCD 100000X                    X                                 4F10342     
       01434  000000000071    L(Z)   BCD 100000Z                    Z                                 4F10343     
       01435 +000000000072    PM     OCT 72                         RECORD MARK (ILLEGAL) -CD000      4F10344     
       01436 +000000000100    BIT29  OCT 100                                                          4F10345     
       01437 +000000000121     A81   DEC 81                         CONSTANT USED BY IOT.             4F10346     
       01440 +000000000140    L(96)  OCT 140                        USED BY C0500.                    4F10347     
       01441 +000000000160    L(112) OCT 160                        USED BY C0400.                    4F10348     
       01442 +000000000777    MASK3  OCT 777                                          -ARITHMETIC.    4F10349     
       01443 +000000001000    1E9    OCT 1000                       ADDRESS=8                         4F10350     
       01444  000000002174    L(A()  BCD 10000A(                    INTERNAL FLO-PT VARIABLE PREFIX.  4F10351     
       01445  000000003074    L(H()  BCD 10000H(                                                      4F10352     
       01446  000000003174    L(I()  BCD 10000I(                    INTERNAL FIX-PT VARIABLE PREFIX.  4F10353     
       01447 +000000006212    SAPSYM OCT 6212                                                         4F10354     
       01450 +000000006712    IFSYM  OCT 6712                                                         4F10355     
       01451 +000000007112    CALLER OCT 7112                                                         4F10356     
       01452 +000000077777    MASK2  OCT 77777                      2**15-1           -ARITHMETIC.    4F10357     
       01453 +000000400000    2E17   OCT 400000                     TAG=4                             4F10358     
       01454 +000001000000    2E18   OCT 1000000                    DECREMENT=1                       4F10359     
       01455  0 00001 0 00001 DECR1  PZE 1,,1                       CONSTANT USED BY DRTABS.          4F10360     
       01456 +000001000002    ABTAG2 OCT 1000002                    CONSTANT USED BY C3200.           4F10361     
       01457  0 00002 0 00000  D2    PZE ,,2                        CONSTANT USED BY IOT.             4F10362     
       01460 +000002000004    ABTAG3 OCT 2000004                    CONSTANT USED BY C3200.           4F10363     
       01461  0 00003 0 00000 D3CN   PZE ,,3                        CONSTANT USED BY IOT.             4F10364     
       01462 +000003077775    BETAD2 OCT 3077775                    3*2**18+(-3)      -ARITHMETIC.    4F10365     
       01463  0 00006 0 00000  D6    PZE ,,6                        CONSTATN USED BY IOT.             4F10366     
       01464  0 00020 0 00000 FSIND  PZE ,,16                                                         4F10367     
       01465  0 00021 0 00000 DEC17  PZE ,,17                                                         4F10368     
       01466  0 00022 0 00000 DEC18  PZE ,,18                                                         4F10369     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 042/042 ------           
       01467 +000032000000    PZ     OCT 32000000                   PLUS ZERO -CD000.                 4F10370     
       01470 +000037777600    MASK5  OCT 37777600                                     -ARITHMETIC.    4F10371     
       01471  0 00040 0 00000 FNIND  PZE ,,32                                                         4F10372     
       01472  0 00043 0 00000 DEC35  PZE ,,35                                                         4F10373     
       01473 +000052000000    MZ     OCT 52000000                   MINUS ZERO -CD000.                4F10374     
       01474 +000200000000    NGTBIT OCT 000200000000                                                 4F10375     
       01475  0 00220 0 00000  BTA   PZE ,,144                      CONSTANT USED BY IOT.             4F10376     
       01476  0 00300 0 00000 BDA    PZE 0,0,192                    CONSTANT USED BY IOT.             4F10377     
       01477  006060606060    5BLANS BCD 10                         006060606060                      4F10378     
       01500  010000000000    E(     BCD 1100000                                      -ARITHMETIC.    4F10379     
       01501  020000000000    I(     BCD 1200000                                      -ARITHMETIC.    4F10380     
       01502  030000000000    A(     BCD 1300000                                      -ARITHMETIC.    4F10381     
       01503  040000000000    P(     BCD 1400000                                      -ARITHMETIC.    4F10382     
       01504  060000000000    O(     BCD 1600000                                      -ARITHMETIC.    4F10383     
       01505  070000000000    X(     BCD 1700000                                      -ARITHMETIC.    4F10384     
       01506 +077775077775    BETAD1 OCT 77775077775                (-3(*2**18+(-3)   -ARITHMETIC.    4F10385     
       01507 +077777000000    1BAR   OCT 77777000000                (2**15-1)*2**18DECREMENT MASK.    4F10386     
       01510 +000000003061     15P   DEC 1585                       CONSTANT USED BY IOT.             4F10387     
       01511 +176060606060    PROCTR OCT 176060606060                                                 4F10388     
       01512 +200000000000    ADPLUS OCT 200000000000               ADDITION SIGN -ARITHMETIC.        4F10389     
       01513  217400000000    FLOVAR BCD 1A(0000                    A( INTERNAL FLOATING PT.          4F10390     
       01514  256747740160    FXFX   BCD 1EXP(1                                                       4F10391     
       01515  256747740260    FLFX   BCD 1EXP(2                                                       4F10392     
       01516  256747740360    FLFL   BCD 1EXP(3                                                       4F10393     
       01517  317400000000    FIXVAR BCD 1I(0000                    I( INTERNAL FIXED PT. VARIABLE.   4F10394     
       01520 -0 00000 0 00000 MINUS0 MZE 0                                                            4F10395     
       01521 -0 00002 0 00000 DECMI2 MZE ,,2                                                          4F10396     
       01522 -130000000000    ADSPOP OCT 530000000000               $00000                            4F10397     
       01523 -136000000000    DOLSGN OCT 536000000000               CONSTANT USED BY C32000           4F10398     
       01524 -140000000000    ADSTAR OCT -140000000000              MULTIPLUCATION SIGN -ARITHMETIC.  4F10399     
       01525 -145400000000    STRSTR OCT -145400000000              EXPONENTIATION SIGN -ARITHMETIC.  4F10400     
       01526  606060606060    BLANKS BCD 1                          606060606060                      4F10401     
       01527 -377777700000    MASK1  OCT -377777700000              -(2**20-U.***15     -ARITHMETIC.  4F10402     
       01530 -377777777737    MASK4  OCT -377777777737                                  -ARITHMETIC   4F10403     
       01531 -377777777777    ALL1   OCT -377777777777              END OF STATMENT WORD.             4F10404     
                                                                                                      4F10405     
       01532  212424000000    L(ADD) BCD 1ADD000                    SYMBOLIC OPERATION CODE.          4F10406     
       01533  214362000000    L(ALS) BCD 1ALS000                    SYMBOLIC OPERATION CODE.          4F10407     
       01534  214521000000    L(ANA) BCD 1ANA000                    SYMBOLIC OPERATION CODE.          4F10408     
       01535  215162000000    L(ARS) BCD 1ARS000                    SYMBOLIC OPERATION CODE.          4F10409     
       01536  226262000000    L(BSS) BCD 1BSS000                    SYMBOLIC OPERATION CODE.          4F10410     
       01537  232143000000    L(CAL) BCD 1CAL000                                                      4F10411     
       01540  233062000000    L(CHS) BCD 1CHS000                    SYMBOLIC OPERATION CODE.          4F10412     
       01541  234321000000    L(CLA) BCD 1CLA000                    SYMBOLIC OPERATION CODE.          4F10413     
       01542  234344000000    L(CLM) BCD 1CLM000                    SYMBOLIC OPERATION CODE.          4F10414     
       01543  234362000000    L(CLS) BCD 1CLS000                    SYMBOLIC OPERATION CODE.          4F10415     
       01544  234770000000    L(CPY) BCD 1CPY000                                                      4F10416     
       01545  242363000000    L(DCT) BCD 1DCT000                    SYMBOLIC OPERATION CODE.          4F10417     
       01546  242524000000    L(DED) BCD 1DED000                                                      4F10418     
       01547  246547000000    L(DVP) BCD 1DVP000                    SYMBOLIC OPERATION CODE.          4F10419     
       01550  262124000000    L(FAD) BCD 1FAD000                    SYMBOLIC OPERATION CODE.          4F10420     
       01551  262447000000    L(FDP) BCD 1FDP000                    SYMBOLIC OPERATION CODE.          4F10421     
       01552  264447000000    L(FMP) BCD 1FMP000                    SYMBOLIC OPERATION CODE.          4F10422     
       01553  266222000000    L(FSB) BCD 1FSB000                    SYMBOLIC OPERATION CODE.          4F10423     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 043/043 ------           
       01554  304751000000    L(HPR) BCD 1HPR000                    SYMBOLIC OPERATION CODE.          4F10424     
       01555  432421000000    L(LDA) BCD 1LDA000                                                      4F10425     
       01556  432450000000    L(LDQ) BCD 1LDQ000                    SYMBOLIC OPERATION CODE.          4F10426     
       01557  434362000000    L(LLS) BCD 1LLS000                    SYMBOLIC OPERATION CODE.          4F10427     
       01560  435162000000    L(LRS) BCD 1LRS000                    SYMBOLIC OPERATION CODE.          4F10428     
       01561  436724000000    L(LXD) BCD 1LXD000                    SYMBOLIC OPERATION CODE.          4F10429     
       01562  444770000000    L(MPY) BCD 1MPY000                    SYMBOLIC OPERATION CODE.          4F10430     
       01563  446225000000    L(MSE) BCD 1MSE000                    SYMBOLIC OPERATION CODE.          4F10431     
       01564  465121000000    L(ORA) BCD 1ORA000                    SYMBOLIC OPERATION CODE.          4F10432     
       01565  476225000000    L(PSE) BCD 1PSE000                    SYMBOLIC OPERATION CODE.          4F10433     
       01566  476724000000    L(PXD) BCD 1PXD000                    SYMBOLIC OPERATION CODE.          4F10434     
       01567  464751460000    L(OPR) BCD 1OPRO00                    SYMBOLIC OPERATION CODE.          4F10435     
       01570  506724000000    L(QXD) BCD 1QXD000                    SYMBOLIC OPERATION CODE.          4F10436     
       01571  626321000000    L(STA) BCD 1STA000                    SYMBOLIC OPERATION CODE.          4F10437     
       01572  626346000000    L(STO) BCD 1STO000                    SYMBOLIC OPERATION CODE.          4F10438     
       01573  626350000000    L(STQ) BCD 1STQ000                    SYMBOLIC OPERATION CODE.          4F10439     
       01574  626422000000    L(SUB) BCD 1SUB000                    SYMBOLIC OPERATION CODE.          4F10440     
       01575  626724000000    L(SXD) BCD 1SXD000                    SYMBOLIC OPERATION CODE.          4F10441     
       01576  633167000000    L(TIX) BCD 1TIX000                                                      4F10442     
       01577  634665000000    L(TOV) BCD 1TOV000                    SYMBOLIC OPERATION CODE.          4F10443     
       01600  635046000000    L(TQO) BCD 1TQO000                    SYMBOLIC OPERATION CODE.          4F10444     
       01601  635121000000    L(TRA) BCD 1TRA000                    SYMBOLIC OPERATION CODE.          4F10445     
       01602  636267000000    L(TSX) BCD 1TSX000                    SYMBOLIC OPERATION CODE.          4F10446     
       01603  642621000000    L(UFA) BCD 1UFA000                    SYMBOLIC OPERATION CODE.          4F10447     
                                          END OF COMMON CONSTANTS USED BY SECTION ONE.                4F10448     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10449     
                                                                                                      4F10450     
                                         COMMON/3-SUBROUTINES USED BY SECTION ONE*                    4F10451     
                                                                                                      4F10452     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10453     
                                                                                                      4F10454     
                                         C0150,2/ CALLS=C0190,DIAG,C0180,C0160. CALLER=C0100.         4F10455     
                                         C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC, SETS I4F10456     
                                         = 0, AND CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON-     4F10457     
                                         NUMERIC, SETS I = -O, AND PACKS INTO 1G SUCCESSIVE CHARACTERS4F10458     
                                         UNTIL A ,()= OR ENDMK IS MET, AND LEFT IN THE AC.            4F10459     
       01604 -0 63400 2 01607 C0150  SXD C015X,2                    SAVE THE C(XR2).                  4F10460     
       01605  0 07400 4 01707        TSX C0190,4                  * TEST 1ST NON-BLANK CHARACTER      4F10461     
       01606  0 34000 0 01417        CAS L(9)                       FOR NUMERIC OR NON-NUMERIC.       4F10462     
       01607  1 00000 0 01615 C015X  TXI C0151,0,**                 IF NON-NUMERIC, TRANSFER.         4F10463     
       01610  0 76100 0 00000        NOP                            IF NUMERIC, THEN                  4F10464     
       01611  0 07400 2 01655        TSX C0180,2                  * GO CONVERT TO BINARY.             4F10465     
       01612  0 60100 0 01113        STO 2G                         SAVE NEXT NON-NUERIC CHARACTER.   4F10466     
       01613  0 50000 0 01406        CLA L(0)                       PREPARE TO SET I TO +0.           4F10467     
       01614  1 00000 0 01620  FWA   TXI C0152,0,**                 GO SET I FOR NUMERIC.             4F10468     
       01615  0 07400 2 01624 C0151  TSX C0160,2                  * ASSEMBLE NON-NUMERICS IN 1G.      4F10469     
       01616  0 60100 0 01112        STO 1G                         SAVE PUNCTUATION MARK, AND        4F10470     
       01617  0 50200 0 01406        CLS L(0)                       PREPARE TO SET I TO -0.           4F10471     
       01620  0 60100 0 01353 C0152  STO I                          SET I = +0, OR -0.                4F10472     
       01621  0 50000 0 01113        CLA 2G                         PICKUP NEXT CHARACTER,            4F10473     
       01622 -0 53400 2 01607        LXD C015X,2                    RESTORE THE C(XR2), AND           4F10474     
       01623  0 02000 2 00001        TRA 1,2                      * RETURN TO CALLER.                 4F10475     
                                          END OF PROGRAM C0150.                                       4F10476     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10477     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 044/044 ------           
                                                                                                      4F10478     
                                         C0160,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C1000,C1200,  4F10479     
                                         C1500,C3000,C3100,C0150.                                     4F10480     
                                         C0160 ASSEMBLES LEFT-ADJUSTED IN 1G, THE CHAR IN THE AC AND  4F10481     
                                         SUCCESSIVE NB CHARS STARTING IN THE MQ, UNTIL A ,()= OR ENDMK4F10482     
                                         IS MET AND LEFT IN THE AC. ALSO MARKS END OF WORD WITH A     4F10483     
                                         BLANK, IF LESS THEN 6 CHARACTERS.                            4F10484     
       01624 -0 63400 2 01631 C0160  SXD C016X,2                  SAVE THE C(XR2), AND                4F10485     
       01625  0 53400 2 01406        LXA L(0),2                   SET XR2 TO CONTROL SHIFTING.        4F10486     
       01626  0 60000 0 01112        STZ 1G                       CLEAR WORKING STORAGE.              4F10487     
       01627  0 53400 4 02652 C0161  LXA CTESTX,4                 TEST                                4F10488     
       01630  0 34000 4 01406 C0162  CAS CTEST,4                  CHARACTER                           4F10489     
       01631  1 00000 0 01633 C016X  TXI C0163,0,**               IN THE AC                           4F10490     
 D     01632  1 00000 0 01642        TXI C0165,0                  AGAINST                             4F10491     
       01633  2 00001 4 01630 C0163  TIX C0162,4,1                ALL PUNCTUATIONS.                   4F10492     
       01634 -3 00036 2 01636        TXL C0164,2,30               IF SYMBOL EXCEEDS 6 CHARACTERS,     4F10493     
       01635  0 07400 4 03400        TSX DIAG,4                 * GO TO THE DIAGNOSTIC.               4F10494     
       01636  0 76700 2 00036 C0164  ALS 30,2                     BUILD LEFT-ADJUSTED                 4F10495     
       01637 -0 60200 0 01112        ORS 1G                       SYMBOL IN WORKING STORAGE.          4F10496     
       01640  0 07400 4 01707        TSX C0190,4                * GET NEXT NB CHARACTER IN THE AC.    4F10497     
       01641  1 00006 2 01627        TXI C0161,2,6                UPDATE SHIFT COUNT, AND CONTINUE.   4F10498     
       01642  3 00000 2 01644 C0165  TXH C0167,2,0                IF PUNCTUATION IS 1ST CHARACTER.    4F10499     
       01643  0 07400 4 03400 C0166  TSX DIAG,4                 * OR ILLEGAL, GO TO THE DIAGNOSTIC.   4F10500     
       01644 -3 00005 4 01643 C0167  TXL C0166,4,5                IF LEGAL PUNCTUATION, THEN          4F10501     
       01645  0 60100 0 01115        STO 1H                       SAVE, AND                           4F10502     
       01646  0 50000 0 01430        CLA BLANK                    ADD A BLANK                         4F10503     
       01647  0 76700 2 00036        ALS 30,2                     TO SYMBOLS THAT ARE LESS            4F10504     
       01650 -0 60200 0 01112        ORS 1G                       THEN 6 CHARACTERS IN LENGTH.        4F10505     
       01651  0 50000 0 01115        CLA 1H                       PICKUP PUNCTUATION MARK,            4F10506     
       01652 -0 53400 2 01631        LXD C016X,2                  RESTORE THE C(XR2), AND             4F10507     
       01653  0 02000 2 00001        TRA 1,2                    * RETURN TO CALLER.                   4F10508     
                                          END OF PROGRAM C0160.                                       4F10509     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10510     
                                                                                                      4F10511     
                                         C0180,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C0300,C0400,  4F10512     
                                         C1000,C1100,C1200,C1400,C1500,C0150.                         4F10513     
                                         C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE MQ TO     4F10514     
                                         BINARY, PLACES RESULT IN 1G, AND LEAVES 1ST NON-NUMERIC IN   4F10515     
                                         THE AC. 1ST NUMERIC IS ASSUMED TO BE ALREADY IN THE AC.      4F10516     
       01654  0 07400 4 01707 C0180X TSX C0190,4                * OBTAIN 1ST NUMERIC IN THE AC.       4F105165    
       01655  0 60100 0 01112 C0180  STO 1G                       PLACE 1ST NUMERIC IN 1G.            4F10517     
       01656  0 07400 4 01707        TSX C0190,4                * EXAMINE NEXT NON-BLANK CHARACTER,   4F10518     
       01657  0 34000 0 01417        CAS L(9)                     AND IF NON-NUMERIC, THEN            4F10519     
       01660  0 02000 2 00001        TRA 1,2                    * RETURN TO CALLER.                   4F10520     
       01661  0 76100 0 00000        NOP                          IF NUMERIC, THEN                    4F10521     
       01662  0 60100 0 01113        STO 2G                       SAVE DIGIT IN 2G.                   4F10522     
       01663  0 50000 0 01112        CLA 1G                       MULTIPLY                            4F10523     
       01664  0 76700 0 00002        ALS 2                        C(1G)                               4F10524     
       01665  0 40000 0 01112        ADD 1G                       BY                                  4F10525     
       01666  0 76700 0 00001        ALS 1                        10,                                 4F10526     
       01667  0 40000 0 01113        ADD 2G                       AND ADD CURRENT DIGIT.              4F10527     
       01670  1 76626 0 01655  DCF   TXI C0180,0,-F               REPEAT PROCESS FOR NEXT CHARACTER.  4F10528     
                                          END OF PROGRAM C0180.                                       4F10529     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10530     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 045/045 ------           
                                                                                                      4F10531     
                                         C0190X,4/ CALLERS=CD000,CB000,CC000,C0300,C3300.             4F10532     
                                         C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMUAL IN F. 4F10533     
       01671  0 50000 0 01670 C0190X CLA DCF                      SET FORMULA WORD                    4F10534     
       01672  0 62200 0 01614        STD FWA                      ADDRESS = -(F-REGION ADDRESS),      4F10535     
       01673 -0 63400 0 01724        SXD CHCTR,0                  SET CHARACTER COUNT = 0,            4F10536     
       01674  0 02000 4 00001        TRA 1,4                    * RETURN TO MAIN ROUTINE.             4F10537     
                                          END OF PROGRAM C0190X.                                      4F10538     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10539     
                                                                                                      4F10540     
                                         C0390,4/ CALLERS=C0300,C3300.                                4F10541     
                                         C0390 INSERTS THE CHARACTER IN THE AC INTO THE 1ST POSITION  4F10542     
                                         TO THE LEFT OF THAT DEFINED BY FWA AND XR1                   4F10543     
       01675  0 50000 0 01374 C0390  CLA ENDMK                     PREPARE TO CHANGE                  4F10544     
       01676 -0 53400 2 01614        LXD FWA,2                     THE PROPER CHARACTER               4F10545     
       01677 -0 53400 1 01724        LXD CHCTR,1                   IN THE F-REGION.                   4F10546     
       01700 -2 00001 1 01703        TNX C0393,1,1                 ADJUST MASK                        4F10547     
       01701 -0 76300 0 00006 C0392  LGL 6                         TO POSITION                        4F10548     
       01702  2 00001 1 01701        TIX C0392,1,1                 CHARACTER                          4F10549     
       01703  0 76000 0 00006 C0393  COM                           INVERT MASK, AND                   4F10550     
       01704  0 32000 2 77777        ANS -1,2                      ERASE PROPER CHARACTER.            4F10551     
       01705 -0 76300 0 00044        LGL 36                        ADJUST CHARACTER, AND              4F10552     
       01706 -0 60200 2 77777        ORS -1,2                      INSERT IN ERASED POSITION.         4F10553     
                                         C0390 CONTINUES BY USING C0190.                              4F10554     
                                                                                                      4F10555     
                                         C0190,4/ CALLERS=CD000,CB000,CC000,C0100,C200,C00300,C0400,  4F10556     
                                         C0900,C1000,C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200, 4F10557     
                                         C3300,C3400,C0150,C0160,C0190,SS000,ROYCNV,RSC,LPR.          4F10558     
                                         C0190 OBTAINS IN AC THE NEXT NON-BLANK CHARACTER OF FORMULA. 4F10559     
       01707 -0 63400 1 01723 C0190  SXD C0194,1                   SAVE THE C(XR1), AND               4F10560     
       01710 -0 53400 1 01724        LXD CHCTR,1                   SET XR1 = CHARACTER COUNT.         4F10561     
       01711  0 56000 0 01365        LDQ RESIDU                    PICK UP ANY REMAINING CHARACTERS.  4F10562     
       01712  2 00001 1 01720 C0191  TIX C0193,1,1                 IF NONE,                           4F10563     
       01713 -0 53400 1 01614        LXD FWA,1                     PICK UP NEXT FORMULA               4F10564     
       01714  0 56000 1 00000        LDQ 0,1                       WORD FROM F-REGION,                4F10565     
       01715  1 77777 1 01716        TXI C0192,1,-1                AND INCREASE                       4F10566     
       01716 -0 63400 1 01614 C0192  SXD FWA,1                     FORMULA WORD ADDRESS BY 1.         4F10567     
       01717  0 53400 1 01414        LXA L(6),1                    RESET XR1 FOR 6 NEW CHARACTERS.    4F10568     
       01720 -0 75400 0 00000 C0193  PXD ,0                        EXAMINE                            4F10569     
       01721 -0 76300 0 00006        LGL 6                         NEXT CHARACTER                     4F10570     
       01722  0 34000 0 01430        CAS BLANK                     AND COMPARE WITH A BLANK.          4F10571     
       01723  1 00000 0 01725 C0194  TXI C0195,0,**                IF BLANK,                          4F10572     
       01724  1 00000 0 01712 CHCTR  TXI C0191,0,**                GO EXAMINE NEXT CHARACTER.         4F10573     
       01725 -0 63400 1 01724 C0195  SXD CHCTR,1                   IF NOT BLANK, RESET CHAR COUNT,    4F10574     
       01726 -0 60000 0 01365        STQ RESIDU                    SAVE ANY REMAINING CHARACTERS,     4F10575     
       01727 -0 53400 1 01723        LXD C0194,1                   RESTORE THE C(XR1), AND            4F10576     
       01730  0 02000 4 00001        TRA 1,4                     * RETURN TO MAIN ROUTINE.            4F10577     
                                          END OF PROGRAM C0190.                                       4F10578     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10579     
                                                                                                      4F10580     
                                         CIT00,4/ CALLERS=C0200,C0400,C0900,C1000,C1100,C1300,C1600,  4F10581     
                                         C3200,RDC,WBT,RBT,WRD,BRW,EFT,LPR,CMA,EMK,INPUT(OUTPUT),     4F10582     
                                         ETMSW(LTMSW),LIB,VRA(VRD).                                   4F10583     
                                         C1T00 MAKE ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN   4F10584     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 046/046 ------           
                                         THE BUFFER IS FULL IT IS WRITTEN AS A RECORD ONTO TAPE 3.    4F10585     
       01731 -0 63400 2 01102 CIT00  SXD CITXR2,2                  SAVE THE C(XR2).                   4F10586     
       01732 -0 63400 1 01101        SXD CITXR1,1                  SAVE THE C(XR1).                   4F10587     
       01733 -0 60000 0 01150        STQ CITMQR                    SAVE THE C(MQR).                   4F10588     
       01734 -0 53400 2 00637        LXD BBOX,2                    SET XR2 = 2S COMPL OF NO-WRDS-ENTD.4F10589     
       01735  0 50000 0 00635        CLA BS                        COMPARE BLOCK SIZE                 4F10590     
       01736  0 40200 0 00636        SUB EC                        WITH ENTRY COUNT.                  4F10591     
       01737 -0 10000 0 01747        TNZ CIT04                     IF BLOCK IS NOT FULL,GO MAKE ENTRY.4F10592     
       01740  0 76600 0 00223        WRS CITTAP                    PREPARE TO WRITE BLOCK ON CIT TAPE.4F10593     
       01741  0 73400 1 00000        PAX ,1                        SET XR1 = 0, AND                   4F10594     
       01742  0 70000 1 00640 CIT01  CPY CIB,1                     COPY SUCCESSIVE                    4F10595     
       01743  1 77777 1 01744        TXI CIT02,1,-1                WORDS OF BLOCK                     4F10596     
       01744  1 00001 2 01745 CIT02  TXI CIT03,2,1                 AND CONTINUE                       4F10597     
       01745  3 00001 2 01742 CIT03  TXH CIT01,2,1                 UNTIL XR2 = 0.                     4F10598     
       01746  0 76600 0 00333        IOD                           WHEN DONE,                         4F10599     
       01747  0 53400 1 01412 CIT04  LXA L(4),1                    SET XR1 = ENTRY SIZE.              4F10600     
       01750  1 77777 4 01751 CIT05  TXI CIT05+1,4,-1              SET XR4 = -(ADDR OF NEXT ENTRY WRD)4F10601     
       01751  0 50000 4 00000        CLA 0,4                       AND PICK UP ADDRESS OF NEXT ENTRY  4F10602     
       01752  0 62100 0 01753        STA CIT06                     TO SET NEXT ADDRESS.               4F10603     
       01753  0 50000 0 00000 CIT06  CLA **                        MOVE ENTRY                         4F10604     
       01754  0 60100 3 00640        STO CIB,3                     INTO CIB BUFFER,                   4F10605     
       01755  1 77777 2 01756        TXI CIT07,2,-1                AND COUNT 1 FOR EACH WORD ENTERED. 4F10606     
       01756  2 00001 1 01750 CIT07  TIX CIT05,1,1                 WHEN DOEN,                         4F10607     
       01757 -0 63400 2 00637        SXD BBOX,2                    SAVE THE C(XR2), AND               4F10608     
       01760 -0 75400 2 02032 DMSR99 PXD DMSR05+1,2                COMPUTE THE                        4F10609     
       01761  0 76000 0 00006        COM                           REAL NUMBER                        4F10610     
       01762  0 40000 0 01454        ADD 2E18                      OF WORDS ENTERED                   4F10611     
       01763 -0 73400 2 02031 DMSR98 PDX DMSR05,2                  IN CIB BUFFER, AND                 4F10612     
       01764 -0 63400 2 00636        SXD EC,2                      SAVE IN EC.                        4F10613     
       01765  0 56000 0 01150        LDQ CITMQR                    RESTORE THE C(MQR),                4F10614     
       01766 -0 53400 1 01101        LXD CITXR1,1                  RESTORE THE C(XR1),                4F10615     
       01767 -0 53400 2 01102        LXD CITXR2,2                  RESTORE THE C(XR2), AND            4F10616     
       01770  0 02000 4 00001        TRA 1,4                     * EXIT TO MAIN ROUTINE (5TH WRD CS). 4F10617     
                                          END OF PROGRAM CIT00.                                       4F10618     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10619     
                                                                                                      4F10620     
                                         DIM.SR,4/ CALLS=DIAG. CALLERS=C1200,SS000,CMA.               4F10621     
                                         DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR,  4F10622     
                                         DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION.                4F10623     
                                         DIM1SR= ENTRY POINT FOR 1 DIMENSION TABLE.                   4F10624     
       01771 -0 63400 4 01774 DIM1SR SXD DMSR00,4                  SAVE THE C(XR4) FOR RETURN,        4F10625     
       01772 -0 53400 4 00452        LXD DIM1IX-3,4                SET XR4 = NUMBER OF ENTRIES IN DIM14F10626     
       01773  0 50000 0 00453        CLA ORGDM1                    AND PICK UP 1ST ADDRESS OF DIM1 TO 4F10627     
       01774  1 00000 0 02000 DMSR00 TXI DMSR01,0,**               GO SET DRUM ADDRESS.               4F10628     
                                         DIM2SR = ENTRY POINT FOR 2 DIMENSION TABLE.                  4F10629     
       01775 -0 63400 4 01774 DIM2SR SXD DMSR00,4                  SAVE THE C(XR) FRO RETURN.         4F10630     
       01776 -0 53400 4 00457        LXD DIM2IX-3,4                SET XR4 = NUMBER OF ENTRIES IN DIM24F10631     
       01777  0 50000 0 00460        CLA ORGDM2                    AND PICK UP 1ST ADDRESS OF DIM2 TO 4F10632     
       02000  0 62100 0 01104 DMSR01 STA DRMADR                    SET DRUM ADDRESS.                  4F10633     
       02001  0 50000 0 01760        CLA DMSR99                    SET LOOP ADDRESS TO                4F10634     
       02002  0 62100 0 02041        STA DMSR15                    DMSR05+1 FOR DIM1 AND DIM2.        4F10635     
       02003 -0 50000 0 02065        CAL DMCN12                    (STZ D3)                           4F10636     
       02004  1 00000 0 02014 DMSR11 TXI DMSR02,0,**               GO SET OP FRO DIM1 AND DIM2.       4F10637     
                                         DIM3SR= ENTRY POINT FOR 3 DIMENSION TABLE.                   4F10638     
       02005 -0 63400 4 01774 DIM3SR SXD DMSR00,4                  SAVE THE C(XR4) FRO RETURN,        4F10639     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 047/047 ------           
       02006 -0 53400 4 00464        LXD DIM3IX-3,4                SET XR4 = NUMBER OF ENTRIES IN DIM34F10640     
       02007  0 50000 0 00465        CLA ORGDM3                    AND PICK UP 1ST ADDRESS OF DIM3 TO 4F10641     
       02010  0 62100 0 01104        STA DRMADR                    SET DRUM ADDRESS.                  4F10642     
       02011  0 50000 0 01763        CLA DMSR98                    SET LOOP ADDRESS TO                4F10643     
       02012  0 62100 0 02041        STA DMSR15                    DMSR05 FOR DIM3.                   4F10644     
       02013 -0 50000 0 02066        CAL DMCN3                     (CPY D3)                           4F10645     
       02014  0 60200 0 02031 DMSR02 SLW DMSR05                    SET OP CODES ACCORDING             4F10646     
       02015  0 60200 0 02044        SLW DMSR07                    TO DIMENSION.                      4F10647     
       02016 -3 00000 4 02047        TXL DMSR08,4,0                IF TABLE IS EMPTY, GO OUT.         4F10648     
       02017 -0 63400 4 02004        SXD DMSR11,4                  SAVE ENTRY COUNT IN CASE OF ERROR. 4F10649     
       02020  0 53400 4 01413 DMSR14 LXA L(5),4                    SET ERROR COUNTER FOR 5 ATTEMPTS.  4F10650     
       02021 -0 63400 4 02035 DMSR13 SXD DMSR12,4                  SAVE ERROR COUNTER, AND            4F10651     
       02022 -0 53400 4 02004        LXD DMSR11,4                  RESET ENTRY COUNT.                 4F10652     
       02023  0 76200 0 00303        RDR 3                         SELECT DRUM.                       4F10653     
       02024  0 50000 0 01130        CLA E+2                       GET NAME OF VARIABLE.              4F10654     
       02025  0 46000 0 01104        LDA DRMADR                    LOAD CURRENT DRUM ADDRESS, AND     4F10655     
       02026  0 70000 0 01100 DMSR04 CPY DRSYM                     COPY DRUM SYMBOL.                  4F10656     
       02027  0 04000 0 02043        TLQ DMSR06                    COMPARE WITH NAME OF VARIABLE, AND 4F10657     
       02030  0 70000 0 01101        CPY D12                       IF NOT LESS, COPY N1 AND N2.       4F10658     
       02031  0 00000 0 01102 DMSR05 PZE D3                        (DIM1 AND DIM2 = STZ , DIM3 = CPY).4F10659     
       02032  0 70000 0 01103        CPY DRCKSM                    COPY CHECKSUM.                     4F10660     
       02033  0 34000 0 01100        CAS DRSYM                     COMPARE DRUM SYMBOL WITH ANEM OF V.4F10661     
       02034  0 07400 4 03400        TSX DIAG,4                  * GO TO DIGNOSTIC - MACHINE ERROR.   4F10662     
       02035  1 00000 0 02051 DMSR12 TXI DMSR09,0,**               IF NOT EQUAL, THEN                 4F10663     
       02036  0 70000 0 01100        CPY DRSYM                     CONTINUE                           4F10664     
       02037  0 04000 0 02043        TLQ DMSR06                    PROCESS                            4F10665     
       02040  0 70000 0 01101        CPY D12                       UNTIL                              4F10666     
       02041  2 00001 4 00000 DMSR15 TIX **,4,1                    TABLE                              4F10667     
 D     02042  1 00000 0 02047        TXI DMSR08,0                  IS EXHAUSTED.                      4F10668     
       02043  0 70000 0 01101 DMSR06 CPY D12                       PASS OVER ENTRY                    4F10669     
       02044  0 00000 0 01102 DMSR07 PZE D3                        (DIM1 AND DIM2 = STZ, DIM3 = CPY)  4F10670     
       02045  0 70000 0 01103        CPY DRCKSM                    AND CHECKSUM, AND                  4F10671     
       02046  2 00001 4 02026        TIX DMSR04,4,1                REPEAT LOOP.                       4F10672     
       02047 -0 53400 4 01774 DMSR08 LXD DMSR00,4                  RESTORE THE C(XR4), AND            4F10673     
       02050  0 02000 4 00001        TRA 1,4                     * TAKE NOT FOUND EXIT.               4F10674     
       02051 -0 50000 0 01100 DMSR09 CAL DRSYM                     COMPUTE A                          4F10675     
       02052  0 36100 0 01101        ACL D12                       NEW                                4F10676     
       02053  0 36100 0 01102        ACL D3                        LOGICAL CHECKSUM                   4F10677     
       02054  0 76000 0 00006        COM                           FOR ENTRY. AND                     4F10678     
       02055  0 36100 0 01103        ACL DRCKSM                    COMPARE WITH                       4F10679     
       02056  0 76000 0 00006        COM                           DRUM CHECKSUM.                     4F10680     
       02057  0 10000 0 02063        TZE DMSR10                    IF NOT EQUAL, THEN                 4F10681     
       02060 -0 53400 4 02035        LXD DMSR12,4                  REPEAT ATTEMPT,                    4F10682     
       02061  2 00001 4 02021        TIX DMSR13,4,1                UNLESS PROCESS                     4F10683     
       02062  0 07400 4 03400        TSX DIAG,4                  * FAILED 5 TIMES IN READING DRUM.    4F10684     
       02063 -0 53400 4 01774 DMSR10 LXD DMSR00,4                  RESTORE THE C(XR4), AND            4F10685     
       02064  0 02000 4 00002        TRA 2,4                     * TAKE FOUND EXIT TO MAIN ROTUINE.   4F10686     
                                                                                                      4F10687     
       02065  0 60000 0 01102 DMCN12 STZ D3                        CONSTANT USED BY DIM.SR.           4F10688     
       02066  0 70000 0 01102 DMCN3  CPY D3                        CONSTANT USED BY DIM.SR.           4F10689     
       02067  456351000000    ENT    BCD 1NTR000                   VARIABLE USED BY IO AND FL.        4F10690     
       02070  477125000000    NZE    BCD 1PZE000                   VARIABLE USED BY FL.               4F10691     
                                         END OF PROGRAM DIM.SR.                                       4F10692     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10693     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 048/048 ------           
                                                                                                      4F10694     
                                         DRTABS(,4)/ CALLS RDRX,DIAG. CALLERS=C1200,SS000,ROYCNV,CMA, 4F10695     
                                         VRA(VRD).                                                    4F10696     
                                         DRTABS IS CALLED BY TSX ....IX,4 -WHERE .... IS THE NAME OF  4F10697     
                                         THE DRUM TABLE REFERRED TO. DRTABS MAKES ENTRIES IN THE DRUM 4F10698     
                                         TABLES, AND ALSO SEARCHES THE DRUM TABLES FOR INFOMATION.    4F10699     
                                         DIMALT= ENTRY POINT FOR DIMENSION TABLES.                    4F10700     
       02071 -0 50000 0 00415 DIMALT CAL TXLOP                     PICK UP SWITCH CONTROL,            4F10701     
 D     02072  1 00000 0 02074        TXI DRTABS,0                  AND GO SET SWITCH FOR DIM TABLES.  4F10702     
                                         ALT= ENTRY POINT FOR ALL OTHER DRUM TABLES.                  4F10703     
       02073 -0 50000 0 00422 ALT    CAL TXHOP                     PICK UP SWITCH CONTROL,            4F10704     
       02074  0 63000 0 02135 DRTABS STP DIMSW                     SET SWITCH.                        4F10705     
       02075  0 50000 4 00000        CLA 0,4                       GET CALLER (TSX ....IX,4) IN AC.   4F10706     
       02076 -0 63400 1 02535        SXD XR1,1                     SAVE THE C(XR1),                   4F10707     
       02077 -0 63400 2 02173        SXD XR2,2                     SAVE THE C(XR2),                   4F10708     
       02100 -0 63400 4 02215        SXD XR4,4                     SAVE THE C(XR4), AND               4F10709     
       02101 -0 60000 0 02357        STQ MQ                        SAVE THE C(MQR).                   4F10710     
       02102  0 40000 0 01407        ADD L(1)                      PREPARE TO MOVE PARAMETERRS        4F10711     
       02103  0 62100 0 02107        STA MOVE                      INTO WORKING STORAGE.              4F10712     
       02104  0 40200 0 01412        SUB L(4)                      PREPARE TO UPDATE                  4F10713     
       02105  0 62100 0 02213        STA UPDATE                    PERMANENT PARAMETER.               4F10714     
       02106  0 53400 1 01413        LXA L(5),1                    MOVE 5 WORDS                       4F10715     
       02107 -0 50000 1 00000 MOVE   CAL **,1                      (....IX+1)                         4F10716     
       02110  0 60200 1 02365        SLW TEMP,1                    OF PARAMETERS                      4F10717     
       02111  2 00001 1 02107        TIX MOVE,1,1                  INTO WORKING STORAGE.              4F10718     
       02112  0 50200 0 02360        CLS NAR                       INITIALIZE                         4F10719     
       02113  0 62100 0 02221        STA TRY                       ALL                                4F10720     
       02114  0 40000 0 01407        ADD L(1)                      GENERAL                            4F10721     
       02115  0 62100 0 02200        STA ESUM1                     INSTRUCTIONS=                      4F10722     
       02116  0 62100 0 02202        STA ESUM2                     X                                  4F10723     
       02117  0 77100 0 00021        ARS 17                        X                                  4F10724     
       02120  0 40100 0 02526        ADM BIAS                      X                                  4F10725     
       02121  0 62100 0 02530        STA JUMP1                     X                                  4F10726     
       02122  0 62100 0 02555        STA JUMP2                     X                                  4F10727     
       02123 -0 50000 0 02362        CAL FDA                       X                                  4F10728     
       02124  0 62200 0 02235        STD COMPR                     X                                  4F10729     
       02125  0 63000 0 02530        STP JUMP1                     X                                  4F10730     
       02126  0 63000 0 02152        STP SW                        X                                  4F10731     
       02127  0 63000 0 02210        STP RX4                       X                                  4F10732     
       02130  0 50000 0 02533        CLA LBUF                      X                                  4F10733     
       02131  0 62100 0 02222        STA BUFL                      X                                  4F10734     
       02132  0 50000 0 02361        CLA TDA                       X                                  4F10735     
       02133 -0 53400 2 02361        LXD TDA,2                     X                                  4F10736     
       02134 -0 63400 2 02146        SXD BUFF+1,2                  X                                  4F10737     
 D     02135 -3 00000 0 02145 DIMSW  TXL BUFF,0                    IF DIM TABLE, SKIP SEARCH.         4F10738     
       02136 -3 00000 2 02150        TXL XERR01+1,2,0              SKIP IF TABLE IS EMPTY.            4F10739     
       02137 -0 53400 1 02360        LXD NAR,1                                                        4F10740     
       02140 -0 63400 2 02223        SXD NC,2                                                         4F10741     
       02141 -0 63400 2 02143        SXD ADD01,2                                                      4F10742     
       02142 -2 00001 1 02235 ADD02  TNX COMPR,1,1                 COMPUTES (N*L).                    4F10743     
       02143  1 00000 2 02142 ADD01  TXI ADD02,2,**                (N)                                4F10744     
       02144 -0 53400 2 02362 BUFFM1 LXD FDA,2                                                        4F10745     
       02145 -0 53400 1 02363 BUFF   LXD DBL,1                     L(J)                               4F10746     
       02146  2 00000 1 02150        TIX BUFF+3,1,**               (N) TEST FOR TABLE OVERFLOW.       4F10747     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 049/049 ------           
 D     02147  1 00000 0 02256 XERR01 TXI WHICH,0                   GO FIND OUT WHICH TABLE OVERFLOWED.4F10748     
       02150 -0 53400 1 02364        LXD DI,1                                                         4F10749     
       02151  0 76600 1 00305        WDR 5,1                                                          4F10750     
 D     02152 -3 00000 0 02174 SW     TXL EBLK,0                    ENTER SUM=TXL, BLOCK SUM=TXH.      4F10751     
       02153 -3 00000 2 02156        TXL ADD04,2,0                 SKIP IF TABLE IS EMPTY.            4F10752     
       02154  1 00001 2 02155        TXI ADD03,2,1                                                    4F10753     
       02155 -2 00062 2 02163 ADD03  TNX ADD05,2,50                SKIP IF BLOCK IS NOT YET FULL.     4F10754     
       02156  0 60000 0 02365 ADD04  STZ DUMP                      START NEW BLOCK CHECKSUM.          4F10755     
       02157  0 50000 0 02361        CLA TDA                       CHANGE CHECKSUM ADDRESS.           4F10756     
       02160  0 62100 0 02362        STA FDA                                                          4F10757     
       02161  0 40000 0 01407        ADD L(1)                      SET ENTRY ADDR = CHECKSUM ADD +1.  4F10758     
       02162  0 62100 0 02361        STA TDA                                                          4F10759     
       02163 -0 50000 0 02365 ADD05  CAL DUMP                                                         4F10760     
       02164  0 36100 0 01347        ACL G                         ADD NEW FLOCON TO                  4F10761     
       02165  0 60200 0 02365        SLW DUMP                      CHECKSUM FOR THIS BLOCK.           4F10762     
       02166  0 46000 0 02362        LDA FDA                                                          4F10763     
       02167  0 70000 0 02365        CPY DUMP                      WRITE BLOCK CHECKSUM ON DRUM.      4F10764     
       02170  0 76600 1 00305        WDR 5,1                                                          4F10765     
       02171  0 46000 0 02361        LDA TDA                                                          4F10766     
       02172  0 70000 0 01347        CPY G                         WRITE NEW FLOCON ON DRUM.          4F10767     
       02173  1 00000 0 02205 XR2    TXI NOWIN,0,**                GO UPDATE FLOCON PARAMETER.        4F10768     
       02174 -0 75400 0 00000 EBLK   PXD ,0                        FOR ALL TABLES EXCEPT FLOCON=      4F10769     
       02175 -0 53400 2 02360        LXD NAR,2                     (L)                                4F10770     
       02176  0 46000 0 02361        LDA TDA                       NEXT DRUM ENTRY ADDRESS.           4F10771     
       02177 -2 00001 2 02202        TNX ESUM2,2,1                 IF L = 1,                          4F10772     
       02200 -0 70000 2 00000 ESUM1  CAD **,2                      (ARG1+L-1) WRITE NEW               4F10773     
       02201  2 00001 2 02200        TIX ESUM1,2,1                 ENTRY ON DRUM.                     4F10774     
       02202 -0 70000 0 00000 ESUM2  CAD **                        (ARG1+L-1)                         4F10775     
       02203  0 60200 0 02365        SLW DUMP                      COMPUTE AND                        4F10776     
       02204  0 70000 0 02365        CPY DUMP                      WRITE CHECKSUM FOR NEW ENTRY.      4F10777     
       02205 -0 50000 0 02360 NOWIN  CAL NAR                       UPDATE PERMANENT                   4F10778     
       02206  0 77100 0 00022        ARS 18                        PARAMETERS FOR ENTRY               4F10779     
       02207  0 40000 0 01455        ADD DECR1                     JUST ADD TO TABLE.                 4F10780     
       02210 -3 00000 0 02212 RX4    TXL RX4+2,0,**                IF TABLE WAS FLOCON,               4F10781     
       02211  0 40200 0 01407        SUB L(1)                      READJUST.                          4F10782     
       02212  0 40100 0 02361        ADM TDA                       N=N+1,TDA=TDA+(L+1) OR (L).        4F10783     
       02213  0 60100 0 00000 UPDATE STO **                        (....IX-3)                         4F10784     
       02214 -0 53400 2 02361        LXD TDA,2                     L(N)                               4F10785     
       02215  1 00000 0 02247 XR4    TXI OUT,0,**                  GET TAG AND EXIT.                  4F10786     
       02216 -0 53400 4 02223 NXBLK  LXD NC,4                                                         4F10787     
       02217 -0 53400 2 02362        LXD FDA,2                     L(K*L),K=K.                        4F10788     
       02220 -0 53400 1 02360 NEW    LXD NAR,1                     L(L)                               4F10789     
       02221  0 50000 1 00000 TRY    CLA **,1                      (ARG1+L)                           4F10790     
       02222  0 34000 2 00000 BUFL   CAS **,2                      (BUFR OR CTABL)                    4F10791     
       02223  1 00000 0 02225 NC     TXI NC+2,0,**                 NOT FOUND.                         4F10792     
       02224  1 77777 2 02242        TXI YEA,2,-1                  K*L = K*L-1.                       4F10793     
       02225 -2 00001 4 02144        TNX BUFFM1,4,1                N = N-1 OR ITEM NOT IN TABLE.      4F10794     
       02226 -0 63400 1 02227        SXD NC+4,1                                                       4F10795     
       02227  2 00000 2 02220        TIX NEW,2,**                  K = K-1.                           4F10796     
       02230 -0 63400 4 02223        SXD NC,4                      SAVE CURRENT VALUE OF N,           4F10797     
       02231 -0 50000 0 02363        CAL DBL                       AND GET NEW BLOCK.                 4F10798     
       02232  0 40100 0 02362        ADM FDA                                                          4F10799     
       02233  0 62100 0 02362        STA FDA                                                          4F10800     
       02234 -0 53400 2 02241        LXD NTL,2                                                        4F10801     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 050/050 ------           
       02235  2 00000 2 02237 COMPR  TIX COMPR+2,2,**              (K*L)                              4F10802     
       02236 -0 63400 2 02362        SXD FDA,2                     K*L = (N*L)MOD K*L IF N*L IS       4F10803     
       02237 -0 63400 2 02241        SXD NTL,2                     LESS THAN K*L, OTHERWISE K*L = K*L,4F10804     
       02240  0 07400 4 02520        TSX RDRX,4                  * GO READ NEXT BLOCK INTO BUFFER.    4F10805     
       02241  1 00000 0 02216 NTL    TXI NXBLK,0,**                (N*L,N*L-K*L,N*L-2*K*L,...(N*L)MOD 4F10806     
       02242  2 00001 1 02221 YEA    TIX TRY,1,1                   K*L). TEST NEXT WORD OF ARG. L=L-1.4F10807     
       02243 -0 53400 2 02361        LXD TDA,2                     (N)                                4F10808     
       02244 -0 63400 4 02245        SXD YEA+3,4                                                      4F10809     
       02245  2 00000 2 02247        TIX OUT,2,**                  COMPUTE TAG.                       4F10810     
       02246  0 53400 2 01406        LXA L(0),2                                                       4F10811     
       02247 -0 75400 2 00000 OUT    PXD ,2                        EXIT WITH TAG IN THE AC.           4F10812     
       02250  0 77100 0 00022        ARS 18                        (TAG = NUMBER OF ENTRIES           4F10813     
       02251 -0 53400 2 02173        LXD XR2,2                     WHICH PRECEED THE ENTRY            4F10814     
       02252 -0 53400 4 02215        LXD XR4,4                     WHICH EQUALS THE ARGUMENT.         4F10815     
       02253 -0 53400 1 02535        LXD XR1,1                     RESTORE THE C(XR1,XR2,XR4),        4F10816     
       02254  0 56000 0 02357        LDQ MQ                        RESTORE THE C(MQR), AND            4F10817     
       02255  0 02000 4 00001        TRA 1,4                     * RETURN TO MAIN ROUTINE.            4F10818     
       02256 -0 53400 4 02215 WHICH  LXD XR4,4                     GET ALPHA BAR, AND                 4F10819     
       02257  0 50000 4 00000        CLA 0,4                       AND PICK UP ALPHA (TSX ...NIX,4).  4F10820     
       02260 -0 32000 0 01452        ANA MASK2                     BLANK ALL BUT ...NIX.              4F10821     
       02261  0 40200 0 02274        SUB CONX                      (...NIX) - (ADDR OF FIXCNIX-5).    4F10822     
       02262  0 53400 4 01417        LXA L(9),4                    SET XR4 FOR 9 TABLES.              4F10823     
       02263  0 40200 0 01413 COMPUT SUB L(5)                      COMPUTE WHICH                      4F10824     
       02264  0 10000 0 02267        TZE WHICHX                    TABLE OVERFLOWED.                  4F10825     
       02265  2 00001 4 02263        TIX COMPUT,4,1                IF TABLE IS NOT FOUND.             4F10826     
       02266  0 07400 4 03400        TSX DIAG,4                  * GOT TO DIAGNOSTIC.                 4F10827     
       02267 -0 75400 4 00000 WHICHX PXD ,4                        OTHERWISE,                         4F10828     
       02270  0 76000 0 00006        COM                           CONVERT 2S COMPLEMENT              4F10829     
       02271  0 40000 0 01454        ADD 2E18                      OF NUMBER,                         4F10830     
       02272 -0 73400 4 00000        PDX ,4                        PLACE IN XR4, AND                  4F10831     
 D     02273  1 00000 0 03400        TXI DIAG,0                  * GO TO DIAGNOSTIC.                  4F10832     
                                                                                                      4F10833     
       02274  0 00000 0 00412 CONX   PZE FXCNIX-5                  CONSTANT USED BY DRTABS.           4F10834     
                        02357 BUFR   BES 50                        DRUM TABLE BUFFER.                 4F10835     
                        02357 MQ     BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10836     
                        02360 NAR    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10837     
                        02361 TDA    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10838     
                        02362 FDA    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10839     
                        02363 DBL    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10840     
                        02364 DI     BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10841     
                        02365 TEMP   BSS 0                         INDEXING ADDRES FOR ABOVE -DRTABS. 4F10842     
                        02365 DUMP   BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10843     
                                         END OF PROGRAM DRTABS.                                       4F10844     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10845     
                                                                                                      4F10846     
                                         GETIFN,4/ CALLERS=C0100,C0200,C1000,C1100,C1600,C3200.       4F10847     
                                         GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C.   4F10848     
       02366 -0 53400 1 00030 GETIFN LXD EIFNO,1                   PLACE THE INTERNAL FORMULA         4F10849     
       02367 -0 75400 1 00000        PXD ,1                        NUMBER IN XR1, IN THE DECREMENT    4F10850     
       02370  0 60100 0 01105        STO 1C                        OF THE AC, AND IN 1C. THEN         4F10851     
       02371  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F10852     
                                          END OF PROGRAM GETIFN.                                      4F10853     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10854     
                                                                                                      4F10855     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 051/051 ------           
                                         JIF(GIF),4/ CALLERS=RDC,EFT,LPR,SPC,CMA,EMK,INPUT(OUTPUT),   4F10856     
                                         VRA(VRD),C3200.                                              4F10857     
                                         JIF = ENTRY POINT USED BY RDC,LPR,SPC,CMA,EMK,VRA(VRD),C3200.4F10858     
       02372 -0 50000 0 00030 JIF    CAL EIFNO                     INCREASE THE                       4F10859     
       02373  0 40000 0 01454        ADD D1                        INTERNAL FORMULA NUMBER            4F10860     
       02374  0 62200 0 00030        STD EIFNO                     BY 1.                              4F10861     
                                         GIF = ENTRY POINT USED BY EFT,INPUT(OUTPUT).                 4F10862     
       02375 -0 50000 0 00030 GIF    CAL EIFNO                     PICKUP IFN,                        4F10863     
       02376 -0 32000 0 01507        ANA 1BAR                      CLEAR SL, AND                      4F10864     
       02377  0 60200 0 01367 L(SL)  SLW SL                        PLACE IFN IN THE DECREMENTS        4F10865     
       02400  0 62200 0 01371 L(TL)  STD TL                        OF SL AND TL.                      4F10866     
       02401  0 02000 4 00001        TRA 1,4                     * EXIT TO CALLER.                    4F10867     
                                          END OF PROGRAM JIF(GIF).                                    4F10868     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10869     
                                                                                                      4F10870     
                                         MTR000/ MONITOR ROUTINE FOR CALLING STATES FROM DRUM.        4F10871     
                                         STATEA= ENTRY POINT FOR STATE A.                             4F10872     
       02402  0 53400 4 01412 STATEA LXA L(4),4                    SET C(XR4) = 4, THEN               4F10873     
 D     02403  1 00000 0 02411        TXI MTR1,0                    GO GET PARAMETERS.                 4F10874     
                                         STATEB= ENTRY POINT FOR STATE B.                             4F10875     
       02404  0 53400 4 01410 STATEB LXA L(2),4                    SET C(XR4) = 2, THEN               4F10876     
 D     02405  1 00000 0 02411        TXI MTR1,0                    GO GET PARAMETERS.                 4F10877     
                                         STATEC= ENTRY POINT FOR STATE C.                             4F10878     
       02406  0 53400 4 01407 STATEC LXA L(1),4                    SET C(XR4) = 1, THEN               4F10879     
       02407  1 00000 0 02411 MTRCSL TXI MTR1,0,**                 GO GET PARAMETERS.                 4F10880     
                                         STATED= ENTRY POINT FOR STATE D.                             4F10881     
       02410  0 53400 4 01411 STATED LXA L(3),4                    SET C(XR4) = 3, THEN               4F10882     
       02411  0 50000 4 02437 MTR1   CLA ZETA+4,4                  OBTAIN THE NUMBER OF WORDS IN THE  4F10883     
       02412  0 62200 0 02407        STD MTRCSL                    CURRENT STATE, AND SAVE.           4F10884     
       02413  0 77100 0 00022        ARS 18                        ADD THE NUMBER OF WORDS IN THE     4F10885     
       02414  0 40000 0 02430        ADD MTR3                      CURRENT STATE TO THE MEMORY ORIGIN 4F10886     
       02415  0 62100 0 02425        STA MTR2                      TO SET ADDRESS OF COPY LOOP.       4F10887     
       02416  0 53400 1 01413        LXA DRMERC,1                  SET FOR FIVE ATTEMPTS.             4F10888     
       02417  0 76200 4 00305 MTR15  RDR 5,4                       READ SELECT CURRENT LOGICAL DRUM.  4F10889     
       02420 -0 53400 2 02407        LXD MTRCSL,2                  LENGTH OF CURRENT STATE TO XR2.    4F10890     
       02421  0 46000 4 02437        LDA ZETA+4,4                  THEN COPY                          4F10891     
       02422 -0 75400 0 00000        PXD ,0                        CURRENT STATE                      4F10892     
       02423 -0 70000 0 01103        CAD DRCKSM                    FROM DRUM                          4F10893     
       02424  0 76000 0 00006        COM                           INTO MEMORY                        4F10894     
       02425 -0 70000 2 00000 MTR2   CAD **,2                      WHILE COMPUTING                    4F10895     
       02426  2 00001 2 02425        TIX MTR2,2,1                  LOGICAL CHECKSUM.                  4F10896     
       02427  0 76000 0 00006        COM                           IF THIS EQUALS DRUM CHECKSUM,      4F10897     
       02430  0 10000 0 03440 MTR3   TZE MEMORG                  * THEN ENTER CURRENT STATE.          4F10898     
       02431  2 00001 1 02417        TIX MTR15,1,1                 CHECKSUM FAILED, TRY UP TO 5 TIMES.4F10899     
       02432  1 75346 4 03400 MTRERR TXI DIAG,4,-MTRERR          * GO TO DIAGNOSTIC AFTER 5 FAILURES. 4F10900     
                                                                                                      4F10901     
       02433  0 02663 0 00000 ZETA   PZE DEL(A),,ENDADR-ORGA                                          4F10902     
       02434  0 02663 0 01322        PZE DEL(D),,ENDADR-ORGD                                          4F10903     
       02435  0 02663 0 02210        PZE DEL(B),,ENDADR-ORGB                                          4F10904     
       02436  0 02663 0 02373        PZE DEL(C),,ENDADR-ORGC                                          4F10905     
                                          END OF PROGRAM MTR000.                                      4F10906     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10907     
                                                                                                      4F10908     
                                         RA000,4/ CALLERS=LPR,ARITH.                                  4F10909     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 052/052 ------           
                                         RA000 COMPUTES RELATIVE ADDRESS.                             4F10910     
       02437 -0 63400 4 01100 RA000  SXD RAXR4,4                   SAVE THE C(XR4) FOR RETURN.        4F10911     
       02440  0 60000 0 01147        STZ EPS                       CLEAR EPSILON (WORKING STORAGE).   4F10912     
       02441  0 50000 0 01125        CLA DIMSAV                    EXAMINE THE                        4F10913     
       02442  0 73400 4 01132  ED2   PAX E+4,4                     DIMENSION COUNT, AND               4F10914     
       02443 -3 00002 4 02445        TXL ED1,4,2                   IF 3 DIMENSION,                    4F10915     
       02444  0 40000 0 01407        ADD L(1)                      INCREASE IT 1.                     4F10916     
       02445  0 40100 0 02442 ED1    ADM ED2                       THEN SET                           4F10917     
       02446  0 62100 0 02447        STA ED3                       ED3 ADDRESS TO                     4F10918     
       02447  0 50000 4 00000  ED3   CLA **,4                      EXAMINE SUCCESSIVE                 4F10919     
       02450  0 56000 0 01454        LDQ D1                        SUBSCRIPT                          4F10920     
       02451  0 10000 0 02454        TZE ED4                       VARIABLES, AND                     4F10921     
       02452 -0 60000 0 01147        STQ EPS                       ACCORDINGLY SET                    4F10922     
       02453  0 56000 0 01406        LDQ L(0)                      EPSILON AND                        4F10923     
       02454 -0 60000 4 01147  ED4   STQ EPS,4                     EPSILON SUB I                      4F10924     
       02455  2 00001 4 02447        TIX ED3,4,1                   TO 1 OR TO 0. WHEN DONE,           4F10925     
       02456  0 50000 0 01454        CLA D1                        IF 1 DIMENSION, PICKUP DECREMENT1, 4F10926     
       02457  0 53400 4 01125        LXA DIMSAV,4                  AND GO SUBTRACT ADDEND 1.          4F10927     
       02460 -3 00001 4 02511        TXL 1D1,4,1                   IF 2 OR 3 DIMENSION, THEN          4F10928     
       02461  0 56000 0 01141        LDQ E+11                      PICKUP ADDENDS 1 AND 2,            4F10929     
       02462  0 60000 0 01141        STZ E+11                      CLEAR E+11, AND                    4F10930     
       02463 -0 62000 0 01141        SLQ E+11                      RESTORE ADDEND 1 TO E+11.          4F10931     
       02464 -0 76300 0 00022        LGL 18                        ADJUST AND PLACE                   4F10932     
       02465 -0 60000 0 01361        STQ N2                        ADDEND 2 IN N2.                    4F10933     
       02466  0 56000 0 01134        LDQ E+6                       AND, IF 2 DIMENSION                4F10934     
       02467  0 50000 0 01146        CLA EPS-1                     PICKUP EPSILON SUB 1,              4F10935     
       02470 -3 00002 4 02503        TXL 2D1,4,2                   AND GO SUBTRACT ADDEND 2.          4F10936     
       02471  0 40200 0 01142        SUB E+12                      IF 3 DIMENSION, SET GTAG           4F10937     
       02472  0 60100 0 01351        STO GTAG                      TO EPSILON SUB 1 - ADDEND 3.       4F10938     
       02473  0 56000 0 01136        LDQ E+8                       PICKUP DIMESNIONS 1 AND 2.         4F10939     
       02474  0 60000 0 01136        STZ E+8                       CLEAR E+8, AND                     4F10940     
       02475 -0 62000 0 01136        SLQ E+8                       RESTORE DIMENSION 1 TO E+8.        4F10941     
       02476 -0 76300 0 00022        LGL 18                        ADJUST, AND MULTIPLY               4F10942     
       02477  0 20000 0 01351        MPY GTAG                      DIMENSION 2 TIMES GTAG.            4F10943     
       02500  0 76700 0 00021        ALS 17                        THEN ADD                           4F10944     
       02501  0 40000 0 01145        ADD EPS-2                     EPSILON SUB 2                      4F10945     
       02502  0 56000 0 01136        LDQ E+8                       TO THE PRODUCT, AND                4F10946     
       02503  0 40200 0 01361 2D1    SUB N2                        SUBTRACT ADDEND 2.                 4F10947     
       02504  0 60100 0 01351        STO GTAG                      MULTIPLY                           4F10948     
       02505  0 20000 0 01351        MPY GTAG                      THE RESULT                         4F10949     
       02506  0 76700 0 00021        ALS 17                        TIMES                              4F10950     
       02507  0 40000 4 01147        ADD EPS,4                     DIMENSION 1, AND ADD IN EPSILON    4F10951     
       02510  0 40000 0 01147        ADD EPS                       SUB I AND EPSILON.                 4F10952     
       02511  0 40200 0 01141  1D1   SUB E+11                      SUBTRACT ADDEND 1,                 4F10953     
       02512  0 60100 0 01351        STO GTAG                      AND PLACE THE RESULT               4F10954     
       02513 -0 50000 0 01126        CAL E                         IN THE DECREMENT OF GTAG,          4F10955     
       02514  0 77100 0 00030        ARS 24                        WITH 1-TAUTAG                      4F10956     
       02515  0 62100 0 01351        STA GTAG                      IN THE ADDRESS.                    4F10957     
       02516 -0 53400 4 01100        LXD RAXR4,4                   RESTORE THE C(XR4), AND            4F10958     
       02517  0 02000 4 00001        TRA 1,4                     * EXIT TO CALLER.                    4F10959     
                                          END OF PROGRAM RAD00.                                       4F10960     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10961     
                                                                                                      4F10962     
                                         RDRX,4 CALLS=DIAG. CALLER=DRTABS.                            4F10963     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 053/053 ------           
                                         RDRX READS A BLOCK FO DRUM ENTRIES INTO 50 WORD BUFR.        4F10964     
       02520  0 53400 1 01413 RDRX   LXA DRMERC,1                  SET FOR 5 ATTEMPTS TO READ DRUM.   4F10965     
       02521 -0 53400 2 02364 REP    LXD DI,2                      SET XR2 * (5-DRUM NUMBER).         4F10966     
       02522  3 00000 2 02524        TXH BIAS-2,2,0                IF NOT GREATER THEN ZERO.          4F10967     
       02523  0 07400 4 03400        TSX DIAG,4                  * GO TO DIAGNOSTIC.                  4F10968     
       02524  0 76200 2 00305        RDR 5,2                       SELECT CURRENT DRUM.               4F10969     
       02525 -0 53400 2 02362        LXD FDA,2                     SET XR2 = NO. OF WORDS TO COPY.    4F10970     
       02526 -0 75400 0 02554 BIAS   PXD ETSUM,0                   CLEAR THE AC.                      4F10971     
       02527  0 46000 0 02362        LDA FDA                       DRUM ORIGIN OF CURRENT BLOCK.      4F10972     
 TD    02530 -3 00000 0 00000 JUMP1  TXL **                        (ETSUM-2*L) TXL=ENTRY,TXH=BLOCK.   4F10973     
       02531 -0 70000 0 02365        CAD DUMP                      READ                               4F10974     
       02532  0 76000 0 00006        COM                           FLOCON BLOCK                       4F10975     
       02533 -0 70000 2 02357 LBUF   CAD BUFR,2                    AND COMPUTE                        4F10976     
       02534  2 00001 2 02533        TIX LBUF,2,1                  LOGICAL CHECKSUM.                  4F10977     
       02535  1 00000 0 02562 XR1    TXI PROVE,0,**                GO TEST CHECKSUM.                  4F10978     
       02536  0 70000 2 02357        CPY BUFR,2                    COPY LOOP                          4F10979     
       02537 -2 00001 2 02564        TNX ERR,2,1                   FOR ALL                            4F10980     
       02540  0 70000 2 02357        CPY BUFR,2                    COPY LOOP                          4F10981     
       02541 -2 00001 2 02564        TNX ERR,2,1                   TABLES                             4F10982     
       02542  0 70000 2 02357        CPY BUFR,2                    EXCEPT                             4F10983     
       02543 -2 00001 2 02564        TNX ERR,2,1                   FLOCON*                            4F10984     
       02544  0 70000 2 02357        CPY BUFR,2                    X                                  4F10985     
       02545 -2 00001 2 02564        TNX ERR,2,1                   X                                  4F10986     
       02546  0 70000 2 02357        CPY BUFR,2                    X                                  4F10987     
       02547 -2 00001 2 02564        TNX ERR,2,1                   X                                  4F10988     
       02550  0 70000 2 02357        CPY BUFR,2                    X                                  4F10989     
       02551 -2 00001 2 02564        TNX ERR,2,1                   X                                  4F10990     
       02552  0 70000 2 02357        CPY BUFR,2                    X                                  4F10991     
       02553  0 76100 0 00000        NOP                           X                                  4F10992     
       02554 -0 70000 0 02365 ETSUM  CAD DUMP                      SUM CHECKSUMS.                     4F10993     
       02555  2 00001 2 00000 JUMP2  TIX **,2,1                    (ETSUM-2*L) TEST END OF BLOCK.     4F10994     
       02556 -0 53400 2 02362 RDRXCR LXD FDA,2                     COMPUTE                            4F10995     
       02557  0 76000 0 00006        COM                           NEW                                4F10996     
       02560  0 36100 2 02357        ACL BUFR,2                    LOGICAL                            4F10997     
       02561  2 00001 2 02560        TIX RDRXCR+2,2,1              CHECKSUM, AND                      4F10998     
       02562  0 76000 0 00006 PROVE  COM                           IF CHECKSUMS COMPARE               4F10999     
       02563  0 10000 4 00001        TZE 1,4                     * RETURN TO MAIN ROUTINE.            4F11000     
       02564  2 00001 1 02521 ERR    TIX REP,1,1                   OTHERWISE, REPEAT UP TO 5 TIMES.   4F11001     
       02565  0 07400 4 03400        TSX DIAG,4                  * FAILED 5 TIMES IN READING DRUM.    4F11002     
                                          END OF PROGRAM RDRX.                                        4F11003     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11004     
                                                                                                      4F11005     
                                         SR6DC1,1/ CALLS=DIAG. CALLERS=CA000,SS000.                   4F11006     
                                         SR6DC1 CONVERTS UP TO 6 BCD DIGITS TO THEIR BINARY EQUIV.    4F11007     
       02566 -0 63400 2 02574 SR6DC1 SXD SR6XR2,2                  SAVE THE C(XR2), AND               4F11008     
       02567  0 53400 2 01414        LXA L(6),2                    SET TO COUNT 6 CHARACTERS.         4F11009     
       02570  0 60000 0 01101        STZ SR6WRK                    INITIALIZE OUTPUT CELL TO 0.       4F11010     
       02571 -0 75400 0 00000 SR6DC2 PXD ,0                        OBTAIN NEXT CHARACTER              4F11011     
       02572 -0 76300 0 00006        LGL 6                         IN AC AND                          4F11012     
       02573  0 34000 0 01430        CAS ABLANK                    TEST FOR BLANK.                    4F11013     
       02574  1 00000 0 02576 SR6XR2 TXI SR6DC3,0,**               IF NOT BLANK,                      4F11014     
       02575  2 77777 0 02610 ENDWRD TIX SR6DC4,0,-1               (DECR= END OF PROBLEM INDICATOR)   4F11015     
       02576  0 34000 0 01417 SR6DC3 CAS L(9)                      TEST FOR NUMERIC.                  4F11016     
       02577  0 07400 4 03400        TSX DIAG,4                  * IF NON-NUMERIC - GO TO DIAGNOSTIC. 4F11017     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 054/054 ------           
       02600  0 76100 0 00000 NOP    NOP                           IF NUMERIC,                        4F11018     
       02601  0 60100 0 01102        STO SR6WRK+1                  SAVE DIGIT, AND                    4F11019     
       02602  0 50000 0 01101        CLA SR6WRK                    MULTIPLY PREVIOUS PARTIAL          4F11020     
       02603  0 76700 0 00002        ALS 2                         RESULT BY 10,                      4F11021     
       02604  0 40000 0 01101        ADD SR6WRK                    AND ADD IN                         4F11022     
       02605  0 76700 0 00001        ALS 1                         CURRENT DIGIT, SAVING              4F11023     
       02606  0 40000 0 01102        ADD SR6WRK+1                  NEW PARTIAL RESULT.                4F11024     
       02607  0 60100 0 01101        STO SR6WRK                    THEN ADJUST COUNT, AND             4F11025     
       02610  2 00001 2 02571 SR6DC4 TIX SR6DC2,2,1                WHEN 6 CHARS HAVE BEEN TREATED,    4F11026     
       02611  0 50000 0 01101        CLA SR6WRK                    LEAVE OUTPUT IN AC,                4F11027     
       02612 -0 53400 2 02574        LXD SR6XR2,2                  RESTORE THE C(XR2), AND            4F11028     
       02613  0 02000 1 00001 TRA    TRA 1,1                     * EXIT TO MAIN ROUTINE.              4F11029     
                                          END OF PROGRAM SR6DC1.                                      4F11030     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11031     
                                                                                                      4F11032     
                                         SS000,4/ CALLS=C0190,DIAG,SR6DC1,DIM,SR,DRTABS,TET00,TESTFX. 4F11033     
                                         CALLERS=ARITH,LPR,C0200.                                     4F11034     
                                         SS000 SCANS SUBSCRIPT COMBINATIONS AND MAKES TABLE ENTRIES.  4F11035     
       02614 -0 63400 2 02731 SS000  SXD SXR2,2                    SAVE C(XR2),                       4F11036     
       02615 -0 63400 1 02730        SXD SXR1,1                    SAVE C(XR1),                       4F11037     
       02616 -0 63400 4 02732        SXD SXR4,4                    SAVE C(XR4), AND                   4F11038     
       02617  0 60000 0 01100        STZ DIMCTR                    SET DIMCTR = 0.                    4F11039     
       02620  0 53400 4 01414        LXA L(6),4                    INITIALIZE                         4F11040     
       02621 -0 63400 4 02726        SXD SBS2,4                    FOR EACH SUBSCRIPT MEMBER.         4F11041     
       02622 -0 50000 0 00422        CAL TXHOP                     PICK UP TXH OP, AND                4F11042     
       02623  0 63000 0 02776        STP SBC6                      SET OP                             4F11043     
       02624  0 63000 0 02777        STP SBC8                      SWITCHES.                          4F11044     
       02625 -0 50000 0 00415        CAL TXLOP                     PICK UP TXL OP, AND                4F11045     
       02626  0 63000 0 03014        STP SBC4                      SET OP SWITCH.                     4F11046     
       02627  0 53400 3 01413 SS001  LXA L(5),3                    SET FOR 6 CHARACTERS OF MULTIPLIER.4F11047     
       02630  0 60000 0 01370        STZ SYMBOL                    CLEAR WORKING STORAGE.             4F11048     
       02631  0 07400 4 01707        TSX C0190,4                 * GET FIRST NON BLANK CHAR IN THE AC.4F11049     
       02632  0 34000 0 01417        CAS L(9)                      COMPARE IT WITH 9.                 4F11050     
 D     02633  1 00000 0 02704        TXI SS0045,0                  RETURN TO EXPLICIT CODING.         4F11051     
       02634  0 76100 0 00000        NOP                           IF NUMERIC,                        4F11052     
       02635  0 60100 0 01331        STO FIRSTC                    SAVE RIGHT-ADJUSTED DIGIT, AND     4F11053     
       02636  0 76700 2 00044 SS0012 ALS 36,2                      LEFT-ADJUST DIGIT TO               4F11054     
       02637 -0 60200 0 01370        ORS SYMBOL                    BUILD SYMBOL.                      4F11055     
       02640  1 00006 2 02641        TXI SS0013,2,6                UPDATE SHIFT DECREMENT, AND        4F11056     
       02641  1 77777 1 02642 SS0013 TXI SS0014,1,-1               UPDATE COUNT OF CHARS COLLECTED.   4F11057     
       02642  0 07400 4 01707 SS0014 TSX C0190,4                 * GET NEXT NB CHARACTER IN THE AC.   4F11058     
       02643  0 53400 4 02652        LXA CTESTX,4                  SET XR4 = NO. OF PUNCTUATION MARKS.4F11059     
       02644  0 34000 4 01406 SS0015 CAS CTEST,4                   TEST THIS CHARACTER AGAINTT        4F11060     
 D     02645  1 00000 0 02647        TXI SS0016,0                  ALL PUNCTUATION.                   4F11061     
       02646  0 02000 4 02733        TRA SUBTR,4                   IF EQUALITY IS FOUND, TRANSFER.    4F11062     
       02647  2 00001 6 02644 SS0016 TIX SS0015,6,1                IF NOT FOUND TO BE PUNCTUATION,    4F11063     
       02650  0 34000 0 01417        CAS L(9)                      TEST FOR NUMERIC                   4F11064     
 D     02651  1 00000 0 02655        TXI SS0017,0                  AND IF                             4F11065     
       02652  0 76100 0 00012 CTESTX NOP CTEST-ENDMK               FOUND TO BE NUMERIC                4F11066     
       02653  3 00000 1 02636        TXH SS0012,1,0                CONTINUE BUILDING SYMBOL. BUT IF   4F11067     
 D     02654  1 00000 0 02720        TXI STOP49,0                  SEVENTH CHAR, GO TO DIAGNOSTIC.    4F11068     
       02655  0 07400 1 03242 SS0017 TSX TESTFX+1,1              * GO TEST FOR FIXED POINT VARIABLE.  4F11069     
       02656  0 07400 4 03400        TSX DIAG,4                  * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11070     
       02657 -0 76300 0 00036        LGL 30                        RESTORE FIXED POINT VARIABLE       4F11071     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 055/055 ------           
       02660  0 60200 0 01365        SLW RESIDU                    TO RESUDU, AND                     4F11072     
       02661 -0 53400 4 01724        LXD CHCTR,4                   RESET CHARACTER COUNTER            4F11073     
       02662  1 00001 4 02663        TXI SS0018,4,1                TO BEGIN PROCESSING                4F11074     
       02663 -0 63400 4 01724 SS0018 SXD CHCTR,4                   SUBSCRIPT MULTIPLIER.              4F11075     
       02664  0 50200 0 02776  SBX   CLS SBC6                      TEST FOR                           4F11076     
       02665 -0 12000 0 02667        TMI SBX1                      PREVIOUS MULTIPLIER.               4F11077     
       02666  0 07400 4 03400        TSX DIAG,4                  * DOUBLE MULTIPLIER FOR SUBSCRIPT.   4F11078     
       02667  0 60100 0 02776  SBX1  STO SBC6                      RESET MULTIPLIER SWITCH.           4F11079     
       02670  0 50000 0 01331        CLA FIRSTC                    TEST                               4F11080     
       02671  0 40200 0 01373        SUB L(10)                     MULTIPLIER                         4F11081     
       02672 -0 12000 0 02674        TMI SBX2                      FOR CONSTANT.                      4F11082     
       02673  0 07400 4 03400        TSX DIAG,4                  * SUBS-MULTIPLER NOT A CONSTANT.     4F11083     
       02674  0 50000 0 01370  SBX2  CLA SYMBOL                    ADJUST MULTIPLIER                  4F11084     
       02675  0 77100 2 00052        ARS 42,2                      TO LOW ORDER POSITION.             4F11085     
       02676 -0 53400 4 02726        LXD SBS2,4                    GET STORING TAG,                   4F11086     
       02677  0 60200 4 01137        SLW E+9,4                     AND STORE MULTIPLIER.              4F11087     
       02700  0 60000 4 01145        STZ E+15,4                    SET ADDEND = 0.                    4F11088     
       02701  0 53400 3 01414 SS003  LXA L(6),3                    SET FOR 6 CHARS OF VARIABLE/ADDEND.4F11089     
       02702  0 60000 0 01370        STZ SYMBOL                    CLEAR WORKING STORAGE.             4F11090     
       02703  0 07400 4 01707 SS004  TSX C0190,4                 * GO GET NEXT NB CHARACTER IN THE AC.4F11091     
       02704  0 53400 4 02652 SS0045 LXA CTESTX,4                  COMPARE CHARACTER                  4F11092     
       02705  0 34000 4 01406 SS005  CAS CTEST,4                   TO ALL                             4F11093     
 D     02706  1 00000 0 02710        TXI SS006,0                   PUNCTUATION.                       4F11094     
       02707  0 02000 4 02733        TRA SUBTR,4                   IF EQUALITY IS FOUND, TRANSFER.    4F11095     
       02710  2 00001 4 02705 SS006  TIX SS005,4,1                 IF NOT FOUND TO BE PUNCTUATION,    4F11096     
       02711 -3 00005 1 02713        TXL SS008,1,5                 IF 1ST CHARACTER OF VARIABLE OR    4F11097     
       02712  0 60100 0 01331        STO FIRSTC                    ADDEND, SAVE FOR LATER TEST.       4F11098     
       02713  0 76700 2 00044 SS008  ALS 36,2                      POSITION EACH CHARACTER. BUT       4F11099     
       02714 -3 00000 1 02720 SS009  TXL STOP49,1,0              * ON 7TH CHARACTER, GO TO STOP.      4F11100     
       02715 -0 60200 0 01370        ORS SYMBOL                    BUILD SYMBOL.                      4F11101     
       02716  1 00006 2 02717        TXI SS007,2,6                 UPDATE EFFECTIVE ADDRESS OF SHIFT. 4F11102     
       02717  1 77777 1 02703 SS007  TXI SS004,1,-1                UPDAT FOR ANOTHER CHAR COLLECTED.  4F11103     
       02720  0 07400 4 03400 STOP49 TSX DIAG,4                  * GO TO DIAGNOSTIC ON 7TH CHARACTER. 4F11104     
                                         SUBSTR/ CONTROL TRANSFERS FOR SUBSCRIPT SCAN=                4F11105     
 D     02721  1 00000 0 02722        TXI ISC,0                     ENK (ILLEGAL IN LIST SUBSCRIPT).   4F11106     
       02722  0 07400 4 03400  ISC   TSX DIAG,4                  * (   (ILLEGAL IN LIST SUBSCRIPT).   4F11107     
 D     02723  1 00000 0 02772        TXI SBC,0                     ,                                  4F11108     
 D     02724  1 00000 0 02770        TXI SBR,0                     )                                  4F11109     
 D     02725  1 00000 0 02722        TXI ISC,0                     =   (ILLEGAL IN LIST SUBSCRIPT).   4F11110     
       02726  1 00000 0 02733 SBS2   TXI SBM,0,**                  - ,,SUBSCRIPT ELEMENT COUNTER,     4F11111     
 D     02727  1 00000 0 02722        TXI ISC,0                     /   (ILLEGAL IN LIST SUBSCRIPT).   4F11112     
       02730  1 00000 0 02722 SXR1   TXI ISC,0,**                  .   (ILLEGAL IN LIST SUBSCRIPT).   4F11113     
       02731  1 00000 0 02734 SXR2   TXI SBP,0,**                  +                                  4F11114     
       02732  1 00000 0 02664 SXR4   TXI SBX,0,**                  *                                  4F11115     
                        02733 SUBTR  BSS 0                         INDEXING ADDRESS FOR ABOVE LIST.   4F11116     
       02733 -0 76000 0 00003  SBM   SSM                           MINUS ADDEND.                      4F11117     
       02734  0 76000 0 00000  SBP   CLM                           PLUS ADDEND.                       4F11118     
       02735 -0 53400 4 02726        LXD SBS2,4                    GET STORING TAG, AND               4F11119     
       02736  0 60100 4 01145        STO E+15,4                    STORE SIGN OF ADDEND.              4F11120     
       02737  0 50200 0 02777        CLS SBC8                      TEST SWITCH                        4F11121     
       02740 -0 12000 0 02742        TMI SBP1                      FOR PREVIOUS ADDEND.               4F11122     
       02741  0 07400 4 03400        TSX DIAG,4                  * DOUBLE ADDEND FOR SUBSCRIPT,       4F11123     
       02742  0 60100 0 02777  SBP1  STO SBC8                      RESET ADDEND SWITCH.               4F11124     
       02743  0 07400 1 03241        TSX TESTFX,1                * GO TO TEST FOR FIXED POINT.        4F11125     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 056/056 ------           
       02744  0 07400 4 03400        TSX DIAG,4                  * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11126     
       02745 -0 53400 4 02726        LXD SBS2,4                    GET STORING TAG, AND               4F11127     
       02746  0 50200 0 02776        CLS SBC6                      TEST SWITCH                        4F11128     
       02747  0 12000 0 02754        TPL SBP2                      FOR PREVIOUS MULTIPLIER.           4F11129     
       02750  0 50000 0 01407        CLA L(1)                      IF NONE,                           4F11130     
       02751  0 60100 4 01137        STO E+9,4                     SET MULTIPLIER                     4F11131     
 D     02752  1 00000 0 02755        TXI SBP4,0                    TO 1, AND CONTINUE.                4F11132     
       02753  0 50200 0 02776  SBC1  CLS SBC6                      RESET MULTIPLIER                   4F11133     
       02754  0 60100 0 02776 SBP2   STO SBC6                      OP SWITCH.                         4F11134     
       02755 -0 50000 0 01370 SBP4   CAL SYMBOL                    IF VARIABLE SUBSCRIPT.             4F11135     
       02756  3 00044 2 02762        TXH SBP41,2,36                ADD A BLANK                        4F11136     
       02757 -0 50000 0 01430        CAL BLANK                     IF LESS                            4F11137     
       02760  0 76700 2 00044        ALS 36,2                      THAN 6                             4F11138     
       02761 -0 50100 0 01370        ORA SYMBOL                    CHARACTERS, AND                    4F11139     
       02762  0 60200 4 01140  SBP41 SLW E+10,4                    PLACE IN E-REGION.                 4F11140     
       02763  0 07400 1 03241        TSX TESTFX,1                * GO TO TEST FOR FIXED POINT.        4F11141     
       02764  0 07400 4 03400        TSX DIAG,4                  * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11142     
       02765  0 50000 0 02777        CLA SBC8                      IF THERE IS AN ADDEND,             4F11143     
       02766 -0 12000 0 02701        TMI SS003                     GO COLLECT, OTHERWISE              4F11144     
 D     02767  1 00000 0 03012        TXI SBC7,0                    GO UPDATE STORING TAG.             4F11145     
       02770  0 50200 0 03014 SBR    CLS SBC4                      SET SWITCH                         4F11146     
       02771  0 60100 0 03014        STO SBC4                      FOR CLOSING PARENTHESIS.           4F11147     
       02772 -0 50000 0 01100 SBC    CAL DIMCTR                    UPDATE                             4F11148     
       02773  0 40000 0 01407        ADD L(1)                      DIMENSION COUNTER                  4F11149     
       02774  0 62100 0 01100        STA DIMCTR                    BY 1.                              4F11150     
       02775 -0 53400 4 02726        LXD SBS2,4                    GET STORING TAG.                   4F11151     
 D     02776  3 00000 0 02753 SBC6   TXH SBC1,0                    SWITCH-IF NO MULTIPLIER, AND       4F11152     
 D     02777  3 00000 0 03016 SBC8   TXH SBC2,0                    SWITCH-IF NO ADDEND, THEN          4F11153     
       03000  0 50000 0 01407        CLA L(1)                      SET                                4F11154     
       03001  0 60100 4 01137        STO E+9,4                     MULTIPLIER = 1.                    4F11155     
       03002  0 60000 4 01145        STZ E+15,4                    SET ADDEND = 0.                    4F11156     
       03003  0 50000 0 01331        CLA FIRSTC                    TEST FOR                           4F11157     
       03004  0 40200 0 01373        SUB L(10)                     CONSTANT OR VARIABLE.              4F11158     
       03005  0 12000 0 02755        TPL SBP4                      IF CONSTANT, THEN                  4F11159     
       03006  0 60000 4 01140        STZ E+10,4                    SET VARIABLE = 0.                  4F11160     
       03007 -0 50000 0 01370 SBC9   CAL SYMBOL                    ADJUST                             4F11161     
       03010  0 77100 2 00052        ARS 42,2                      CONSTANT                           4F11162     
       03011 -0 60200 4 01145        ORS E+15,4                    TO LOW ORDER POSITION.             4F11163     
       03012 -2 00002 4 03024 SBC7   TNX SBC3,4,2                  UPDATE STORING TAG                 4F11164     
       03013 -0 63400 4 02726        SXD SBS2,4                    BY -2, AND SAVE.                   4F11165     
 D     03014 -3 00000 0 02627 SBC4   TXL SS001,0                   SWITCH-REPEAT FOR NEXT SUB-COMB.   4F11166     
 D     03015  1 00000 0 03030        TXI SA000,0                   GO MAKE TABLE ENTRIES AND GET TAG. 4F11167     
       03016  0 50200 0 02777  SBC2  CLS SBC8                      RESET ADDEND                       4F11168     
       03017  0 60100 0 02777        STO SBC8                      OP SWITCH.                         4F11169     
       03020  0 50200 0 01373        CLS L(10)                     TEST                               4F11170     
       03021  0 40000 0 01331        ADD FIRSTC                    ADDEND                             4F11171     
       03022 -0 12000 0 03007        TMI SBC9                      FOR CONSTANT.                      4F11172     
       03023  0 07400 4 03400        TSX DIAG,4                  * SUBSCRIPT ADDEND NOT A CONSTANT.   4F11173     
       03024  0 50200 0 03014 SBC3   CLS SBC4                      AFTER SCANNING 3 SUBSCRIPTS.       4F11174     
       03025 -0 12000 0 03030        TMI SA000                     GO MAKE TABLE ENTRIES AND GET TAG. 4F11175     
       03026  0 07400 4 03400        TSX DIAG,4                  * GO TO DIAG - NO ) AFTER 3RD SUBS.  4F11176     
                                         CSA000= ENTRY POINT USED BY C0200 (GO TO ROUTINE).           4F11177     
       03027 -0 63400 4 02732 CSA000 SXD SXR4,4                    SAVE C(XR4) FOR RETURN TO C0200.   4F11178     
       03030  0 50000 0 01100 SA000  CLA DIMCTR                    SAVE                               4F11179     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 057/057 ------           
       03031  0 60100 0 01125        STO DIMSAV                    THE CONTENTS OF DIMCTR             4F11180     
       03032  0 76700 0 00041        ALS 33                        POSITION AND                       4F11181     
       03033  0 60100 0 01126        STO E                         STORE I TAG.                       4F11182     
       03034  0 50000 0 01141        CLA E+11                      MOVE SUBSCRIPT ADDENDS             4F11183     
       03035  0 60100 0 01142        STO E+12                      INTO POSITION                      4F11184     
       03036  0 50000 0 01137        CLA E+9                       FOR FOLLOWING                      4F11185     
       03037  0 60100 0 01141        STO E+11                      PROGRAM.                           4F11186     
       03040  0 50000 0 01410        CLA L(2)                      EXAMINE DIMCTR                     4F11187     
       03041  0 34000 0 01100        CAS DIMCTR                    TO DETERMINE                       4F11188     
 D     03042  1 00000 0 03174        TXI 1D0000,0                  WHETHER DIMESNION OF               4F11189     
 D     03043  1 00000 0 03131        TXI 2D0000,0                  VARIABLE IS 1, 2, OR 3.            4F11190     
       03044  0 53400 4 01414 3D0000 LXA L(6),4                    PREPARE TO PICK UP 3 COEFFICIENTS. 4F11191     
       03045  0 56000 4 01137 3D0001 LDQ E+9,4                     CONVERT THEM FROM BCD TO BINARY    4F11192     
       03046  0 07400 1 02566        TSX SR6DC1,1                * IN E+3,5,7, AND                    4F11193     
       03047  0 60100 4 01137        STO E+9,4                     STORE BACK IN E+3,5,7,             4F11194     
       03050  2 00002 4 03045        TIX 3D0001,4,2                WHEN DONE, PREPARE                 4F11195     
       03051  0 53400 4 01411        LXA L(3),4                    TO PICK UP 3 ADDENDS.              4F11196     
       03052  0 50000 4 01144 3D0002 CLA E+14,4                    CONVERT ADDENS (BCD TO BINARY)=    4F11197     
       03053  0 60200 0 01347        SLW G                         STRIP OFF                          4F11198     
       03054  0 56000 0 01347        LDQ G                         SIGN.                              4F11199     
       03055  0 07400 1 02566        TSX SR6DC1,1                * CONVERT ADDENDS IN E+11,12,13,     4F11200     
       03056  0 56000 4 01144        LDQ E+14,4                    PUT SIGN IN S-BIT OF MQ, AND       4F11201     
       03057  0 16200 0 03061        TQP 3D0040                    IF PLUS--SKIP NEXT,                4F11202     
       03060 -0 50100 0 01453        ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18,     4F11203     
       03061  0 60100 4 01144 3D0040 STO E+14,4                    AND STORE BACK INTO E+11,12,13,    4F11204     
       03062  2 00001 4 03052        TIX 3D0002,4,1                WHEN DONE,                         4F11205     
       03063  0 07400 4 02005        TSX DIM3SR,4                * GO SEARCH DIM3 TABLE,              4F11206     
       03064  0 07400 4 03400        TSX DIAG,4                  * --ERROR...NOT ON DRUM,             4F11207     
       03065  0 50000 0 01131 3D0060 CLA E+3                       REFORMATIZE E-STRING =             4F11208     
       03066  0 76700 0 00022        ALS 18                        PACK TOGETHER COEFFICIENTS 1 AND 2 4F11209     
       03067  0 40000 0 01133        ADD E+5                       AND STORE THEM                     4F11210     
       03070  0 60100 0 01131        STO E+3                       IN E+3.                            4F11211     
       03071  0 50000 0 01132        CLA E+4                       MOVE SUBSCRIPT 1                   4F11212     
       03072  0 60100 0 01133        STO E+5                       TO E+5.                            4F11213     
       03073  0 50000 0 01135        CLA E+7                       AND MOVE                           4F11214     
       03074  0 76700 0 00022        ALS 18                        COEFFICIENT 3                      4F11215     
       03075  0 60100 0 01132        STO E+4                       INTO E+4.                          4F11216     
       03076  0 50000 0 01136        CLA E+8                       MOVE SUBSCRIPT 3 INTO E+7,         4F11217     
       03077  0 60100 0 01135        STO E+7                       NEXT SUBSCRIPT 2 IN E+6.           4F11218     
       03100  0 50000 0 01101        CLA D12                       MOVE DIMESIONS 1 AND 2             4F11219     
       03101  0 60100 0 01136        STO E+8                       INTO E+8.                          4F11220     
       03102 -0 50000 0 01141        CAL E+11                      PACK TOGETHER                      4F11221     
       03103  0 76700 0 00022        ALS 18                        ADDENDS 1 AND 2                    4F11222     
       03104 -0 50100 0 01142        ORA E+12                      AND                                4F11223     
       03105  0 60200 0 01141        SLW E+11                      STORE THEM IN E+11.                4F11224     
       03106 -0 50000 0 01143        CAL E+13                      MOVE                               4F11225     
       03107  0 76700 0 00022        ALS 18                        ADDEND 3                           4F11226     
       03110  0 60200 0 01142        SLW E+12                      INTO E+12.                         4F11227     
       03111  0 07400 4 00443        TSX TAU3IX,4                * GO SEARCH TAU3 TABLE.              4F11228     
       03112  0 76700 0 00030        ALS 24                        POSITION TAU3 TAG, AND             4F11229     
       03113 -0 60200 0 01126        ORS E                         PLACE TAU3 TAG IN TAG WORD.        4F11230     
       03114 -0 50000 0 01135        CAL E+7                       COMBINE                            4F11231     
       03115 -0 50100 0 01134        ORA E+6                       SUBSCRIPTS 3,2, AND 1,             4F11232     
       03116 -0 50100 0 01133 3D0340 ORA E+5                       AND IF THEY ARE ALL ZERO,          4F11233     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 058/058 ------           
       03117  0 10000 0 03216 3D0350 TZE NOTAG                     --DON,T ENTER FORTAG.              4F11234     
       03120  0 50000 0 00030 FTG000 CLA EIFNO                     ENTER FORTAG=                      4F11235     
       03121 -0 32000 0 01527        ANA MASK1                     BRING UP ALPHA (INTFORMNO)         4F11236     
       03122  0 60200 0 01347        SLW G                         AND STORE IN G.                    4F11237     
       03123 -0 50000 0 01126        CAL E                         BRING UP TAUTAG FOR I,             4F11238     
       03124  0 77100 0 00030        ARS 24                        ADJUST, AND                        4F11239     
       03125 -0 60200 0 01347        ORS G                         PLACE IN G WITH ALPHA.  THEN       4F11230     
       03126  0 07400 1 03321        TSX TET00,1                 * ENTER INTO FORTAG TABLE            4F11240     
       03127  0 00000 0 00004        PZE 4                         (TET TABLE 4).                     4F11241     
 D     03130  1 00000 0 03220        TXI SAEXIT,0                  GO TO EXIT.                        4F11242     
       03131  0 53400 4 01412 2D0000 LXA L(4),4                    THEN PICKUP AND                    4F11243     
       03132  0 56000 4 01135 2D0001 LDQ E+7,4                     CONVERT COEFFICIENTS               4F11244     
       03133  0 07400 1 02566        TSX SR6DC1,1                * (BCD TO BINARY),                   4F11245     
       03134  0 60100 4 01135        STO E+7,4                     AND STORE BACK IN E+3 AND E+5,     4F11246     
       03135  2 00002 4 03132        TIX 2D0001,4,2                WHEN DONE,                         4F11247     
       03136  0 53400 4 01410        LXA L(2),4                    PREPARE TO                         4F11248     
       03137  0 50000 4 01143 2D0002 CLA E+13,4                    PICKUP THE TWO ADDENDS.            4F11249     
       03140  0 60200 0 01347        SLW G                         STRIP OFF                          4F11250     
       03141  0 56000 0 01347        LDQ G                         THEIR SIGNS,                       4F11251     
       03142  0 07400 1 02566        TSX SR6DC1,1                * CONVERT THEM FROM BCD TO BINARY,   4F11252     
       03143  0 56000 4 01143        LDQ E+13,4                    PUT SIGN IN S-BIT OF MQ, AND       4F11253     
       03144  0 16200 0 03146        TQP 2D0040                    IF PLUS--SKIP NEXT,                4F11254     
       03145 -0 50100 0 01453        ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18,     4F11255     
       03146  0 60100 4 01141 2D0040 STO E+11,4                    AND STORE BACK IN E+11 AND E+12.   4F11256     
       03147  2 00001 4 03137        TIX 2D0002,4,1                WHEN DONE,                         4F11257     
       03150  0 07400 4 01775        TSX DIM2SR,4                * GO SEARCH DIM2 TABLE.              4F11258     
       03151  0 07400 4 03400        TSX DIAG,4                  * --ERROR...NOT ON DRUM.             4F11259     
       03152  0 50000 0 01131 2D0060 CLA E+3                       REFORMATIZE E-STRING =             4F11260     
       03153  0 76700 0 00022        ALS 18                        PACK TOGETHER                      4F11261     
       03154  0 40000 0 01133        ADD E+5                       COEFFICENTS 1 AND 2,               4F11262     
       03155  0 60100 0 01131        STO E+3                       AND STORE THEM IN E+3,             4F11263     
       03156  0 50000 0 01134        CLA E+6                       MOVE SUBSCRIPT 2 INTO E+5          4F11264     
       03157  0 60100 0 01133        STO E+5                       (NEXT TO SUBSCRIPT 1 IN E+4),      4F11265     
       03160  0 50000 0 01101        CLA D12                       OBTAIN                             4F11266     
       03161 -0 32000 0 01527        ANA MASK1                     DIMENSION 1, AND MOVE IT           4F11267     
       03162  0 60100 0 01134        STO E+6                       INTO E+6.                          4F11268     
       03163 -0 50000 0 01141        CAL E+11                      PACK TOGETHER                      4F11269     
       03164  0 76700 0 00022        ALS 18                        ADDENDS 1 AND 2,                   4F11270     
       03165 -0 50100 0 01142        ORA E+12                      AND STORE THEM                     4F11271     
       03166  0 60200 0 01141        SLW E+11                      IN E+11.                           4F11272     
       03167  0 07400 4 00436        TSX TAU2IX,4                * GO SEATCH TAU2 TABLE.              4F11273     
       03170  0 76700 0 00030        ALS 24                        POSITION TAU2 TAG, AND             4F11274     
       03171 -0 60200 0 01126        ORS E                         PLACE TAU2 TAG IN TAG WORD.        4F11275     
       03172 -0 50000 0 01132        CAL E+4                       COMBINE SUBSCRIPTS 1 AND 2, AND    4F11276     
 D     03173  1 00000 0 03116        TXI 3D0340,0                  GO TO FORTAG SECTION.              4F11277     
       03174  0 56000 0 01131 1D0000 LDQ E+3                       PICKUP AND CONVERT COEFFICIENTS    4F11278     
       03175  0 07400 1 02566        TSX SR6DC1,1                * (BCD TO BINARY), AND               4F11279     
       03176  0 76700 0 00022        ALS 18                        THEN ADJUST THEM,                  4F11280     
       03177  0 60100 0 01131        STO E+3                       AND STORE THEM BACK IN E+3.        4F11281     
       03200  0 50000 0 01141        CLA E+11                      PICKUP ADDEND,                     4F11282     
       03201  0 60200 0 01347        SLW G                         STRIP OFF SIGN,                    4F11283     
       03202  0 56000 0 01347        LDQ G                         CONVERT ADDEND                     4F11284     
       03203  0 07400 1 02566        TSX SR6DC1,1                * (BCD TO BINARY), AND THEN          4F11285     
       03204  0 56000 0 01141        LDQ E+11                      PUT SIGN IN S-BIT OF MQ,           4F11286     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 059/059 ------           
       03205  0 16200 0 03207        TQP 1D0001                    IF PLUS--SKIP NEXT,                4F11287     
       03206 -0 50100 0 01453        ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18.     4F11288     
       03207  0 76700 0 00022 1D0001 ALS 18                        THEN ADJUST AND STORE              4F11289     
       03210  0 60200 0 01141        SLW E+11                      BACK INTO E+11.                    4F11290     
       03211  0 07400 4 00431        TSX TAU1IX,4                * GO SEARCH TAU1 TABLE.              4F11291     
       03212  0 76700 0 00030        ALS 24                        POSITION TAU1 TAG, AND             4F11292     
       03213 -0 60200 0 01126        ORS E                         PLACE TAU1 TAG IN TAG WORD.        4F11293     
       03214 -0 50000 0 01132        CAL E+4                       TAKE SUBSCRIPT, AND                4F11294     
 D     03215  1 00000 0 03117        TXI 3D0350,0                  GO TO FORTAG SECTION.              4F11295     
       03216 -0 50000 0 01471 NOTAG  CAL FNIND                     POSITION SIGMA1 TAG, AND           4F11296     
       03217 -0 60200 0 01126        ORS E                         PLACE SIGMA1 TAG IN TAGE WORD.     4F11297     
       03220 -0 53400 1 02730 SAEXIT LXD SXR1,1                    RESTORE THE C(XR1)                 4F11298     
       03221 -0 53400 2 02731        LXD SXR2,2                    RESTORE THE C(XR2)                 4F11299     
       03222 -0 53400 4 02732        LXD SXR4,4                    RESTORE THE C(XR4)                 4F11300     
       03223  0 02000 4 00001        TRA 1,4                     * EXIT TO MAIN ROUTINE.              4F11301     
                                          END OF PROGRAM SS000.                                       4F11302     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11303     
                                                                                                      4F11304     
                                         SUBX00,4/ CALLERS=C3000,C3300.                               4F11305     
                                         SUBX00 ADDS BLANKS TO THE NAMES OF SUBROUTINES.              4F11306     
       03224  0 53400 3 01414 SUBX00 LXA L(6),3                    PREPARE TO COUNT CHARS AND SHIFTS. 4F11307     
       03225  0 56000 0 01112        LDQ 1G                        PICKUP SUBROUTINE NAME.            4F11308     
       03226 -0 75400 0 00000 SUBX01 PXD ,0                        CLEAR THE AC, AND                  4F11309     
       03227 -0 76300 0 00006        LGL 6                         SEARCH FOR A BLANK                 4F11310     
       03230  0 40200 0 01430        SUB BLANK                     CHARACTER IN THIS NAME.            4F11311     
       03231  0 10000 0 03235        TZE SUBX03                    IF NOT BLANK, THEN                 4F11312     
       03232  1 00006 1 03233        TXI SUBX02,1,6                UPDATE SHIFT COUNT, AND            4F11313     
       03233  2 00001 2 03226 SUBX02 TIX SUBX01,2,1                CONTINUE UNTIL 6 CHARS ARE COUNTED.4F11314     
       03234  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER AFTER 6TH CHAR.   4F11315     
       03235  0 56000 0 01526 SUBX03 LDQ BLANKS                    IF LESS THEN 6 CHARACTERRS IN NAME,4F11316     
       03236 -0 76300 1 00044        LGL 36,1                      SHIFT ENOUGH BLANKS INTO THE AC,   4F11317     
       03237 -0 60200 0 01112        ORS 1G                        AND FILL OUT NAME WITH BLANKS.     4F11318     
       03240  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11319     
                                          END OF PROGRAM SUBX00.                                      4F11320     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11321     
                                                                                                      4F11322     
                                         TESTFX,1/ CALLERS=SS000,C3000,IFFIX.                         4F11323     
                                         TESTFX TEST FOR FIXED OR FLOATING POINT VARIABLES.           4F11324     
       03241 -0 50000 0 01331 TESTFX CAL FIRSTC                    COMPARE FIRST CHARACTER            4F11325     
       03242  0 34000 0 01423        CAS L(H)                      WITH H.                            4F11326     
       03243  0 34000 0 01425        CAS L(O)                      IF GREATER THEN H, COMPARE WITH O. 4F11327     
       03244  0 02000 1 00001        TRA 1,1                     * IF NOT GREATER THEN H, LESS THEN O,4F11328     
       03245  0 02000 1 00001        TRA 1,1                     * THEN TAKE FLOATING POINT EXIT.     4F11329     
       03246  0 02000 1 00002        TRA 2,1                     * OTHERWISE, TAKE FIXED POINT EXIT.  4F11330     
                                          END OF PROGRAM TESTFX.                                      4F11331     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11332     
                                                                                                      4F11333     
                                         TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000, 4F11334     
                                         C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR.   4F11335     
                                         TEST.. TESTS THE CHARACTER IN THE AC(30-35).                 4F11336     
                                         TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK.               4F11337     
       03247  0 34000 0 01376 TESTA0 CAS COMMA                                                        4F11338     
       03250  0 02000 0 03252        TRA TESTA1                                                       4F11339     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 060/060 ------           
       03251  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11340     
       03252  0 40200 0 01374 TESTA1 SUB ENDMK                                                        4F11341     
       03253  0 10000 4 00001        TZE 1,4                     * RETURN TO CALLER.                  4F11342     
       03254  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11343     
                                         TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS.    4F11344     
       03255  0 34000 0 01376 TESTB0 CAS COMMA                                                        4F11345     
       03256  0 02000 0 03260        TRA TESTB1                                                       4F11346     
       03257  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11347     
       03260  0 40200 0 01377 TESTB1 SUB CLOS                                                         4F11348     
       03261  0 10000 4 00001        TZE 1,4                     * RETURN TO CALLER.                  4F11349     
       03262  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11350     
                                         TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK.    4F11351     
       03263  0 34000 0 01375 TESTC0 CAS OPEN                                                         4F11352     
       03264  0 02000 0 03266        TRA TESTC1                                                       4F11353     
       03265  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11354     
       03266  0 40200 0 01374 TESTC1 SUB ENDMK                                                        4F11355     
       03267  0 10000 4 00001        TZE 1,4                     * RETURN TO CALLER.                  4F11356     
       03270  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11357     
                                         TEST CHARACTER IN THE AC FOR ENDMARK.                        4F11358     
       03271  0 34000 0 01374 TESTD0 CAS ENDMK                                                        4F11359     
       03272  0 07400 4 03400 ERR77P TSX DIAG,4                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11360     
       03273  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11361     
       03274  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11362     
                                         TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS.               4F11363     
       03275  0 34000 0 01375 TESTE0 CAS OPEN                                                         4F11364     
       03276  0 02000 0 03300        TRA TESTE1                                                       4F11365     
       03277  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11366     
       03300  0 07400 4 03400 TESTE1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11367     
                                         TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS.             4F11368     
       03301  0 34000 0 01377 TESTF0 CAS CLOS                                                         4F11369     
       03302  0 02000 0 03304        TRA TESTF1                                                       4F11370     
       03303  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11371     
       03304  0 07400 4 03400 TESTF1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11372     
                                         TEST CHARACTER IN THE AC FOR COMMA.                          4F11373     
       03305  0 34000 0 01376 TESTG0 CAS COMMA                                                        4F11374     
       03306  0 02000 0 03310        TRA TESTG1                                                       4F11375     
       03307  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11376     
       03310  0 07400 4 03400 TESTG1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11377     
                                         TEST CHARACTER IN THE AC FOR NON-NUMERIC.                    4F11378     
       03311  0 34000 0 01417 TESTH0 CAS L(9)                                                         4F11379     
       03312  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11380     
       03313  0 76100 0 00000        NOP                                                              4F11381     
       03314  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11382     
                                         TEST CHARACTER IN THE AC FOR NUMERIC.                        4F11383     
       03315  0 34000 0 01417 TESTI0 CAS L(9)                                                         4F11384     
       03316  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11385     
       03317  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11386     
       03320  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11387     
                                          END OF PROGRAM TEST...                                      4F11388     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11389     
                                                                                                      4F11390     
                                         TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400,  4F11391     
                                         C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD).        4F11392     
                                         TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS     4F11393     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 061/061 ------           
                                         FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4.                  4F11394     
       03321 -0 63400 2 01100 TET00  SXD TETXR2,2                  SAVE THE C(XR2),                   4F11395     
       03322 -0 63400 4 01101        SXD TETXR4,4                  SAVE THE C(XR4), AND               4F11396     
       03323 -0 60000 0 01103        STQ TETMQR                    SAVE THE C(MQR).                   4F11397     
       03324  0 50000 1 00001        CLA 1,1                       COMPUTE TABLE NUMBER               4F11398     
       03325  0 76700 0 00001        ALS 1                         TIMES 3                            4F11399     
       03326  0 40000 1 00001        ADD 1,1                       AND                                4F11400     
       03327  0 76000 0 00006        COM                           PLACE THE 2S COMPLEMENT            4F11401     
       03330  0 40000 0 01407        ADD L(1)                      OF THIS                            4F11402     
       03331  0 73400 2 00000        PAX 0,2                       IN XR2                             4F11403     
       03332  0 50000 2 00322        CLA INTET,2                   OBTAIN THE CURRENT                 4F11404     
       03333  0 77100 0 00022        ARS 18                        B (BUFFER CAPACITY),               4F11405     
       03334  0 60100 0 01102        STO TETWRK                    AND SAVE IT. THEN                  4F11406     
       03335  0 50000 2 00324        CLA INTET+2,2                 GET P (PORTION OF BUFFER FULL),    4F11407     
       03336  0 77100 0 00022        ARS 18                        AND                                4F11408     
       03337  0 40200 0 01102        SUB TETWRK                    COMPARE TO B.                      4F11409     
       03340 -0 10000 0 03356        TNZ TET03                     IF BUFFER IS FULL,                 4F11410     
       03341  0 62200 2 00324        STD INTET+2,2                 SET P = 0, AND                     4F11411     
       03342  0 76600 0 00224 TET01  WRS TABTAP                    PREPARE TO WRITE BLOCK ON TABTAP.  4F11412     
       03343  0 53400 4 01102        LXA TETWRK,4                  SET XR4 = BLOCK SIZE (B).          4F11413     
       03344  0 50000 0 01102        CLA TETWRK                    ADD BLOCK SIZE TO                  4F11414     
       03345  0 40000 2 00322        ADD INTET,2                   ORGIN OF CURRENT BLOCK (O).        4F11415     
       03346  0 62100 0 03350        STA TET02                     AND SET ADDRESS OF COPY LOOP (O+B).4F11416     
       03347  0 70000 1 00001        CPY 1,1                       COPY TABLE NUM FOR IDENTIFICATION. 4F11417     
       03350  0 70000 4 00000 TET02  CPY **,4                      WRITE BLOCK ONTO                   4F11418     
       03351  2 00001 4 03350        TIX TET02,4,1                 TABLE TAPE, AND                    4F11419     
       03352  0 76600 0 00333        IOD                           WHEN DONE,                         4F11420     
       03353  0 50000 2 00324        CLA INTET+2,2                 INCREASE C (BLOCK COUNT)           4F11421     
       03354  0 40000 0 01407        ADD L(1)                      BY 1 FOR                           4F11422     
       03355  0 62100 2 00324        STA INTET+2,2                 BLOCK JUST WRITTEN ON TABLE TAPE.  4F11423     
       03356  0 50000 2 00324 TET03  CLA INTET+2,2                 ADD P (PORTION OF BUFFER FULL)     4F11424     
       03357  0 77100 0 00022        ARS 18                        TO O (ORIGIN OF CURRENT TABLE      4F11425     
       03360  0 40000 2 00322        ADD INTET,2                   BUFFER) TO SET                     4F11426     
       03361  0 62100 0 03371        STA TET05                     ADDRESS OF ENTRY LOOP (P+O).       4F11427     
       03362  0 50000 2 00323        CLA INTET+1,2                 OBTAIN CURRENT A (ENTRY ADDRESS),  4F11428     
       03363  0 62100 0 03370        STA TET04                     AND SET ADDRESS OF ENTRY LOOP.     4F11429     
       03364 -0 73400 4 00000        PDX ,4                        SET XR4 = E (ENTRY LENGTH IN WRDS).4F11430     
       03365  0 40000 2 00324        ADD INTET+2,2                 INCREASE P BY E TO ACCOUNT         4F11431     
       03366  0 62200 2 00324        STD INTET+2,2                 FOR FOLLOWING ENTRY.               4F11432     
       03367 -0 53400 2 01406        LXD L(0),2                    SET XR2 = 0. THEN                  4F11433     
       03370  0 50000 2 00000 TET04  CLA **,2                      MOVE THE CURRENT ENTRY             4F11434     
       03371  0 60100 2 00000 TET05  STO **,2                      INTO THE CURRENT TABLE BUFFER, AND 4F11435     
       03372  1 77777 2 03373        TXI TET06,2,-1                WHEN                               4F11436     
       03373  2 00001 4 03370 TET06  TIX TET04,4,1                 DONE,                              4F11437     
       03374  0 56000 0 01103        LDQ TETMQR                    RESTORE ORIGINAL C(MQR),           4F11438     
       03375 -0 53400 2 01100        LXD TETXR2,2                  RESTORE ORIGINAL C(XR2),           4F11439     
       03376 -0 53400 4 01101        LXD TETXR4,4                  RESTORE ORIGINAL C(XR4), AND       4F11440     
       03377  0 02000 1 00002        TRA 2,1                     * EXIT TO MAIN ROUTINE.              4F11441     
                                          END OF PROGRAM TET00.                                       4F11442     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11443     
                                                                                                      4F11444     
                                         DIAGNOSTIC CALLERS=CD000,CB000,CC000,CA100,C0200,C0300,C090, 4F11445     
                                         C1000,C1200,C3000,C3100,C3200,C3400,C0150,C0160,C0180,TEST..,4F11446     
                                         SR6DC1,DRTABS,RDRX,DIM.SR,SS000,ROYCNV,RDC,RSC,LPR,EQS,RPR,  4F11447     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 062/062 ------           
                                         CMA,EMK,BEG(TYP),VRA(VRD).                                   4F11448     
                                         (CA000 ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE   4F11449     
                                         BEEN PROCESSES. IF THERE HAVE BEEN NO PREVIOUS CALLS TO      4F11450     
                                         THE DIAGNOSTIC DURING SECTION ONE, THEN 1PRIME IS CALLED.)   4F11451     
 D     03400  1 00000 0 00004 DIAG   TXI 4,0                     * GO GET THE DIAGNOSTIC.             4F11452     
                                          END OF PROGRAM DIAG.                                        4F11453     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11454     
                                                                                                      4F11455     
                                         ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS.                4F11456     
       03401 -0 63400 4 03437 FLTR00 SXD FLTR05,4          SAVE CALLING TAG.                          4F114571    
       03402  0 50000 0 00030        CLA EIFNO             GET LAST INTERNAL AND EXTERNAL FORMULA NOS.4F114572    
       03403  0 62100 0 02067        STA ENT               PLACE LAST EFN IN DEC OF NTR INSTRUCTION.  4F114573    
       03404  0 77100 0 00022        ARS 18                                                           4F114574    
       03405  0 62100 0 02070        STA NZE               PLACE LAST IFN IN DEC OF PZE               4F114575    
       03406 -0 53400 4 01122        LXD ARGCTR,4                                                     4F114576    
       03407 -3 00000 4 03413        TXL FLTR01,4,0        IS THIS AN FN FUNCTION, NO SKIP.           4F114577    
       03410  0 60000 0 01107        STZ 1C+2                                                         4F114578    
       03411  0 50200 0 01454        CLS 2E18              SET ADDRESS TO -1                          4F114579    
       03412  0 02000 0 03423        TRA FLTR03                                                       4F11457A    
       03413  0 50000 0 00365 FLTR01 CLA SBDFCN            IS THIS A MAIN PROGRAM OR SUBPROGRAM.      4F11457B    
       03414 -0 10000 0 03420        TNZ FLTR02            SKIP ON SUBPROGRAM                         4F11457C    
       03415  0 60000 0 01107        STZ 1C+2              SET ADDRESS TO 0                           4F11457D    
       03416  0 60000 0 01110        STZ 1C+3                                                         4F11457E    
       03417  0 02000 0 03424        TRA FLTR04                                                       4F11457F    
       03420  0 50000 0 01523 FLTR02 CLA DOLSGN            SET ADDRESS TO $+2                         4F11457G    
       03421  0 60100 0 01107        STO 1C+2                                                         4F11457H    
       03422  0 50000 0 01457        CLA D2                                                           4F11457I    
       03423  0 60100 0 01110 FLTR03 STO 1C+3              SET RELATIVE ADDRESS WORD OF CIT.          4F11457J    
       03424  0 07400 4 01731 FLTR04 TSX CIT00,4                                                      4F11457K    
       03425  0 00000 0 01406        PZE L(0)              COMPILE      NTR  *+2,0,EFN                4F11457L    
       03426  0 00000 0 02067        PZE ENT                                                          4F11457M    
       03427  0 00000 0 01510        PZE 15P                                                          4F11457N    
       03430  0 00000 0 01457        PZE D2                                                           4F11457O    
       03431  0 07400 4 01731        TSX CIT00,4                                                      4F11457P    
       03432  0 00000 0 01406        PZE L(0)              COMPILE    PZE  ALPHA,0,IFN                4F11457Q    
       03433  0 00000 0 02070        PZE NZE               WHERE ALPHA IS 0 FOR MAIN PROGRAM, $+2 FOR 4F11457R    
       03434  0 00000 0 01107        PZE 1C+2              SUBPROGRAM, OR -1 FOR FN FUNCTION IN EITHER4F11457S    
       03435  0 00000 0 01110        PZE 1C+3              MAIN OR SUBPROGRAM.                        4F11457T    
       03436 -0 53400 4 03437        LXD FLTR05,4                                                     4F11457U    
 D     03437  1 00000 4 01731 FLTR05 TXI CIT00,4           GO COMPILE    LXD M(,4  OR  7(TYPE=,4      4F11457V    
                                                                                                      4F11457W    
                                                                                                      4F11458     
                                          END OF THE COMMON PART OF SECTION ONE.                      4F11459     
                                                                                                      4F11460     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11461     
                                                                                                      4F11462     
                                         SECTION 1 / INITIALIZATION =                                 4F11463     
                                         704 FORTRAN MASTER RECORD CARD / INITIZLIZATION = F0150000.  4F11464     
                        00000        ORG 0                                                            4F114641    
       00000  0 00004 0 00471        PZE FORSUB,,1TOCS                                                4F114642    
       00001  0 00000 0 00600        PZE DMWR98                                                       4F114643    
                        00471        ORG FORSUB                                                       4F11465     
                                         INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER    4F11466     
                                         BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE  4F11467     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 063/063 ------           
                                         PROGRAM.                                                     4F11468     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11469     
                                                                                                      4F11470     
                                         PART I / CLEAR DRUMS 1,2,3,4, AND REWIND TAPES 2,3,4 =       4F11471     
       00471  0 53400 1 00575 CLDR00 LXA CLDR07,1                  CLEAR DRUMS 1,2,3,4 TO +0.         4F11472     
       00472  0 76600 1 00305 CLDR01 WRS 197,1                     X                                  4F11473     
       00473 -0 53400 2 00575        LXD CLDR07,2                  X                                  4F11474     
       00474  0 70000 0 00576 CLDR03 CPY CLDR08                    X                                  4F11475     
       00475  2 00001 2 00474        TIX CLDR03,2,1                X                                  4F11476     
       00476  2 00001 1 00472        TIX CLDR01,1,1                X                                  4F11477     
       00477  0 77200 0 00222        REW 146                       REWIND WORKING TAPES 2,3,4.        4F11478     
       00500  0 77200 0 00223        REW 147                       X                                  4F11479     
       00501  0 77200 0 00224        REW 148                       X                                  4F11480     
                                          END OF INITIALIZATION / PART 1.                             4F11481     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11482     
                                                                                                      4F11483     
                                         PART 2 / WRITE STATES A,B,C,D ON DRUMS1,3,4,2=               4F11484     
       00502  0 53400 4 01411 DMWR01 LXA L(3),4                    PREPARE TO WRITE STATE D ON DRUM 2.4F11485     
       00503  0 02000 0 00513        TRA DMWR11                    X                                  4F11486     
       00504  0 53400 4 01407 DMWR03 LXA L(1),4                    PREPARE TO WRITE STATE C ON DRUM 4.4F11487     
       00505  0 02000 0 00513        TRA DMWR11                    X                                  4F11488     
       00506  0 53400 4 01410 DMWR06 LXA L(2),4                    PREPARE TO WRITE STATE B ON DRUM 3.4F11489     
       00507  0 02000 0 00513        TRA DMWR11                    X                                  4F11490     
       00510  0 53400 4 01412 DMWR09 LXA L(4),4                    PREPARE TO WRITE STATE A ON DRUM 1.4F11491     
       00511  0 50000 0 00600        CLA DMWR98                    THIS IS FINAL STATE TO BE WRITTEN, 4F11492     
       00512  0 62100 0 00546        STA DMWR40                    CHANGE ADDRESS TO GET OUT OF LOOP. 4F11493     
       00513  0 50000 4 02437 DMWR11 CLA ZETA+4,4                  GET LENGTH OF CURRENT STATE.       4F11494     
       00514 -0 73400 2 00000        PDX ,2                        LENGTH OF CURRENT STATE.           4F11495     
       00515 -0 63400 2 00574        SXD CHECK,2                   SAVE LENGTH.                       4F11496     
       00516  0 77100 0 00022        ARS 18                        LENGTH + ORIGIN TO PREPARE FOR CK  4F11497     
       00517  0 40000 0 02430        ADD MTR3                      SUM AND COPY LOOPS.                4F11498     
       00520  0 62100 0 00523        STA DMWR20                    X                                  4F11499     
       00521  0 62100 0 00533        STA DMWR26                    X                                  4F11500     
       00522 -0 75400 0 00000        PXD ,0                        CLEAR AC AND COMPUTE CK SUM.       4F11501     
       00523  0 36100 2 00000 DMWR20 ACL **,2                      X                                  4F11502     
       00524  2 00001 2 00523        TIX DMWR20,2,1                X                                  4F11503     
       00525  0 60200 0 01103        SLW DRCKSM                    X                                  4F11504     
       00526  0 53400 1 01413        LXA DRMERC,1                  SET FOR FIVE ATTEMPTS.             4F11505     
       00527  0 76600 4 00305 DMWR23 WDR 5,4                       PREPARE TO WRITE DRUM.             4F11506     
       00530 -0 53400 2 00574        LXD CHECK,2                   X                                  4F11507     
       00531  0 46000 4 02437        LDA ZETA+4,4                  X                                  4F11508     
       00532  0 70000 0 01103        CPY DRCKSM                    WRITE CK SUM ON DRUM.              4F11509     
       00533  0 70000 2 00000 DMWR26 CPY **,2                      WRITE STATE ON DRUM.               4F11510     
       00534  2 00001 2 00533        TIX DMWR26,2,1                X                                  4F11511     
       00535  0 76200 4 00305        RDR 5,4                       PREPARE TO READ STATE BACK.        4F11512     
       00536 -0 53400 2 00574        LXD CHECK,2                   X                                  4F11513     
       00537  0 46000 4 02437        LDA ZETA+4,4                  X                                  4F11514     
       00540 -0 75400 0 00000        PXD ,0                        CLEAR AC AND READ BACK CK SUM AND  4F11515     
       00541 -0 70000 0 00573        CAD GARBGE                    STATE.                             4F11516     
       00542  0 76000 0 00006        COM                           X                                  4F11517     
       00543 -0 70000 0 00573 DMWR32 CAD GARBGE                    RECOMPUTE CK SUM.                  4F11518     
       00544  2 00001 2 00543        TIX DMWR32,2,1                X                                  4F11519     
       00545  0 76000 0 00006        COM                           X                                  4F11520     
       00546  0 10000 0 00004 DMWR40 TZE 1TOCS                   * CK SUM AGREE, GO GET NEXT STATE.   4F11521     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 064/064 ------           
       00547  2 00001 1 00527        TIX DMWR23,1,1                CK SUM FAILED, TRY UP TO 5 TIMES.  4F11522     
       00550  0 50000 0 00577        CLA DMWR89                    SET MONITOR TO RETURN TO THIS      4F11523     
       00551  0 60100 0 02402        STO STATEA                    PROGRAM INSTEAD OF TO STATE A.     4F11524     
       00552 -3 00003 4 00554        TXL DMWR80,4,3                TEST FOR STATE A IN PROGRESS.      4F11525     
       00553  0 07400 4 03400        TSX DIAG,4                  * STATE A CANNOT BE WRITTEN ON DRUM1.4F11526     
       00554 -3 00002 4 00561 DMWR80 TXL DMWR82,4,2                TEST FOR STATE D IN PROGRESS.      4F11527     
       00555  0 76200 0 00221        RTB 1                         SPACE OVER STATE C RECORD.         4F11528     
       00556  0 76200 0 00221        RTB 1                         SPACE OVER STATE B RECORD.         4F11529     
       00557  0 76200 0 00221        RTB 1                         SPACE OVER STATE A RECORD.         4F11530     
       00560  0 07400 4 03400        TSX DIAG,4                  * STATE D CANNOT BE WRITTEN ON DRUM2.4F11531     
       00561 -3 00001 4 00564 DMWR82 TXL DMWR84,4,1                TEST FOR SET B IN PROGRESS.        4F11532     
       00562  0 76200 0 00221        RTB 1                         SPACE OVER STATE A RECORD.         4F11533     
       00563  0 07400 4 03400        TSX DIAG,4                  * STATE B CANNOT BE WRITTEN ON DRUM3.4F11534     
       00564  0 76200 0 00221 DMWR84 RTB 1                         SPACE OVER STATE B RECORD.         4F11535     
       00565  0 76200 0 00221        RTB 1                         SPACE OVER STATE A RECORD.         4F11536     
       00566  0 07400 4 03400        TSX DIAG,4                  * STATE C CANNOT BE WRITTEN ON DRUM4.4F11537     
       00567  0 53400 4 01406 DMWR88 LXA L(0),4                    SET IR4 TO 0 TO CAUSE DIAGNOSTIC TO4F11538     
       00570  0 02000 0 03400        TRA DIAG                    * PRINT END LINE AND STOP            4F11539     
       00571  0 07400 4 05702 DMWR99 TSX CA100,4                 * GO TO SUBROUTINE TO LOAD FT REGION.4F11540     
       00572  0 02000 0 03440        TRA CA010                   * GO BEGIN STATE A OF SECTION ONE.   4F11541     
                                          END OF INITIALIZATION / PART 2.                             4F11542     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11543     
                                                                                                      4F11544     
                                         PART3 / VARIABLES AND CONSTANTS USED BY INITIALIZATION=      4F11545     
                        00573 GARBGE BSS 1                         ERASEABLE STORAGE.                 4F11546     
       00574  0 00000 0 00000 CHECK  PZE ,,**                      SAVING CELL FOR LENGTH OF STATE.   4F11547     
       00575  0 04000 0 00004 CLDR07 PZE 4,,2048                   CONSTANT FOR CLEARING DRUMS.       4F11548     
       00576  0 00000 0 00000 CLDR08 PZE 0                         CONSTANT FOR CLEARING DRUMS.       4F11549     
       00577  0 02000 0 00567 DMWR89 TRA DMWR88                    CONSTANT FOR ERROR ROUTINE.        4F11550     
       00600  0 00000 0 00571 DMWR98 PZE DMWR99                    CONSTANT FOR ADDRESS MODIFICATION. 4F11551     
                                          END OF INITIALIZATION / PART 3.                             4F11552     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11553     
                                                                                                      4F11554     
                                                                                                      4F11555     
                                         SECTION 1 / STATEA =                                         4F11556     
                                         704 FORTRAN MASTER RECORD CARD / STATE A = F0190000.         4F11557     
                        00000        ORG 0                                                            4F115571    
       00000  0 00510 0 03440        PZE ORGA,,DMWR09                                                 4F115572    
       00001  0 00000 0 07306        PZE ENDA-1                                                       4F115573    
                                                                                                      4F11558     
                                         NAME                      FUNCTION                           4F11559     
                                         PART 1 / ASSEMBLE AND CLASSIFY ALL STATEMENTS=               4F11560     
                                         CA000                     ASSEMBLE STATEMENT.                4F11561     
                                         CD000                     SCAN FOR HOLLERITH AND ILLEGAL CHS.4F11562     
                                         CB000                     CLASSIFY=ARITHMETIC/NON-ARITHMETIC.4F11563     
                                         CC000                     CLASSIFY=WHICH NON-ARITHMETIC.     4F11564     
                                         PART 2 / PROCESS CONTROL AND SPECIFICATION STATEMENTS.       4F11565     
                                         C0100                     DO.                                4F11566     
                                         C0200                     GO TO.                             4F11567     
                                         C0300                     IF.                                4F11568     
                                         C0400                     IF (SENSE SWITCH.                  4F11569     
                                         C0500                     IF (SENSE LIGHT.                   4F11570     
                                         C0600                     IF DIVIDE CHECK.                   4F11571     
                                         C0700                     IF AC OVERFLOW.                    4F11572     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 065/065 ------           
                                         C0800                     IF MQ OVERFLOW.                    4F11573     
                                         C0900                     PAUSE.                             4F11574     
                                         C1000                     ASSIGN.                            4F11575     
                                         C1100                     SENSE LIGHT.                       4F11576     
                                         C1200                     DIMENSION.                         4F11577     
                                         C1300                     STOP.                              4F11578     
                                         C1400                     FREQUENCY.                         4F11579     
                                         C1500                     EQUIVALENCE.                       4F11580     
                                         C1600                     CONTINUE.                          4F11581     
                                         C3000(C3500)              SUBROUTINE / FUNCTION.             4F11582     
                                         C3100                     COMMON.                            4F11583     
                                         C3200                     RETURN.                            4F11584     
                                         C3300                     CALL.                              4F11585     
                                         C3400                     END.                               4F11586     
                                         PART 3 / PROCESS INPUT-OUTPUT STATEMENTS=                    4F11587     
                                         RDC                       READ CARD                          4F11588     
                                         RIT                       READ INPUT TAPE.                   4F11589     
                                         RDP                       PRINT.                             4F11590     
                                         WOT                       WRITE OUTPUT TAPE.                 4F11591     
                                         PDC                       PUNCH.                             4F11592     
                                         WBT                       WRITE TAPE.                        4F11593     
                                         RBT                       READ TAPE.                         4F11594     
                                         WRD                       WRITE DRUM.                        4F11595     
                                         RDD                       READ DRUM.                         4F11596     
                                         EFT                       END FILE.                          4F11597     
                                         RWN                       REWIND.                            4F11598     
                                         BSP                       BACKSPACE.                         4F11599     
                                         FOR                       FORMAT.                            4F11600     
                                         RSC                       RESET AND SCAN.                    4F11601     
                                         LISTR                     CONTROL FOR LIST SCAN.             4F11602     
                                         LPR                       LEFT PARENTHESES IN LIST SCAN.     4F11603     
                                         EOS                       EQUAL SIGN IN LIST SCAN.           4F11604     
                                         SPCTR                     CONTROL FOR SPECIFICATION SCAN.    4F11605     
                                         SPC                       SUBSCRIPT SPECIFICATIONS.          4F11606     
                                         RPR                       RIGHT PARENTHESIS IN LIST SCAN.    4F11607     
                                         CMA                       COMMA IN LIST SCAN.                4F11608     
                                         EMK                       ENDMARK IN LIST SCAN.              4F11609     
                                         PART 4 / SUBROUTINES USED BY STATE A=                        4F11610     
                                         BEG(TYP),4                BEGIN SCAN AND TYPE TEST.          4F11611     
                                         BEGTR                     CONTROL FOR BEGINNING SCAN.        4F11612     
                                         BRW,4                     BINARY READ OR WRITE COMPILER.     4F11613     
                                         BSS,2                     COMPILES= IFN BSS 0.               4F11614     
                                         CA100,4                   READ SOURCE PROGRAM TAPE.          4F11615     
                                         CC500,4                   SCAN DICTIONARY.                   4F11616     
                                         ETM(LTM)SW,4              IF SW=NOP, COMPILES ETM(LTM). SL=0.4F11617     
                                         IFFIX,1                   SETS UP FORVAR OR FORVAL ENTRY.    4F11618     
                                         IN(OUT)PUT,2              COMPILES CAL *, AND XIT (LEV).     4F11619     
                                         LIB,1                     MAKES CLOSUB ENTRY, COMPILES CIT.  4F11620     
                                         VRA(VRD),4                MAKES FORVAR, FIXCON, CIT ENTRIES. 4F11621     
                                         PART 5 / CONSTANTS AND VARIABLES USED BY STATE A.            4F11622     
                                         DIC                       DICTIONARY.                        4F11623     
                                         T                         TRANSFER TABLE.                    4F11624     
                                                                                                      4F11625     
                                         THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=          4F11626     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 066/066 ------           
                                                                                                      4F11627     
                                         ** IN ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION           4F11628     
                                         INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.   4F11629     
                                         * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF   4F11630     
                                         THIS LOGICAL BLOCK OR SUBROUTINE.                            4F11631     
                                         C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.         4F11632     
                                         P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).  4F11633     
                                                                                                      4F11634     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11635     
                                                                                                      4F11636     
                                         STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS=               4F11637     
                        03440 ORGA   ORG 1824                                                         4F11638     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11639     
                                                                                                      4F11640     
                                         CA000/ CALLS=CA100,SR6DC1,TET00,DIAG.                        4F11641     
                                         CA000 ASSEMBLES STATEMENT IN THE F-REGION AND ASSIGNS AN IFN.4F11642     
       03440 -0 53400 4 02575 CA010  LXD ENDWRD,4                  IF THE FINAL STATEMENT HAS BEEN    4F11643     
       03441 -3 00000 4 03400        TXL DIAG,4,0                * PROCESSED, THE GO CALL DIAGNOSTIC. 4F11644     
       03442 -0 53400 1 00030        LXD EIFNO,1                   KEEP INTERAL FORMULA NUMBER        4F11645     
       03443  1 00001 1 03444        TXI CA013,1,1                 (DECR PART OF EIFNO)               4F11646     
       03444 -0 63400 1 00030 CA013  SXD EIFNO,1                   UP TO DATE BY ADDING 1.            4F11647     
       03445 -0 50000 0 01333        CAL FT                         OBTAIN HOLLERITH CODED 5-DIGIT    4F11648     
       03446  0 77100 0 00006        ARS 6                         EXTERNAL FORMULA NO IN ACC.        4F11649     
       03447  0 60200 0 01151        SLW F-1                       AND RETAIN IN F-01.                4F11650     
       03450 -0 53400 1 01670        LXD DCF,1                     INITIALIZE INDEX A TO COMPL OF F.  4F11651     
       03451  0 53400 2 01400 CA018  LXA L(11),2                   SET UP LOOP FOR 11 CYCLES.         4F11652     
       03452  0 56000 2 01347 CA019  LDQ FT+12,2                   MOVE WORD FROM REGION FT           4F11653     
       03453 -0 60000 1 00000        STQ 0,1                       TO REGION F.                       4F11654     
       03454  2 00001 1 03455        TIX CA020,1,1                 KEEP F-REGION ADDRESS UP-TO-DATE.  4F11655     
       03455  2 00001 2 03452 CA020  TIX CA019,2,1                 TEST END OF LOOP.                  4F11656     
       03456  0 07400 4 05702        TSX CA100,4                 * GO READ NEXT NON-BLANK CARD.       4F11657     
       03457 -0 50000 0 01333        CAL FT                        TEST RIGHTMOST CHARACTER OF        4F11658     
       03460 -0 32000 0 01374        ANA L(63)                     FIRST WORD FOR CONTINUATION MARK,  4F11659     
       03461  0 10000 0 03464        TZE CA021                     IF ZERO OR BLANK,                  4F11660     
       03462  0 40200 0 01430        SUB ABLANK                    DISCONTINUE READING,               4F11661     
       03463 -0 10000 0 03451        TNZ CA018                     OTHERWISE CONTINUE.                4F11662     
       03464  0 50000 0 01526 CA021  CLA BLANKS                    BEGIN SCANNING REGION F BACKWARDS  4F11663     
       03465  0 34000 1 77777 CA022  CAS -1,1                      TO FIND FIRST NON BLANK WORD.      4F11664     
       03466  0 02000 0 03470        TRA CA023                     NOT BLANK.                         4F11665     
       03467  1 00001 1 03465        TXI CA022,1,1                 BLANK, SO CONTINUE SCAN.           4F11666     
       03470  0 56000 0 01531 CA023  LDQ 36ONES                    PLACE BINARY ONES IN FIRST WORD    4F11667     
       03471 -0 60000 1 00000        STQ 0,1                       FOLLOWING RIGHTMOST NONBLANK WORD. 4F11668     
       03472 -0 50000 0 01151        CAL F-1                       PICK UP EXTERNAL FORMULA NUMBER AND4F11669     
       03473  0 34000 0 01477        CAS 5BLANS                    COMPARE WITH /0     /.             4F11670     
       03474  0 02000 0 03476        TRA CA015                     NOT COMPARE.                       4F11671     
       03475  0 02000 0 03503        TRA CD000                   * TAKE EXTFORMNO, IF ANY AND         4F11672     
       03476  0 76500 0 00043 CA015  LRS 35                        GO TO CONVERSION SUBROUTINE AND    4F11673     
       03477  0 07400 1 02566        TSX SR6DC1,1                * RETURN HERE WITH RESULT IN ACC.    4F11674     
       03500  0 62100 0 00030        STA EIFNO                     STORE RESULT IN ADDRESS OF EIFNO.  4F11675     
       03501  0 07400 1 03321        TSX TET00,1                 * GO TO PROGRAM TET TO ENTER EIFNO   4F11676     
       03502  0 00000 0 00000        PZE 0                         INTO TABLE TEIFNO (TABLE O).       4F11677     
                                         END OF PROGRAM CA000.                                        4F11678     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11679     
                                                                                                      4F11680     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 067/067 ------           
                                         CD000/ CALLS=C0190X,C0190,DIAG.                              4F11681     
                                         CD000 SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS.            4F11682     
       03503  0 07400 4 01671 CD000  TSX C0190X,4                * SET SCAN TO PICK UP 1ST CHARACTER. 4F11683     
       03504  0 07400 1 03534 CD001  TSX CD900,1                 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11684     
       03505  0 34000 0 01376        CAS COMMA                     SCAN                               4F11685     
 D     03506  1 00000 0 03510        TXI CD002,0                   FOR                                4F11686     
 D     03507  1 00000 0 03512        TXI CD003,0                   HOLLERITH                          4F11687     
       03510  0 40200 0 01375 CD002  SUB OPEN                      SPECIFICATION                      4F11688     
       03511 -0 10000 0 03504        TNZ CD001                     WHICH                              4F11689     
       03512  0 07400 1 03534 CD003  TSX CD900,1                 * CAN BE=                            4F11690     
       03513  0 40200 0 01373        SUB L(10)                     , N H                              4F11691     
       03514  0 12000 0 03504        TPL CD001                     OR = ( N H.                        4F11692     
       03515  0 07400 1 03534 CD004  TSX CD900,1                 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11693     
       03516  0 34000 0 01417        CAS L(9)                      CONTINUE SCAN.                     4F11694     
 D     03517  1 00000 0 03522        TXI CD005,0                   N                                  4F11695     
 D     03520  1 00000 0 03515        TXI CD004,0                   IS                                 4F11696     
 D     03521  1 00000 0 03515        TXI CD004,0                   A                                  4F11697     
       03522  0 34000 0 01423 CD005  CAS L(H)                      FIXED                              4F11698     
 D     03523  1 00000 0 03505        TXI CD001+1,0                 POINT                              4F11699     
 D     03524  1 00000 0 03526        TXI CD700,0                   INTEGER.                           4F11700     
 D     03525  1 00000 0 03505        TXI CD001+1,0                 X                                  4F11701     
 T     03526  0 07400 0 01723 CD700  TSX C0194                   * GO GET NEXT NONBLANK CHARACTER,    4F11702     
       03527  0 34000 0 01374        CAS ENDMK                     AND IF ENDMARK,                    4F11703     
 D     03530  1 00000 0 03532        TXI CD701,0                   THEN SKIP                          4F11704     
 D     03531  1 00000 0 03616        TXI CC000,0                 * TO NON-ARITHMETIC CLASSIFICATION.  4F11705     
       03532  0 07400 1 03543 CD701  TSX CD600,1                 * SINCE HOLLERITH HAS BEEN FOUND,    4F11706     
 D     03533  1 00000 0 03526        TXI CD700,0                   THEN $ IS LEGAL IN FORMAT TEST.    4F11707     
       03534  0 07400 4 01707 CD900  TSX C0190,4                 * OBTAIN NEXT NONBLANK CHARACTER,    4F11708     
       03535  0 34000 0 01374        CAS ENDMK                     AND IF NOT                         4F11709     
 D     03536  1 00000 0 03540        TXI CD800,0                   ENDMARK, THEN SKIP                 4F11710     
 D     03537  1 00000 0 03562        TXI CB000,0                 * EXIT TO ARITH/NON-ARITH SCAN.      4F11711     
       03540  0 34000 0 01427 CD800  CAS SPECOP                    CHECK FOR $                        4F11712     
 D     03541  1 00000 0 03546        TXI CD601,0                   WHICH, UNLESS HOLERITH, IS AN      4F11713     
       03542  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11714     
       03543  0 34000 0 01435 CD600  CAS PM                        CHECK FOR RECORD MARK              4F11715     
       03544  0 02000 1 00001        TRA 1,1                       WHICH IS AN                        4F11716     
       03545  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11717     
       03546  0 34000 0 01426 CD601  CAS CHAR3                     CHECK FOR MINUS ZERO               4F11718     
       03547  0 02000 1 00001        TRA 1,1                       WHICH IS AN                        4F11719     
       03550  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11720     
       03551  0 34000 0 01424        CAS CHAR2                     CHECK FOR PLUS ZERO                4F11721     
       03552  0 02000 1 00001        TRA 1,1                       WHICH IS AN                        4F11722     
       03553  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11723     
       03554  0 34000 0 01420        CAS MINUS                     CHECK FOR MINUS SIGN               4F11724     
       03555  0 02000 1 00001        TRA 1,1                       WHICH IS AN                        4F11725     
       03556  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11726     
       03557  0 40200 0 01373        SUB TEN                       CHECK FOR TEN                      4F11727     
       03560 -0 10000 1 00001        TNZ 1,1                       WHICH IS AN                        4F11728     
       03561  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11729     
                                          END OF PROGRAM CD000.                                       4F11730     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11731     
                                                                                                      4F11732     
                                         CB000/ CALLS=C0190X,C0190,DIAG.                              4F11733     
                                         CB000 CLASSIFIES STATEMENT AS ARITHMETIC OR NON-ARITHMETIC.  4F11734     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 068/068 ------           
       03562  0 53400 1 01407 CB000  LXA L(1),1                    SET XR TO COUNT PARENTHESES.       4F11735     
       03563  0 07400 4 01671        TSX C0190X,4                * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11736     
       03564  0 07400 4 01707 CB001  TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER.  4F11737     
       03565  0 34000 0 01400        CAS AEQUAL                    IF AN EQUAL SIGN,                  4F11738     
 D     03566  1 00000 0 03570        TXI CB005,0                   THEN                               4F11739     
 D     03567  1 00000 0 03601        TXI CB200,0                   GO TEST PAREN-COUNT.               4F11740     
       03570  0 34000 0 01375 CB005  CAS ALPAR                     IF A LEFT PARENTHESIS,             4F11741     
 D     03571  1 00000 0 03573        TXI CB006,0                   THEN                               4F11742     
       03572  1 00001 1 03564        TXI CB001,1,1                 UPDATE PAREN-COUNT BY 1.           4F11743     
       03573  0 34000 0 01377 CB006  CAS ARPAR                     IF A RIGHT PARENTHESIS,            4F11744     
 D     03574  1 00000 0 03576        TXI CB007,0                   THEN                               4F11745     
 D     03575  1 00000 0 03614        TXI CB500,0                   GO TEST PAREN-COUNT.               4F11746     
       03576  0 40200 0 01374 CB007  SUB ENDMK                     IF NOT ENDMARK, THEN               4F11747     
       03577 -0 10000 0 03564        TNZ CB001                     GO EXAMINE NEXT CHARACTER.         4F11748     
 D     03600  1 00000 0 03616        TXI CC000,0                 * OTHERWISE, GO TO DIC LOOK-UP.      4F11749     
       03601  2 00001 1 03616 CB200  TIX CC000,1,1               * IF EQUAL WAS NOT WITHIN PARENS,    4F11750     
       03602  0 07400 4 01707 CB201  TSX C0190,4                 * THEN EXAMINE NEXT CHARACTER.       4F11751     
       03603  0 34000 0 01375        CAS ALPAR                     IF LEFT PARENTHESIS,               4F11752     
 D     03604  1 00000 0 03606        TXI CB205,0                   THEN                               4F11753     
 D     03605  1 00000 0 02404        TXI ARITH,0                 * THIS IS AN ARITHMETIC FORMULA.     4F11754     
       03606  0 34000 0 01376 CB205  CAS ACOMMA                    IF A COMMA,                        4F11755     
 D     03607  1 00000 0 03611        TXI CB206,0                   THEN                               4F11756     
 D     03610  1 00000 0 03616        TXI CC000,0                 * GO TO NON-ARITHMETIC DIC LOOK-UP.  4F11757     
       03611  0 40200 0 01374 CB206  SUB ENDMK                     IF NOT ENDMARK, THEN               4F11758     
       03612 -0 10000 0 03602        TNZ CB201                     GO EXAMINE NEXT CHARACTER.         4F11759     
 D     03613  1 00000 0 02404        TXI ARITH,0                 * THIS IS AN ARITHMETIC FORMULA.     4F11760     
       03614  2 00001 1 03564 CB500  TIX CB001,1,1                  IF PAREN-COUNT DOES NOT BALANCE,  4F11761     
       03615  0 07400 4 03400        TSX DIAG,4                  * ERROR-GO TO DIAGNOSTIC ROUTINE.    4F11762     
                                          END OF PROGRAM CB000.                                       4F11763     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11764     
                                                                                                      4F11765     
                                         CC000/ CALLS=CC500,C0190X,DIAG,C0190,TET00.                  4F11766     
                                         CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITHMETIC.       4F11767     
       03616  0 60000 0 01113 CC000  STZ 2G                        SET DICTIONARY WORD TAG, AND       4F11768     
       03617  0 53400 3 01406        LXA L(0),3                    CHARACTER COUNT AND ENTRY COUNT.   4F11769     
       03620  0 07400 4 01671 CC001  TSX C0190X,4                * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11770     
       03621  0 07400 4 05743        TSX CC500,4                 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11771     
       03622  0 34000 0 01374        CAS ENDMK                     TEST FOR CONSECUTIVE ENDMARKS.     4F11772     
       03623  0 02000 0 03272        TRA ERR77P                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11773     
       03624  0 07400 4 03400        TSX DIAG,4                  * ERROR = NOT FOUND IN DICTIONARY.   4F11774     
 D     03625  1 00000 4 03632        TXI CC004,4                   GO BEGIN COMARISION.               4F11775     
       03626  0 07400 4 05743 CC002  TSX CC500,4                 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11776     
       03627  0 34000 0 01374        CAS ENDMK                     TEST FOR END OF DIC ENTRY.         4F11777     
 D     03630  1 00000 0 03272        TXI ERR77P,0                * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11778     
 D     03631  1 00000 0 03644        TXI CC007,0                   IF END OF ENTRY, LOOK NO FURTHER.  4F11779     
       03632  0 60100 0 01105 CC004  STO 1C                        OTHERWISE, SAVE CHARACTER          4F11780     
       03633 -0 60000 0 01106        STQ 1C+1                      AND REMAINDER OF DICTIOANRY WORD.  4F11781     
       03634  0 07400 4 01707        TSX C0190,4                 * GO GET NEXT FORMULA CHARACTER,     4F11782     
       03635  0 56000 0 01106        LDQ 1C+1                      AND RESTORE DICTIONARY WORD.       4F11783     
       03636  0 40200 0 01105        SUB 1C                        IF CHARCATERS ARE EQUAL,           4F11784     
       03637  0 10000 0 03626        TZE CC002                     THEN GO COMPARE NEXT CHARACTER.    4F11785     
       03640  0 07400 4 05743 CC005  TSX CC500,4                 * OTHERWISE, EXAMINE NEXT DIC CHAR.  4F11786     
       03641  0 40200 0 01374        SUB ENDMK                     CONTINUE UNTIL AN ENDMARK IS       4F11787     
       03642 -0 10000 0 03640        TNZ CC005                     FOUND, THEN                        4F11788     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 069/069 ------           
       03643  1 77777 1 03620        TXI CC001,1,-1                COUNT ENTRY, AND BEGIN AGAIN.      4F11789     
       03644  0 50000 1 06246 CC007  CLA T,1                       IF THE CURRENT STATEMENT IS        4F11790     
       03645  0 12000 1 06246        TPL T,1                       OF THE NON-EXCUTABLE TYPE,         4F11791     
       03646 -0 63400 1 01107        SXD 1C+2,1                    THEN                               4F11792     
       03647  0 07400 1 03321        TSX TET00,1                 * GO ENTER EIFNO IN THE              4F11793     
       03650  0 00000 0 00016        PZE 14                        NONEXC TABLE.                      4F11794     
       03651 -0 53400 1 01107        LXD 1C+2,1                    AND THEN                           4F11795     
       03652  0 02000 1 06246 CC008  TRA T,1                     * TAKE INDICATED TRANSFER.           4F11796     
                                          END OF PROGRAM CC000.                                       4F11797     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11798     
                                                                                                      4F11799     
                                         STATEA/2-PROCESS CONTROL AND SPECIFICATION STATEMENTS=       4F11800     
                                                                                                      4F11801     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11802     
                                                                                                      4F11803     
                                         C0100/ CALLS=GETIFN,C0190,TEST..,C0180,C0160,C0150,TET00.    4F11804     
                                         C0100 PROCESSES DO STATEMENTS.                               4F11805     
       03653  0 07400 4 02366 C0100  TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C. 4F11806     
       03654  0 07400 4 01707        TSX C0190,4                 * OBTAIN 1ST NON-BLANK CHARACTER     4F11807     
       03655  0 07400 4 03315        TSX TESTI0,4                * WHICH SHOULD BE NUMERIC.           4F11808     
       03656  0 07400 2 01655        TSX C0180,2                 * OBTAIN IN 1G THE BIN EQUIV OF BETA.4F11809     
       03657  0 60100 0 01113        STO 2G                        SAVE THE 1ST CHAR OF SUBSCRIPT.    4F11810     
       03660  0 50000 0 01112        CLA 1G                        TAKE CONVERTED RESULT FOR BETA     4F11811     
       03661  0 62100 0 01105        STA 1C                        AND STORE IN ADDR OF 1C.           4F11812     
       03662  0 50000 0 01113        CLA 2G                        1C IS NOW COMPETE EXCEPT FOR TAG.  4F11813     
       03663  0 07400 2 01624        TSX C0160,2                 * OBTAIN IN 1G THE SUBSCRIPT.        4F11814     
       03664  0 50000 0 01112        CLA 1G                        STORE SUBSCRIPT                    4F11815     
       03665  0 60100 0 01106        STO 1C+1                       IN 1C+1.                          4F11816     
       03666  0 07400 2 01604        TSX C0150,2                 * OBTIAN IN 1G THE PROPER N1.        4F11817     
       03667  0 50000 0 01112        CLA 1G                        STORE N1                           4F11818     
       03670  0 60100 0 01107        STO 1C+2                      IN 1C+2.                           4F11819     
       03671 -0 50000 0 01353        CAL I                         OBTAIN I IN LOGICAL ACC AND        4F11820     
       03672  0 77100 0 00022        ARS 18                        STORE IN POS 18 OF 1C              4F11821     
       03673 -0 60200 0 01105        ORS 1C                        0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11822     
       03674  0 07400 2 01604        TSX C0150,2                 * OBTAIN IN 1G THE PROPER N2.        4F11823     
       03675  0 07400 4 03247        TSX TESTA0,4                * TEST THE AC FOR COMMA OR ENDMARK.  4F11824     
       03676 -0 10000 0 03701        TNZ C0113                     IF ENDMARK, THEN                   4F11825     
       03677 -0 77300 0 00037        RQL 31                        CREATE ONE IN MQ FOR N3            4F11826     
       03700 -0 60000 0 01365        STQ RESIDU                    AND PLACE IN RESIDU.               4F11827     
       03701  0 50000 0 01112 C0113  CLA 1G                        STORE N2                           4F11828     
       03702  0 60100 0 01110        STO 1C+3                      IN 1C+3.                           4F11829     
       03703 -0 50000 0 01353        CAL I                         OBTAIN I IN LOG ACC AND            4F11830     
       03704  0 77100 0 00023        ARS 19                        STORE IN POS 19 OF 1C              4F11831     
       03705 -0 60200 0 01105        ORS 1C                        0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11832     
       03706  0 07400 2 01604        TSX C0150,2                 * OBTAIN IN 1G THE PROPER N3.        4F11833     
       03707  0 07400 4 03271        TSX TESTD0,4                * THE AC SHOULD CONTIAN AN ENDMARK.  4F11834     
       03710  0 50000 0 01112        CLA 1G                        STORE N3                           4F11835     
       03711  0 60100 0 01111        STO 1C+4                      IN 1C+4.                           4F11836     
       03712 -0 50000 0 01353        CAL I                         OBTAIN I IN LOG ACC AND            4F11837     
       03713  0 77100 0 00024        ARS 20                        STORE IN POS 20 OF 1C              4F11838     
       03714 -0 60200 0 01105        ORS 1C                        0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11839     
       03715  0 07400 1 03321        TSX TET00,1                 * GO TO TET PROGRAM TO ENTER         4F11840     
       03716  0 00000 0 00001        PZE 1                         1C,1C+1,..1C+4 IN TDO TABLE 1.     4F11841     
 D     03717  1 00000 0 03440        TXI CA010,0                 * EXTI TO PROCESS NEXT STATEMENT.    4F11842     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 070/070 ------           
                                          END OF PROGRAM C0100.                                       4F11843     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11844     
                                                                                                      4F11845     
                                         C0200/ CALLS=GETIFN,DIAG,TEST..,C0190,C0180,TET00,C0160,     4F11846     
                                         CIT00,SS000(CSA000).                                         4F11847     
                                         C0200 PROCESSES GO TO STATEMENTS.                            4F11848     
       03720  0 07400 4 02366 C0200  TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C  4F11849     
       03721  0 60100 0 01107        STO 1C+2                      AND IN 1C+2.                       4F11850     
       03722  0 07400 4 01707        TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHARACTER    4F11851     
       03723  0 34000 0 01417        CAS L(9)                      AND COMPARE IT WITH 9.             4F11852     
 D     03724  1 00000 0 03733        TXI C0205,0                   IF NON-NUMERIC, GO COMPARE WITH (. 4F11853     
       03725  0 76100 0 00000        NOP                           IF NUMERIC, THEN                   4F11854     
       03726  0 07400 2 01655        TSX C0180,2                 * OBTAIN IN 1G THE BINARY EQUV BETA. 4F11855     
       03727  0 07400 4 03271        TSX TESTD0,4                * THE AC SHOULD CONTAIN AN ENDMARK.  4F11856     
       03730  0 50000 0 01112        CLA 1G                        STORE BETA IN 1C+1 TO CONSTRUCT    4F11857     
       03731  0 60100 0 01106        STO 1C+1                      THE 2ND WORD OF TIFGO TABLE ENTRY. 4F11858     
 D     03732  1 00000 0 04030        TXI C0202,0                   GO  TO ENTER 1C,1C+1 INTO TIFGO.   4F11859     
       03733  0 34000 0 01375 C0205  CAS ALPAR                     TEST CHARACTER FOR ALPHABETIC.     4F11860     
 D     03734  1 00000 0 03736        TXI C0210,0                   IF NOT ALPHABETIC, THEN            4F11861     
 D     03735  1 00000 0 03746        TXI C0212,0                   THIS IS TYPE= GO TO ( ), I.        4F11862     
       03736  0 07400 2 01624 C0210  TSX C0160,2                 * TYPE= GO TO N,(),SO OBTAIN IN 1G N 4F11863     
       03737  0 07400 4 03305        TSX TESTG0,4                * WHICH SHOULD BE FOLLOWED BY COMMA. 4F11864     
       03740  0 50000 0 01112        CLA 1G                        SAVE THE SYMBOL N IN 1C+3          4F11865     
       03741  0 60100 0 01110        STO 1C+3                      FOR COMPILED INSTRUCTION.          4F11866     
       03742  0 07400 4 01707        TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHARACTER,   4F11867     
       03743  0 07400 4 03275        TSX TESTE0,4                * WHICH SHOULD BE A LPARAN.          4F11868     
       03744  0 50000 0 01407        CLA L(1)                      PREPARE TO SET ADDRESS PART OF 1C  4F11869     
       03745  0 02000 0 03747        TRA C0213                     TO 1 TO INDICATE CLASS OF TRANSFER.4F11870     
       03746  0 50000 0 01410 C0212  CLA L(2)                      PREPARE TO SET ADDR OF 1C TO 2.    4F11871     
       03747  0 62100 0 01105 C0213  STA 1C                        STORE 1 OR 2 IN ADDR OF 1C.        4F11872     
       03750 -0 53400 2 04032        LXD CTRAD,2                   OBTAIN 250-(NO. TRAD ENTRIES), AND 4F11873     
       03751 -0 75400 2 00000        PXD ,2                        PLACE IN THE DECREMENT OF THE AC   4F11874     
       03752  0 60100 0 01106        STO 1C+1                      AND STORE IN 1C+1.                 4F11875     
       03753  0 07400 4 01707 C0215  TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHAR.        4F11876     
       03754  0 07400 2 01655        TSX C0180,2                 * OBTAIN IN 1G THE BIN EQU OF BETA.  4F11877     
       03755  0 60100 0 01113        STO 2G                        SAVE CHAR IN ACC.                  4F11878     
       03756  0 07400 1 03321        TSX TET00,1                 * GO TO ENTER 1G                     4F11879     
       03757  0 00000 0 00003        PZE 3                         INTO TRAD TABLE (TABLE 3).         4F11880     
       03760 -0 53400 2 04032        LXD CTRAD,2                   REDUCE COUNTER                     4F11881     
       03761  2 00001 2 03762        TIX C0216,2,1                 CTRAD                              4F11882     
       03762 -0 63400 2 04032 C0216  SXD CTRAD,2                   BY 1.                              4F11883     
       03763  0 50000 0 01113        CLA 2G                        RESTORE CHAR TO ACC.               4F11884     
       03764  0 07400 4 03255        TSX TESTB0,4                * TEST FOR COMMA OR RPAREN.          4F11885     
       03765 -0 10000 0 03753        TNZ C0215                     IF RIGHT PARENTHESIS, THEN         4F11886     
       03766  0 50000 0 04032        CLA CTRAD                     OBTAIN IN ADDR OF ACC 250-NO. OF   4F11887     
       03767  0 77100 0 00022        ARS 18                        ENTRIES IN TRAD TABLE,AND STORE    4F11888     
       03770  0 62100 0 01106        STA 1C+1                      IN ADDR OF 1C+1.                   4F11889     
       03771  0 50000 0 01105        CLA 1C                        OBTAIN 1C IN ACC                   4F11890     
       03772  0 76000 0 00001        LBT                           AND TEST LOW ORDER BIT.            4F11891     
       03773  0 02000 0 04004        TRA C0220                     THIS IS A TYPE GO TO (),I FORMULA. 4F11892     
       03774  0 07400 4 01707        TSX C0190,4                 * OBTAIN NEXT NB CHAR AND            4F11893     
       03775  0 07400 4 03271        TSX TESTD0,4                * TEST FOR ENDMK.                    4F11894     
       03776  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F11895     
       03777  0 00000 0 01107        PZE 1C+2                      WORD 1--DECR= INTFORMNN (LOCATION) 4F11896     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 071/071 ------           
       04000  0 00000 0 01601        PZE L(TRA)                    WORD 2--TRA00P (OP AND DECR)       4F11897     
       04001  0 00000 0 01110        PZE 1C+3                      WORD 3--VARIABLE N (ADDRESS)       4F11898     
       04002  0 00000 0 01406        PZE L(0)                      WORD 4--00000 (REL ADDR AND TAG).  4F11899     
       04003  0 02000 0 04030        TRA C0202                     GO TO ENTER 1C,1C+1 INTO TIFGO.    4F11900     
       04004  0 07400 4 01707 C0220  TSX C0190,4                 * EXAMINE NEXT NB CHARACTER,         4F11901     
       04005  0 07400 4 03305        TSX TESTG0,4                * WHICH SHOULD BE A COMMA.           4F11902     
       04006  0 07400 4 01707        TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHAR, AND    4F11903     
       04007  0 07400 2 01624        TSX C0160,2                 * OBTAIN IN 1G THE FXF-PT. VARIABLE. 4F11904     
       04010  0 07400 4 03271        TSX TESTD0,4                * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F11905     
       04011  0 50000 0 01407        CLA L(1)                      PREPARE PROPER FORM OF SUBSCRIPT   4F11906     
       04012  0 60100 0 01131        STO E+3                       COMBINATION AS                     4F11907     
       04013  0 60100 0 01100        STO DIMCTR                    INPUT TO SUBSCRIPT ANALYSIS=       4F11908     
       04014  0 50000 0 01112        CLA 1G                        E+3 = 1ST COEFFICIENT.             4F11909     
       04015  0 60100 0 01132        STO E+4                       E+4 = 1ST SUBSCRIPT VARIABLE,      4F11910     
       04016  0 60000 0 01137        STZ E+9                       E+9 = ADDEND OF SUBSCRIPT,         4F11911     
       04017  0 07400 4 03027        TSX CSA000,4                * DIMCTR = DIMENSION OF VARIABLE.    4F11912     
       04020  0 50000 0 01126        CLA E                         OUTPUT FROM CSA IS FOUND IN        4F11913     
       04021  0 77100 0 00030        ARS 24                        E = I--TAUTAG (GENERAL TAG) 1-11.  4F11914     
       04022  0 60100 0 01113        STO 2G                        ADJUST AND SAVE FOR COMP. INSTR.   4F11915     
       04023  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F11916     
       04024  0 00000 0 01107        PZE 1C+2                      WORD 1--DECR-INTFORMNO(LOCATION)   4F11917     
       04025  0 00000 0 01601        PZE L(TRA)                    WORD 2--TRA000(OP AND DECR)        4F11918     
       04026  0 00000 0 01406        PZE L(0)                      WORD 3--000000(ADDRESS)            4F11919     
       04027  0 00000 0 01113        PZE 2G                        WORD 4--ADDR = TAUTAG FOR I        4F11920     
                                         C0200= ENTRY POINT USED BY C0400,C1000.                      4F11921     
       04030  0 07400 1 03321 C0202  TSX TET00,1                 * GO TO TET TO ENTER 1C AND 1C+1     4F11922     
       04031  0 00000 0 00002        PZE 2                         INTO TIFGO TABLE (TABLE 2).        4F11923     
       04032  1 00372 0 03440  CTRAD TXI CA010,0,250             * EXIT TO PROCESS NEXT STATEMENT.    4F11924     
                                          END OF PROGRAM C0200.                                       4F11925     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11926     
                                                                                                      4F11927     
                                         C0300/ CALLS=-C0190X,C0190,C0390,TEST..,DIAG,C0180,TET00,    4F11928     
                                         STATEB.                                                      4F11929     
                                         C0300 PROCESSES IF STATEMENTS.                               4F11930     
       04033 -0 53400 4 00030 C0300  LXD EIFNO,4                   PLACE THE CURRENT INTERNAL FORMULA 4F11931     
       04034 -0 75400 4 00000        PXD ,4                        NUMBER IN THE DECREMENT OF 1C      4F11932     
       04035 -0 76000 0 00003        SSM                           WITH SIGN SET TO MINUS             4F11933     
       04036  0 60100 0 01105        STO 1C                        FOR FUTURE TIFGO ENTRY.            4F11934     
       04037  0 07400 4 01671        TSX C0190X,4                * SET CHCTR AND FWA TO BEGIN SCAN.   4F11935     
       04040  0 07400 4 01707        TSX C0190,4                 * OBTAIN IN AC THE 1ST NB CHAR (I).  4F11936     
       04041  0 56000 0 01433        LDQ L(X)                      REPLACW THE CHARACTER I            4F11937     
       04042  0 07400 4 01675        TSX C0390,4                 * WITH THE CHARACTER X.              4F11938     
       04043  0 56000 0 01373        LDQ L(10)                     REPALCE THE CHARACTER F            4F11939     
       04044  0 07400 4 01675        TSX C0390,4                 * WITH THE CHARACTER 001010.         4F11940     
       04045  0 07400 4 03275        TSX TESTE0,4                * IF NOT LPAREN -- THEN ERROR.       4F11941     
       04046  0 56000 0 01400        LDQ AEQUAL                    REPLACE THE CHARACTER LPARAN       4F11942     
       04047  0 07400 4 01675        TSX C0390,4                 * WITH THE CHARACTER EQUAL.          4F11943     
       04050  0 53400 2 01407        LXA L(1),2                    SET XR2 FOR COUNTING PARENTHESES.  4F11944     
       04051  0 02000 0 04053        TRA *+2                                                          4F11945     
       04052  0 07400 4 01707 C0302  TSX C0190,4                 * MAKE SURE THAT NEXT NB CHARACTER   4F11946     
       04053  0 34000 0 01374        CAS ENDMK                     IS NOT AN ENDMARK.                 4F11947     
       04054  0 02000 0 03272        TRA ERR77P                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11948     
       04055  0 07400 4 03400        TSX DIAG,4                  * PROGRAM ERROR, GO TO DIAGNOSTIC.   4F11949     
       04056  0 34000 0 01375        CAS ALPAR                     IF IT IS A LPAREN,                 4F11950     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 072/072 ------           
 D     04057  1 00000 0 04061        TXI C0303,0                   THEN ADD 1 TO PAREN COUNT, AND     4F11951     
       04060  1 00001 2 04052        TXI C0302,2,1                 GO EXAMINE NEXT CHARACTER.         4F11952     
       04061  0 40200 0 01377 C0303  SUB ARPAR                     IF IT IS A RPAREN,                 4F11953     
       04062 -0 10000 0 04052        TNZ C0302                     THE TEST PAREN COUNT, AND IF IT    4F11954     
       04063  2 00001 2 04052        TIX C0302,2,1                 CAN NOT BE REDUCED,MATE IS FOUND.  4F11955     
       04064  0 56000 0 01374        LDQ ENDMK                     SO REPLACE THE CHARACTER RPAREN    4F11956     
       04065  0 07400 4 01675        TSX C0390,4                 * WITH THE CHARACTER ENDMK.          4F11957     
       04066  0 07400 2 01655        TSX C0180,2                 * BINARY EQUIVALENT OF BETA 1.       4F11958     
       04067  0 07400 4 03305        TSX TESTG0,4                * THIS SHOULD BE FOLLOWED BY A COMMA.4F11959     
       04070  0 50000 0 01112        CLA 1G                        MOVE BETA1                         4F11960     
       04071  0 62100 0 01105        STA 1C                        TO ADDRESS OF 1C.                  4F11961     
       04072  0 07400 4 01707        TSX C0190,4                 * AND PROCEED TO FORM                4F11962     
       04073  0 07400 2 01655        TSX C0180,2                 * THE BINARY EQUIVALENT OF BETA 2.   4F11963     
       04074  0 07400 4 03305        TSX TESTG0,4                * THIS SHOULD BE FOLLWED BY A COMMA. 4F11964     
       04075  0 50000 0 01112        CLA 1G                        MOVE BETA2                         4F11965     
       04076  0 76700 0 00022        ALS 18                        TO DECR PART                       4F11966     
       04077  0 60100 0 01106        STO 1C+1                      OF 1C+1.                           4F11967     
       04100  0 07400 4 01707        TSX C0190,4                 * AND PROCEED TO FORM                4F11968     
       04101  0 07400 2 01655        TSX C0180,2                 * THE BINARY EQUIVALENT OF BETA 3.   4F11969     
       04102  0 07400 4 03271        TSX TESTD0,4                * THIS SHOULD BE FOLLOWED BY ENDMARK.4F11970     
       04103  0 50000 0 01112        CLA 1G                        MOVE BETA3                         4F11971     
       04104  0 62100 0 01106        STA 1C+1                      TO ADDRESS OF 1C+1.                4F11972     
 D     04105  1 00000 0 02404        TXI ARITH,0                 * EXIT TO ARITH FOR FINAL PROCESSING.4F11973     
                                          END OF PROGRAM C0300.                                       4F11974     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11975     
                                                                                                      4F11976     
                                         C0400/ CALLS=C0190,C0180,TEST..,CIT00,C0200.                 4F11977     
                                         C0400 PROCESSES IF (SENSE SWITCH STATEMENTS.                 4F11978     
       04106  0 50000 0 01441 C0400  CLA L(112)                    FOR SENSE SWITCH                   4F11979     
       04107  0 60100 0 01115        STO 1H                        SET 1H TO 112, AND PREPARE TO      4F11980     
       04110  0 50000 0 01565        CLA L(PSE)                    SET 2H TO PSE.                     4F11981     
                                         C0401= ENTRY POINT USED BY C0500.                            4F11982     
       04111  0 60100 0 01116 C0401  STO 2H                        SET 2H FOR SENSE SWITCH OR LIGHT.  4F11983     
       04112  0 07400 4 01707        TSX C0190,4                 * PROCEED TO FORM THE BINARY         4F11984     
       04113  0 07400 2 01655        TSX C0180,2                 * EQUIVALENT OF SW OR SL NUMBER.     4F11985     
       04114  0 07400 4 03301        TSX TESTF0,4                * THIS SHOULD BE FOLLOWED BY RPAREN. 4F11986     
       04115  0 50000 0 01411        CLA L(3)                      STORE 3                            4F11987     
       04116  0 60100 0 01105        STO 1C                        IN ADDRESS OF 1C.                  4F11988     
       04117  0 50000 0 01112        CLA 1G                        ADD THE PROPER INCREMENT TO THE    4F11989     
       04120  0 40000 0 01115        ADD 1H                        NUMBER OF SENSE SWITCH OR LIGHT,   4F11990     
       04121  0 76700 0 00022        ALS 18                        AND ADJUST TO THE DECREMENT.       4F11991     
                                         C0402= ENTRY POINT USED BY C0600.                            4F11992     
       04122  0 60100 0 01110 C0402  STO 1C+3                      SET 1C+3 FOR CIT ENTRY.            4F11993     
       04123 -0 53400 4 00030        LXD EIFNO,4                   PLACE THE CURRENT INTERNAL FORMULA 4F11994     
       04124 -0 75400 4 00000        PXD ,4                        NUMBER IN THE DECREMENT OF         4F11995     
       04125  0 62200 0 01105        STD 1C                         1C FOR FUTURE TIFGO ENTRY, AND    4F11996     
       04126  0 60100 0 01107        STO 1C+2                      1C+2 FOR FUTURE CIT ENTRY.         4F11997     
       04127  0 07400 4 01707        TSX C0190,4                 * PROCEED TO FORM THE BINARY         4F11998     
       04130  0 07400 2 01655        TSX C0180,2                 * EQUIVALENT OF BETA 1,              4F11999     
       04131  0 07400 4 03305        TSX TESTG0,4                * WHICH SHOULD BE FOLLOWED BY COMMA. 4F12000     
       04132  0 50000 0 01112        CLA 1G                        BRING UP,                          4F12001     
       04133  0 76700 0 00022        ALS 18                        ADJUST AND                         4F12002     
       04134  0 60100 0 01106        STO 1C+1                      STORE BETA1 IN DECR OF 1C+1.       4F12003     
       04135  0 07400 4 01707        TSX C0190,4                 * PROCEED TO FORM THE BINARY         4F12004     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 073/073 ------           
       04136  0 07400 2 01655        TSX C0180,2                 * EQUIVALENT OF BETA 2,              4F12005     
       04137  0 07400 4 03271        TSX TESTD0,4                * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F12006     
       04140  0 50000 0 01112        CLA 1G                        BRING UP AND                       4F12007     
       04141  0 62100 0 01106        STA 1C+1                      STORE BETA2 IN ADDR OF 1C+1.       4F12008     
       04142  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12009     
       04143  0 00000 0 01107        PZE 1C+2                      WORD1--DECR = INTFORMNO (LOCATION) 4F12010     
       04144  0 00000 0 01116        PZE 2H                        WORD2--PSE,MSE,DCT,TOV,OR TQO.     4F12011     
       04145  0 00000 0 01406        PZE L(0)                      WORD3--000000 (ADDRESS)            4F12012     
       04146  0 00000 0 01110        PZE 1C+3                      WORD4--DECR=SS OR SL NO., OR 0000004F12013     
 D     04147  1 00000 0 04030        TXI C0202,0                 * MAKE TIFGO ENTRY, AND RETURN TO CA.4F12014     
                                          END OF PROGRAM C0400.                                       4F12015     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12016     
                                                                                                      4F12017     
                                         C0500/ USES=C0400.                                           4F12018     
                                         C0500 PROCESSES IF (SENSE LIGHT STATMENTS.                   4F12019     
       04150  0 50000 0 01440 C0500  CLA L(96)                     STORE 96 IN                        4F12020     
       04151  0 60100 0 01115        STO 1H                        1H AND                             4F12021     
       04152  0 50000 0 01563        CLA L(MSE)                    OBTAIN (MSE000) IN ACC.            4F12022     
       04153  0 02000 0 04111        TRA C0401                   * AND CONTINUE BY USING PROGRAM C04. 4F12023     
                                          END OF PROGRAM C0500.                                       4F12024     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12025     
                                                                                                      4F12026     
                                         C0600/ USES=C0400.                                           4F12027     
                                         C0600 PROCESSES IF DIVIDE CHECK STATEMENTS.                  4F12028     
       04154  0 50000 0 01545 C0600  CLA L(DCT)                    STORE (DCT000)                     4F12029     
       04155  0 60100 0 01116        STO 2H                        IN 2H                              4F12030     
       04156  0 50000 0 01412        CLA L(4)                      AND PICK UP 4 TO SET 1C.           4F12031     
                                         C0601= ENTRY POINT USED BY C0700.                            4F12032     
       04157  0 60100 0 01105 C0601  STO 1C                        SET 1C FOR FUTURE TIFGO ENTRY.     4F12033     
       04160 -0 75400 0 00000        PXD ,0                        CLEAR THE AC,                      4F12034     
       04161  0 02000 0 04122        TRA C0402                   * AND CONTINUE BY USING PROGRAM C04. 4F12035     
                                          END OF PROGRAM C0600.                                       4F12036     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12037     
                                                                                                      4F12038     
                                         C0700/ USES C0600.                                           4F12039     
                                         C0700 PROCESSES IF AC OVERFLOW STATEMENTS.                   4F12040     
       04162  0 50000 0 01577 C0700  CLA L(TOV)                    PICKUP TOV000 TO SET 2H.           4F12041     
                                         C0701= ENTRY POINT USED BY C0800.                            4F12042     
       04163  0 60100 0 01116 C0701  STO 2H                        SET 2H FOR FUTURE CIT ENTRY.       4F12043     
       04164  0 50000 0 01413        CLA L(5)                      PICKUP 5 TO SET 1C, AND            4F12044     
       04165  0 02000 0 04157        TRA C0601                   * CONTINUE BY USING PROGRAM C06.     4F12045     
                                          END OF PROGRAM C0700.                                       4F12046     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12047     
                                                                                                      4F12048     
                                         C0800/ USES=C0700.                                           4F12049     
                                         C0800 PROCESSES IF MQ OVERFLOW STATEMENTS.                   4F12050     
       04166  0 50000 0 01600 C0800  CLA L(TQO)                    PICKUP TQO000 TO SET 2H,           4F12051     
       04167  0 02000 0 04163        TRA C0701                   * AND CONTINUE BY USING PROGRAM C07. 4F12052     
                                          END OF PROGRAM C0800.                                       4F12053     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12054     
                                                                                                      4F12055     
                                         C0900/ CALLS=C0190,CIT00,DIAG. CALLER=C1300.                 4F12056     
                                         C0900 PROCESSES PAUSE STATEMENTS.                            4F12057     
       04170 -0 53400 2 04175 C0900  LXD C090X,2                   SET XR2 FOR EXIT TO CA000.         4F12058     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 074/074 ------           
                                         C0901= ENTRY POINT USED BY C1300.                            4F12059     
       04171  0 60000 0 01112 C0901  STZ 1G                        CLEAR 1G.                          4F12060     
       04172  0 07400 4 01707 C0902  TSX C0190,4                 * TEST NEXT NON-BLANK CHARACTER      4F12061     
       04173  0 34000 0 01374        CAS ENDMK                     FOR END OF STATEMENT MARK.         4F12062     
       04174  0 02000 0 03272        TRA ERR77P                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F12063     
       04175  1 74341 0 04202 C090X  TXI C0903,0,-CA010+1          IF NOT END OF STATEMENT, THEN      4F12064     
       04176  0 40000 0 01112        ADD 1G                        ADD 1G TO DIGIT,                   4F12065     
       04177  0 76700 0 00003        ALS 3                         MULTIPLY BY 8.                     4F12066     
       04200  0 60100 0 01112        STO 1G                        AND STORE BACK IN 1G.              4F12067     
 D     04201  1 00000 0 04172        TXI C0902,0                   CONTINUE UNTIL END OF STATEMENT.   4F12068     
       04202  0 50000 0 01112 C0903  CLA 1G                        THEN PLACE OCTAL ALPHA             4F12069     
       04203  0 76700 0 00017        ALS 15                        IN THE DECREMENT                   4F12070     
       04204  0 60100 0 01105        STO 1C                        OF 1C FOR FUTURE CIT ENTRY.        4F12071     
       04205 -0 53400 4 00030        LXD EIFNO,4                   PLACE THE CURRENT INTERNAL FORMULA 4F12072     
       04206 -0 75400 4 00000        PXD ,4                        NUMBER IN THE DECREMENT            4F12073     
       04207  0 60100 0 01106        STO 1C+1                      OF 1C+1,WITH ZEROS ELSEWHERE.      4F12074     
       04210  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12075     
       04211  0 00000 0 01106        PZE 1C+1                      WORD1--DECR = INTFORMNO (LOCATION) 4F12076     
       04212  0 00000 0 01554        PZE L(HPR)                    WORD2--HPR000 (OP AND DECR)        4F12077     
       04213  0 00000 0 01406        PZE L(0)                      WORD3--000000 (ADDRESS)            4F12078     
       04214  0 00000 0 01105        PZE 1C                        WORD4--DECR = ALPHA, REST ZEROS.   4F12079     
       04215  0 02000 2 00001        TRA 1,2                     * EXIT TO CA000, OR TO C1300.        4F12080     
                                          END OF PROGRAM C0900.                                       4F12081     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12082     
                                                                                                      4F12083     
                                         C1000/ USES=C0200. CALLS=GETIFN,C0190,C0180,DIAG,C0190,TEST..4F12084     
                                         CIT00.                                                       4F12085     
                                         C1000 PROCESSES ASSIGN STATEMENTS.                           4F12086     
       04216  0 07400 4 02366 C1000  TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C  4F12087     
       04217  0 60100 0 01107        STO 1C+2                       AND 1C+2,WITH ZEROS ELSEWHERE.    4F12088     
       04220  0 50000 0 01414        CLA L(6)                      STORE 6 IN                         4F12089     
       04221  0 62100 0 01105        STA 1C                        ADDRESS OF 1C.                     4F12090     
       04222  0 07400 2 01654        TSX C0180X,2                * GO FORM BINARY EQUIV OF ALPHA.     4F12091     
       04223  0 40200 0 01432        SUB L(T)                      IF NEXT CHARACTER IS NOT T, THEN   4F12093     
       04224  0 10000 0 04226        TZE *+2                       THIS IS AN                         4F12094     
       04225  0 07400 4 03400        TSX DIAG,4                  * ERROR - GO TO THE DIAGNOSTIC.      4F12095     
       04226  0 07400 4 01707        TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER   4F12096     
       04227  0 40200 0 01406        SUB L(0)                      AND IF IT IS NOT 0, THEN           4F12097     
       04230 -0 10000 0 04225        TNZ *-3                       ERROR, GO TO DIAGNOSTIC.           4F12098     
       04231  0 50000 0 01112        CLA 1G                        PUT BIN EQUIV OF ALPHA             4F12099     
       04232  0 60100 0 01106        STO 1C+1                      IN ADDRESS OF 1C+1.                4F12100     
       04233  0 07400 4 01707        TSX C0190,4                 * PROCEED TO ASSEMBLE IN 1G          4F12101     
       04234  0 07400 2 01624        TSX C0160,2                 * THE SYMBOL N.                      4F12102     
       04235  0 07400 4 03271        TSX TESTD0,4                * THE NEXT NB CHAR SHOULD BE ENDMK.  4F12103     
       04236  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12104     
       04237  0 00000 0 01107        PZE 1C+2                      WORD1--DECR = INTFORMNO (LOCATION) 4F12105     
       04240  0 00000 0 01541        PZE L(CLA)                    WORD2--CLA000 (OP AND DECR)        4F12106     
       04241  0 00000 0 01406        PZE L(0)                      WORD3--000000 (ADDRESS)            4F12107     
       04242  0 00000 0 01406        PZE L(0)                      WORD4--000000 (RELADDR AND TAG).   4F12108     
       04243  0 07400 4 01731        TSX CIT00,4                 * STORE SECOND COMPILED INSTRUCTION= 4F12109     
       04244  0 00000 0 01406        PZE L(0)                      WORD1--000000  (ALL ZEROS)         4F12110     
       04245  0 00000 0 01572        PZE L(STO)                    WORD2--STO000 (OP AND DECR)        4F12111     
       04246  0 00000 0 01112        PZE 1G                        WORD3--SYMBOL N (ADDRESS)          4F12112     
       04247  0 00000 0 01406        PZE L(0)                      WORD4--000000 (REL ADDR AND TAG).  4F12113     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 075/075 ------           
       04250  0 02000 0 04030        TRA C0202                   * CONTINUE BY USING PROGRAM C02.     4F12114     
                                          END OF PROGRAM C1000.                                       4F12115     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12116     
                                                                                                      4F12117     
                                         C1100/ CALLS=C0190,C0180,TEST..,GETIFN,CIT00.                4F12118     
                                         C1100 PROCESSES SENSE LIGHT STATMENTS.                       4F12119     
       04251  0 07400 2 01654 C1100  TSX C0180X,2                * GO FORM BINARY EQUIV OF SL NUMBER. 4F12120     
       04252  0 07400 4 03271        TSX TESTD0,4                * THE NEXT NB CHARACTER SHD BE ENDMK.4F12122     
       04253  0 50000 0 01112        CLA 1G                        STORE SENSE LIGHT NUMBER           4F12123     
       04254  0 40000 0 01440        ADD L(96)                     PLUS 96                            4F12124     
       04255  0 76700 0 00022        ALS 18                        IN DECR                            4F12125     
       04256  0 60100 0 01112        STO 1G                        OF 1G.                             4F12126     
       04257  0 07400 4 02366        TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C. 4F12127     
       04260  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY.   4F12128     
       04261  0 00000 0 01105        PZE 1C                        WORD1--DECR = INTFORMNO (LOCATION) 4F12129     
       04262  0 00000 0 01565        PZE L(PSE)                    WORD2--PSE000 (OP AND DECREMENT)   4F12130     
       04263  0 00000 0 01406        PZE L(0)                      WORD3--000000 (ADDRESS PART)       4F12131     
       04264  0 00000 0 01112        PZE 1G                        WORD4--DECR = 96+ALPHA,REST ZEROS. 4F12132     
 D     04265  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12133     
                                          END OF PROGRAM C1100.                                       4F12134     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12135     
                                                                                                      4F12136     
                                         C1200/ CALLS=C0190,C0160,TEST..,DIM.SR,DIAG,C0180,DRTABS.    4F12137     
                                         C1200 PROCESSES DIMENSION STATEMENTS.                        4F12138     
       04266  0 07400 4 01707 C1200  TSX C0190,4                 * PROCEED TO ASSEMBLE IN 1G          4F12139     
       04267  0 07400 2 01624        TSX C0160,2                 * THE VARIABLE SYMBOL.               4F12140     
       04270  0 07400 4 03275        TSX TESTE0,4                * NEXT NB CHARACTER SHOULD BE LPAREN.4F12141     
       04271  0 50000 0 01112        CLA 1G                        PUT VARIABLE SYMBOL                4F12142     
       04272  0 60100 0 01105        STO 1C                        IN 1C.                             4F12143     
       04273  0 60100 0 01130        STO E+2                       ALSO IN E+2. THEN                  4F12144     
       04274  0 07400 4 01771        TSX DIM1SR,4                * GO SEARCH DIM1 TABLE.              4F12145     
       04275  0 02000 0 04277        TRA C1280                     THEN IF NOT                        4F12146     
       04276  0 02000 0 04304        TRA C1299                     FOUND,                             4F12147     
       04277  0 07400 4 01775 C1280  TSX DIM2SR,4                * GO SEARCH DIM2 TABLE.              4F12148     
       04300  0 02000 0 04302        TRA C1281                     THEN IF NOT                        4F12149     
       04301  0 02000 0 04304        TRA C1299                     FOUND,                             4F12150     
       04302  0 07400 4 02005 C1281  TSX DIM3SR,4                * GO SEARCH DIM3 TABLE.              4F12151     
       04303  0 02000 0 04305        TRA C1282                     DO NOT CONTUINUE IF                4F12152     
       04304  0 07400 4 03400 C1299  TSX DIAG,4                  * VARIABLE PREVIOUSLY APPEARED.      4F12153     
       04305  0 07400 2 01654 C1282  TSX C0180X,2                * GO FORM BINARY EQUIV OF D1.        4F12154     
       04306  0 40200 0 01377        SUB CLOS                      IF NOT 1 DIMENSION,                4F12155     
       04307  0 10000 0 04330        TZE C1210                     THEN                               4F12156     
       04310  0 50000 0 01112        CLA 1G                        PUT D1                             4F12157     
       04311  0 76700 0 00022        ALS 18                        IN DECR                            4F12158     
       04312  0 60100 0 01106        STO 1C+1                      OF 1C+1.                           4F12159     
       04313  0 07400 2 01654        TSX C0180X,2                * GO FORM BINARY EQUIV OF D2.        4F12160     
       04314  0 40200 0 01377        SUB CLOS                      IF NOT 2 DIMENSION,                4F12163     
       04315  0 10000 0 04334        TZE C1220                     THEN                               4F12164     
       04316  0 50000 0 01112        CLA 1G                        PUT D2                             4F12165     
       04317  0 62100 0 01106        STA 1C+1                      IN ADDRESS OF 1C+1.                4F12166     
       04320  0 07400 2 01654        TSX C0180X,2                * GO FORM BINARY EQUIV OF D3.        4F12168     
       04321  0 40200 0 01377        SUB CLOS                      IF MORE THAN 3 DIMENSIONS,         4F12169     
       04322  0 10000 0 04324        TZE *+2                       THIS IS AN                         4F12170     
       04323  0 07400 4 03400        TSX DIAG,4                  * ERROR - GO TO THE DIAGNOSTIC.      4F12171     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 076/076 ------           
       04324  0 50000 0 01112        CLA 1G                        IF 3 DIMENSION, PUT D3             4F12172     
       04325  0 60100 0 01107        STO 1C+2                      IN 1C+2, AND                       4F12173     
       04326  0 07400 4 00467        TSX DIM3IX,4                * GO MAKE DIM3 ENTRY.                4F12174     
 D     04327  1 00000 0 04337        TXI C1201,0                   GO TO TEST FOR END OF STATEMENT.   4F12175     
       04330  0 50000 0 01112 C1210  CLA 1G                        IF 1 DIMENSION, PUT D1             4F12176     
       04331  0 60100 0 01106        STO 1C+1                      IN 1C+1, AND                       4F12177     
       04332  0 07400 4 00455        TSX DIM1IX,4                * GO MAKE DIM1 ENTRY. THEN           4F12178     
 D     04333  1 00000 0 04337        TXI C1201,0                   GO TO TEST FOR END OF STATEMENT.   4F12179     
       04334  0 50000 0 01112 C1220  CLA 1G                        IF 2 DIMENSIONS, PUT D2 IN         4F12180     
       04335  0 62100 0 01106        STA 1C+1                      ADDRESS PART OF 1C+1. AND          4F12181     
       04336  0 07400 4 00462        TSX DIM2IX,4                * GO MAKE DIM2 ENTRY. THEN           4F12182     
       04337  0 07400 4 01707 C1201  TSX C0190,4                 * OBTAIN NB CHAR FOLLOWING RPAREN.   4F12183     
       04340  0 07400 4 03247        TSX TESTA0,4                * TEST FOR COMMA OR ENDMARK.         4F12184     
       04341 -0 10000 0 04266        TNZ C1200                     IF CHARACTER IS ENDMAKR, THEN      4F12185     
 D     04342  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATMENT.     4F12186     
                                          END OF PROGRAM C1200.                                       4F12187     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12188     
                                                                                                      4F12189     
                                         C1300/ CALLS=C0901,TET00,CIT00.                              4F12190     
                                         C1300 PROCESSES STOP STATEMENTS.                             4F12191     
       04343  0 07400 1 03321 C1300  TSX TET00,1                 * GO MAKE EIFNO ENTRY                4F12192     
       04344  0 00000 0 00017        PZE 15                        IN TSTOP TABLE.                    4F12193     
       04345  0 07400 2 04171        TSX C0901,2                 * USE C0900 TO BEGIN PROCESSING.     4F12194     
       04346  0 07400 4 01731        TSX CIT00,4                 * GO MAKE FOLLOWING CIT ENTRY=       4F12195     
       04347  0 00000 0 01406        PZE L(0)                      WORD1--ALL ZEROS                   4F12196     
       04350  0 00000 0 01601        PZE L(TRA)                    WORD2--TRA000 (OP+DECR)            4F12197     
       04351  0 00000 0 01106        PZE 1C+1                      WORD3--DECR = INTFORMNO (SYMBOL)   4F12198     
       04352  0 00000 0 01406        PZE L(0)                      WORD4--ZEROS (REL ADDR AND TAG)    4F12199     
 D     04353  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12200     
                                          END OF PROGRAM C1300.                                       4F12201     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12202     
                                                                                                      4F12203     
                                         C1400/ CALLS=C0190,C0180,TEST..,TET00.                       4F12204     
                                         C1400 PROCESS FREQUENCY STATEMENTS.                          4F12205     
       04354  0 07400 2 01654 C1400  TSX C0180X,2                * GO FORM BINARY EQUIV OF EFN.       4F12206     
       04355  0 07400 4 03275        TSX TESTE0,4                * CHARACTER SHOULD BE A LPAREN.      4F12208     
       04356  0 50200 0 01112        CLS 1G                        CHANGE SIGN OF SYMBOL              4F12209     
       04357  0 60100 0 01112        STO 1G                        TO MINUS.                          4F12210     
       04360  0 07400 1 03321        TSX TET00,1                 * GO TO PROGRAM TET TO ENTER         4F12211     
       04361  0 00000 0 00007        PZE 7                                                            4F12212     
       04362  0 07400 2 01654 C1401  TSX C0180X,2                * GO FORM BINARY EQUIV OF M(1).      4F12213     
       04363  0 60100 0 01105        STO 1C                        SAVE CHAR IN ACC.                  4F12215     
       04364  0 07400 1 03321        TSX TET00,1                 * GO TO PROGRAM TET TO ENTER M(1)    4F12216     
       04365  0 00000 0 00007        PZE 7                         INTO TABLE FRET (TABLE7), AND      4F12217     
       04366  0 50000 0 01105        CLA 1C                        RESTORE CHAR IN ACC, AND           4F12218     
       04367  0 07400 4 03255        TSX TESTB0,4                * TEST FOR , OR ).                   4F12219     
       04370 -0 10000 0 04362        TNZ C1401                     IF RIGHT PARENTHESIS, THEN         4F12220     
       04371  0 07400 4 01707        TSX C0190,4                 * OBTAIN IN ACC NEXT NBCHAR, AND     4F12221     
       04372  0 07400 4 03247        TSX TESTA0,4                * TEST FOR COMMA OR ENDMARK.         4F12222     
       04373 -0 10000 0 04354        TNZ C1400                     IF ENDMAKE, THIS STATEMENT IS DONE.4F12223     
 D     04374  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12224     
                                          END OF PROGRAM C1400.                                       4F12225     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12226     
                                                                                                      4F12227     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 077/077 ------           
                                         C1500/ CALLS=C0190,TEST..,C0160,C0180,TET00.                 4F12228     
                                         C1500 PROCESSES EQUIVALENCE STATEMENTS.                      4F12229     
       04375  0 07400 4 01707 C1500  TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC.         4F12230     
       04376  0 07400 4 03275        TSX TESTE0,4                * CHARACTER SHOULD BE A LPARAN.      4F12231     
       04377  0 50000 0 01407 C1501  CLA L(1)                      INITIALIZE 1C                      4F12232     
       04400  0 60100 0 01106        STO 1C+1                      TO 1.                              4F12233     
       04401  0 07400 4 01707        TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC AND      4F12234     
       04402  0 07400 2 01624        TSX C0160,2                 * OBTAIN IN 1G THE SYMBOL V.         4F12235     
       04403  0 56000 0 01112        LDQ 1G                        MOVE V                             4F12236     
       04404 -0 60000 0 01105        STQ 1C                        INTO 1C.                           4F12237     
       04405  0 34000 0 01375        CAS ALPAR                     EXAMINE CHARACTER LEFT IN THE AC,  4F12238     
 D     04406  1 00000 0 04416        TXI C1503,0                   AND IF                             4F12239     
 D     04407  1 00000 0 04411        TXI C1502,0                   CHARACTER IS A LEFT PARENTHESIS,   4F12240     
 D     04410  2 00000 0 04416        TIX C1503,0                   THEN                               4F12241     
       04411  0 07400 2 01654 C1502  TSX C0180X,2                * GO FORM BINARY EQUIV OF N.         4F12242     
       04412  0 07400 4 03301        TSX TESTF0,4                * 1ST NON-NUMERIC SHOULD BE A RPAREN.4F12244     
       04413  0 50000 0 01112        CLA 1G                        PUT BIN EQUIV OF N                 4F12245     
       04414  0 60100 0 01106        STO 1C+1                      IN 1C+1.                           4F12246     
       04415  0 07400 4 01707        TSX C0190,4                 * OBTAIN NEXT NBCHAR IN AC, AND      4F12247     
       04416  0 07400 4 03255 C1503  TSX TESTB0,4                * TEST FOR COMMA OR RPAREN.          4F12248     
       04417  0 10000 0 04423        TZE C1504                     IF COMMA, THEN                     4F12249     
       04420  0 07400 1 03321        TSX TET00,1                 * GO TO PROGRAM TET TO ENTER SYMBOL  4F12250     
       04421  0 00000 0 00010        PZE 8                         AND N IN EQUIT (TABLE 8), AND      4F12251     
 D     04422  1 00000 0 04377        TXI C1501,0                   RETURN TO CONTINUE PROCESSING X.   4F12252     
       04423  0 50200 0 01106 C1504  CLS 1C+1                      MAKE SIGN OF N MINUS SINCE         4F12253     
       04424  0 60100 0 01106        STO 1C+1                      THIS IS LAST ITEM.                 4F12254     
       04425  0 07400 1 03321        TSX TET00,1                 * GO TO PROGRAM TET TO ENTER SYMBOL  4F12255     
       04426  0 00000 0 00010        PZE 8                         AND N IN EQUIT (TABLE 8), AND      4F12256     
       04427  0 07400 4 01707        TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC, AND     4F12257     
       04430  0 07400 4 03247        TSX TESTA0,4                * TEST FOR COMMA OR ENDMARK.         4F12258     
       04431 -0 10000 0 04375        TNZ C1500                     IF ENDMARK, THEN                   4F12259     
 D     04432  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12260     
                                          END OF PROGRAM C1500.                                       4F12261     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12262     
                                                                                                      4F12263     
                                         C1600/ CALLS=C0190,TEST..,GIF,BSS.                           4F12264     
                                         C1600 PROCESSES CONTINUE STATEMENTS.                         4F12265     
       04433  0 07400 4 01707 C1600  TSX C0190,4                 * OBTAIN NEXT NBCHAR IN ACC.         4F12266     
       04434  0 07400 4 03271        TSX TESTD0,4                * CHARACTER SHOULD BE AN ENDMARK.    4F12267     
       04435  0 07400 4 02375        TSX GIF,4                   * GET INTERNAL FORMULA NUMBER, AND   4F12268     
       04436  0 07400 2 05674        TSX BSS,2                   * GO COMPILE= IFN BSS 0.             4F12269     
 D     04437  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12270     
                                          END OF PROGRAM C1500.                                       4F12271     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12272     
                                                                                                      4F12273     
                                         C3000/ CALLS=DIAG,C0190,C0160,TEST..,SUBX00,TET00,TESTFX.    4F12274     
                                         C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS.          4F12275     
       04440 -0 50000 0 00422 C3500  CAL TXHOP                                                        4F12276     
       04441  0 63000 0 04454        STP C3003                                                        4F12277     
       04442 -0 53400 4 00030 C3000  LXD EIFNO,4                   EXAMINE INTERNAL FORMULA NO., AND  4F12278     
       04443 -3 00001 4 04445        TXL *+2,4,1                   IF NOT THE 1ST STATEMENT, THEN     4F12279     
       04444  0 07400 4 03400        TSX DIAG,4                  * ERROR - GO TO DIAGNOSTIC.          4F12280     
       04445  0 50000 0 01121        CLA ARGCNT                    SET ARGCNT TO INDICATE TO LATER    4F12281     
       04446  0 76000 0 00003        SSP                           RETURN THAT THERE WAS A PRECEEDING 4F12282     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 078/078 ------           
       04447  0 60100 0 01121        STO ARGCNT                    SUBROUTINE OR FUNCTION STATEMENT.  4F12283     
       04450  0 07400 4 01707        TSX C0190,4                 * IF 1ST CHARACTER OF NAME IS        4F12284     
       04451  0 07400 4 03311        TSX TESTH0,4                * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12285     
       04452  0 07400 2 01624        TSX C0160,2                 * ASSEMBLE NAME IN 1G.               4F12286     
       04453  0 07400 4 03263        TSX TESTC0,4                * NEXT CHAR SHD BE LPAREN OR ENDMARK.4F12287     
 D     04454 -3 00000 0 04457 C3003  TXL *+3,0                                                        4F12288     
       04455  0 50000 0 01112        CLA 1G                                                           4F12289     
       04456  0 60100 0 01332        STO FSNAME                                                       4F12290     
       04457  0 07400 4 03224        TSX SUBX00,4                * FILL OUT NAME WITH BLANKS.         4F12291     
       04460  0 07400 1 03321        TSX TET00,1                 * GO ENTER NAME                      4F12292     
       04461  0 00000 0 00013        PZE 11                        IN SUBDEF TABLE.                   4F12293     
       04462 -0 53400 4 00030        LXD EIFNO,4                   PLACE                              4F12294     
       04463 -0 75400 4 00000        PXD ,4                        INTERNAL FORMULA NUMBER            4F12295     
       04464  0 60100 0 01347        STO G                         IN G.                              4F12296     
 D     04465  1 00000 0 04454        TXI C3003,0                   GO TEST FOR END OF STATEMENT.      4F12297     
       04466  0 40000 0 01374 C3001  ADD ENDMK                     IF NOT ENDMARK, RESTOERE CHARACTER 4F12298     
       04467  0 07400 4 03311        TSX TESTH0,4                * WHICH SHOULD BE NON-NUMERIC        4F12299     
       04470  0 60100 0 01331        STO FIRSTC                    1ST CHARACTER OF ARGUMENT.         4F12300     
       04471  0 07400 2 01624        TSX C0160,2                 * ASSEMBLE ARGUMENT IN 1G.           4F12301     
       04472  0 07400 4 03255        TSX TESTB0,4                * NEXT CHAR SHD BE COMMA OR RPARAN.  4F12302     
       04473  0 50000 0 01112        CLA 1G                         MOVE ARGUMENT                     4F12303     
       04474  0 60100 0 01350        STO G+1                       INTO G+1.                          4F12304     
       04475  0 07400 1 03241        TSX TESTFX,1                * GO TEST FOR FIXED OR FLOATING PT.  4F12305     
 D     04476  1 00000 0 04501        TXI C3004,0                   IF FLOATING PT., SKIP FORVAL ENTRY.4F12306     
       04477  0 07400 1 03321        TSX TET00,1                 * IF FIXED POINT, GO MAKE ENTRY      4F12307     
       04500  0 00000 0 00006        PZE 6                         IN FORVAL TABLE.                   4F12308     
       04501  0 07400 1 03321 C3004  TSX TET00,1                 * IN BOTH CASES, MAKE ENTRIES IN     4F12309     
       04502  0 00000 0 00013        PZE 11                        SUBDEF TABLE.                      4F12310     
       04503  0 50000 0 01121        CLA ARGCNT                    UPDATE                             4F12311     
       04504  0 40000 0 01454        ADD D1                        ARGUMENT COUNT                     4F12312     
       04505  0 60100 0 01121        STO ARGCNT                    BY 1. AND                          4F12313     
       04506  0 07400 4 01707 C3002  TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER.  4F12314     
       04507  0 40200 0 01374        SUB ENDMK                     IF NOT ENDMARK, THEN               4F12315     
       04510 -0 10000 0 04466        TNZ C3001                     GO PROCESS NEXT ARGUMENT.          4F12316     
 D     04511  1 00000 0 03440        TXI CA010,0                 * OTHERWISE, EXIT TO CA000.          4F12317     
                                          END OF PROGRAM C3000.                                       4F12318     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12319     
                                                                                                      4F12320     
                                         C3100/ CALLS=C0190,DIAG,TEST..,C0160,TET00.                  4F12321     
                                         C3100 PROCESSES COMMON STATEMENTS.                           4F12322     
       04512  0 07400 4 01707 C3100  TSX C0190,4                 * GET FIRST NON-BLANK CHAR OF SYMBOL 4F12323     
       04513  0 07400 4 03311        TSX TESTH0,4                * WHICH SHOULD BE NON-NUMERIC.       4F12324     
       04514  0 07400 2 01624        TSX C0160,2                 * ASSEMBLE SYMBOL IN 1G, AND TEST    4F12325     
       04515  0 07400 4 03247        TSX TESTA0,4                * NEXT CHARACTER FOR COMMA OR ENDMK. 4F12326     
       04516  0 73400 4 00000        PAX ,4                        SAVE RESULT OF TEST IN XR4, AND    4F12327     
       04517  0 07400 1 03321        TSX TET00,1                 * GO ENTER THIS SYMBOL               4F12328     
       04520  0 00000 0 00014        PZE 12                        IN COMMON TABLE.                   4F12329     
       04521  0 50000 0 00365        CLA SBDFCN                    ANY ENTRIES IN SUBDEF              4F123291    
       04522  0 10000 0 04534        TZE C3101                     INDICATE THIS IS NOT A             4F123292    
       04523  0 50000 0 01454        CLA 2E18                      MAIN PROGRAM. SINCE THIS           4F123293    
       04524  0 60100 0 01347        STO G                         IS A COMMON                        4F123294    
       04525 -0 50000 0 01112        CAL 1G                        STATEMENT WHICH                    4F123296    
       04526  0 60200 0 01350        SLW G+1                       APPEARS IN A SUBPROGRAM            4F123297    
       04527  0 77100 0 00036        ARS 30                        ENTER ANY                          4F123298    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 079/079 ------           
       04530  0 07400 1 03242        TSX TESTFX+1,1              * FIXED POINT                        4F123299    
       04531  0 02000 0 04534        TRA C3101                     VARIABLES                          4F12330     
       04532  0 07400 1 03321        TSX TET00,1                 * IN                                 4F123301    
       04533  0 00000 0 00006        PZE 6                         FORVAL TABLE.                      4F123302    
       04534  3 00000 4 04512 C3101  TXH C3100,4,0                 IF CHARACTER WAS COMMA, REPEAT.    4F123303    
 D     04535  1 00000 0 03440        TXI CA010,0                 * IF ENDMK, EXIT TO CA000.           4F12331     
                                          END OF PROGRAM C3100.                                       4F12332     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12333     
                                                                                                      4F12334     
                                         C3200/ CALLS=C0190,TEST..,GETIFN,DIAG,CIT00,JIF(GIF).        4F12335     
                                         C3200 PROCESSES RETURN STATEMENTS.                           4F12336     
       04536  0 07400 4 01707 C3200  TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER,  4F12337     
       04537  0 07400 4 03271        TSX TESTD0,4                * WHICH SHOULD BE AN ENDMARK.        4F12338     
       04540  0 07400 4 02366        TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C. 4F12339     
       04541  0 07400 4 02372        TSX JIF,4                   * SET SL TO ALPHA+1.                 4F12340     
       04542  0 50000 0 01121        CLA ARGCNT                    TEST ARGCNT FOR PRECEEDING         4F12341     
       04543  0 12000 0 04545        TPL *+2                       SUBROUTINE - IF NONE, THEN         4F12342     
       04544  0 07400 4 03400        TSX DIAG,4                  * ERROR - GO TO THE DIAGNOSTIC.      4F12343     
       04545  0 50000 0 01332        CLA FSNAME                                                       4F12344     
       04546  0 10000 0 04555        TZE *+7                                                          4F12345     
       04547  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12346     
       04550  0 00000 0 01105        PZE 1C                        WORD1--0(IFN)000                   4F12347     
       04551  0 00000 0 01541        PZE L(CLA)                    WORD2--CLA000                      4F12348     
       04552  0 00000 0 01332        PZE FSNAME                    WORD3--NAME OF FUNCTION            4F12349     
       04553  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F12350     
       04554  0 60000 0 01105        STZ 1C                        CLEAR 1C.                          4F12351     
       04555  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12352     
       04556  0 00000 0 01105        PZE 1C                        WORD1--0(IFN)000                   4F12353     
       04557  0 00000 0 01561        PZE L(LXD)                    WORD2--LXD000                      4F12354     
       04560  0 00000 0 01523        PZE DOLSGN                    WORD3--$                           4F12355     
       04561  0 00000 0 01407        PZE L(1)                      WORD4--000001                      4F12356     
       04562  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12357     
       04563  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12358     
       04564  0 00000 0 01561        PZE L(LXD)                    WORD2--LXD000                      4F12359     
       04565  0 00000 0 01523        PZE DOLSGN                    WORD3--$                           4F12360     
       04566  0 00000 0 01456        PZE ABTAG2                    WORD4--001002                      4F12361     
       04567  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12362     
       04570  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12363     
       04571  0 00000 0 01570        PZE L(QXD)                    WORD2--QXD000                      4F12364     
       04572  0 00000 0 01523        PZE DOLSGN                    WORD3--$                           4F12365     
       04573  0 00000 0 01460        PZE ABTAG3                    WORD4--002000                      4F12366     
       04574  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12367     
       04575  0 00000 0 01367        PZE SL                        WORD1--0(IFN+1)000                 4F12368     
       04576  0 00000 0 01567        PZE L(OPR)                    WORD2--OPRO00                      4F12369     
       04577  0 00000 0 01406        PZE L(0)                      WORD3--000000                      4F12370     
       04600  0 00000 0 01121        PZE ARGCNT                    WORD4--0(N+1)004                   4F12371     
       04601  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12372     
       04602  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12373     
       04603  0 00000 0 01601        PZE L(TRA)                    WORD2--TRA000                      4F12374     
       04604  0 00000 0 01367        PZE SL                        WORD3--0(IFN+1)000                 4F12375     
       04605  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F12376     
 D     04606  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12377     
                                          END OF PROGRAM C3200.                                       4F12378     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12379     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 080/080 ------           
                                                                                                      4F12380     
                                         C3300/ CALLS=C0390,C0190X,C0190,TEST..,ARITH,SUBX00.         4F12381     
                                         C3300 PROCESSES CALL STATEMENTS.                             4F12382     
       04607  0 07400 4 01707 C3300  TSX C0190,4                 * IF 1ST CHARACTER OF NAME IS        4F12383     
       04610  0 07400 4 03311        TSX TESTH0,4                * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12384     
       04611  0 07400 2 01624        TSX C0160,2                 * COLLECT THE REST OF THE NAME, WHICH4F12385     
       04612  0 07400 4 03263        TSX TESTC0,4                * SHD BE FOLLOWED BY LPAREN OR ENDMK.4F12386     
       04613  0 10000 0 04632        TZE C3301                     IF LPAREN, THEN CHANGE CALL TO A   4F12387     
       04614  0 07400 4 01671        TSX C0190X,4                * PSEUDO-ARITHMETIC FORMULA (Z10=).  4F12388     
       04615  0 07400 4 01707        TSX C0190,4                 * PICKUP THE CHARACTER C,            4F12389     
       04616  0 56000 0 01434        LDQ L(Z)                      AND                                4F12390     
       04617  0 07400 4 01675        TSX C0390,4                 * REPLACE C WITH Z.                  4F12391     
       04620  0 56000 0 01373        LDQ L(10)                     AND                                4F12392     
       04621  0 07400 4 01675        TSX C0390,4                 * REPLACE A WITH TEN.                4F12393     
       04622  0 56000 0 01400        LDQ EQUAL                     AND                                4F12394     
       04623  0 07400 4 01675        TSX C0390,4                 * REPLACE FIRST L WITH =.            4F12395     
       04624  0 56000 0 01430        LDQ BLANK                     AND                                4F12396     
       04625  0 07400 4 01675        TSX C0390,4                 * REPLACE SECOND L WITH BLANK.       4F12397     
       04626  0 50000 0 00030        CLA EIFNO                     PUT 1ST IFN OF THIS CAL IN CALLNM  4F12398     
       04627  0 77100 0 00022        ARS 18                        FOR LATER TABLE ENTRY FO           4F12399     
       04630  0 62100 0 01123        STA CALLNM                    FIRST / LAST NUMBERS OF CALLS.     4F12400     
 D     04631  1 00000 0 02404        TXI ARITH,0                 * THEN EXIT TO ARITH TO PROCESS.     4F12401     
       04632  0 07400 4 03224 C3301  TSX SUBX00,4                * IF THERE ARE NO ARGUMENTS, THEN    4F12402     
       04633  0 50000 0 01112        CLA 1G                        AFTER COMPLETING NAME WITH BLANKS, 4F12403     
       04634  0 60100 0 01347        STO G                         MOVE IT INTO G, AND                4F12404     
       04635  0 07400 1 03321        TSX TET00,1                 * GO ENTER NAME                      4F12405     
       04636  0 00000 0 00011        PZE 9                         INTO CLOSUB TABLE.                 4F12406     
       04637  0 07400 4 02366        TSX GETIFN,4                * PUT INTERNAL FORMULA NUMBER IN 1C. 4F12407     
       04640  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12408     
       04641  0 00000 0 01105        PZE 1C                        WORD1--0(IFN)000                   4F12409     
       04642  0 00000 0 01575        PZE L(SXD)                    WORD2--SXD000                      4F12410     
       04643  0 00000 0 01505        PZE X(                        WORD3--700000                      4F12411     
       04644  0 00000 0 01412        PZE L(4)                      WORD4--000004                      4F12412     
       04645  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12413     
       04646  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12414     
       04647  0 00000 0 01602        PZE L(TSX)                    WORD2--TSX000                      4F12415     
       04650  0 00000 0 01112        PZE 1G                        WORD3--(NAME)                      4F12416     
       04651  0 00000 0 01412        PZE L(4)                      WORD4--000004                      4F12417     
       04652  0 07400 4 03401        TSX FLTR00,4                * GO MAKE FLOW TRACING INSTRUCTIONS. 4F12418     
       04653  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12419     
       04654  0 00000 0 01561        PZE L(LXD)                    WORD2--LXD000                      4F12420     
       04655  0 00000 0 01505        PZE X(                        WORD3--700000                      4F12421     
       04656  0 00000 0 01412        PZE L(4)                      WORD4--000004                      4F12422     
 D     04657  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12423     
                                          END OF PROGRAM C3300.                                       4F12424     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12425     
                                                                                                      4F12426     
                                         C3400/ CALLS=C0190,DIAG,TEST...                              4F12427     
                                         C3400 PROCESSES END STATEMENTS.                              4F12428     
       04660  0 53400 2 01413 C3400  LXA L(5),2                    PREPARE TO SET 5 SS SIMULATORS.    4F12429     
       04661  0 07400 4 01707 C3405  TSX C0190,4                 * PICKUP CONSTANT,                   4F12430     
       04662  0 34000 0 01410        CAS L(2)                      WHICH SHOULD BE 0,1, OR 2.         4F12431     
       04663  0 07400 4 03400        TSX DIAG,4                  * OTHERWISE, GO TO THE DIAGNOSTIC.   4F12432     
 D     04664  1 00000 0 04666        TXI C3410,0                   SIMULATOR IS PRESET TO 2.          4F12433     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 081/081 ------           
       04665  0 60100 2 00036        STO ENDI1+5,2                 IF 0 OR 1, SET PROPER SIMULATOR.   4F12434     
       04666  0 07400 4 01707 C3410  TSX C0190,4                 * SKIP NEXT NON-BLANK CHARACTER, AND 4F12435     
       04667  2 00001 2 04661        TIX C3405,2,1                 REPEAT PROCESS FOR 5 CONSTANTS.    4F12436     
       04670  0 07400 4 01707        TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER,  4F12437     
       04671  0 07400 4 03271        TSX TESTD0,4                * WHICH SHOULD BE AN ENDMK.          4F12438     
 D     04672  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12439     
                                          END OF PROGRAM C3400.                                       4F12440     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12441     
                                                                                                      4F12442     
                                         STATEA/3-PROCESS INPUT-OUTPUT STATEMENTS=                    4F12443     
                                                                                                      4F12444     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12445     
                                                                                                      4F12446     
                                         RDC/ CALLS=INPUT,BEG,DIAG,ETMSW,LIB,CIT,JIF.                 4F12447     
                                         RDC PROCESSES READ STATEMENTS.                               4F12448     
       04673  0 50000 0 01437 RDC    CLA A81                       SET THE ADDRESS FIELD OF           4F12449     
       04674  0 62100 0 02067        STA ENT                       ENT (NTR000) TO 81.                4F12450     
       04675  0 07400 2 06002        TSX INPUT,2                 * GO COMPILE CAL *, AND XIT (LEV).   4F12451     
       04676  0 50000 0 06127        CLA CSH                       PICKUP (CSH) TO                    4F12452     
                                         TSC= ENTRY POINT USED BY RIT.                                4F12453     
       04677  0 60100 0 06143 TSC    STO TSA                       SET TSA.                           4F12454     
       04700 -0 50000 0 06133        CAL RTN                       MOVE (RTN)                         4F12455     
       04701  0 60200 0 06141        SLW END                       INTO END.                          4F12456     
       04702  0 50000 0 06130        CLA DBC                       PICKUP (DBC) TO                    4F12457     
                                         TTC= ENTRY POINT USED BY RDP.                                4F12458     
       04703  0 60100 0 06144 TTC    STO TTA                       SET TTA.                           4F12459     
       04704  0 07400 4 05603        TSX BEG,4                   * CONVERT CONSTANT FORMULA NUMBER.   4F12460     
       04705  0 07400 4 03400        TSX DIAG,4                  * ATTEMPT TO USE VARIABLE FORMAT NO. 4F12461     
       04706 -0 10000 4 00004        TNZ 4,4                       GO TO THE DIAGNOSTIC, IF THERE WAS 4F12462     
       04707  0 07400 4 03400        TSX DIAG,4                  * NO FORMAT NUMBER GIVEN.            4F12463     
       04710  0 62100 0 01416        STA ST                        MOVE BINARY FORMAT NUMBER INTO SET.4F12464     
       04711 -0 50000 0 06114        CAL NTR                       MOVE NTR000                        4F12465     
       04712  0 60200 0 07401        SLW OP                        INTO OP.                           4F12466     
       04713 -0 50000 0 00415        CAL TXLOP                     SET OP-SWITCHES.                   4F12467     
       04714  0 63000 0 05754        STP ETMSW                     ETMSW AND LTMSW,                   4F12468     
       04715  0 63000 0 05757        STP LTMSW                     TO NO TRANSFER CASE.               4F12469     
       04716  0 07400 4 05754        TSX ETMSW,4                 * GO COMPILE ETM.                    4F12470     
       04717  0 07400 4 06023        TSX LIB,4                   * MAKE CLOSUB ENTRY, AND COMPILE=    4F12471     
       04720  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12472     
       04721  0 00000 0 01537        PZE CAL                       WORD2--CAL000                      4F12473     
       04722  0 00000 0 06144        PZE TTA                       WORD3--(DBC) OR (BDC)              4F12474     
       04723  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F12475     
       04724  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12476     
       04725  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12477     
       04726  0 00000 0 06120        PZE SLW                       WORD2--SLW000                      4F12478     
       04727  0 00000 0 01406        PZE L(0)                      WORD3--000000                      4F12479     
       04730  0 00000 0 01454        PZE D1                        WORD4--001000                      4F12480     
       04731  0 07400 4 06023        TSX LIB,4                   * MAKE CLOSUB ENTRY, AND COMPILE=    4F12481     
       04732  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12482     
       04733  0 00000 0 01537        PZE CAL                       WORD2--CAL000                      4F12483     
       04734  0 00000 0 06143        PZE TSA                       WORD3--(CSH) OR (TSH)              4F12484     
       04735  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F12485     
       04736  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12486     
       04737  0 00000 0 01371        PZE TL                        WORD1--0(IFN)0(248)                4F12487     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 082/082 ------           
       04740  0 00000 0 02067        PZE ENT                       WORD2--NTR0(81, OR UNIT, OR 00)    4F12488     
       04741  0 00000 0 01366        PZE SET                       WORD3--800(FORMAT NUMBER)          4F12489     
       04742  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F12490     
       04743  0 07400 4 02372        TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL.    4F12491     
                                         BXT = EXIT SWITCH TO RSC OR LAST, USED BY WBT,RBT,WRD.       4F12492     
 D     04744  1 00000 0 05141 BXT    TXI RSC,0                   * EXIT TO SCAN LIST, IF THERE IS ONE.4F12493     
                                          END OF PROGRAM RDC.                                         4F12494     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12495     
                                                                                                      4F12496     
                                         RIT/  CALLS=INPUT,BEG,VRD. USES=RDC.                         4F12497     
                                         RIT PROCESSES READ INPUT TAPE STATEMENTS.                    4F12498     
       04745  0 07400 2 06002 RIT    TSX INPUT,2                 * GO COMPILE CAL *, AND XIT (LEV).   4F12499     
       04746  0 07400 4 05603        TSX BEG,4                   * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12500     
       04747  0 07400 4 06036        TSX VRD,4                   * IF VARIABLE, ENTER FORVAR AND CITS.4F12501     
       04750  0 62100 0 02067        STA ENT                       IF CONSTANT, SET ENT= NTRO(UNIT).  4F12502     
       04751  0 50000 0 06137        CLA TSH                       PICKUP (TSH) TO SET TSA, AND       4F12503     
 D     04752  1 00000 0 04677        TXI TSC,0                   * CONTINUE BY USING PROGRAM RDC.     4F12504     
                                         END OF PROGRAM RIT.                                          4F12505     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12506     
                                                                                                      4F12507     
                                         RDP/ CALLS=OUTPUT. USES=RDC.                                 4F12508     
                                         RDP PROCESSES PRINT STATEMENTS.                              4F12509     
       04753 -0 75400 0 00000 RDP    PXD ,0                        RESET ENT                          4F12510     
       04754  0 62100 0 02067        STA ENT                       TO NTR000.                         4F12511     
       04755  0 07400 2 06004        TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12512     
       04756  0 50000 0 06135        CLA SPH                       PICKUP (SPH), AND                  4F12513     
                                         TSD = ENTRY POINT USED BY WOT, PDC.                          4F12514     
       04757  0 60100 0 06143 TSD    STO TSA                       SET TSA.                           4F12515     
       04760 -0 50000 0 06131        CAL FIL                       MOVE (FIL)                         4F12516     
       04761  0 60200 0 06141        SLW END                       INTO END.                          4F12517     
       04762  0 50000 0 06126        CLA BDC                       PICKUP (BDC) TO SET TTA, AND       4F12518     
 D     04763  1 00000 0 04703        TXI TTC,0                   * CONTINUE BY USING PROGRAM RDC.     4F12519     
                                         END OF PROGRAM RDP,                                          4F12520     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12521     
                                                                                                      4F12522     
                                         WOT/ CALLS=OUTPUT,BEG,VRD. USES=RDP.                         4F12523     
                                         PROCESSES WRITE OUTPUT TAPE STATEMENTS.                      4F12524     
       04764  0 07400 2 06004 WOT    TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12525     
       04765  0 07400 4 05603        TSX BEG,4                   * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12526     
       04766  0 07400 4 06036        TSX VRD,4                   * IF VARIABLE, ENTER FORVAR AND CITS.4F12527     
       04767  0 62100 0 02067        STA ENT                       IF CONSTANT, SET ENT= NTRO(UNIT).  4F12528     
       04770  0 50000 0 06136        CLA STH                       PICKUP (STH) TO SET TSA, AND       4F12529     
 D     04771  1 00000 0 04757        TXI TSD,0                   * CONTINUE BY USING PROGRAM RDP.     4F12530     
                                          END OF PROGRAM WOT.                                         4F12531     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12532     
                                                                                                      4F12533     
                                         PDC/ CALLS=OUTPUT. USES=RDP.                                 4F12534     
                                         PROCESSES PUNCH STATEMENTS.                                  4F12535     
       04772 -0 75400 0 00000 PDC    PXD ,0                        RESET ENT                          4F12536     
       04773  0 62100 0 02067        STA ENT                       TO NTR000.                         4F12537     
       04774  0 07400 2 06004        TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12538     
       04775  0 50000 0 06134        CLA SCH                       PICKUP (SCH) TO SET TSA. AND       4F12539     
 D     04776  1 00000 0 04757        TXI TSD,0                   * CONTINUE BY USING PROGRAM RDP.     4F12540     
                                         END OF PROGRAM PDC.                                          4F12541     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 083/083 ------           
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12542     
                                                                                                      4F12543     
                                         WBT/ CALLS=OUTPUT,BRW,CIT,                                   4F12544     
                                         WBT PROCESSES WRITE TAPE STATEMENTS,                         4F12545     
       04777 -0 50000 0 06124 WBT    CAL WTB                       MOVE WTB000                        4F12546     
       05000  0 60200 0 07401        SLW OP                        INTO OP.                           4F12547     
       05001  0 07400 2 06004        TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT  (LEV),  4F12548     
       05002 -0 50000 0 01475        CAL BTA                       PICKUP BINARY TAPE ADDRESS, AND    4F12549     
       05003  0 07400 4 05646        TSX BRW,4                   * COMPILE INSTRS TO SET UNIT DESIG.  4F12550     
       05004  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12551     
       05005  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F12552     
       05006  0 00000 0 01544        PZE CPY                       WORD2-CPY000                       4F12553     
       05007  0 00000 0 00001        PZE ZER                       WORD3-600000                       4F12554     
       05010  0 00000 0 01457        PZE D2                        WORD4-002000                       4F12555     
 D     05011  1 00000 0 04744        TXI BXT,0                   * EXIT TO SCAN LIST, IF THERE IS ONE,4F12556     
                                          END OF PROGRAM WBT,                                         4F12557     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12558     
                                                                                                      4F12559     
                                         RBT/ CALLS=INPUT,BRW,CIT,                                    4F12560     
                                         RBT PROCESSES READ TAPE STATEMENTS.                          4F12561     
       05012 -0 50000 0 06117 RBT    CAL RTB                       MOVE RTB000                        4F12562     
       05013  0 60200 0 07401        SLW OP                        INT OP.                            4F12563     
       05014  0 07400 2 06002        TSX INPUT,2                 * GO COMPILE CAL *, AND XIT (LEV),   4F12564     
       05015 -0 50000 0 01475        CAL BTA                       PICKUP BINARY TAPE ADDRESS, AND    4F12565     
       05016  0 07400 4 05646        TSX BRW,4                   * COMPILE INSTRS TO SET UNIT DESIG.  4F12566     
       05017  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12567     
       05020  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F12568     
       05021  0 00000 0 01544        PZE CPY                       WORD2-CPY000                       4F12569     
       05022  0 00000 0 01500        PZE DMP                       WORD3-100000                       4F12570     
       05023  0 00000 0 01406        PZE L(0)                      WORD4-000000                       4F12571     
       05024  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12572     
       05025  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F12573     
       05026  0 00000 0 06125        PZE XIT                       WORD2-XIT000                       4F12574     
       05027  0 00000 0 01510        PZE 15P                       WORD3-*00000                       4F12575     
       05030  0 00000 0 01461        PZE D3CN                      WORD4-003000                       4F12576     
       05031  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12577     
       05032  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F12578     
       05033  0 00000 0 01554        PZE HPR                       WORD2-HPR000                       4F12579     
       05034  0 00000 0 01406        PZE L(0)                      WORD3-000000                       4F12580     
       05035  0 00000 0 01406        PZE L(0)                      WORD4-000000                       4F12581     
       05036  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12582     
       05037  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F12583     
       05040  0 00000 0 06125        PZE XIT                       WORD2-XIT000                       4F12584     
       05041  0 00000 0 01371        PZE TL                        WORD3-0(IFN)0(248)                 4F12585     
       05042  0 00000 0 01406        PZE L(0)                      WORD4-000000                       4F12586     
 D     05043  1 00000 0 04744        TXI BXT,0                   * EXIT  TO SCAN LIST,  IF THERE IS 0N4F12587     
                                         END OF PROGRAM RBT.                                          4F12588     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12589     
                                                                                                      4F12590     
                                         WRD/ CALLS=OUTPUT,BRW,CIT,                                   4F12591     
                                         WRD PROCESSES WRITE DRUM STATEMENTS.                         4F12592     
       05044  0 07400 2 06004 WRD    TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV),   4F12593     
       05045 -0 50000 0 06122        CAL WDR                       PICKUP  WDR000, AND                4F12594     
                                         XDR= ENTRY POINT USED BY RDD.                                4F12595     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 084/084 ------           
       05046  0 60200 0 07401  XDR   SLW OP                        SET OP.                            4F12596     
       05047 -0 50000 0 01476        CAL BDA                       PICKUP BINARY DRUM ADDRESS, AND    4F12597     
       05050  0 07400 4 05646        TSX BRW,4                   * COMPILE INSTRS TO SET UNIT DESIG.  4F12598     
       05051 -0 50000 0 01566        CAL PXD                       MOVE PXD000                        4F12599     
       05052  0 60200 0 07401        SLW OP                        INTO OP.                           4F12600     
       05053 -0 75400 0 00000        PXD ,0                        CLEAR THE AC AND                   4F12601     
       05054  0 07400 4 05646        TSX BRW,4                   * COMPILE INSTRS TO SET DRUM LOC.    4F12602     
       05055  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12603     
       05056  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12604     
       05057  0 00000 0 01555        PZE LDA                       WORD2--LDA000                      4F12605     
       05060  0 00000 0 01371        PZE TL                        WORD3--0(IFN)0(248)                4F12606     
       05061  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F12607     
 D     05062  1 00000 0 04744        TXI BXT,0                   * EXIT TO SCAN LIST, IF THERE IS ONE.4F12608     
                                          END OF PROGRAM WRD.                                         4F12609     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12610     
                                                                                                      4F12611     
                                         RDD/  CALLS=INPUT. USES=WRD,                                 4F12612     
                                         RDD PROCESSES    READ DRUM  STATEMENTS.                      4F12613     
       05063  0 07400 2 06002 RDD    TSX INPUT,2                * GO COMPILE CAL *, AND XIT (LEV),    4F12614     
       05064 -0 50000 0 06115        CAL RDR                      PICKUP RDR000 TO SET OP, AND        4F12615     
 D     05065  1 00000 0 05046        TXI XDR,0                  * CONTINUE BY USING PROGRAM WRD.      4F12616     
                                          END OF PROGRAM RDD.                                         4F12617     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12618     
                                                                                                      4F12619     
                                         EFT/ CALLS=GIF,BEG,VRAX,CIT,                                 4F12620     
                                         EFT PROCESSES WRITE END OF FILE STATEMENTS.                  4F12621     
       05066 -0 50000 0 06123 EFT    CAL WEF                      PICKUP  WEF000,  AND                4F12622     
                                         TPO=  ENTRY POINT USED BY RWN, BSP,                          4F12623     
       05067  0 60200 0 07401 TPO    SLW OP                       SET OP.                             4F12624     
       05070 -0 50000 0 01475        CAL BTA                      MOVE BINARY TAPE ADDRESS            4F12625     
       05071  0 60200 0 06140        SLW CON                      INTO CON.                           4F12626     
       05072  0 07400 4 02375        TSX GIF,4                  * GET IFN INTO SL AND TL,             4F12627     
       05073  0 50000 0 02377        CLA L(SL)                    RESET TPOA ADDRESS                  4F12628     
       05074  0 62100 0 05102        STA TPOA                     TO SL.                              4F12629     
       05075  0 07400 4 05603        TSX BEG,4                  * SCAN AND TEST TYPE OF UNIT SYMBOL.  4F12630     
       05076  0 07400 4 06032        TSX VRA,4                  * IF VARIABLE, ENTER FORVAR AND CITS. 4F12631     
       05077  0 76700 0 00022        ALS 18                       IF CONSTANT, ADJUST AND             4F12632     
       05100  0 60100 0 07402        STO RA                       PLACE IN THE DECREMENT OF RA.       4F12633     
       05101  0 07400 4 01731        TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12634     
       05102  0 00000 0 01367 TPOA   PZE SL                       WORD1--0(IFN)000 OR 0(IFN)0(248)    4F12635     
       05103  0 00000 0 07401        PZE OP                       WORD2--(WEF,REW,OR BSP)000          4F12636     
       05104  0 00000 0 01406        PZE L(0)                     WORD3--000000                       4F12637     
       05105  0 00000 0 07402        PZE RA                       WORD4--0(CON)000 OR 000000          4F12638     
 D     05106  1 00000 0 05567        TXI FINI,0                 * GO RESET BXT, AND TEST FOR EFN.     4F12639     
                                          END OF PROGRAM EFT.                                         4F12640     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12641     
                                                                                                      4F12642     
                                         RWN/ USES=EFT,                                               4F12643     
                                         RWN PROCESSES   REWIND  TAPE STATEMENTS.                     4F12644     
       05107 -0 50000 0 06116 RWN    CAL REW                      PICKUP REW000 TO SET OP, AND        4F12645     
 D     05110  1 00000 0 05067        TXI TPO,0                  * CONTINUE BY USING PROGRAM EFT.      4F12646     
                                          END OF PROGRAM RWN.                                         4F12647     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12648     
                                                                                                      4F12649     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 085/085 ------           
                                         BSP/ USES=EFT,                                               4F12650     
                                         BSP PROCESSES BACKSPACE TAPE STATEMENTS.                     4F12651     
       05111 -0 50000 0 06111 BSP    CAL BST                      PICKUP BST000 TO SET OP, AND        4F12652     
 D     05112  1 00000 0 05067        TXI TPO,0                  * CONTINUE BY USING PROGRAM EFT,      4F12653     
                                          END OF PROGRAM BSP.                                         4F12654     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12655     
                                         FOR/ CALLS=TET00,                                            4F12657     
                                         FOR PROCESSES FORMAT STATEMENTS.                             4F12658     
       05113 -0 50000 0 00030 FOR    CAL EIFNO                    MOVE EXTERNAL FORMULA NUMBER        4F12659     
       05114  0 62100 0 01366        STA SET                      INTO THE ADDRESS OF SET,            4F12660     
       05115 -0 50000 0 01366        CAL SET                      AND MOVE SET (8000(EFN))            4F12661     
       05116  0 60200 0 01347        SLW G                        INTO G.                             4F12662     
       05117 -0 53400 1 01724        LXD CHCTR,1                  SET XR1 = CHARACTER COUNT.          4F12663     
       05120 -0 53400 2 01614        LXD FWA,2                    SET XR2 = -(CURRENT F-WORD ADDR),   4F12664     
       05121 -3 00001 1 05137        TXL NFFW,1,1                 UNLESS POSITIONED AT THE            4F12665     
       05122  1 77777 1 05123        TXI *+1,1,-1                 BEGINNING OF A FORMAT WORD,         4F12666     
       05123  0 56000 0 01365        LDQ RESIDU                   THEN PICKUP AND                     4F12667     
       05124 -0 50000 0 01526        CAL BLANKS                   PRECEED  WITH BLANKS ANY            4F12668     
       05125 -0 76300 0 00006 NFC    LGL 6                        CHARACTERS                          4F12669     
       05126  2 00001 1 05125        TIX NFC,1,1                  REMAINING IN THE MO, AND            4F12670     
       05127  0 60200 0 01350 NFW    SLW G+1                      MOVE FORMAT WORDS INTO G+1.         4F12671     
       05130  0 07400 1 03321        TSX TET00,1                * GO ENTER THEN IN                    4F12672     
       05131  0 00000 0 00012        PZE 10                       THE FORMAT TABLE.                   4F12673     
       05132 -0 50000 0 01350        CAL G+1                      WHEN THE                            4F12674     
       05133 -0 32000 0 01374        ANA ENDMK                    END OF STATEMENT MARK               4F12675     
       05134  0 40200 0 01374        SUB ENDMK                    HAS BEEN ENTERED.                   4F12676     
       05135  0 10000 0 03440        TZE CA010                  * EXIT TO PROCESS NEXT STATEMENT.     4F12677     
       05136  0 60000 0 01347        STZ G                        PRECEED ALL BUT 1ST ENTRY WITH 0.   4F12678     
       05137 -0 50000 2 00000 NFFW   CAL 0,2                      PICKUP NEXT FORMAT WORD,            4F12679     
       05140  1 77777 2 05127        TXI NFW,2,-1                 UPDATE SCAN INDEX, AND CONTINUE.    4F12680     
                                          END OF PROGRAM FOR.                                         4F12681     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12682     
                                                                                                      4F12683     
                                         RSC/ CALLS=C0190,DIAG,                                       4F12684     
                                         RSC SCANS EACH CHARACTER IN A STATEMENT UNTIL EQUALITY IS    4F12685     
                                         FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN  4F12686     
                                         COMMON.  THEN A TAGGED EXIT IS MADE THROUGH THE BLOCK OF     4F12687     
                                         CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED IN CEXIT.  4F12688     
                                         RSC = ENTRY POINT FROM THE BXT SWITCH IN RDC, AND FROM SPC.  4F12689     
       05141 -0 50000 0 05361 RSC    CAL FLINE                    RESET TEMPORARY                     4F12690     
       05142  0 62100 0 01372        STA TLINE                    TABLE LINE COUNTER.                 4F12691     
       05143  0 60000 0 07400        STZ DOLEV                    CLEAR DO LEVEL COUNTER.             4F12692     
       05144  0 60000 0 01351        STZ GTAG                     CLEAR GENERALIZED TAG.              4F12693     
                                         LSC = ENTRY POINT FROM SPC.                                  4F12694     
       05145 -0 50000 0 05204 LSC    CAL LISTR                    SET CONTROL TRANSFER                4F12695     
                                         CXS = ENTRY POINT FROM EOS, BEG.                             4F12696     
       05146  0 62100 0 05156 CXS    STA CEXIT                    FOR LIST SCAN.                      4F12697     
                                         NXS = ENTRY POINT FROM LPR, SPC, CMA.                        4F12698     
       05147  0 53400 2 01414 NXS    LXA L(6),2                   RESET SYMBOL CHARACTER COUNT        4F12699     
       05150 -0 63400 2 05637        SXD CSJ,2                    AND SHIFT COUNT.                    4F12700     
       05151  0 60000 0 07404        STZ SYM                      CLEAR SYMBOL WORKING STORAGE.       4F12701     
                                         NXC = ENTRY POINT FROM CMA.                                  4F12702     
       05152  0 07400 4 01707 NXC    TSX C0190,4                * OBTAIN NEXT NB CHARACTER IN THE AC. 4F12703     
       05153  0 53400 4 02652 CLOAD  LXA CTESTX,4                 SET XR4 TO PICK CONTROL CHARACTERS. 4F12704     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 086/086 ------           
       05154  0 34000 4 01406 CCOMP  CAS CTEST,4                  COMPARE CHARACTER WITH CONSTANTS.   4F12705     
 D     05155 -3 00000 0 05160        TXL BUILD,0                  IF EQUALITY IS FOUND ON SOME        4F12706     
       05156  0 02000 4 00000 CEXIT  TRA **,4                   * CONTROL CHAR, EXIT  TO  TRA LIST.   4F12707     
       05157  2 00001 4 05154        TIX CCOMP,4,1                CONTINUE THROUGH PUNCTUATION.       4F12708     
       05160 -0 53400 4 05637 BUILD  LXD CSJ,4                    BUILD A                             4F12709     
       05161  0 60100 4 07316        STO CHR,4                    SYMBOL                              4F12710     
       05162 -2 00001 4 05167        TNX LCT,4,1                  COMPOSED OF                         4F12711     
       05163  0 76700 2 00044        ALS 36,2                     SIX OR LESS CHARACTERS.             4F12712     
       05164 -0 63400 4 05637 CSZ    SXD CSJ,4                    SAVE SYMBOL CHARACTER COUNT,        4F12713     
       05165 -0 60200 0 07404        ORS SYM                      ALSO, SAVE EACH                     4F12714     
       05166  1 00006 2 05152        TXI NXC,2,6                  CHARACTER SEPARATELY.               4F12715     
       05167 -3 00044 2 05171 LCT    TXL LCS,2,36                 GO TO DIAGNOSTIC IF                 4F12716     
       05170  0 07400 4 03400        TSX DIAG,4                 * MORE THAN 6 CHARACTERS IN SYMBOL,   4F12717     
       05171  1 77777 4 05164 LCS    TXI CSZ,4,-1                 ADJUST COUNT, AND CONTINUE SCAN.    4F12718     
                                         END OF PROGRAM RSC.                                          4F12719     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12720     
                                                                                                      4F12721     
                                         LISTR/ CONTROL TRANSFERS FOR LIST SCAN=                      4F12722     
 D     05172  1 00000 0 05547        TXI EMK,0                   * ENDMARK                            4F12723     
 D     05173  1 00000 0 05205        TXI LPR,0                   * (                                  4F12724     
 D     05174  1 00000 0 05413        TXI CMA,0                   * ,                                  4F12725     
 D     05175  1 00000 0 05377        TXI RPR,0                   * )                                  4F12726     
 D     05176  1 00000 0 05261        TXI EQS,0                   * *                                  4F12727     
 D     05177  1 00000 0 05200        TXI ILC,0                     - (ILLEGAL CHARACTER IN I/O LIST). 4F12728     
       05200  0 07400 4 03400 ILC    TSX DIAG,4                  * / (ILLEGAL CHARACTER IN I/O LIST). 4F12729     
 D     05201  1 00000 0 05200        TXI ILC,0                     . (ILLEGAL CHARACTER IN I/O LIST). 4F12730     
 D     05202  1 00000 0 05200        TXI ILC,0                     + (ILLEGAL CHARACTER IN I/O LIST). 4F12731     
 D     05203  1 00000 0 05200        TXI ILC,0                     * (ILLEGAL CHARACTER IN I/O LIST). 4F12732     
       05204  0 00000 0 05204 LISTR  PZE LISTR                     INDEXING ADDRESS  FOR ABOVE LIST.  4F12733     
                                         *******                      *************************       4F12734     
                                                                                                      4F12735     
                                         LPR/  CALLS=TYP,SS000,RA000,C0190,TEST,.,LTMSW,CIT,JIF,DIAG, 4F12736     
                                         BSS.  USES=CMA,RSC,                                          4F12737     
                                         LPR * ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN.     4F12738     
       05205 -0 50000 0 07404 LPR    CAL SYM                      TEST FOR SUBSCRIPT OR DO NEST.      4F12739     
       05206  0 10000 0 05230        TZE LPRD                     IF SUBSCRIPT, THEN                  4F12740     
       05207  0 07400 4 05624        TSX TYP,4                  * IF VARIABLE SYMBOL CONTAINS LESS    4F12741     
       05210  0 02000 4 00003        TRA 3,4                      THAN 6 CHARACTERS, ADD A BLANK,     4F12742     
 D     05211  1 00000 0 05416        TXI ERRC,0                 * ON CONSTANT RETURN, GO TO DIAG,     4F12743     
       05212 -0 50000 0 07404        CAL SYM                      MOVE SYMBOL                         4F12744     
       05213  0 60200 0 01130        SLW E+2                      INTO E+2, AND                       4F12745     
       05214  0 60200 0 07403        SLW SA                       COMPILE SYMBOLIC ADDRESS,           4F12746     
       05215  0 07400 4 02614        TSX SS000,4                * GO SCAN AND PROCESS SUBSCRIPT.      4F12747     
       05216  0 07400 4 02437        TSX RA000,4                * THEN GO COMPUTE RELATIVE ADDRESS.   4F12748     
       05217  0 07400 4 01707        TSX C0190,4                * EXAMINE NEXT NON-BLANK CHARACTER    4F12749     
       05220  0 34000 0 01377        CAS CLOS                                                         4F12750     
       05221  0 02000 0 05226        TRA *+5                                                          4F12751     
       05222  0 02000 0 05224        TRA *+2                                                          4F12752     
       05223  0 02000 0 05226        TRA *+3                                                          4F12753     
       05224  0 60000 0 07400        STZ DOLEV                                                        4F12754     
       05225  0 07400 4 01707        TSX C0190,4                                                      4F12755     
       05226  0 07400 4 03247        TSX TESTA0,4               * FOR EITHER COMMA OR ENDMARK.        4F12756     
 D     05227  1 00000 0 05421        TXI CMA7,0                 * AND CONTINUE BY USING PROGRAM CMA.  4F12757     
       05230 -0 50000 0 07400 LPRD   CAL DOLEV                    IF  THE BEGINNING OF A DO NEST,     4F12758     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 087/087 ------           
       05231  0 10000 0 05242        TZE LPR3                     AND DOLEV IS NOT ZERO, THEN         4F12759     
       05232  0 53400 4 07400        LXA DOLEV,4                  TEST FOR NULL FORMULA.              4F12760     
       05233 -3 00000 4 05236        TXL LPRE,4,0                 IF NULL, GO ESTABLISH POSITION.     4F12761     
       05234  0 07400 4 05757        TSX LTMSW,4                * OTHERWISE, COMPILE LTM, AND         4F12762     
 D     05235  1 00000 0 05241        TXI LPR4,0                   AND GO JUMP IFN.                    4F12763     
       05236 -0 50000 0 01367 LPRE   CAL SL                       IF C(SL) DO NOT = 0,                4F12764     
       05237  0 10000 0 05241        TZE *+2                      THEN                                4F12765     
       05240  0 07400 2 05674        TSX BSS,2                  * GO COMPILE= IFN BSS 0,              4F12766     
       05241  0 07400 4 02372 LPR4   TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12767     
       05242 -0 53400 4 07400 LPR3   LXD DOLEV,4                  INCREASE THE C(DOLEV D)             4F12768     
       05243  1 00001 4 05244        TXI LPR1,4,1                 BY 1, AND                           4F12769     
       05244 -0 75400 4 00000 LPR1   PXD ,4                       SET THE C(DOLEV A)                  4F12770     
       05245  0 60200 0 07400        SLW DOLEV                    TO ZERO,                            4F12771     
       05246 -0 50000 0 01372        CAL TLINE                    NOTE AT                             4F12772     
       05247  0 62100 0 05254        STA LPR2                     THIS LEVEL                          4F12773     
       05250  0 60100 4 07400        STO DOLEV,4                  THE LOCATION IN TLDO                4F12774     
       05251  0 40000 0 01413        ADD L(5)                     OF THIS DO FORMULA                  4F12775     
       05252  0 62100 0 01372        STA TLINE                    AND INCREASE LINE IN TLINE.         4F12776     
       05253  0 50200 0 01371        CLS TL                       MOVE -(0(IFN)0(248)) INTO THE       4F12777     
       05254  0 60100 0 00000 LPR2   STO **                       LOCATION WORD OF CURRENT TEMP DO.   4F12778     
       05255  0 07400 4 02372        TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12779     
       05256 -0 53400 4 07400        LXD DOLEV,4                  IF 3 OR FEWER LEVELS IN LIST DO,    4F12780     
       05257 -3 00003 4 05147        TXL NXS,4,3                * RETURN TO LIST SCAN.                4F12781     
       05260  0 07400 4 03400        TSX DIAG,4                 * OTHERWISE, GO TO DIAGNOSTIC         4F12782     
                                         END OF                   PROGRAM LPR.                        4F12783     
                                         *******                      ***********************         4F12784     
                                                                                                      4F12785     
                                         EQS/ CALLS=DIAG, USES=RSC                                    4F12786     
                                         EQS = ENTRY POINT WHEN EQUAL SIGN IS MET IN LIST CAN,        4F12787     
       05261 -0 53400 4 07400 EQS    LXD DOLEV,4                  TEST THE LEGALITY OF EQUAL SIGN,    4F12788     
       05262  3 00000 4 05264        TXH EQS2,4,0                 AND GO TO DIAG ON THE ATTEMPT TO    4F12789     
       05263  0 07400 4 03400        TSX DIAG,4                 * SPECIFY SUBSCRIPT RANGE WITHOUT (.  4F12790     
       05264 -0 50000 4 07400 EQS2   CAL DOLEV,4                  INITIALIZE SPECIFICATION            4F12791     
       05265  0 62100 0 05331        STA SPC2                     OF GENERATED DO FORMULA             4F12792     
       05266  0 62100 0 05345        STA SPC5                     AT CURRENT LEVEL.                   4F12793     
       05267  0 40000 0 01407        ADD L(1)                     PREPARE TO ENTER FORMULA NUMBERS    4F12794     
       05270  0 62100 0 05302        STA EQS1                     IN LOCATION  WORD*SUBSCRIPT IN      4F12795     
       05271  0 40000 0 01412        ADD L(4)                     SYMBOL WORD, AND SUBSCRIPT SPECS    4F12796     
       05272  0 62100 0 05333        STA SPC3                     IN TEMPDO ENTRY.                    4F12797     
       05273  0 53400 4 01411        LXA L(3),4                   PREPARE TO COUNT THE                4F12798     
       05274 -0 63400 4 05304        SXD NSJ,4                    NUMBER OF SPECIFICATIONS.           4F12799     
       05275 -0 50000 0 07404        CAL SYM                      OBTAIN SUBSCRIPT                    4F12800     
       05276  3 00044 2 05302        TXH EQS1,2,36                FOR THIS DO, AND                    4F12801     
       05277 -0 50000 0 01430        CAL BLANK                    STORE IN PROPER                     4F12802     
       05300  0 76700 2 00044        ALS 36,2                     LINE OF TEMPORARY                   4F12803     
       05301 -0 50100 0 07404        ORA SYM                      LIST DO TABLE.                      4F12804     
       05302  0 60200 0 00000 EQS1   SLW **                       (SUBSCRIPT SYMBOL WORD)             4F12805     
       05303 -0 50000 0 05317        CAL SPCTR                    SET CONTROL LOOP FOR                4F12806     
       05304  1 00000 0 05146 NSJ    TXI CXS,0,**               * EXIT TO SPECIFICATION               4F12807     
                                         END OF                   PROGRAM EQS.                        4F12608     
                                         *******                     ***********************          4F12809     
                                                                                                      4F12810     
                                         SPCTR/ CONTROL  TRANSFERS FOR SPECIFICATION SCAN=            4F12811     
       05305  0 07400 4 03400        TSX DIAG,4                * E (ILLEGAL IN CONTROL FOR LIST DO).  4F12812     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 088/088 ------           
       05306  0 07400 4 03400 ICC    TSX DIAG,4                * ( (ILLEGAL IN CONTROL FOR LIST DO).  4F12813     
 D     05307  1 00000 0 05322        TXI SPC,0                 * ,                                    4F12814     
 D     05310  1 00000 0 05320        TXI SPCX,0                * )                                    4F12815     
 D     05311  1 00000 0 05306        TXI ICC,0                  = (ILLEGAL IN CONTROL FOR LIST DO).   4F12816     
 D     05312  1 00000 0 05306        TXI ICC,0                  - (ILLEGAL IN CONTROL FOR LIST DO).   4F12817     
 D     05313  1 00000 0 05306        TXI ICC,0                  / (ILLEGAL IN CONTROL FOR LIST DO).   4F12818     
 D     05314  1 00000 0 05306        TXI ICC,0                  . (ILLEGAL IN CONTROL FOR LIST DO).   4F12819     
 D     05315  1 00000 0 05306        TXI ICC,0                  + (ILLEGAL IN CONTROL FOR LIST DO).   4F12820     
 D     05316  1 00000 0 05306        TXI ICC,0                  * (ILLEGAL IN CONTROL FOR LIST DO).   4F12821     
       05317  0 00000 0 05317 SPCTR  PZE SPCTR                    INDEXING ADDRESS FOR ABOVE LIST.    4F12822     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12823     
                                                                                                      4F12824     
                                         SPC/ CALLS=TYP,LTMSW,JIF,TET00. USES=R5C                     4F12825     
                                         SPCX = ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN. 4F12826     
       05320 -0 50000 0 05336 SPCX   CAL SPC1                     PREPARE FOR END OF SPECIFICATION.   4F12827     
       05321  0 60100 0 05336        STO SPC1                     SET SPC1 OP-SWITCH TO NOP CASE.     4F12828     
                                         SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATION SCAN.   4F12829     
       05322  0 07400 4 05624  SPC   TSX TYP,4                  * GO TEST TYPE OF SUBSCRIPT SPEC.     4F12830     
 D     05323  1 00000 0 05326        TXI SPCS,0                   IF FIXED POINT CONSTANT,            4F12831     
       05324 -0 53400 4 05304        LXD NSJ,4                    SET C(XR4) = SPECIFICATION COUNT,   4F12832     
 D     05325  1 00000 0 05333        TXI SPC3,0                   AND GO ENTER CONSTANT IN TABLE.     4F12833     
       05326 -0 53400 4 05304 SPCS   LXD NSJ,4                    OTHERWISE, SET SPEC COUNT AND       4F12834     
       05327 -0 50000 0 01453        CAL TAG4                     IF VARIABLE, NOTE BY                4F12835     
       05330  0 77100 4 00003        ARS 3,4                      PLACING BIT IN TAG FIELD            4F12636     
       05331 -0 60200 0 00000 SPC2   ORS **                       OF TABLE ENTRY.                     4F12837     
       05332 -0 50000 0 07404        CAL SYM                      PICKUP VARIABLE SYMBOL AND          4F12838     
       05333  0 60200 4 00000 SPC3   SLW **,4                     ENTER N SUB J IN TABLE.             4F12839     
       05334 -2 00001 4 05341        TNX SPC4,4,1                 REDUCE J.                           4F12840     
       05335 -0 63400 4 05304        SXD NSJ,4                    SAVE SPEC COUNT, AND                4F12841     
 D     05336 -3 00000 0 05147 SPC1   TXL NXS,0                  * EXIT TO SCAN, IF SWITCH IS TXL.     4F12842     
       05337 -0 50000 0 01407        CAL L(1)                     SET N SUB 3 = 1 IF NOT              4F12843     
 D     05340  1 00000 0 05333        TXI SPC3,0                   OTHERWISE SPECIFIED.                4F12844     
       05341  0 50200 0 05336 SPC4   CLS SPC1                     RESTORE SPC1 EXIT.                  4F12845     
       05342  0 60100 0 05336        STO SPC1                     (3 SPECS HAVE BEEN TREATED)         4F12846     
       05343 -0 50000 0 00030        CAL EIFNO                    ALSO RESTORE INTERNAL FORMULA NO.   4F12847     
       05344  0 77100 0 00022        ARS 18                       (PUT BETA IN TEMPDO TABLE)          4F12848     
                                         SPC5 = ENTRY POINT USED BY RPR.                              4F12849     
       05345  0 62100 0 00000 SPC5   STA **                       SET BETA EQUAL TO IFNO.             4F12850     
       05346  0 53400 4 07400        LXA DOLEV,4                  EXAMINE DOLEV ADDRESS FOR ZERO TO   4F12851     
       05347 -3 00004 4 05352        TXL SPCR,4,4                 TEST NEED FOR LTM, JLF AFTER ).     4F12352     
       05350  0 07400 4 05757        TSX LTMSW,4                * GO COMPILE LTM.                     4F12853     
       05351  0 07400 4 02372        TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12654     
       05352 -0 53400 4 07400 SPCR   LXD DOLEV,4                  DECREASE DOLEV D                    4F12855     
       05353  1 77777 4 05354        TXI SPC6,4,-1                BY 1, AND INDICATE A TREATED LEVEL. 4F12656     
       05354 -0 75400 4 00000 SPC6   PXD ,4                       IF NOT ZERO,                        4F12857     
       05355  0 60200 0 07400        SLW DOLEV                    THEN ALL LEVELS ARE NOT TREATED.    4F12858     
       05356  3 00000 4 05145        TXH LSC,4,0                * RETURN TO SCAN NEXT LEVEL.          4F12659     
       05357  0 50000 0 01372        CLA TLINE                    IF LEVEL IS ZERO                    4F12860     
       05360  0 62100 0 05364        STA SPC7                     ENTER GENERATED                     4F12861     
       05361  0 73400 2 07405 FLINE  PAX TLDOS,2                  DO FORMULAS IN TDO BY               4F12862     
       05362  1 00000 2 05363        TXI *+1,2,-                  TLDOS SUBROUTINE TET.               4F12663     
       05363  0 53400 4 01413 SPC9   LXA L(5),4                   (MOVE EACH                          4F12864     
       05364  0 50000 2 00000 SPC7   CLA **,2                     TEMPDO TABLE ENTRY                  4F12865     
       05365  0 60100 4 01112        STO 1C+5,4                   INTO 1C...1C+4,                     4F12866     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 089/089 ------           
       05366 -2 00001 2 05370        TNX SPC8,2,1                 AND THEN                            4F12867     
       05367  2 00001 4 05364        TIX SPC7,4,1                 WHEN DONE,                          4F12868     
       05370  0 53400 4 01105 SPC8   LXA 1C,4                     TEST TO SKIP                        4F12869     
       05371 -3 00000 4 05374        TXL SPCT,4,0                 NULL DO,                            4F12870     
       05372  0 07400 1 03321        TSX TET00,1                * GO MAKE AN ENTRY                    4F12871     
       05373  0 00000 0 00001        PZE 1                        IN TDO TABLE.)AND WHEN THE WHOLE    4F12872     
       05374  3 00001 2 05363 SPCT   TXH SPC9,2,1                 DO NEST HAS BEEN ENTERED,           4F12873     
       05375  0 07400 4 02372        TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12874     
 D     05376  1 00000 0 05141 RESET  TXI RSC,0                  * THEN EXIT TO CONTINUE LIST SCAN.    4F12875     
                                         END OF                   PROGRAM SPC,                        4F12876     
                                         *******                     ***********************          4F12877     
                                                                                                      4F12878     
                                         RPR/ CALLS=DIAG,USES=CMA,SPC                                 4F12879     
                                         RPR = ENTRY  POINT WHEN RPAREN IS MET IN LIST SCAN.          4F12880     
       05377 -0 53400 4 07400 RPR    LXD DOLEV,4                  TEST LEGALITY OF ),                 4F12881     
       05400  3 00000 4 05402        TXH RPS,4,0                  IF THERE ARE TOO MANY I IN LIST,    4F12882     
       05401  0 07400 4 03400        TSX DIAG,4                 * GO TO THE DIAGNOSTIC                4F12883     
       05402 -0 50000 4 07400 RPS    CAL DOLEV,4                  NULLIFY DO AT CURRENT LEVEL.        4F12884     
       05403  0 62100 0 05345        STA SPC5                     SET SPC5 ADDRESS,                   4F12885     
       05404  0 50000 0 05411        CLA RPA                      SET CMA3 SWITCH TO RETURN TO        4F12886     
       05405  0 62100 0 05546        STA CMA3                     RPT, AND IF ANY CHARACTERS          4F12887     
       05406  3 00006 2 05414        TXH CMA1,2,6               * WERE COLLECTED, EXIT TO CMA.        4F12888     
                                         RPT = R                  EENTRY POINT USED BY CMA.           4F12889     
       05407  0 50000 0 05336 RPT    CLA SPC1                     RESET CMA3 SWITCH                   4F12890     
       05410  0 62100 0 05546        STA CMA3                     TO NXS,                             4F12891     
       05411 -0 75400 0 05407 RPA    PXD RPT,0                    CLEAR THE AC AND                    4F12892     
 D     05412  1 00000 0 05345        TXI SPC5,0                 * CONTINUE BY USING PROGRAM SPC.      4F12893     
                                         END OF                   PROGRAM RPR.                        4F12894     
                                         *******                  ***********************             4F12895     
                                                                                                      4F12896     
                                         CMA/ CALLS=TYP,DIAG,ETMSW,DIM.SR,IFFIX,TET00,DRTABS,JIF,CIT, 4F12897     
                                         LTMSW. USES=RSC                                              4F12898     
                                         CMA = ENTRY POINT WHEN COMMA IS MET IN LIST SCAN.            4F12899     
       05413 -3 00006 2 05152 CMA    TXL NXC,2,6                * IF NOTHING COLLECTED, RETURN -SCAN. 4F12900     
                                         CMA1  = ENTRY POINT USED BY EMK.                             4F12901     
       05414  0 07400 4 05624 CMA1   TSX TYP,4                  * TYPE TEST FOR NON-SUBSCR. VAR.      4F12902     
       05415  0 02000 4 00003        TRA 3,4                      ILLEGAL USE OF CONSTANT IN LIST,    4F12903     
       05416  0 07400 4 03400 ERRC   TSX DIAG,4                 * GO TO THE DIAGNOSTIC                4F12904     
       05417 -0 50000 0 07404        CAL SYM                      MOVE VARIABLE SYMBOL                4F12905     
       05420  0 60200 0 07403 CMA4   SLW SA                       INTO SA. AND                        4F12906     
                                         CMA7  = ENTRY POINT USED BY LPR.                             4F12907     
       05421  0 53400 4 07400 CMA7   LXA DOLEV,4                  IF DOLEV ADDRESS = 0, AND  IF       4F12908     
       05422  3 00000 4 05424        TXH CMA6,4,0                 ETMSW IS SET TO TXH (NOP CASE),     4F12909     
       05423  0 07400 4 05754        TSX ETMSW,4                * GO COMPILE ETM, AND CLEAR SL.       4F12910     
       05424 -0 50000 0 07400 CMA6   CAL DOLEV                    IN ANY CASE,                        4F12911     
       05425  0 40000 0 01407        ADD L(1)                     UPDATE DOLEV ADDRESS                4F12912     
       05426  0 60100 0 07400        STO DOLEV                    BY  1, AND THEN                     4F12913     
       05427  0 50000 0 01351        CLA GTAG                     SET GENERALIZED TAG*                4F12914     
       05430  0 60100 0 07402        STO RA                       (RELATIVE ADDRESS)                  4F12915     
       05431  0 10000 0 05436        TZE DIMSR                    IF THIS VARIABLE HAS A SUBSCRIPT,   4F12916     
       05432  0 50000 0 01147        CLA EPS                      AND IF SUBSCRIPT                    4F12917     
       05433 -0 10000 0 05537        TNZ CMA5                     IS A CONSTANT,                      4F12918     
       05434  0 62100 0 07402        STA RA                       THEN CLEAR THE ADDRESS OF RA.       4F12919     
 D     05435  1 00000 0 05537        TXI CMA5,0                   THEN GO MAKE CIT ENTRY.             4F12920     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 090/090 ------           
       05436 -0 50000 0 07403 DIMSR  CAL SA                       IF THIS VARIABLE                    4F12921     
       05437  0 60200 0 01130        SLW E+2                      DOES NOT HAVE A SUBSCRIPT, THEN     4F12922     
       05440  0 07400 4 01771 RD1    TSX DIM1SR,4               * GO SEARCH DIM1 TABLE,               4F12923     
 D     05441  1 00000 0 05444        TXI RD2,0                    IF FOUND, THEN                      4F12924     
       05442  0 50000 0 01101 CS1    CLA D12                      PICKUP DIMENSION 1                  4F12925     
 D     05443  1 00000 0 05467        TXI DVS,0                    AND GO TEST SIZE. OTHERWISE,        4F12926     
       05444  0 07400 4 01775 RD2    TSX DIM2SR,4               * GO SEARCH DIM2 TABLE.               4F12927     
 D     05445  1 00000 0 05455        TXI RD3,0                    AND IF FOUND,                       4F12928     
       05446  0 56000 0 01101 CS2    LDQ D12                      PICKUP                              4F12929     
       05447  0 60000 0 01361        STZ N2                       DIMENSION 1 AND                     4F12930     
       05450 -0 62000 0 01361        SLQ N2                       DIMENSION 2                         4F12931     
       05451 -0 76300 0 00022        LGL 18                       AND MULTIPLY                        4F12932     
       05452  0 20000 0 01361        MPY N2                       THEM TOGETHER.                      4F12933     
       05453  0 77100 0 00001        ARS 1                        THEN                                4F12934     
 D     05454  1 00000 0 05467        TXI DVS,0                    GO TEST THE PRODUCT. OTHERWISE,     4F12935     
       05455  0 07400 4 02005 RD3    TSX DIM3SR,4               * GO SEARCH DIM3 TABLE.               4F12936     
 D     05456  1 00000 0 05533        TXI NODIM,0                  AND IF FOUND,                       4F12937     
       05457  0 56000 0 01101 CS3    LDQ D12                      PICKUP                              4F12938     
       05460  0 60000 0 01361        STZ N2                       DIMENSION 1,                        4F12939     
       05461 -0 62000 0 01361        SLQ N2                       DIMENSION 2,                        4F12940     
       05462 -0 76300 0 00022        LGL 18                       AND DIMENSION 3.                    4F12941     
       05463  0 20000 0 01361        MPY N2                       MULTIPLY                            4F12942     
       05464  0 76500 0 00022        LRS 18                       THEM TOGETHER,                      4F12943     
       05465  0 20000 0 01102        MPY D3                       AND IF                              4F12944     
       05466  0 76300 0 00021        LLS 17                       THEIR                               4F12945     
       05467  0 40200 0 01407 DVS    SUB L(1)                     PRODUCT IS                          4F12946     
       05470  0 10000 0 05533        TZE NODIM                    GREATER THAN 1, THEN                4F12947     
       05471  0 76700 0 00022        ALS 18                       PLACE DIMENSION-1 IN THE            4F12948     
       05472  0 60100 0 01347        STO G                        DECREMENT OF G, AND                 4F12949     
       05473  0 07400 4 00417        TSX FXCNIX,4               * GO ENTER IN FIXCON, AND GET TAG.    4F12950     
       05474  0 76700 0 00022        ALS 18                       ADJUST, AND STORE TAG IN THE        4F12951     
       05475  0 62200 0 01364        STD RAT                      DECREMENT OF RAT. THEN              4F12952     
       05476  0 07400 4 02372        TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12953     
       05477  0 07400 4 01731        TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12954     
       05500  0 00000 0 01367        PZE SL                       WORD1--0(IFN)000                    4F12955     
       05501  0 00000 0 01561        PZE LXD                      WORD2--LXD000                       4F12956     
       05502  0 00000 0 00013        PZE 2P                       WORD3--200000                       4F12957     
       05503  0 00000 0 01364        PZE RAT                      WORD4--0(FIXCON TAG)008             4F12958     
       05504  0 07400 4 02372        TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12959     
       05505  0 07400 4 05754        TSX ETMSW,4                * IF LTMSW = NOP, COMPILE LTM. SL=0.  4F12960     
       05506  0 07400 4 01731        TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12961     
       05507  0 00000 0 01367        PZE SL                       WORD1--0(IFN)000 OR 000000          4F12962     
       05510  0 00000 0 07401        PZE OP                       WORD2--(OPERATION CODE)             4F12963     
       05511  0 00000 0 07403        PZE SA                       WORD3--(SYMBOLIC ADDRESS)           4F12964     
       05512  0 00000 0 01416        PZE ST                       WORD4--000008                       4F12965     
       05513  0 60000 0 01367        STZ SL                       CLEAR SL, AND                       4F12966     
       05514  0 07400 4 05757        TSX LTMSW,4                * IF LTMSW = NOP, COMPILE LTM. SL=0.  4F12967     
       05515  0 07400 4 02375        TSX GIF,4                  * GET IFN IN SL AND TL.               4F12968     
       05516  0 07400 4 01731        TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12969     
       05517  0 00000 0 01406        PZE L(0)                     WORD1--000000                       4F12970     
       05520  0 00000 0 01576        PZE TIX                      WORD2--TIX001                       4F12971     
       05521  0 00000 0 01367        PZE SL                       WORD3--0(IFN)000                    4F12972     
       05522  0 00000 0 01416        PZE ST                       WORD4--000008                       4F12973     
       05523  0 60000 0 01367        STZ SL                       CLEAR SL, AND                       4F12974     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 091/091 ------           
       05524  0 07400 4 05754        TSX ETMSW,4                * IF ETMSW = NOP, COMPILE ETM, SL=0.  4F12975     
       05525  0 07400 4 01731        TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12976     
       05526  0 00000 0 01406        PZE L(0)                     WORD1--000000                       4F12977     
       05527  0 00000 0 01546        PZE DED                      WORD2--DED000                       4F12978     
       05530  0 00000 0 01406        PZE L(0)                     WORD3--000000                       4F12979     
       05531  0 00000 0 01416        PZE ST                       WORD4--000008                       4F12980     
 D     05532  1 00000 0 05537        TXI CMA5,0                   IF THE PRODUCT OF DIMENSIONS IS     4F12981     
       05533  0 07400 1 05773 NODIM  TSX IFFIX,1                * LESS THAN 2, TEST TYPE OF VARIABLE, 4F12982     
 D     05534  1 00000 0 05537        TXI CMA5,0                   AND IF FIXED POINT,                 4F12983     
       05535  0 07400 1 03321        TSX TET00,1                * GO ENTER VARIABLE IN                4F12984     
       05536  0 00000 0 00000 INOUT  PZE **                       EITHER FORVAL OR FORVAR TABLE.      4F12985     
       05537  0 07400 4 01731 CMA5   TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12986     
       05540  0 00000 0 01367        PZE SL                       WORD1--0(IFN)000 OR 000000          4F12987     
       05541  0 00000 0 07401        PZE OP                       WORD2--NTR000 OR CPY000             4F12988     
       05542  0 00000 0 07403        PZE SA                       WORD3--(SYMBOL)                     4F12989     
       05543  0 00000 0 07402        PZE RA                       WORD4--(RELATIVE ADDRESS)           4F12990     
       05544  0 60000 0 01367        STZ SL                       CLEAR SL, AND                       4F12991     
       05545  0 60000 0 01351        STZ GTAG                     CLEAR GTAG. THEN TAKE EXIT          4F12992     
 D     05546  1 00000 0 05147 CMA3   TXI NXS,0                  * SWITCH TO RPT OR NXS,               4F12993     
                                         END OF                   PROGRAM CMA.                        4F12994     
                                         *******                     ***********************          4F12995     
                                                                                                      4F12996     
                                         EMK/ CALLS=DIAG,LTMSW,JIF,CIT,LIB,TET00, USES=CMA,           4F12997     
                                         EMK = ENTRY POINT WHEN AN ENDMARK IS MET IN LIST SCAN.       4F12998     
       05547  3 00006 2 05414 EMK    TXH CMA1,2,6               * IF NO CHARACTERS REMAIN, THEN       4F12999     
       05550 -0 53400 4 07400        LXD DOLEV,4                  CHECK THE NUMBER OF PARENTHESES.    4F13000     
       05551 -3 00000 4 05553        TXL FIN,4,0                  IF THERE ARE TOO MANY LPARENS,      4F13001     
       05552  0 07400 4 03400        TSX DIAG,4                 * GO TO THE DIAGNOSTIC OTHERWISE,     4F13002     
       05553  0 07400 4 05757 FIN    TSX LTMSW,4                * IF LTMSW = NOP, COMPILE LTM. SL=0.  4F13003     
       05554  0 07400 4 02372        TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F13004     
                                         LAST = ENTRY POINT SET BY BXT SWITCH.                        4F13005     
       05555  0 07400 4 01731 LAST   TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F13006     
       05556  0 00000 0 01367        PZE SL                       WORD1--0(IFN)000                    4F13007     
       05557  0 00000 0 01537        PZE CAL                      WORD2--CAL000                       4F13008     
       05560  0 00000 0 01510        PZE 15P                      WORD3--*00000                       4F13009     
       05561  0 00000 0 01406        PZE L(0)                     WORD4--000000                       4F13010     
       05562  0 07400 4 06023        TSX LIB,4                  * MAKE CLOSUB ENTRY, AND COMPILE=     4F13011     
       05563  0 00000 0 01406        PZE L(0)                     WORD1--000000                       4F13012     
       05564  0 00000 0 06125        PZE XIT                      WORD2--XIT000                       4F13013     
       05565  0 00000 0 06141        PZE END                      WORD3--(RTN) OR (FIL)               4F13014     
       05566  0 00000 0 01406        PZE L(0)                     WORD4--000000                       4F13015     
                                         FINI = ENTRY POINT USED BY EFT.                              4F13016     
       05567  0 50000 0 05376 FINI   CLA RESET                    RESET BXT SWITCH                    4F13017     
       05570  0 62100 0 04744        STA BXT                      TO RSC.                             4F13018     
       05571  0 50000 0 01151        CLA F-1                      TEST FOR AN EXTERNAL                4F13019     
       05572  0 40200 0 01477        SUB 5BLANS                   STATEMENT NUMBER, AND IF NONE,      4F13020     
       05573  0 10000 0 03440        TZE CA010                  * EXIT TO PROCESS NEXT STATEMENT.     4F13021     
       05574 -0 50000 0 01520        CAL MINUS0                   OTHERWISE, SET THE SIGN             4F13022     
       05575 -0 60200 0 00030        ORS EIFNO                    OF EIFNO TO MINUS, AND              4F13023     
       05576  0 07400 1 03321        TSX TET00,1                * GO ENTER -(EIFNO)                   4F13024     
       05577  0 00000 0 00000        PZE 0                        IN THE TEIFNO TABLE.                4F13025     
       05600 -0 50000 0 00030        CAL EIFNO                    THEN RESTORE                        4F13026     
       05601  0 60100 0 00030        STO EIFNO                    EIFNO, AND                          4F13027     
 D     05602  1 00000 0 03440        TXI CA010,0                * EXIT TO PROCESS NEXT STATEMENT.     4F13028     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 092/092 ------           
                                         END OF PROGRAM EMK.                                          4F13029     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13030     
                                                                                                      4F13031     
                                         STATEA/ 4-SUBROUTINES USED BY STATE A=                       4F13032     
                                                                                                                  
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                      4F13033     
                                         BEG(TYP),4/  CALLS=DIAG. USES RSC.                           4F13034     
                                         BEG = ENTRY POINT USED BY RDC,RIT,WOT,EFT,                   4F13035     
       05603 -0 63400 4 05605 BEG    SXD BEX,4                      SAVE C(XR4) FOR RETURN,           4F13036     
       05604 -0 50000 0 05620        CAL BEGTR                      SET CONTROL TRANSFER              4F13037     
       05605  1 00000 0 05146 BEX    TXI CXS,0,**                 * AND GO EXECUTE BEGINNING SCAN.    4F13038     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13039     
                                                                                                      4F13040     
                                         BEGTR/ CONTROL TRANSFERS FOR BEGINNING SCAN=                 4F13041     
 D     05606  1 00000 0 05621        TXI NLS,0                   * ENDMARK (NO LIST SCAN)             4F13042     
       05607  0 07400 4 03400 IBC    TSX DIAG,4                  * ( (ILLEGAL CHARACTER IN I/O SETUP).4F13043     
 D     05610  1 00000 0 05623        TXI CMB,0                   * ,                                  4F13044     
 D     05611  1 00000 0 05607        TXI IBC,0                     ) (ILLEGAL CHARACTER IN I/O SETUP).4F13045     
 D     05612  1 00000 0 05607        TXI IBC,0                     = (ILLEGAL CHARACTER IN I/O SETUP).4F13046     
 D     05613  1 00000 0 05607        TXI IBC,0                     - (ILLEGAL CHARACTER IN I/O SETUP).4F13047     
 D     05614  1 00000 0 05607        TXI IBC,0                     / (ILLEGAL CHARACTER IN I/O SETUP).4F13048     
 D     05615  1 00000 0 05607        TXI IBC,0                     . (ILLEGAL CHARACTER IN I/O SETUP).4F13049     
 D     05616  1 00000 0 05607        TXI IBC,0                     + (ILLEGAL CHARACTER IN I/O SETUP).4F13050     
 D     05617  1 00000 0 05607        TXI IBC,0                     * (ILLEGAL CHARACTER IN I/O SETUP).4F13051     
       05620  0 00000 0 05620 BEGTR  PZE BEGTR                     INDEXING ADDRESS FOR ABOVE LIST.   4F13052     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13053     
                                                                                                      4F13054     
                                         NLS = ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING SCAN.  4F13055     
       05621  0 50000 0 06105 NLS    CLA NLA                       IF ENDMARK IS MET,                 4F13056     
       05622  0 62100 0 04744        STA BXT                       SET BXT SWITCH TO LAST.            4F13057     
                                         CMB = ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN.     4F13058     
       05623 -0 53400 4 05605 CMB    LXD BEX,4                     RESTORE THE C(XR4), AND            4F13059     
                                         TYP = ENTRY POINT USED BY LPR,SPC,CMA,                       4F13060     
       05624  0 50000 0 07310 TYP    CLA CHR-6                     TEST FIRST CHARACTER               4F13061     
       05625  0 40200 0 00172        SUB PLUS                      FOR VARIABLE                       4F13062     
       05626 -0 12000 0 05634        TMI ABS                       OR CONSTANT.                       4F13063     
       05627  3 00044 2 05633        TXH SMB,2,36                  IF VARIABLE.                       4F13064     
       05630 -0 50000 0 01430        CAL BLANK                     ADD A BLANK                        4F13065     
       05631  0 76700 2 00044        ALS 36,2                      IF SYMBOL CONTAINS                 4F13066     
       05632 -0 60200 0 07404        ORS SYM                       LESS THAN 6 CHARACTERS, AND        4F13067     
       05633  0 02000 4 00001 SMB    TRA 1,4                     * TAKE VARIABLE EXIT TO CALLER.      4F13068     
       05634  0 53400 2 01413 ABS    LXA L(5),2                    IF CONSTANT*                       4F13069     
       05635  0 50000 2 07315        CLA CHR-1,2                   THEN                               4F13070     
       05636  0 60100 0 07307        STO BIN                       CONVERT                            4F13071     
       05637 -3 00000 2 05645 CSJ    TXL INT,2,**                  BCD                                4F13072     
       05640  0 76700 0 00002        ALS 2                         DIGITS                             4F13073     
       05641  0 40000 0 07307        ADD BIN                       TO THEIR                           4F13074     
       05642  0 76700 0 00001        ALS 1                         BINARY                             4F13075     
       05643  0 40000 2 07316        ADD CHR,2                     EQUIVALENT,                        4F13076     
       05644  1 77777 2 05636        TXI CSJ-1,2,-1                AND WHEN DONE,                     4F13077     
       05645  0 02000 4 00002 INT    TRA 2,4                     * TAKE CONSTANT EXIT TO CALLER.      4F13078     
                                         END OF PROGRAM  BEG(TYP),                                    4F13079     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13080     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 093/093 ------           
                                                                                                      4F13081     
                                         BRW,4/ CALLS=JIF,BEG,VRA,CIT, CALLERS=WBT,RBT,WRD,           4F13082     
       05646 -0 63400 4 06054 BRW    SXD XRW,4                     SAVE THE C(XR4), AND               4F13083     
       05647  0 60200 0 06140        SLW CON                       SET CON = 0 OR ,,144 OR ,,192,     4F13084     
       05650  0 07400 4 02372        TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL.    4F13085     
       05651  0 07400 4 05603        TSX BEG,4                   * GO SCAN AND TEST TYPE OF SYMBOL.   4F13086     
       05652  0 07400 4 06032        TSX VRA,4                   * IF VARIABLE, ENTER FORVAR AND CITS.4F13087     
       05653  0 76700 0 00022        ALS 18                        IF CONSTANT, ADJUST CONVERTED      4F13088     
       05654  0 60100 0 07402        STO RA                         NUMBER, AND SET RA.               4F13089     
       05655  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13090     
       05656  0 00000 0 01371        PZE TL                        WORD1--0(IFN)0(248)                4F13091     
       05657  0 00000 0 07401        PZE OP                        WORD2--(WTB,RBT,WRD,RDD)000        4F13092     
       05660  0 00000 0 01406        PZE L(0)                      WORD3--000000                      4F13093     
       05661  0 00000 0 07402        PZE RA                        WORD4--000000 OR  0(UNIT)000       4F13094     
       05662 -0 50000 0 01544        CAL CPY                       MOVE CPY000                        4F13095     
       05663  0 60200 0 07401        SLW OP                        INTO OP.                           4F13096     
       05664 -0 50000 0 00415        CAL TXLOP                     SET OP-SWITCHES,                   4F13097     
       05665  0 63000 0 05754        STP ETMSW                     ETMSW AND LTMSW,                   4F13098     
       05666  0 63000 0 05757        STP LTMSW                     TO THE TRA CASE.                   4F13099     
       05667 -0 50000 0 06133        CAL RTN                       MOVE (RTN)                         4F13100     
       05670  0 60200 0 06141        SLW END                       INTO END.                          4F13101     
       05671  0 60000 0 01367        STZ SL                        CLEAR SL,                          4F13102     
       05672 -0 53400 4 06054        LXD XRW,4                     RESTORE THE C(XR4), AND            4F13103     
       05673  0 02000 4 00001        TRA 1,4                     * EXIT TO CALLER.                    4F13104     
                                         END OF PROGRAM BRW.                                          4F13105     
                                         ******************************                               4F13106     
                                                                                                      4F13107     
                                         BSS,2/ CALLS=CIT00, CALLERS=LPR,C1600,                       4F13108     
                                         BSS COMPILES=    IFN BSS 0.                                  4F13109     
       05674  0 07400 4 01731 BSS    TSX CIT00,4                 * GO MAKE FOLLOWING CIT ENTRY=       4F13110     
       05675  0 00000 0 01367        PZE SL                        WORD1--0(IFN)000                   4F13111     
       05676  0 00000 0 01536        PZE L(BSS)                    WORD2--BSS000                      4F13112     
       05677  0 00000 0 01406        PZE L(0)                      WORD3--000000                      4F13113     
       05700  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F13114     
       05701  0 02000 2 00001        TRA 1,2                     * EXIT TO CALLER+1.                  4F13115     
                                         END OF PROGRAM BSS,                                          4F13116     
                                         *****************************                                4F13117     
                                                                                                      4F13118     
                                         CA100,4 / CALLS=DIAG, CALLER=CA000,                          4F13119     
                                         CA100 READS NEXT SOURCE  PROGRAM CARD (1 TAPE RECORD),       4F13120     
       05702  0 53400 2 01413 CA100  LXA TERC,2                    PREPARE TO COUNT                   4F13121     
       05703 -0 63400 2 01112        SXD 1G,2                      TAPE READING ERRORS.               4F13122     
       05704 -0 76000 0 00012        RTT                           TURN OFF TAPE CHECK INDICATOR.     4F13123     
       05705  0 76100 0 00000        NOP                           PROCEED TO NEXT INSTRUCTION.       4F13124     
       05706  0 76200 0 00202 CA101  RDS 130                       SELECT SOURCE TAPE FOR READING,    4F13125     
       05707  0 53400 2 01420        LXA L(12),2                   INITIALIZE INDEX B FOR 12 CYCLES OF4F13126     
                                         COPY LOOP.                                                   4F13127     
       05710  0 70000 2 01347 CA102  CPY FT+12,2                   COPY INTO FT REGION                4F13128     
       05711  0 02000 0 05721        TRA CA103                     NEXT SOURCE PROGRAM CARD.          4F13129     
       05712  0 02000 0 05740        TRA CA120                     END OF FILE, GO FINISH LAST STATEM.4F13130     
       05713 -0 53400 2 01112 CA130  LXD 1G,2                      TEST TAPE ERROR COUNTER            4F13131     
       05714  2 00001 2 05716        TIX CA131,2,1                 BY TRYING TO REDUCE BY 1.          4F13132     
       05715  0 07400 4 03400        TSX DIAG,4                  * FAILED 5 TIMES IN READING TAPE 2.  4F13133     
       05716 -0 63400 2 01112 CA131  SXD 1G,2                      SAVE REDUCED VALUE IN COUNTER,     4F13134     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 094/094 ------           
       05717  0 76400 0 00202        BST 130                       BACKSPACE FORMULA TAPE,            4F13135     
       05720  0 02000 0 05706        TRA CA101                     AND GO BACK TO READ AGAIN.         4F13136     
       05721  2 00001 2 05710 CA103  TIX CA102,2,1                 TEST EXIT FROM LOOP.               4F13137     
       05722  0 76600 0 00333        IOD                           DELAY UNTIL TAPE DISCONNECTS.      4F13138     
       05723 -0 76000 0 00012        RTT                           CHECK READING OF TAPE.             4F13139     
 D     05724  1 00000 0 05713        TXI CA130,0                   IF INCORRECT, GO CHECK ERROR COUNT,4F13140     
       05725  0 53400 2 01420        LXA L(12),2                   PREPARE TO SCAN 12 WORDS OF CARD.  4F13141     
       05726  0 50000 0 01526 CA112  CLA BLANKS                    TEST                               4F13142     
       05727  0 40200 2 01347        SUB FT+12,2                   FOR                                4F13143     
       05730 -0 10000 0 05733        TNZ CA113                     BLANK                              4F13144     
       05731  2 00001 2 05726        TIX CA112,2,1                 CARD.                              4F13145     
       05732  0 02000 0 05702        TRA CA100                     IF BLANK, GO TO READ NEXT CARD.    4F13146     
       05733 -0 50000 0 01333 CA113  CAL FT                        IF NOT BLANK,                      4F13147     
       05734  0 77100 0 00036        ARS 30                        EXAMINE FIRST                      4F13148     
       05735  0 40200 0 01421        SUB L(C)                      CHARACTER TO                       4F13149     
       05736  0 10000 0 05702        TZE CA100                     TEST FOR COMMENT CARD.             4F13150     
       05737  0 02000 4 00001        TRA 1,4                     * EXIT IF NEITHER BLANK NOR COMMENT, 4F13151     
       05740  0 60000 0 01333 CA120  STZ FT                        INDICATE THAT FINAL                4F13152     
       05741 -0 63400 0 02575        SXD ENDWRD,0                  STATEMENT HAS BEEN READ IN.        4F13153     
       05742  0 02000 4 00001        TRA 1,4                     * EXIT TO MAIN ROUTINE TO FINISH.    4F13154     
                                         END OF PROGRAM CA100.                                        4F13155     
                                         ****************************                                *4F13156     
                                                                                                      4F13157     
                                         CC500,4/ CALLER=CC000,                                       4F13156     
                                         CC500 BRINGS NEXT CHARACTER  OF DICTIONARY INTO AC(30-35),   4F13159     
       05743 -0 75400 0 00000 CC500  PXD ,0                        CLEAR THE AC                       4F13160     
       05744  2 00001 2 05752        TIX CC502,2,1                 IF NO DICTIONARY CHARACTERS        4F13161     
       05745 -0 53400 2 01113        LXD 2G,2                      REMAIN IN THE MO, THEN             4F13162     
       05746  0 56000 2 06145        LDQ DIC,2                     REFILL WITH NEXT DICTIONARY WORD,  4F13163     
       05747  1 77777 2 05750        TXI CC501,2,-1                RESET THE                          4F13164     
       05750 -0 63400 2 01113 CC501  SXD 2G,2                      DICTIONARY WORD TAG, AND           4F13165     
       05751  0 53400 2 01414        LXA L(6),2                    SET THE CHARACTER COUNT = 6.       4F13166     
       05752 -0 76300 0 00006 CC502  LGL 6                         SHIFT CHAR INTO AC(30-35),         4F13167     
       05753  0 02000 4 00001        TRA 1,4                     * AND RETURN TO CALLER.              4F13168     
                                         END OF PROGRAM CC500.                                        4F13169     
                                         *****************************                               *4F13170     
                                                                                                      4F13171     
                                         ETMSW(LTMSW)*4/ CALLS=CIT, CALLERS=RDC,LPR,SPC,CMA,EMK,      4F13172     
                                         ETMSW = ENTRY POINT USED BY  RDC,CMA.                        4F13173     
 D     05754 -3 00000 0 05772 ETMSW  TXL NOTTM,0                   SWITCH (TXL=TRA, TXH=NOP),         4F13174     
       05755 -0 50000 0 06112        CAL ETM                       PICKUP ETM00, AND                  4F13175     
       05756  1 00000 0 05761 XR4X   TXI SETOP,0,**                GO SET OP.                         4F13176     
                                         LTMSW = ENTRY POINT USED BY LPR,SPC,CMA,EMK,                 4F13177     
 D     05757 -3 00000 0 05772 LTMSW  TXL NOTTM,0                   SWITCH (TXL=TRA, TXH=NOP),         4F13178     
       05760 -0 50000 0 06113        CAL LTM                       PICKUP LTM000, AND                 4F13179     
       05761  0 60200 0 06142 SETOP  SLW TOP                       SET TOP.                           4F13160     
       05762 -0 63400 4 05756        SXD XR4X,4                    SAVE THE C(XR4), AND               4F13161     
       05763  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13182     
       05764  0 00000 0 01367        PZE SL                        WORD1--0(IFN)000                   4F13183     
       05765  0 00000 0 06142        PZE TOP                       WORD2--ETM000 OR LTM000            4F13184     
       05766  0 00000 0 01406        PZE L(0)                      WORD3--000000                      4F13165     
       05767  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F13186     
       05770  0 60000 0 01367        STZ SL                        CLEAR SL,                          4F13187     
       05771 -0 53400 4 05756        LXD XR4X,4                    RESTORE THE C(XR4), AND            4F13188     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 095/095 ------           
       05772  0 02000 4 00001 NOTTM  TRA 1,4                     * EXIT TO CALLER.                    4F13189     
                                         END OF PROGRAM ETMSW(LTMSW).                                 4F13190     
                                         *****************************                               *4F13191     
                                                                                                      4F13192     
                                         IFFIX,1/ USES=TESTFX, CALLERS=CMA,VRA(VRD),                  4F13193     
       05773 -0 50000 0 00030 IFFIX  CAL EIFNO                     SET                                4F13194     
       05774  0 60000 0 01347        STZ G                         G TO                               4F13195     
       05775  0 62200 0 01347        STD G                         (0(IFN)000),                       4F13196     
       05776 -0 50000 0 07404        CAL SYM                       MOVE SYMBOL                        4F13197     
       05777  0 60200 0 01350        SLW G+1                       INTO G+1.                          4F13198     
       06000 -0 50000 0 07310        CAL CHR-6                     PICKUP 1ST CHARACTER OF SYMBOL, AND4F13199     
 D     06001  1 00000 0 03242        TXI TESTFX+1,0              * GO TEST FOR FIXED OR FLOATING PT.  4F13200     
                                         END OF PROGRAM IFFIX.                                        4F13201     
                                         *****************************                               *4F13202     
                                                                                                      4F13203     
                                         INPUT(OUTPUT),2/ CALLS=GIF,CIT,LIB,                          4F13204     
                                         CALLERS =RDC,RIT,RDP,WOT,PDC,WBT,RBT,WRD,RDD.                4F13205     
                                         INPUT = ENTRY POINT USED BY RDC,RIT,RBT,RDD,                 4F13206     
       06002  0 50000 0 01414 INPUT  CLA L(6)                      PICKUP 6 TO                        4F13207     
 TD    06003  1 00000 0 06005        TXI OUTPUT+1                  GO SET INOUT FOR FORVAL ENTRY.     4F13208     
                                         OUTPUT = ENTRY POINT USED BY RDP,WOT,PDC,WBT,WRD.            4F13209     
       06004  0 50000 0 01413 OUTPUT CLA L(5)                      PICKUP 5 TO                        4F13210     
       06005  0 60100 0 05536        STO INOUT                     SET INOUT FOR FORVAR ENTRY.        4F13211     
       06006  0 07400 4 02375        TSX GIF,4                   * SET SL = IFN,000.                  4F13212     
       06007  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13213     
       06010  0 00000 0 01367        PZE SL                        WORD1--0(IFN)000                   4F13214     
       06011  0 00000 0 01537        PZE CAL                       WORD2--CAL000                      4F13215     
       06012  0 00000 0 01510        PZE 15P                       WORD3--*00000                      4F13216     
       06013  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F13217     
       06014  0 07400 4 06023        TSX LIB,4                   * MAKE CLOSUB ENTRY, AND COMPILE=    4F13218     
       06015  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F13219     
       06016  0 00000 0 06125        PZE XIT                       WORD2--XIT000                      4F13220     
       06017  0 00000 0 06132        PZE LEV                       WORD3--(LEV)                       4F13221     
       06020  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F13222     
       06021  0 60000 0 01367        STZ SL                        CLEAR SL, AND                      4F13223     
       06022  0 02000 2 00001        TRA 1,2                     * EXIT TO CALLER.                    4F13224     
                                         END OF PROGRAM  INPUT(OUTPUT),                               4F13225     
                                         ****************************                                *4F13226     
                                                                                                      4F13227     
                                         LIB,1/ CALLS=TET00,CIT, CALLERS=RDC,EMK,INPUT(OUTPUT),       4F13228     
       06023 -0 50000 4 00003 LIB    CAL 3,4                       MOVE NAME OF SUBROUTINE,           4F13229     
       06024  0 62100 0 06025        STA LIC                       ADDRESS OF WHICH                   4F13230     
       06025 -0 50000 0 00000 LIC    CAL **                        IS IN WORD3 OF CALLING SEQ,        4F13231     
       06026  0 60200 0 01347        SLW G                         INTO G, AND                        4F13232     
       06027  0 07400 1 03321        TSX TET00,1                 * GO ENTER IN THE                    4F13233     
       06030  0 00000 0 00011        PZE 9                         CLOSUB TABLE.                      4F13234     
 D     06031  1 00000 0 01731        TXI CIT,0                   * MAKE CIT ENTRY, AND EXIT TO CALLER.4F13235     
                                         END OF PROGRAM L1B.                                          4F13236     
                                         *****************************                               *4F13237     
                                                                                                      4F13238     
                                         VRA(VRD),4/ CALLS=IFFIX,DIAG,TET00,CIT,DRTABS,JIF,           4F13239     
                                         CALLERS =RIT,WOT,EFT,                                        4F13240     
                                         VRA = ENTRY POINT USED BY EFT.                               4F13241     
       06032  0 50000 0 02400 VRA    CLA L(TL)                     RESET TPOA ADDRESS                 4F13242     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 096/096 ------           
       06033  0 62100 0 05102        STA TPOA                      TO TL.                             4F13243     
       06034 -0 50000 0 00415        CAL TXLOP                     PREPARE TO SET OP-SWITCH TO TRA.   4F13244     
       06035  1 77777 4 06037        TXI VRD1,4,-1                 SET RETURN TO TSX+2, AND GO SET OP.4F13245     
                                         VRD = ENTRY POINT USED BY RIT,WOT,                           4F13246     
       06036  0 50000 0 00415 VRD    CLA TXLOP                     PREPARE TO SET OP-SWITCH TO NOP.   4F13247     
       06037  0 63000 0 06052 VRD1   STP VRX                       SET VRX OP-SWITCH.                 4F13248     
       06040 -0 63400 4 06052        SXD VRX,4                     SAVE THE C(XR4) FOR RETURN.        4F13249     
       06041  0 07400 1 05773        TSX IFFIX,1                 * SET UP IFN AND SYMBOL FOR FORVAR.  4F13250     
       06042  0 07400 4 03400        TSX DIAG,4                  * ILLEGAL USE OF FLOATING VARIABLE.  4F13251     
       06043  0 07400 1 03321        TSX TET00,1                 * IF SYMBOL IS FXD-PT, GO MAKE       4F13252     
       06044  0 00000 0 00005        PZE 5                         ENTRY IN FORVAR TABLE.             4F13253     
       06045  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13254     
       06046  0 00000 0 01367        PZE SL                        WORD1-0(IFN)000                    4F13255     
       06047  0 00000 0 01537        PZE CAL                       WORD2-CAL000                       4F13256     
       06050  0 00000 0 07404        PZE SYM                       WORD3-(FXD-PT SYMBOL)              4F13257     
       06051  0 00000 0 01406        PZE L(0)                      WORD4-000000                       4F13258     
       06052  3 00000 0 06055 VRX    TXH VDA,0,**                  SWITCH ITXL=TRA, TXH=NOP),         4F13259     
       06053 -0 50000 0 06121        CAL STD                       PICKUP STD000, AND                 4F13260     
       06054  1 00000 0 06076 XRW    TXI RVX,0,**                  GO SET TOP.                        4F13261     
       06055  0 50000 0 06140 VDA    CLA CON                       IF CON                             4F13262     
       06056  0 10000 0 06070        TZE SDA                       IS NOT ZERO,                       4F13263     
       06057  0 60100 0 01347        STO G                         THEN                               4F13264     
       06060  0 07400 4 00417        TSX FXCNIX,4                * ENTER CON IN FIXCON,AND GET TAG,   4F13265     
       06061  0 76700 0 00022        ALS 18                        ADJUST TAG, AND                    4F13266     
       06062  0 60100 0 07402        STO RA                        SET RA.                            4F13267     
       06063  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY.   4F13268     
       06064  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F13269     
       06065  0 00000 0 01532        PZE ADD                       WORD2-ADD000                       4F13270     
       06066  0 00000 0 00013        PZE 2P                        WORD3-200000                       4F13271     
       06067  0 00000 0 07402        PZE RA                        WORD4-(FIXCON TAG)                 4F13272     
       06070  0 07400 4 01731 SDA    TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13273     
       06071  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F13274     
       06072  0 00000 0 01535        PZE ARS                       WORD2-ARSOOO                       4F13275     
       06073  0 00000 0 01406        PZE L(0)                      WORD3-000000                       4F13276     
       06074  0 00000 0 01466        PZE D18                       WORD4-0(18)000                     4F13277     
       06075 -0 50000 0 01571        CAL STA                       PICKUP  STAOOO, AND                4F13278     
       06076  0 60200 0 06142 RVX    SLW TOP                       SET TOP TO STA OR STD.             4F13279     
       06077  0 07400 4 02372        TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL,    4F13280     
       06100  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13281     
       06101  0 00000 0 01406        PZE L(0)                      WORD1- 00600                       4F13282     
       06102  0 00000 0 06142        PZE TOP                       WORD2-STA000 OR STD000             4F13283     
       06103  0 00000 0 01371        PZE TL                        WORD3-0(IFN)000                    4F13264     
       06104  0 00000 0 01406        PZE L(0)                      WORD4-000000                       4F13285     
       06105 -0 75400 0 05555 NLA    PXD LAST,0                    CLEAR THE AC                       4F13286     
       06106 -0 53400 4 06052        LXD VRX,4                     RESTORE THE C(XR4), AND            4F13287     
       06107  0 02000 4 00001        TRA 1,4                     * EXIT TO CALLER.                    4F13288     
                                          END OF PROGRAM VRA(VRD),                                    4F13289     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13290     
                                                                                                      4F13291     
                                         STATEA/5-CONSTANTS AND VARIABLES USED BY STATE A=            4F13292     
                                                                                                      4F13293     
       06110  222324000000      BCD  BCD 1BCD000                   CONSTANT USED BY IOT.              4F13294     
       06111  226263000000      BST  BCD 1BST000                   CONSTANT USED BY IOT.              4F13295     
       06112  256344000000      ETM  BCD 1ETM000                   CONSTANT USED BY IOT,              4F13296     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 097/097 ------           
       06113  436344000000      LTM  BCD 1LTM000                   CONSTANT USED BY IOT.              4F13297     
       06114  456351000000      NTR  BCD 1NTR000                   CONSTANT USED BY IOT.              4F13298     
       06115  512451000000      RDR  BCD 1RDR000                   CONSTANT USED BY IOT.              4F13299     
       06116  512566000000      REW  BCD 1REW000                   CONSTANT USED BY IOT.              4F13300     
       06117  516322000000      RTB  BCD 1RTB000                   CONSTANT USED BY IOT.              4F13301     
       06120  624366000000      SLW  BCD 1SLW000                   CONSTANT USED BY IOT.              4F13302     
       06121  626324000000      STD  BCD 1STD000                   CONSTANT USED BY IOT.              4F13303     
       06122  662451000000      WDR  BCD 1WDR000                   CONSTANT USED BY IOT.              4F13304     
       06123  662526000000      WEF  BCD 1WEF000                   CONSTANT USED BY IOT.              4F13305     
       06124  666322000000      WTB  BCD 1WTB000                   CONSTANT USED BY IOT.              4F13306     
       06125  673163000000      XIT  BCD 1XIT000                   CONSTANT USED BY IOT.              4F13307     
       06126  742224233460      BDC  BCD 1(BDC)                    CONSTANT USED BY IOT.              4F13308     
       06127  742362303460      CSH  BCD 1(CSH)                    CONSTANT USED BY IOT.              4F13309     
       06130  742422233460      DBC  BCD 1(DBC)                    CONSTANT USED BY IOT.              4F13310     
       06131  742631433460      FIL  BCD 1(FIL)                    CONSTANT USED BY IOT.              4F13311     
       06132  744325653460      LEV  BCD 1(LEV)                    CONSTANT USED BY IOT.              4F13312     
       06133  745163453460      RTN  BCD 1(RTN)                    CONSTANT USED BY IOT.              4F13313     
       06134  746223303460      SCH  BCD 1(SCH)                    CONSTANT USED BY IOT.              4F13314     
       06135  746247303460      SPH  BCD 1(SPH)                    CONSTANT USED BY IOT.              4F13315     
       06136  746263303460      STH  BCD 1(STH)                    CONSTANT USED BY IOT.              4F13316     
       06137  746362303460      TSH  BCD 1(TSH)                    CONSTANT USED BY IOT.              4F13317     
                                                                                                      4F13318     
                        06140  CON   BSS 1                         VARIABLE USED BY IOT.              4F13319     
       06141  0 00000 0 00000 END    PZE **                        VARIABLE USED BY IOT.              4F13320     
                        06142  TOP   BSS 1                         VARIABLE USED BY IOT.              4F13322     
       06143  0 00000 0 00000 TSA    PZE **                        VARIABLE USED BY IOT.              4F13323     
       06144  0 00000 0 00000 TTA    PZE **                        VARIABLE USED BY IOT.              4F13324     
                                                                                                      4F13325     
                                         DIC/ DICTIONARY OF NON-ARITHMETIC STATEMENTS (USED BY CC500).4F13326     
       06145 +244677274663      DIC  OCT 244677274663              DO-GOT                             4F13327     
       06146 -067731267462           OCT -67731267462              O-IF(S                             4F13328     
       06147 +254562256266           OCT 254562256266              ENSESW                             4F13329     
       06150 +316323307731           OCT 316323307731              ITCH-I                             4F13330     
       06151 +267462254562           OCT 267462254562              F(SENS                             4F13331     
       06152 +254331273063           OCT 254331273063              ELIGHT                             4F13332     
       06153 -373126243165           OCT -373126243165             -IFDIV                             4F13333     
       06154 +312425233025           OCT 312425233025              IDECHE                             4F13334     
       06155 +234277312621           OCT 234277312621              CK-IFA                             4F13335     
       06156 +232364446443           OCT 232364446443              CCUMUL                             4F13336     
       06157 +216346514665           OCT 216346514665              ATOROV                             4F13337     
       06160 +255126434666           OCT 255126434666              ERFLOW                             4F13338     
       06161 -373126506446           OCT -373126506446             -IFQUO                             4F13339     
       06162 -233125456346           OCT -233125456346             TIENTO                             4F13340     
       06163 -252551264346           OCT -252551264346             VERFLO                             4F13341     
       06164 -267731267721           OCT -267731267721             W-IF-A                             4F13342     
       06165 -226231274577           OCT -226231274577             SSIGN-                             4F13343     
       06166 -226346477747           OCT -226346477747             STOP-P                             4F13344     
       06167 +216462257762           OCT 216462257762              AUSE-S                             4F13345     
       06170 +254562254331           OCT 254562254331              ENSELI                             4F13346     
       06171 +273063772431           OCT 273063772431              GHT-DI                             4F13347     
       06172 -042545623146           OCT -42545623146              MENSIO                             4F13348     
       06173 -057725506431           OCT -57725506431              N-EQUI                             4F13349     
       06174 -252143254523           OCT -252143254523             VALENC                             4F13350     
       06175 +257726512550           OCT 257726512550              E-FREQ                             4F13351     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 098/098 ------           
       06176 -242545237077           OCT -242545237077             UENCY-                             4F13352     
       06177 +234645633145           OCT 234645633145              CONTIN                             4F13353     
       06200 -242577512521           OCT -242577512521             UE-REA                             4F13354     
       06201 +246321472577           OCT 246321472577              DTAPE-                             4F13355     
       06202 -112521243145           OCT -112521243145             READIN                             4F13356     
       06203 -076463632147           OCT -76463632147              PUTTAP                             4F13357     
       06204 +257751252124           OCT 257751252124              E-READ                             4F13358     
       06205 +245164447751           OCT 245164447751              DRUM-R                             4F13359     
       06206 +252124776651           OCT 252124776651              EAD-WR                             4F13360     
       06207 +316325632147           OCT 316325632147              ITETAP                             4F13361     
       06210 +257766513163           OCT 257766513163              E-WRIT                             4F13362     
       06211 +254664634764           OCT 254664634764              EOUTPU                             4F13363     
       06212 -236321472577           OCT -236321472577             TTAPE-                             4F13364     
       06213 -265131632524           OCT -265131632524             WRITED                             4F13365     
       06214 -116444774751           OCT -116444774751             RUM-PR                             4F13366     
       06215 +314563774764           OCT 314563774764              INT-PU                             4F13367     
       06216 -052330775125           OCT -52330775125              NCH-RE                             4F13368     
       06217 -263145247722           OCT -263145247722             WIND-B                             4F13369     
       06220 +212342624721           OCT 212342624721              ACKSPA                             4F13370     
       06221 +232577254524           OCT 232577254524              CE-END                             4F13371     
       06222 +263143257726           OCT 263143257726              FILE-F                             4F13372     
       06223 -065144216377           OCT -65144216377              ORMAT-                             4F13373     
       06224 -226422514664           OCT -226422514664             SUBROU                             4F13374     
       06225 -233145257723           OCT -233145257723             TINE-C                             4F13375     
       06226 -064444464577           OCT -064444464577             OMMON-                             4F13376     
       06227 -112563645145           OCT -112563645145             RETURN                             4F13377     
       06230 -372321434377           OCT -372321434377             -CALL-                             4F13378     
       06231 +254524747726           OCT 254524747726              END(-F                             4F13379     
       06232 -244523633146           OCT -244523633146             UNCTIO                             4F13360     
       06233 -057777777777           OCT -057777777777             N-----                             4F13361     
                        06234        BSS 10                                                           4F133815    
                                         END OF DICTIONARY.                                           4F13382     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13383     
                                                                                                      4F13384     
                                         T/ TRANSFER TABLE IUSED BY CC000),                           4F13385     
 D     06246  1 00000 0 03653 T      TXI C0100,0                   DO,                                4F13386     
 D     06247  1 00000 0 03720        TXI C0200,0                   GO TO.                             4F13387     
 D     06250  1 00000 0 04106        TXI C0400,0                   IF ISENSE SWITCH.                  4F13388     
 D     06251  1 00000 0 04150        TXI C0500,0                   IF (SENSE LIGHT.                   4F13389     
 D     06252  1 00000 0 04154        TXI C0600,0                   IF DIVIDE CHECK.                   4F13390     
 D     06253  1 00000 0 04162        TXI C0700,0                   IF AC OVERFLOW,                    4F13391     
 D     06254  1 00000 0 04166        TXI C0800,0                   IF MO OVERFLOW.                    4F13392     
 D     06255  1 00000 0 04033        TXI C0300,0                   IF.                                4F13393     
 D     06256  1 00000 0 04216        TXI C1000,0                   A5SIGN.                            4F13394     
 D     06257  1 00000 0 04343        TXI C1300,0                   STOP.                              4F13395     
 D     06260  1 00000 0 04170        TXI C0900,0                   PAUSE.                             4F13396     
 D     06261  1 00000 0 04251        TXI C1100,0                   SENSE LIGHT,                       4F13397     
 D     06262 -3 00000 0 04266        TXL C1200,0                   DIMENSION*                         4F13398     
 D     06263 -3 00000 0 04375        TXL C1500,0                   EOUIVALENCE.                       4F13399     
 D     06264 -3 00000 0 04354        TXL C1400,0                   FREOUENCY,                         4F13400     
 D     06265  1 00000 0 04433        TXI C1600,0                   CONTINUE.                          4F13401     
 D     06266  1 00000 0 05012        TXI RBT,0                     READ TAPE.                         4F13402     
 D     06267  1 00000 0 04745        TXI RIT,0                     READ INPUT TAPE.                   4F13403     
 D     06270  1 00000 0 05063        TXI RDD,0                     READ DRUM.                         4F13404     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 099/099 ------           
 D     06271  1 00000 0 04673        TXI RDC,0                     READ CARD.                         4F13405     
 D     06272  1 00000 0 04777        TXI WBT,0                     WRITE TAPE.                        4F13406     
 D     06273  1 00000 0 04764        TXI WOT,0                     WRITE OUTPUT TAPE.                 4F13407     
 D     06274  1 00000 0 05044        TXI WRD,0                     WRITE DRUM,                        4F13408     
 D     06275  1 00000 0 04753        TXI RDP,0                     PRINT.                             4F13409     
 D     06276  1 00000 0 04772        TXI PDC,0                     PUNCH.                             4F13410     
 D     06277  1 00000 0 05107        TXI RWN,0                     REWIND.                            4F13411     
 D     06300  1 00000 0 05111        TXI BSP,0                     BACKSPACE.                         4F13412     
 D     06301  1 00000 0 05066        TXI EFT,0                     END FILE.                          4F13413     
 D     06302 -3 00000 0 05113        TXL FOR,0                     FORMAT.                            4F13414     
 D     06303 -3 00000 0 04442        TXL C3000,0                   SUBROUTINE.                        4F13415     
 D     06304 -3 00000 0 04512        TXL C3100,0                   COMMON.                            4F13416     
 D     06305  1 00000 0 04536        TXI C3200,0                   RETURN.                            4F13417     
 D     06306  1 00000 0 04607        TXI C3300,0                   CALL.                              4F13418     
 D     06307 -3 00000 0 04660        TXL C3400,0                   END.                               4F13419     
 D     06310 -3 00000 0 04440        TXL C3500,0                   FUNCTION.                          4F13420     
                        06311        BSS 10                                                           4F134205    
                                         END OF TRANSFER TABLE.                                       4F13421     
                        06323 ENDADR BSS 0                                                            4F134215    
                                         ******************************  *                            4F13422     
                                                                                                      4F13423     
                        07307 ENDA   ORG 3783                                                         4F13424     
                        07307 BIN    BSS 1                          VARIABLE  USED BY  IOT.           4F13425     
                        07316 CHR    BES 6                          VARIABLE  USED BY  IOT.           4F13426     
                        07316        BSS 50                         PARAMETERS FOR TLDOS TABLE -IOT.  4F13427     
                        07400 DOLEV  BSS 1                          PARAMETERS FOR TLDOS TABLE -IOT.  4F13428     
                        07401 OP     BSS 1                          VARIABLE USED BY IOT.             4F13429     
                        07402 RA     BSS 1                          VARIABLE USED BY IOT.             4F13430     
                        07403 SA     BSS 1                          VARIABLE USED BY IOT.             4F13431     
                        07404 SYM    BSS 1                          VARIABLE USED BY IOT.             4F13432     
                        07405 TLDOS  BSS 250                        DO TABLE USED BY IOT.             4F13433     
                                         END OF WORKING STORAGE USED BY STATEA.                       4F13434     
                                         ******************************                              *4F13435     
                                                                                                      4F13436     
                                         END OF THE NON-ARITHMETIC PART OF SECTION ONE.               4F13437     
                                                                                                      4F13438     
                                         ******************************                              *4F13439     
                                                                                                      4F13440     
                                         ARITHMETIC / STATE B=                                        4F13441     
                                         704 FORTRAN MASTER RECORD CARD / STATE B = F0180000.         4F13442     
                        00000        ORG 0                                                            4F134421    
       00000  0 00506 0 03440        PZE ORGB,,DMWR06                                                 4F134422    
       00001  0 00000 0 05214        PZE ENDB-1                                                       4F134423    
                                                                                                      4F13443     
                        03440 ORGB   ORG 1824                                                         4F13444     
                                                                                                      4F13445     
                                         THIS IS A RECODED VERSION OF STATE B OF SECTION ONE, 704     4F13446     
                                         FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL   4F13447     
                                         ANALYSIS HAS BEEN FOLDED OVER.                               4F13440     
                                                                                                      4F13449     
                                         STATE B CONSISTS OF TWO PARTS....SCAN AND LEVEL ANALYSIS.    4F13450     
                                         THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS 4F13451     
                                         IN THE F REGION OF COMMON AND  IS IN BCD.                    4F13452     
                                         EACH FIXED POINT CONSTANT, FLOATING POINT CONSTANT, AND BCD  4F13453     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 100/100 ------           
                                         ( HOLLERITH) ARGUMENT IN CALL NAME STATEMENTS ARE ENTERED IN 4F13454     
                                         TABLES AND GIVEN AN INTERNAL VARIABLE NAME.                  4F13455     
                                         LEVEL ANALYSIS IS PREFORMED FOR EACH ELEMENT OF THE STATEMENT4F13456     
                                         WHERE AN ELEMENT IS DEFINED AS A VARIABLE, FUNCTION NAME OR (4F13457     
                                         AND THE OPERATOR WHICH PRECEDES IT.                          4F13458     
       03440  0 76000 0 00140        SLF                                                              4F13459     
       03441  0 50000 0 04741        CLA SIG1ST                                                       4F13460     
       03442  0 60100 0 00445        STO SIG1IX-3                                                     4F13461     
       03443  0 60000 0 01122        STZ ARGCTR            CLEAR                                      4F13462     
       03444  0 60000 0 01124        STZ CHSAVE            X                                          4F13463     
       03445  0 60000 0 01117        STZ 3LBAR             X                                          4F13464     
       03446  0 60000 0 01360        STZ NBAR              X                                          4F13465     
       03447  0 60000 0 05277        STZ CBAR              X                                          4F13466     
       03450  0 60000 0 05300        STZ ABAR              X                                          4F13467     
       03451  0 60000 0 05301        STZ FSTYPE            X                                          4F13468     
       03452 -0 53400 4 01507        LXD 1BAR,4            SET NBAR=-1                                4F13469     
       03453 -0 63400 4 01360        SXD NBAR,4            X                                          4F13470     
       03454 -0 50000 0 01500        CAL E(                SET ARERAS - E(                            4F13471     
       03455  0 60200 0 01120        SLW ARERAS            X                                          4F13472     
       03456  0 07400 4 01671        TSX C0190X,4          SET FWA --F AND CHCTR  - 0                 4F13473     
       03457 -0 50000 0 00422        CAL TXHOP             SET SWITCHES FOR LEFT SCAN.                4F13474     
       03460  0 63000 0 03563        STP MS093             X                                          4F13475     
       03461  0 63000 0 03767        STP MS310             X                                          4F13476     
       03462  0 63000 0 03750        STP MS321             X                                          4F13477     
       03463 -0 50000 0 01512 MS010  CAL ADPLUS            SET OP TO ADDITION                         4F13478     
       03464  0 60200 0 01127 MS030  SLW E+1               X                                          4F13479     
       03465  0 60000 0 05303        STZ FNBITS            CLEAR FUNCTION NAME INDICATOR              4F13480     
       03466  0 60000 0 05304        STZ FNCTR             CLEAR FUNCTION ARG COUNTER.                4F13481     
       03467  0 60000 0 01347        STZ G                 CLEAR RECEIVING CELL.                      4F13482     
       03470  0 50200 0 01406        CLS L(0)              SET E = -0                                 4F13483     
       03471  0 60100 0 01126        STO E                 X                                          4F13484     
       03472  0 53400 2 01414        LXA L(6),2            SET IR2 FOR SIX CHARS.                     4F13485     
       03473 -0 50000 0 01124 MS040  CAL CHSAVE            CHAR IN CHSAVE, IF ANY, TO AC.             4F13486     
       03474 -0 10000 0 03476        TNZ MS041             X                                          4F13467     
       03475  0 07400 4 01707        TSX C0190,4           CHSAVE EMPTY, GET NEXT CHAR.               4F13488     
       03476  0 34000 0 01417 MS041  CAS L(9)              IS CHAR. NUMERIC                           4F13489     
       03477  0 02000 0 03504        TRA MS050             N/, TAKE TRA                               4F13490     
 D     03500  3 00000 0 04417 MS4007 TXH CM4100,0                                                     4F13491     
       03501  0 07400 4 04463        TSX ROYCNV,4          X                                          4F13492     
       03502  0 02000 0 04030        TRA HOLL              RETURN 1, THIS WAS HOLLERITH.              4F13493     
       03503  0 02000 0 04076        TRA LATXH             THIS WAS FIXED OR FLOATING CONSTANT.       4F13494     
       03504  0 53400 4 01373 MS050  LXA L(10),4           PREPARE TO TEST FOR PUNCTUATION.           4F13495     
       03505  0 34000 4 01406 MS051  CAS CTEST,4                                                      4F13496     
       03506  0 02000 0 03510        TRA MS052             X                                          4F13497     
       03507  0 02000 0 03543        TRA MS090             CHAR IS SOME PUNCTUATION.                  4F13498     
       03510  2 00001 4 03505 MS052  TIX MS051,4,1         X                                          4F13499     
       03511  0 76700 2 00044 MS060  ALS 36,2              POSITION CHAR FOR BUILDING SYMBOL.         4F13500     
       03512 -0 60200 0 01347        ORS G                 ADD CHAR TO THOSE IN G.                    4F13501     
       03513  1 00006 2 03514        TXI MS061,2,6         UPDATE POSITIONING TAG.                    4F13502     
       03514  0 07400 4 01707 MS061  TSX C0190,4           GET NEXT CHAR.                             4F13503     
       03515  0 53400 4 01373 MS070  LXA L(10),4           PREPARE TO TEST FOR PUNCTUATION.           4F13504     
       03516  0 34000 4 01406 MS071  CAS CTEST,4           X                                          4F13505     
       03517  0 02000 0 03521        TRA MS072             X                                          4F13506     
       03520  0 02000 0 03545        TRA MS091             CHAR IS SOME PUNCTUATION.                  4F13507     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 101/101 ------           
       03521  2 00001 4 03516 MS072  TIX MS071,4,1         X                                          4F13508     
       03522 -3 00022 2 03511        TXL MS060,2,18        IF THIS IS CHAR I, 2 /R 3 GO BUILD G.      4F13509     
       03523  0 34000 0 01422        CAS L(F)              IS THIS AN F ENDING FUNCTION NAME.         4F13510     
       03524  0 02000 0 03526        TRA MS073             X                                          4F13511     
       03525  0 02000 0 03530        TRA MS080             MAYBE, GO LOOK AT NEXT CHAR.               4F13512     
       03526 -3 00044 2 03511 MS073  TXL MS060,2,36        TEST FOR UNDER 7 CHARS.                    4F13513     
       03527  0 07400 4 03400 MS074  TSX DIAG,4            BUILD G, 7TH CHAR IS ERROR.                4F13514     
       03530  0 07400 4 01707 MS080  TSX C0190,4           GET NEXT CHAR.                             4F13515     
       03531  0 34000 0 01375        CAS OPEN              TEST FOR (.                                4F13516     
       03532  0 02000 0 03534        TRA MS081             X                                          4F13517     
       03533  0 02000 0 03555        TRA MS092             YES, THIS IS A FUNCTION NAME.              4F13518     
       03534  0 60100 0 01331 MS081  STO FIRSTC            NO, SAVE CURRENT CHAR.                     4F13519     
       03535 -0 50000 0 01422        CAL L(F)              ADD F TO CONTENTS OF G,                    4F13520     
       03536  0 76700 2 00044        ALS 36,2              X                                          4F13521     
       03537 -0 60200 0 01347        ORS G                 X                                          4F13522     
       03540  3 00044 2 03527        TXH MS074,2,36        TEST FOR 7TH CHAR, YES IS ERROR,           4F13523     
       03541  0 50000 0 01331        CLA FIRSTC            RESTORE CURRENT CHAR.                      4F13524     
       03542  1 00006 2 03515        TXI MS070,2,6         UPDATE POSITIONING TAG,                    4F13525     
       03543  0 60000 0 01124 MS090  STZ CHSAVE            CLEAR                                      4F13526     
       03544  0 02000 4 03677        TRA TRBLKA,4                                                     4F13527     
       03545  0 60200 0 01124 MS091  SLW CHSAVE            OP IS IN NEXT ELEMENT, SAVE,               4F13528     
       03546 -0 50000 0 01430        CAL BLANK             ADD BLANK TO CHARS IN G.                   4F13529     
       03547  0 76700 2 00044        ALS 36,2              X                                          4F13530     
       03550 -0 60200 0 01347        ORS G                 X                                          4F13531     
       03551  0 56000 0 01347        LDQ G                 MOVE G TO E+2 AND TO G+1,                  4F13532     
       03552 -0 60000 0 01130        STQ E+2               X                                          4F13533     
       03553 -0 60000 0 01350        STQ G+1               X                                          4F13534     
       03554  0 02000 4 03727        TRA TRBLKB,4          NOW BRANCH TO INDIVIDUAL ROUTINE           4F13535     
       03555 -0 75400 0 00000 MS092  PXD ,0                CLEAR                                      4F13536     
       03556  0 56000 0 01526        LDQ BLANKS            ADD BLANKS TO SUBROUTINE NAME IN G.        4F13537     
       03557 -0 76300 2 00052        LGL 42,2              X                                          4F13538     
       03560 -0 50100 0 01347        ORA G                 X                                          4F13539     
       03561  0 60200 0 01347        SLW G                 X                                          4F13540     
       03562  0 60200 0 01130        SLW E+2               MOVE FUNCTION NAME TO E+2.                 4F13541     
 U     03563    00000 0 04026 MS093  *** MS335,0           TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE.     4F13542     
       03564 -0 53400 4 00470        LXD BK,4              THIS IS ARITH FUNCTION STATEMENT.          4F13543     
       03565  0 60200 4 00471        SLW FORSUB,4          ENTER FUNCTION NAME IN FORSUB TABLE.       4F13544     
       03566 -0 50000 0 00030        CAL EIFNO             ENTER INTERNAL FORMULA NO IN FORSUB.       4F13545     
       03567 -0 32000 0 01527        ANA MASK1             X                                          4F13546     
       03570  0 60100 4 00472        STO FORSUB+1,4        X                                          4F13547     
       03571  1 77776 4 03572        TXI FS010,4,-2        UPDATE COUNT OF ENTRIES IN FORSUB.         4F13548     
       03572 -0 63400 4 00470 FS010  SXD BK,4              X                                          4F13549     
       03573  0 07400 4 01707 FS020  TSX C0190,4           GET FIRST CHAR OF ARGUMENT.                4F13550     
       03574  0 34000 0 01400        CAS EQUAL             TEST FOR EQUAL,                            4F13551     
       03575  0 02000 0 03577        TRA FS030             X                                          4F13552     
       03576  0 02000 0 03755        TRA MS322             GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+24F13553     
       03577  0 34000 0 01417 FS030  CAS L(9)              TEST FOR ILLEGAL ARGUMENT,                 4F13554     
       03600  0 02000 0 03603        TRA FS040             LEGAL, CONTINUE                            4F13555     
 D     03601  3 00000 0 04427 MS9002 TXH CM4200,0                                                     4F13556     
       03602  0 07400 4 03400        TSX DIAG,4            BEGINS NUMERIC, ERROR,                     4F13557     
       03603  0 07400 2 01624 FS040  TSX C0160,2           COLLECT ARGUMENT NAME IN 1G,               4F13558     
       03604  0 07400 4 03255        TSX TESTB0,4          TEST CHAR FOLLOWING ARG FOR , OR)          4F13559     
       03605 -0 53400 2 01122        LXD ARGCTR,2          GET COUNT OF ARGUMENTS                     4F13560     
       03606  0 56000 0 01112        LDQ 1G                ENTER ARGUMENT NAME IN ARGREG TABLE.       4F13561     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 102/102 ------           
       03607 -0 60000 2 05215        STQ ARGREG,2          X                                          4F13562     
       03610  1 77777 2 03611        TXI FS050,2,-1        UPDATE COUNT OF ARGUMENTS.                 4F13563     
       03611 -0 63400 2 01122 FS050  SXD ARGCTR,2                                                     4F13464     
       03612  3 77716 2 03573        TXH FS020,2,-50       TEST FOR ARGREG TABLE OVERFLOW,            4F13565     
       03613  0 07400 4 03400        TSX DIAG,4            YES, ERROR.                                4F13566     
       03614  0 07400 4 04470 MS200  TSX DECPNT,4          CONVERT BCD NUMBER TO BINARY               4F13567     
       03615  0 07400 4 03400        TSX DIAG,4            HOLLERITH RETURN, ERROR.                   4F13568     
       03616  0 02000 0 04076        TRA LATXH             FLOATING POINT CONSTANT RETURN.            4F13569     
       03617  0 76000 0 00141 MS210  SLN 1                 TURN , LITE 0N.                            4F13570     
       03620 -0 53400 1 01117        LXD 3LBAR,1           PERFORM LEVEL ANALYSIS FOR ,               4F13571     
       03621 -0 53400 4 05300        LXD ABAR,4                                                       4F13572     
       03622  0 50200 4 05301        CLS ALPHA-4,4                                                    4F13573     
       03623  0 60100 1 05520        STO LAMBDA,1                                                     4F13574     
       03624 -0 50000 0 01522        CAL ADSPOP                                                       4F13575     
       03625  0 60200 1 05521        SLW LAMBDA+1,1                                                   4F13576     
       03626  0 50000 0 01360        CLA NBAR                                                         4F13577     
       03627  0 77100 0 00022        ARS 18                                                           4F13578     
       03630  0 60100 1 05522        STO LAMBDA+2,1                                                   4F13579     
       03631  1 77775 1 03632        TXI MS211,1,-3                                                   4F13580     
       03632 -0 63400 1 01117 MS211  SXD 3LBAR,1                                                      4F13581     
       03633 -0 53400 1 01360        LXD NBAR,1                                                       4F13582     
       03634 -0 63400 1 05277        SXD CBAR,1                                                       4F13583     
       03635  1 77777 1 03636        TXI MS212,1,-1                                                   4F13584     
       03636 -0 63400 1 01360 MS212  SXD NBAR,1                                                       4F13585     
       03637  1 00003 4 03640        TXI MS213,4,3                                                    4F13586     
       03640 -0 63400 4 05300 MS213  SXD ABAR,4                                                       4F13587     
       03641  0 02000 0 03463        TRA MS010                                                        4F13588     
       03642 -0 53400 4 05300 MS220  LXD ABAR,4           PERFORM LEVEL ANALYSIS FOR )                4F13589     
       03643  0 50000 4 05301        CLA ALPHA-4,4                                                    4F13590     
       03644  0 73400 1 00000        PAX ,1                                                           4F13591     
       03645 -0 63400 1 05277        SXD CBAR,1                                                       4F13592     
       03646  1 00004 4 03647        TXI MS221,4,4                                                    4F13593     
       03647 -0 63400 4 05300 MS221  SXD ABAR,4                                                       4F13594     
       03650  0 02000 0 04425        TRA MS020                                                        4F13595     
       03651 -0 53400 4 05300 MS230  LXD ABAR,4            PERFORM LEVEL ANALYSIS FOE ENDMK,          4F13596     
       03652  1 00003 4 03653        TXI MS231,4,3                                                    4F13597     
       03653 -3 00000 4 03655 MS231  TXL MS232,4,0         FINISHED, HAS LEVEL BEEN REDUCED TO ZERO,  4F13598     
       03654  0 07400 4 03400        TSX DIAG,4            NO, ERROR.                                 4F13599     
       03655 -0 53400 4 01122 MS232  LXD ARGCTR,4          WAS THIS AN ARITH FUNCTION STATEMENT       4F13600     
       03656 -3 00000 4 02406        TXL STATEC,4,0                                                   4F13601     
       03657 -0 50000 0 05301        CAL FSTYPE            YES, UPDATE FUNCTION TYPE AND              4F13602     
       03660  0 40000 0 01407        ADD L(1)              COMPLETE FORSUB ENTRY BY ASSIGNING         4F13603     
       03661 -0 53400 1 00470        LXD BK,1              TYPE NUMBER.                               4F13604     
       03662  0 62100 1 00470        STA FORSUB-1,1        X                                          4F13605     
       03663 -0 60200 0 01120        ORS ARERAS            ALSO SAVE FOR LATER REFERENCE.             4F13606     
       03664  0 02000 0 02406        TRA STATEC                                                       4F13607     
       03665  0 02000 0 03651        TRA MS230             ENDMK                                      4F13608     
       03666  0 02000 0 03712        TRA MS260             (                                          4F13609     
       03667  0 02000 0 03617        TRA MS210             ,                                          4F13610     
       03670  0 02000 0 03642        TRA MS220             )                                          4F13611     
       03671  0 07400 4 03400 MSERR= TSX DIAG,4            =                                          4F13612     
       03672  0 02000 0 03707        TRA MS250             -                                          4F13613     
       03673  0 02000 0 03707        TRA MS250             /                                          4F13614     
       03674  0 02000 0 03614        TRA MS200             ,                                          4F13615     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 103/103 ------           
       03675  0 02000 0 03707        TRA MS250             +                                          4F13616     
       03676  0 76700 0 00036 MS240  ALS 30                *    SAVE  *                               4F13617     
                        03677 TRBLKA BSS 0                                                            4F13618     
       03677  0 60200 0 01127        SLW E+1               X                                          4F13619     
       03700  0 07400 4 01707        TSX C0190,4           GET  NEXT  CHAR.                           4F13620     
       03701  0 34000 0 01405        CAS STAR              IS IT *                                    4F13621     
       03702  0 02000 0 03476        TRA MS041             X                                          4F13622     
       03703  0 02000 0 03705        TRA MS241             YES, THIS WAS **                           4F13623     
       03704  0 02000 0 03476        TRA MS041             NO,  GO COMPARE TO OTHER PUNCTUATION.      4F13624     
       03705 -0 50000 0 01525 MS241  CAL STRSTR            REPLACE * WITH **                          4F13625     
       03706  0 02000 0 03710        TRA MS251             X                                          4F13626     
       03707  0 76700 0 00036 MS250  ALS 30                POSITION  CHAR WHICH IS + OR - OR /        4F13627     
       03710  0 60200 0 01127 MS251  SLW E+1               PUT CURRENT OP IN E+1.                     4F13628     
       03711  0 02000 0 03473        TRA MS040             NOW GO COLLECT SYMBOL,                     4F13629     
       03712  0 76700 0 00036 MS260  ALS 30                ( TO SYMBOL WORD                           4F13630     
       03713  0 60200 0 01130        SLW E+2               X                                          4F13631     
       03714  0 02000 0 04074        TRA LATXL             GO PERFORM LEVEL ANALYSIS FOR (            4F13632     
       03715  0 02000 0 03726        TRA MS300             ENDMK                                      4F13633     
       03716  0 02000 0 03747        TRA MS320             (                                          4F13634     
       03717  0 02000 0 03726        TRA MS300             ,                                          4F13635     
       03720  0 02000 0 03726        TRA MS300             )                                          4F13636     
       03721  0 02000 0 03767        TRA MS310             =                                          4F13637     
       03722  0 02000 0 03726        TRA MS300             -                                          4F13638     
       03723  0 02000 0 03726        TRA MS300             /                                          4F13639     
       03724  0 07400 4 03400        TSX DIAG,4            .                                          4F13640     
       03725  0 02000 0 03726        TRA MS300             +                                          4F13641     
       03726 -0 75400 0 00000 MS300  PXD ,0                *   CLEAR                                  4F13642     
                        03727 TRBLKB BSS 0                 BASE ADDRESS FOR TAGGED TRANSFER.          4F13643     
       03727 -0 76300 0 00006        LGL 6                 GET FIRST CHAR OF SYMBOL.                  4F13644     
       03730  0 07400 1 03242        TSX TESTFX+1,1        TEST FOR FIXED OR FLOATING POINT.          4F13645     
       03731  0 02000 0 04074        TRA LATXL             FLOATING, GO PERFORM LEVEL ANALYSIS.       4F13646     
       03732 -0 50000 0 00030        CAL EIFNO             FIXED, PREPARE FORVAR ENTRY.               4F13647     
       03733 -0 32000 0 01527        ANA MASK1             X                                          4F13648     
       03734  0 60200 0 01347        SLW G                 X                                          4F13649     
       03735  0 07400 1 03321        TSX TET00,1           MAKE FORVAR ENTRY.                         4F13650     
       03736  0 00000 0 00005            5                 X                                          4F13651     
       03737 -0 75400 0 00000        PXD ,0                                                           4F13652     
       03740  0 56000 0 01356        LDQ LEFT+2                                                       4F13653     
       03741 -0 76300 0 00014        LGL 12                                                           4F13654     
       03742  0 40200 0 01451        SUB CALLER                                                       4F13655     
       03743 -0 10000 0 04074        TNZ LATXL                                                        4F13656     
       03744  0 07400 1 03321        TSX TET00,1                                                      4F13657     
       03745  0 00000 0 00006            6                                                            4F13658     
       03746  0 02000 0 04074        TRA LATXL             GO PERFORM LEVEL ANALYSIS.                 4F13659     
       03747  0 60000 0 01124 MS320  STZ CHSAVE            CLEAR CELL FOR 0P.                         4F13660     
 U     03750    00000 0 04003 MS321  *** MS330,0           TXH ON LEFT,  TXL  ON  RIGHT  OF = SIGN.   4F13661     
       03751  0 07400 4 04450        TSX SS000X,4          GO PROCESS SUBSCRIPT COMBINATION           4F13662     
       03752  0 07400 4 01707        TSX C0190,4           GET NEXT  CHAR.                            4F13663     
       03753  0 40200 0 01400        SUB EQUAL             TEST  FOR  EQUAL  SIGN.                    4F13664     
       03754 -0 10000 0 03671        TNZ MSERR=            NO,  ERROR.                                4F13665     
       03755  0 53400 4 01411 MS322  LXA L(3),4            MOVE CONTENTS OF E WORDS TO LEFT WORDS.    4F13666     
       03756  0 56000 4 01131 MS323  LDQ E+3,4             X                                          4F13667     
       03757 -0 60000 4 01357        STQ LEFT+3,4          X                                          4F13668     
       03760  2 00001 4 03756        TIX MS323,4,1         X                                          4F13669     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 104/104 ------           
       03761 -0 50000 0 00415 MS311  CAL TXLOP             SET SWITCHES FOR RIGHT SIDE SCAN.          4F13670     
       03762  0 63000 0 03563        STP MS093             X                                          4F13671     
       03763  0 63000 0 03767        STP MS310             X                                          4F13672     
       03764  0 63000 0 03750        STP MS321             X                                          4F13673     
       03765  0 76000 0 00141        SLN 1                 TURN =  OR  )  LITE 0N.                    4F13674     
       03766  0 02000 0 03463        TRA MS010             GO SCAN NEXT ELEMENT.                      4F13675     
 U     03767    00000 0 03671 MS310  *** MSERR=,0          TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN. 4F13676     
       03770  0 60000 0 01124        STZ CHSAVE            CLEAR                                      4F13677     
       03771 -0 75400 0 00000        PXD ,0                CLEAR AC                                   4F136775    
       03772 -0 76300 0 00006        LGL 6                 GET  FIRST  CHAR OF SYMBOL.                4F13678     
 T     03773  0 07400 0 03241        TSX TESTFX+           1,1   TEST FOR FIXED OR FLOATING  POINT    4F13679     
       03774  0 02000 0 03755        TRA MS322             FLOATING,                                  4F13680     
       03775 -0 50000 0 00030        CAL EIFNO             FIXED,  PREPARE FORVAL  ENTRY.             4F13681     
       03776 -0 32000 0 01527        ANA MASK1             X                                          4F13682     
       03777  0 60200 0 01347        SLW G                 X                                          4F13683     
       04000  0 07400 1 03321        TSX TET00,1           MAKE  FORVAL  ENTRY.                       4F13684     
       04001  0 00000 0 00006            6                 X                                          4F13685     
       04002  0 02000 0 03755        TRA MS322                                                        4F13686     
       04003  0 07400 4 01771 MS330  TSX DIM1SR,4          SEARCH FOR THIS NAME IN THE DIM1, DIM2,    4F13687     
       04004  0 02000 0 04006        TRA MS331             AND DIM3 TABLES.  IF IT IS FOUND IN ONE OF 4F13688     
       04005  0 02000 0 04013        TRA MS333             THESE TABLES IT IS A SUBSCRIPTED VARIABLE  4F13689     
       04006  0 07400 4 01775 MS331  TSX DIM2SR,4          OF THAT NUMBER OF DIMENSIONS, IF IT IS NOT 4F13690     
       04007  0 02000 0 04011        TRA MS332             FOUND IN ANY DIMENSION TABLE THEN IT IS    4F13691     
       04010  0 02000 0 04013        TRA MS333             ASSUMED TO BE THE NAME OF A FORTRAN II     4F13692     
       04011  0 07400 4 02005 MS332  TSX DIM3SR,4          SUBROUTINE OR FUNCTION COMPILED SEPARATELY.4F13693     
       04012  0 02000 0 04015        TRA MS334             X                                          4F13694     
       04013  0 07400 4 04450 MS333  TSX SS000X,4          GO PROCESS SUBSCRIPT COMBINATIONS          4F13695     
       04014  0 02000 0 04076        TRA LATXH             GO PERFORM LEVEL ANALYSIS.                 4F13696     
       04015 -0 50000 0 01471 MS334  CAL FNIND             NOT FOUND, TREAT AS FUNCTION NAME.         4F13697     
       04016  0 60200 0 05303        SLW FNBITS            X                                          4F13698     
       04017 -0 75400 0 00000        PXD ,0                X                                          4F13699     
       04020  0 56000 0 01526        LDQ BLANKS            COMPLETE NAME WITH BLANKS.                 4F13700     
       04021 -0 76300 2 00052        LGL 42,2              X                                          4F13701     
       04022 -0 60200 0 01347        ORS G                 X                                          4F13702     
       04023 -0 60200 0 01130        ORS E+2               X                                          4F13703     
       04024  0 07400 1 03321        TSX TET00,1           ENTER NAME  IN CLOSUB TABLE.               4F13704     
       04025  0 00000 0 00011            9                 X                                          4F13705     
       04026  0 76000 0 00142 MS335  SLN 2                 TURN  FUNCTION LITE 0N.                    4F13706     
       04027  0 02000 0 04074        TRA LATXL             GO PERFORM  LEVEL  ANALYSIS.               4F13707     
       04030  0 60000 0 01124 HOLL   STZ CHSAVE                    CLEAR CHSAVE                       4F13708     
       04031 -0 50000 0 01352        CAL HOLCNT                    GET CURRENT H(+I WORD              4F13709     
       04032  0 60200 0 01130        SLW E+2                                                          4F13710     
       04033  0 53400 2 01103        LXA N,2                    GET NUMBER OF CHARACTERS IN THIS ARG  4F13711     
       04034 -0 53400 4 01724        LXD CHCTR,4                GET CURRENT RESIDUE CHAR COUNT        4F13712     
       04035  0 56000 0 01365        LDQ RESIDU                 GET CURRENT RESIDU WORD               4F13713     
       04036  0 53400 1 01414 C3351  LXA L(6),1                 SET TO COLLECT SIX CHARS              4F13714     
       04037 -0 75400 0 00000        PXD 0,0                    CLEAR  AC                             4F13715     
       04040 -2 00001 4 04053 C3352  TNX C3354,4,1              TEST FOR NO MORE CHARS  IN RESIDU     4F13716     
       04041 -0 76300 0 00006 C33525 LGL 6                      GET NEXT CHAR                         4F13717     
       04042  0 60200 0 01112        SLW 1G                     STORE WORD                            4F13718     
       04043 -0 32000 0 01374        ANA ENDMK                  BLANK ALL EXCEPT CURRENT CHAR         4F13719     
       04044  0 40200 0 01374        SUB ENDMK                  TEST FOR INTERNAL ENDMK               4F13720     
       04045 -0 10000 0 04047        TNZ C3353                                                        4F13721     
       04046  0 07400 4 03400        TSX DIAG,4                    YES, ERROR, GO TO DIAGNOSTIC.      4F13722     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 105/105 ------           
       04047 -0 50000 0 01112 C3353  CAL 1G                     RETREIVE WORD                         4F13723     
       04050 -2 00001 2 04063        TNX C3358,2,1              TEST FOR ALL CHARS COLLECTED          4F13724     
       04051 -2 00001 1 04061        TNX C3356,1,1              TEST FOR SIX CHARS COLLECTED          4F13725     
       04052  0 02000 0 04040        TRA C3352                  NOT SIX CHARS YET, CONTINUE C0LLECTING4F13726     
       04053 -0 53400 4 01614 C3354  LXD FWA,4                  LOAD MQ WITH NEXT F REGION WORD       4F13727     
       04054  0 56000 4 00000        LDQ 0,4                                                          4F13728     
       04055  1 77777 4 04056        TXI C3355,4,-1             UPDATE FWA                            4F13729     
       04056 -0 63400 4 01614 C3355  SXD FWA,4                                                        4F13730     
       04057  0 53400 4 01414        LXA L(6),4                 RESET MQ CHAR COUNT TO SIX            4F13731     
       04060  0 02000 0 04041        TRA C33525                 CONTINUE COLLECTING                   4F13732     
       04061  0 07400 1 04437 C3356  TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13733     
       04062  1 00000 0 04036 C3357  TXI C3351,0,**             RETURN TO CONTINUE COLLECTING         4F13734     
       04063 -0 60000 0 01365 C3358  STQ RESIDU                 UPDATE RESIDU                         4F13735     
       04064 -0 63400 4 01724        SXD CHCTR,4                UPDATE CHCTR                          4F13736     
       04065 -2 00001 1 04071        TNX C3360,1,1              TEST FOR SIX CHARS IN AC DEC IR1      4F13737     
       04066  0 56000 0 01526        LDQ BLANKS                 NOT SIX CHARS, PREPARE TO ADD BLANKS  4F13738     
       04067 -0 76300 0 00006 C3359  LGL 6                      ADD BLANKS                            4F13739     
       04070  2 00001 1 04067        TIX C3359,1,1                                                    4F13740     
       04071  0 07400 1 04437 C3360  TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13741     
       04072 -0 50000 0 01531        CAL ALL1                   GET WORD OF ONES                      4F13742     
       04073  0 07400 1 04437        TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13743     
                                             LEVEL ANALYSIS                                           4F13744     
       04074 -0 50000 0 00415 LATXL  CAL TXLOP                                                        4F13745     
       04075  0 02000 0 04077        TRA LATXL+3                                                      4F13746     
       04076 -0 50000 0 00422 LATXH  CAL TXHOP                                                        4F13747     
       04077  0 63000 0 04424        STP CM4105                                                       4F13748     
       04100  0 53400 1 01406 LA0000 LXA L(0),A                                                       4F13749     
       04101  0 50000 0 01130        CLA E+2                                                          4F13750     
       04102 -0 76000 0 00142        SLT 2                 IS THIS A FUNCTION NAME                    4F13751     
       04103  0 02000 0 04144        TRA LA0000+36         NO                                         4F13752     
       04104  0 76000 0 00142        SLN 2                 YES - TURN F LITE BACK ON                  4F13753     
       04105 -0 53400 4 00470        LXD BK,C IS           FORSUB EMPTY                               4F13754     
       04106 -3 00000 4 04115        TXL LA0000+13,C,0     YES. GO SET  FS BITS TO 0                  4F13755     
       04107 -0 63400 4 04114        SXD LA0000+12,C                                                  4F13756     
       04110  0 34000 1 00471        CAS FORSUB,A          SEARCH  FN NAME IN FORSUB                  4F13757     
       04111  1 77776 1 04114        TXI LA0000+12,A,-2                                               4F13758     
       04112  0 02000 0 04117        TRA LA0000+15                                                    4F13759     
       04113  1 77776 1 04114        TXI LA0000+12,A,-2                                               4F13760     
       04114  3 00000 1 04110        TXH LA0000+8,A,0                                                 4F13761     
       04115  0 60000 0 05302        STZ FSBITS            SET FSBITS TO 0                            4F13762     
       04116  0 02000 0 04131        TRA LA0000+25                                                    4F13763     
       04117 -0 50000 1 00472        CAL FORSUB+1,A        FN NAME IN FORSUB                          4F13764     
       04120 -0 32000 0 01452        ANA MASK2             EXTRACT TYPE NUMBER                        4F13765     
       04121 -0 53400 4 01122        LXD ARGCTR,C          IS THIS A FUNCTION  STATEMENT              4F13766     
       04122 -3 00000 4 04126        TXL LA0000+22,C,0     NO                                         4F13767     
       04123  0 34000 0 05301        CAS FSTYPE            YES - UPDATE FS TYPE                       4F13768     
       04124  0 62100 0 05301        STA FSTYPE                                                       4F13769     
 D     04125  3 00000 0 00000        TXH 0,0                                                          4F13770     
       04126  0 76700 0 00007        ALS 7                                                            4F13771     
       04127 -0 50100 0 01464        ORA FSIND                                                        4F13772     
       04130  0 60200 0 05302        SLW FSBITS                                                       4F13773     
       04131 -0 53400 1 01117        LXD 3LBAR,A           LOAD LA COUNTERS                           4F13774     
       04132 -0 53400 2 01360        LXD NBAR,B                                                       4F13775     
       04133 -0 53400 4 05300        LXD ABAR,C                                                       4F13776     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 106/106 ------           
       04134 -3 00000 1 04160        TXL LA0003,A,0                                                   4F13777     
       04135  3 75520 1 04137        TXH LA0001,A,-1200                                               4F13778     
       04136  0 07400 4 03400        TSX DIAG,4                    ERROR..LAMBDA TABLE EXCEEDED.      4F13779     
       04137  3 77323 2 04141 LA0001 TXH LA0002,B,-301                                                4F13780     
       04140  0 07400 4 03400        TSX DIAG,4                    ERROR.,BETA TABLE EXCEEDED         4F13781     
       04141 -3 00000 4 04160 LA0002 TXL LA0003,C,0                                                   4F13782     
       04142  3 77565 4 04160        TXH LA0003,C,-139                                                4F13783     
       04143  0 07400 4 03400        TSX DIAG,4                    ERROR..ALPHA TABLE EXCEEDED        4F13784     
       04144 -0 53400 4 01122        LXD ARGCTR,C          VARIABLE OR (                              4F13785     
       04145 -3 00000 4 04115        TXL LA0000+13,C,0     NOT AN FS - GO SET FS BITS TO 0            4F13786     
       04146 -0 63400 4 04153        SXD LA0000+43,C       FUNCTION STATEMENT                         4F13787     
       04147  0 34000 1 05215        CAS ARGREG,A          SEARCH FREE VARIABLE TABLE                 4F13788     
       04150  1 77777 1 04153        TXI LA0000+43,A,-1                                               4F13789     
       04151  0 02000 0 04155        TRA MS1018                                                       4F13790     
       04152  1 77777 1 04153        TXI LA0000+43,A,-1                                               4F13791     
       04153  3 00000 1 04147        TXH LA0000+39,A,0                                                4F13792     
       04154  0 02000 0 04115        TRA LA0000+13         NOT PRESENT -  GO SET FSBITS TO 0          4F13793     
       04155 -0 75400 1 00000 MS1018 PXD 0,A               PRESENT - STORE TYPE IN  FSBITS            4F13794     
       04156  0 77100 0 00013        ARS 11                                                           4F13795     
       04157  0 02000 0 04127        TRA LA0000+23                                                    4F13796     
       04160  0 50000 0 03601 LA0003 CLA MS9002                                                       4F13797     
       04161  0 62100 0 04366        STA LA4320                                                       4F13798     
       04162 -0 75400 0 00000        PXD 0,0                                                          4F13799     
       04163  0 56000 0 01130        LDQ E+2                                                          4F13800     
       04164 -0 60000 1 05533        STQ LAMBDA+11,A                                                  4F13601     
       04165 -0 60000 1 05530        STQ LAMBDA+8,A                                                   4F13802     
       04166 -0 60000 1 05525        STQ LAMBDA+5,A                                                   4F13803     
       04167 -0 76300 0 00006        LGL 6                                                            4F13804     
       04170  0 60100 0 01331        STO FIRSTC                                                       4F13805     
       04171  0 40200 0 01375        SUB OPEN                                                         4F13606     
       04172  0 10000 0 04201        TZE LA003                                                        4F13807     
       04173  0 50000 0 03500        CLA MS4007                                                       4F13808     
       04174 -0 76000 0 00142        SLT 2                                                            4F13809     
       04175  0 02000 0 04200        TRA LA002                                                        4F13810     
       04176  0 76000 0 00142        SLN 2                                                            4F13811     
       04177  0 50000 0 04227        CLA FINI03                                                       4F13812     
       04200  0 62100 0 04366 LA002  STA LA4320                                                       4F13813     
       04201  0 50000 0 01126 LA003  CLA E                                                            4F13814     
       04202  0 60100 1 05531        STO LAMBDA+9,A                                                   4F13815     
       04203  0 60100 1 05526        STO LAMBDA+6,A                                                   4F13816     
       04204  0 60100 1 05523        STO LAMBDA+3,A                                                   4F13817     
       04205 -0 50000 0 01522        CAL ADSPOP                                                       4F13818     
       04206  0 60200 1 05535        SLW LAMBDA+13,A                                                  4F13819     
       04207  0 60200 1 05532        SLW LAMBDA+10,A                                                  4F13820     
       04210  0 60200 1 05527        SLW LAMBDA+7,A                                                   4F13821     
       04211 -0 75400 0 00000        PXD ,0                                                           4F13822     
       04212  0 56000 0 01127        LDQ E+1                                                          4F13823     
       04213 -0 60000 1 05521        STQ LAMBDA+1,A                                                   4F13824     
       04214 -0 76300 0 00006        LGL 6                                                            4F13825     
       04215  0 34000 0 01405        CAS STAR                                                         4F13826     
       04216  0 02000 0 04262        TRA LA0015            / SIGN                                     4F13827     
       04217  0 02000 0 04252        TRA LA0010            , OR ,, SIGN                               4F13828     
       04220 -0 76000 0 00142        SLT 2                 + OR - SIGN                                4F13829     
       04221  0 02000 0 04236        TRA LA0044                                                       4F13830     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 107/107 ------           
       04222  1 77775 2 04223        TXI MS1033,B,-3       -N TO -(N+3)                               4F13831     
       04223 -0 75400 2 00000 MS1033 PXD ,B                                                           4F13832     
       04224  0 77100 0 00022        ARS 18                                                           4F13833     
       04225  0 60100 1 05536        STO LAMBDA+14,A       STO  (N+3) IN LAMBDA+3 (L+4)+2             4F13834     
       04226  1 00001 2 04227        TXI FINI03,B,1        -(N+3) TO - (N+2)                          4F13835     
       04227 -0 75400 2 04432 FINI03 PXD CM4300,B                                                     4F13836     
       04230  0 77100 0 00022        ARS 18                                                           4F13837     
       04231 -0 76000 0 00003        SSM                                                              4F13838     
       04232  0 60100 1 05534        STO LAMBDA+12,A       STO -(N+2) IN LAMBDA+3 (L+4)               4F13839     
       04233 -0 76000 0 00141 LA0041 SLT 1                                                            4F13840     
       04234  1 00001 2 04330        TXI L43130,B,1        UNARY... -(N+2)  TO -(N+1)                 4F13841     
       04235  1 00001 2 04272        TXI L13130,B,1        BINARY... -(N+2)  TO - (N+1)               4F13842     
       04236  0 50000 0 01331 LA0044 CLA FIRSTC                                                       4F13843     
       04237  0 34000 0 01375        CAS OPEN              EXAMINE SYMBOL                             4F13844     
       04240  0 02000 0 04242        TRA LA0050                                                       4F13845     
       04241  1 77775 2 04245        TXI LA0058,B,-3       -N TO -(N+3)                               4F13846     
       04242 -0 76000 0 00141 LA0050 SLT 1                                                            4F13847     
       04243  1 77777 2 04334        TXI LA4000,B,-1       UNARY... -NTO -(N+1)                       4F13848     
       04244  1 77777 2 04276        TXI LA1000,B,-1       BINARY... -N TO  -(N+1)                    4F13849     
       04245 -0 75400 2 00000 LA0058 PXD ,B                                                           4F13850     
       04246  0 77100 0 00022        ARS 18                                                           4F13851     
       04247  0 60100 1 05533        STO LAMBDA+11,A       STO S(N+3) IN LAMBDA  +3(L+3)+2            4F13852     
       04250  0 40000 0 01407        ADD L(1)              FORM -(N+2)  IN ADD (ACC)                  4F13853     
       04251  1 00001 2 04233        TXI LA0041,2,1                                                   4F13854     
       04252  0 16200 0 04262 LA0010 TQP LA0015            GO TO * ROUTINE                            4F13855     
       04253 -0 76000 0 00142        SLT 2                 **                                         4F13856     
       04254  0 02000 0 04256        TRA LA0072                                                       4F13857     
       04255  1 77777 2 04311        TXI L23000,B,-1       -N TO -(N+1)                               4F13858     
       04256  0 50000 0 01331 LA0072 CLA FIRSTC                                                       4F13859     
       04257  0 40200 0 01375        SUB OPEN                                                         4F13860     
       04260 -0 10000 0 04324        TNZ LA2000                                                       4F13861     
       04261  1 77777 2 04304        TXI L22000,B,-1       -N TO -(N+1)                               4F13862     
       04262 -0 76000 0 00142 LA0015 SLT 2                 *  OR  /                                   4F13863     
       04263  0 02000 0 04265        TRA LA0021                                                       4F13864     
       04264  1 77776 2 04374        TXI L33000,B,-2       -N TO -(N+2)                               4F13865     
       04265  0 50000 0 01331 LA0021 CLA FIRSTC                                                       4F13866     
       04266  0 34000 0 01375        CAS OPEN                                                         4F13867     
       04267  1 77777 2 04407        TXI LA3000,B,-1                                                  4F13868     
       04270  1 77776 2 04367        TXI L32000,B,-2       -N TO -N(+2)                               4F13869     
       04271  1 77777 2 04407        TXI LA3000,B,-1                                                  4F13870     
       04272  0 60200 4 05310 L13130 SLW ALPHA+3,C         STO -(N+2) IN  ALPHA+A+3                   4F13871     
       04273  0 50200 0 01406        CLS L(0)                                                         4F13872     
       04274  0 60100 1 05531        STO LAMBDA+9,A        STO -0  IN  LAMBDA +3(L+3)                 4F13873     
       04275  0 76000 0 00141        SLN 1                                                            4F13874     
       04276  0 50200 0 05277 LA1000 CLS CBAR                                                         4F13875     
       04277  0 77100 0 00022        ARS 18                                                           4F13876     
       04300  0 60200 4 05305        SLW ALPHA,C           STO -C  IN ALPHA+A                         4F13877     
       04301  1 77775 4 04302        TXI LA1040,C,-3       -A  TO - (A+3)                             4F13878     
       04302 -0 63400 4 05300 LA1040 SXD ABAR,C                                                       4F13879     
       04303  0 02000 0 04335        TRA LA4010                                                       4F13880     
       04304 -0 75400 2 00000 L22000 PXD ,B                                                           4F13881     
       04305  0 77100 0 00022        ARS 18                                                           4F13882     
       04306  0 60100 1 05525        STO LAMBDA+5,A        STO S(N+1) IN LAMBDA+3(L+1)+2              4F13883     
       04307  0 40000 0 01407        ADD L(1)                                                         4F13884     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 108/108 ------           
       04310  1 00001 2 04320        TXI L23130,B,1        -(N+1)  TO  -N                             4F13885     
       04311 -0 75400 2 00000 L23000 PXD ,B                                                           4F13886     
       04312  0 77100 0 00022        ARS 18                                                           4F13887     
       04313  0 60100 1 05530        STO LAMBDA+8,A        STO S(N+1)  IN LAMBDA+3(L+2)+2             4F13888     
       04314  0 40000 0 01407        ADD L(1)                                                         4F13889     
       04315 -0 76000 0 00003        SSM                                                              4F13890     
       04316  1 00001 2 04317        TXI L23090,B,1        -(N+1)  TO -N                              4F13891     
       04317  0 60100 1 05526 L23090 STO LAMBDA+6,A        STO -N  IN LAMBDA+3(L+2)                   4F13892     
       04320  0 60200 4 05305 L23130 SLW ALPHA,C           STO -N  IN ALPHA +A                        4F13893     
       04321  0 50200 0 01406        CLS L(0)                                                         4F13894     
       04322  0 60100 1 05523        STO LAMBDA+3,A        STO -0  IN LAMBDA+3(L+11                   4F13895     
       04323  0 76000 0 00141        SLN 1                                                            4F13896     
       04324  0 50200 4 05304 LA2000 CLS ALPHA-1,C                                                    4F13897     
       04325  0 60100 1 05520        STO LAMBDA,A          STO C(ALPHA+A-1) IN LAMBDA+3L              4F13898     
       04326  0 50000 0 01360        CLA NBAR                                                         4F13899     
       04327  1 00006 1 04355        TXI LA4180,A,6                                                   4F13900     
       04330  0 60200 4 05305 L43130 SLW ALPHA,C           STO -(N+2) IN ALPHA+A                      4F13901     
       04331  0 50200 0 01406        CLS L(0)                                                         4F13902     
       04332  0 60100 1 05531        STO LAMBDA+9,A        STO -0 IN LAMBDA+3(L+3)                    4F13903     
       04333  0 76000 0 00141        SLN 1                                                            4F13904     
       04334  0 50200 4 05302 LA4000 CLS ALPHA-3,C                                                    4F13905     
       04335  0 60100 1 05520 LA4010 STO LAMBDA,A          STO C(ALPHA+A-3) IN LAMBDA+3L              4F13906     
       04336  0 50200 0 01360        CLS NBAR                                                         4F13907     
       04337  0 77100 0 00022        ARS 18                                                           4F13908     
       04340  0 60200 4 05303        SLW ALPHA-2,C         STO-N IN ALPHA+A-2                         4F13909     
       04341  0 60200 1 05522        SLW LAMBDA+2,A        STO S(N) IN LAMBDA+3L+2                    4F13910     
       04342  0 60100 1 05523        STO LAMBDA+3,A        STO -N IN LAMBOA+3(L+1)                    4F13911     
       04343 -0 75400 2 00000        PXD ,B                                                           4F13912     
       04344  0 77100 0 00022        ARS 18                                                           4F13913     
       04345  0 60100 1 05525        STO LAMBDA+5,A        STO S(N+1)  IN  LAMBDA+3(L+1)+2            4F13914     
       04346  0 60100 4 05304        STO ALPHA-1,C         STO-(N+1)  IN ALPHA+A-1                    4F13915     
       04347 -0 76000 0 00003        SSM                                                              4F13916     
       04350  0 60100 1 05526        STO LAMBDA+6,A        STO -(N+1)  IN  LAMBDA+3(L+2)              4F13917     
       04351  1 77777 2 04352        TXI LA4150,B,-1       -(N+1)  TO -(N+2)                          4F13918     
       04352 -0 50000 0 01524 LA4150 CAL ADSTAR                                                       4F13919     
       04353  0 60200 1 05524        SLW LAMBDA+4,A        STO *  IN LAMBDA+3(L+1)+1                  4F13920     
       04354 -0 75400 2 00000 LA4170 PXD ,B                                                           4F13921     
       04355  0 77100 0 00022 LA4180 ARS 18                '                                          4F13922     
       04356  0 60100 1 05530        STO LAMBDA+8,A        STOS(N+2) IN LAMBDA+3(L+2)+2               4F13923     
       04357 -0 60200 1 05531        ORS LAMBDA+9,A        STO -(N+2)  IN LAMBDA+3(L+3)               4F13924     
       04360 -0 50000 0 01525        CAL STRSTR                                                       4F13925     
       04361  0 60200 1 05527        SLW LAMBDA+7,A        STO SPOP  IN LAMBDA+3(L+2)+1               4F13926     
       04362 -0 50000 0 01522        CAL ADSPOP                                                       4F13927     
       04363 -0 50100 0 05302        ORA FSBITS                                                       4F13928     
       04364 -0 50100 0 05303        ORA FNBITS                                                       4F13929     
       04365  0 60200 1 05532        SLW LAMBDA+10,A       STO SPOP  IN LAMBDA+3(L+3)+1               4F13930     
       04366  1 77767 1 00000 LA4320 TXI **,A,-9                                                      4F13931     
       04367 -0 75400 2 00000 L32000 PXD ,B                                                           4F13932     
       04370  0 77100 0 00022        ARS 18                                                           4F13933     
       04371  0 60100 1 05530        STO LAMBDA+8,A        STO 5(N+2) IN LAMBDA+3(L+2)+2              4F13934     
       04372  0 40000 0 01407        ADD L(1)                                                         4F13935     
       04373  1 00001 2 04403        TXI L33130,B,1        -(N+2)  TO -(N+1)                          4F13936     
       04374 -0 75400 2 00000 L33000 PXD ,B                                                           4F13937     
       04375  0 77100 0 00022        ARS 18                                                           4F13938     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 109/109 ------           
       04376  0 60100 1 05533        STO LAMBDA+11,A       STO S(N+2) IN LAMBDA+3(L+3)+2              4F13939     
       04377  0 40000 0 01407        ADD L(1)                                                         4F13940     
       04400 -0 76000 0 00003        SSM                                                              4F13941     
       04401  1 00001 2 04402        TXI L33090,B,1        -(N+2)  TO -(N+1)                          4F13942     
       04402  0 60100 1 05531 L33090 STO LAMBDA+9,A        STO -(N+1) IN LAMBDA+3(L+3)                4F13943     
       04403  0 60200 4 05305 L33130 SLW ALPHA,C           STO -(N+1) IN ALPHA+A                      4F13944     
       04404  0 50200 0 01406        CLS L(0)                                                         4F13945     
       04405  0 60100 1 05526        STO LAMBDA+6,A                                                   4F13946     
       04406  0 76000 0 00141        SLN 1                                                            4F13947     
       04407  0 50200 4 05303 LA3000 CLS ALPHA-2,C                                                    4F13948     
       04410  0 60100 1 05520        STO LAMBDA,A          STO C(ALPHA+A-2) IN LAMBDA+3L              4F13949     
       04411  0 50200 0 01360        CLS NBAR                                                         4F13950     
       04412  0 77100 0 00022        ARS 18                                                           4F13951     
       04413  0 60200 4 05304        SLW ALPHA-1,C         STO -N IN ALPHA+A-1                        4F13952     
       04414  0 60200 1 05522        SLW LAMBDA+2,A        STO S(N) IN LAMBDA+3L+2                    4F13953     
       04415  0 60100 1 05523        STO LAMBDA+3,A        STO -N IN LAMBDA+3(L+1)                    4F13954     
       04416  1 00003 1 04354        TXI LA4170,A,3                                                   4F13955     
       04417  1 77775 1 04420 CM4100 TXI CM4101,A,-3       LA COUNTER MODIFICATION ROUTINES           4F13956     
       04420 -0 63400 1 01117 CM4101 SXD 3LBAR,A                                                      4F13957     
       04421 -0 63400 2 05277 CM4102 SXD CBAR,B                                                       4F13958     
       04422  1 77777 2 04423        TXI CM4104,B,-1                                                  4F13959     
       04423 -0 63400 2 01360 CM4104 SXD NBAR,B                                                       4F13960     
 U     04424    00000 0 03463 CM4105 *** MS010,0                                                      4F13961     
       04425 -0 50000 0 01524 MS020  CAL ADSTAR                                                       4F13962     
       04426  0 02000 0 03464        TRA MS030                                                        4F13963     
       04427  1 77775 1 04430 CM4200 TXI CM4201,A,-3                                                  4F13964     
       04430 -0 63400 1 01117 CM4201 SXD 3LBAR,A                                                      4F13965     
       04431  1 77777 4 04435        TXI CM4303,C,-1                                                  4F13966     
       04432  1 77772 1 04433 CM4300 TXI CM4301,A,-6                                                  4F13967     
       04433 -0 63400 1 01117 CM4301 SXD 3LBAR,A                                                      4F13968     
       04434  1 77777 4 04435        TXI CM4303,C,-1                                                  4F13969     
       04435 -0 63400 4 05300 CM4303 SXD ABAR,C                                                       4F13970     
       04436  1 77777 2 04421        TXI CM4102,B,-1                                                  4F13971     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13972     
                                                                                                      4F13973     
                                         CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE            4F13974     
       04437 -0 63400 1 04062 C3390  SXD C3357,1                SAVE CALLING IR                       4F13975     
       04440  0 60200 0 01112        SLW 1G                     MOVE WORD TO BE ENTERED TO 1G         4F13976     
       04441  0 07400 1 03321        TSX TET00,1                GO TO ENTER WORD IN HOLARG TABLE      4F13977     
       04442  0 00000 0 00015            13                                                           4F13978     
       04443  0 50000 0 01352        CLA HOLCNT                                                       4F13979     
       04444  0 40000 0 01407        ADD L(1)                   UPDATE HOLCNT                         4F13980     
       04445  0 60100 0 01352        STO HOLCNT                                                       4F13981     
       04446 -0 53400 1 04062        LXD C3357,1                RELOAD CALLING IR                     4F13982     
       04447  0 02000 1 00001        TRA 1,1                    RETURN TO CALLER+1                    4F13983     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13984     
                                                                                                      4F13985     
                                         PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN   4F13986     
                                         SECTION ONE THRU THE USE OF THE RA000 SUBROUTINE BY STATE B. 4F13987     
       04450 -0 63400 4 04503 SS000X SXD SSIR4,4           SAVE CALLING TAG.                          4F13988     
       04451  0 07400 4 02614        TSX SS000,4           GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE. 4F13989     
       04452  0 07400 4 02437        TSX RA000,4           GO TO RELATIVE ADDRESS COMPUTATION ROUTINE.4F13990     
       04453 -0 50000 0 01351        CAL GTAG                                                         4F13991     
       04454 -0 32000 0 01527        ANA MASK1                                                        4F13992     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 110/110 ------           
       04455  0 60200 0 01141        SLW E+11                                                         4F13993     
       04456  0 07400 4 00450        TSX SIG1IX,4          GO ENTER THIS RELATIVE ADDRESS IN SIGMA1.  4F13994     
       04457  0 76700 0 00017        ALS 15                POSITION SIGMA TAG.                        4F13995     
       04460 -0 60200 0 01126        ORS E                 ADD SIGMA TAG TO I-TAU TAGS IN E.          4F13996     
       04461 -0 53400 4 04503        LXD SSIR4,4           RELOAD CALLING TAG.                        4F13997     
       04462  0 02000 4 00001        TRA 1,4               RETURN TO CALLER +1.                       4F13998     
                                                                                                      4F13999     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14000     
                                                                                                      4F14001     
                                         ROYCNV,4/ CALLS=C0190,FXCNIX,FLCNIX,DIAG.                    4F14002     
                                         ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION  4F14003     
                                         ARITHMETIC.                                                  4F14004     
                                         ROYCNV=ENTRY POINT FOR FIXED OR FLOATING POINT INTEGERS,     4F14005     
       04463  0 60100 0 01103 ROYCNV STO N                        SAVE DECIMAL DIGIT IN N.            4F14006     
       04464 -0 63400 4 04467        SXD EXIT,4                   SAVE C(XR4) FOR RETURN.             4F14007     
       04465  0 60000 0 01100        STZ DOE                      CLEAR DOE (IMPLICIT EXPONENT).      4F14008     
       04466  0 50000 0 04505        CLA CM1                      PICK UP SWITCH CONTROL.             4F14009     
       04467  1 00000 0 04474 EXIT   TXI IN2,0,**                 AND GO SET SWITCH.                  4F14010     
                                         DECPNT=ENTRY POINT FOR FLOATING POINT FRACTIONS.             4F14011     
       04470  0 60000 0 01103 DECPNT STZ N                        CLEAR N (NO INTEGER).               4F14012     
       04471 -0 63400 4 04467        SXD EXIT,4                   SAVE C(XR4) FOR RETURN.             4F14013     
       04472  0 60000 0 01100        STZ DOE                      CLEAR DOE (IMPLICIT EXPONENT).      4F14014     
       04473 -0 50000 0 04505 NC7    CAL CM1                      PICK UP SWITCH CONTROL.             4F14015     
       04474  0 63000 0 04515 IN2    STP CM2                      SET SWITCHES CM2, AND               4F14016     
       04475  0 63000 0 04527        STP CM3                      CM3.                                4F14017     
       04476  0 14000 0 04477        TOV NC5                      TURN OFF OV TRIGGER.                4F14018     
       04477  0 07400 4 01707 NC5    TSX C0190,4                * GO GET NEXT NB CHARACTER IN THE AC. 4F14019     
       04500  0 60200 0 01124        SLW CHSAVE                   SAVE IT FOR STATE B, AND THEN       4F14020     
       04501  0 34000 0 01423        CAS L(H)                     COMPARE IT WITH H.                  4F14021     
 D     04502  1 00000 0 04504        TXI NC1,0                    IF H, GO TO HEXIT,                  4F14022     
 D     04503  1 00000 0 04650 SSIR4  TXI HEXIT,0                  IF NOT H, CONTINUE                  4F14023     
       04504  0 34000 0 01373 NC1    CAS TEN                      AND COMPARE WITH TEN.               4F14024     
 D     04505 -3 00000 0 04521 CM1    TXL NC2,0                    CHAR EXCEEDS IO, SO IS NON-NUMERIC. 4F14025     
       04506 -0 75400 0 00000        PXD ,0                       CLEAR THE AC (MACHINE ERROR).       4F14026     
       04507  0 60100 0 01102        STO H                        CHARACTER IS NUMERIC SO HOLD IT.    4F14027     
       04510  0 50000 0 01103        CLA N                        MULTIPLY THE PREVIOUS               4F14028     
       04511  0 76700 0 00002        ALS 2                        PARTIAL RESULT (OR ZERO)            4F14029     
       04512  0 40000 0 01103        ADD N                        BY 10,                              4F14030     
       04513  0 76700 0 00001        ALS 1                        AND ADD IN                          4F14031     
       04514  0 40000 0 01102        ADD H                        THE CURRENT DIGIT.                  4F14032     
 D     04515  3 00000 0 04536 CM2    TXH NC3,0                    SWITCH (NO TRANSFER IF INTEGER).    4F14033     
       04516  0 14000 0 04544        TOV NC4                      TEST OVERFLOW, AND                  4F14034     
       04517  0 60100 0 01103        STO N                        IF NONE, SAVE NEW PARTIAL RESULT.   4F14035     
 D     04520  1 00000 0 04477        TXI NC5,0                    THEN GO PICK UP NEXT CHARACTER.     4F14036     
       04521  0 34000 0 01403 NC2    CAS POINT                    COMPARE NON-NUMERIC WITH A POINT.   4F14037     
 D     04522  1 00000 0 04527        TXI CM3,0                    IF GREATER THAN 27, GO OUT.         4F14038     
 D     04523  1 00000 0 04473        TXI NC7,0                    IF POINT, GO BACK AND SET SWITCH.   4F14039     
       04524  0 34000 0 04657        CAS L(E)                     IF LESS THAN 27, COMPARE WITH E.    4F14040     
 D     04525  1 00000 0 04527        TXI CM3,0                    IF GREATER THAN 21, GO OUT.         4F14041     
 D     04526  1 00000 0 04546        TXI EC1,0                    IF E, GO TO EXPONENT ROUTINE.       4F14042     
 D     04527  3 00000 0 04605 CM3    TXH FN4,0                    SWITCH (NO TRANSFER IF INTEGER).    4F14043     
       04530  0 50000 0 01103        CLA N                        PICK UP CONVERTED CONSTANT, AND     4F14044     
       04531  0 76700 0 00022 MS9506 ALS 18                       STORE IN THE                        4F14045     
       04532  0 60100 0 01347        STO G                        DECREMENT OF G, AND                 4F14046     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 111/111 ------           
       04533  0 07400 4 00417        TSX FXCNIX,4               * GO MAKE FIXCON ENTRY.               4F14047     
       04534 -0 50100 0 01517        ORA FIXVAR                   CREATE INTERNAL FXD-PT VARIABLE,AND 4F14048     
 D     04535  1 00000 0 04636        TXI EXITR,0                  GO TAKE EXITR.                      4F14049     
       04536  0 14000 0 04543 NC3    TOV NC8                      IF THERE WAS NO OVERFLOW,           4F14050     
       04537  0 60100 0 01103        STO N                        SAVE PARTIAL RESULT, AND            4F14051     
       04540  0 50200 0 01407        CLS L(1)                     SUBTRACT 1 FROM DOE                 4F14052     
       04541  0 40000 0 01100 NC9    ADD DOE                      TO ADJUST EXPONENT                  4F14053     
       04542  0 60100 0 01100        STO DOE                      IN FINAL RESULT.                    4F14054     
 D     04543  1 00000 0 04477 NC8    TXI NC5,0                    THEN GO PICK UP NEXT CHARACTER.     4F14055     
       04544  0 50000 0 01407 NC4    CLA L(1)                     ADD 1 TO DOE ,                      4F14056     
 D     04545  1 00000 0 04541        TXI NC9,0                    IF THERE WAS INTEGER OVERFLOW.      4F14057     
       04546  0 07400 4 01707 EC1    TSX C0190,4                * GO GET NEXT NB CHARACTER IN THE AC. 4F14058     
       04547  0 60200 0 01124        SLW CHSAVE                   SAVE IT FOR STATE B, AND            4F14059     
       04550  0 60000 0 01101        STZ EKE                      CLEAR EKE (EXPLICIT EXPONENT).      4F14060     
       04551  0 34000 0 01401        CAS 11Z                      COMPARE CHARACTER WITH A DASH.      4F14061     
 D     04552  1 00000 0 04602        TXI FN5,0                    IF GREATER THAN 32, GO OUT.         4F14062     
 D     04553  1 00000 0 04561        TXI EC3,0                    IF A DASH, SET EKE MINUS.           4F14063     
       04554  0 34000 0 01404        CAS 12Z                      IF LESS THAN 32, COMPARE WITH PLUS. 4F14064     
 D     04555  1 00000 0 04602        TXI FN5,0                    IF GREATER THAN 16, GO OUT.         4F14065     
 D     04556  1 00000 0 04566        TXI EC6,0                    IF PLUS, GO EXAMINE NEXT CHAR.      4F14066     
       04557  0 34000 0 01420        CAS MINUS                    IF LESS THAN 16,COMPARE WITH MINUS. 4F14067     
 D     04560  1 00000 0 04602        TXI FN5,0                    IF GREATER THAN 12, GO OUT.         4F14068     
       04561  0 50200 0 01101 EC3    CLS EKE                      IF MINUS, SET EKE TO -0.            4F14069     
       04562  0 34000 0 01373        CAS TEN                      COMPARE WITH TEN.                   4F14070     
 D     04563  1 00000 0 04602        TXI FN5,0                    IF NON-NUMERIC, GO EXAMINE NEXT CH. 4F14071     
       04564 -0 75400 0 00000 EC4    PXD ,0                       CLEAR ACC,                          4F14072     
       04565  0 60100 0 01101 EC5    STO EKE                      SAVE PARTIAL RESULT(OR 0)IN EKE.    4F14073     
       04566  0 07400 4 01707 EC6    TSX C0190,4                * GO GET NEXT NB CHARACTER IN THE AC. 4F14074     
       04567  0 60200 0 01124        SLW CHSAVE                   SAVE IT FOR STATE B,                4F14075     
       04570  0 34000 0 01373        CAS TEN                      AND COMPARE WITH TEN.               4F14076     
 D     04571  1 00000 0 04602        TXI FN5,0                    CHAR EXCEEDS 10, SO IS NON-NUMERIC. 4F14077     
       04572 -0 75400 0 00000        PXD ,0                       CLEAR THE AC (MACHINE ERROR).       4F14078     
       04573  0 60100 0 01102        STO H                        CHARACTER IS NUMERIC, SO HOLD IT.   4F14079     
       04574  0 50000 0 01101        CLA EKE                      MULTIPLY THE PREVIOUS               4F14080     
       04575  0 76700 0 00002        ALS 2                        PARTIAL RESULT (OR ZERO)            4F14081     
       04576  0 40000 0 01101        ADD EKE                      BY 10,                              4F14082     
       04577  0 76700 0 00001        ALS 1                        AND ADD IN                          4F14083     
       04600  0 36100 0 01102        ACL H                        THE CURRENT DIGIT.                  4F14084     
 D     04601  1 00000 0 04565        TXI EC5,0                    CONTINUE UNTIL NON-NUMERIC IS MET.  4F14085     
       04602  0 50000 0 01101 FN5    CLA EKE                      COMBINE EXPLICIT EXPONENT           4F14086     
       04603  0 40000 0 01100        ADD DOE                      WITH IMPLICIT EXPONENT,             4F14087     
       04604  0 60100 0 01100        STO DOE                      AND SAVE IN DOE.                    4F14088     
       04605  0 50000 0 01103 FN4    CLA N                        IF N CONTAINS ZERO, TAKE            4F14089     
       04606  0 10000 0 04633        TZE MS9500                   FLO PT CONSTANT RETURN.             4F14090     
       04607  0 62100 0 04652        STA K1                       PUT INTEGER INTO FLO PT WORD,       4F14091     
       04610  0 77100 0 00017        ARS 15                       ADJUST, AND                         4F14092     
       04611  0 10000 0 04613        TZE FN1                      IF MORE THAN 15 BITS IN LENGTH      4F14093     
       04612 -0 50100 0 04653        ORA K2                       AFFIX CORRECT EXPONENT.             4F14094     
       04613  0 30000 0 04652 FN1    FAD K1                       THEN FLOATING ADD THE RESULT        4F14095     
       04614 -0 77300 0 00010        RQL 8                        OF INTEGER CONVERSION, AND          4F14096     
       04615  0 76000 0 00010        RND                          ROUND --TO OBTAIN                   4F14097     
       04616 -0 50100 0 04654        ORA K3                       NORMALIZED RESULT.                  4F14098     
       04617  0 53400 1 01100        LXA DOE,1                    EXAMINE THE C(DOE), AND             4F14099     
       04620 -3 00000 1 04633        TXL MS9500,1,0               IF ZERO, TAKE FLO PT RETURN.        4F14100     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 112/112 ------           
       04621 -3 00062 1 04623        TXL FN2,1,50                 IF GREATER THAN 50, THEN            4F14101     
 D     04622  1 00000 0 04647        TXI CER,0                    ERROR. -GO TO DIAGNOSTIC            4F14102     
       04623  0 56000 0 01100 FN2    LDQ DOE                      DETERMINE WHETHER INTEGER WAS       4F14103     
       04624  0 16200 0 04641        TQP FN3                      TO THE RIGHT OR TO THE LEFT OF DP,  4F14104     
       04625  0 24100 1 04740        FDP TAB,1                    IF TO THE RIGHT, DIVIDE BY A        4F14105     
       04626 -0 60000 0 01103        STQ N                        SUITABLE CONSTANT                   4F14106     
       04627  0 50000 0 01103        CLA N                        TO ADJUST RESULT                    4F14107     
       04630  0 36100 0 04655        ACL K4                       AND TEST FOR OUT OF RANGE.          4F14108     
       04631 -0 76000 0 00001        PBT                          IF P=I, SKIP TO ARITH RETURN.       4F14109     
 D     04632  1 00000 0 04647        TXI CER,0                    ERROR. --GO TO DIAGNOSTIC           4F14110     
       04633  0 60100 0 01347 MS9500 STO G                        STORE IN G, AND                     4F14111     
       04634  0 07400 4 00424        TSX FLCNIX,4               * GO MAKE FLOCON ENTRY.               4F14112     
       04635 -0 50100 0 01513        ORA FLOVAR                   CREATE INTERNAL FLO-PT VARIABLE,    4F14113     
       04636  0 60200 0 01130 EXITR  SLW E+2                      SAVE VARIABLE IN E+2,               4F14114     
       04637 -0 53400 4 04467        LXD EXIT,4                   RESTORE THE C(XR4), AND             4F14115     
       04640  0 02000 4 00002        TRA 2,4                    * RETURN TO MAIN ROUTINE.             4F14116     
       04641  0 60100 0 01103 FN3    STO N                        IF INTEGER WAS SITUATED             4F14117     
       04642  0 56000 0 01103        LDQ N                        TO THE LEFT OF THE DECIMAL POINT,   4F14118     
       04643  0 26000 1 04740        FMP TAB,1                    MULTIPLY BY A SUITABLE              4F14119     
       04644  0 36100 0 04656        ACL K5                       CONSTANT TO ADJUST AND TEST RANGE.  4F14120     
       04645 -0 76000 0 00001        PBT                          IF P=I, SKIP TO ERROR,              4F14121     
 D     04646  1 00000 0 04633        TXI MS9500,0                 RETURN TO ARITHMETIC ROUTINE,       4F14122     
       04647  0 07400 4 03400  CER   TSX DIAG,4                 * CONVERSION ERROR, GO TO DIAGNOSTIC. 4F14123     
       04650 -0 53400 4 04467 HEXIT  LXD EXIT,4                   RESTORE THE C(XR4), AND             4F14124     
       04651  0 02000 4 00001        TRA 1,4                    * RETURN TO MAIN ROUTINE.             4F14125     
                                                                                                      4F14126     
       04652 +233000000000    K1     OCT 233000000000             CONSTANT USED BY ROYCNV.            4F14127     
       04653 +252000000000    K2     OCT 252000000000             CONSTANT USED BY ROYCNV.            4F14128     
       04654 +000400000000    K3     OCT 400000000                CONSTANT USED BY ROYCNV.            4F14129     
       04655 +335000000000    K4     OCT 335000000000             CONSTANT USED BY ROYCNV.            4F14130     
       04656 +043000000000    K5     OCT 43000000000              CONSTANT USED BY ROYCNV.            4F14131     
       04657  000000000025    L(E)   BCD 100000E                  CONSTANT USED BY ROYCNV.            4F14132     
                                                                                                      4F14133     
       04660 +375536246150           OCT 375536246150             48-TABLE USED BY ROYCNV.            4F14134     
       04661 +372430204754           OCT 372430204754             47-TABLE USED BY ROYCNV.            4F14135     
       04662 +366700324573           OCT 366700324573             46-TABLE USED BY ROYCNV.            4F14136     
       04663 +363546566774           OCT 363546566774             45-TABLE USED BY ROYCNV.            4F14137     
       04664 +360436770626           OCT 360436770626             44-TABLE USED BY ROYCNV.            4F14138     
       04665 +354713132675           OCT 354713132675             43-TABLE USED BY ROYCNV.            4F14139     
       04666 +351557257061           OCT 351557257061             42-TABLE USED BY ROYCNV.            4F14140     
       04667 +346445677215           OCT 346445677215             41-TABLE USED BY ROYCNV.            4F14141     
       04670 +342726145174           OCT 342726145174             40-TABLE USED BY ROYCNV.            4F14142     
       04671 +337570120775           OCT 337570120775             39-TABLE USED BY ROYCNV.            4F14143     
       04672 +334454732312           OCT 334454732312             38-TABLE USED BY ROYCNV.            4F14144     
       04673 +330741367020           OCT 330741367020             37-TABLE USED BY ROYCNV,            4F14145     
       04674 +325601137163           OCT 325601137163             36-TABLE USED BY ROYCNV.            4F14146     
       04675 +322464114134           OCT 322464114134             35-TABLE USED BY ROYCNV.            4F14147     
       04676 +316755023372           OCT 316755023372             34-TABLE USED BY ROYCNV.            4F14148     
       04677 +313612334310           OCT 313612334310             33-TABLE USED BY ROYCNV.            4F14149     
       04700 +310473426555           OCT 310473426555             32-TABLE USED BY ROYCNV.            4F14150     
       04701 +304770675742           OCT 304770675742             31-TABLE USED BY ROYCNV.            4F14151     
       04702 +301623713116           OCT 301623713116             30-TABLE USED BY ROYCNV.            4F14152     
       04703 +276503074076           OCT 276503074076             29-TABLE USED BY ROYCNV.            4F14153     
       04704 +273402374713           OCT 273402374713             28-TABLE USED BY ROYCNV.            4F14154     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 113/113 ------           
       04705 +267635456171           OCT 267635456171             27-TABLE USED BY ROYCNV.            4F14155     
       04706 +264512676456           OCT 264512676456             26-TABLE USED BY ROYCNV.            4F14156     
       04707 +261410545213           OCT 261410545213             25-TABLE USED BY ROYCNV.            4F14157     
       04710 +255647410337           OCT 255647410337             24-TABLE USED BY ROYCNV.            4F14158     
       04711 +252522640262           OCT 252522640262             23-TABLE USED BY ROYCNV.            4F14159     
       04712 +247417031702           OCT 247417031702             22-TABLE USED BY ROYCNV.            4F14160     
       04713 +243661534466           OCT 243661534466             21-TABLE USED BY ROYCNV.            4F14161     
       04714 +240532743536           OCT 240532743536             20-TABLE USED BY ROYCNV.            4F14162     
       04715 +235425434430           OCT 235425434430             19-TABLE USED BY ROYCNV.            4F14163     
       04716 +231674055530           OCT 231674055530             18-TABLE USED BY ROYCNV.            4F14164     
       04717 +226543212741           OCT 226543212741             17-TABLE USED BY ROYCNV.            4F14165     
       04720 +223434157116           OCT 223434157116             16-TABLE USED BY ROYCNV.            4F14166     
       04721 +217706576512           OCT 217706576512             15-TABLE USED BY ROYCNV.            4F14167     
       04722 +214553630410           OCT 214553630410             14-TABLE USED BY ROYCNV.            4F14168     
       04723 +211443023471           OCT 211443023471             13-TABLE USED BY ROYCNV.            4F14169     
       04724 +205721522451           OCT 205721522451             12-TABLE USED BY ROYCNV.            4F14170     
       04725 +202564416672           OCT 202564416672             11-TABLE USED BY ROYCNV.            4F14171     
       04726 +177452013710           OCT 177452013710             10-TABLE USED BY ROYCNV.            4F14172     
       04727 +173734654500           OCT 173734654500             09-TABLE USED BY ROYCNV.            4F14173     
       04730 +170575360400           OCT 170575360400             08-TABLE USED BY ROYCNV.            4F14174     
       04731 +165461132000           OCT 165461132000             07-TABLE USED BY ROYCNV.            4F14175     
       04732 +161750220000           OCT 161750220000             06-TABLE USED BY ROYCNV.            4F14176     
       04733 +156606500000           OCT 156606500000             05-TABLE USED BY ROYCNV.            4F14177     
       04734 +153470400000           OCT 153470400000             04-TABLE USED BY ROYCNV.            4F14178     
       04735 +147764000000           OCT 147764000000             03-TABLE USED BY ROYCNV.            4F14179     
       04736 +144620000000           OCT 144620000000             02-TABLE USED BY ROYCNV.            4F14180     
       04737 +141500000000           OCT 141500000000             01-TABLE USED BY ROYCNV.            4F14181     
       04740 +136400000000     TAB   OCT 136400000000             00-TABLE USED BY ROYCNV.            4F14182     
                                         END OF PROGRAM ROYCNV.                                       4F14183     
                                         ******************************                              *4F14184     
                                                                                                      4F14185     
       04741  0 00001 0 01230 SIG1ST PZE SIGMA1+2,,1                                                  4F14186     
                        04742 ENDBDR BSS 0                                                            4F141865    
                                                                                                      4F14187     
                        05215 ENDB   ORG 2701                                                         4F14188     
                        05215 ARGREG BSS 50                                                           4F14189     
                        05277 CBAR   BSS 1                                                            4F14190     
                        05300 ABAR   BSS 1                                                            4F14191     
                        05301 FSTYPE BSS 1                                                            4F14192     
                        05302 FSBITS BSS 1                                                            4F14193     
                        05303 FNBITS BSS 1                                                            4F14194     
                        05304 FNCTR  BSS 1                                                            4F14195     
                        05305 ALPHA  BSS 139                                                          4F14196     
                        05520 LAMBDA BSS 1200                                                         4F14197     
                                         END OF ARITHMETIC / STATE B.                                 4F14198     
                                         ******************************                              *4F14199     
                                                                                                      4F14200     
                                         ARITHMETIC / STATE C=                                        4F14201     
                                         704 FORTRAN MASTER RECORD CARD / STATE C = F0170000.         4F14202     
                        00000        ORG 0                                                            4F142021    
       00000  0 00504 0 03440        PZE ORGC,,DMWR03                                                 4F142022    
       00001  0 00000 0 05043        PZE ENDC-1                                                       4F142023    
                                                                                                      4F14203     
                                         STATE C. PERFORMS OPTIMIZATION ON LAMBDA TABLE,              4F14204     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 114/114 ------           
                                                                                                      4F14205     
                        03440 ORGC   ORG 1824                                                         4F14206     
       03440  0 56000 0 01406 R00000 LDQ L(0)             CLEAR MQ                                    4F14207     
       03441 -0 53400 1 01360        LXD NBAR,A           LDXA WITH -N                                4F14208     
       03442 -0 63400 1 03451        SXD R00700,A                                                     4F14209     
       03443 -0 63400 1 03527        SXD R05200,A                                                     4F14210     
       03444 -0 63400 1 04101        SXD AS0800,A                                                     4F14211     
       03445 -0 63400 1 04126        SXD AS2900,A                                                     4F14212     
       03446  0 53400 7 01406        LXA L(0),7           CLEAR XA,XB,XC,                             4F14213     
       03447 -0 60000 2 05044 R00500 STQ BETA,B                                                       4F14214     
       03450  1 77777 2 03451        TXI R00700,B,-1                                                  4F14215     
       03451  3 00000 2 03447 R00700 TXH R00500,B,0                                                   4F14216     
       03452  0 50000 0 01117        CLA 3LBAR                                                        4F14217     
       03453  0 62200 0 03464        STD R01700                                                       4F14218     
       03454  0 62200 0 03541        STD R06200                                                       4F14219     
       03455  0 50000 1 05520 R01000 CLA LAMBDA,A          ADD INTO GAMMA COUNTERS                    4F14220     
       03456  0 73400 2 00000        PAX 0,B                                                          4F14221     
       03457  0 50000 2 05044        CLA BETA,B                                                       4F14222     
       03460  0 40000 0 01506        ADD BETAD1            (-3)*2**18+(-3)                            4F14223     
       03461  0 62200 2 05044        STD BETA,B                                                       4F14224     
       03462  0 62100 2 05044        STA BETA,B                                                       4F14225     
       03463  1 77775 1 03464        TXI R01700,A,-3                                                  4F14226     
       03464  3 00000 1 03455 R01700 TXH R01000,A,0        -3L IN XA AT END                           4F14227     
       03465  3 77772 1 03516 R01800 TXH R04200,A,-6       EXIT FROM SINGLE ELEMENT REDUCTION         4F14228     
       03466  0 50000 1 05515        CLA LAMBDA-3,A                                                   4F14229     
       03467  0 73400 2 00000        PAX 0,B                                                          4F14230     
       03470  0 50000 2 05044        CLA BETA,B                                                       4F14231     
       03471  0 40200 0 01506        SUB BETAD1                                                       4F14232     
       03472  0 10000 0 03474        TZE R02600                                                       4F14233     
       03473  1 00003 1 03465        TXI R01800,A,3                                                   4F14234     
       03474  0 56000 1 05516 R02600 LDQ LAMBDA-2,A        SINGLE ELEMENT                             4F14235     
       03475 -0 76300 0 00006        LGL 6                 EXAMINE OPERATION                          4F14236     
       03476  0 40200 0 01401        SUB 11Z                                                          4F14237     
       03477 -0 10000 0 03501        TNZ R03200                                                       4F14238     
       03500  1 00003 1 03465        TXI R01800,A,3                                                   4F14239     
       03501 -0 50000 0 01527 R03200 CAL MASK1             SINGLE ELEMENT, NON-UNARY OP               4F14240     
       03502  0 32000 1 05515        ANS LAMBDA-3,A        EXTRACT TAGS AND STORE BACK                4F14241     
       03503  0 50000 1 05512        CLA LAMBDA-6,A                                                   4F14242     
       03504 -0 50100 1 05515        ORA LAMBDA-3,A                                                   4F14243     
       03505  0 60200 1 05512        SLW LAMBDA-6,A                                                   4F14244     
       03506 -0 50000 1 05516        CAL LAMBDA-2,A        EXTRACT FS BITS AND STORE BACK             4F14245     
       03507 -0 32000 0 01470        ANA MASK5                                                        4F14246     
       03510 -0 60200 1 05513        ORS LAMBDA-5,A                                                   4F14247     
       03511 -0 50000 1 05517        CAL LAMBDA-1,A        STORE BACK SYMBOL                          4F14248     
       03512  0 60200 1 05514        SLW LAMBDA-4,A                                                   4F14249     
       03513  0 60000 3 05044        STZ BETA,3            REDUCE GAMMA COUNT TO 0                    4F14250     
       03514  0 60000 1 05515        STZ LAMBDA-3,A        CLEAR TAG WORD                             4F14251     
       03515  1 00003 1 03465        TXI R01800,A,3        RESUME SCAN-BACK                           4F14252     
       03516  0 60000 0 01347 R04200 STZ G                                                            4F14253     
       03517  0 53400 7 01406        LXA L(0),7            CLEAR XA,XB,XC                             4F14254     
       03520  0 50000 2 05044 R04500 CLA BETA,B            SET ORIGINS OF SCRIPL TABLE                4F14255     
       03521  0 10000 0 03526        TZE R05100                                                       4F14256     
       03522  0 56000 0 01347        LDQ G                                                            4F14257     
       03523 -0 62000 2 05044        SLQ BETA,B                                                       4F14258     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 115/115 ------           
       03524  0 40000 0 01347        ADD G                                                            4F14259     
       03525  0 62200 0 01347        STD G                                                            4F14260     
       03526  1 77777 2 03527 R05100 TXI R05200,B,-1                                                  4F14261     
       03527  3 00000 2 03520 R05200 TXH R04500,B,0        DEC(K)=DEC(ACC)=-3P AT END                 4F14262     
       03530 -0 50000 1 05520 R05300 CAL LAMBDA,A          STRING BEADS... COMPRESS LAMBDA TABLE      4F14263     
       03531  0 10000 0 03540        TZE R06100                                                       4F14264     
       03532  0 60200 4 05520        SLW LAMBDA,C                                                     4F14265     
       03533  0 50000 1 05521        CLA LAMBDA+1,A                                                   4F14266     
       03534  0 60100 4 05521        STO LAMBDA+1,C                                                   4F14267     
       03535  0 50000 1 05522        CLA LAMBDA+2,A                                                   4F14268     
       03536  0 60100 4 05522        STO LAMBDA+2,C                                                   4F14269     
       03537  1 77775 4 03540        TXI R06100,C,-3                                                  4F14270     
       03540  1 77775 1 03541 R06100 TXI R06200,A,-3                                                  4F14271     
       03541  3 00000 1 03530 R06200 TXH R05300,A,0                                                   4F14272     
       03542 -0 63400 4 03563        SXD R07800,C          -3P IN XC AT END                           4F14273     
       03543 -0 63400 4 03707        SXD CS0760,C                                                     4F14274     
       03544  0 53400 1 01406        LXA L(0),A                                                       4F14275     
       03545  0 50000 1 05520 R06400 CLA LAMBDA,A          STORE ORDERED, REDUCED LAMBDA TABLE        4F14276     
       03546  0 73400 2 00000        PAX 0,B               IN SCRIPL TABLE                            4F14277     
       03547  0 50000 2 05044        CLA BETA,B                                                       4F14278     
       03550 -0 73400 4 00000        PDX 0,C                                                          4F14279     
       03551  0 50000 1 05520        CLA LAMBDA,A                                                     4F14260     
       03552  0 60100 4 06650        STO SCRIPL,C                                                     4F14281     
       03553  0 50000 1 05521        CLA LAMBDA+1,A                                                   4F14282     
       03554  0 60100 4 06651        STO SCRIPL+1,C                                                   4F14283     
       03555  0 50000 1 05522        CLA LAMBDA+2,A                                                   4F14284     
       03556  0 60100 4 06652        STO SCRIPL+2,C                                                   4F14265     
       03557  1 77775 4 03560        TXI R07500,C,-3                                                  4F14286     
       03560 -0 75400 4 00000 R07500 PXD 0,C                                                          4F14287     
       03561  0 62200 2 05044        STD BETA,B                                                       4F14288     
       03562  1 77775 1 03563        TXI R07800,A,-3                                                  4F14289     
       03563  3 00000 1 03545 R07800 TXH R06400,A,0        -3P IN XA AT END                           4F14290     
       03564  0 56000 0 01406 CS0000 LDQ L(0)              ELIMINATE COMMON SEGMENTS                  4F14291     
       03565 -0 50000 1 06645 CS0010 CAL SCRIPL-3,A                                                   4F14292     
       03566  0 10000 0 03575        TZE CS0080            ERASED SEGMENT - CONTINUE BACK-SCAN        4F14293     
       03567  0 73400 2 00000 CS0030 PAX 0,B                                                          4F14294     
       03570 -3 00000 2 03675        TXL CS0660,B,0        EXIT FROM CS ROUTINE                       4F14295     
       03571  0 62100 0 03567        STA CS0030                                                       4F14296     
       03572  0 50000 2 05044        CLA BETA,B                                                       4F14297     
       03573  0 73400 4 00000 CS0060 PAX 0,C                                                          4F14298     
       03574 -3 77772 4 03576        TXL CS0090,C,-6       AT LEAST TWO ELEMENTS                      4F14299     
       03575  1 00003 1 03565 CS0080 TXI CS0010,A,3        ONE ELEMENT OR ERASED SEGMENT              4F14300     
       03576 -0 63400 1 03651 CS0090 SXD CS0470,A          SAVE XA                                    4F14301     
       03577 -0 63400 4 01357        SXD LENGTH,C          SAVE XC, CONTAINING LENGTH OF SEGMENT      4F14302     
       03600 -3 00000 4 03603 CS0100 TXL CS0130,C,0        SEARCH UP FOR MATCHING SEGMENT             4F14303     
       03601  1 00003 1 03602        TXI CS0120,A,3                                                   4F14304     
       03602  1 00003 4 03600 CS0120 TXI CS0100,C,3                                                   4F14305     
       03603 -0 50000 1 06645 CS0130 CAL SCRIPL-3,A                                                   4F14306     
       03604 -0 10000 0 03606        TNZ CS0151                                                       4F14307     
       03605  1 00003 1 03603        TXI CS0130,A,3        ERASED SEGMENT                             4F14308     
       03606  0 73400 2 00000 CS0151 PAX 0,B                                                          4F14309     
       03607 -3 00000 2 03670        TXL CS0610,B,0        GO ON TO NEXT SEGMENT                      4F14310     
       03610  0 62100 0 03573        STA CS0060                                                       4F14311     
       03611  0 50000 2 05044        CLA BETA,B                                                       4F14312     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 116/116 ------           
       03612  0 73400 4 00000        PAX 0,C                                                          4F14313     
       03613 -0 75400 4 00000        PXD 0,C                                                          4F14314     
       03614  0 40200 0 01357        SUB LENGTH                                                       4F14315     
       03615 -0 10000 0 03600        TNZ CS0100            NOT SAME LENGTH SEGMENT-CONTINUE SEARCH    4F14316     
       03616 -0 53400 2 03651        LXD CS0470,B          SAME LENGTH SEGMENT                        4F14317     
       03617 -0 63400 1 03667        SXD CS0600,A                                                     4F14318     
       03620 -3 00000 4 03645 CS0250 TXL CS0430,C,0        MATCHING SEGMENTS                          4F14319     
       03621  0 50000 2 06647        CLA SCRIPL-1,B                                                   4F14320     
       03622  0 40200 1 06647        SUB SCRIPL-1,A                                                   4F14321     
       03623 -0 10000 0 03600        TNZ CS0100                                                       4F14322     
       03624 -0 50000 2 06645        CAL SCRIPL-3,B        SYMBOLS MATCH                              4F14323     
       03625 -0 32000 0 01527        ANA MASK1                                                        4F14324     
       03626  0 60200 0 01347        SLW G                                                            4F14325     
       03627 -0 50000 1 06645        CAL SCRIPL-3,A                                                   4F14326     
       03630 -0 32000 0 01527        ANA MASK1                                                        4F14327     
       03631  0 76000 0 00006        COM                                                              4F14328     
       03632  0 36100 0 01347        ACL G                                                            4F14329     
       03633  0 76000 0 00006        COM                                                              4F14330     
       03634 -0 10000 0 03600        TNZ CS0100                                                       4F14331     
       03635  0 50000 2 06646        CLA SCRIPL-2,B        TAGS MATCH                                 4F14332     
       03636  0 77100 0 00006        ARS 6                                                            4F14333     
       03637  0 76700 0 00006        ALS 6                                                            4F14334     
       03640  0 40200 1 06646        SUB SCRIPL-2,A                                                   4F14335     
       03641 -0 10000 0 03600        TNZ CS0100                                                       4F14336     
       03642  1 00003 1 03643        TXI CS0360,A,3        OPS MATCH                                  4F14337     
       03643  1 00003 2 03644 CS0360 TXI CS0370,B,3                                                   4F14338     
       03644  1 00003 4 03620 CS0370 TXI CS0250,C,3                                                   4F14339     
       03645 -0 50000 1 06650 CS0430 CAL SCRIPL,A          MATCHING SEGMENTS                          4F14340     
       03646 -0 32000 0 01452        ANA MASK2             SEARCH FOR REFERENCES                      4F14341     
       03647  0 34000 1 06647 CS0450 CAS SCRIPL-1,A                                                   4F14342     
       03650  1 00003 1 03647        TXI CS0450,A,3                                                   4F14343     
       03651  1 00000 0 03653 CS0470 TXI CS0490,0,0                                                   4F14344     
       03652  1 00003 1 03647        TXI CS0450,A,3                                                   4F14345     
       03653  0 50000 0 03567 CS0490 CLA CS0030            CHANGE REFERENCE                           4F14346     
       03654  0 62100 1 06647        STA SCRIPL-1,A                                                   4F14347     
       03655 -0 53400 4 01357        LXD LENGTH,C                                                     4F14348     
       03656 -0 53400 1 03667        LXD CS0600,A                                                     4F14349     
       03657 -3 00000 4 03663 CS0530 TXL CS0570,C,0        ERASE DUPLICATE SEGMENT                    4F14350     
       03660 -0 60000 1 06645        STQ SCRIPL-3,A                                                   4F14351     
       03661  1 00003 1 03662        TXI CS0560,A,3                                                   4F14352     
       03662  1 00003 4 03657 CS0560 TXI CS0530,C,3                                                   4F14353     
       03663  0 53400 4 03573 CS0570 LXA CS0060,C                                                     4F14354     
       03664 -0 60000 4 05044        STQ BETA,C                                                       4F14355     
       03665 -0 50000 0 01401        CAL 11Z               STORE CS BIT                               4F14356     
       03666 -0 60200 2 06651        ORS SCRIPL+1,B                                                   4F14357     
       03667  1 00000 0 03603 CS0600 TXI CS0130,0,0                                                   4F14358     
       03670 -0 53400 1 03651 CS0610 LXD CS0470,A                                                     4F14359     
       03671 -0 53400 4 01357        LXD LENGTH,C                                                     4F14360     
       03672 -3 00000 4 03565 CS0630 TXL CS0010,C,0                                                   4F14361     
       03673  1 00003 1 03674        TXI CS0650,A,3                                                   4F14362     
       03674  1 00003 4 03672 CS0650 TXI CS0630,C,3                                                   4F14363     
       03675  0 53400 5 01406 CS0660 LXA L(0),5            STRING BEADS... COMPRESS SCRIPL TABLE      4F14364     
       03676 -0 50000 1 06650 CS0670 CAL SCRIPL,A                                                     4F14365     
       03677  0 10000 0 03706        TZE CS0750                                                       4F14366     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 117/117 ------           
       03700  0 60200 4 06650        SLW SCRIPL,C                                                     4F14367     
       03701  0 50000 1 06651        CLA SCRIPL+1,A                                                   4F14368     
       03702  0 60100 4 06651        STO SCRIPL+1,C                                                   4F14369     
       03703  0 50000 1 06652        CLA SCRIPL+2,A                                                   4F14370     
       03704  0 60100 4 06652        STO SCRIPL+2,C                                                   4F14371     
       03705  1 77775 4 03706        TXI CS0750,C,-3                                                  4F14372     
       03706  1 77775 1 03707 CS0750 TXI CS0760,A,-3                                                  4F14373     
       03707  3 00000 1 03676 CS0760 TXH CS0670,A,0                                                   4F14374     
       03710 -0 63400 4 03724        SXD PM0080,C          -3Q IN XC AT END                           4F14375     
       03711 -0 63400 4 04113        SXD AS1800,C                                                     4F14376     
       03712 -0 63400 4 04136        SXD AS3600,C                                                     4F14377     
       03713  0 76000 0 00140 PM0000 SLF                   TURN OFF ALL SENSE LITES                   4F14378     
       03714  0 53400 1 01406        LXA L(0),A            PERMUTE * AND /                            4F14379     
       03715  0 50000 1 06650 PM0010 CLA SCRIPL,A                                                     4F14380     
       03716  0 73400 2 00000        PAX 0,B                                                          4F14381     
       03717  0 50000 2 05044        CLA BETA,B                                                       4F14382     
       03720  0 73400 4 00000        PAX 0,C               LDXC WITH SEGMENT LENGTH                   4F14383     
       03721 -0 63400 4 03723        SXD PM0070,C                                                     4F14384     
       03722 -3 77767 4 03726        TXL PM0100,C,-9                                                  4F14385     
       03723  1 00000 1 03724 PM0070 TXI PM0080,A,0        LENGTH LESS THAN 3 OR OD NOT = TO *        4F14386     
       03724 -3 00000 1 04071 PM0080 TXL AS0000,A,0        EXIT FROM PERMUTATION ROUTINE              4F14387     
       03725  0 02000 0 03715        TRA PM0010                                                       4F14388     
       03726  0 56000 1 06651 PM0100 LDQ SCRIPL+1,A        SEGMENT LENGTH AT LEAST = TO 3             4F14389     
       03727 -0 75400 0 00000        PXD 0,0                                                          4F14390     
       03730 -0 76300 0 00006        LGL 6                                                            4F14391     
       03731  0 40200 0 01405        SUB STAR                                                         4F14392     
       03732 -0 10000 0 03723        TNZ PM0070                                                       4F14393     
       03733  0 16200 0 03735        TQP PM0170                                                       4F14394     
       03734  0 02000 0 03723        TRA PM0070                                                       4F14395     
       03735 -0 63400 4 03744 PM0170 SXD PM0260,C                                                     4F14396     
       03736 -0 63400 4 03762        SXD PM0400,C                                                     4F14397     
       03737 -0 63400 4 04013        SXD PM0680,C                                                     4F14398     
       03740  0 53400 4 01406        LXA L(0),C            LDXC WITH 0                                4F14399     
       03741  1 77775 1 03742        TXI PM0240,A,-3                                                  4F14400     
       03742  0 76000 0 00143 PM0240 SLN 3                 TURN * LITE ON                             4F14401     
       03743  1 77775 4 03744 PM0250 TXI PM0260,C,-3                                                  4F14402     
       03744 -3 00000 4 04025 PM0260 TXL PM0790,C,0        EXIT                                       4F14403     
       03745 -0 63400 4 03755        SXD PM0340,C                                                     4F14404     
       03746 -0 53400 2 03747        LXD PM0290,B                                                     4F14405     
       03747  1 00000 3 03750 PM0290 TXI PM0300,3,0        XA TO XA AND XB                            4F14406     
       03750 -0 75400 0 00000 PM0300 PXD 0,0                                                          4F14407     
       03751  0 56000 1 06651        LDQ SCRIPL+1,A                                                   4F14408     
       03752 -0 76300 0 00006        LGL 6                                                            4F14409     
       03753  0 34000 0 01402        CAS SLASH                                                        4F14410     
       03754  0 00007 0 00000 FEXUB  HTR 0,0,7                                                        4F14411     
       03755 -3 00000 0 04007 PM0340 TXL PM0640,0,0        / SIGN                                     4F14412     
       03756 -0 76000 0 00143        SLT 3                 * SIGN... IS * LITE ON                     4F14413     
       03757  1 77775 1 03742        TXI PM0240,A,-3       NO                                         4F14414     
       03760  1 77775 2 03761        TXI PM0390,B,-3       YES - SEARCH FOR / SIGN                    4F14415     
       03761  1 77775 4 03762 PM0390 TXI PM0400,C,-3                                                  4F14416     
       03762 -3 00000 4 04023 PM0400 TXL PM0770,C,0        EXIT                                       4F14417     
       03763 -0 75400 0 00000        PXD 0,0                                                          4F14418     
       03764  0 56000 2 06651        LDQ SCRIPL+1,B                                                   4F14419     
       03765 -0 76300 0 00006        LGL 6                                                            4F14420     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 118/118 ------           
       03766  0 40200 0 01402        SUB SLASH                                                        4F14421     
       03767  0 10000 0 03771        TZE PM0480                                                       4F14422     
       03770  1 77775 2 03761        TXI PM0390,B,-3                                                  4F14423     
       03771  0 50000 1 06650 PM0480 CLA SCRIPL,A          PERMUTE TAG WORDS                          4F14424     
       03772  0 56000 2 06650        LDQ SCRIPL,B                                                     4F14425     
       03773 -0 60000 1 06650        STQ SCRIPL,A                                                     4F14426     
       03774  0 60100 2 06650        STO SCRIPL,B                                                     4F14427     
       03775  0 50000 1 06651        CLA SCRIPL+1,A        PERMUTE OP WORDS                           4F14428     
       03776  0 56000 2 06651        LDQ SCRIPL+1,B                                                   4F14429     
       03777 -0 60000 1 06651        STQ SCRIPL+1,A                                                   4F14430     
       04000  0 60100 2 06651        STO SCRIPL+1,B                                                   4F14431     
       04001  0 50000 1 06652        CLA SCRIPL+2,A        PERMUTE SYMBOL WORDS                       4F14432     
       04002  0 56000 2 06652        LDQ SCRIPL+2,B                                                   4F14433     
       04003 -0 60000 1 06652        STQ SCRIPL+2,A                                                   4F14434     
       04004  0 60100 2 06652        STO SCRIPL+2,B                                                   4F14435     
       04005 -0 53400 4 03755        LXD PM0340,C                                                     4F14436     
       04006  1 77775 1 03743        TXI PM0250,A,-3       RESUME SEGMENT SCAN                        4F14437     
       04007 -0 76000 0 00143 PM0640 SLT 3                 / SIGN... IS * LITE ON                     4F14438     
       04010  1 77775 2 04012 PM0650 TXI PM0670,B,-3       NO                                         4F14439     
       04011  1 77775 1 03743        TXI PM0250,A,-3                                                  4F14440     
       04012  1 77775 4 04013 PM0670 TXI PM0680,C,-3                                                  4F14441     
       04013 -3 00000 4 04023 PM0680 TXL PM0770,C,0                                                   4F14442     
       04014 -0 75400 0 00000        PXD 0,0                                                          4F14443     
       04015  0 56000 2 06651        LDQ SCRIPL+1,B                                                   4F14444     
       04016 -0 76300 0 00006        LGL 6                                                            4F14445     
       04017  0 40200 0 01402        SUB SLASH                                                        4F14446     
       04020  0 10000 0 04010        TZE PM0650                                                       4F14447     
       04021  0 76000 0 00143        SLN 3                 TURN *  LITE  ON                           4F14448     
       04022  0 02000 0 03771        TRA PM0480                                                       4F14449     
       04023 -0 53400 1 04024 PM0770 LXD PM0780,A                                                     4F14450     
       04024  1 00000 3 04025 PM0780 TXI PM0790,3,0        XB TO XA,XB                                4F14451     
       04025 -0 75400 0 00000 PM0790 PXD 0,0                                                          4F14452     
       04026  0 56000 1 06646        LDQ SCRIPL-2,A                                                   4F14453     
       04027 -0 76300 0 00006        LGL 6                                                            4F14454     
       04030  0 40200 0 01402        SUB SLASH                                                        4F14455     
       04031  0 10000 0 03724        TZE PM0080            ... / - EXIT FROM SEGMENT SCAN             4F14456     
       04032 -0 75400 0 00000        PXD 0,0                                                          4F14457     
       04033  0 56000 1 06643        LDQ SCRIPL-5,A                                                   4F14458     
       04034 -0 76300 0 00006        LGL 6                                                            4F14459     
       04035  0 40200 0 01402        SUB SLASH                                                        4F14460     
       04036  0 10000 0 03724        TZE PM0080            ... / * - EXIT FROM SEGMENT SCAN           4F14461     
       04037  0 50000 1 06645        CLA SCRIPL-3,A        ... **                                     4F14462     
       04040  0 60100 0 01126        STO E                                                            4F14463     
       04041  0 50000 1 06646        CLA SCRIPL-2,A                                                   4F14464     
       04042  0 60100 0 01127        STO E+1                                                          4F14465     
       04043  0 50000 1 06647        CLA SCRIPL-1,A                                                   4F14466     
       04044  0 60100 0 01130        STO E+2                                                          4F14467     
       04045  1 00003 1 04046        TXI PM0980,A,3                                                   4F14468     
       04046  1 00003 4 04047 PM0980 TXI PM0990,C,3                                                   4F14469     
       04047 -3 00000 4 04057 PM0990 TXL PM1070,C,0        FINIS                                      4F14470     
       04050  0 50000 1 06645        CLA SCRIPL-3,A                                                   4F14471     
       04051  0 60100 1 06650        STO SCRIPL,A                                                     4F14472     
       04052  0 50000 1 06646        CLA SCRIPL-2,A                                                   4F14473     
       04053  0 60100 1 06651        STO SCRIPL+1,A                                                   4F14474     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 119/119 ------           
       04054  0 50000 1 06647        CLA SCRIPL-1,A                                                   4F14475     
       04055  0 60100 1 06652        STO SCRIPL+2,A                                                   4F14476     
       04056  1 00003 1 04046        TXI PM0980,A,3                                                   4F14477     
       04057  0 50000 0 01126 PM1070 CLA E                                                            4F14478     
       04060  0 60100 1 06650        STO SCRIPL,A                                                     4F14479     
       04061  0 50000 0 01127        CLA E+1                                                          4F14480     
       04062  0 60100 1 06651        STO SCRIPL+1,A                                                   4F14481     
       04063  0 50000 0 01130        CLA E+2                                                          4F14482     
       04064  0 60100 1 06652        STO SCRIPL+2,A                                                   4F14483     
       04065 -0 50000 1 06654        CAL SCRIPL+4,A        PRESERVE CS BIT                            4F14484     
       04066 -0 32000 0 01401        ANA 11Z                                                          4F14485     
       04067 -0 60200 1 06651        ORS SCRIPL+1,A                                                   4F14486     
       04070  0 02000 0 03723        TRA PM0070                                                       4F14487     
       04071  0 53400 7 01406 AS0000 LXA L(0),7            RENUMBER SEGMENT OF SCRIPL                 4F14488     
       04072  0 50000 2 05044 AS0100 CLA BETA,B                                                       4F14489     
       04073  0 10000 0 04100        TZE AS0700                                                       4F14490     
       04074 -0 75400 4 00000        PXD 0,C                                                          4F14491     
       04075  0 77100 0 00022        ARS 18                                                           4F14492     
       04076  0 62100 2 05044        STA BETA,B                                                       4F14493     
       04077  1 77777 4 04100        TXI AS0700,C,-1                                                  4F14494     
       04100  1 77777 2 04101 AS0700 TXI AS0800,B,-1                                                  4F14495     
       04101  3 00000 2 04072 AS0800 TXH AS0100,B,0                                                   4F14496     
       04102  0 50000 1 06650 AS0900 CLA SCRIPL,A                                                     4F14497     
       04103  0 73400 2 00000        PAX 0,B                                                          4F14498     
       04104  0 50000 2 05044        CLA BETA,B                                                       4F14499     
       04105  0 62100 1 06650        STA SCRIPL,A                                                     4F14500     
       04106  0 56000 1 06652        LDQ SCRIPL+2,A                                                   4F14501     
       04107 -0 76300 0 00001        LGL 1                                                            4F14502     
       04110  0 76000 0 00001        LBT                                                              4F14503     
       04111  0 16200 0 04115        TQP AS2000                                                       4F14504     
       04112  1 77775 1 04113        TXI AS1800,A,-3                                                  4F14505     
       04113  3 00000 1 04102 AS1800 TXH AS0900,A,0                                                   4F14506     
       04114  0 02000 0 04122        TRA AS2500                                                       4F14507     
       04115 -0 76300 0 00043 AS2000 LGL 35                                                           4F14508     
       04116  0 73400 2 00000        PAX 0,B                                                          4F14509     
       04117  0 50000 2 05044        CLA BETA,B                                                       4F14510     
       04120  0 62100 1 06652        STA SCRIPL+2,A                                                   4F14511     
       04121  1 77775 1 04113        TXI AS1800,A,-3                                                  4F14512     
       04122  0 53400 3 01406 AS2500 LXA L(0),3            LDXA,XB WITH 0                             4F14513     
       04123  0 56000 0 01406        LDQ L(0)              CLEAR MQ                                   4F14514     
       04124  0 60100 2 05044 AS2700 STO BETA,B            RECLEAR BETA TABLE                         4F14515     
       04125  1 77777 2 04126        TXI AS2900,B,-1                                                  4F14516     
       04126  3 00000 2 04124 AS2900 TXH AS2700,B,0                                                   4F14517     
       04127  0 50000 1 06650 AS3000 CLA SCRIPL,A          ADD INTO GAMMA COUNTERS                    4F14518     
       04130  0 73400 2 00000        PAX 0,B                                                          4F14519     
       04131  0 50000 2 05044        CLA BETA,B                                                       4F14520     
       04132  0 40000 0 01462        ADD BETAD2            3*2**18+(-3)                               4F14521     
       04133  0 62200 2 05044        STD BETA,B                                                       4F14522     
       04134  0 62100 2 05044        STA BETA,B                                                       4F14523     
       04135  1 77775 1 04136        TXI AS3600,A,-3                                                  4F14524     
       04136  3 00000 1 04127 AS3600 TXH AS3000,A,0        -30 IN XA AT END                           4F14525     
       04137 -0 63400 1 01117        SXD 3QBAR,A           -30 TO 3QBAR = 3LBAR                       4F14526     
       04140 -0 50000 1 06645 CCS000 CAL SCRIPL-3,A        ELIMINATE COMMON SUBEXPRESSIONS            4F14527     
       04141  0 73400 2 00000        PAX 0,B               LOAD XB WITH S(1)                          4F14528     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 120/120 ------           
       04142 -3 00000 2 04167        TXL CCS240,B,0        EXIT AT S(O)                               4F14529     
       04143 -0 50000 2 05044        CAL BETA,B            OBTAIN LENGTH OF S(I)                      4F14530     
       04144  0 62200 0 04145        STD CCS060            AND BACK UP TO                             4F14531     
       04145  1 00000 1 04146 CCS060 TXI CCS070,A,0        BEGINNING OF CURRENT SEGMENT               4F14532     
       04146 -0 50000 1 06651 CCS070 CAL SCRIPL+1,A        OBTAIN OP1 (S(I))                          4F14533     
       04147 -0 32000 0 01401        ANA 11Z               EXTRACT CS-BIT                             4F14534     
       04150  0 10000 0 04140        TZE CCS000            CONTINUE TO S(I-1)                         4F14535     
       04151 -0 75400 2 00000        PXD 0,B                                                          4F14536     
       04152  0 77100 0 00022        ARS 18                                                           4F14537     
       04153  0 53400 4 01406        LXA L(0),C            TO S(I)                                    4F14538     
       04154 -0 53400 2 04155        LXD CCS140,B          AND KEEP COUNT OF SAME                     4F14539     
       04155  1 00000 3 04156 CCS140 TXI CCS150,3,0        XA TO XA,XB                                4F14540     
       04156 -3 00000 2 04163 CCS150 TXL CCS200,B,0        SEARCH-UP FINISHED, EXAMINE COUNT          4F14541     
       04157  0 34000 2 06647        CAS SCRIPL-1,B                                                   4F14542     
       04160  1 00003 2 04156        TXI CCS150,B,3        CONTINUE SEARCH                            4F14543     
       04161  1 00001 4 04162        TXI CCS190,C,1        RAISE REF COUNTER AND                      4F14544     
       04162  1 00003 2 04156 CCS190 TXI CCS150,B,3        CONTINUE SEARCH                            4F14545     
       04163  3 00001 4 04140 CCS200 TXH CCS000,C,1        MULTIPLE REFERENCE                         4F14546     
       04164 -0 50000 0 01530        CAL MASK4             SINGLE REFERENCE - SO SET                  4F14547     
       04165  0 32000 1 06651        ANS SCRIPL+1,A        OP1(S(I))3O TO O, AND                      4F14548     
       04166  0 02000 0 04140        TRA CCS000            CONTINUE FOR S(I-1)                        4F14549     
       04167 -0 53400 1 04136 CCS240 LXD AS3600,A          -3Q TO XA                                  4F14550     
       04170 -3 00000 1 04423 PL0000 TXL LK0000,A,0        GO TO LINKAGE                              4F14551     
       04171  0 50000 1 06645        CLA SCRIPL-3,A                                                   4F14552     
       04172  0 73400 2 00000        PAX 0,B                                                          4F14553     
       04173 -0 50000 2 05044        CAL BETA,B                                                       4F14554     
       04174  0 73400 4 00000        PAX 0,C                                                          4F14555     
       04175  0 62200 0 04176        STD PL0060                                                       4F14556     
       04176  1 00000 1 04177 PL0060 TXI PL0070,A,0        SET XA TO BEGINNING OF S(I)                4F14557     
       04177 -0 75400 0 00000 PL0070 PXD 0,0                                                          4F14558     
       04200  0 56000 1 06651        LDQ SCRIPL+1,A        OBTAIN                                     4F14559     
       04201 -0 76300 0 00006        LGL 6                 AND                                        4F14560     
       04202  0 34000 0 01427        CAS SPECOP            EXAMINE OP1 (S(I))                         4F14561     
       04203  0 02000 0 04300        TRA PL0680                                                       4F14562     
       04204  0 02000 0 04242        TRA PL0460                                                       4F14563     
       04205 -0 75400 0 00000 PL0130 PXD 0,0               0P1 (S(I)) IS +, - OR *                    4F14564     
       04206  0 56000 1 06652        LDQ SCRIPL+2,A        OBTAIN                                     4F14565     
       04207 -0 76300 0 00001        LGL 1                 AND                                        4F14566     
       04210  0 76000 0 00001        LBT                   EXAMINE SYM1 (S(I))                        4F14567     
       04211  0 16200 0 04223        TQP PL0300                                                       4F14568     
       04212 -0 76300 0 00005        LGL 5                 EX (IN)TERNAL VARIABLE                     4F14569     
       04213  0 34000 0 01423 PL0135 CAS L(H)              IS SYM1 (S(I)) FIX OR FLO PT               4F14570     
       04214  0 34000 0 01406        CAS L(0)                                                         4F14571     
       04215  0 02000 0 04220        TRA PL0240            FLO PT... SET 0P1 (S(I)) 32 = 1            4F14572     
       04216  0 02000 0 04220        TRA PL0240            FLO PT... DITTO                            4F14573     
       04217  0 02000 0 04170        TRA PL0000            FIX PT... OP1 (S(I)) 32 = 0                4F14574     
       04220 -0 50000 0 01416 PL0240 CAL L(8)              SET OP1 (S(I)) 32 = 1                      4F14575     
       04221 -0 60200 1 06651 PL0250 ORS SCRIPL+1,A                                                   4F14576     
       04222  1 00000 0 04170 PL0260 TXI PL0000,0,0        CONTINUE SCAN                              4F14577     
       04223 -0 53400 2 04224 PL0300 LXD PL0310,B          SYM1 (S(I)) = SOME S(J)                    4F14578     
       04224  1 00000 3 04225 PL0310 TXI PL0320,3,0        XA TO XA,XB                                4F14579     
       04225 -0 63400 4 04226 PL0320 SXD PL0330,C                                                     4F14580     
       04226  1 00000 2 04227 PL0330 TXI PL0340,B,0                                                   4F14581     
       04227 -0 50000 2 06650 PL0340 CAL SCRIPL,B                                                     4F14582     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 121/121 ------           
       04230  0 73400 4 00000        PAX 0,C                                                          4F14583     
       04231 -0 32000 0 01452        ANA MASK2                                                        4F14584     
       04232  0 40200 1 06652        SUB SCRIPL+2,A                                                   4F14585     
       04233  0 10000 0 04237        TZE PL0420                                                       4F14586     
       04234  0 50000 4 05044        CLA BETA,C                                                       4F14587     
       04235  0 73400 4 00000        PAX 0,C                                                          4F14588     
       04236  0 02000 0 04225        TRA PL0320                                                       4F14589     
       04237 -0 50000 2 06651 PL0420 CAL SCRIPL+1,B        SYM1(S(I)) = S(J)                          4F14590     
       04240 -0 32000 0 01416        ANA L(8)              EXTRACT OP1 (S(J)) 32 AND GO               4F14591     
       04241  0 02000 0 04221        TRA PL0250            SET OP1 (S(I)) 32 = OP1 (S(J)) 32          4F14592     
       04242 -0 76300 0 00007 PL0460 LGL 7                 OP1 (S(I)) IS SPOP                         4F14593     
       04243  0 16200 0 04252        TQP PL0465                                                       4F14594     
       04244  0 56000 1 06652 PL0461 LDQ SCRIPL+2,A        FS NAME -                                  4F14595     
       04245 -0 75400 0 00000        PXD 0,0               EXAMINE SUM1 (S(I)) S,1-5                  4F14596     
       04246 -0 76300 0 00006        LGL 6                                                            4F14597     
       04247  0 40200 0 01433        SUB L(X)                                                         4F14598     
       04250 -0 10000 0 04220        TNZ PL0240            FLO PT... GO SET OP1 (S(I)) 32 = 1         4F14599     
       04251  0 02000 0 04170        TRA PL0000            FIX PT ... OP1 (S(I)) 32 = 0               4F14600     
       04252  0 76000 0 00001 PL0465 LBT                                                              4F14601     
       04253  0 02000 0 04260        TRA PL0470                                                       4F14602     
       04254  0 56000 1 06652        LDQ SCRIPL+2,A                                                   4F14603     
       04255 -0 75400 0 00000        PXD ,0                                                           4F14604     
       04256 -0 76300 0 00006        LGL 6                                                            4F14605     
       04257  0 02000 0 04213        TRA PL0135                                                       4F14606     
       04260  0 50000 1 06652 PL0470 CLA SCRIPL+2,A        NOT AN FS NAME                             4F14607     
       04261  0 53400 2 01406        LXA L(0),B                                                       4F14608     
       04262  0 34000 2 04732 PL0480 CAS OPSUB,B                                                      4F14609     
       04263  1 77777 2 04266        TXI PL0520,B,-1                                                  4F14610     
       04264  0 02000 0 04275        TRA PL0650                                                       4F14611     
       04265  1 77777 2 04266        TXI PL0520,B,-1                                                  4F14612     
       04266  3 77754 2 04262 PL0520 TXH PL0480,B,-20                                                 4F14613     
       04267  0 60100 0 01347        STO G                                                            4F14614     
       04270 -0 63400 1 04222        SXD PL0260,A                                                     4F14615     
       04271  0 07400 1 03321        TSX TET00,A                                                      4F14616     
       04272  0 00000 0 00011        HTR 9                                                            4F14617     
       04273 -0 53400 1 04222        LXD PL0260,A                                                     4F14618     
       04274  0 02000 0 04244        TRA PL0461                                                       4F14619     
       04275 -0 50000 0 01412 PL0650 CAL L(4)              SET OP1 (S(I)) 33 =I                       4F14620     
       04276 -0 60200 1 06651        ORS SCRIPL+1,A                                                   4F14621     
       04277  0 02000 0 04244        TRA PL0461                                                       4F14622     
       04300  0 16200 0 04205 PL0680 TQP PL0130                                                       4F14623     
       04301 -0 75400 0 00000        PXD 0,0               OP1 (S(I) IS **                            4F14624     
       04302  0 56000 1 06652        LDQ SCRIPL+2,A        OBTAIN AND                                 4F14625     
       04303 -0 76300 0 00001        LGL 1                 EXAMINE                                    4F14626     
       04304  0 76000 0 00001        LBT                   SYM1 (S(I))                                4F14627     
       04305  0 16200 0 04363        TQP PL1000                                                       4F14628     
       04306 -0 76300 0 00005        LGL 5                 EX (IN)TERNAL VARIABLE                     4F14629     
       04307  0 34000 0 01423        CAS L(H)              IS OT FIX OR FLO PT                        4F14630     
       04310  0 34000 0 01406        CAS L(0)                                                         4F14631     
       04311  0 02000 0 04314        TRA PL0800                                                       4F14632     
       04312  0 02000 0 04314        TRA PL0800                                                       4F14633     
       04313  0 02000 0 04316        TRA PL0830            FIX PT                                     4F14634     
       04314 -0 50000 0 01416 PL0800 CAL L(8)              FLO PT... SET OP1 (S(I)) 32 = 1            4F14635     
       04315 -0 60200 1 06651 PL0820 ORS SCRIPL+1,A                                                   4F14636     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 122/122 ------           
       04316 -0 75400 0 00000 PL0830 PXD 0,0                                                          4F14637     
       04317  0 56000 1 06655        LDQ SCRIPL+5,A        OBTAIN                                     4F14638     
       04320 -0 76300 0 00001        LGL 1                 AND                                        4F14639     
       04321  0 76000 0 00001        LBT                   EXAMINE                                    4F14640     
       04322  0 16200 0 04402        TQP PL1200            SYM2 (S(I))                                4F14641     
       04323 -0 76300 0 00005        LGL 5                                                            4F14642     
       04324  0 34000 0 01423        CAS L(H)                                                         4F14643     
       04325  0 34000 0 01406        CAS L(0)                                                         4F14644     
       04326  0 02000 0 04360        TRA PL0940            SYM2 (S(I)) IS FLO PT, SO GO               4F14645     
       04327  0 02000 0 04360        TRA PL0940            SET OP2 (S(I)) 32 = 1                      4F14646     
       04330 -0 75400 0 00000 PL0850 PXD 0,0               SYM2(S(I)) IS FIX PT                       4F14647     
       04331 -0 76300 0 00006        LGL 6                                                            4F14648     
       04332  0 40200 0 01375        SUB OPEN                                                         4F14649     
       04333 -0 10000 0 04170        TNZ PL0000            SYM2 (S(I)) IS EXTERNAL                    4F14650     
       04334 -0 76300 0 00031        LGL 25                SYM2 (S(I)) IS INTERNAL (AND FIX PT)       4F14651     
       04335  0 40000 0 04352        ADD PL0880                                                       4F14652     
       04336  0 62100 0 04330        STA PL0850                                                       4F14653     
       04337  0 76200 0 00302        RDR FXCODR                                                       4F14654     
       04340  0 46000 0 04330        LDA PL0850                                                       4F14655     
       04341  0 70000 0 01347        CPY G                                                            4F14656     
       04342  0 70000 0 00007        CPY 6+1                                                          4F14657     
       04343  0 50000 0 01347        CLA G                                                            4F14658     
       04344  0 34000 0 01350        CAS G+1                                                          4F14659     
       04345  0 02000 0 04347        TRA *+2                               GO TO  THE DIAGNOSTIC      4F14660     
       04346  0 02000 0 04350        TRA PL1570                                                       4F14661     
       04347  0 07400 4 03400        TSX DIAG,4                          * GO TO  THE DIAGNOSTIC      4F14662     
       04350  0 10000 0 04170 PL1570 TZE PL0000            EXP IS 0, SO OP1 (S(I)) 33 = 0             4F14663     
       04351  0 34000 0 03754        CAS FEXUB                                                        4F14664     
       04352  3 00000 0 00002 PL0880 TXH FIXCON,0,0        EXP NOT LESS THAN 7, SO                    4F14665     
       04353  0 02000 0 04170        TRA PL0000            OP1 (S(I)) 33 = 0                          4F14666     
       04354  0 60100 1 06655        STO SCRIPL+5,A        EXP LESS THAN 7, SO STORE EXP              4F14667     
       04355 -0 50000 0 01412        CAL L(4)              AS SYM2 (S(I)) AND SET                     4F14668     
       04356 -0 60200 1 06651        ORS SCRIPL+1,A        OP1 (S(I)) 33 = 1                          4F14669     
       04357  0 02000 0 04170        TRA PL0000                                                       4F14670     
       04360 -0 50000 0 01416 PL0940 CAL L(8)              SYM2 (S(I)) IS FLO PT                      4F14671     
       04361 -0 60200 1 06654        ORS SCRIPL+4,A        SET OP2 (S(I)) 32 = 1                      4F14672     
       04362  0 02000 0 04170        TRA PL0000                                                       4F14673     
       04363 -0 53400 2 04364 PL1000 LXD PL1010,B          SYM1 (S(I)) IS SOME S(J)                   4F14674     
       04364  1 00000 3 04365 PL1010 TXI PL1020,3,0        XA TO XA,XB                                4F14675     
       04365 -0 63400 4 04366 PL1020 SXD PL1030,C                                                     4F14676     
       04366  1 00000 2 04367 PL1030 TXI PL1040,B,0                                                   4F14677     
       04367 -0 50000 2 06650 PL1040 CAL SCRIPL,B                                                     4F14678     
       04370  0 73400 4 00000        PAX 0,C                                                          4F14679     
       04371 -0 32000 0 01452        ANA MASK2                                                        4F14680     
       04372  0 40200 1 06652        SUB SCRIPL+2,A                                                   4F14681     
       04373  0 10000 0 04377        TZE PL1130                                                       4F14682     
       04374  0 50000 4 05044        CLA BETA,C                                                       4F14683     
       04375  0 73400 4 00000        PAX 0,C                                                          4F14684     
       04376  0 02000 0 04365        TRA PL1020                                                       4F14685     
       04377 -0 50000 2 06651 PL1130 CAL SCRIPL+1,B                                                   4F14686     
       04400 -0 32000 0 01416        ANA L(8)                                                         4F14687     
       04401  0 02000 0 04315        TRA PL0820                                                       4F14688     
       04402 -0 53400 2 04403 PL1200 LXD PL1210,B          SYM2 (S(I)) = SOME S(K)                    4F14689     
       04403  1 00000 3 04404 PL1210 TXI PL1220,3,0        XA TO XA,XB                                4F14690     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 123/123 ------           
       04404 -0 53400 4 04416 PL1220 LXD PL1330,C          LKXC WITH -6                               4F14691     
       04405 -0 63400 4 04406 PL1230 SXD PL1240,C                                                     4F14692     
       04406  1 00000 2 04407 PL1240 TXI PL1250,B,0                                                   4F14693     
       04407 -0 50000 2 06650 PL1250 CAL SCRIPL,B                                                     4F14694     
       04410  0 73400 4 00000        PAX 0,C                                                          4F14695     
       04411 -0 32000 0 01452        ANA MASK2                                                        4F14696     
       04412  0 40200 1 06655        SUB SCRIPL+5,A                                                   4F14697     
       04413  0 10000 0 04417        TZE PL1340            SYM2(S(I)) = S(K)                          4F14698     
       04414  0 50000 4 05044        CLA BETA,C                                                       4F14699     
       04415  0 73400 4 00000        PAX 0,C                                                          4F14700     
       04416  1 77772 0 04405 PL1330 TXI PL1230,0,-6                                                  4F14701     
       04417 -0 50000 2 06651 PL1340 CAL SCRIPL+1,B        SET OP2(S(I)) 32 = 0P1 (S(K)) 32           4F14702     
       04420 -0 32000 0 01416        ANA L(8)                                                         4F14703     
       04421 -0 60200 1 06654        ORS SCRIPL+4,A                                                   4F14704     
       04422  0 02000 0 04170        TRA PL0000            RESUME SCAN                                4F14705     
       04423 -0 53400 1 04136 LK0000 LXD AS3600,A          -3Q TO XA                                  4F14706     
       04424 -0 50000 1 06645 LK0030 CAL SCRIPL-3,A                                                   4F14707     
       04425  0 73400 2 00000        PAX 0,B               S(I) TO XB                                 4F14708     
       04426 -3 00000 0 04633        TXL LK1610,8,0        EXIT UPON ENCOUNTERING S(0)                4F14709     
       04427  0 56000 1 06646        LDQ SCRIPL-2,A        PLACE LAST OP OP S(I) IN MQ                4F14710     
       04430  0 50000 2 05044        CLA BETA,B                                                       4F14711     
       04431  0 62200 0 04432        STD LK0110                                                       4F14712     
       04432  1 00000 1 04433 LK0110 TXI LK0120,A,0        MOVE XA TO BEGINNING OF S(I)               4F14713     
       04433 -0 53400 4 04434 LK0120 LXD LK0130,C                                                     4F14714     
       04434  1 00000 5 04435 LK0130 TXI LK0140,5,0        XA TO XA,XC                                4F14715     
       04435 -0 63400 1 04136 LK0140 SXD AS3600,A                                                     4F14716     
       04436  0 50000 2 05043        CLA BETA-1,B                                                     4F14717     
       04437 -0 73400 2 00000        PDX 0,B               LENGTH  OF S(I-1) TO XB                    4F14718     
       04440 -0 63400 2 04441        SXD LK0180,B                                                     4F14719     
       04441  1 00000 4 04442 LK0180 TXI LK0190,C,0        MOVE XC TO BEGINNING OF S(I-1)             4F14720     
       04442  0 16200 0 04566 LK0190 TQP LK1200            S(I) TYPE AC                               4F14721     
       04443 -0 77300 0 00001        RQL 1                                                            4F14722     
       04444  0 16200 0 04566        TQP LK1200            S(I) TYPE AC                               4F14723     
       04445 -0 50000 0 01404        CAL 12Z               S(I) RESULTS IN MQ (TYPE MQ)               4F14724     
       04446 -0 60200 1 06651        ORS SCRIPL+1,A        SET OP1 (S(I)) 31 = 1                      4F14725     
       04447 -0 75400 0 00000        PXD 0,0                                                          4F14726     
       04450  0 56000 4 06651        LDQ SCRIPL+1,C        PLACE OP1  (S(I-1)) IN MQ                  4F14727     
       04451 -0 76300 0 00006        LGL 6                                                            4F14728     
       04452  0 34000 0 01427        CAS SPECOP                                                       4F14729     
       04453  0 02000 0 04456        TRA LK0320                                                       4F14730     
       04454  0 02000 0 04543        TRA LK0950                                                       4F14731     
       04455  0 02000 0 04424        TRA LK0030            S(I)TYPTMQ, S(I-1)TYPEAC . OP1(S(I))29=0   4F14732     
       04456  0 16200 0 04477 LK0320 TQP LK0570                                                       4F14733     
       04457 -0 76300 0 00033        LGL 27                S(I)TYPE MQ, OP1(S(I-1) = **               4F14734     
       04460 -0 50000 1 06650        CAL SCRIPL,A                                                     4F14735     
       04461 -0 32000 0 01452        ANA MASK2             EXTRACT S(I) IN ACC                        4F14736     
       04462  0 16200 0 04472        TQP LK0480            OP1 (S(I-1)) 33 = 0                        4F14737     
       04463  0 40200 4 06652        SUB SCRIPL+2,C        OP1 (S(I-1)) 33 = 1, OPEN ** SUBROUTINE.   4F14738     
       04464 -0 10000 0 04424        TNZ LK0030            SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 = 0    4F14739     
       04465 -0 50000 0 01411        CAL L(3)              S(I) = SYM1 (S(I-1)), SO                   4F14740     
       04466 -0 60200 4 06651 LK0430 ORS SCRIPL+1,C                                                   4F14741     
       04467 -0 50000 0 01436 LK0440 CAL BIT29                                                        4F14742     
       04470 -0 60200 1 06651        ORS SCRIPL+1,A                                                   4F14743     
       04471  0 02000 0 04424        TRA LK0030            OP1 (S(I-1)) = 0, CLOSED ** SUBROUTINES    4F14744     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 124/124 ------           
       04472  0 40200 4 06655 LK0480 SUB SCRIPL+5,C                                                   4F14745     
       04473 -0 10000 0 04424        TNZ LK0030            SET OPKS(I))29=OPKS(I-1))35=0              4F14746     
       04474 -0 50000 0 01407        CAL L(1)              S(I) = SYM2  (S(I-1)), SO                  4F14747     
       04475 -0 60200 4 06654        ORS SCRIPL+4,C        SET OP2 (S(I-1)) 35  = 1                   4F14748     
       04476  0 02000 0 04467        TRA LK0440                                                       4F14749     
       04477 -0 75400 0 00000 LK0570 PXD 0,0               S(I) TYPE MO, OP1 (S(I-1)) = *             4F14750     
       04500  0 56000 4 06654        LDQ SCRIPL+4,C        PLACE PO2 (S(I-1)) IN MQ                   4F14751     
       04501 -0 76300 0 00006        LGL 6                 IS OP2 (S(I-1)) = *                        4F14752     
       04502  0 40200 0 01405        SUB STAR                                                         4F14753     
       04503 -0 10000 0 04424        TNZ LK0030            NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =04F14754     
       04504 -0 50000 0 01410        CAL L(2)              YES                                        4F14755     
       04505 -0 60200 4 06651        ORS SCRIPL+1,C        SET OP1(S(I-1))34=1                        4F14756     
       04506 -0 50000 1 06650 LK0630 CAL SCRIPL,A                                                     4F14757     
       04507 -0 32000 0 01452        ANA MASK2             SEARCH FOR S(I) IN S(I-1)                  4F14758     
       04510 -3 00000 2 04423 LK0650 TXL LK0000,B,0        NOT FOUND AT ALL                           4F14759     
       04511  0 34000 1 06647        CAS SCRIPL-1,A                                                   4F14760     
       04512  1 00003 1 04515        TXI LK0700,A,3                                                   4F14761     
       04513  0 02000 0 04516        TRA LK0710                                                       4F14762     
       04514  1 00003 1 04515        TXI LK0700,A,3        NOT FOUND - CONTINUE SEARCH                4F14763     
       04515  1 77775 2 04510 LK0700 TXI LK0650,B,-3                                                  4F14764     
       04516  0 56000 1 06646 LK0710 LDQ SCRIPL-2,A        S(I) IS SYMJ (S(I-1))                      4F14765     
       04517 -0 77300 0 00001        RQL 1                 IS OPJ (S(I-1)) = *                        4F14766     
       04520  0 16200 0 04522        TQP LK0750                                                       4F14767     
       04521  1 00003 1 04515        TXI LK0700,A,3        NO... CONTINUE SEARCH                      4F14768     
       04522  0 50000 4 06650 LK0750 CLA SCRIPL,C          YES...PERMUTE EL1(S(I-1)) WITH ELJ(S(I-1)) 4F14769     
       04523  0 56000 1 06645        LDQ SCRIPL-3,A        EXCHANGE                                   4F14770     
       04524  0 60100 1 06645        STO SCRIPL-3,A        TAG                                        4F14771     
       04525 -0 60000 4 06650        STQ SCRIPL,C          WORDS                                      4F14772     
       04526 -0 50000 4 06651        CAL SCRIPL+1,C        PLACE OP1 (S(I-1)) IN ACC                  4F14773     
       04527  0 56000 1 06646        LDQ SCRIPL-2,A        PLACE OPJ (S(I-1)) IN MQ                   4F14774     
       04530  0 60200 1 06646        SLW SCRIPL-2,A        EXCHANGE                                   4F14775     
       04531 -0 60000 4 06651        STQ SCRIPL+1,C        OP                                         4F14776     
       04532 -0 32000 0 01452        ANA MASK2             WORDS AND                                  4F14777     
       04533 -0 60200 4 06651        ORS SCRIPL+1,C        SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33     4F14778     
       04534  0 50000 4 06652        CLA SCRIPL+2,C        THEN                                       4F14779     
       04535  0 56000 1 06647        LDQ SCRIPL-1,A        EXCHANGE                                   4F14780     
       04536  0 60100 1 06647        STO SCRIPL-1,A        SYMBOL                                     4F14781     
       04537 -0 60000 4 06652        STQ SCRIPL+2,C        WORDS                                      4F14762     
       04540 -0 53400 1 04136        LXD AS3600,A          RESTORE XA                                 4F14783     
       04541 -0 50000 0 01407 LK0900 CAL L(1)              AND                                        4F14784     
       04542  0 02000 0 04466        TRA LK0430                                                       4F14785     
       04543 -0 77300 0 00033 LK0950 RQL 27                S(I) TYPE MQ, OP1 (S(I-1)) = SPOP          4F14786     
       04544 -0 50000 1 06650        CAL SCRIPL,A                                                     4F14787     
       04545 -0 32000 0 01452        ANA MASK2             EXTRACT S(I) IN ACC                        4F14788     
       04546  0 16200 0 04555        TQP LK1050            OP1 (S(I-1)) 33 = 0 (CLOSED 5UBROUTINE)    4F14789     
       04547  3 00006 2 04424        TXH LK0030,B,6        OPEN MULTIV... SET OP1 (S(I)) 29 = 0       4F14790     
       04550  0 40200 4 06655        SUB SCRIPL+5,C        OPEN UNIV... IS S(I) = SUM2 (S(I-1))       4F14791     
       04551 -0 10000 0 04424        TNZ LK0030            N0... SET 0P1 (S(I))29 = OP2 (S(I-1))35 =0 4F14792     
       04552 -0 50000 0 01411        CAL L(3)              AND                                        4F14793     
       04553 -0 60200 4 06654        ORS SCRIPL+4,C        SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1    4F14794     
       04554  0 02000 0 04467        TRA LK0440                                                       4F14795     
       04555 -0 77300 0 00017 LK1050 RQL 15                                                           4F14796     
       04556  0 16200 0 04560        TQP LK1100            TEST OP1(S(I-1))12                         4F14797     
       04557  0 02000 0 04424        TRA LK0030            FN-NAME                                    4F14798     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 125/125 ------           
       04560 -3 00006 2 04424 LK1100 TXL LK0030,B,6        CLOSED UNIV. SBRTN                         4F14799     
       04561  0 40200 4 06660        SUB SCRIPL+8,C        CLOSED MULTIV. SBRTN                       4F14800     
       04562 -0 10000 0 04424        TNZ LK0030            S(I) NOT = SYM3 (S (I-1))                  4F14801     
       04563 -0 50000 0 01407        CAL L(1)              S(I) = SYM3 (S(I-1)), SO                   4F14802     
       04564 -0 60200 4 06657        ORS SCRIPL+7,C        SET OP3 (S(1-1)135 = 1                     4F14803     
       04565  0 02000 0 04467        TRA LK0440                                                       4F14804     
       04566 -0 75400 0 00000 LK1200 PXD 0,0               S(I) TYPE AC                               4F14805     
       04567  0 56000 4 06651        LDQ SCRIPL+1,C        PLACE OP1 (S(I-1)) IN MO                   4F14806     
       04570 -0 76300 0 00006        LGL 6                                                            4F14807     
       04571  0 34000 0 01427        CAS SPECOP                                                       4F14808     
       04572  0 02000 0 04604        TRA LK1340                                                       4F14809     
       04573  0 02000 0 04622        TRA LK1470                                                       4F14810     
       04574 -0 50000 1 06650        CAL SCRIPL,A          S(I) TYPE AC  OP1 (S(I-1)) = + OR -        4F14811     
       04575 -0 32000 0 01452        ANA MASK2             SEARCH FOR S(I) IN S(I-1)                  4F14812     
       04576 -3 00000 2 04423 LK1280 TXL LK0000,B,0        NOT FOUND AT ALL                           4F14813     
       04577  0 34000 1 06647        CAS SCRIPL-1,A                                                   4F14814     
       04600  1 00003 1 04603        TXI LK1330,A,3                                                   4F14815     
       04601  0 02000 0 04522        TRA LK0750            S(I) = SOME SYMJ (S(I-1))... GO PERMUTE    4F14816     
       04602  1 00003 1 04603        TXI LK1330,A,3        NOT FOUND... CONTINUE SEARCH               4F14817     
       04603  1 77775 2 04576 LK1330 TXI LK1280,B,-3                                                  4F14818     
       04604  0 16200 0 04612 LK1340 TQP LK1410                                                       4F14819     
       04605 -0 50000 1 06650        CAL SCRIPL,A          S(I) TYPE AC OP1 (S(I-1)) =  **            4F14820     
       04606 -0 32000 0 01452        ANA MASK2                                                        4F14821     
       04607  0 40200 4 06652        SUB SCRIPL+2,C        IS S(I) = SYM1 (S(I-1))                    4F14822     
       04610 -0 10000 0 04424        TNZ LK0030            NO                                         4F14823     
       04611  0 02000 0 04541        TRA LK0900            YES                                        4F14824     
       04612 -0 75400 0 00000 LK1410 PXD 0,0               S(I) TYPE AC OP1 (S(I-1)) = *              4F14825     
       04613  0 56000 4 06654        LDQ SCRIPL+4,C                                                   4F14826     
       04614 -0 76300 0 00006        LGL 6                 IS OP2 (S(I-1)) = 1                        4F14827     
       04615  0 40200 0 01402        SUB SLASH                                                        4F14828     
       04616  0 10000 0 04506        TZE LK0630            YES                                        4F14829     
       04617 -0 50000 0 01410        CAL L(2)              NO                                         4F14830     
       04620 -0 60200 4 06651        ORS SCRIPL+1,C        SET OP1 (S(I-1)) 34 = 1                    4F14831     
       04621  0 02000 0 04423        TRA LK0000                                                       4F14832     
       04622 -0 77300 0 00033 LK1470 RQL 27                S(I) TYPE AC OP1 (S(I-1)) = SPOP           4F14833     
       04623 -0 50000 1 06650        CAL SCRIPL,A                                                     4F14834     
       04624 -0 32000 0 01452        ANA MASK2             EXTRACT S(I) IN ACC                        4F14835     
       04625  0 16200 0 04630        TQP LK1530                                                       4F14836     
       04626  3 00006 2 04424        TXH LK0030,B,6        OPEN MULTIV.                               4F14837     
       04627  0 02000 0 04472 LK1520 TRA LK0480                                                       4F14838     
       04630 -0 77300 0 00017 LK1530 RQL 15                                                           4F14839     
       04631  0 16200 0 04472        TQP LK0480                                                       4F14840     
       04632  0 02000 0 04424        TRA LK0030            FN-NAME                                    4F14841     
       04633 -0 53400 2 05044 LK1610 LXD BETA,B            IS S(0) A SINGLE ELEMENT                   4F14842     
       04634 -0 75400 0 00000        PXD 0,0                                                          4F14843     
       04635  0 56000 1 06646        LDQ SCRIPL-2,A                                                   4F14844     
       04636  3 00003 2 04655        TXH LK1780,B,3        NO                                         4F14645     
       04637 -0 76300 0 00006        LGL 6                 YES                                        4F14846     
       04640  0 40200 0 01401        SUB 11Z               IS OP (S(0)) = + OR -                      4F14847     
       04641  0 10000 0 04662        TZE LKK000            OP (S(0)) = -                              4F14648     
       04642 -0 50000 0 06652        CAL SCRIPL+2          OP (S(0)) = +                              4F14849     
       04643 -0 32000 0 01527        ANA MASK1             DOES SYM (S(0)) = S(1)                     4F14850     
       04644 -0 10000 0 04662        TNZ LKK000            NO                                         4F14851     
       04645 -0 50000 0 06654        CAL SCRIPL+4          YES - PLACE OP1 (S(I)) IN ACC              4F14852     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 126/126 ------           
       04646 -0 32000 0 01404        ANA 12Z                                                          4F14853     
       04647  0 10000 0 04662        TZE LKK000            OP1 (S(1)) 31 = 0                          4F14854     
       04650 -0 60200 0 06651        ORS SCRIPL+1          SET OP (S(0)) 31 = 1                       4F14855     
       04651  0 76700 0 00002        ALS 2                                                            4F14856     
       04652 -0 60200 0 06654        ORS SCRIPL+4          SET OP1 (S(1)) 29 = 1                      4F14857     
       04653  0 77100 0 00006        ARS 6                                                            4F14658     
       04654  0 02000 0 04661        TRA LK1820                                                       4F14859     
       04655  0 16200 0 04662 LK1780 TQP LKK000            S(0) TYPE AC                               4F14860     
       04656 -0 77300 0 00001        RQL 1                                                            4F14861     
       04657  0 16200 0 04662        TQP LKK000            S(0) TYPE AC                               4F14862     
       04660 -0 50000 0 01404        CAL 12Z               S(0) TYPE MQ, SO                           4F14863     
       04661 -0 60200 0 06651 LK1820 ORS SCRIPL+1                                                     4F14864     
       04662 -0 53400 5 01117 LKK000 LXD 3QBAR,5           -3Q TO XA,XC                               4F14865     
       04663 -0 50000 4 06645        CAL SCRIPL-3,C                                                   4F14866     
       04664  0 73400 0 00000        PAX 0,8                                                          4F14867     
       04665  0 50000 2 05044        CLA BETA,B                                                       4F14868     
       04666  0 62200 0 04667        STD LKK050                                                       4F14869     
       04667  1 00000 4 04670 LKK050 TXI LKK060,C,0        BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT  4F14870     
       04670 -0 75400 0 00000 LKK060 PXD 0,0                                                          4F14871     
       04671  0 56000 4 06651        LDQ SCRIPL+1,C        PLACE OP1 OF LAST SEGMENT IN MQ            4F14872     
       04672 -0 76300 0 00006        LGL 6                                                            4F14873     
       04673  0 40200 0 01405        SUB STAR                                                         4F14874     
       04674 -0 10000 0 04703        TNZ PC0000                                                       4F14875     
       04675  0 16200 0 04677        TQP LKK130                                                       4F14876     
       04676  0 02000 0 04703        TRA PC0000                                                       4F14877     
       04677  0 56000 4 06654 LKK130 LDQ SCRIPL+4,C        OP1 OF LAST SEGMENT IS *                   4F14878     
       04700 -0 76300 0 00002        LGL 2                                                            4F14879     
       04701  0 76000 0 00001        LBT                                                              4F14880     
       04702 -0 60200 4 06651        ORS SCRIPL+1,C        OP2 IS  *, SO SET OP1 (S(L)) 34 = 1        4F14881     
       04703 -0 53400 4 01122 PC0000 LXD ARGCTR,C          IS THIS AN FS                              4F14882     
       04704  3 00000 4 04706        TXH PC0030,C,0                                                   4F14883     
       04705  1 00001 4 04707        TXI PC0040,C,1        NO                                         4F14884     
       04706  0 53400 4 01406 PC0030 LXA L(0),C            YES                                        4F14885     
       04707 -0 50000 1 06645 PC0040 CAL SCRIPL-3,A                                                   4F14886     
       04710  0 73400 2 00000        PAX 0,B                                                          4F14887     
       04711 -3 00000 2 04725        TXL PC0190,B,0        EXIT AT S(0)                               4F14888     
       04712  0 50000 2 05044        CLA BETA,B                                                       4F14889     
       04713  0 62200 0 04714        STD PC0100                                                       4F14890     
       04714  1 00000 1 04715 PC0100 TXI PC0110,A,0                                                   4F14891     
       04715  0 56000 1 06651 PC0110 LDQ SCRIPL+1,A        PLACE OP1 (S(1)) IN MQ                     4F14892     
       04716 -0 76300 0 00036        LGL 30                                                           4F14893     
       04717  0 76000 0 00001        LBT                                                              4F14894     
       04720  1 00454 0 04722 PC0140 TXI PC0160,0,300                                                 4F14895     
       04721  0 16200 0 04707        TQP PC0040            OP1 (S(1)) 29= 1 AND OP1 (S(1)) 30 = 0     4F14896     
       04722 -0 75400 4 00000 PC0160 PXD 0,C               OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1     4F14897     
       04723  0 62200 2 05044        STD BETA,B            STORE ERAS. REL, ADD. COUNT IN BETA,       4F14898     
       04724  1 00001 4 04707        TXI PC0040,C,1        AND UPDATE FOR NEXT SEGMENT                4F14899     
       04725 -0 53400 2 04720 PC0190 LXD PC0140,B                                                     4F14900     
       04726  0 50000 2 05520 PC0200 CLA BETA+300,B                                                   4F14901     
       04727  0 60100 2 06650        STO CPBETA+300,B                                                 4F14902     
       04730  2 00001 2 04726        TIX PC0200,B,1                                                   4F14903     
       04731  0 02000 0 02410        TRA STATED            GO FETCH STATE D                           4F14904     
                                         *******                     ***********************  *       4F14905     
                                                                                                      4F14906     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 127/127 ------           
                                         DICTIONARY OF OPEN SUBROUTINES FOLLOWS                       4F14907     
       04732 -272122626060    OPSUB  OCT 672122626060      XABS                                       4F14908     
       04733 +212262606060           OCT 212262606060      ABS                                        4F14909     
       04734 -273145636060           OCT 673145636060      XINT                                       4F14910     
       04735 +314563606060           OCT 314563606060      INT                                        4F14911     
       04736 -274446246060           OCT 674446246060      XMOD                                       4F14912     
       04737 -044624606060           OCT 444624606060      MOD                                        4F14913     
       04740 -274421670060           OCT 674421670060      XMAXO                                      4F14914     
       04741 -042167016060           OCT 442167016060      MAX1                                       4F14915     
       04742 -274421670160           OCT 674421670160      XMAX1                                      4F14916     
       04743 -042167006060           OCT 442167006060      MAXO                                       4F14917     
       04744 -274431450060           OCT 674431450060      XMINO                                      4F14918     
       04745 -043145016060           OCT 443145016060      MINI                                       4F14919     
       04746 -274431450160           OCT 674431450160      XMIN1                                      4F14920     
       04747 -043145006060           OCT 443145006060      MIN0                                       4F14921     
       04750 +264346216360           OCT 264346216360      FLOAT                                      4F14922     
       04751 -272631676060           OCT 672631676060      XFIX                                       4F14923     
       04752 -223127456060           OCT 623127456060      SIGN                                       4F14924     
       04753 -276231274560           OCT 676231274560      XSIGN                                      4F14925     
       04754 -272431446060           OCT 672431446060      XDIM                                       4F14926     
       04755 +243144606060           OCT 243144606060      DIM                                        4F14927     
                        04756        BSS 10                                                           4F14928     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14929     
                        04770 ENDCDR BSS 0                                                            4F149295    
                                                                                                      4F14930     
                        05044 ENDC   ORG 2596                                                         4F14931     
                        05044 BETA   BSS 300                                                          4F14932     
                                         END OF ARITHMETIC / STATE C*                                 4F14933     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14934     
                                                                                                      4F14935     
                                         ARITHMETIC / STATE D=                                        4F14936     
                                         704 FORTRAN MASTER RECORD CARD / STATE D = F0160000.         4F14937     
                        00000        ORG 0                                                            4F149371    
       00000  0 00471 0 03440        PZE ORGD,,CLDR00                                                 4F149372    
       00001  0 00000 0 06157        PZE ENDD-1                                                       4F149373    
                                                                                                      4F14938     
                        03440 ORGD   ORG 1824                                                         4F14939     
       03440 -0 53400 1 01117 MC0000 LXD 3QBAR,A           MODE CHECKING ROUTINE                      4F14940     
       03441 -0 63400 1 03512        SXD MC0420,A                                                     4F14941     
       03442  0 53400 1 01406        LXA L(0),A                                                       4F14942     
       03443 -0 63400 1 03461 MC0030 SXD XASAVE,A                                                     4F14943     
       03444 -0 50000 1 06650        CAL SCRIPL,A                                                     4F14944     
       03445  0 73400 2 00000 MC0050 PAX ,2                S(1) TO XB                                 4F14945     
       03446  0 50000 2 06174        CLA CPBETA,B                                                     4F14946     
       03447  0 73400 2 00454 MC0070 PAX TAU2,B                                                       4F14947     
       03450 -0 63400 2 03511        SXD MC0410,B                                                     4F14948     
       03451 -0 63400 2 03516        SXD MC0460,B                                                     4F14949     
       03452  3 77772 2 03511        TXH MC0410,B,-6       SINGLE ELEMENT - GO ONTO S(I+1)            4F14950     
       03453  0 76000 0 00140        SLF                   TURN OFF ALL SENSE LITES                   4F14951     
       03454 -0 75400 0 00000        PXD 0,0               CLEAR ACC                                  4F14952     
       03455  0 56000 1 06651        LDQ SCRIPL+1,A        PLACE OP1 (S(I)) IN MQ                     4F14953     
       03456 -0 76300 0 00006        LGL 6                                                            4F14954     
       03457  0 34000 0 01427        CAS SPECOP                                                       4F14955     
       03460  0 16200 0 03462        TQP MC0180                                                       4F14956     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 128/128 ------           
       03461  1 00000 0 03511 XASAVE TXI MC0410,0,0                                                   4F14957     
       03462 -0 76300 0 00032 MC0180 LGL 26                OP1 (S(I)) = +, - OR *                     4F14958     
       03463  0 16200 0 03465        TQP MC0210            FIX PT                                     4F14959     
       03464  0 76000 0 00141        SLN 1                 FLO PT                                     4F14960     
       03465 -0 75400 0 00000 MC0210 PXD 0,0                                                          4F14961     
       03466  0 56000 1 06652        LDQ SCRIPL+2,A        PLACE SYMJ (S(I)) IN MQ - J = I,...        4F14962     
       03467 -0 76300 0 00001        LGL 1                                                            4F14963     
       03470  0 76000 0 00001        LBT                                                              4F14964     
       03471  0 16200 0 03514        TQP MC0440                                                       4F14965     
       03472 -0 76300 0 00005        LGL 5                 SYMJ (S(I)) IS A VARIABLE                  4F14966     
       03473  0 34000 0 01423        CAS L(H)                                                         4F14967     
       03474  0 34000 0 01406        CAS L(0)                                                         4F14968     
       03475  1 00000 0 03502 XBSAVE TXI MC0340,0,0        FLO PT                                     4F14969     
       03476  0 02000 0 03502        TRA MC0340            FLO PT                                     4F14970     
       03477 -0 76000 0 00141 MC0310 SLT 1                 SYMJ (S(I)) IS A FIX PT VARIABLE           4F14971     
       03500  1 00003 2 03506        TXI MC0380,B,3        OK                                         4F14972     
       03501  0 07400 4 03400        TSX DIAG,4            ERROR.. FLO PT LITE ON                     4F14973     
       03502 -0 76000 0 00141 MC0340 SLT 1                 SYMJ(S(I)) IS A FLO PT VARIABLE            4F14974     
       03503  0 07400 4 03400        TSX DIAG,4            ERROR.. FLO PT LITE OFF                    4F14975     
       03504  0 76000 0 00141        SLN 1                 RESTORE FLO PT LITE                        4F14976     
       03505  1 00003 2 03506        TXI MC0380,B,3                                                   4F14977     
       03506 -3 00000 2 03510 MC0380 TXL MC0400,B,0        FINISHED WITH S(I)                         4F14978     
       03507  1 77775 1 03465        TXI MC0210,A,-3       CONTINUE SCANNING S(I). J TO J+1           4F14979     
       03510 -0 53400 1 03461 MC0400 LXD XASAVE,A          GO TO S(I+1)                               4F14980     
       03511  1 00000 1 03512 MC0410 TXI MC0420,A,0                                                   4F14981     
       03512  3 00000 1 03443 MC0420 TXH MC0030,A,0                                                   4F14982     
       03513  0 02000 0 03537        TRA CP0000            EXIT TO COMPILER                           4F14983     
       03514 -0 63400 2 03475 MC0440 SXD XBSAVE,B          SYMJ (S(ITT = SAME S(K)                    4F14984     
       03515 -0 53400 4 03461        LXD XASAVE,C                                                     4F14985     
       03516  1 00000 4 03517 MC0460 TXI MC0470,C,0        MOVE XC TO 1ST ELEMENT OF S(I+1)           4F14986     
       03517 -0 50000 4 06650 MC0470 CAL SCRIPL,C                                                     4F14987     
       03520 -0 32000 0 01452        ANA MASK2             EXTRACT S(K) IN ACC                        4F14988     
       03521  0 34000 1 06652        CAS SCRIPL+2,A        AND COMPARE WITH SYMJ (S(I))               4F14989     
       03522  0 02000 0 03524        TRA MC0520                                                       4F14990     
       03523  0 02000 0 03531        TRA MC0570                                                       4F14991     
       03524  0 73400 2 01226 MC0520 PAX SIGMA1,B          S(K) TO XB                                 4F14992     
       03525  0 50000 2 06174        CLA CPBETA,B                                                     4F14993     
       03526  0 73400 2 00000 MC0540 PAX TAU1,B                                                       4F14994     
       03527 -0 63400 2 03530        SXD MC0560,B                                                     4F14995     
       03530  1 00000 4 03517 MC0560 TXI MC0470,C,0                                                   4F14996     
       03531 -0 53400 2 03475 MC0570 LXD XBSAVE,B          SYMJ (S(I)) = S(K) FOR SOME K              4F14997     
       03532 -0 50000 4 06651        CAL SCRIPL+1,C        PLACE OP1 (S(K)) IN ACC                    4F14998     
       03533  0 77100 0 00003        ARS 3                                                            4F14999     
       03534  0 76000 0 00001        LBT                                                              4F15000     
       03535  0 02000 0 03477        TRA MC0310            S(K) IS FIX PT                             4F15001     
       03536  0 02000 0 03502        TRA MC0340            S(K) IS FLO PT                             4F15002     
                                                                                                      4F15003     
       03537  0 76000 0 00140 CP0000 SLF                   TURN OFF ALL SENSE LITES                   4F15004     
       03540  0 60000 0 06160        STZ FNSW                                                         4F15005     
       03541 -0 53400 4 01122        LXD ARGCTR,C          IS THIS AN FS STATEMENT                    4F15006     
       03542 -3 00000 4 03550        TXL CP0090,C,0        NO                                         4F15007     
       03543  0 07400 4 01731        TSX CIT00,C           YES - COMPILE FOUR 36 - BIT                4F15008     
       03544  0 00000 0 01531        HTR ALL1              STRINGS IN 1 AS A PRELUDE TO               4F15009     
       03545  0 00000 0 01531        HTR ALL1              FS STATEMENT COMPILATION                   4F15010     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 129/129 ------           
       03546  0 00000 0 01531        HTR ALL1                                                         4F15011     
       03547  0 00000 0 01531        HTR ALL1                                                         4F15012     
       03550 -0 50000 0 00030 CP0090 CAL EIFNO                                                        4F15013     
       03551 -0 32000 0 01527        ANA MASK1                                                        4F15014     
       03552  0 60200 0 06164        SLW CW                STO INT. FORM. NO. IN DEC FIELD OF CW.     4F15015     
       03553 -0 53400 1 01117        LXD 3QBAR,A           -30 TO XA                                  4F15016     
       03554  0 50000 1 06645 CP0130 CLA SCRIPL-3,A        EXTRACT CURRENT S(I)                       4F15017     
       03555  0 73400 2 00000 CP0140 PAX ,2                                                           4F15018     
       03556  0 50000 2 06174        CLA CPBETA,B                                                     4F15019     
       03557  0 62200 0 01363        STD PHI(I)            STO ERAS. REL. ADD. IN PHI (I)             4F15020     
       03560 -0 32000 0 01452        ANA MASK2                                                        4F15021     
       03561  0 73400 2 07246 CP0180 PAX TAU3,B                                                       4F15022     
       03562 -0 63400 2 03607        SXD CP0400,B                                                     4F15023     
       03563  0 76000 0 00006        COM                                                              4F15024     
       03564  0 40000 0 01407        ADD L(1)                                                         4F15025     
       03565  0 76700 0 00022        ALS 18                                                           4F15026     
       03566  0 62200 0 03567        STD CP0240                                                       4F15027     
       03567  1 00000 1 03570 CP0240 TXI CP0250,A,0        MOVE XA TO 1ST ELEMENT OF CURRENT S(I)     4F15028     
       03570 -0 63400 1 01117 CP0250 SXD 3QBAR,A                                                      4F15029     
       03571  0 56000 1 06651        LDQ SCRIPL+1,A        EXAMINE OP1 (S(I)) 29,30,31,32             4F15030     
       03572 -0 76300 0 00036        LGL 30                                                           4F15031     
       03573  0 76000 0 00001        LBT                                                              4F15032     
       03574  0 02000 0 03576        TRA CP0310            OP1 (S(I)) 29 = 0                          4F15033     
       03575  0 16200 0 03604        TQP CP0370            OP1 (S(I)) 30 = 0                          4F15034     
       03576  0 76000 0 00141 CP0310 SLN 1                 OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1, SO 4F15035     
       03577 -0 77300 0 00001        RQL 1                 SET STORE LITE                             4F15036     
       03600  0 16200 0 03602        TQP CP0350            OP1 (S(I)) 31 = 0, SO SET STO LITE         4F15037     
       03601  0 76000 0 00142        SLN 2                 OP1 (S(I)) 31 = 1, SO SET STQ LITE         4F15038     
       03602 -0 77300 0 00001 CP0350 RQL 1                                                            4F15039     
       03603  0 02000 0 03605        TRA CP0380                                                       4F15040     
       03604 -0 77300 0 00002 CP0370 RQL 2                                                            4F15041     
       03605  0 16200 0 03611 CP0380 TQP CP0420            TEST OP1 (S(I)) 32                         4F15042     
       03606 -0 76000 0 00144        SLT 4                 OP1 (S(I)) 32 = 1, SO SET FLPTSW           4F15043     
       03607  3 00000 0 00000 CP0400 TXH 0,0,0                                                        4F15044     
       03610  0 02000 0 03612        TRA CP0430                                                       4F15045     
       03611  0 76000 0 00144 CP0420 SLN 4                 OP1 (S(I))  32 = 0, SO SET FXPTSW          4F15046     
       03612 -0 75400 0 00000 CP0430 PXD 0,0                                                          4F15047     
       03613  0 56000 1 06651        LDQ SCRIPL+1,A        PLACE OP1 (S(I)) IN MQ                     4F15048     
       03614 -0 76300 0 00006        LGL 6                                                            4F15049     
       03615  0 34000 0 01427        CAS SPECOP                                                       4F15050     
       03616  1 00000 0 03672        TXI CP0960,0,0                                                   4F15051     
       03617  1 77775 1 04026        TXI CP2040,A,-3                                                  4F15052     
       03620  0 40200 0 01401        SUB 11Z                                                          4F15053     
       03621  0 10000 0 03650        TZE CP0760                                                       4F15054     
       03622 -0 76300 0 00035        LGL 29                OP1 (S(I)) = +                             4F15055     
       03623  0 16200 0 03710        TQP CP1130            OP1 (S(I)) 35 = 0                          4F15056     
       03624 -0 53400 2 03607 CP0540 LXD CP0400,B          OP1 (S(I)) 35 = 1                          4F15057     
       03625  1 00003 2 03626        TXI CP0560,B,3                                                   4F15058     
       03626 -3 00000 2 04622 CP0560 TXL ES0000,B,0        GO TO END-OF-SEGMENT SBRTN                 4F15059     
       03627 -0 63400 2 03607        SXD CP0400,B                                                     4F15060     
       03630  1 77775 1 03631        TXI CP0590,A,-3                                                  4F15061     
       03631 -0 75400 0 00000 CP0590 PXD 0,0                                                          4F15062     
       03632  0 56000 1 06651        LDQ SCRIPL+1,A        PLACE OPJ (S(I)) IN MQ                     4F15063     
       03633 -0 76300 0 00006        LGL 6                                                            4F15064     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 130/130 ------           
       03634  0 34000 0 01405        CAS STAR                                                         4F15065     
       03635  0 02000 0 03716        TRA CP1200            OPJ (S(I)) = /                             4F15066     
       03636  0 02000 0 03771        TRA CP1720            OPJ (S(I)) = *                             4F15067     
       03637  0 40200 0 01401        SUB 11Z                                                          4F15068     
       03640  0 10000 0 03663        TZE CP0880            OPJ (S(I)) = -                             4F15069     
       03641 -0 50000 0 01550        CAL L(FAD)            OPJ (S(I)) = +                             4F15070     
       03642 -0 76000 0 00144        SLT 4                                                            4F15071     
       03643  0 02000 0 03646        TRA CP0740                                                       4F15072     
       03644  0 76000 0 00144        SLN 4                 FIX PT. RESTORE FXPTSW                     4F15073     
       03645 -0 50000 0 01532        CAL L(ADD)                                                       4F15074     
       03646  0 60200 0 06165 CP0740 SLW CW+1                                                         4F15075     
       03647  0 02000 0 03766        TRA CP1690                                                       4F15076     
       03650 -0 76300 0 00035 CP0760 LGL 29                0P1 (S(I)) = -                             4F15077     
       03651  0 16200 0 03660        TQP CP0850                                                       4F15078     
       03652 -0 50000 0 01540        CAL L(CHS)            0P1 (S(I)) 35 = 1, SO                      4F15079     
       03653  0 60200 0 06165        SLW CW+1              COMPILE CHS FOR 1ST ELEMENT                4F15080     
       03654  0 60000 0 06166        STZ CW+2                                                         4F15081     
       03655  0 60000 0 06167        STZ CW+3                                                         4F15082     
       03656  0 07400 2 05103        TSX COMP,B                                                       4F15083     
       03657  0 02000 0 03624        TRA CP0540                                                       4F15064     
       03660 -0 50000 0 01543 CP0850 CAL L(CLS)            0P1 (S(I)) 35 = O, SO                      4F15085     
       03661  0 60200 0 06165        SLW CW+1              COMPILE CLS SYM1 (S(I)) FOR 1ST ELEMENT    4F15086     
       03662  0 02000 0 03712        TRA CP1150                                                       4F15087     
       03663 -0 50000 0 01553 CP0880 CAL L(FSB)            OPJ (S(I)) = -                             4F15088     
       03664 -0 76000 0 00144        SLT 4                                                            4F15089     
       03665  0 02000 0 03670        TRA CP0940                                                       4F15090     
       03666  0 76000 0 00144        SLN 4                 FIX PT. RESTORE FXPTSW                     4F15091     
       03667 -0 50000 0 01574        CAL L(SUB)                                                       4F15092     
       03670  0 60200 0 06165 CP0940 SLW CW+1                                                         4F15093     
       03671  0 02000 0 03766        TRA CP1690                                                       4F15094     
       03672  0 16200 0 03674 CP0960 TQP CP0980                                                       4F15095     
       03673  0 02000 0 04363        TRA CP4140                                                       4F15096     
       03674 -0 76300 0 00035 CP0980 LGL 29                0P1 (S(I)) = *                             4F15097     
       03675  0 76000 0 00143        SLN 3                 TURN LITE 3 ON                             4F15098     
       03676  0 76000 0 00001        LBT                   TEST 0P1 (S(I)) 34                         4F15099     
       03677  0 02000 0 03702        TRA CP1050            0P1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON      4F15100     
       03700 -0 76000 0 00143        SLT 3                 0P1 (S(I)) 34 = 1, SO TURN LITE 3 OFF      4F15101     
       03701  3 00000 0 00000        TXH 0,0,0                                                        4F15102     
       03702  0 16200 0 03704 CP1050 TQP CP1070                                                       4F15103     
       03703  0 02000 0 03624        TRA CP0540            0P1 (S(I)) 35 = 1, SO GO MODIFY J          4F15104     
       03704 -0 50000 0 01556 CP1070 CAL L(LDQ)            0P1 (S(I)) 35 = 0                          4F15105     
       03705 -0 76000 0 00143        SLT 3                                                            4F15106     
       03706  0 02000 0 03711        TRA CP1140            ELI (S(II) TO MQ                           4F15107     
       03707  0 76000 0 00143        SLN 3                 ELI (S(II) TO ACC                          4F15108     
       03710 -0 50000 0 01541 CP1130 CAL L(CLA)                                                       4F15109     
       03711  0 60200 0 06165 CP1140 SLW CW+1                                                         4F15110     
       03712  0 07400 4 05111 CP1150 TSX AC0000,C          ADDRESS COMPILE SYM1 (S(I))                4F15111     
       03713  0 07400 2 05103        TSX COMP,B                                                       4F15112     
       03714  0 60000 0 06164        STZ CW                RESET CW                                   4F15113     
       03715  0 02000 0 03624        TRA CP0540            GO MODIFY J                                4F15114     
       03716 -0 76000 0 00143 CP1200 SLT 3                 OPJ (S(I)) = /                             4F15115     
       03717  0 02000 0 03731        TRA CP1330                                                       4F15116     
       03720 -0 76000 0 00144        SLT 4                 PREDECESSOR IN ACC                         4F15117     
       03721  0 02000 0 03764        TRA CP1670            FLO PT.                                    4F15118     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 131/131 ------           
       03722  0 76000 0 00144        SLN 4                 FIX PT. RESTORE FXPTSW                     4F15119     
       03723  0 07400 4 01731        TSX CIT00,C           COMPILE LRS 35                             4F15120     
       03724  0 00000 0 01406        HTR L(0)                                                         4F15121     
       03725  0 00000 0 01560        HTR L(LRS)                                                       4F15122     
       03726  0 00000 0 01406        HTR L(0)                                                         4F15123     
       03727  0 00000 0 01472        HTR DEC35                                                        4F15124     
       03730  0 02000 0 03734        TRA CP1450                                                       4F15125     
       03731 -0 76000 0 00144 CP1330 SLT 4                 PREDECESSOR IN MQ                          4F15126     
       03732  0 02000 0 03753        TRA CP1570            AND SEGMENT IS                             4F15127     
       03733  0 76000 0 00144        SLN 4                 FIX PT. RESTORE FXPTSW                     4F15128     
       03734  0 50000 0 01547 CP1450 CLA L(DVP)                                                       4F15129     
       03735  0 60100 0 06165        STO CW+1                                                         4F15130     
       03736  0 07400 4 05111        TSX AC0000,C          ADDRESS COMPILE SYMJ (S(I))                4F15131     
       03737  0 07400 2 05103        TSX COMP,B            COMPILE DVP SYMJ (S(I))                    4F15132     
       03740  0 07400 4 01731        TSX CIT00,C           COMPILE CLM                                4F15133     
       03741  0 00000 0 01406        HTR L(0)                                                         4F15134     
       03742  0 00000 0 01542        HTR L(CLM)                                                       4F15135     
       03743  0 00000 0 01406        HTR L(0)                                                         4F15136     
       03744  0 00000 0 01406        HTR L(0)                                                         4F15137     
       03745  0 07400 4 01731        TSX CIT00,C           COMPILE LLS 18                             4F15138     
       03746  0 00000 0 01406        HTR L(0)                                                         4F15139     
       03747  0 00000 0 01557        HTR L(LLS)                                                       4F15140     
       03750  0 00000 0 01406        HTR L(0)                                                         4F15141     
       03751  0 00000 0 01466        HTR DEC18                                                        4F15142     
       03752  0 02000 0 03624        TRA CP0540            GO MODIFY J                                4F15143     
       03753  0 50000 0 01573 CP1570 CLA L(STQ)            PREDECESSOR IN MQ                          4F15144     
       03754  0 60100 0 06165        STO CW+1              AND SEGMENT IS FLO PT                      4F15145     
       03755  0 50000 0 01505        CLA X(                                                           4F15146     
       03756  0 60100 0 06166        STO CW+2                                                         4F15147     
       03757  0 60000 0 06167        STZ CW+3                                                         4F15148     
       03760  0 07400 2 05103        TSX COMP,B            COMPILE STO 700000                         4F15149     
       03761  0 50000 0 01541        CLA L(CLA)                                                       4F15150     
       03762  0 60100 0 06165        STO CW+1                                                         4F15151     
       03763  0 07400 2 05103        TSX COMP,B            COMPILE CLA 700000                         4F15152     
       03764  0 50000 0 01551 CP1670 CLA L(FDP)                                                       4F15153     
       03765  0 60100 0 06165        STO CW+1              COMPILE FOP SYMJ (S(I))                    4F15154     
       03766  0 07400 4 05111 CP1690 TSX AC0000,C          ADDRESS COMPILE SYMJ (S(I))                4F15155     
       03767  0 07400 2 05103        TSX COMP,B                                                       4F15156     
       03770  0 02000 0 03624        TRA CP0540            GO MODIFY J                                4F15157     
       03771 -0 76000 0 00143 CP1720 SLT 3                 OPJ(S(I))=*                                4F15158     
       03772  0 02000 0 04004        TRA CP1840                                                       4F15159     
       03773  0 50000 0 01572        CLA L(STO)            PREDECESSOR IN ACC                         4F15160     
       03774  0 60100 0 06165        STO CW+1                                                         4F15161     
       03775  0 50000 0 01505        CLA X(                                                           4F15162     
       03776  0 60100 0 06166        STO CW+2                                                         4F15163     
       03777  0 60000 0 06167        STZ CW+3                                                         4F15164     
       04000  0 07400 2 05103        TSX COMP,B            COMPILE STO 700000                         4F15165     
       04001  0 50000 0 01556        CLA L(LDQ)                                                       4F15166     
       04002  0 60100 0 06165        STO CW+1                                                         4F15167     
       04003  0 07400 2 05103        TSX COMP,B            COMPILE LDQ 700000                         4F15168     
       04004  0 76000 0 00143 CP1840 SLN 3                 TURN LATE 3 ON                             4F15169     
       04005  0 07400 4 05111        TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I))                 4F15170     
       04006 -0 76000 0 00144        SLT 4                                                            4F15171     
       04007  0 02000 0 04022        TRA CP2000                                                       4F15172     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 132/132 ------           
       04010  0 76000 0 00144        SLN 4                 FIX PT. RESTORE FXPTSW                     4F15173     
       04011  0 50000 0 01562        CLA L(MPY)                                                       4F15174     
       04012  0 60100 0 06165        STO CW+1                                                         4F15175     
       04013  0 07400 2 05103        TSX COMP,B            COMPILE MPY SYMJ(S(I))                     4F15176     
       04014  0 07400 4 01731        TSX CIT00,C           COMPILE ALS 17                             4F15177     
       04015  0 00000 0 01406        HTR L(0)                                                         4F15178     
       04016  0 00000 0 01533        HTR L(ALS)                                                       4F15179     
       04017  0 00000 0 01406        HTR L(0)                                                         4F15180     
       04020  0 00000 0 01465        HTR DEC17                                                        4F15181     
       04021  0 02000 0 03624        TRA CP0540            GO MODIFY J                                4F15182     
       04022  0 50000 0 01552 CP2000 CLA L(FMP)            FLO PT.                                    4F15183     
       04023  0 60100 0 06165        STO CW+1                                                         4F15184     
       04024  0 07400 2 05103        TSX COMP,B            COMPILE FMP SYMJ(S(I))                     4F15185     
       04025  0 02000 0 03624        TRA CP0540            GO MODIFY J.                               4F15186     
       04026 -0 76300 0 00007 CP2040 LGL 7                 OPI(S(I))=SPOP                             4F15187     
       04027  0 76000 0 00001        LBT                   TEST OP1(S(I))12                           4F15188     
       04030  0 16200 0 04150        TQP CP2650            LIB OR OPEN FUNCTION                       4F15189     
       04031  0 16200 0 04473        TQP CP5000            FN-FUNCTION                                4F15190     
       04032 -0 75400 0 00000        PXD 0,0               FS-FUNCTION                                4F15191     
       04033  0 76300 0 00017        LLS 15                PUT TYPE NO IN ADD(ACC)                    4F15192     
       04034 -0 50100 0 01503        ORA P(                FORM 4...TYPE NO.                          4F15193     
       04035  0 60200 0 06162        SLW ARGORG            AND STO IN ARGORG                          4F15194     
       04036 -0 32000 0 01452        ANA MASK2                                                        4F15195     
       04037 -0 50100 0 01505        ORA X(                FORM 7...TYPE NO.                          4F15196     
       04040  0 60200 0 06163        SLW XRSAVE            AND STO IN XRSAVE                          4F15197     
       04041  0 50000 1 06651        CLA SCRIPL+1,A                                                   4F15198     
       04042  0 76000 0 00001        LBT                   EXAMINE OP2(S(I))35                        4F15199     
       04043  0 02000 0 04052        TRA CP2150            1ST ARG STORED                             4F15200     
       04044  0 07400 4 01731 CP2100 TSX CIT00,C           1ST ARG IN ACC                             4F15201     
       04045  0 00000 0 01406        HTR L(0)              COMPILE STO 4...TYPE NO. + 0               4F15202     
       04046  0 00000 0 01572        HTR L(STO)                                                       4F15203     
       04047  0 00000 0 06162        HTR ARGORG                                                       4F15204     
       04050  0 00000 0 01406        HTR L(0)                                                         4F15205     
       04051  1 77775 1 04057        TXI CP2200,A,-3       GO ON TO OP3(S(I))                         4F15206     
       04052 -0 50000 0 01541 CP2150 CAL L(CLA)                                                       4F15207     
       04053  0 60200 0 06165        SLW CW+1                                                         4F15208     
       04054  0 07400 4 05111        TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15209     
       04055  0 07400 2 05103        TSX COMP,B            COMPILE CLA SYM2(S(I))                     4F15210     
       04056  0 02000 0 04044        TRA CP2100                                                       4F15211     
       04057  0 60000 0 06164 CP2200 STZ CW                RESET CW                                   4F15212     
       04060 -0 53400 2 03607        LXD CP0400,B                                                     4F15213     
       04061  1 00003 2 04062        TXI CP2230,B,3                                                   4F15214     
       04062  3 77772 2 04125 CP2230 TXH CP2500,B,-6       FINISHED WITH S(I)                         4F15215     
       04063 -0 63400 2 03607        SXD CP0400,B                                                     4F15216     
       04064  0 50000 1 06651        CLA SCRIPL+1,A                                                   4F15217     
       04065  0 76000 0 00001        LBT                   EXAMINE OP3(S(I))35                        4F15218     
       04066  0 02000 0 04075        TRA CP2300            2ND ARG STORED                             4F15219     
       04067  0 07400 4 01731 CP2250 TSX CIT00,C           2ND ARG IN MQ                              4F15220     
       04070  0 00000 0 01406        HTR L(0)              COMPILE STO 4...TYPE NO, + 1               4F15221     
       04071  0 00000 0 01572        HTR L(STO)                                                       4F15222     
       04072  0 00000 0 06162        HTR ARGORG                                                       4F15223     
       04073  0 00000 0 01454        HTR 2E18                                                         4F15224     
       04074  1 77775 1 04102        TXI CP2350,A,-3       GO ON TO SYM4(S(I))                        4F15225     
       04075 -0 50000 0 01556 CP2300 CAL L(LDQ)                                                       4F15226     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 133/133 ------           
       04076  0 60200 0 06165        SLW CW+1                                                         4F15227     
       04077  0 07400 4 05111        TSX AC0000,C          ADDRESS COMPILE SYM3(S(I))                 4F15228     
       04100  0 07400 2 05103        TSX COMP,B            COMPILE LDQ SYM3(S(I))                     4F15229     
       04101  0 02000 0 04067        TRA CP2250                                                       4F15230     
       04102  0 50000 0 01521 CP2350 CLA DECMI2            INITIALIZE DEC(P(CNTR) TO 2                4F15231     
       04103  0 60200 0 06161        SLW P(CNTR                                                       4F15232     
       04104 -0 53400 2 03607 CP2370 LXD CP0400,B                                                     4F15233     
       04105  1 00003 2 04106        TXI CP2390,B,3                                                   4F15234     
       04106  3 77772 2 04125 CP2390 TXH CP2500,B,-6       FINISHED WITH S(I)                         4F15235     
       04107 -0 63400 2 03607        SXD CP0400,B                                                     4F15236     
       04110 -0 50000 0 01541        CAL L(CLA)                                                       4F15237     
       04111  0 60200 0 06165        SLW CW+1                                                         4F15236     
       04112  0 07400 4 05111        TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)), J=4,...        4F15239     
       04113  0 07400 2 05103        TSX COMP,B            COMPILE CLA SYMJ(S(I)),  J=4,...           4F15240     
       04114  0 07400 4 01731        TSX CIT00,C           COMPILE STO 4...TYPE NO, + J-2, J=4,...    4F15241     
       04115  0 00000 0 01406        HTR L(0)                                                         4F15242     
       04116  0 00000 0 01572        HTR L(STO)                                                       4F15243     
       04117  0 00000 0 06162        HTR ARGORG                                                       4F15244     
       04120  0 00000 0 06161        HTR P(CNTR                                                       4F15245     
       04121  0 50000 0 06161        CLA P(CNTR            UPDATE  P(CNTR                             4F15246     
       04122  0 40000 0 01454        ADD 2E18                                                         4F15247     
       04123  0 60100 0 06161        STO P(CNTR                                                       4F15248     
       04124  1 77775 1 04104        TXI CP2370,A,-3                                                  4F15249     
       04125 -0 53400 1 01117 CP2500 LXD 3QBAR,A           FINISHED WITH S(I)                         4F15250     
       04126 -0 50000 0 01575        CAL L(SXD)                                                       4F15251     
       04127  0 60200 0 06165        SLW CW+1                                                         4F15252     
       04130 -0 50000 0 06163        CAL XRSAVE                                                       4F15253     
       04131  0 60200 0 06166        SLW CW+2                                                         4F15254     
       04132 -0 50000 0 01412        CAL L(4)                                                         4F15255     
       04133  0 60200 0 06167        SLW CW+3                                                         4F15256     
       04134  0 07400 2 05103        TSX COMP,B            COMPILE  SXD 7...TYPE NO.  ,  4            4F15257     
       04135 -0 50000 0 01602        CAL L(TSX)                                                       4F15258     
       04136  0 60200 0 06165        SLW CW+1                                                         4F15259     
       04137 -0 50000 1 06652        CAL SCRIPL+2,A                                                   4F15260     
       04140  0 60200 0 06166        SLW CW+2                                                         4F15261     
       04141  0 07400 2 05103        TSX COMP,B            COMPILE  TSX SYMI(S(I)),4                  4F15262     
       04142 -0 50000 0 01561        CAL L(LXD)                                                       4F15263     
       04143  0 60200 0 06165        SLW CW+1                                                         4F15264     
       04144 -0 50000 0 06163        CAL XRSAVE                                                       4F15265     
       04145  0 60200 0 06166        SLW CW+2                                                         4F15266     
       04146  0 02000 0 05240        TRA CP6000                                                       4F15267     
       04147  1 00000 0 04622 CP5830 TXI ES0000,0,0                                                   4F15268     
                                                                                                      4F15269     
       04150 -0 76300 0 00024 CP2650 LGL 20                TEST OPI(S(I))33                           4F15270     
       04151  0 16200 0 04217        TQP CP3060            0... LIB. SBRTN                            4F15271     
       04152  0 50200 0 06164        CLS CW                1... OPEN SBRTN                            4F15272     
       04153  0 60100 0 06164        STO CW                CW TO -CW                                  4F15273     
       04154  0 50000 1 06647        CLA SCRIPL-1,A                                                   4F15274     
       04155  0 60100 0 06166        STO CW+2                                                         4F15275     
       04156  0 07400 2 05103        TSX COMP,B            COMPILE FUNCTION NAME                      4F15276     
       04157  0 60000 0 06164        STZ CW                RESET CW                                   4F15277     
       04160 -0 53400 2 03607        LXD CP0400,B                                                     4F15278     
       04161 -3 77767 2 04203        TXL CP2930,B,-9                                                  4F15279     
       04162 -0 50000 0 01531        CAL ALL1              OPEN UNIVARIATE FUNCTION                   4F15280     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 134/134 ------           
       04163  0 60200 0 06164        SLW CW                                                           4F15281     
       04164  0 50000 1 06651        CLA SCRIPL+1,A                                                   4F15282     
       04165  0 76000 0 00001        LBT                   EXAMINE OP2(S(I))35                        4F15283     
       04166  0 02000 0 04201        TRA CP2900            0... ARG STORED                            4F15284     
       04167  0 77100 0 00001        ARS 1                 1... ARG NOT STORED                        4F15285     
       04170  0 56000 0 01512        LDQ ADPLUS                                                       4F15286     
       04171  0 76000 0 00001        LBT                                                              4F15287     
       04172  0 02000 0 04174        TRA CP2860                                                       4F15286     
       04173  0 56000 0 01524        LDQ ADSTAR                                                       4F15289     
       04174 -0 60000 0 06166 CP2860 STQ CW+2                                                         4F15290     
       04175  0 60000 0 06167        STZ CW+3                                                         4F15291     
       04176  0 07400 2 05103 CP2880 TSX COMP,B            COMPILE ACC OR MQ INDICATOR                4F15292     
       04177  0 60000 0 06164        STZ CW                RESET CW                                   4F15293     
       04200  0 02000 0 04622        TRA ES0000                                                       4F15294     
       04201  0 07400 4 05111 CP2900 TSX AC0000,C          ADDRESS COMPILE SYM2(S(II)                 4F15295     
       04202  0 02000 0 04176        TRA CP2880            GO COMPILE SYM2(S(I))                      4F15296     
       04203  0 07400 4 05111 CP2930 TSX AC0000,C          OPEN MULTIVARIATE FUNCTION                 4F15297     
       04204 -0 53400 2 03607        LXD CP0400,B                                                     4F15298     
       04205  1 00003 2 04206        TXI CP2960,B,3                                                   4F15299     
       04206  3 77772 2 04212 CP2960 TXH CP3000,B,-6                                                  4F15300     
       04207 -0 63400 2 03607        SXD CP0400,B                                                     4F15301     
       04210  0 07400 2 05103        TSX COMP,B            COMPILE SYMJ(S(I))                         4F15302     
       04211  1 77775 1 04203        TXI CP2930,A,-3                                                  4F15303     
       04212 -0 50000 0 01531 CP3000 CAL ALL1                                                         4F15304     
       04213  0 60200 0 06164        SLW CW                                                           4F15305     
       04214  0 07400 2 05103        TSX COMP,B            COMPILE LAST ARGUMENT NAME                 4F15306     
       04215  0 60000 0 06164        STZ CW                RESET  CW                                  4F15307     
       04216  0 02000 0 04622        TRA ES0000            GO TO  END-OF-SEGMENT SBRTN                4F15308     
       04217 -3 77767 2 04246 CP3060 TXL CP3350,B,-9                                                  4F15309     
       04220  0 50000 1 06651        CLA SCRIPL+1,A        CLOSED UNIVARIATE FUNCTION                 4F15310     
       04221  0 76000 0 00001        LBT                   EXAMINE OP2(S(I))35                        4F15311     
       04222  0 02000 0 04240        TRA CP3280            0... ARG STORED                            4F15312     
       04223  0 50000 0 01575 CP3100 CLA L(SXD)            1... ARG IN ACC                            4F15313     
       04224  0 60100 0 06165        STO CW+1                                                         4F15314     
       04225  0 50000 0 01505        CLA X(                                                           4F15315     
       04226  0 60100 0 06166        STO CW+2                                                         4F15316     
       04227  0 50000 0 01412        CLA L(4)                                                         4F15317     
       04230  0 60100 0 06167        STO CW+3                                                         4F15318     
       04231  0 07400 2 05103        TSX COMP,B            COMPILE SXD7...0,4                         4F15319     
       04232  0 50000 0 01602        CLA L(TSX)                                                       4F15320     
       04233  0 60100 0 06165        STO CW+1                                                         4F15321     
       04234  0 50000 1 06647        CLA SCRIPL-1,A                                                   4F15322     
       04235  0 60100 0 06166        STO CW+2                                                         4F15323     
       04236  0 07400 2 05103        TSX COMP,B            COMPILE TSX SYMI(S(I)),4                   4F15324     
       04237  0 02000 0 04615        TRA CP5780            COMPILE FLOW TRACE INFO AND LXD 7(,4       4F15325     
       04240  0 50000 0 01541 CP3280 CLA L(CLA)                                                       4F15331     
       04241  0 60100 0 06165        STO CW+1                                                         4F15332     
       04242  0 07400 4 05111        TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15333     
       04243  0 07400 2 05103        TSX COMP,B            COMPILE CLA SYM2(S(I))                     4F15334     
       04244  0 60000 0 06164        STZ CW                RESET CW                                   4F15335     
       04245  0 02000 0 04223        TRA CP3100            GO COMPILE SXD,TSX,LXD SEQUENCE            4F15336     
       04246 -3 77764 2 04272 CP3350 TXL CP3560,B,-12                                                 4F15337     
       04247  0 50000 1 06651        CLA SCRIPL+1,A        CLOSED BIVARIATE FUNCTION                  4F15338     
       04250  0 76000 0 00001        LBT                   EXAMINE OP2(S(I))35                        4F15339     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 135/135 ------           
       04251  0 02000 0 04260        TRA CP3450            0... ARG1 STORED                           4F15340     
       04252  0 50000 0 01556 CP3390 CLA L(LDQ)            1... ARG1 IN ACC                           4F15341     
       04253  0 60100 0 06165        STO CW+1                                                         4F15342     
       04254  1 77775 1 04255        TXI CP3420,A,-3                                                  4F15343     
       04255  0 07400 4 05111 CP3420 TSX AC0000,C          ADDRESS COMPILE SYM3(S(I))                 4F15344     
       04256  0 07400 2 05103        TSX COMP,B            COMPILE LDQ SYM3(S(I))                     4F15345     
       04257  1 00003 1 04223        TXI CP3100,A,3        GO COMPILE SXD,TSX,LXD SEQUENCE            4F15346     
       04260  0 50000 1 06654 CP3450 CLA SCRIPL+4,A                                                   4F15347     
       04261  0 76000 0 00001        LBT                   EXAMINE OP3(S(I))35                        4F15348     
       04262  0 02000 0 04264        TRA CP3490            0... ARG2 STORED                           4F15349     
       04263  0 02000 0 04240        TRA CP3280            1... ARG2 IN MO                            4F15350     
       04264  0 50000 0 01541 CP3490 CLA L(CLA)                                                       4F15351     
       04265  0 60100 0 06165        STO CW+1                                                         4F15352     
       04266  0 07400 4 05111        TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15353     
       04267  0 07400 2 05103        TSX COMP,B            COMPILE CLA SYM2(S(I))                     4F15354     
       04270  0 60000 0 06164        STZ CW                REST CW                                    4F15355     
       04271  0 02000 0 04252        TRA CP3390            GO COMPILE LDQ,SXD,TSX,LXD SEQUENCE        4F15356     
       04272  0 50000 1 06651 CP3560 CLA SCRIPL+1,A        CLOSED MULTIVARIATE FUNCTION               4F15357     
       04273  0 76000 0 00001        LBT                   EXAMINE OP2(S(II)35                        4F15358     
       04274  1 77772 1 04324        TXI CP3820,A,-6       0... ARG1 STORED                           4F15359     
       04275  1 77772 1 04276        TXI CP3600,A,-6       1... ARG1 IN ACC                           4F15360     
       04276  0 50000 0 01521 CP3600 CLA DECMI2                                                       4F15361     
       04277  0 60100 0 06161        STO P(CNTR            INITIALIZE P(CNTR TO -2                    4F15362     
       04300  0 50000 0 01556 CP3620 CLA L(LDQ)                                                       4F15363     
       04301  0 60100 0 06165        STO CW+1                                                         4F15364     
       04302  0 07400 4 05111        TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...   4F15365     
       04303  0 07400 2 05103        TSX COMP,B            COMPILE LDQ SYMJ(S(I))                     4F15366     
       04304  0 50000 0 01573        CLA L(STQ)                                                       4F15367     
       04305  0 60100 0 06165        STO CW+1                                                         4F15368     
       04306  0 50000 0 01503        CLA P(                                                           4F15369     
       04307  0 60100 0 06166        STO CW+2                                                         4F15370     
       04310  0 50000 0 06161        CLA P(CNTR                                                       4F15371     
       04311  0 60100 0 06167        STO CW+3                                                         4F15372     
       04312  0 40200 0 01454        SUB 2E18                                                         4F15373     
       04313  0 60100 0 06161        STO P(CNTR                                                       4F15374     
       04314  0 07400 2 05103        TSX COMP,B            COMPILE STQ 4...0-(J-2)                    4F15375     
       04315 -0 53400 2 03607        LXD CP0400,B                                                     4F15376     
       04316  1 00003 2 04317        TXI CP3770,B,3                                                   4F15377     
       04317 -3 77764 2 04322 CP3770 TXL CP3800,B,-12                                                 4F15378     
       04320 -0 53400 1 01117        LXD 3QBAR,A           FINISHED WITH ARG VECTOR                   4F15379     
       04321  1 77775 1 04252        TXI CP3390,A,-3                                                  4F15380     
       04322 -0 63400 2 03607 CP3800 SXD CP0400,B                                                     4F15381     
       04323  1 77775 1 04300        TXI CP3620,A,-3       GO PICK UP NEXT ARG.                       4F15382     
       04324  0 50000 1 06646 CP3820 CLA SCRIPL-2,A                                                   4F15383     
       04325  0 76000 0 00001        LBT                   EXAMINE OP3(S(I))35                        4F15384     
       04326  1 00006 1 04355        TXI CP4070,A,6        0... ARG2 STORED                           4F15385     
       04327  0 50000 0 01521        CLA DECMI2            1... ARG2 IN MQ                            4F15386     
       04330  0 60100 0 06161        STO P(CNTR                                                       4F15387     
       04331  0 50000 0 01541 CP3870 CLA L(CLA)                                                       4F15388     
       04332  0 60100 0 06165        STO CW+1                                                         4F15389     
       04333  0 07400 4 05111        TSX AC0000,C          ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,...   4F15390     
       04334  0 07400 2 05103        TSX COMP,B            COMPILE CLA SYMJ(S(I))                     4F15391     
       04335  0 50000 0 01572        CLA L(STO)                                                       4F15392     
       04336  0 60100 0 06165        STO CW+1                                                         4F15393     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 136/136 ------           
       04337  0 50000 0 01503        CLA P(                                                           4F15394     
       04340  0 60100 0 06166        STO CW+2                                                         4F15395     
       04341  0 50000 0 06161        CLA P(CNTR                                                       4F15396     
       04342  0 60100 0 06167        STO CW+3                                                         4F15397     
       04343  0 40200 0 01454        SUB 2E18                                                         4F15398     
       04344  0 60100 0 06161        STO P(CNTR                                                       4F15399     
       04345  0 07400 2 05103        TSX COMP,B            COMPILE STO 4...0-(J-2)                    4F15400     
       04346 -0 53400 2 03607        LXD CP0400,B                                                     4F15401     
       04347  1 00003 2 04350        TXI CP4020,B,3                                                   4F15402     
       04350 -3 77764 2 04353 CP4020 TXL CP4050,B,-12                                                 4F15403     
       04351 -0 53400 1 01117        LXD 3QBAR,A           FINISHED WITH ARG VECTOR                   4F15404     
       04352  1 77775 1 04240        TXI CP3280,A,-3                                                  4F15405     
       04353 -0 63400 2 03607 CP4050 SXD CP0400,B                                                     4F15406     
       04354  1 77775 1 04331        TXI CP3870,A,-3       GO PICK UP NEXT ARG                        4F15407     
       04355  0 50000 0 01541 CP4070 CLA L(CLA)                                                       4F15408     
       04356  0 60100 0 06165        STO CW+1                                                         4F15409     
       04357  0 07400 4 05111        TSX AC0000,C          ADDRESS COMPILE SYM2(S(II)                 4F15410     
       04360  0 07400 2 05103        TSX COMP,B            COMPILE CLASYM2(S(I))                      4F15411     
       04361  0 60000 0 06164        STZ CW                RESET CW                                   4F15412     
       04362  1 77772 1 04276        TXI CP3600,A,-6                                                  4F15413     
       04363 -0 76300 0 00033 CP4140 LGL 27                OP1(S(I))=**                               4F15414     
       04364  0 16200 0 04415        TQP CP4410            CLOSED SBRTN SINCE OP1(S(I))33=0           4F15415     
       04365  0 76000 0 00001        LBT                   OPEN SBRTN SINCE OP1(S(I))33=1             4F15416     
       04366  0 02000 0 04371        TRA CP4200            BASE FIX PT SINCE OP1(S(1))32=0            4F15417     
       04367  0 50000 0 01525        CLA STRSTR            BASE FLO PT SINCE OP1(S(1))32=1            4F15418     
       04370  0 02000 0 04372        TRA CP4210                                                       4F15419     
       04371  0 50000 0 01524 CP4200 CLA ADSTAR                                                       4F15420     
       04372  0 60100 0 06165 CP4210 STO CW+1                                                         4F15421     
       04373 -0 76300 0 00002        LGL 2                 EXAMINE OP1(S(I))35                        4F15422     
       04374  0 16200 0 04403        TQP CP4310            0...  BASE STORED                          4F15423     
       04375  0 56000 0 01524        LDQ ADSTAR            1...  BASE NOT STORED                      4F15424     
       04376  0 76000 0 00001        LBT                   EXAMINE OP1(S(I)34                         4F15425     
       04377  0 56000 0 01512        LDQ ADPLUS            0...  BASE IN ACC                          4F15426     
       04400  0 60100 0 06166        STO CW+2              1...BASE IN MQ                             4F15427     
       04401  0 60000 0 06167        STZ CW+3                                                         4F15428     
       04402  0 02000 0 04404        TRA CP4320                                                       4F15429     
       04403  0 07400 4 05111 CP4310 TSX AC0000,C          ADDRESS COMPILE SYMI(S(I))                 4F15430     
       04404  0 50200 0 06164 CP4320 CLS CW                                                           4F15431     
       04405  0 60100 0 06164        STO CW                CW TO -CW                                  4F15432     
       04406  0 07400 2 05103        TSX COMP,B            COMPILE  BASE                              4F15433     
       04407  0 60000 0 06164        STZ CW                RESET CW                                   4F15434     
       04410  0 50000 1 06655        CLA SCRIPL+5,A                                                   4F15435     
       04411  0 60100 0 06166        STO CW+2                                                         4F15436     
       04412  0 07400 2 05103        TSX COMP,B            COMPILE FIX PT CONSTANT EXPONENT           4F15437     
       04413  0 60000 0 06165        STZ CW+1              RESET CW+1                                 4F15438     
       04414  0 02000 0 04622        TRA ES0000                                                       4F15439     
       04415 -0 76300 0 00003 CP4410 LGL 3                 CLOSED EXP. SBRTN                          4F15440     
       04416  0 76000 0 00001        LBT                   EXAMINE OP1(S(I))35                        4F15441     
       04417  0 02000 0 04462        TRA CP4860            0... BASE STORED                           4F15442     
       04420  0 50000 0 01556 CP4440 CLA L(LDQ)            1... BASE IN ACC.                          4F15443     
       04421  0 60100 0 06165        STO CW+1                                                         4F15444     
       04422  1 77775 1 04423        TXI CP4470,A,-3                                                  4F15445     
       04423  0 07400 4 05111 CP4470 TSX AC0000,C          ADDRESS COMPILE SYM2(S(I))                 4F15446     
       04424  0 07400 2 05103        TSX COMP,B            COMPILE LDQ SYM2 (S(I))                    4F15447     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 137/137 ------           
       04425  0 50000 0 01575 CP4490 CLA L(SXD)                                                       4F15448     
       04426  0 60100 0 06165        STO CW+1                                                         4F15449     
       04427  0 50000 0 01505        CLA X(                                                           4F15450     
       04430  0 60100 0 06166        STO CW+2                                                         4F15451     
       04431  0 50000 0 01412        CLA L(4)                                                         4F15452     
       04432  0 60100 0 06167        STO CW+3                                                         4F15453     
       04433  0 07400 2 05103        TSX COMP,B            COMPILE SXD 7...0.4                        4F15454     
       04434  0 50000 0 01602        CLA L(TSX)                                                       4F15455     
       04435  0 60100 0 06165        STO CW+1                                                         4F15456     
       04436  0 50000 1 06651        CLA SCRIPL+1,A                                                   4F15457     
       04437  0 77100 0 00003        ARS 3                                                            4F15458     
       04440  0 76000 0 00001        LBT                   EXAMINE OP2(S(I))32                        4F15459     
       04441  1 00003 1 04447        TXI CP4660,A,3        O...                                       4F15460     
       04442  0 50000 0 01516        CLA FLFL              1... FLO**FLO                              4F15461     
       04443  0 56000 1 06646        LDQ SCRIPL-2,A        EXAMINE OPI(S(I)I32 TO CHECK               4F15462     
       04444 -0 77300 0 00040        RQL 32                FOR MIXED EXPONENTIAL EXPRESSION           4F15463     
       04445  0 16200 0 03501        TQP MC0310+2          ERROR FIX PT BASE, FLOAT EXP.              4F15464     
       04446  0 02000 0 04454        TRA CP4730                                                       4F15465     
       04447  0 56000 1 06651 CP4660 LDQ SCRIPL+1,A                                                   4F15466     
       04450 -0 77300 0 00040        RQL 32                EXAMINE OP1(S(I))32                        4F15467     
       04451  0 50000 0 01514        CLA FXFX                                                         4F15468     
       04452  0 16200 0 04454        TQP CP4730            0...FX**FX                                 4F15469     
       04453  0 50000 0 01515        CLA FLFX              1... FL**FX                                4F15470     
       04454  0 60100 0 06166 CP4730 STO CW+2                                                         4F15471     
       04455  0 60100 0 01347        STO G                                                            4F15472     
       04456  0 07400 2 05103        TSX COMP,B            COMPILE TSX FXFX/FLEX/FLFL,4               4F15473     
       04457  0 07400 1 03321        TSX TET00,A                                                      4F15474     
       04460  0 00000 0 00011        HTR 9                                                            4F15475     
       04461  0 02000 0 04615        TRA CP5780            COMPILE FLOW TRACE INFO AND LXD 7(,4       4F15476     
       04462  0 50000 0 01541 CP4860 CLA L(CLA)                                                       4F15462     
       04463  0 60100 0 06165        STO CW+1                                                         4F15483     
       04464  0 07400 4 05111        TSX AC0000,C          ADDRESS COMPILE SYM1(S(I))                 4F15484     
       04465  0 07400 2 05103        TSX COMP,B            COMPILE CLA SYMI(S(I))                     4F15485     
       04466  0 60000 0 06164        STZ CW                                                           4F15486     
       04467  0 50000 1 06654        CLA SCRIPL+4,A                                                   4F15487     
       04470  0 76000 0 00001        LBT                   EXAMINE OP2*S(I))35                        4F15488     
       04471  1 00000 0 04420        TXI CP4440,0,0        0...EXP STORED                             4F15489     
       04472  1 77775 1 04425        TXI CP4490,A,-3       1... EXP IN MQ                             4F15490     
                                                                                                      4F15491     
       04473  0 50000 0 00030 CP5000 CLA EIFNO             FN FUNCTION                                4F15492     
       04474  0 40000 0 01454        ADD 2E18              UPDATE EIFNO                               4F15493     
       04475  0 60100 0 00030        STO EIFNO             AND                                        4F15494     
       04476  0 60100 0 06160        STO FNSW              SET FN SWITCH                              4F15495     
       04477  0 62200 0 01105        STD 1C                KEEP 1C UPDATED FOR PENDING TIFGO ENTRY,   4F15496     
       04500  0 53400 4 01407        LXA L(1),C            INITIALIZE 5TAIX TO 1                      4F15497     
       04501  0 50000 1 06650 CP5050 CLA SCRIPL,A          EXAMIN  TAGJ(S(I)), J=2,...                4F15498     
       04502 -0 12000 0 04516        TMI CP5180            NONSUBSCRIPTED                             4F15499     
       04503 -0 63400 2 04147        SXD CP5830,B          SUBSCRIPTED-IS THERE A GENERAL TAG         4F15500     
       04504 -0 63400 4 04577        SXD STACTR,C                                                     4F15501     
       04505  0 07400 4 05111        TSX AC0000,C                                                     4F15502     
       04506 -0 50000 0 06173        CAL TAGPRT                                                       4F15503     
       04507 -0 10000 0 04522        TNZ CP5220            GENERAL TAG PRESENT                        4F15504     
       04510 -0 50000 0 06167        CAL CW+3              NO GENERAL TAG PRESENT,SO PLACE            4F15505     
       04511  0 77100 0 00013        ARS 11                RELATIVE ADDRESS IN OPJ(S(I))14-28 AND     4F15506     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 138/138 ------           
       04512 -0 50100 0 01474        ORA NGTBIT            SET OPJ(S(I))10=I FROM NGTBIT              4F15507     
       04513 -0 60200 1 06651        ORS SCRIPL+1,A                                                   4F15508     
       04514 -0 53400 4 04577 CP5160 LXD STACTR,C                                                     4F15509     
       04515 -0 53400 2 04147        LXD CP5830,B                                                     4F15510     
       04516  1 00003 2 04517 CP5180 TXI CP5190,B,3                                                   4F15511     
       04517  3 77772 2 04552 CP5190 TXH CP5460,B,-6       FINISHED WITH PRELUDE,IF ANY               4F15512     
       04520  1 00001 4 04521        TXI CP5210,C,1        NOT FINISHED-STAIX=STAIX+1                 4F15513     
       04521  1 77775 1 04501 CP5210 TXI CP5050,A,-3       GO ON TO NEXT ARGUMENT                     4F15514     
       04522 -0 50000 0 01566 CP5220 CAL L(PXD)                                                       4F15515     
       04523  0 60200 0 06165        SLW CW+1                                                         4F15516     
       04524  0 07400 2 05103        TSX COMP,B            COMPILE PXD SYMJ(S(I)), TAGJ(S(I))         4F15517     
       04525  0 60000 0 06164        STZ CW                RESET CW                                   4F15518     
       04526  0 07400 4 01731        TSX CIT00,C           COMPILE ARS 18                             4F15519     
       04527  0 00000 0 01406        HTR L(0)                                                         4F15520     
       04530  0 00000 0 01535        HTR L(ARS)                                                       4F15521     
       04531  0 00000 0 01406        HTR L(0)                                                         4F15522     
       04532  0 00000 0 01466        HTR DEC18                                                        4F15523     
       04533  0 07400 4 01731        TSX CIT00,C           COMPILE ADD *-2                            4F15524     
       04534  0 00000 0 01406        HTR L(0)                                                         4F15525     
       04535  0 00000 0 01532        HTR L(ADD)                                                       4F15526     
       04536  0 00000 0 01511        HTR PROCTR                                                       4F15527     
       04537  0 00000 0 01521        HTR DECMI2                                                       4F15528     
       04540 -0 50000 0 01571        CAL L(STA)                                                       4F15529     
       04541  0 60200 0 06165        SLW CW+1                                                         4F15530     
       04542 -0 50000 0 00030        CAL EIFNO                                                        4F15531     
       04543 -0 32000 0 01527        ANA MASK1                                                        4F15532     
       04544  0 60200 0 06166        SLW CW+2                                                         4F15533     
       04545 -0 53400 4 04577        LXD STACTR,C                                                     4F15534     
       04546 -0 75400 4 00000        PXD 0,C                                                          4F15535     
       04547  0 60200 0 06167        SLW CW+3                                                         4F15536     
       04550  0 07400 2 05103        TSX COMP,B            COMPILE STA IFN+STAIX                      4F15537     
       04551  1 00000 0 04514        TXI CP5160,0,0        GO ON TO NEXT ARGUMENT,IF ANY              4F15538     
       04552 -0 53400 1 01117 CP5460 LXD 3QBAR,A                                                      4F15539     
       04553 -0 50000 0 01575        CAL L(SXD)                                                       4F15540     
       04554  0 60200 0 06165        SLW CW+1                                                         4F15541     
       04555 -0 50000 0 01505        CAL X(                                                           4F15542     
       04556  0 60200 0 06166        SLW CW+2                                                         4F15543     
       04557 -0 50000 0 01412        CAL L(4)                                                         4F15544     
       04560  0 60200 0 06167        SLW CW+3                                                         4F15545     
       04561  0 07400 2 05103        TSX COMP,B            COMPILE SXD 7,4                            4F15546     
       04562 -0 50000 0 00030        CAL EIFNO                                                        4F15547     
       04563 -0 32000 0 01527        ANA MASK1                                                        4F15548     
       04564  0 60200 0 06164        SLW CW                                                           4F15549     
       04565 -0 50000 0 01602        CAL L(TSX)                                                       4F15550     
       04566  0 60200 0 06165        SLW CW+1                                                         4F15551     
       04567 -0 50000 1 06652        CAL SCRIPL+2,A                                                   4F15552     
       04570  0 60200 0 06166        SLW CW+2                                                         4F15553     
       04571  0 07400 2 05103        TSX COMP,B            COMPILE TSX SYMI(S(I)),4                   4F15554     
       04572  0 60000 0 06164        STZ CW                RESET CW                                   4F15555     
       04573  1 77775 1 04574        TXI CP5680,A,-3       POSITION XA TO SYM2(S(I))                  4F15556     
       04574  0 50000 1 06650 CP5680 CLA SCRIPL,A                                                     4F15557     
       04575  0 12000 0 04600        TPL CP5700                                                       4F15558     
       04576  0 07400 4 05111        TSX AC0000,C          NONSUBSCRIPTED                             4F15559     
       04577  1 00000 0 04607 STACTR TXI CP5720,0,0                                                   4F15560     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 139/139 ------           
       04600  0 56000 1 06651 CP5700 LDQ SCRIPL+1,A        SUBSCRIPTED                                4F15561     
       04601 -0 76300 0 00013        LGL 11                                                           4F15562     
       04602  0 76000 0 00001        LBT                                                              4F15563     
       04603  0 56000 0 01406        LDQ L(0)              GENERAL TAG PRESENT                        4F15564     
       04604 -0 60000 0 06167        STQ CW+3              NO GENERAL TAG PRESENT                     4F15565     
       04605 -0 50000 1 06652        CAL SCRIPL+2,A                                                   4F15566     
       04606  0 60200 0 06166        SLW CW+2                                                         4F15567     
       04607  0 07400 2 05103 CP5720 TSX COMP,B            COMPILE TSX SYMJ(S(I)) , J=2,,.,           4F15568     
       04610 -0 53400 2 03607        LXD CP0400,B                                                     4F15569     
       04611  1 00003 2 04612        TXI CP5750,B,3                                                   4F15570     
       04612  3 77772 2 04615 CP5750 TXH CP5780,B,-6       FINISHED SCANNING                          4F15571     
       04613 -0 63400 2 03607        SXD CP0400,B                                                     4F15572     
       04614  1 77775 1 04574        TXI CP5680,A,-3                                                  4F15573     
       04615  0 07400 4 03401 CP5780 TSX FLTR00,4          COMPILE FLOW TRACE INFO AND LXD 7(,4       4F15574     
       04616  0 00000 0 01406        HTR L(0)                                                         4F15575     
       04617  0 00000 0 01561        HTR L(LXD)                                                       4F15576     
       04620  0 00000 0 01505        HTR X(                                                           4F15577     
       04621  0 00000 0 01412        HTR L(4)                                                         4F15578     
       04622 -0 53400 1 01117 ES0000 LXD 3QBAR,A           -3Q TO XA                                  4F15579     
       04623 -0 76000 0 00141        SLT 1                                                            4F15580     
       04624  0 02000 0 03554        TRA CP0130            GO TO NEXT SEGMENT                         4F15581     
       04625 -0 50000 1 06650        CAL SCRIPL,A                                                     4F15582     
       04626 -0 32000 0 01452        ANA MASK2                                                        4F15583     
       04627  0 10000 0 04642        TZE ES0160                                                       4F15584     
       04630  0 50000 0 01120        CLA ARERAS            S(I) NOT = S(O)                            4F15585     
       04631  0 60100 0 06166        STO CW+2                                                         4F15586     
       04632  0 50000 0 01363        CLA PHI(I)                                                       4F15587     
       04633  0 60100 0 06167        STO CW+3                                                         4F15588     
       04634  0 50000 0 01573        CLA L(STQ)                                                       4F15589     
       04635 -0 76000 0 00142        SLT 2                                                            4F15590     
       04636  0 50000 0 01572        CLA L(STO)                                                       4F15591     
       04637  0 60100 0 06165        STO CW+1                                                         4F15592     
       04640  0 07400 2 05103        TSX COMP,B            COMPILE STO/STQ 1... TYPE NO + PHI(I)      4F15593     
       04641  0 02000 0 03554        TRA CP0130            GO TO NEXT SEGMENT                         4F15594     
       04642  0 56000 0 01356 ES0160 LDQ LEFT+2            S(I)=S(O)                                  4F15595     
       04643 -0 76300 0 00014        LGL 12                                                           4F15596     
       04644  0 34000 0 01450        CAS IFSYM             IS THIS AN IF STATEMENT                    4F15597     
       04645  0 02000 0 04647        TRA ES0200                                                       4F15598     
       04646  0 02000 0 05041        TRA ES1500                                                       4F15599     
       04647  0 34000 0 01451 ES0200 CAS CALLER            IS THIS A CALL STATEMENT                   4F15600     
       04650  0 02000 0 04652        TRA ES0210                                                       4F15601     
       04651  0 02000 0 05044        TRA ES1520                                                       4F15602     
       04652  0 34000 0 01447 ES0210 CAS SAPSYM                                                       4F15603     
       04653  0 02000 0 04655        TRA ES0220                                                       4F15604     
       04654  0 02000 0 05077        TRA ES1710                                                       4F15605     
       04655  0 77100 0 00006 ES0220 ARS 6                                                            4F15606     
       04656 -0 53400 4 01122        LXD ARGCTR,C          IS THIS A FUNCTION STATEMENT               4F15607     
       04657  3 00000 4 05016        TXH ES1300,C,0        YES                                        4F15608     
       04660  0 34000 0 01423        CAS L(H)              NOT A FUNCTION STATEMENT                   4F15609     
       04661  0 34000 0 01406        CAS L(0)                                                         4F15610     
       04662  0 02000 0 04750        TRA ES0300                                                       4F15611     
       04663  0 02000 0 04750        TRA ES0300                                                       4F15612     
       04664 -0 76000 0 00144        SLT 4                                                            4F15613     
       04665  0 02000 0 04703        TRA ES0870                                                       4F15614     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 140/140 ------           
       04666  0 50000 0 01572 ES0710 CLA L(STO)            FX(FLO) PT ON LEFT, FX(FLO)  PT ON RIGHT   4F15615     
       04667 -0 76000 0 00142        SLT 2                                                            4F15616     
       04670  0 50000 0 01572 ES0730 CLA L(STO)                                                       4F15617     
       04671  0 60100 0 06165        STO CW+1                                                         4F15618     
       04672  0 50000 0 01354        CLA LEFT                                                         4F15619     
       04673  0 60100 0 06170        STO TAGWRD                                                       4F15620     
       04674  0 50000 0 01355        CLA LEFT+1                                                       4F15621     
       04675  0 60100 0 06171        STO OPWORD                                                       4F15622     
       04676  0 50000 0 01356        CLA LEFT+2                                                       4F15623     
       04677  0 60100 0 06172        STO SYMWRD                                                       4F15624     
       04700  0 07400 4 05117        TSX AC0060,C          ADDRESS COMPILE VARIABLE ON LEFT           4F15625     
       04701  0 07400 2 05103        TSX COMP,B            COMPILE STO/STQ LEFT+2                     4F15626     
       04702  0 02000 0 05063        TRA ES1590            EXIT TO FETCH STATE A                      4F15627     
       04703 -0 76000 0 00142 ES0870 SLT 2                 FX PT ON LEFT, FLO PT ON RIGHT             4F15628     
       04704  0 02000 0 04716        TRA ES0990                                                       4F15629     
       04705  0 50000 0 01573        CLA L(STQ)            RESULT ON RIGHT APPEARS IN MQ              4F15630     
       04706  0 60100 0 06165        STO CW+1                                                         4F15631     
       04707  0 50000 0 01505        CLA X(                                                           4F15632     
       04710  0 60100 0 06166        STO CW+2                                                         4F15633     
       04711  0 60000 0 06167        STZ CW+3                                                         4F15634     
       04712  0 07400 2 05103        TSX COMP,B            COMPILE STQ 700000                         4F15635     
       04713  0 50000 0 01541        CLA L(CLA)                                                       4F15636     
       04714  0 60100 0 06165        STO CW+1                                                         4F15637     
       04715  0 07400 2 05103        TSX COMP,B            COMPILE CLA 700000                         4F15638     
       04716  0 07400 4 01731 ES0990 TSX CIT00,C           COMPILE FIXING INSTRUCTIONS, WHEN          4F15639     
       04717  0 00000 0 01406        HTR L(0)              RESULT ON RIGHT IS IN ACC.                 4F15640     
       04720  0 00000 0 01603        HTR L(UFA)                                                       4F15641     
       04721  0 00000 0 01504        HTR O(                                                           4F15642     
       04722  0 00000 0 01406        HTR L(0)                                                         4F15643     
       04723  0 07400 4 01731        TSX CIT00,C                                                      4F15644     
       04724  0 00000 0 01406        HTR L(0)                                                         4F15645     
       04725  0 00000 0 01560        HTR L(LRS)                                                       4F15646     
       04726  0 00000 0 01406        HTR L(0)                                                         4F15647     
       04727  0 00000 0 01406        HTR L(0)                                                         4F15648     
       04730  0 07400 4 01731        TSX CIT00,C                                                      4F15649     
       04731  0 00000 0 01406        HTR L(0)                                                         4F15650     
       04732  0 00000 0 01534        HTR L(ANA)                                                       4F15651     
       04733  0 00000 0 01504        HTR O(                                                           4F15652     
       04734  0 00000 0 01454        HTR 2E18                                                         4F15653     
       04735  0 07400 4 01731        TSX CIT00,C                                                      4F15654     
       04736  0 00000 0 01406        HTR L(0)                                                         4F15655     
       04737  0 00000 0 01557        HTR L(LLS)                                                       4F15656     
       04740  0 00000 0 01406        HTR L(0)                                                         4F15657     
       04741  0 00000 0 01406        HTR L(0)                                                         4F15658     
       04742  0 07400 4 01731        TSX CIT00,C                                                      4F15659     
       04743  0 00000 0 01406        HTR L(0)                                                         4F15660     
       04744  0 00000 0 01533        HTR L(ALS)                                                       4F15661     
       04745  0 00000 0 01406        HTR L(0)                                                         4F15662     
       04746  0 00000 0 01466        HTR DEC18                                                        4F15663     
       04747  0 02000 0 05004        TRA ES0610                                                       4F15664     
       04750 -0 76000 0 00144 ES0300 SLT 4                                                            4F15665     
       04751  0 02000 0 04666        TRA ES0710                                                       4F15666     
       04752 -0 76000 0 00142 ES0320 SLT 2                 FLO PT ON LEFT, FX PT ON RIGHT             4F15667     
       04753  0 02000 0 04765        TRA ES0440                                                       4F15668     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 141/141 ------           
       04754  0 50000 0 01573        CLA L(STQ)            RESULT ON RIGHT APPEARS IN MO              4F15669     
       04755  0 60100 0 06165        STO CW+1                                                         4F15670     
       04756  0 50000 0 01505        CLA X(                                                           4F15671     
       04757  0 60100 0 06166        STO CW+2                                                         4F15672     
       04760  0 60000 0 06167        STZ CW+3                                                         4F15673     
       04761  0 07400 2 05103        TSX COMP,B            COMPILE STO 700000                         4F15674     
       04762  0 50000 0 01541        CLA L(CLA)                                                       4F15675     
       04763  0 60100 0 06165        STO CW+1                                                         4F15676     
       04764  0 07400 2 05103        TSX COMP,B            COMPILE CLA 700000                         4F15677     
       04765  0 07400 4 01731 ES0440 TSX CIT00,C           COMPILE FLOATING INSTRUCTIONS, WHEN        4F15678     
       04766  0 00000 0 01406        HTR L(0)              RESULT ON RIGHT IS IN ACC                  4F15679     
       04767  0 00000 0 01560        HTR L(LRS)                                                       4F15680     
       04770  0 00000 0 01406        HTR L(0)                                                         4F15681     
       04771  0 00000 0 01466        HTR DEC18                                                        4F15682     
       04772  0 07400 4 01731        TSX CIT00,C                                                      4F15683     
       04773  0 00000 0 01406        HTR L(0)                                                         4F15684     
       04774  0 00000 0 01564        HTR L(ORA)                                                       4F15685     
       04775  0 00000 0 01504        HTR O(                                                           4F15686     
       04776  0 00000 0 01406        HTR L(0)                                                         4F15687     
       04777  0 07400 4 01731        TSX CIT00,C                                                      4F15688     
       05000  0 00000 0 01406        HTR L(0)                                                         4F15689     
       05001  0 00000 0 01550        HTR L(FAD)                                                       4F15690     
       05002  0 00000 0 01504        HTR O(                                                           4F15691     
       05003  0 00000 0 01406        HTR L(0)                                                         4F15692     
       05004 -0 53400 4 01122 ES0610 LXD ARGCTR,C          IS THIS A FUNCTION STATEMENT               4F15693     
       05005 -3 00000 4 04670        TXL ES0730,C,0        NO                                         4F15694     
       05006  0 50000 0 01601 ES0630 CLA L(TRA)            YES                                        4F15695     
       05007  0 60100 0 06165        STO CW+1                                                         4F15696     
       05010  0 60000 0 06166        STZ CW+2                                                         4F15697     
       05011 -0 50000 0 01454        CAL 2E18                                                         4F15698     
       05012 -0 50100 0 01412        ORA L(4)                                                         4F15699     
       05013  0 60200 0 06167        SLW CW+3                                                         4F15700     
       05014  0 07400 2 05103        TSX COMP,B            COMPILE TRA  1,4                           4F15701     
       05015  0 02000 0 05063        TRA ES1590            EXIT  TO FETCH STATE A                     4F15702     
       05016  0 40200 0 01433 ES1300 SUB L(X)                                                         4F15703     
       05017  0 10000 0 05023        TZE ES1360                                                       4F15704     
       05020 -0 76000 0 00144        SLT 4                                                            4F15705     
       05021  0 02000 0 05025        TRA ES1380                                                       4F15706     
       05022  0 02000 0 04752        TRA ES0320                                                       4F15707     
       05023 -0 76000 0 00144 ES1360 SLT 4                                                            4F15708     
       05024  0 02000 0 04703        TRA ES0870                                                       4F15709     
       05025 -0 76000 0 00142 ES1380 SLT 2                                                            4F15710     
       05026  0 02000 0 05006        TRA ES0630                                                       4F15711     
       05027  0 50000 0 01573        CLA L(STQ)                                                       4F15712     
       05030  0 60100 0 06165        STO CW+1                                                         4F15713     
       05031  0 50000 0 01505        CLA X(                                                           4F15714     
       05032  0 60100 0 06166        STO CW+2                                                         4F15715     
       05033  0 60000 0 06167        STZ CW+3                                                         4F15716     
       05034  0 07400 2 05103        TSX COMP,B            COMPILE STQ 700000                         4F15717     
       05035  0 50000 0 01541        CLA L(CLA)                                                       4F15718     
       05036  0 60100 0 06165        STO CW+1                                                         4F15719     
       05037  0 07400 2 05103        TSX COMP,B            COMPILE CLA 700000                         4F15720     
       05040  0 02000 0 05006        TRA ES0630                                                       4F15721     
       05041  0 07400 1 03321 ES1500 TSX TET00,1                 * GO TO PROGRAM TET TO ENTER 1C,1C+1 4F15722     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 142/142 ------           
       05042  0 00000 0 00002        PZE 2                         INTO  TIFGO  TABLE  (TABLE 2),     4F15723     
       05043  0 02000 0 05047        TRA ES1530                                                       4F15724     
       05044 -0 53400 4 00030 ES1520 LXD EIFNO,4                                                      4F15725     
       05045 -0 63400 4 01123        SXD CALLNM,4          PREPARE  ENTRY FOR TABLE OF CALL FIRST AND 4F15726     
       05046  0 07400 1 03321        TSX TET00,1           LAST IFN NUMBERS,                          4F15727     
                                         16                                                           4F15728     
       05047 -0 76000 0 00142 ES1530 SLT 2                                                            4F15729     
       05050  0 02000 0 05063        TRA ES1590            EXIT TO  FETCH STATE A                     4F15730     
       05051  0 07400 4 01731        TSX CIT00,C           COMPILE  LLS 37                            4F15731     
       05052  0 00000 0 01406            L(0)                                                         4F15732     
       05053  0 00000 0 01573            L(STQ)                                                       4F15733     
       05054  0 00000 0 01505            X(                                                           4F15734     
       05055  0 00000 0 01406            L(0)                                                         4F15735     
       05056  0 07400 4 01731        TSX CIT00,4                                                      4F15736     
       05057  0 00000 0 01406            L(0)                                                         4F15737     
       05060  0 00000 0 01541            L(CLA)                                                       4F15738     
       05061  0 00000 0 01505            X(                                                           4F15739     
       05062  0 00000 0 01406            L(0)                                                         4F15740     
       05063  0 50000 0 06160 ES1590 CLA FNSW                                                         4F15741     
       05064  0 10000 0 02402        TZE MTR000                                                       4F15742     
       05065  0 50000 0 01151        CLA F-1                                                          4F15743     
       05066  0 40200 0 01477        SUB 5BLANS                                                       4F15744     
       05067  0 10000 0 02402        TZE MTR000                                                       4F15745     
       05070  0 50200 0 00030        CLS EIFNO                                                        4F15746     
       05071  0 60100 0 00030        STO EIFNO                                                        4F15747     
       05072  0 07400 1 03321        TSX TET00,A                                                      4F15748     
       05073  0 00000 0 00000        HTR 0                                                            4F15749     
       05074  0 50200 0 00030        CLS EIFNO                                                        4F15750     
       05075  0 60100 0 00030        STO EIFNO                                                        4F15751     
       05076  0 02000 0 02402        TRA MTR000                                                       4F15752     
       05077 -0 53400 2 00637 ES1710 LXD BBOX,B                                                       4F15753     
       05100  0 50000 0 01362        CLA OPNWRD                                                       4F15754     
       05101  0 60100 2 00635        STO CIB-3,B                                                      4F15755     
       05102  0 02000 0 02402        TRA MTR000                                                       4F15756     
                                                                                                      4F15757     
       05103  0 07400 4 01731 COMP   TSX CIT00,C                                                      4F15758     
       05104  0 00000 0 06164        HTR CW                                                           4F15759     
       05105  0 00000 0 06165        HTR CW+1                                                         4F15760     
       05106  0 00000 0 06166        HTR CW+2                                                         4F15761     
       05107  0 00000 0 06167        HTR CW+3                                                         4F15762     
       05110  0 02000 2 01353        TRA I,B                                                          4F15763     
                                                                                                      4F15764     
       05111  0 50000 1 06650 AC0000 CLA SCRIPL,A                                                     4F15765     
       05112  0 60100 0 06170        STO TAGWRD                                                       4F15766     
       05113  0 50000 1 06651        CLA SCRIPL+1,A                                                   4F15767     
       05114  0 60100 0 06171        STO OPWORD                                                       4F15768     
       05115  0 50000 1 06652        CLA SCRIPL+2,A                                                   4F15769     
       05116  0 60100 0 06172        STO SYMWRD                                                       4F15770     
       05117 -0 50000 0 06170 AC0060 CAL TAGWRD                                                       4F15771     
       05120 -0 32000 0 01527        ANA MASK1             EXTRACT  TAGS IN ACC.                      4F15772     
       05121 -0 76000 0 00001        PBT                                                              4F15773     
       05122  0 02000 0 05203        TRA AC0540                                                       4F15774     
       05123 -0 75400 0 00000        PXD 0,0               NON-SUBSCRIPTED SYMBOL                     4F15775     
       05124  0 56000 0 06172        LDQ SYMWRD                                                       4F15776     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 143/143 ------           
       05125 -0 76300 0 00001        LGL 1                                                            4F15777     
       05126  0 76000 0 00001        LBT                                                              4F15778     
       05127  0 16200 0 05174        TQP AC0460            SYMBOL IS SOME S(K)                        4F15779     
       05130 -0 76300 0 00013        LGL 11                NON-SUBSCRIPTED EX/INTERNAL VARIABLE       4F15760     
       05131  0 40200 0 01444        SUB L(A()             IS THIS A FLO PT CONSTANT                  4F15781     
       05132  0 10000 0 05167        TZE AC0410            YES                                        4F15782     
       05133  0 40000 0 01444        ADD L(A()             NO                                         4F15783     
       05134  0 40200 0 01446        SUB L(I()             IS THIS A FIX PT CONSTANT                  4F15784     
       05135  0 10000 0 05165        TZE AC0390            YES                                        4F15785     
       05136  0 40000 0 01446        ADD L(I()             NO                                         4F15786     
       05137  0 40200 0 01445        SUB L(H()             IS THIS A HOLLERITH FIELD                  4F15787     
       05140  0 10000 0 05163        TZE AC0350            YES                                        4F15788     
       05141  0 56000 0 06171        LDQ OPWORD            NON-SUBSCRIPTED EXTERNAL VARIABLE          4F15789     
       05142 -0 76300 0 00015        LGL 13                IS THIS A FREE VARIABLE                    4F15790     
       05143  0 16200 0 05160        TQP AC0340            NO                                         4F15791     
       05144  0 76300 0 00017        LLS 15                YES                                        4F15792     
       05145  0 76000 0 00006        COM                                                              4F15793     
       05146  0 40200 0 01407        SUB L(1)                                                         4F15794     
       05147  0 73400 2 00000        PAX 0,B                                                          4F15795     
       05150 -0 75400 0 00000        PXD 0,8                                                          4F15796     
       05151  0 60200 0 06167        SLW CW+3              STORE ARGUMENT BUFFER RELATIVE ADDRESS     4F15797     
       05152 -0 53400 2 00470        LXD BK,B                                                         4F15798     
       05153 -0 50000 2 00470        CAL FORSUB-1,B                                                   4F15799     
       05154 -0 32000 0 01452        ANA MASK2             EXTRACT FUNCTION STATEMENT TYPE            4F15600     
       05155 -0 50100 0 01503        ORA P(                                                           4F15801     
       05156  0 60200 0 06166 AC0320 SLW CW+2                                                         4F15802     
       05157  0 02000 4 00001        TRA 1,C               RETURN                                     4F15803     
       05160  0 60000 0 06167 AC0340 STZ CW+3              NON-SUBSCRIPTED, REAL VARIABLE             4F15804     
       05161 -0 50000 0 06172        CAL SYMWRD                                                       4F15805     
       05162  0 02000 0 05156        TRA AC0320                                                       4F15806     
       05163 -0 50000 0 01522 AC0350 CAL H(                                                           4F15807     
       05164  0 02000 0 05170        TRA AC0420                                                       4F15808     
       05165  0 50000 0 01501 AC0390 CLA I(                FIX PT INTERNAL VARIABLE                   4F15809     
       05166  0 02000 0 05170        TRA AC0420                                                       4F15810     
       05167  0 50000 0 01502 AC0410 CLA A(                FLO PT INTERNAL VARIABLE                   4F15811     
       05170  0 60100 0 06166 AC0420 STO CW+2                                                         4F15812     
       05171 -0 77300 0 00006        RQL 6                                                            4F15813     
       05172 -0 60000 0 06167        STQ CW+3                                                         4F15814     
       05173  0 02000 4 00001        TRA 1,C               RETURN                                     4F15815     
       05174 -0 76300 0 00043 AC0460 LGL 35                SYMBOL IS SOME S(K)                        4F15616     
       05175  0 73400 2 00000 TDRADD PAX 0,B                                                          4F15817     
       05176 -0 50000 6 06174        CAL CPBETA,6                                                     4F15618     
       05177 -0 32000 0 01527        ANA MASK1             EXTRACT PHI(K)                             4F15819     
       05200  0 60200 0 06167        SLW CW+3                                                         4F15820     
       05201 -0 50000 0 01120        CAL ARERAS                                                       4F15621     
       05202  0 02000 0 05156        TRA AC0320                                                       4F15822     
       05203  0 60200 0 06170 AC0540 SLW TAGWRD            SUBSCRIPTED VARIABLE                       4F15823     
       05204  0 56000 0 06170        LDQ TAGWRD                                                       4F15824     
       05205 -0 75400 0 00000        PXD ,0                CLEAR AC.                                  4F15825     
       05206 -0 76300 0 00014        LGL 12                I-TAU  TAGS TO AC                          4F15826     
       05207  0 60200 0 06167        SLW CW+3              STORE FOR NEXT CIT ENTRY.                  4F15827     
       05210  0 16200 0 05213        TQP *+3                                                          4F15828     
       05211  0 60000 0 06167        STZ CW+3                                                         4F15829     
       05212 -0 50000 0 01454        CAL 2E18              REPLACE NULL TAG,                          4F15830     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 144/144 ------           
       05213  0 60200 0 06173        SLW TAGPRT            SAVE FOR LATER USE.                        4F15831     
       05214 -0 76300 0 00001        LGL 1                                                            4F15832     
       05215 -0 75400 0 00000        PXD ,0                CLEAR AC                                   4F15833     
       05216 -0 76300 0 00010        LGL 8                 FORM TWICE SIGMA TAG.                      4F15834     
       05217  0 76700 0 00001        ALS 1                                                            4F15835     
       05220  0 40100 0 00446        ADM SIG1IX-2          FORM BASE OF TABLE + SIGMA TAG.            4F15836     
       05221  0 62100 0 05222        STA SDRADD                                                       4F15837     
       05222 -0 75400 0 00000 SDRADD PXD **,0                                                         4F15838     
       05223  0 76200 0 00302        RDR 2                                                            4F15839     
       05224  0 46000 0 05222        LDA SDRADD                                                       4F15840     
       05225 -0 70000 0 02365        CAD DUMP                                                         4F15841     
       05226  0 76000 0 00006        COM                                                              4F15842     
       05227 -0 70000 0 02365        CAD DUMP                                                         4F15843     
       05230  0 76000 0 00006        COM                                                              4F15844     
       05231  0 10000 0 05233        TZE *+2               CHECK SUM TEST,                            4F15845     
       05232  0 07400 4 03400        TSX DIAG,4            ERROR SIGMA1 CKSUM FAILS                   4F15846     
       05233 -0 50000 0 02365        CAL DUMP                                                         4F15847     
       05234 -0 60200 0 06167        ORS CW+3              ADD RELATIVE ADDRESS TO I-TAU TAG.         4F15848     
       05235  0 50000 0 06172        CLA SYMWRD            MOVE VARIABLE NAME FOR NEXT CIT ENTRY.     4F15849     
       05236  0 60100 0 06166        STO CW+2                                                         4F15850     
       05237  0 02000 4 00001        TRA 1,4               RETURN  TO CALLER                          4F15851     
                                                                                                      4F158511    
       05240  0 07400 4 03401 CP6000 TSX FLTR00,4          COMPILE FLOW TRACE INFORMATION AND THEN    4F158512    
       05241  0 00000 0 06164            CW                COMPILE LXD 7(TYPE =*4                     4F158513    
       05242  0 00000 0 06165            CW+1                                                         4F158514    
       05243  0 00000 0 06166            CW+2                                                         4F158515    
       05244  0 00000 0 06167            CW+3                                                         4F158516    
       05245  0 02000 0 04622        TRA ES0000                                                       4F158517    
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15852     
                        05246 ENDDDR BSS 0                                                            4F158525    
                                                                                                      4F15853     
                        06160 ENDD   ORG 3184                                                         4F15854     
                        06160 FNSW   BSS 1                                                            4F15855     
                        06161 P(CNTR BSS 1                                                            4F15856     
                        06162 ARGORG BSS 1                                                            4F15857     
                        06163 XRSAVE BSS 1                                                            4F15858     
                        06164 CW     BSS 4                                                            4F15859     
                        06170 TAGWRD BSS 1                                                            4F15860     
                        06171 OPWORD BSS 1                                                            4F15861     
                        06172 SYMWRD BSS 1                                                            4F15862     
                        06173 TAGPRT BSS 1                                                            4F15863     
                        06174 CPBETA BSS 300                                                          4F15864     
                        06650 SCRIPL BSS 600                                                          4F15865     
                                          END OF ARITHMETIC / STATE D.                                4F15866     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15867     
                                                                                                      4F15868     
                                         SYNONYMS USED BY SECTION ONE.                                4F15869     
                        01100 1E     SYN ERASE                     COMMON WORKING STORAGE.            4F15870     
                        00004 1TOCS  SYN 4                         ENTRY TO SYSTEM TAPE MONITOR.      4F15871     
                        01101 2E     SYN ERASE+1                   COMMON WORKING STORAGE.            4F15872     
                        00013 2P     SYN 11                                                           4F15873     
                        01531 36ONES SYN ALL1                                                         4F15874     
                        01102 3E     SYN ERASE+2                   COMMON WORKING STORAGE.            4F15875     
                        01117 3QBAR  SYN 3LBAR                                                        4F15876     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 145/145 ------           
                        01103 4E     SYN ERASE+3                   COMMON WORKING STORAGE.            4F15877     
                        00001 A      EQU 1                                                            4F15878     
                        01430 ABLANK SYN BLANK                                                        4F15879     
                        01376 ACOMMA SYN COMMA                                                        4F15880     
                        01532 ADD    SYN L(ADD)                                                       4F15881     
                        01400 AEQUAL SYN EQUAL                                                        4F15882     
                        01375 ALPAR  SYN OPEN                                                         4F15883     
                        02404 ARITH  SYN STATEB                                                       4F15884     
                        01377 ARPAR  SYN CLOS                                                         4F15885     
                        01535 ARS    SYN L(ARS)                                                       4F15886     
                        00002 B      EQU 2                                                            4F15887     
                        00004 C      EQU 4                                                            4F15888     
                        01537 CAL    SYN L(CAL)                                                       4F15889     
                        01731 CIT    SYN CIT00                                                        4F15890     
                        01150 CITMQR SYN E1C                       ERASABLE STORAGE.                  4F15891     
                        00223 CITTAP SYN 147                       COMPILED INSTRUCTION TAPE,         4F15892     
                        01101 CITXR1 SYN ERASE+1                   ERASABLE STORAGE.                  4F15893     
                        01102 CITXR2 SYN ERASE+2                   ERASABLE STORAGE.                  4F15894     
                        01544 CPY    SYN L(CPY)                                                       4F15895     
                        01454 D1     SYN 2E18                                                         4F15896     
                        01101 D12    SYN ERASE+1                   COMMON WORKING  STORAGE.           4F15897     
                        01466 D18    SYN DEC18                                                        4F15898     
                        01102 D3     SYN ERASE+2                   COMMON WORKING  STORAGE.           4F15899     
                        01546 DED    SYN L(DED)                                                       4F15900     
                        00000 DEL(A) SYN 0                         DRUM ORIGIN FOR STATE A,           4F15901     
                        02210 DEL(B) SYN 1160                      DRUM ORIGIN FOR STATE B.           4F15902     
                        02373 DEL(C) SYN 1275                      DRUM ORIGIN FOR STATE C.           4F15903     
                        01322 DEL(D) SYN 722                       DRUM ORIGIN FOR STATE D.           4F15904     
                        00310 DIM1   SYN 0200                      DRUM TABLE ORIGIN -DRTABS,DIM.SR,  4F15905     
                        00764 DIM2   SYN 0500                      DRUM TABLE ORIGIN -DRTABS,DIM,SR.  4F15906     
                        01440 DIM3   SYN 0800                      DRUM TABLE ORIGIN -DRTABS,DIM,SR.  4F15907     
                        01100 DIMCTR SYN ERASE                     COMMON WORKING STORAGE.            4F15908     
                        01500 DMP    SYN E(                                                           4F15909     
                        01100 DOE    SYN ERASE                     COMMON WORKING STORAGE.            4F15910     
                        01103 DRCKSM SYN ERASE+3                   COMMON WORKING STORAGE.            4F15911     
                        01104 DRMADR SYN ERASE+4                   ERASABLE STORAGE.                  4F15912     
                        01413 DRMERC SYN L(5)                      NUMBER OF DRUM READING ATTEMPTS.   4F15913     
                        01100 DRSYM  SYN ERASE                     COMMON WORKING STORAGE.            4F15914     
                        01100 E1TDR  SYN ERASE                     COMMON WORKING STORAGE.            4F15915     
                        01101 E2C    SYN ERASE+1                   COMMON WORKING STORAGE.            4F15916     
                        01101 E2TDR  SYN ERASE+1                   COMMON WORKING STORAGE.            4F15917     
                        01102 E3C    SYN ERASE+2                   COMMON WORKING STORAGE.            4F15918     
                        01102 E3TDR  SYN ERASE+2                   COMMON WORKING STORAGE.            4F15919     
                        01101 EKE    SYN ERASE+1                   COMMON WORKING STORAGE.            4F15920     
                        01103 ENOND  SYN ERASE+3                   COMMON WORKING STORAGE.            4F15921     
                        01104 FEOD   SYN ERASE+4                   COMMON WORKING STORAGE.            4F15922     
                        00002 FIXCON SYN 0002                      DRUM TABLE ORIGIN -DRTABS,         4F15923     
                        00312 FLOCON SYN 202                       DRUM TABLE ORIGIN -DRTABS.         4F15924     
                        00002 FXCODR SYN 2                                                            4F15925     
                        01102 H      SYN ERASE+2                   COMMON WORKING STORAGE.            4F15926     
                        01522 H(     SYN ADSPOP                                                       4F15927     
                        01554 HPR    SYN L(HPR)                                                       4F15928     
                        01555 LDA    SYN L(LDA)                                                       4F15929     
                        01561 LXD    SYN L(LXD)                                                       4F15930     
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 146/146 ------           
                        01373 L(10)  SYN TEN                                                          4F15931     
                        01400 L(11)  SYN EQUAL                                                        4F15932     
                        01420 L(12)  SYN MINUS                                                        4F15933     
                        01454 L(1D)  SYN 2E18                                                         4F15934     
                        01374 L(63)  SYN ENDMK                                                        4F15935     
                        03440 MEMORG SYN 1824                      MEMORY ORIGIN FOR ALL STATES.      4F15936     
                        01452 MSK    SYN MASK2                                                        4F15937     
                        02402 MTR000 SYN STATEA                                                       4F15938     
                        02430 MTR300 SYN MTR3                                                         4F15942     
                        01103 N      SYN ERASE+3                   COMMON  WORKING  STORAGE.          4F15943     
                        00172 PLUS   SYN 122                                                          4F15945     
                        01566 PXD    SYN L(PXD)                                                       4F15946     
                        01100 RAXR4  SYN ERASE                     COMMON  WORKING  STORAGE.          4F15947     
                        01226 SIGMA1 SYN 0662                      DRUM TABLE ORIGIN -DRTABS.         4F15948     
                        01101 SR6WRK SYN ERASE+1                   ERASABLE STORAGE.                  4F15949     
                        01416  ST    SYN L(8)                                                         4F15950     
                        01571 STA    SYN L(STA)                                                       4F15951     
                        01104 STCKSM SYN ERASE+4                   COMMON WORKING STORAGE,            4F15952     
                        00224 TABTAP SYN 148                       TABLE TAPE.                        4F15953     
                        01453 TAG4   SYN 2E17                                                         4F15954     
                        00000 TAU1   SYN 0000                      DRUM TABLE ORIGIN -DRTABS.         4F15955     
                        00454 TAU2   SYN 0300                      DRUM TABLE ORIGIN -DRTABS.         4F15956     
                        07246 TAU3   SYN 3750                      DRUM TABLE ORIGIN -DRTA8S.         4F15957     
                        01413 TERC   SYN L(5)                      TAPE ERROR COUNTER.                4F15958     
                        01103 TETMQR SYN ERASE+3                   ERASABLE STORAGE,                  4F15959     
                        01102 TETWRK SYN ERASE+2                   ERASABLE STORAGE.                  4F15960     
                        01100 TETXR2 SYN ERASE                     ERASABLE STORAGE.                  4F15961     
                        01101 TETXR4 SYN ERASE+1                   ERASABLE STORAGE.                  4F15962     
                        01576  TIX   SYN L(TIX)                                                       4F15963     
                        00001 ZER    SYN 01                                                           4F15964     
                        00000 ..     EQU 0                                                            4F15965     
                                         END OF SYNONYMS USED BY SECTION ONE.                         4F15966     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15967     
                                                                                                      4F15968     
                                         END OF SECTION ONE.                                          4F15969     
 A                      00000        END                                                              4F15970     
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP    6142           0           0           0           0
 LIB       0           0           0           0           0
 COL    6142           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     6151                  
0NUMBER OF SYMBOLS,  DEF  1394,DEFOP     0,UNDEF     0      
9            REM 704 FORTRAN MASTER RECORD CARD / DIAGNOSTIC = F0200000.      4F1D0010    
1                                        704 FORTRAN MASTER RECORD CARD / DIAGNOSTIC = F0200000.      4F1D0010    
                                         ----------FILE: 147.PNG-----------------------------INCLUDE PREV LINE    
                        00000        ORG 0                                                            4F1D0020    
       00000  0 13440 0 13440        PZE DIAG,,DIAG                                                   4F1D0030    
       00001  0 00000 0 17777        PZE 8191                                                         4F1D0040    
                                         704 FORTRAN TWO, SECTION ONE DIAGNOSTIC RECORD F020.         4F1D0050    
                                                                                                      4F1D0060    
                                         THIS RECORD IS CALLED IN FROM TAPE ONCE FOR EACH ERROR IN    4F1D0070    
                                         SECTION ONE AND ONCE AT THE END OF SECTION ONE,              4F1D0080    
                                                                                                      4F1D0090    
                        13440 DIAG   ORG 1824+4096         MOD 4K OR 8K MACHINE SIZE                  4F1D0100    
                        00001 A      EQU 1                                                            4F1D0110    
                        00002 B      EQU 2                                                            4F1D0120    
                        00004 C      EQU 4                                                            4F1D0130    
                        77777 EXITX  EQU 32767                                                        4F1D0140    
       13440  3 00000 4 13543 EDIT   TXH ERENT,C,0         IF IR4 IS ZERO THIS IS THE END OF SEC ONE. 4F1D0150    
       13441  0 50000 0 00020        CLA 16                IF NON ZERO IT IS AN ERROR CALL,           4F1D0160    
       13442 -0 32000 0 14033        ANA L(4)D             IF IT IS THE END OF SEC ONE WERE THERE ANY 4F1D0170    
       13443  0 10000 0 00004        TZE 4                 ERRORS DURING SECTION ONE ( INDICATED BY   4F1D0180    
       13444  0 07400 4 14121        TSX PRINT,C                                                      4F1D0190    
       13445  0 14104 0 14067        HTR STOP,0,XCOM                                                  4F1D0200    
       13446  0 07400 4 14121        TSX PRINT,C           BIT IN WORD 20 OCTAL), IF THERE WERE NO    4F1D0210    
       13447  0 14045 0 14044        PZE RESTR,0,RESTR+1   ERRORS GO TO SEC ONE PRIME. IF THERE WERE  4F1D0220    
       13450  0 53400 4 02367        LXA DCELL1,4          GET INDICATOR OF SOURCE PROGRAM ERRORS.    4F1D0230    
       13451  3 00000 4 13456        TXH SOURCE,4,0        TEST IF ANY OF ERROR WERE SOURCE.          4F1D0240    
       13452  0 53400 4 14013        LXA L(8),4            NONE WERE, SO BACKSPACE TAPE 1 TO MACHINE  4F1D0250    
       13453  0 76400 0 00201        BST 1                 ERROR RECORD.                              4F1D0260    
       13454  2 00001 4 13453        TIX *-1,4,1                                                      4F1D0270    
       13455  0 02000 0 00004        TRA 4                 NOW GO TO 1 TO CS FOR MACHINE ERROR RECORD.4F1D0280    
       13456  0 53400 4 14015 SOURCE LXA L(12),4           SOME SOURCE PROGRAM ERRORS, RECOMPILATION  4F1D0290    
       13457  0 76400 0 00201        BST 1                 MEANINGLESS. BACKSPACE TAPE 1 TO SOURCE    4F1D0300    
       13460  2 00001 4 13457        TIX *-1,4,1           PROGRAM ERROR RECORD.                      4F1D0310    
       13461  0 02000 0 00004        TRA 4                 NOW GO TO 1 TO CS FOR THIS RECORD.         4F1D0320    
                        13462        BSS 10                EXPANSION AREA.  FOR PESSIMISM...          4F1D0330    
                                         NUMBERS           OF MACHINE ERROR CALL FROM SECTION ONE,    4F1D0340    
       13474  000002000304    MACERR BCD 1002034                                                      4F1D0350    
       13475  000002000602           BCD 1002062                                                      4F1D0360    
       13476  000002020606           BCD 1002266                                                      4F1D0370    
       13477  000002040303           BCD 1002433                                                      4F1D0380    
       13500  000002040304           BCD 1002434                                                      4F1D0390    
       13501  000002040305           BCD 1002435                                                      4F1D0400    
       13502  000002040306           BCD 1002436                                                      4F1D0410    
       13503  000002050203           BCD 1002523                                                      4F1D0420    
       13504  000002050605           BCD 1002565                                                      4F1D0430    
       13505  000003020702           BCD 1003272                                                      4F1D0440    
       13506  000003050601           BCD 1003561                                                      4F1D0450    
       13507  000005070105           BCD 1005715                                                      4F1D0460    
       13510  000004030407           BCD 1004347                                                      4F1D0470    
       13511  000005020303           BCD 1005233                                                      4F1D0480    
       13512  000000050503           BCD 1000553                                                      4F1D0490    
       13513  000000050600           BCD 1000560                                                      4F1D0500    
       13514  000000050603           BCD 1000563                                                      4F1D0510    
       13515  000000050606           BCD 1000566                                                      4F1D0520    
       13516  000100050304           BCD 1010534                                                                  
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 148/148 ------           
       13517  000102070500           BCD 1012750                                                                  
                        13520        BSS 18                MORE PESSIMISM...                                      
       13542  0 00000 0 00024 COUNT      20                                                           4F1D0540    
                                                                                                      4F1D0550    
                                         THIS IS AN ERROR CALL.                                       4F1D0560    
       13543 -0 75400 4 00000 ERENT  PXD 0,C                                                          4F1D0570    
       13544  0 76000 0 00006        COM                       CONSTRUCT OCTAL STOP                   4F1D0580    
       13545  0 40000 0 14032        ADD L(1)D                                                        4F1D0590    
       13546 -0 73400 2 00000        PDX 0,B                                                          4F1D0600    
       13547 -0 75400 2 00000        PXD 0,B                                                          4F1D0610    
       13550  0 76500 0 00043        LRS 35                                                           4F1D0620    
       13551 -0 53400 2 14034        LXD L(6)D,B                                                      4F1D0630    
       13552  0 76700 0 00003 ALS    ALS 3                                                            4F1D0640    
       13553 -0 76300 0 00003        LGL 3                                                            4F1D0650    
       13554  2 00001 2 13552        TIX ALS,B,1                                                      4F1D0660    
       13555  0 60100 0 14047        STO NUMB                                                         4F1D0670    
       13556  0 53400 1 14035        LXA L(0),1            SET TO SEARCH TABLE OF NUMBERS OF MACHINE  4F1D0680    
       13557  0 53400 2 13542        LXA COUNT,2           ERRORS,                                    4F1D0690    
       13560  0 34000 1 13474        CAS MACERR,1          COMPARE  EACH ENTRY IN TABLE TO OCTAL      4F1D0700    
       13561  1 00001 1 13564        TXI *+3,1,1           NUMBER  IN AC                              4F1D0710    
       13562  0 02000 0 13566        TRA *+4               EXIT IF FOUND.                             4F1D0720    
       13563  1 00001 1 13564        TXI *+1,1,1                                                      4F1D0730    
       13564  2 00001 2 13560        TIX *-4,2,1           CONTINUE.                                  4F1D0740    
       13565  0 62100 0 02367        STA DCELL1            SET INDICATOR TO NON-ZERO FOR SOURCE ERROR 4F1D0750    
       13566  0 53400 3 14035        LXA L(0),3                                                       4F1D0760    
       13567  0 50000 0 14037        CLA XXX                    CONSTRUCT CALLING SEQUENCE WORD FOR   4F1D0770    
       13570  0 34000 1 14504 ONE    CAS TABLE,A                PRINTING COMMENT                      4F1D0780    
       13571  0 02000 0 13573        TRA TWO                                                          4F1D0790    
       13572  0 02000 0 13601        TRA FOUR                                                         4F1D0800    
       13573  1 77777 1 13574 TWO    TXI THREE,A,-1                                                   4F1D0810    
       13574  3 00000 1 13570 THREE  TXH ONE,A,0                                                      4F1D0820    
       13575  0 50000 0 14047        CLA NUMB                                                         4F1D0830    
       13576  0 60100 0 14104        STO XCOM                                                         4F1D0840    
       13577 -0 50000 0 14046        CAL XKEY                                                         4F1D0850    
       13600  0 02000 0 13632        TRA EIGHT                                                        4F1D0860    
       13601  3 00000 2 13612 FOUR   TXH FIVE,B,0                                                     4F1D0870    
       13602  0 40200 1 14505        SUB TABLE+1,A                                                    4F1D0880    
       13603  0 10000 0 13627        TZE SEVEN                                                        4F1D0890    
       13604  0 50000 0 14047        CLA NUMB                                                         4F1D0900    
       13605  0 40200 1 14505        SUB TABLE+1,A                                                    4F1D0910    
       13606  0 10000 0 13611        TZE NINE                                                         4F1D0920    
       13607  0 50000 0 14037        CLA XXX                                                          4F1D0930    
       13610  0 02000 0 13573        TRA TWO                                                          4F1D0940    
       13611  1 77777 1 13612 NINE   TXI FIVE,A,-1                                                    4F1D0950    
       13612 -0 75400 1 00000 FIVE   PXD 0,A                                                          4F1D0960    
       13613  0 76000 0 00006        COM                                                              4F1D0970    
       13614  0 40000 0 14032        ADD L(1)D                                                        4F1D0980    
       13615 -0 73400 4 00000        PDX 0,C                                                          4F1D0990    
       13616 -0 75400 4 00000        PXD 0,C                                                          4F1D1000    
       13617  0 40000 0 14042        ADD TABAD                                                        4F1D1010    
       13620  3 00000 2 13625        TXH SIX,B,0                                                      4F1D1020    
       13621  0 77100 0 00022        ARS 18                                                           4F1D1030    
       13622  0 60100 0 14050        STO KEY                                                          4F1D1040    
       13623  0 50000 0 14037        CLA XXX                                                          4F1D1050    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 149/149 ------           
       13624  1 00001 2 13574        TXI THREE,B,1                                                    4F1D1060    
       13625 -0 50100 0 14050 SIX    ORA KEY                                                          4F1D1070    
       13626  0 02000 0 13632        TRA EIGHT                                                        4F1D1080    
       13627  0 50000 0 14047 SEVEN  CLA NUMB                                                         4F1D1090    
       13630  0 60100 0 14104        STO XCOM                                                         4F1D1100    
       13631  0 50000 0 14046        CLA XKEY                                                         4F1D1110    
       13632  0 60100 0 14025 EIGHT  STO COMM                                                         4F1D1120    
       13633  0 50000 0 01151        CLA F-1                                                          4F1D1130    
       13634  0 60100 0 01150        STO F-2                                                          4F1D1140    
       13635  0 50000 0 14045        CLA BLANK                                                        4F1D1150    
       13636  0 60100 0 01151        STO F-1                                                          4F1D1160    
       13637 -0 53400 1 14041        LXD L(X)D,A            CONSTRUCT CALLING SEQUENCE WORD           4F1D1170    
       13640  0 50000 0 14036        CLA ONES                                                         4F1D1180    
       13641  0 34000 1 01331 STA05  CAS F+111,A                                                      4F1D1190    
       13642  0 02000 0 13644        TRA STA10                                                        4F1D1200    
       13643  0 02000 0 13646        TRA STA20                                                        4F1D1210    
       13644  2 00001 1 13641 STA10  TIX STA05,A,1                                                    4F1D1220    
       13645 -0 53400 1 14035        LXD L(0),A                                                       4F1D1230    
       13646 -0 75400 1 00000 STA20  PXD 0,A                                                          4F1D1240    
       13647  0 60100 0 14051        STO SES                                                          4F1D1250    
       13650  0 50000 0 14041        CLA L(X)D                                                        4F1D1260    
       13651  0 40200 0 14051        SUB SES                                                          4F1D1270    
       13652  0 40000 0 14043        ADD FORG                                                         4F1D1280    
       13653  0 60100 0 14051        STO SES                                                          4F1D1290    
       13654  0 50000 0 14043        CLA FORG                                                         4F1D1300    
       13655  0 77100 0 00022        ARS 18                                                           4F1D1310    
       13656 -0 50100 0 14051        ORA SES                                                          4F1D1320    
       13657  0 60100 0 14023        STO STATE                                                        4F1D1330    
       13660  0 50000 0 00020        CLA 16                     WAS THERE A PREVIOUS ERROR CALL       4F1D1340    
       13661 -0 32000 0 14033        ANA L(4)D                                                        4F1D1350    
       13662 -0 10000 0 13673        TNZ PROG                                                         4F1D1360    
       13663  0 50000 0 14033        CLA L(4)D             NO, MAKE ERROR CALL INDICATION             4F1D1370    
       13664 -0 60200 0 00020        ORS 16                                                           4F1D1380    
       13665  0 07400 4 14121        TSX PRINT,C                AND PRINT HEADING                     4F1D1390    
       13666  0 14067 0 14052        HTR START,0,STOP                                                 4F1D1400    
       13667  0 76600 0 00361        WPR                                                              4F1D1410    
       13670  0 76600 0 00361        WPR                                                              4F1D1420    
       13671  0 76600 0 00361        WPR                                                              4F1D1430    
       13672  0 76600 0 00361        WPR                                                              4F1D1440    
       13673  0 07400 4 13742 PROG   TSX SETNBC,4                                                     4F1D1450    
       13674  0 07400 4 13746        TSX NNBC,4                                                       4F1D1460    
       13675  0 07400 4 13746        TSX NNBC,4                                                       4F1D1470    
       13676  0 40200 0 14014        SUB L(10)                                                        4F1D1480    
       13677 -0 10000 0 14022        TNZ EXIT                                                         4F1D1490    
       13700  0 07400 4 13742        TSX SETNBC,4                                                     4F1D1500    
       13701  0 07400 4 13746        TSX NNBC,4                                                       4F1D1510    
       13702  0 40200 0 14007        SUB L(X)                                                         4F1D1520    
       13703 -0 10000 0 13725        TNZ CALLBK                                                       4F1D1530    
       13704  0 50000 0 14001        CLA L(I)                                                         4F1D1540    
       13705  0 07400 4 13760        TSX REP,4                                                        4F1D1550    
       13706  0 07400 4 13746        TSX NNBC,4                                                       4F1D1560    
       13707  0 50000 0 14002        CLA L(F)                                                         4F1D1570    
       13710  0 07400 4 13760        TSX REP,4                                                        4F1D1580    
       13711  0 07400 4 13746        TSX NNBC,4                                                       4F1D1590    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 150/150 ------           
       13712  0 40200 0 14003        SUB L(=)                                                         4F1D1600    
       13713 -0 10000 0 14022        TNZ EXIT                                                         4F1D1610    
       13714  0 50000 0 14004        CLA L(LP)                                                        4F1D1620    
       13715  0 07400 4 13760        TSX REP,4                                                        4F1D1630    
       13716 -3 77622 1 14022 TXE    TXL EXIT,1,-110                                                  4F1D1640    
       13717  0 07400 4 13746        TSX NNBC,4                                                       4F1D1650    
       13720  0 40200 0 14016        SUB ENDM                                                         4F1D1660    
       13721 -0 10000 0 13716        TNZ TXE                                                          4F1D1670    
       13722  0 50000 0 14005        CLA L(RP)                                                        4F1D1680    
       13723  0 07400 4 13760        TSX REP,4                                                        4F1D1690    
       13724  0 02000 0 14022        TRA EXIT                                                         4F1D1700    
       13725  0 50000 0 14010 CALLBK CLA L(C)                   CHANGE Z BACK TO C                    4F1D1710    
       13726  0 07400 4 13760        TSX REP,4                                                        4F1D1720    
       13727  0 07400 4 13746        TSX NNBC,4                                                       4F1D1730    
       13730  0 50000 0 14011        CLA L(A)                   CHANGE TEN BACK TO A                  4F1D1740    
       13731  0 07400 4 13760        TSX REP,4                                                        4F1D1750    
       13732  0 07400 4 13746        TSX NNBC,4                                                       4F1D1760    
       13733  0 50000 0 14012        CLA L(L)                   CHANGE EQUAL BACK TO FIRST L          4F1D1770    
       13734  0 07400 4 13760        TSX REP,4                                                        4F1D1780    
       13735  2 00001 2 13737        TIX SECL,2,1                                                     4F1D1790    
       13736  1 77777 1 13737        TXI SECL,1,-1              ADJUST COUNTS FOR NEXT CHAR           4F1D1800    
       13737  0 50000 0 14012 SECL   CLA L(L)                   CHANGE BLANK BACK TO SECOND L         4F1D1810    
       13740  0 07400 4 13760        TSX REP,4                                                        4F1D1620    
       13741  0 02000 0 14022        TRA EXIT                                                         4F1D1830    
       13742 -0 53400 1 13752 SETNBC LXD TXI,1                                                        4F1D1840    
       13743  0 53400 2 13747        LXA LGL,2                                                        4F1D1850    
       13744  0 56000 0 01152        LDQ F                                                            4F1D1860    
       13745  0 02000 4 00001        TRA 1,4                                                          4F1D1870    
 T     13746 -0 75400 0 00000 NNBC   PXD                                                              4F1D1880    
       13747 -0 76300 0 00006 LGL    LGL 6                                                            4F1D1890    
       13750  2 00001 2 13754        TIX CAS,2,1                                                      4F1D1900    
       13751  0 56000 1 01152        LDQ F,1                                                          4F1D1910    
       13752  1 77777 1 13753 TXI    TXI TXI+1,1,-1                                                   4F1D1920    
       13753  0 53400 2 13747        LXA LGL,2                                                        4F1D1930    
       13754  0 34000 0 14006 CAS    CAS BLANKX                                                       4F1D1940    
       13755  0 02000 4 00001        TRA 1,4                                                          4F1D1950    
       13756  0 02000 0 13746        TRA NNBC                                                         4F1D1960    
       13757  0 02000 4 00001        TRA 1,4                                                          4F1D1970    
       13760 -0 60000 0 14017 REP    STQ ES1                                                          4F1D1980    
       13761 -0 63400 2 14020        SXD ES2,2                                                        4F1D1990    
       13762 -0 63400 1 14021        SXD ES3,1                                                        4F1D2000    
       13763  0 76500 0 00043        LRS 35                                                           4F1D2010    
       13764 -0 50000 0 14016        CAL ENDM                                                         4F1D2020    
       13765 -3 00005 2 13767 TXL    TXL TXL+2,2,5                                                    4F1D2030    
       13766  1 00001 1 13771        TXI TXL+4,1,1                                                    4F1D2040    
       13767 -0 76300 0 00006        LGL 6                                                            4F1D2050    
       13770  2 00001 2 13767 TIX    TIX TIX-1,2,1                                                    4F1D2060    
       13771  0 76000 0 00006        COM                                                              4F1D2070    
       13772  0 32000 1 01151        ANS F-1,1                                                        4F1D2080    
       13773 -0 76300 0 00044        LGL 36                                                           4F1D2090    
       13774 -0 60200 1 01151        ORS F-1,1                                                        4F1D2100    
       13775 -0 53400 1 14021        LXD ES3,1                                                        4F1D2110    
       13776 -0 53400 2 14020        LXD ES2,2                                                        4F1D2120    
       13777  0 56000 0 14017        LDQ ES1                                                          4F1D2130    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 151/151 ------           
       14000  0 02000 4 00001        TRA 1,4                                                          4F1D2140    
       14001  000000000031    L(I)   BCD 100000I                                                      4F1D2150    
       14002  000000000026    L(F)   BCD 100000F                                                      4F1D2160    
       14003  000000000013    L(=)   BCD 100000=                                                      4F1D2170    
       14004  000000000074    L(LP)  BCD 100000(                                                      4F1D2180    
       14005  000000000034    L(RP)  BCD 100000)                                                      4F1D2190    
       14006  000000000060    BLANKX BCD 100000                                                       4F1D2200    
       14007  000000000067    L(X)   BCD 100000X                                                      4F1D2210    
       14010  000000000023    L(C)   BCD 100000C                                                      4F1D2220    
       14011  000000000021    L(A)   BCD 100000A                                                      4F1D2230    
       14012  000000000043    L(L)   BCD 100000L                                                      4F1D2240    
       14013  0 00000 0 00010 L(8)       8                                                            4F1D2250    
       14014 +000000000012    L(10)  OCT 12                                                           4F1D2260    
       14015  0 00000 0 00014 L(12)      12                                                           4F1D2270    
       14016 +000000000077    ENDM   OCT 77                                                           4F1D2280    
 A     14017  0 00000 0 00000 ES1    HTR                                                              4F1D2290    
 A     14020  0 00000 0 00000 ES2    HTR                                                              4F1D2300    
 A     14021  0 00000 0 00000 ES3    HTR                                                              4F1D2310    
       14022  0 07400 4 14121 SECND  TSX PRINT,C                PRINT STATEMENT                       4F1D2320    
 A     14023  0 00000 0 00000 STATE  HTR                                                              4F1D2330    
       14024  0 07400 4 14121        TSX PRINT,C                PRINT COMMENT                         4F1D2340    
 A     14025  0 00000 0 00000 COMM   HTR                                                              4F1D2350    
       14026  0 76600 0 00361        WPR                                                              4F1D2360    
       14027  0 76600 0 00361        WPR                                                              4F1D2370    
       14030  0 76400 0 00201 BST    BST 1                      TAPE                                  4F1D2380    
       14031  0 02000 0 02402        TRA MON                    AND RETURN TO SEC ONE MONITOR         4F1D2390    
       14032 +000001000000     L(1)D OCT 1000000                                                      4F1D2400    
       14033 +000004000000    L(4)D  OCT 4000000                                                      4F1D2410    
       14034 +000006000000     L(6)D OCT 6000000                                                      4F1D2420    
 A     14035  0 00000 0 00000  L(0)  HTR                                                              4F1D2430    
       14036 -377777777777     ONES  OCT 777777777777                                                 4F1D2440    
       14037  676767676767      XXX  BCD 1XXXXXX                                                      4F1D2450    
       14040 +000000077777     HALT  OCT 77777                                                        4F1D2460    
       14041 +000161000000     L(X)D OCT 161000000                                                    4F1D2470    
       14042  0 14504 0 00000  TABAD HTR 0,0,TABLE                                                    4F1D2480    
       14043  0 01150 0 00000  FORG  HTR 0,0,F-2                                                      4F1D2490    
       14044  016060606060     RESTR BCD 11                                                           4F1D2500    
       14045  606060606060     BLANK BCD 1                                                            4F1D2510    
       14046  0 14121 0 14104  XKEY  HTR XCOM,0,XXCOM                                                 4F1D2520    
 A     14047  0 00000 0 00000  NUMB  HTR                                                              4F1D2530    
 A     14050  0 00000 0 00000  KEY   HTR                                                              4F1D2540    
 A     14051  0 00000 0 00000  SES   HTR                                                              4F1D2550    
       14052  016060606060    START  BCD 71                                                           4F1D2560    
       14053  606060606060    
       14054  606060606060    
       14055  606060606060    
       14056  606060606060    
       14057  606060606060    
       14060  606060606060    
       14061  264651635121           BCD 6FORTRAN DIAGNOSTIC PROGRAM RESULTS                          4F1D2570    
       14062  456024312127    
       14063  454662633123    
       14064  604751462751    
       14065  214460512562    
       14066  644363626060    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 152/152 ------           
       14067  006060606060     STOP  BCD 70                                                           4F1D2580    
       14070  606060606060    
       14071  606060606060    
       14072  606060606060    
       14073  606060606060    
       14074  606060606060    
       14075  606060606060    
       14076  254524604626           BCD 6END OF DIAGNOSTIC PROGRAM RESULTS                           4F1D2590    
       14077  602431212745    
       14100  466263312360    
       14101  475146275121    
       14102  446051256264    
       14103  436362606060    
 A     14104  0 00000 0 00000 XCOM   HTR                                                              4F1D2600    
       14105  606060606063           BCD       THIS ERROR IS NOT LISTED IN THE DIAGNOSTIC PROGRAM ERR 4F1D2610    
       14106  303162602551    
       14107  514651603162    
       14110  604546636043    
       14111  316263252460    
       14112  314560633025    
       14113  602431212745    
       14114  466263312360    
       14115  475146275121    
       14116  446025515160    
       14117  465160433162           BCD 2OR LIST.                                                    4F1D2620    
       14120  633360606060    
                        14121 XXCOM  BSS 0                                                            4F1D2630    
                        14121 PRINT  BSS 0                                                            4F1D2640    
       14121  0 50000 4 00001 RAN    CLA 1,4                                                          4F1D2650    
       14122  0 62100 0 14163        STA RNA                                                          4F1D2660    
       14123  0 77100 0 00022        ARS 18                                                           4F1D2670    
       14124  0 60100 0 14164        STO RNB                                                          4F1D2680    
       14125 -0 63400 4 14165        SXD RNC,4                                                        4F1D2690    
       14126  0 50000 0 14163 RN40   CLA RNA                                                          4F1D2700    
       14127  0 40000 0 14166        ADD RND                                                          4F1D2710    
       14130  0 34000 0 14164        CAS RNB                                                          4F1D2720    
       14131  0 76100 0 00000        NOP                                                              4F1D2730    
       14132  0 02000 0 14153        TRA RN50                                                         4F1D2740    
       14133  0 76700 0 00022        ALS 18                                                           4F1D2750    
       14134  0 40000 0 14163        ADD RNA                                                          4F1D2760    
       14135  0 60100 0 14137        STO RAN10                                                        4F1D2770    
       14136  0 07400 4 14170        TSX WOT,C                                                        4F1D2780    
 A     14137  0 00000 0 00000 RAN10  HTR                                                              4F1D2790    
       14140  0 50000 0 14137        CLA RAN10                                                        4F1D2800    
       14141  0 77100 0 00022        ARS 18                                                           4F1D2610    
       14142  0 40200 0 14167        SUB RNE                                                          4F1D2820    
       14143  0 62100 0 14150        STA RN20                                                         4F1D2830    
       14144  0 40200 0 14167        SUB RNE                                                          4F1D2840    
       14145  0 62100 0 14151        STA RN30                                                         4F1D2850    
       14146  0 62100 0 14163        STA RNA                                                          4F1D2860    
       14147  0 50000 0 14402        CLA BLNKS                                                        4F1D2870    
 A     14150  0 60100 0 00000 RN20   STO                                                              4F1D2880    
 A     14151  0 60100 0 00000 RN30   STO                                                              4F1D2890    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 153/153 ------           
       14152  0 02000 0 14126        TRA RN40                                                         4F1D2900    
       14153  0 50000 0 14164 RN50   CLA RNB                                                          4F1D2910    
       14154  0 76700 0 00022        ALS 18                                                           4F1D2920    
       14155  0 40000 0 14163        ADD RNA                                                          4F1D2930    
       14156  0 60100 0 14160        STO RN60                                                         4F1D2940    
       14157  0 07400 4 14170        TSX WOT,C                                                        4F1D2950    
 A     14160  0 00000 0 00000 RN60   HTR                                                              4F1D2960    
       14161 -0 53400 4 14165        LXD RNC,C                                                        4F1D2970    
       14162  0 02000 4 00002        TRA 2,C                                                          4F1D2980    
 A     14163  0 00000 0 00000 RNA    HTR                                                              4F1D2990    
 A     14164  0 00000 0 00000 RNB    HTR                                                              4F1D3000    
 A     14165  0 00000 0 00000 RNC    HTR                                                              4F1D3010    
       14166  0 00000 0 00024 RND    HTR 20                                                           4F1D3020    
       14167  0 00000 0 00001 RNE    HTR 1                                                            4F1D3030    
       14170 -0 63400 1 14340 WOT    SXD X1,1                                                         4F1D3040    
       14171 -0 63400 2 14346        SXD X2,2                                                         4F1D3050    
       14172  0 50000 4 00001        CLA 1,4          PRINT ROUTINE                                   4F1D3060    
       14173  0 62100 0 14221        STA T5           X                                               4F1D3070    
       14174  0 62200 0 14403        STD X4           X                                               4F1D3080    
       14175  0 77100 0 00022        ARS 18           X                                               4F1D3090    
       14176  0 40000 0 14403        ADD X4           X                                               4F1D3100    
       14177  0 62100 0 14252        STA PR2          X                                               4F1D3110    
       14200  0 62100 0 14277        STA CI9          X                                               4F1D3120    
       14201  0 40200 4 00001        SUB 1,4          B-A+1 IN AC                                     4F1D3130    
       14202  0 10000 4 00002        TZE 2,4                                                          4F1D3140    
       14203 -0 12000 4 00002        TMI 2,4                                                          4F1D3150    
       14204 -0 63400 4 14403        SXD X4,4                                                         4F1D3160    
       14205  0 73400 4 00013 L11    PAX 11,4                                                         4F1D3170    
       14206 -0 63400 4 14211        SXD PR6,4                                                        4F1D3180    
       14207 -0 50000 0 14353        CAL WP           INITIALIZE SWITCH                               4F1D3190    
       14210  0 60100 0 14353        STO WP           X                                               4F1D3200    
 TD    14211  3 00000 0 14212 PR6    TXH T4                                                           4F1D3210    
       14212  0 76600 0 00361 T4     WPR                                                              4F1D3220    
 TD    14213 -3 00000 0 14217 Z2     TXL S3                                                           4F1D3230    
 ATD   14214 -3 00000 0 00000 OZ2    TXL                                                              4F1D3240    
       14215  0 76000 0 00364 SP4    SPR 4                                                            4F1D3250    
 TD    14216 -3 00000 0 14250        TXL RPR+2                                                        4F1D3260    
       14217  0 50200 0 14353 S3     CLS WP           SET  SWITCH  FOR MASKING                        4F1D3270    
       14220  0 60100 0 14353        STO WP           CHARACTER FROM TYPE WHEEL 1                     4F1D3280    
       14221 -0 50000 0 14221 T5     CAL *            OBTAIN FIRST CHARACTER                          4F1D3290    
       14222  0 77100 0 00036        ARS 30           X                                               4F1D3300    
       14223  0 10000 0 14215        TZE SP4          DOUBLE SPACE IF ZERO                            4F1D3310    
       14224  0 34000 0 14404        CAS YZONE        TEST FOR SPACE SUPPRESS                         4F1D3320    
 TD    14225 -3 00000 0 14227        TXL BK           NO                                              4F1D3330    
 TD    14226 -3 00000 0 14247        TXL RPR+1        SUPPRESS SPACE                                  4F1D3340    
       14227  0 34000 0 14405 BK     CAS BNK          TEST FOR BLANK                                  4F1D3350    
 TD    14230 -3 00000 0 14232        TXL DIGF         NO                                              4F1D3360    
 TD    14231 -3 00000 0 14250        TXL RPR+2        BLANK                                           4F1D3370    
       14232  0 76000 0 00372 DIGF   SPR 10           SET CHANNEL SKIP                                4F1D3380    
       14233 -0 32000 0 14234        ANA MK           MASK OUT ZONE                                   4F1D3390    
       14234  0 73400 1 00017 MK     PAX 15,1         OBTAIN SPR COMBINATION                          4F1D3400    
       14235  1 00001 1 14236        TXI N2,1,1       X                                               4F1D3410    
       14236 -2 00010 1 14240 N2     TNX N3,1,8       X                                               4F1D3420    
       14237  0 76000 0 00370        SPR 8            X                                               4F1D3430    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 154/154 ------           
       14240 -2 00004 1 14242 N3     TNX N4,1,4       X                                               4F1D3440    
       14241  0 76000 0 00364        SPR 4            X                                               4F1D3450    
       14242 -2 00002 1 14244 N4     TNX N5,1,2       X                                               4F1D3460    
       14243  0 76000 0 00362        SPR 2            X                                               4F1D3470    
       14244 -2 00001 1 14246 N5     TNX RPR,1,1      X                                               4F1D3480    
       14245  0 76000 0 00361        SPR 1            X                                               4F1D3490    
       14246  0 76600 0 00361 RPR    WPR                                                              4F1D3500    
       14247  0 76000 0 00365        SPR 5            SUPPRESS SPACE                                  4F1D3510    
       14250  0 50000 0 14402        CLA BLNKS        FIND LAST NON-BLANK GROUP                       4F1D3520    
       14251 -0 53400 4 14312        LXD CI4,4        X                                               4F1D3530    
       14252  0 34000 4 00000 PR2    CAS 0,4          X                                               4F1D3540    
       14253  1 77777 4 14256        TXI PR1,4,-1     X                                               4F1D3550    
       14254  1 00001 4 14252        TXI PR2,4,1      X                                               4F1D3560    
       14255  1 77777 4 14256        TXI PR1,4,-1     X                                               4F1D3570    
       14256 -0 63400 4 14316 PR1    SXD CI6,4        STORE END TEST                                  4F1D3560    
       14257 -0 63400 4 14330        SXD CI8,4        X                                               4F1D3590    
       14260 -0 63400 4 14263        SXD PR8,4        X                                               4F1D3600    
       14261 -0 63400 4 14370        SXD WP4,4        X                                               4F1D3610    
       14262 -0 53400 4 14211        LXD PR6,4        X                                               4F1D3620    
 D     14263 -2 00000 4 14267 PR8    TNX PR5,4                                                        4F1D3630    
       14264 -3 00014 4 14266        TXL PR3,4,12                                                     4F1D3640    
       14265  0 76000 0 00370        SPR 8            FIRST CYCLE                                     4F1D3650    
       14266 -0 53400 4 14211 PR3    LXD PR6,4        INITIALIZE GROUP COUNT                          4F1D3660    
       14267  0 53400 2 14271 PR5    LXA PR7,2        INITIALIZE LEFT SETUP                           4F1D3670    
       14270 -0 53400 1 14333        LXD YZ1,1        CLEAR CARD IMAGE                                4F1D3680    
 T     14271 -0 75400 0 00000 PR7    PXD              X                                               4F1D3690    
       14272  0 60200 1 14451 PR4    SLW LT,1         X                                               4F1D3700    
       14273  0 60200 1 14431        SLW RT,1         X                                               4F1D3710    
       14274  2 00001 1 14272        TIX PR4,1,1      X                                               4F1D3720    
       14275 -0 50000 0 14407 CIR    CAL COL1         INITIALIZE COLUMN INDICATOR                     4F1D3730    
       14276  0 60200 0 14410 CI2    SLW COL          X                                               4F1D3740    
       14277  0 56000 4 00000 CI9    LDQ 0,4          OBTAIN GROUP                                    4F1D3750    
       14300 -0 63400 4 14214        SXD OZ2,4        STORE GROUP COUNT                               4F1D3760    
       14301  0 53400 4 14303        LXA Q6,4         SET CHARACTER COUNT                             4F1D3770    
 T     14302 -0 75400 0 00000 CI1    PXD                                                              4F1D3780    
       14303 -0 76300 0 00006 Q6     LGL 6                                                            4F1D3790    
       14304  0 73400 1 00000        PAX 0,1                                                          4F1D3800    
       14305 -0 50000 0 14410        CAL COL          POSITION COLUMN INDICATOR                       4F1D3810    
       14306  0 77100 4 00006        ARS 6,4          X                                               4F1D3820    
       14307  2 00020 1 14333        TIX YZ1,1,16     TEST FOR DIGIT                                  4F1D3830    
       14310  3 00017 1 14336        TXH YZ2,1,15     TEST FOR Y-ZONE                                 4F1D3840    
       14311 -0 60200 3 14446 CI5    ORS D,3          STORE DIGIT                                     4F1D3850    
       14312  2 00001 4 14302 CI4    TIX CI1,4,1      COUNT CHARACTERS                                4F1D3860    
       14313  0 77100 0 00001 CI3    ARS 1            SHIFT AND TEST COLUMN                           4F1D3870    
       14314 -0 53400 4 14214        LXD OZ2,4        RESTORE GROUP COUNT                             4F1D3880    
       14315  1 77777 4 14316        TXI CI6,4,-1     COUNT GROUPS                                    4F1D3890    
 D     14316 -3 00000 4 14320 CI6    TXL CI7,4        TEST FOR LAST NON-BLANK GROUP                   4F1D3900    
       14317 -0 10000 0 14276        TNZ CI2          TEST FOR END OF ROW                             4F1D3910    
       14320 -0 50000 2 14433 CI7    CAL 8.3,2        FORM TRUE 8,4                                   4F1D3920    
       14321 -0 60200 2 14436        ORS D-8,2        AND 3 ROWS AND                                  4F1D3930    
       14322 -0 60200 2 14443        ORS D-3,2        MOVE 8,4 AND 8.3                                4F1D3940    
       14323  0 60200 2 14434        SLW 8.2,2        ROWS                                            4F1D3950    
       14324 -0 50000 2 14432        CAL 8.4,2        FORM TRUE 8,4                                   4F1D3960    
       14325 -0 60200 2 14436        ORS D-8,2        X                                               4F1D3970    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 155/155 ------           
       14326 -0 60200 2 14442        ORS D-4,2        X                                               4F1D3980    
       14327  0 60200 2 14433        SLW 8.3,2        X                                               4F1D3990    
 D     14330 -3 00000 4 14353 CI8    TXL WP,4         TEST FOR END                                    4F1D4000    
       14331  3 00017 2 14353        TXH WP,2,15      TEST FOR RIGHT HALF                             4F1D4010    
       14332  1 00020 2 14275        TXI CIR,2,16     INITIALIZE RIGHT HALF                           4F1D4020    
       14333  2 00020 1 14341 YZ1    TIX XZ1,1,16     TEST FOR 16/CH/32                               4F1D4030    
       14334  3 00017 1 14344        TXH XZ2,1,15     TEST FOR X-ZONE                                 4F1D4040    
       14335 -0 60200 3 14446        ORS D,3          STORE DIGIT                                     4F1D4050    
       14336 -0 60200 2 14450 YZ2    ORS Y,2          STORE Y-ZONE                                    4F1D4060    
       14337  2 00001 4 14302        TIX CI1,4,1      COUNT CHARACTERS                                4F1D4070    
 TD    14340 -3 00000 0 14313 X1     TXL CI3          OBTAIN NEXT GROUP                               4F1D4080    
       14341  2 00020 1 14347 XZ1    TIX OZ1,1,16     TEST FOR 32/CH/48                               4F1D4090    
       14342  3 00017 1 14312        TXH CI4,1,15     TEST FOR BLANK                                  4F1D4100    
       14343 -0 60200 3 14446        ORS D,3          STORE DIGIT                                     4F1D4110    
       14344 -0 60200 2 14447 XZ2    ORS X,2          STORE X-ZONE                                    4F1D4120    
       14345  2 00001 4 14302        TIX CI1,4,1      COUNT CHARACTERS                                4F1D4130    
 TD    14346 -3 00000 0 14313 X2     TXL CI3          OBTAIN NEXT GROUP                               4F1D4140    
       14347 -0 60200 2 14446 OZ1    ORS Z,2          STORE 0-ZONE                                    4F1D4150    
       14350 -0 60200 3 14446        ORS D,3          STORE DIGIT                                     4F1D4160    
       14351  2 00001 4 14302        TIX CI1,4,1      COUNT CHARACTERS                                4F1D4170    
 TD    14352 -3 00000 0 14313        TXL CI3                                                          4F1D4180    
 TD    14353  3 00000 0 14355 WP     TXH WP9          INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL     4F1D4190    
 TD    14354 -3 00000 0 14361        TXL WP7          NO PROGRAM                                      4F1D4200    
       14355 -0 53400 1 14401 WP9    LXD WP2,1        MASK OUT FIRST COL, OF CARD IMAGE               4F1D4210    
       14356 -0 50000 0 14406        CAL MK2          X                                               4F1D4220    
       14357  0 32000 1 14451 ANS    ANS LT,1         X                                               4F1D4230    
       14360  2 00001 1 14357        TIX ANS,1,1      X                                               4F1D4240    
       14361 -0 53400 1 14213 WP7    LXD Z2,1         COPY LOOP                                       4F1D4250    
       14362  0 70000 1 14435 CRAN   CPY LT-12,1                                                      4F1D4260    
       14363  0 70000 1 14415        CPY RT-12,1      X                                               4F1D4270    
       14364  1 77777 1 14365        TXI T2,1,-1                                                      4F1D4280    
       14365  3 77764 1 14362 T2     TXH CRAN,1,-12                                                   4F1D4290    
       14366 -0 50000 0 14353        CAL WP           RESET SWITCH FOR SECOND CYCLE                   4F1D4300    
       14367  0 60100 0 14353        STO WP           X                                               4F1D4310    
 D     14370  3 00000 4 14377 WP4    TXH WP5,4                                                        4F1D4320    
       14371 -0 53400 1 14340        LXD X1,1         NO, RELOAD INDEX REGISTERS AND RETURN           4F1D4330    
       14372 -0 53400 2 14346        LXD X2,2         X                                               4F1D4340    
       14373 -0 53400 4 14403 WT2    LXD X4,4         X                                               4F1D4350    
       14374  0 02000 4 00002 L2     TRA 2,4          X                                               4F1D4360    
       14375  0 76600 0 00361 RPR2   WPR                                                              4F1D4370    
 TD    14376 -3 00000 0 14250        TXL PR2-2                                                        4F1D4380    
       14377  0 76600 0 00361 WP5    WPR                                                              4F1D4390    
       14400  0 76000 0 00371        SPR 9            SECOND CYCLE                                    4F1D4400    
       14401 -3 00014 0 14267 WP2    TXL PR5,0,12     CONVERT REST OF LINE                            4F1D4410    
       14402  606060606060    BLNKS  BCD 1                                                            4F1D4420    
 A     14403  0 00000 0 00000 X4     HTR                                                              4F1D4430    
       14404 +000000000020    YZONE  OCT 20                                                           4F1D4440    
       14405 +000000000060      BNK  OCT 60                                                           4F1D4450    
       14406 +377777777777      MK2  OCT 377777777777                                                 4F1D4460    
       14407 -0 00000 0 00000 COL1   MZE                                                              4F1D4470    
                        14410 COL    BSS 1                                                            4F1D4460    
                        14431 RT     BES 16                                                           4F1D4490    
                        14431 8.5    BSS 1                                                            4F1D4500    
                        14432 8.4    BSS 1                                                            4F1D4510    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 156/156 ------           
                        14433 8.3    BSS 1                                                            4F1D4520    
                        14434 8.2    BSS 1                                                            4F1D4530    
                        14446 D      BES 9                                                            4F1D4540    
                        14446 Z      BSS 1                                                            4F1D4550    
                        14447 X      BSS 1                                                            4F1D4560    
                        14450 Y      BSS 1                                                            4F1D4570    
                        14451 LT     SYN Y+1                                                          4F1D4580    
                        14433 8.4L   SYN LT-14                                                        4F1D4590    
                        14413 8.4R   SYN RT-14                                                        4F1D4600    
                        14451        BSS 27                                                           4F1D4610    
                        14022 EXIT   SYN SECND                                                        4F1D4620    
                                         ADDRESS REQUIRED FROM SECTION ONE..........                  4F1D4630    
                        01152 F      SYN 618                       ADDRESS OF 1ST WORD OF F REGION    4F1D4640    
                        02402 MON    SYN 1282                      ADDRESS OF ENTRY TO MONITOR FOR A  4F1D4650    
                        02367 DCELL1 SYN 1271                                                         4F1D4660    
                                                                                                      4F1D4670    
                                                                                                      4F1D4680    
                                         TABLE OF DIAGNOSTIC COMMENTS, SECTION ONE OF 704 FORTRAN II. 4F1D4690    
                                                                                                      4F1D4700    
                                                                                                      4F1D4710    
                                         COMMON                                                       4F1D4720    
                                                                                                      4F1D4730    
                        14504 TABLE  BSS 0                                                            4F1D4740    
       14504  676767676767           BCD  XXXXXX000001      DIM3 TABLE EXCEEDED, THE NUMBER OF 3-DIMEN4F1D4750    
       14505  000000000001    
       14506  606060606060    
       14507  243144036063    
       14510  212243256025    
       14511  672325252425    
       14512  247360633025    
       14513  604564442225    
       14514  516046266003    
       14515  402431442545    
       14516  623146452143           BCD  SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4760    
       14517  606521513121    
       14520  224325626066    
       14521  303123306021    
       14522  474725215160    
       14523  314560243144    
       14524  254562314645    
       14525  606263216325    
       14526  442545636260    
       14527  256723252524    
       14530  626011463360           BCD 1S 9O.                                                       4F1D4770    
                                                                                                      4F1D4780    
       14531  676767676767           BCD  XXXXXX000002      DIM2 TABLE EXCEEDED, THE NUMBER OF 2-DIMEN4F1D4790    
       14532  000000000002    
       14533  606060606060    
       14534  243144026063    
       14535  212243256025    
       14536  672325252425    
       14537  247360633025    
       14540  604564442225    
       14541  516046266002    
       14542  402431442545    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 157/157 ------           
       14543  623146452143           BCD  SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4800    
       14544  606521513121    
       14545  224325626066    
       14546  303123306021    
       14547  474725215160    
       14550  314560243144    
       14551  254562314645    
       14552  606263216325    
       14553  442545636260    
       14554  256723252524    
       14555  626001000033           BCD 1S 100.                                                      4F1D4810    
                                                                                                      4F1D4820    
       14556  676767676767           BCD  XXXXXX000003      DIM1 TABLE EXCEEDED. THE NUMBER OF 1-DIMEN4F1D4830    
       14557  000000000003    
       14560  606060606060    
       14561  243144016063    
       14562  212243256025    
       14563  672325252425    
       14564  243360633025    
       14565  604564442225    
       14566  516046266001    
       14567  402431442545    
       14570  623146452143           BCD  SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4840    
       14571  606521513121    
       14572  224325626066    
       14573  303123306021    
       14574  474725215160    
       14575  314560243144    
       14576  254562314645    
       14577  606263216325    
       14600  442545636260    
       14601  256723252524    
       14602  626001000073           BCD 1S 100,                                                      4F1D4850    
                                                                                                      4F1D4860    
       14603  676767676767           BCD  XXXXXX000004      SIGMA TABLE EXCEEDED. MORE THAN 30 DIFFERE4F1D4870    
       14604  000000000004    
       14605  606060606060    
       14606  623127442160    
       14607  632122432560    
       14610  256723252524    
       14611  252433604446    
       14612  512560633021    
       14613  456003006024    
       14614  312626255125    
       14615  456360512543           BCD  NT RELATIVE ADDRESSES RESULTING FROM THE ADDENDS IN SUBSCRIP4F1D4880    
       14616  216331652560    
       14617  212424512562    
       14620  622562605125    
       14621  626443633145    
       14622  276026514644    
       14623  606330256021    
       14624  242425452462    
       14625  603145606264    
       14626  226223513147    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 158/158 ------           
       14627  636260462660           BCD  TS OF THIS STATEMENT. (SIGN CONSIDERED, ONE RELATIVE ADDRESS4F1D4890    
       14630  633031626062    
       14631  632163254425    
       14632  456333607462    
       14633  312745602346    
       14634  456231242551    
       14635  252473604645    
       14636  256051254321    
       14637  633165256021    
       14640  242451256262    
       14641  462660006021           BCD 3OF 0 ASSUMMED)                                              4F1D4900    
       14642  626264444425    
       14643  243460606060    
                                                                                                      4F1D4910    
       14644  676767676767           BCD  XXXXXX000005      TAU3 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D4920    
       14645  000000000005    
       14646  606060606060    
       14647  632164036063    
       14650  212243256025    
       14651  672325252425    
       14652  243360633025    
       14653  606346632143    
       14654  316370604626    
       14655  602431262625    
       14656  512545636003           BCD  RENT 3-DIMENSIONAL SUBSCRIPT COMBINATIONS EXCEEDS 75 FOR THI4F1D4930    
       14657  402431442545    
       14660  623146452143    
       14661  606264226223    
       14662  513147636023    
       14663  464422314521    
       14664  633146456260    
       14665  256723252524    
       14666  626007056026    
       14667  465160633031    
       14670  626047514627           BCD 2S PROGRAM.                                                  4F1D4940    
       14671  512144336060    
                                                                                                      4F1D4950    
       14672  676767676767           BCD  XXXXXX000006      TAU2 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D4960    
       14673  000000000006    
       14674  606060606060    
       14675  632164026063    
       14676  212243256025    
       14677  672325252425    
       14700  243360633025    
       14701  606346632143    
       14702  316370604626    
       14703  602431262625    
       14704  512545636002           BCD  RENT 2-DIMENSIONAL SUBSCRIPT COMBINATIONS EXCEEDS 90 FOR THI4F1D4970    
       14705  402431442545    
       14706  623146452143    
       14707  606264226223    
       14710  513147636023    
       14711  464422314521    
       14712  633146456260    
       14713  256723252524    
       14714  626011006026    
       14715  465160633031    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 159/159 ------           
       14716  626047514627           BCD 2S PROGRAM.                                                  4F1D4980    
       14717  512144336060    
                                                                                                      4F1D4990    
       14720  676767676767           BCD  XXXXXX000O07      TAU1 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D5000    
       14721  000000460007    
       14722  606060606060    
       14723  632164016063    
       14724  212243256025    
       14725  672325252425    
       14726  243360633025    
       14727  606346632143    
       14730  316370604626    
       14731  602431262625    
       14732  512545636001           BCD  RENT 1-DIMENSI0NAL SUBSCRIPT COMBINATIONS EXCEEDS 100 FOR TH4F1D5010    
       14733  402431442545    
       14734  623100452143    
       14735  606264226223    
       14736  513147636023    
       14737  464422314521    
       14740  633146456260    
       14741  256723252524    
       14742  626001000060    
       14743  264651606330    
       14744  316260475146           BCD 2IS PROGRAM.                                                 4F1D5020    
       14745  275121443360    
                                                                                                      4F1D5030    
       14746  676767676767           BCD  XXXXXX000010      FLOCON TABLE EXCEEDED. MORE THAT 450 DIFFE4F1D5040    
       14747  000000000100    
       14750  606060606060    
       14751  264346234645    
       14752  606321224325    
       14753  602567232525    
       14754  242524336044    
       14755  465125606330    
       14756  216360040500    
       14757  602431262625    
       14760  254563602643           BCD RENT FLOATING POINT CONSTANTS IN THIS PROBLEM. (SIGN NOT CONS4F1D5050    
       14761  462163314527    
       14762  604746314563    
       14763  602346456263    
       14764  214563626031    
       14765  456063303162    
       14766  604751462243    
       14767  254433607462    
       14770  312745604546    
       14771  636023464562    
       14772  312425512524           BCD 2IDERED)                                                     4F1D5060    
       14773  346060606060    
                                                                                                      4F1D5070    
       14774  676767676767           BCD  XXXXXX000011      FIXCON TABLE EXCEEDED. MORE THAN 100 DIFFE4F1D5080    
       14775  000000000101    
       14776  606060606060    
       14777  263167234645    
       15000  606321224325    
       15001  602567232525    
       15002  242524336044    
       15003  465125606330    
       15004  214560010000    
       15005  602431262625    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 160/160 ------           
       15006  512545636026           BCD  RENT FIXED POINT CONSTANTS IN THIS PROGRAM. (SIGN NOT CONSID4F1D5090    
       15007  316725246047    
       15010  463145636023    
       15011  464562632145    
       15012  636260314560    
       15013  633031626047    
       15014  514627512144    
       15015  336074623127    
       15016  456045466360    
       15017  234645623124    
       15020  255125243460           BCD 1ERED)                                                       4F1D5100    
                                                                                                      4F1D5110    
       15021  676767676767           BCD  XXXXXX001635      MORE THAN SIX  CHARACTERS IN  SOME SYMBOL.4F1D5120    
       15022  000001060305    
       15023  606060606060    
       15024  444651256063    
       15025  302145606231    
       15026  676060233021    
       15027  512123632551    
       15030  626031456060    
       15031  624644256062    
       15032  704422464333    
                                                                                                      4F1D5130    
       15033  676767676767           BCD  XXXXXX001643      ILLEGAL  PUNCTUATION  IN  THIS  STATEMENT.4F1D5140    
       15034  000001060403    
       15035  606060606060    
       15036  314343252721    
       15037  436060476445    
       15040  236364216331    
       15041  464560603145    
       15042  606063303162    
       15043  606062632163    
       15044  254425456333    
                                                                                                      4F1D5150    
       15045  676767676767           BCD  XXXXXX002034      MACHINE ERROR. CAS CONTRADICTS PREVIOUS TL4F1D5160    
       15046  000002000304    
       15047  606060606060    
       15050  442123303145    
       15051  256025515146    
       15052  513360232162    
       15053  602346456351    
       15054  212431236362    
       15055  604751256531    
       15056  466462606343    
       15057  503360606060           BCD 1Q.                                                          4F1D5170    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 161/161 ------           
                                                                                                      4F1D5180    
       15060  676767676767           BCD  XXXXXX002062      REPEATED CHECK SUM ERROR IN READING DRUM 34F1D5190    
       15061  000002000602    
       15062  606060606060    
       15063  512547252163    
       15064  252460233025    
       15065  234260626444    
       15066  602551514651    
       15067  603145605125    
       15070  212431452760    
       15071  245164446003    
       15072  336060606060           BCD 1.                                                           4F1D5200    
                                                                                                      4F1D5210    
       15073  676767676767           BCD  XXXXXX002266      MACHINE ERROR. INDEX FAILURE.             4F1D5220    
       15074  000002020606    
       15075  606060606060    
       15076  442123303145    
       15077  256025515146    
       15100  513360314524    
       15101  256760262131    
       15102  436451253360    
       15103  606060606060    
       15104  606060606060    
                                                                                                      4F1D5230    
       15105  676767676767           BCD  XXXXXX002433      REPEATED FAILURE IN READING STATE C FROM D4F1D5240    
       15106  000002040303    
       15107  606060606060    
       15110  512547252163    
       15111  252460262131    
       15112  436451256031    
       15113  456051252124    
       15114  314527606263    
       15115  216325602360    
       15116  265146446024    
       15117  516444606004           BCD 2RUM  4.                                                     4F1D5250    
       15120  336060606060    
                                                                                                      4F1D5260    
       15121  676767676767           BCD  XXXXXX002434      REPEATED FAILURE IN READING STATE B FROM D4F1D5270    
       15122  000002040304    
       15123  606060606060    
       15124  512547252163    
       15125  252460262131    
       15126  436451256031    
       15127  456051252124    
       15130  314527606263    
       15131  216325602260    
       15132  265146446024    
       15133  516444606003           BCD 2RUM  3.                                                     4F1D5280    
       15134  336060606060    
                                                                                                      4F1D5290    
       15135  676767676767           BCD  XXXXXX002435      REPEATED FAILURE IN READING STATE D FROM D4F1D5300    
       15136  000002040305    
       15137  606060606060    
       15140  512547252163    
       15141  252460262131    
       15142  436451256031    
       15143  456051252124    
       15144  314527606263    
       15145  216325602460    
       15146  265146446024    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 162/162 ------           
       15147  516444606002           BCD 2RUM  2.                                                     4F1D5310    
       15150  336060606060    
                                                                                                      4F1D5320    
       15151  676767676767           BCD  XXXXXX002436      REPEATED FAILURE IN READING STATE A FROM D4F1D5330    
       15152  000002040306    
       15153  606060606060    
       15154  512547252163    
       15155  252460262131    
       15156  436451256031    
       15157  456051252124    
       15160  314527606263    
       15161  216325602160    
       15162  265146446024    
       15163  516444606001           BCD 2RUM  1.                                                     4F1D5340    
       15164  336060606060    
                                                                                                      4F1D5350    
       15165  676767676767           BCD  XXXXXX002523      MACHINE  ERROR.  INDEX FAILURE.           4F1D5360    
       15166  000002050203    
       15167  606060606060    
       15170  442123303145    
       15171  256060255151    
       15172  465133606031    
       15173  452425676026    
       15174  213143645125    
       15175  336060606060    
       15176  606060606060    
                                                                                                      4F1D5370    
       15177  676767676767           BCD  XXXXXX002565      REPEATED CHECK SUM ERROR IN READING TABLES4F1D5380    
       15200  000002050605    
       15201  606060606060    
       15202  512547252163    
       15203  252460233025    
       15204  234260626444    
       15205  602551514651    
       15206  603145605125    
       15207  212431452760    
       15210  632122432562    
       15211  265146446024           BCD 4FROM DRUM 2, 3 OR 4,                                        4F1D5390    
       15212  516444600273    
       15213  600360465160    
       15214  047360606060    
                                                                                                      4F1D5400    
       15215  676767676767           BCD  XXXXXX002577      NON-NUMERIC CHARACTER IN NUMERIC FIELD OR 4F1D5410    
       15216  000002050707    
       15217  606060606060    
       15220  454645404564    
       15221  442551312360    
       15222  233021512123    
       15223  632551603145    
       15224  604564442551    
       15225  312360263125    
       15226  432460465160    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 163/163 ------           
       15227  474662623122           BCD 8POSSIBLE MISSING PUNCTUATION BETWEEN FIELDS.                4F1D5420    
       15230  432560443162    
       15231  623145276047    
       15232  644523636421    
       15233  633146456022    
       15234  256366252545    
       15235  602631254324    
       15236  623360606060    
                                                                                                      4F1D5430    
       15237  676767676767           BCD  XXXXXX002656      A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5440    
       15240  000002060506    
       15241  606060606060    
       15242  216062642262    
       15243  235131476360    
       15244  316260454663    
       15245  602160263167    
       15246  252460474631    
       15247  456360652151    
       15250  312122432533    
                                                                                                      4F1D5450    
       15251  676767676767           BCD  XXXXXX002666      A SUBSCRIPT HAS A DOUBLE MULTIPLIER.      4F1D5460    
       15252  000002060606    
       15253  606060606060    
       15254  216062642262    
       15255  235131476360    
       15256  302162602160    
       15257  244664224325    
       15260  604464436331    
       15261  474331255133    
       15262  606060606060    
                                                                                                      4F1D5470    
       15263  676767676767           BCD  XXXXXX002673      A SUBSCRIPT MULTIPLIER IS NOT A CONSTANT. 4F1D5480    
       15264  000002060703    
       15265  606060606060    
       15266  216062642262    
       15267  235131476360    
       15270  446443633147    
       15271  433125516031    
       15272  626045466360    
       15273  216023464562    
       15274  632145633360    
                                                                                                      4F1D5490    
       15275  676767676767           BCD  XXXXXX002720      MORE THAN SIX CHARACTERS IN A SYMBOL WITHI4F1D5500    
       15276  000002070200    
       15277  606060606060    
       15300  444651256063    
       15301  302145606231    
       15302  676023302151    
       15303  212363255162    
       15304  603145602160    
       15305  627044224643    
       15306  606631633031    
                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 164/164 ------           
       15307  456021606264           BCD 8N A SUBSCRIPT OR POSSIBLE MISSING PUNCTUATION.              4F1D5510    
       15310  226223513147    
       15311  636046516047    
       15312  466262312243    
       15313  256044316262    
       15314  314527604764    
       15315  452363642163    
       15316  314645336060    
                                                                                                      4F1D5520    
       15317  676767676700           BCD  XXXXX002722       THERE IS AN ILLEGAL CHARACTER IN SOME SUBS4F1D5530    
       15320  000207020260    
       15321  606060606060    
       15322  633025512560    
       15323  316260214560    
       15324  314343252721    
       15325  436023302151    
       15326  212363255160    
       15327  314560624644    
       15330  256062642262    
       15331  622351314763           BCD 2SCRIPT.                                                     4F1D5540    
       15332  336060606060